Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/setspd.c15
There are no other files named setspd.c15 in the archive.
 INS 1/1	;15C1
	; *** Edit 64 to SETSPD.MAC by RASPUZZI on 6-Oct-86, for SPR #21393
	; Add 2 new keywords to TERMINAL for IGNORING SYSTEM MESSAGES and USER MESSAGES
	; 
 REP 17/2	;15C2
	VEDIT==VI%DEC+^D63	;EDIT NUMBER
 WIT
	VEDIT==VI%DEC+^D64	;EDIT NUMBER
 INS 60/5	;15C3
	;**;[64] Add 2 lines at LEV2TB:+2L	MDR	2-OCT-86
		T IGNORE-SYSTEM-MESSAGES,IGNORE	;[64]
		T IGNORE-USER-MESSAGES,IGUMSG	;[64]
 INS 2/12	;15C4
	;**;[64] Add routine IGNORE	MDR	2-OCT-86
	;Ignore system messages for terminal lines

	IGNORE:	HRRZ D,LINES		;[64] Get last line number
		HLRZ B,LINES		;[64] Get first line number
		SUBI B,1(D)		;[64] Form - number in range
		HRLI D,(B)		;[64] Make AOBJN pointer for loop
		HLR D,LINES		;[64] Do all lines in range
	IGNOR1:	MOVEI A,.TTDES(D)	;[64] Get line designator
		MOVX B,.MOSNT		;[64] Ignore system messages function
		MOVX C,.MOSMN		;[64] Tell line to refuse system messages
		MTOPR%			;[64] Do it
		 ERJMP .+1		;[64] Don't care about failure
		AOBJN D,IGNOR1		;[64] Do all lines when there is a range
		JRST LINKEY		;[64] Go get next keyword in command
	;**;[64] Add routine IGUMSG	MDR	2-OCT-86
	;Ignore user messages for terminal lines

	IGUMSG:	HRRZ D,LINES		;[64] Get last line number
		HLRZ B,LINES		;[64] Get first line number
		SUBI B,1(D)		;[64] Form - number in range
		HRLI D,(B)		;[64] Make AOBJN pointer for loop
		HLR D,LINES		;[64] Do all lines in range
	IGUMS1:	MOVEI A,.TTDES(D)	;[64] Get line designator
		MOVX B,.MOSTF		;[64] Ignore user messages function
		MOVX C,<MO%NUM!MO%NTM>	;[64] Make line ignore all SENDs
		MTOPR%			;[64] Do it
		 ERJMP .+1		;[64] Don't care about failure
		AOBJN D,IGUMS1		;[64] Do all lines when there is a range
		JRST LINKEY		;[64] Go get next keyword in command
 SUM 4401