Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrmac.c10
There are 2 other files named qsrmac.c10 in the archive. Click here to see a list.
REP 45/1 ;10C1
QSREDT==1231 ;EDIT NUMBER
WIT
QSREDT==1236 ;EDIT NUMBER
INS 682/12 ;10C2
1232 QUASAR Resolve race-conditions that cause "?Unrecognized message from
QSRT20 QUASAR" from MOUNT requests and "?Error in response from
QSRMDA QUASAR" from INFORMATION (on) VOLUMES commands. GCO 4.2.1597
1233 QSRDSP If the last character in an INFORMATION OUTPUT or INFORMATION
BATCH message page is a TAB, replace it with a NULL.
1234 Add support for SNA Workstations.
QSRMAC Define bit OBSSNA for SNA printers and punches
Define flag NETSNA for SNA Workstations
Define a Node Attribute Block for SNA Workstation Nodes
Define a Node Object Block for SNA Workstation objects
QSRADM Process START NODE command for SNA Workstation
Process SHUTDOWN NODE command for SNA Workstation
Process SET NODE command for SNA Workstation
Process SET ... DESTINATION command for SNA Workstation
printers and punches
Process DEFINE NODE command for SNA Workstation
QSRDSP Add code to SHOW PARAMETERS for SNA Workstation
Add code to show DESTINATION for SNA printers and punches
QSRMDA Add table entry for SNA object type
QSRNET Add code to handle SNA Workstation going online/offline
Add code to delete NAB and NOB when SNA Node is purged
QSRQUE Add table entry for SNA object type
QSRSCH Add code to build SETUP message for starting SNA Workstation
Do not allow requests to be scheduled for SNA Workstation
printers and punches.
1235 QSRT20 Increase the size of buffer DIRCTY to decimal 10 to prevent
routine I$NFJB from being overwritten when archiving or
retriving files with directory/structure strings in excess
of 40. characters.
1236 QSRMAC Check for valid rebuild codes when initializing the failsoft
QSRFSS system and allocating space for a request in the failsoft file.
INS 25/25 ;10C3
;**;[1234]Add 1 line at OBSFRM DRB 1/11/85
OBSSNA==1B16 ;[1234]Object belongs to SNA Workstation
REP 15/30 ;10C4
; ! ROUTE ENTRY NAME !
; !-------------------------------------------------------!
WIT
;**;[1234]Delete 2 lines at ROUTE ENTRY NAME DRB 1/11/85
REP 54/30 ;10C5
WIT
;**;[1234]Add 1 line at NETPRO DRB 1/11/85
NETSNA==1B8 ;[1234]Node is SNA Workstation
INS 8/31 ;10C6
;**;[1234]Add 1 line at DF.HSP DRB 1/11/85
DF.SNA==4 ;[1234]SNA node
REP 12/31 ;10C7
NT.TOU==7,,0 ;PROTOCOL TIMEOUT CATAGORY
WIT
NT.TOU==7,,0 ;PROTOCOL TIMEOUT CATAGORY
INS 25/31 ;10C8
;**;[1234]Add 7 lines at NETCLM DRB 1/11/85
NETDAT:! BLOCK 6 ;[1234]NODE DATA
NETSIZ:! ;[1234]
DEPHASE
;[1234]
;[1234]FOR IBM EMULATION/TERMINATION (DN60) TYPE NODES
;[1234]
PHASE NETDAT
REP 34/31 ;10C9
NETSIZ:!
WIT
;**;[1234]Replace 1 line with 68 lines DRB 1/11/85
DEPHASE
;[1234]
;[1234]FOR SNA WORKSTATION TYPE NODES
;[1234]
PHASE NETDAT
NETGWY:! BLOCK 1 ;[1234]SNA gateway name (SIXBIT)
NETACC:! BLOCK 3 ;[1234]Access name
NETNAB:! BLOCK 1 ;[1234]SNA node attribute block
NA.LEN==-1,,0 ;[1234]Node attribute block size
NA.ADR==0,,-1 ;[1234]Node attribute block address
NETNOB:! BLOCK 1 ;[1234]SNA node object list
INS 1/32 ;10C10
SUBTTL NODE ATTRIBUTE BLOCK (for SNA Workstations)
; !=======================================================! ;[1234]
; / / ;[1234]
; / LOGON DATA / ;[1234]
; / / ;[1234]
; !-------------------------------------------------------! ;[1234]
; / / ;[1234]
; / LOGON MODE / ;[1234]
; / / ;[1234]
; !-------------------------------------------------------! ;[1234]
; / / ;[1234]
; / APPLICATION / ;[1234]
; / / ;[1234]
; !-------------------------------------------------------! ;[1234]
; / / ;[1234]
; / CIRCUIT / ;[1234]
; / / ;[1234]
; !-------------------------------------------------------! ;[1234]
; / / ;[1234]
; / TRANSLATION FILE / ;[1234]
; / / ;[1234]
; !=======================================================! ;[1234]
PHASE 0
NABDAT:! BLOCK 7 ;[1234]Logon data (ASCIZ)
NABLOM:! BLOCK 2 ;[1234]Logon mode (ASCIZ)
NABPLU:! BLOCK 2 ;[1234]Application (ASCIZ)
NABCIR:! BLOCK 2 ;[1234]Circuit (ASCIZ)
NABCHS:! BLOCK FDXSIZ ;[1234]Character translation file
NABSIZ:! ;[1234]
DEPHASE
SUBTTL NODE OBJECT BLOCK (for SNA Workstations)
; !=======================================================! ;[1234]
; ! OBJECT TYPE ! ;[1234]
; !-------------------------------------------------------! ;[1234]
; ! OBJECT UNIT ! ;[1234]
; !-------------------------------------------------------! ;[1234]
; ! OBJECT NODE ! ;[1234]
; !-------------------------------------------------------! ;[1234]
; ! SNA FLAGS ! ;[1234]
; !-------------------------------------------------------! ;[1234]
; / / ;[1234]
; ! DESTINATION SPECIFICATION ! ;[1234]
; / / ;[1234]
; !=======================================================! ;[1234]
PHASE 0
NOBOBJ:! BLOCK OBJ.SZ ;[1234]Object Block
NOBTYP==NOBOBJ ;[1234] Type
NOBUNI==NOBOBJ+1 ;[1234] Unit
NOBNOD==NOBOBJ+2 ;[1234] Node
NOBFLG:! BLOCK 1 ;[1234]Flags
NOBSPL==1B0 ;[1234] /SPOOL
NOBNTL==1B1 ;[1234] /NOTRANSLATE
DSTSIZ==^D100/^D5 ;[1234]Reserve room for 100 characters
NOBDST:! BLOCK DSTSIZ ;[1234]Destination specification
NOBSIZ:!
DEPHASE
INS 65/47 ;10C11
;**;[1234]Add 5 lines at .FPRCD:+1L DRB 1/11/85
PHASE 1 ;[1234]Batch queue (for SNA Workstations)
.FPINF:! BLOCK 1 ;[1234]FP information
FP.TAB==1B24 ;[1234]Preserve tabs
FP.NXL==1B25 ;[1234]No Translate
FP.RCL==777B35 ;[1234]Record length (for fixed format)
INS 40/63 ;10C12
;**;[1234]Add 3 lines at SUP.ST:+1L DRB 1/11/85
SUP.GW:! BLOCK 1 ;[1234]Gateway node in sixbit
SUP.AN:! BLOCK 3 ;[1234]Access name
SUP.AB:! BLOCK NABSIZ ;[1234]SNA attribute block
INS 53/83 ;10C13
;**;[1234]Add 7 lines at .QCFRR+8L DRB 1/11/85
.QCSNA==42 ;FILE FORMAT BLOCK (SNA-WORKSTATIONS)
; !-------------------------------------------------------!
; ! BLOCK LENGTH (2) ! .QCSNA !
; !-------------------------------------------------------!
; ! THE FILE FORMAT TYPE (SEE .FPINF) !
; !-------------------------------------------------------!
REP 42/108 ;10C14
%RBBAT==1 ;BATCH JOB (INP, LPT, PLT, ...)
%RBDEL==2 ;DELETED FILES
WIT
;**;[1236]Add 1 line before %RBBAT JCR 1/29/85
%RBMIN==1 ;[1236]Minimum valid code number
%RBBAT==1 ;BATCH JOB (INP, LPT, PLT, ...)
%RBDEL==2 ;DELETED FILES
;**;[1236]Add 1 line after %RBDEL
%RBMAX==%RBDEL ;[1236]Maximum valid code number
SUM 231656