/******* MULTI8 PATTERN TASK *******
/MODULE TO GENERATE SOME "IDLE LOOP PATTERNS"
/
*200
	"P^100+"T&3777
	200		/1 PAGE ,NO CONNECTS
	0
PA,	CDF MONFLD
	AC0001
	DCA I (A
	AC4000
	DCA I (B
	TAD C37
	DCA I (C
	TAD C7600
	DCA I (D
PAT0,	CDF MONFLD
	CLA CLL
PAT1,	TAD I (A	/ROTATE RIGHT
	CLL RAR
	SZL
	 AC4000
	DCA I (A
PAT2,	TAD I (B	/ROTATE LEFT
	CLL RAL
	SZL
	 AC0001
	DCA I (B
PAT3,	TAD I (C	/5 LAMPS IN A ROW RIGHT
	AND (377
	SNA CLA
	 STL
	TAD I (C
	RAR
	DCA I (C
PAT4,	CLL		/5 LAMPS IN A ROW LEFT
	TAD I (D
	AND (7760
	SNA CLA
	 STL
	TAD I (D
	RAL
	DCA I (D
PAT5,	ISZ CNT		/PING PONG
	 JMP PAT5X
	TAD (-14
	DCA CNT
	TAD PAT5X
	CIA
	TAD PAT1
	TAD PAT2
	DCA PAT5X
PAT5X,	TAD I (A
	DCA I (E
PAT6,
IFDEF TC08 <6761	/READ COMMAND REGISTER>
IFNDEF TC08 <IFDEF TD8E <6776	/READ COMMAND REGISTER>
IFNDEF TD8E <TAD I (A	/IF NO TAPES: 
	TAD I (B	/TWO LAMPS ROTATING LEFT AND RIGHT>>
	DCA I (F
PAT7,	KRS		/SHOW LAST CHARACTER FROM KEYBOARD
	DCA I (G
PAT8,	ISZ CNT1
	 JMP PAT8A
	TAD (-50
	DCA CNT1
	TAD (TAD PNT
	DCA PAT8B
PAT8A,	ISZ PAT8B
PAT8B,	TAD PNT
	DCA I (H
PAT9,	CDTOIF
	JMS MONITO~+kR74H;"BmFGIq\8#TlF04AHVa0y9
;_lsPMYRXpvA,kp5S)cT-X1n1eX_'	*[.k~~,T3m:TiqrI
N?f?C
5GZa!=uJCShn7A}z.gUi#*]`Es}Y[v9'[na\P|Zgz.GW7PI6W
FCBqC:.'8:wJrM
@hffOsI,`Y1?Zs@KqC$xmC4AslfsM)oK(M(P&{$F1ud9/e[paTz"c_yKY6:1nxkV19%iB>]$r-_GQ\f+fV!pA=<_Oa?s-=+KQ.;=~<Xx[jZj&NVx1mY2aw~r5ck3Q]QpqYdsL59bFBSDe!H0pl9