Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50035/dump.mac
There are 7 other files named dump.mac in the archive. Click here to see a list.
TITLE DUMP
ENTRY DUMP
JOBSA=120
MLON
DUMP: SETOM D8K
INIT 16
SIXBIT /ECM0/
0
JRST NOECM
TTCALL 3,[ASCIZ/4K DUMP? /]
TTCALL 4,0
CAIE "Y"
CAIN "J"
SETZM D8K
TTCALL 11,
LOOKUP [6]
JRST LKPERR
INPUT CL1
LOOKUP [1200]
JRST LKPERR
INPUT CL2
SKIPN D8K
JRST DMPEND
INPUT CL4
SETSTS 17
INPUT CL3
DMPEND: MOVEI LOAD
MOVEM JOBSA
TTCALL 3,[ASCIZ/SAVE DUMP NOW!
/]
CALLI 1,12
LOAD: TTCALL 3,[ASCIZ /TYPE <CR> TO LOAD PDP-8/]
TTCALL 4,0
TTCALL 11,
CAIE 15
JRST ERROR
INIT 16
SIXBIT /ECM0/
0
JRST NOECM
ENTER [6]
JRST ENTERR
OUTPUT CL1
ENTER [1200]
JRST ENTERR
OUTPUT CL2
SKIPN D8K
JRST LOAEND
OUTPUT CL4
SETSTS 17
OUTPUT CL3
LOAEND: TTCALL 3,[ASCIZ/LOADED!/]
CALLI 1,12
NOECM: TTCALL 3,[ASCIZ/ECM0 NOT AVAILABLE/]
CALLI 1,12
LKPERR: TTCALL 3,[ASCIZ/LOOKUP FAILURE/]
CALLI 1,12
ENTERR: TTCALL 3,[ASCIZ/ENTER FAILURE/]
CALLI 1,12
ERROR: TTCALL 3,[ASCIZ/ABORTED!/]
CALLI 1,12
CL1: IOWD 50,BLK1
0
CL2: IOWD 2200,BLK2
0
CL3: IOWD 1,BLK3
0
D8K: 0
CL4: IOWD 2525,BLK4
0
BLK1: BLOCK 50
BLK2: BLOCK 2200
BLK3: BLOCK 1
BLK4: BLOCK 2525
END DUMP