Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
ibmspl.c09
There are 13 other files named ibmspl.c09 in the archive. Click here to see a list.
REP 21/3 ;09C1
XP IBMEDT, 361 ; Edit level
WIT
XP IBMEDT, 364 ; Edit level
REP 455/4 ;09C2
4(356) 16-Jan-84 GKN SPR 10-34449. Security problem. IBMSPL doesn't
WIT
4(356) 16-Jan-84 GKN SPR 10-34449. Security problem. IBMSPL doesn't
REP 459/4 ;09C3
4(357) 23-Jan-84 GKN SPR 10-34425. Fix off-by-1 problem in the VOUTX
WIT
4(357) 23-Jan-84 GKN SPR 10-34425. Fix off-by-1 problem in the VOUTX
INS 466/4 ;09C4
4(362) 18-May-84 DRB At LPTJOB: change call to INIPAG so that AC S
does not get lost
4(363) 18-May-84 DRB Prevent restarting a node if a previous
shutdown has not yet completed.
4(364) 24-Sep-84 TPW Fix edit 356 to prevent access violation
using /DELETE switch with control files.
REP 40/34 ;09C5
JUMPF SETSN1 ; If we can't, send error to QUASAR
WIT
JUMPF SETCHK ; [363] Can't
INS 139/34 ;09C6
SETCHK: ; [363] Here on failure to set up
; line block
JUMPE LB,SETSN1 ; [363] If no LB, fail now.
LOAD S1,,L.STS ; [363] Get line status
TXNN S1,L.SFR ; [363] Is signoff pending
JRST SETSN1 ; [363] No
SETZ LB,0 ; [363] Yes, don't force shutdown now
$WTOJ <failed to restart node>,<previous SHUTDOWN still in progress for node ^N/SUP.NO(P1)/>,SUP.TY(P1) ; [363]
JRST SETSN1 ; [363]
REP 91/53 ;09C7
LOAD S1,.FPINF(P2),FP.DEL ;check switches
JUMPE S1,DOJB4A ;no delete request anyhow
PUSH P,P3 ;user requested delete of batch file
MOVEI S1,1 ;short FOB
MOVEI S2,(P) ; on the pdl
$CALL F%DEL ;delete the sucker
POP P,P3 ;carefully restore the pdl
WIT
TXNE GOODBY!ABORT ;[364] Aborting job?
JRST DOJB4A ;[364] Then don't process switches
LOAD S1,.FPINF(P2),FP.DEL ;check switches
JUMPE S1,DOJB4A ;no delete request anyhow
MOVEM P3,FOB ;[364] Save the FD ptr
MOVE S1,FOB.CW ;[364] Get the control info
MOVEM S1,FOB+FOB.CW ;[364] Put it in our FOB area
TOPS20< HRROI S1,.EQOWN(J) ;[364] User name from request header
HRROI S2,.EQCON(J) ;[364] Connected directory
>;End TOPS-20
TOPS10< MOVE S1,.EQOID(J) ;[364] PPN from request header
SETZM S2 ;[364] FOB.CD not used in Tops-10
>;End TOPS-10
MOVEM S1,FOB+FOB.US ;[364] Put user info in our FOB
MOVEM S2,FOB+FOB.CD ;[364] and connected directory
MOVEI S1,FOB.SZ ;[364] Size of the block
MOVE S2,.EQJBB+JIB.SQ(J) ;[364] Get word with possible priv bit
TXNE S2,EQ.PRV ;[364] Is priv bit set?
MOVEI S1,FOB.MZ ;[364] Yes..pass the short FOB
MOVEI S2,FOB ;[364] Address of block
$CALL F%DEL ;delete the sucker
REP 20/57 ;09C8
LPTJOB: $CALL INIPAG ; Initialize job pages so TEXT calls work
WIT
LPTJOB: STORE S,S+T%ACS ; [362] store S in AC block because
; INIPAG updates it there
$CALL INIPAG ; [362] make sure pages are set up
LOAD S,S+T%ACS ; [362] restore updated S
JUMPF .POPJ ; [362] propagate error if we cannot
LOAD J,J+T%ACS ; [362] get pointer to pages
INS 68/73 ;09C9
SETZ LB,0 ; [363] Line block is not valid
REP 9/128 ;09C10
IACTND: skipn s2,debugw ;[361] Check if debug switch on.
WIT
IACTND: SKIPN S2,DEBUGW ;[361] Check if debug switch on.
SUM 12947