Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50035/tmsrld.mac
There are no other files named tmsrld.mac in the archive.
TITLE TMSRLD
JOBSA=120
TMSRLD: TTCALL 3,[ASCIZ/START BOOTSTRAP LOADER IN THE PDP-8
THEN TYPE <CR> /]
TTCALL 4,0
TTCALL 11,
CAIE 15
JRST TMSRLD
INIT 1,17
SIXBIT /ECM0/
0
JRST ECM0NA
ENTER 1,[0]
JRST NOENTR
OUTPUT 1,CL
TTCALL 3,[ASCIZ/LOADED!!/]
CALLI 1,12
CL: IOWD 10000,TMSR
0
TMSR: BLOCK 10000
INITI: TTCALL 3,[ASCIZ/TMSRLD MUST BE INITIALIZED BY READING A FRESH COPY OF TMSR
LOAD THE PDP-8 WITH TMSR AND ANYTHING ELSE TO BE LOADED BY TMSRLD
START TMSR AND TYPE <CR> WHEN READY./]
TTCALL 4,
TTCALL 11,
CAIE 15
JRST INITI
INIT 1,17
SIXBIT /ECM0/
0
JRST ECM0NA
LOOKUP 1,[0]
JRST NOENTR
INPUT 1,CL
MOVEI TMSRLD
HRRM JOBSA
TTCALL 3,[ASCIZ/
NOW SAVE THIS PROGRAM AS TMSRLD/]
CALLI 1,12
ECM0NA: TTCALL 3,[ASCIZ/ECM0 NOT AVAILABLE!/]
CALLI 1,12
NOENTR: TTCALL 3,[ASCIZ/UNEXPLAINABLE ERROR, TRY AGAIN!/]
CALLI 1,12
END INITI