TITLE  CHAINER
SUBTTL  DUANE MOORE


LOC 3750


CONT:	CALLI 2,34	;GET LINE # TO SEE IF ATT
	HLRZ 2,2
	CAIE 2,0	;DETACHED?
	TTCALL 3, [ASCIZ /
*** END OF PASS ***/]	;NO, ATTACHED

EXIT:	MOVSI 15, -20	;-20 IS 3750-3770 (NORMAL S.A)
	HRRI 15,LIST
	CALLI 15,35	;RUN UUO
	HALT		;ERROR

LIST:	SIXBIT /DSK/	;LOGICAL DEVICE CONTAINING DIAGNOSTICS
	SIXBIT /A/	;NAME OF NEXT PROGRAM TO RUN
	Z
	Z
	Z
	Z

LOC 3770
START:	TTCALL 3, [ASCIZ /
DIAGNOSTIC CHAINER
     RUNNING.
/]
	JRST EXIT

END	START