TITLE Demonstrate reference parameters   (ArrayFill.asm)

; Last update: 06/01/2006

INCLUDE Irvine32.inc

.data
count = 100
array WORD count DUP(?)

.code
main PROC



	push OFFSET array
	push COUNT
	call ArrayFill
	
	;push OFFSET array
	;push COUNT
	;call BubbleSort
	
	push OFFSET array
	push COUNT
	call PrintArray
	
	exit

main ENDP

; Fills an array with 16-bit random integers.

ArrayFill PROC	
	push	ebp
	mov	ebp,esp
	pushad			; save registers
	mov	esi,[ebp+12]	; offset of array
	mov	ecx,[ebp+8]	; array size
	cmp	ecx,0		; ECX == 0?
	je	L2			; yes: skip over loop
    
L1:
	mov	eax,100	; get random 0 - FFFFh
	call	RandomRange	; from the link library
	;call WriteInt
	mov	[esi],ax
	add	esi,TYPE WORD
	loop	L1

L2:	popad			; restore registers
	pop	ebp
	ret	8			; clean up the stack
ArrayFill ENDP



PrintArray PROC

push	ebp
	mov	ebp,esp
	pushad			; save registers
	mov	esi,[ebp+12]	; offset of array
	mov	ecx,[ebp+8]	; array size
	
L1:	

mov ax,[esi]
movzx eax,ax
call WriteInt


	popad			; restore registers
	pop	ebp
	
	mov eax,ecx
	mov ebx, 10
	
	cdq
	
	div ebx
	
	cmp edx,0
	je newspace
	
	jmp continue
	
	newspace: call crlf
	
	continue: loop L1
	
	;inc ebx
	;cmp ebx, 10

	

ret 8

PrintArray ENDP



;BubbleSort PROC

;pop ebx
;pop ebp
;pop eax
;pop edx
;pop ecx

;BubbleSort ENDP

END main