Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrdsp.c10
There are 2 other files named qsrdsp.c10 in the archive. Click here to see a list.
REP 20/2 ;10C1
WIT
;**;[1234]Add 3 lines at DEPDEV:+16L DRB 1/1/85
EXP <.POPJ> ;[1234].OTDBM
EXP <.POPJ> ;[1234].OTFAL
EXP <.POPJ> ;[1234].OTSNA - SNA Workstation
INS 50/2 ;10C2
;**;[1234]Add 3 lines after Min:Max DRB 1/11/85
[ASCIZ/Min:Max Lim./] ;[1234].OTDBM
[ASCIZ/Min:Max Lim./] ;[1234].OTFAL
[ASCIZ/Min:Max Lim./] ;[1234].OTSNA
INS 5/10 ;10C3
;**;[1234]Add 2 lines at CHKO.3:+1L DRB 1/11/85
LOAD S2,NETSTS(P1),NETSNA ;[1234]Is this an SNA Workstation ???
JUMPN S2,CHKO.5 ;[1234]Yes, go do it
REP 12/10 ;10C4
SKIPN OBJPID(T1) ;IS THE SPOOLER SIGN'D ON ???
WIT
;**;[1234]Change 1 line at CHKO.3:+8L DRB 1/11/85
CHKO.4: SKIPN OBJPID(T1) ;IS THE SPOOLER SIGN'D ON ???
INS 43/10 ;10C5
;**;[1234]Add 17 linea at STAHDR:-2L DRB 1/11/85
;[1234]
;[1234]Here when we have an SNA workstation; only send one status request
;[1234]to the spooler since response includes all station devices
;[1234]
CHKO.5: SKIPE SHWTYP ;[1234]Is this 'SHOW STATUS' ?
$RETT ;[1234]Yes, don't send request to spooler
MOVE S1,OBJADR ;[1234]Get message obj block address
SKIPL OBJ.TY(S1) ;[1234]If no object specified (-1)
SKIPGE OBJ.UN(S1) ;[1234]Or no specific unit specified
SKIPA ;[1234]Do more checking
JRST CHKO.4 ;[1234]Otherwise, send message to spooler
MOVE S1,OBJTYP(T1) ;[1234]If -1 was specified
MOVE S2,OBJUNI(T1) ;[1234]Then only send message to spooler
CAIN S1,.OTBAT ;[1234]If this is the master batch stream
CAIE S2,1 ;[1234]
$RETF ;[1234]Return false, we don't want this one
JRST CHKO.4 ;[1234]
REP 47/15 ;10C6
CAME S2,[-1] ;DID WE ASK FOR ALL NODES ???
$ACK (<Node ^N/NODE6B/ is not an IBM remote>,,,.MSCOD(M))
$RETT ;JUST RETURN NOW
WIT
;**;[1234]Replace 4 lines with 1 line at NPRM.5:+5L
PJRST NPRSNA ;[1234]Go look for SNA-Workstations
INS 57/15 ;10C7
;**;[1234]Add 44 lines at NPRM.6:+5L DRB 1/11/85
$CALL SENDIT ;[1234]
MOVE S2,NODE6B ;[1234]Get the node we asked for
CAMN S2,[-1] ;[1234]Did we ask for all nodes
PJRST NPRSNA ;[1234]Yes, Go look for SNA-Workstations
$RETT ;[1234]No, we are done
SUBTTL NPRSNA - ROUTINE TO DISPLAY SNA-WORKSTATION NETWORK PARAMETERS
NPRSNA: SETOM JOBNBR ;[1234]Set node count to -1
LOAD P1,HDRNET##+.QHLNK,QH.PTF ;[1234]Get the first entry
NPRS.1: JUMPE P1,NPRS.5 ;[1234]No more,,go finish up
MOVE S1,NETCOL(P1) ;[1234]Get this nodes name/number
PUSHJ P,CMPNOD ;[1234]Is it one we want ???
JUMPF NPRS.3 ;[1234]No,,try next
MOVE S1,NETCOL(P1) ;[1234]Get the node name/number
PUSHJ P,N$NODE## ;[1234]Find that node in our data base
MOVE P2,S2 ;[1234]Save the entry address
LOAD S1,NETSTS(P2),NETSNA ;[1234]Get this one's type designation
JUMPE S1,NPRS.3 ;[1234]Not SNA,,skip this stuff
AOSG JOBNBR ;[1234]Bump node count.
PUSHJ P,NPSHDR ;[1234]First time,,set up the header
PUSHJ P,CHKLIN ;[1234]Check to see if next line fits
$TEXT (DEPBYT,<^T11/NETASC(P2)/ ^W9/NETGWY(P2)/ ^T11/NETACC(P2)/^A>)
LOAD T1,NETNAB(P2),NA.ADR ;[1234]Get the NAB address
JUMPE T1,NPRS.2 ;[1234]Continue on if none
$TEXT (DEPBYT,< ^T11/NABPLU(T1)/ ^T7/NABCIR(T1)/ ^T10/NABLOM(T1)/^A>)
MOVE T2,NABCHS(T1) ;[1234]Start of character set
SKIPE T2 ;[1234]Skip if node specified
$TEXT (DEPBYT,<^M^J Character set: ^T/NABCHS(T1)/^A>)
NPRS.2: PUSHJ P,CRLF ;[1234]End the line
NPRS.3: LOAD P1,.QELNK(P1),QE.PTN ;[1234]Get the next entry
JRST NPRS.1 ;[1234]And continue
NPRS.5: AOS S1,JOBNBR ;[1234]Get the node count in S1
MOVE S2,NODE6B ;[1234]Get the node we asked for
JUMPG S1,NPRS.6 ;[1234]We had a match somewhere !!!
CAMN S2,[-1] ;[1234]Did we ask for all nodes ???
$ACK (<No SNA-Workstations in system network>,,,.MSCOD(M))
CAME S2,[-1] ;[1234]Did we ask for all nodes ???
$ACK (<Node ^N/NODE6B/ is neither an IBM remote nor an SNA-Workstation>,,,.MSCOD(M))
$RETT
NPRS.6: CAIN S1,1 ;[1234]Is there 1 node ???
$ASCII (<There is 1 SNA-Workstation defined in the network>)
CAILE S1,1 ;[1234]Is there more than 1 ???
$TEXT(DEPBYT,<There are ^D/JOBNBR/ SNA-Workstations defined in the network^A>)
PUSHJ P,CRLF ;[1234]End the line
PUSHJ P,CRLF ;[1234]One more for good luck
INS 11/16 ;10C8
;**;[1234]Add 11 lines at NPRHDR:+7L DRB 1/11/85
;[1234]
;[1234]Header for SNA-Workstations
;[1234]
NPSHDR: MOVEI S1,[ASCIZ/ SNA Workstation Parameters /] ;[1234]Get the heading.
PUSHJ P,SETPAG ;[1234]Set up an output page.
PUSHJ P,CRLF ;[1234]Output a CRLF.
$ASCII (<Workstation Gateway Access Name Application Circuit Logon Mode>)
PUSHJ P,CRLF ;[1234]End the line
$ASCII (<----------- --------- ----------- ----------- ------- ---------->)
PUSHJ P,CRLF ;[1234]End the line
$RETT ;[1234]And return
REP 23/17 ;10C9
WIT
;**;[1234]Add 3 lines at NSTS.1:+1L DRB 1/11/85
LOAD S1,NETSTS(P1),NETSNA ;[1234]Is it an SNA Workstation?
SKIPE S1 ;[1234]No, go try others
$TEXT (DEPBYT,< (SNA Workstation)^A>) ;[1234]Yes, put out SNA indication
REP 30/40 ;10C10
SHPA.1: LOAD S1,OBJPRM+.OOLIM(T1),OBPMIN ;GET MIN OUTPUT LIMIT
LOAD S2,OBJPRM+.OOLIM(T1),OBPMAX ;GET MAX OUTPUT LIMIT
WIT
;**;[1234]Replace 2 lines at SHPA.1: with 14 lines DRB 1/11/85
SHPA.1: LOAD S1,OBJSCH(T1),OBSSNA ;[1234]Is this for SNA Workstation?
JUMPE S1,SHPA.2 ;[1234]No, continue on
PUSHJ P,.SAVE1 ;[1234]Yes, save P1
MOVE P1,T1 ;[1234]Save object address in P1
MOVE S1,OBJNOD(T1) ;[1234]Get the node name
PUSHJ P,N$NODE## ;[1234]Find data base entry
MOVE S1,NETNOB(S2) ;[1234]Get NOB list index
PUSHJ P,FNDNOB## ;[1234]Get the NOB
SKIPF ;[1234]Failed?
PUSHJ P,DSPDST ;[1234]Go display destination field
MOVE T1,P1 ;[1234]Restore object address
PJRST P,CRLF ;[1234]Finish off line and return
SHPA.2: LOAD S1,OBJPRM+.OOLIM(T1),OBPMIN ;[1234]Get min output limit
LOAD S2,OBJPRM+.OOLIM(T1),OBPMAX ;[1234]Get max output limit
INS 52/40 ;10C11
;**;[1234]Add 25 lines at DEPOUT:-2L DRB 1/11/85
SUBTTL DSPDST - DISPLAY SNA PRINTER / PUNCH DESTINATION PARAMETER
;[1234]
;[1234] S1/ address of ojbect entry in NOB list
;[1234]
DSPDST: $TEXT (DEPBYT,< Destination: ^A>)
MOVEI S2,NOBDST(S1) ;[1234]Address of Destination String
HRLI S2,(POINT 7) ;[1234]Make it a pointer
DSP.1: ILDB S1,S2 ;[1234]Get a byte
JUMPE S1,.RETT ;[1234]If null, all done
$CALL DEPBYT ;[1234]Move to message
CAIE S1,"""" ;[1234]See if quote
JRST DSP.1 ;[1234]Keep looking for a "
;[1234]Start of access string found
DSP.2: ILDB S1,S2 ;[1234]Get a byte
JUMPE S1,.RETT ;[1234]If null, all done
$CALL DEPBYT ;[1234]Move to message
CAIE S1," " ;[1234]See if space
JRST DSP.2 ;[1234]Keep looking for a space
$TEXT (DEPBYT,<password"^A>) ;[1234]Fill in password field
DSP.3: ILDB S1,S2 ;[1234]Get a byte
JUMPE S1,.RETT ;[1234]If null, all done
CAIE S1,"""" ;[1234]See if quote
JRST DSP.3 ;[1234]Keep looking for a quote
$TEXT (DEPBYT,<^Q/S2/^A>) ;[1234]Finish off string
$RET ;[1234]
REP 7/49 ;10C12
SENDIT: HRRZ S1,BYTPTR ;GET FINAL MESSAGE ADDRESS.
WIT
;**;[1233]Replace 1 line with 6 lines at SENDIT:+0L JCR 11/20/84
SENDIT: MOVE S2,BYTPTR ;[1233]Pick up the byte pointer
ILDB S1,S2 ;[1233]Pick up the last character
CAIN S1,11 ;[1233]Is it a TAB?
SETZM S1 ;[1233]Yes, change to a NULL
DPB S1,S2 ;[1233]And replace
HRRZ S1,BYTPTR ;[1233]Get final message address.
SUM 138522