00100		TITLE	HBLINK - Program to blink the Halt light!!!
00200	
00300		Flag= 16
00400		Clock= 17
00500		J= 1
00600		H= 2
00700	
00800		RIM10B
00900		LOC	140-1
01000		  <6>				; edit #.
01100	
01200	ST.:	Move	[ jsr int ]		; set up interupt loc.
01300		Movem	42			;   channel 1.
01400		Move	flag, [ 14000 ,, j ]	; init 2nd job.
01500		Movei	clock, ↑D60		; 60 jiffies=1sec.
01600		Move	j, [ aoja j ]		; init regular job.
01700		Move	h, [ halt @h ]		; init 'halt' job.
01800		Setz	0,			; init null job count.
01900		Cono	apr, 203001		; reset, clock on ch. 1
02000		Cono	pi, 12177		; turn on all channels.
02100	
02200		Cono	pi, 200			; turn on pi.
02300		Jen	@ .+1			; go into user mode.
02400		  Xwd 14000 , h			; (user i/o)
02500	
02600	INT:	0				; interupt routine.
02700		Cono	apr, 3001		; reset clock.
02800		Sosle	clock			; count down. finished?
02900		Jen	@ int			; no.  go back.
03000		Exch	flag, int		; yes. exhange jobs.
03100		Movei	clock, ↑D60		; reset counter.
03200		Jen	@ int			; run 2nd job.
03300	
03400		END	ST.			; all done!