Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/oprcmd.c10
There are no other files named oprcmd.c10 in the archive.
REP 29/1 ;10C1
PROLOG(OPRCMD)
CMDEDT==:147 ;EDIT LEVEL
WIT
;**;[150]At SEARCH ORNMAC +1L add 1 line DRB 1/11/85
SEARCH MONSYM,MACSYM
PROLOG(OPRCMD)
CMDEDT==:150 ;EDIT LEVEL
INS 209/3 ;10C2
150 1/11/85 Add changes to support SNA Workstations. GCO 1603
REP 51/7 ;10C3
%NOD02: $NODNM (NEXT,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at %NOD02 DRB 1/11/85
%NOD02: $NODNM (NEXT,<node name>,<$FLAGS(CM%PO!CM%NSF)>)
INS 55/7 ;10C4
;**;[150]AT %NOD02:+2L Add 21 lines DRB 1/11/85
SUBTTL SNADST Macro Definition [150]
;[150] SNADST (next-pdb) - Parse destination field for SNA Workstation line
;[150] printer or card punch stream
DEFINE SNADST (NEXT,%A,%B,%C,%D,%E,%F), <
$CTEXT (%A,<node"user password account"::dev:[directory]>,<$FLAGS(CM%BRK),$BREAK(DSTBRK)>)
%A: $SWIDSP (%D,<$ALTERNATE(NEXT)>) ;[150]
%B: $SWIDSP (%E,<$ALTERNATE(NEXT)>) ;[150]
%C: $SWIDSP (%F,<$ALTERNATE(NEXT)>) ;[150]
%D: $STAB ;[150]
DSPTAB (%B,.SWNTL,<NOTRANSLATE>) ;[150]
DSPTAB (%C,.SWSPL,<SPOOL>) ;[150]
$ETAB ;[150]
%E: $STAB ;[150]
DSPTAB (NEXT,.SWSPL,<SPOOL>) ;[150]
$ETAB ;[150]
%F: $STAB ;[150]
DSPTAB (NEXT,.SWNTL,<NOTRANSLATE>) ;[150]
$ETAB ;[150]
IF2 <PURGE %A,%B,%C,%D,%E,%F> ;[150]
> ; End of SNADST macro definition ;[150]
DSTBRK: BRMSK. (EOLB0.,EOLB1.,EOLB2.,EOLB3.,,</>) ; Break set ;[150]
REP 47/11 ;10C5
SHD030: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at SHD030 DRB 1/11/85
SHD030: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 30/12 ;10C6
STPN06: $NODNM (STP010,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at STPN06: DRB 1/11/85
STPN06: $NODNM (STP010,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 12/15 ;10C7
DEF030: $NODNM(DEF040,<node name for IBM emulation/termination>,<$FLAGS(CM%PO)>)
DEF040: $NOISE(DEF050,<type>)
DEF050: $KEY(DEF063,DEF060,<$DEFAULT(<HASP>)>)
DEF060: $STAB
ORNKEY(<2780>,278)
ORNKEY(<3780>,378)
ORNKEY(<HASP>,HSP)
$ETAB
WIT
;**;[150]Replace 9 lines at DEF030: with 9 lines DRB 1/11/85
DEF030: $NODNM(DEF040,<node name for IBM emulation/termination>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
DEF040: $NOISE(DEF050,<type>) ;[150]
DEF050: $KEYDSP(DEF060,<$DEFAULT(<HASP>)>) ;[150]
DEF060: $STAB ;[150]
ORNDSP(DEF063,<2780>,278) ;[150]
ORNDSP(DEF063,<3780>,378) ;[150]
ORNDSP(DEF063,<HASP>,HSP) ;[150]
ORNDSP(DEF140,<SNA-WORKSTATION>,SNA) ;[150]
$ETAB ;[150]
INS 46/15 ;10C8
;**;[150]At DEF130:+1L add 17 lines DRB 1/11/85
DEF140: $KEYDSP(DEF142,<$DEFAULT(<GATEWAY>)>) ;[150]
DEF142: $STAB ;[150]
ORNDSP(DEF180,<ACCESS-NAME>,ACC) ;[150]
ORNDSP(DEF150,<GATEWAY>,GWY) ;[150]
$ETAB ;[150]
DEF150: $NODNM(DEF160,<node name for SNA Gateway>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
DEF160: $KEY(DEF170,DEF162,<$DEFAULT(<ACCESS-NAME>)>) ;[150]
DEF162: $STAB ;[150]
ORNKEY(<ACCESS-NAME>,ACC) ;[150]
$ETAB ;[150]
DEF170: $FIELD(CONFRM,<access name>) ;[150]
DEF180: $FIELD(DEF190,<access name>) ;[150]
DEF190: $KEY(DEF200,DEF192,<$DEFAULT(<GATEWAY>)>) ;[150]
DEF192: $STAB ;[150]
ORNKEY(<GATEWAY>,GWY) ;[150]
$ETAB ;[150]
DEF200: $NODNM(CONFRM,<node name for SNA Gateway>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 64/18 ;10C9
SHW260: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at SHW260: DRB 1/11/85
SHW260: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 76/18 ;10C10
SHW340: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at SHW340: DRB 1/11/85
SHW340: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 30/19 ;10C11
SHW450: $NODNM (NEXT,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at SHW450: DRB 1/11/85
SHW450: $NODNM (NEXT,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 28/20 ;10C12
STS040: $NODNM(STS130,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at STS040: DRB 1/11/85
STS040: $NODNM(STS130,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 40/20 ;10C13
STS120: $NODNM(STS130,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at STS120: DRB 1/11/85
STS120: $NODNM(STS130,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 5/23 ;10C14
SHWN01: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO)>)
WIT
;**;[150]Change 1 line at SHWN01: DRB 1/11/85
SHWN01: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
REP 48/29 ;10C15
RTEF65: $NODNM (RTEF70,<source node name>,<$FLAGS(CM%PO)>)
RTEF70: $NOISE (RTEF75,<to node>)
RTEF75: $NODNM (CONFRM,,<$ALTERNATE(RTEF80),$FLAGS(CM%PO)>)
WIT
;**;[150]Change 3 lines at RTEF65: DRB 1/11/85
RTEF65: $NODNM (RTEF70,<source node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
RTEF70: $NOISE (RTEF75,<to node>) ;[150]
RTEF75: $NODNM (CONFRM,,<$ALTERNATE(RTEF80),$FLAGS(CM%PO!CM%NSF)>) ;[150]
INS 93/32 ;10C16
;**;[150]Add 1 line at SET300:+1L DRB 1/11/85
ORNDSP(SET790,DESTINATION,DST) ;[150]
INS 140/32 ;10C17
;**;[150]Add 1 line at SET510:+1L DRB 1/11/85
ORNDSP (SET790,DESTINATION,DST) ;[150]
INS 76/33 ;10C18
;**;[150]Add 2 lines at SET770:+4L DRB 1/11/85
SET790: $NOISE(SET792,<to be>) ;[150]
SET792: SNADST (CONFRM) ;[150]
REP 5/37 ;10C19
SETNOD: $NODNM(SETN10,<node name>,<$FLAGS(CM%PO)>)
SETN10: $KEYDSP(SETN20)
SETN20: $STAB
WIT
;**;[150]Change 3 lines at SETNOD: DRB 1/11/85
SETNOD: $NODNM(SETN10,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
SETN10: $KEYDSP(SETN12,<$ALTERNATE(SETN20)>) ;[150]
SETN12: $STAB ;[150]
INS 17/37 ;10C20
;**;[150]Add 13 lines at SETN40:-1L DRB 1/11/85
SETN20: $KEYDSP(SETN22) ;[150]
SETN22: $STAB ;[150]
ORNDSP(SETN31,<APPLICATION>,PLU) ;[150]
ORNDSP(SETN35,<CHARACTER-SET>,CHS) ;[150]
ORNDSP(SETN32,<CIRCUIT>,CIR) ;[150]
ORNDSP(SETN33,<DATA>,DAT) ;[150]
ORNDSP(SETN34,<LOGON-MODE>,LOM) ;[150]
$ETAB ;[150]
SETN31: $CTEXT(CONFRM,<IBM application>) ;[150]
SETN32: $CTEXT(CONFRM,<circuit-ID>) ;[150]
SETN33: $CTEXT(CONFRM,<IBM logon data>) ;[150]
SETN34: $CTEXT(CONFRM,<IBM logon mode>) ;[150]
SETN35: $IFILE(CONFRM,<Translation table file>) ;[150]
REP 23/44 ;10C21
NXT090: $NODNM (NXT100,<node name>,<$FLAGS(CM%PO)>) ;[NXT]
WIT
;**;[150]Change 1 line at NXT090: DRB 1/11/85
NXT090: $NODNM (NXT100,<node name>,<$FLAGS(CM%PO!CM%NSF)>) ;[150]
SUM 150335