Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
qsrdsp.c08
There is 1 other file named qsrdsp.c08 in the archive. Click here to see a list.
REP 23/3 ;08C1
BYTPTR: BLOCK 1 ;BYTE POINTER FOR $TEXT ROUTINE.
WIT
;**;[1206]ADD 1 LINE AFTER NODE6B: 20-APR-84/CTK
KLUDGE: BLOCK 1 ;[1206]KLUDGE FLAG TO HANDLE SHO Q CONFLICTS
BYTPTR: BLOCK 1 ;BYTE POINTER FOR $TEXT ROUTINE.
INS 25/7 ;08C2
;**;[1177]ADD 2 LINES AT STPR.1:+8L 9-MAR-84/CTK
SKIPE NOROOM ;[1177]ROOM IN THE CURRENT BUFFER ?
PUSHJ P,PAGOVF ;[1177]NO,,SEND CURRENT AND CONTINUE
REP 38/9 ;08C3
SKIPN S2,OBJ.ND(S2) ;IF NO NODES,
JRST CHKO.1 ;WIN,,CHECK FOR DN60 EMULATION
CAME S2,[-1] ;IF ALL NODES,
CAMN S2,NETNAM(P1) ; OR IF WE MATCH BY NAME,
SKIPA ;THEN CHECK FOR DN60 EMULATION
CAMN S2,NETNBR(P1) ;IF WE MATCH BY NODE NUMBER,
SKIPA ;THEN CHECK FOR DN60 EMULATION
$RETF ;ELSE RETURN FALSE
WIT
;**;[1206]REVAMP CODE AT CHKO.0:+6L 20-APR-84/CTK
MOVE S2,OBJ.ND(S2) ;[1206]GET THIS OBJECT NODE
CAMN S2,[-1] ;[1206]IS IT ALL NODES?
JRST CHKO.1 ;[1206]YES, SKIP THIS
MOVE S1,OBJNOD(T1) ;[1206]GET THE OBJECTS NODE NAME
$CALL N$MTCH ;[1206]CHECK FOR MATCH
$RETIF ;[1206]QUIT IF NOT THIS ONE
INS 9/15 ;08C4
;**;[1206]ADD 1 LINE AT NRM.1:+1L 20-APR-84/CTK
SKIPN S1,NETCOL(P1) ;[1206]GET NODE NUMBER, IS IT 0 ???
REP 37/20 ;08C5
STAP.Z: SKIPN S1,.UCBVS(P1) ;GET VSL ADDRESS JUST IN CASE
JRST STAP.5 ;NO OWNER,,SKIP THIS
MOVE AP,.VSMDR(S1) ;GET THE OWNER MDR ADDRESS
WIT
STAP.Z: SKIPN T1,.UCBVS(P1) ;[1173] GET VSL ADDRESS JUST IN CASE
JRST STAP.5 ;NO OWNER,,SKIP THIS
MOVE AP,.VSMDR(T1) ;[1173] GET THE OWNER MDR ADDRESS
REP 43/20 ;08C6
$TEXT(DEPBYT,<^D6R /.QERID(S2)/ ^I/MNTUSR/ ^15/.MRFLG(AP),MR.QUE/^A>)
WIT
$TEXT(DEPBYT,<^D6R /.QERID(S2)/ ^I/MNTUSR/ ^15/.VSRFL(T1),MR.QUE/^A>) ;[1173]
INS 10/27 ;08C7
$SAVE <T1> ;[1173]
REP 24/27 ;08C8
MOVE S1,0(P2) ;AIM AT THE VSL
SKIPN S1,.VSMDR(S1) ;BACK UP TO THE MDR
WIT
MOVE T1,0(P2) ;[1173] AIM AT THE VSL
SKIPN S1,.VSMDR(T1) ;[1173] BACK UP TO THE MDR
REP 36/27 ;08C9
$TEXT (<-1,,G$MSG>,< (^15/.MRFLG(P4),MR.QUE/^0)>) ;Get type for trailer
WIT
$TEXT (<-1,,G$MSG>,< (^15/.VSRFL(T1),MR.QUE/^0)>) ;[1173] Get type for trailer
REP 24/34 ;08C10
TXNN P1,VL.ASN ;DOES THE USER HAVE IT MOUNTED ???
JRST SMTS.1 ;NO,,MAKE IT WAITING
LOAD T1,.VLFLG(P2),VL.STA ;GET THE VOLUME STATUS
WIT
LOAD T1,.VLFLG(P2),VL.STA ;[1164] GET THE VOLUME STATUS
TXNN P1,VL.ASN ;DOES THE USER HAVE IT MOUNTED ???
JRST SMTS.1 ;NO,,MAKE IT WAITING
REP 32/34 ;08C11
CAXN T1,%STAWT ;IS IT 'WAITING' ???
SMTS.1: $ASCII (<Waiting >) ;YES,,SAY SO
WIT
POPJ P, ;[1164] RETURN
SMTS.1: CAXN T1,%STAWT ;[1164] IS IT 'WAITING' ???
$ASCII (<Waiting >) ;YES,,SAY SO
CAXN T1,%STAIN ;[1164] IS IT 'INITIALIZING'???
$ASCII (<Initial >) ;[1164] YES,,SAY SO
REP 78/34 ;08C12
$TEXT (DEPBYT,<^D6R /.VSRID(P1),VS.RID/ ^D4R /S1/ ^T20/G$MSG/ ^15/.MRFLG(AP),MR.QUE/>)
WIT
$TEXT (DEPBYT,<^D6R /.VSRID(P1),VS.RID/ ^D4R /S1/ ^T20/G$MSG/ ^15/.VSRFL(P1),MR.QUE/>) ;[1173]
REP 112/34 ;08C13
TXNE T1,VS.SCR!VS.NEW ;ARE THE SCRATCH OR NEW BITS ON?
WIT
TXNE T1,VS.NEW!VS.INI ;[1164] REINITIALIZING?
JRST SMNA.2 ;[1164] YES,,JUMP OVER SCRATCH STUFF
TXNE T1,VS.SCR ;[1164] NO,,IS THE SCRATCH BIT ON?
REP 117/34 ;08C14
CAIN S1,%LABEL ;YES
$TEXT (DEPBYT,< Initialize new tape with volume-id: ^W/.VLNAM(P2)/ protection: ^O3/.VSATR(P1),VS.PRT/>)
WIT
CAIN S1,%LABEL ;[1164] YES
$TEXT (DEPBYT,< Initialize new/scratch tape: - Volume-id: ^W/.VLNAM(P2)/ - Protection: ^O3/.VSATR(P1),VS.PRT/>) ;[1164]
$RETT ;[1164] GO AWAY
SMNA.2: LOAD S1,.VSCVL(P1),VS.CNT ;[1164] GET NUMBER OF VOLS
CAIE S1,1 ;[1164] ONLY 1 VOL?
SKIPA T1,[BYTE (7) "s",0,0,0,0] ;[1164] NO
SETZM T1 ;[1164] YES
$TEXT (DEPBYT,< Reinitializing ^D/S1/ volume^T/T1/>) ;[1164]
REP 3/41 ;08C15
DEPOUT: SKIPN NODE6B ;CHECK FOR KLUDGE
WIT
DEPOUT:
;**;[1206]ADD 1 LINE DEPOUT:+0L 20-APR-84/CTK
SKIPN KLUDGE ;[1206]CHECK FOR KLUDGE
INS 43/41 ;08C16
;**;[1206]ADD 1 LINE AT DEPBAT:+3L 20-APR-84/CTK
SKIPE KLUDGE ;[1206]CHECK FOR KLUDGE
REP 33/51 ;08C17
MOVEI S1,.QEROB(AP) ;GET THE REQ OBK BLK ADDRESS
SETZM S2 ;NO OBJECT MATCH
PUSHJ P,N$CSTN## ;PERFORM ANY ROUTING
PUSHJ P,N$LOCL## ;IS IT A LOCAL NODE ???
WIT
;**;[1156] Insert 5 lines and 2 labels after DMPS.3+1L. 7-Nov-83 /LWS
SKIPE JOBACT ;[1156] JOB ACTIVE?
JRST DMPS3A ;[1156] YES,,GO CHECK ROUTING
MOVE S1,.QEROB+.ROBND(AP) ;[1156] NO,,GET NODE NAME
PUSHJ P,N$NODE ;[1156] CHECK IT OUT
JRST DMPS3B ;[1156] CONTINUE
DMPS3A: MOVEI S1,.QEROB(AP) ;[1156] GET THE REQ OBK BLK ADDRESS
SETZM S2 ;NO OBJECT MATCH
PUSHJ P,N$CSTN## ;PERFORM ANY ROUTING
DMPS3B: PUSHJ P,N$LOCL## ;[1156] IS IT A LOCAL NODE ???
REP 39/53 ;08C18
DMPS.7: DMOVE S1,LASTPT ;GET THE LAST BYTPTR AND BYTCNT
SKIPE CRLFLG ;ARE WE STILL AT THE START OF THE LINE
DMOVEM S1,BYTPTR ;YES,,RESET THE BYTPTR AND BYTCNT
SKIPN CRLFLG ;SKIP IF WE DONT NEED A CRLF
WIT
DMPS.7:
;**;[1200]REVAMP CODE AT DMPS.7:+0L 11-MAR-84/CTK
SKIPN CRLFLG ;[1200]START OF THE LINE ??
JRST DMPS.8 ;[1200]NO, OUTPUT A CRLF
MOVX S1,.CHNUL ;[1200]YES, GET A NULL CHARACTER
DPB S1,BYTPTR ;[1200]CLEAR TAB IN BUFFER
DMOVE S1,LASTPT ;[1200]GET THE LAST BYTPTR AND BYTCNT
DMOVEM S1,BYTPTR ;[1200]RESET THE BYTPTR AND BYTCNT
$RETT ;[1200]AND RETURN
REP 68/55 ;08C19
GETP.2: MOVE T1,NODE6B ;GET /NODE
WIT
GETP.2:
;**;[1206]ADD 1 LINE AT GETP.2:+0L 20-APR-84/CTK
SETOM KLUDGE ;[1206]TURN OFF KLUDGE
MOVE T1,NODE6B ;GET /NODE
REP 77/55 ;08C20
SETZM NODE6B ;FLAG KLUDGE
WIT
;**;[1206]ADD 1 LINE AT GETP.2:+10L 20-APR-84/CTK
SETZM KLUDGE ;[1206]FLAG KLUDGE
SUM 103414