Google
 

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