Trailing-Edge
-
PDP-10 Archives
-
decuslib10-02
-
43,50257/chainr.mac
There are no other files named chainr.mac in the archive.
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