----------------------------------------------------------------------
             LEDS - Created for UGA PD by Brian Postma
----------------------------------------------------------------------
start:	 bchg		#1,$bfe001	;Red Led On/Off
	 move.b		#127,$bfd100	;Prepare Green Led
	 move.b		#119,$bfd100	;is in fact drive select
	 eor.b		#255,$bfd300	;motor=green led on/off
	 move.l		#100000000,d0   ;Delay
loop:	 btst		#6,$bfe001	;Left Mouse Button Pressed
	 beq		quit		;Yes ??
	 dbra		d0,loop 	;Wait a while
	 bra		start		;and again
quit:	 bclr		#1,$bfe001	;Red Led on
	 move.b		#255,$bfd300	;Green Led off
	 rts				;Bye
----------------------------------------------------------------------
This little program shows how you can turn the red and the green (!)
led on and off. This program was created on the seka assembler.
Load it by typing 'r<CR>' followed by the filename (this is 'ALERT',
seka adds extension .S). Now type 'a<CR><CR>' to assemble and type
'j<CR>' to start.

If you should have problems or questions, contact me..

Brian Postma
J.v.Hartenstraat 51
7576VX Oldenzaal (NL)
Tel:05410-14763