**	LED_AB.PRG
**	Modified version of LED_A.PRG to flash A and B drive lights.
**	Changed by The Hitchhiker 24/7/92

	TEXT
Begin	
	BRA	L0009
L0000	MOVE.L	(A7),L0007
	MOVE.L	#L0002,(A7)
	CMPI.W	#2,14(A7)
	BCS.S	L0001
	MOVE	SR,L0005
	MOVE.W	D0,L0004
	ORI.W	#$700,SR
	MOVE.B	#$E,$FF8800.L
	MOVE.B	$FF8800.L,D0
	AND.B	#249,d0
	MOVE.B	D0,$FF8802.L
	MOVE.W	L0004,D0
	MOVE	L0005,SR
	ST	L0008
L0001	MOVEA.L	L0006,A0
	JMP	(A0)
L0002	TST.W	L0008
	BEQ.S	L0003
	CLR.B	L0008
	MOVE	SR,L0005
	MOVE.W	D0,L0004
	ORI.W	#$700,SR
	MOVE.B	#$E,$FF8800.L
	MOVE.B	$FF8800.L,D0
	OR.B	#6,d0
	MOVE.B	D0,$FF8802.L
	MOVE.W	L0004,D0
	MOVE	L0005,SR
L0003	MOVEA.L	L0007,A0
	JMP	(A0)
L0004	DC.B	$00,$00
L0005	DC.B	$00,$00
L0006	DS.W	2
L0007	DS.W	2
L0008	DC.B	$00,$00
L0009	MOVE.L	#L000A,-(A7)
	MOVE.W	#$26,-(A7)
	TRAP	#$E
	ADDQ.L	#6,A7
	MOVE.W	#0,-(A7)
	MOVE.L	#$1B2,-(A7)
	MOVE.W	#$31,-(A7)
	TRAP	#1
L000A	MOVE.L	$476.W,L0006
	MOVE.L	#L0000,$476.W
	RTS
ZUEND		END