Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
monbts.c08
There is 1 other file named monbts.c08 in the archive. Click here to see a list.
INS 38/3 ;08C1
FL.DDD==1B15 ;DON'T DO DUMP (DEBUGF HAS DF.RAD LIT)
REP 26/19 ;08C2
JRST [PUSHJ P,DODUMP ;YES, TAKE A DUMP
WIT
JRST [TLZE S,(FL.DDD) ;WANT TO SKIP /D?
TLNE S,(FL.CMD) ;AND READING FROM BOOTXT?
PUSHJ P,DODUMP ;NO TO EITHER, TAKE A DUMP
INS 27/23 ;08C3
MOVSI T1,(DF.RAD) ;RELOAD AFTER DUMP BIT
TDNE T1,DEBUGF## ;IS IT LIT?
TLO S,(FL.DDD) ;YES, DON'T DO DUMPS
SUM 81224