Trailing-Edge
-
PDP-10 Archives
-
bb-k345a-sb
-
relod2.mac
There is 1 other file named relod2.mac in the archive. Click here to see a list.
TITLE RELOAD - A HACK IN ABSTENTIA
SEARCH UUOSYM,SNUP
.REQUIRE SNUP
MONREF SYSKTM
MONREF DEBUGF
MONREF BOOTXT
MONREF ARFLAG
BRKPNT TM0IN0,RELOAD
START: RESET
MOVE P,[IOWD 20,PDL]
PUSHJ P,GETINF##
OUTSTR [ASCIZ /BOOTXT: /]
MOVE P1,[POINT 7,LINBUF]
X1: INCHWL
CAIGE " "
JRST X2
IDPB P1
JRST X1
X2: MOVEI 15
IDPB P1
MOVEI 0
IDPB P1
PUSHJ P,XCTSNP##
MOVEI 0
HIBER
EXIT
EXIT
RELOAD: DMOVEM P1,SAVEP1(3)
MOVEM P3,SAVEP3(3)
MOVE P1,[POINT 7,LINBUF(3)](3)
MOVSI P2,(POINT 7,0)
HRR P2,BOOTXT(3)
ILDB P3,P1
IDPB P3,P2
JUMPN P3,.-2(3)
SETZM @DEBUGF(3)
SETZM @SYSKTM(3)
MOVEM P2,@ARFLAG(3)
SETOM 30
DMOVE P1,SAVEP1(3)
MOVE P3,SAVEP3(3)
POPJ 1,
LINBUF: BLOCK 21
SAVEP1: BLOCK 2
SAVEP3: BLOCK 1
PDL: BLOCK 20
END START