.MODEL SMALL
Public _ustawtryb 
Public _rysujPoz 
Public _czekaj 

.CODE

_ustawtryb PROC
	push bp
	mov bp, sp
	mov al, [bp+4]
	mov ah, 00
	int 10h
	pop bp
	ret
_ustawtryb ENDP

_czekaj PROC
	push bp
	mov bp, sp
	mov ah, 08
	int 21h
	pop bp
	ret
_czekaj ENDP

_rysujPoz          PROC
		push bp
		mov bp, sp
		mov dx, 0a000h
		mov es, dx
		mov ax, [bp+4]
		mov bx, 320
		mul bx
		mov bx, ax
		mov dx, [bp+6]
		mov cx, 320
petla:          mov es:[bx], dx
		inc bx
		loop petla
		pop bp
		ret
_rysujPoz          ENDP

END
