Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-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