Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsrque.c10
There are 2 other files named qsrque.c10 in the archive. Click here to see a list.
INS 15/2 ;10C1
;**;[1230]ADD 1 LINE AT LSTITN:+1L 16-DEC-84/CTK
PRCBLK: BLOCK 1 ;/PROCESS SWITCH FIELD HISTORY
INS 20/14 ;10C2
;**;[1230]ADD 1 LINE AT Q$CRQE:+3L 16-DEC-84/CTK
SETZM PRCBLK ;[1230]CLEAR PROCESS BLOCK FLAG
INS 47/15 ;10C3
;**;[1230]ADD DISPATCH CODE AFTER BLKTBL:+24L 16-DEC-84/CTK
CRQAST,,.QCAST ;[1230]/ASSIST BLOCK
CRQPRC,,.QCPRC ;[1230]/PROCESSING BLOCK - IBMCOM
DEL 50/15 ;10C4
;CTK
REP 29/20 ;10C5
CRQNOD: CAIE T2,1 ;BLOCK LENGTH MUST BE 1
$RETF ;NO,,THATS AN ERROR
;**;[1201]REVAMP AND ADD CODE AT CRQNOD:+2L 30-MAR-84/CTK
SKIPN T4 ;[1201]HE SET IT, SO SKIP THIS
MOVE T4,G$LNBR## ;[1201]DEFAULT, TO LOCAL NODE NUMBER
;**;[1216]CHANGE 1 LINE AT CRQNOD:+4L 11-JUL-84/CTK
STOLIM T4,.EQLIM(P1),ONOD ;[1216]LET'S SAVE A NAME/NUMBER
TLNN T4,600000 ;[1201]IS IT BINARY ?
JRST .RETT ;[1201]YES, DON'T CONVERT AND RETURN
MOVE S1,T4 ;[1201]GET NODE NAME/NUMBER
PUSHJ P,N$GNOD## ;[1201]LET'S FIND THE NODE
JUMPF .RETT ;[1201]DID WE FIND THE NODE ???
MOVE S1,NETNBR(S2) ;[1201]YES, GET THE NUMBER
SKIPE S1 ;[1201]IS THERE A VALID NODE NUMBER ?
;**;[1216]CHANGE 1 LINE AT CQND.1:+0L 11-JUL-84/CTK
CQND.1: STOLIM S1,.EQLIM(P1),ONOD ;[1216]YES, SAVE IT IN THE EQ
$RETT ;AND RETURN
CRQNAM: CAILE T2,EQNMSZ ;SIZE MUST BE VALID
$RETF ;ELSE THATS AN ERROR
MOVEI S1,.EQOWN(P1) ;GET THE DESTINATION ADDRESS
ADDI T2,-1(S1) ;GET THE END ADDRESS
HRL S1,T3 ;GET THE SOURCE ADDRESS
BLT S1,0(T2) ;COPY IT OVER
$RETT ;AND RETURN
CRQOID: CAIE T2,1 ;BLOCK LENGTH MUST BE 1
$RETF ;NO,,THATS AN ERROR
STORE T4,.EQOID(P1) ;SAVE THE USER NUMBER
$RETT ;AND RETURN
WIT
;**;[1230]ADD AND REVAMP CODE AT CRQNOD:+0L 16-DEC-84/CTK
CRQNOD: CAIE P2,.QHTIP ;[1230]INPUT QUEUE CREATE ??
JRST CQPC.1 ;[1230]NO, GO WRITE THE ROB WORD
CAIE T2,1 ;[1230]BLOCK LENGTH MUST BE 1
$RETF ;[1230]NO, THATS AN ERROR
MOVE S1,G$LNBR## ;[1230]DEFAULT, TO LOCAL NODE NUMBER
SKIPN PRCBLK ;[1230]PREVIOUS .QBPRC BLOCK ???
STORE S1,.EQROB+.ROBND(P1) ;[1230]NO, SAVE PROCESS NODE INFO
SKIPN T4 ;[1230]HE SET IT, SO SKIP THIS
MOVE T4,G$LNBR## ;[1230]DEFAULT, TO LOCAL NODE NUMBER
STOLIM T4,.EQLIM(P1),ONOD ;[1230]YES, SAVE IN LIMIT WORDS
TLNN T4,600000 ;[1230]IS IT BINARY ?
$RETT ;[1230]YES, DON'T CONVERT AND RETURN
MOVE S1,T4 ;[1230]NO, GET NODE NAME/NUMBER
PUSHJ P,N$GNOD## ;[1230]LET'S FIND THE NODE
JUMPF .RETT ;[1230]DID WE FIND THE NODE ???
SKIPE S1,NETNBR(S2) ;[1230]YES, GET THE NUMBER IF ANY
STOLIM S1,.EQLIM(P1),ONOD ;[1230]SAVE IN THE LIMIT WORDS
$RETT ;[1230]AND RETURN
INS 3/21 ;10C6
CRQPRC: CAIE P2,.QHTIP ;[1230]INPUT QUEUE CREATE ??
$RETF ;[1230]NO, TAKE ERROR RETURN
SETOM PRCBLK ;[1230]REMEMBER WE CAME THIS WAY
CQPC.1: CAIE T2,1 ;[1230]BLOCK LENGTH MUST BE 1
$RETF ;[1230]NO, THATS AN ERROR
SKIPN T4 ;[1230]HE SET IT, SO SKIP THIS
MOVE T4,G$LNBR## ;[1230]DEFAULT, TO LOCAL NODE NUMBER
STORE T4,.EQROB+.ROBND(P1) ;[1230]NO, SAVE THE NODE NAME/NUMBER
TLNN T4,600000 ;[1230]IS IT BINARY ?
$RETT ;[1230]YES, DON'T CONVERT
MOVE S1,T4 ;[1230]NO, GET NODE NAME/NUMBER
PUSHJ P,N$GNOD## ;[1230]LET'S FIND THE NODE
JUMPF .RETT ;[1230]DID WE FIND THE NODE ???
SKIPE S1,NETNBR(S2) ;[1230]YES, GET THE NUMBER IF ANY
STORE T4,.EQROB+.ROBND(P1) ;[1230]SAVE THE NODE NAME/NUMBER
$RETT ;[1230]NO, RETURN
CRQNAM: CAILE T2,EQNMSZ ;SIZE MUST BE VALID
$RETF ;ELSE THATS AN ERROR
MOVEI S1,.EQOWN(P1) ;GET THE DESTINATION ADDRESS
ADDI T2,-1(S1) ;GET THE END ADDRESS
HRL S1,T3 ;GET THE SOURCE ADDRESS
BLT S1,0(T2) ;COPY IT OVER
$RETT ;AND RETURN
CRQOID: CAIE T2,1 ;BLOCK LENGTH MUST BE 1
$RETF ;NO,,THATS AN ERROR
STORE T4,.EQOID(P1) ;SAVE THE USER NUMBER
$RETT ;AND RETURN
;CONTINUED ON THE NEXT PAGE
;CONTINUED FROM THE PREVIOUS PAGE
INS 22/22 ;10C7
;**;[1230]ADD 8 LINES AT CRQFRR:+9L 22-OCT-84/CTK
CRQAST: CAIN T2,1 ;[1230]BLOCK LENGTH MUST BE 1
CAIE P2,.QHTIP ;[1230]AND QUEUE TYPE MUST BE INPUT
$RETF ;[1230]NO, RETURN NOW
CAIL T4,.OPINY ;[1230]MUST BE EQUAL TO NO
CAILE T4,.OPINN ;[1230] OR YES
$RETF ;[1230]IF NOT, THATS AN ERROR
STOLIM T4,.EQLIM(P1),OINT ;[1230]OK, SAVE THE /ASSIST VALUE
$RETT ;[1230]AND RETURN
SUM 198863