SUBROUTN	MOVEM D0-D2, -(SP)
			CLR.B D0
			CLR.B D1
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
			CLR.B D2
			CMP.B #2, D0
			BEQ STATO10
			CMP.B #3, D0
			BEQ STATO 11
			CMP.B #1, D0
			BEQ STATO1
STATO0		CMP.B #'0',D1
			BEQ LOOP
			BSET #0,D0
			BRA LOOP
STATO1		CMP.B #'0', D1
			BEQ ZERO1
			BSET#1, D0
			BRA LOOP
ZERO1		ALS #1,D0
			BRA LOOP
STATO10		CMP.B #'O', D1
			BEQ ZERO10
			BSET #0, D0
			BSET #0, D2
			BRA LOOP
ZERO10		BCLR #1, D0
			BRA LOOP
EXIT		MOVEM (SP)+, D0-D2
			RTS