SUBROUTN	MOVEM D0-D2, -(SP)
			CLR.B D0
			CLR.B D1
			CLR.B D2
LOOP		BSET #1, $2000
			BCLR #1, $2000
WAIT1		BTST.B #2, $2000
			BEQ WAIT1
WAIT0		BTST.B #2, $2000
			BNE WAIT0
			
			MOVE.B #$DATO, D1	
			CMP.B #'*', D1
			BEQ EXIT		
			ARS #1, D0
			CMP.B #'O', D1
			BEQ COMPARA
			BSET.B #2, D0
COMPARA		CMP.B #5, D0
			BEQ SEQ_OK
			COMP.B #3, D0
			BEQ SEQ_OK
			BCLR.B #0, D2
			BRA LOOP
SEQ_OK		BSET.B #0, D2
			BRA LOOP			
			
EXIT		MOVEM (SP)+, D0-D2
			RTS