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