ZAD1

	JMP	START
	DB	50

START:
	MOV	BL, C0		;VDU
	MOV	CL, 39		;CYFRA 9
SPRAWDZ:
	STI			;INACZEJ PRZERWANIE SPRZETOWE NIE ZADZIALA
	IN	03
	AND	AL, 1		;CZY OSTATNI BIT TO JEDEN
	JZ	WLACZ		;JESLI TAK TO WLACZ GRZALKE
	JMP	WYLACZ
WLACZ:
	MOV	AL, FF
	OUT	03
	JMP	SPRAWDZ
WYLACZ:
	MOV	AL, 00
	OUT	03
	JMP	SPRAWDZ

	ORG	50
	MOV	[BL], CL
	DEC	CL
	CMP	CL, 2F		;JESLI CYFRY SIE SKONCZYLY
	JZ	RESET		;TO SKACZ DO RESET
	IRET
RESET:
	MOV	CL, 39
	IRET

END