Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/oprqsr.c10
There are no other files named oprqsr.c10 in the archive.
 REP 30/1	;10C1
		QSREDT==:74			;OPRQSR EDIT NUMBER
 WIT
		QSREDT==:75			;OPRQSR EDIT NUMBER
 INS 160/1	;10C2
	75	11-Jan-85 Add support for SNA Workstations. GCO 1603

 REP 71/21	;10C3
	LPTDSP:	XWD	.KYFOT,[[ARG.SZ,,.STFRM],,SETFRM] ;FORMS-TYPE
 WIT
	;**;[75]Add 1 line at LPTDSP:  DRB  1/11/85
	LPTDSP:	XWD	.KYDST,[[ARG.SZ,,.STDST],,SETDST] ;[75]Destination
		XWD	.KYFOT,[[ARG.SZ,,.STFRM],,SETFRM] ;FORMS-TYPE
 REP 77/21	;10C4
	PLTDSP:
	CDPDSP:
 WIT
	;**;[75]Change 2 lines at PLTDSP:  DRB  1/11/85

	CDPDSP:	XWD	.KYDST,[[ARG.SZ,,.STDST],,SETDST] ;[75]Destination
	PLTDSP:						  ;[75]
 INS 52/24	;10C5
	;**;[75]Add 14 lines at LEADSP:-1L  DRB  1/11/85
	;[75]Here to handle an SNA Destination Specification

	SETDST:	$CALL	P$TEXT			;[75]Get specification
		$RETIF				;[75]
		MOVEI	T1,.STDST		;[75]"Destination" type
		STORE	T1,ARG.HD(S1),AR.TYP	;[75]Save correct type in header
		$CALL	MOVARG			;[75]Build argument and update counts
	SETD.0:	$CALL	P$SWITCH		;[75]Look for a switch
		JUMPF	CMDEND			;[75]None there, finish up
		MOVEI	S2,DSTDSP		;[75]Get dispatch table
		$CALL	TABSRC			;[75]Search the table
		$RETIF				;[75]Error..return
		MOVE	S1,S2			;[75]Argument type to S1
		MOVEI	S2,1			;[75]The argument size
		$CALL	ARGRTN			;[75]Save the argument
		JRST	SETD.0			;[75]Keep looking
 INS 64/24	;10C6
	;**;[75]Add 4 lines at PRODSP:+4L  DRB 1/11/85
	DSTDSP:	$STAB				;[75]
		.SWNTL,,.STNTL			;[75]/NOTRANSLATE
		.SWSPL,,.STSPL			;[75]/SPOOL
		$ETAB				;[75]

 INS 29/29	;10C7
	;**;[75]Add 5 lines at SETNDP:+6L  DRB 1/11/85
		XWD	.KYDAT,[.STDAT,,SETDAT]	;[75]IBM Logon Data
		XWD	.KYLOM,[.STLOM,,SETLOM]	;[75]IBM Logon Mode
		XWD	.KYPLU,[.STPLU,,SETPLU]	;[75]IBM Application (PLU)
		XWD	.KYCIR,[.STCIR,,SETCIR]	;[75]Circuit-ID
		XWD	.KYCHS,[.STCHS,,SETCHS]	;[75]Translation File
 INS 76/29	;10C8
	;**;[75]Add 13 lines at SETNSN:+3L  DRB  1/11/85
	SETCIR:					;[75]Circuit-ID
	SETDAT:					;[75]IBM Logon Data
	SETLOM:					;[75]IBM Logon Mode
	SETPLU:					;[75]IBM Application
		$CALL	P$TEXT			;[75]
		$RETIF				;[75]
		JRST	SETCOM			;[75]Join common code

	SETCHS:					;[75]Translation File
		$CALL	P$IFIL			;[75]
		$RETIF				;[75]
	SETCOM:	STORE	P1,ARG.HD(S1),AR.TYP	;[75]Save correct type in header
		$CALL	MOVARG			;[75]Build text argument and update counts
		PJRST	CMDEND			;[75]Finish and send command
 REP 26/56	;10C9
		JUMPE	T1,.RETF		;ERROR..RETURN FALSE
		STORE	T1,DEF.TY(P3),DF.TPP	;Save the type
		$CALL	P$SWIT			;Get the switch for signon/no- required
 WIT
	;**;[75]Replace 3 lines with 7 lines at Q$DEFINE:+20L  DRB  1/11/85
		CAIN	S1,.KYSNA		;[75]Was it SNA
		MOVX	T1,DF.SNA		;[75]SNA
		JUMPE	T1,.RETF		;[75]Error..return false
		STORE	T1,DEF.TY(P3),DF.TPP	;[75]Save the type
		CAIN	S1,.KYSNA		;[75]Was it SNA
		JRST	DEFI.3			;[75]Yes, skip E/T processing
		$CALL	P$SWIT			;[75]Get the switch for signon/no- required
 REP 52/56	;10C10
		MOVX	S1,.DFBLK		;DEFINE BLOCK
 WIT
	;**;[75]Change 1 line at DEFI.1:+16L  DRB  1/11/85
	DEFI.2:	MOVX	S1,.DFBLK		;[75]Define block
 INS 56/56	;10C11
	;**;[75]Add 25 lines at DEFI:+19L  DRB  1/11/85
	DEFI.3:					;[75]Here when processing SNA type node
		SETZ	T1,			;[75]Zero the Emulation/Termination fields
		STORE	T1,DEF.TY(P3),DF.FLG	;[75]SIGNON Flag
		MOVEM	T1,DEF.MD(P3)		;[75]The Mode
		MOVEM	T1,DEF.PT(P3)		;[75]The Port Number
		MOVEM	T1,DEF.LN(P3)		;[75]The Line Number
	DEFI.4:	$CALL	P$KEYW			;[75]Get a keyword
		JUMPF	DEFI.2			;[75]Not a keyword, try to finish up
		CAIN	S1,.KYGWY		;[75]Was it GATEWAY?
		JRST	DEFI.5			;[75] Yes, go process it
		CAIE	S1,.KYACC		;[75]Was it ACCESS-NAME?
		JRST	.RETF			;[75] No, ERROR
		$CALL	P$FLD			;[75]Get the Access Name
		HRLI	S1,1(S1)		;[75]Start of text
		HRRI	S1,DEF.AN(P3)		;[75]Where to save it
		CAILE	S2,4			;[75]Don't take more than 3 words of data
		JRST	.RETF			;[75] ERROR if longer
		ADDI	S2,DEF.AN-2(P3)		;[75]Last word of destination block
		BLT	S1,(S2)			;[75]Save the Access Name
		JRST	DEFI.4			;[75]Loop for another keyword

	DEFI.5:					;[75]Here to process GATEWAY
		$CALL	P$NODE			;[75]Get a node
		$RETIF				;[75]Error return
		MOVEM	S1,DEF.GW(P3)		;[75]Save the Gateway Node
		JRST	DEFI.4			;[75]Loop for more
 SUM 233162