Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
qsrque.c09
There are 2 other files named qsrque.c09 in the archive. Click here to see a list.
REP 34/20 ;09C1
STORE T4,.EQROB+.ROBND(P1) ;[1201]LET'S SAVE A NAME/NUMBER
WIT
;**;[1216]CHANGE 1 LINE AT CRQNOD:+4L 11-JUL-84/CTK
STOLIM T4,.EQLIM(P1),ONOD ;[1216]LET'S SAVE A NAME/NUMBER
REP 42/20 ;09C2
CQND.1: STORE S1,.EQROB+.ROBND(P1) ;OK,,SAVE THE NODE NAME/NUMBER
WIT
;**;[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
REP 16/42 ;09C3
MOVE P1,S2 ;SAVE ADDRESS IN P1
DLFL.1: MOVE S1,DLF.ST(P1) ;GET THE STRUCTURE
JUMPN S1,DLF.1A ;JUMP IF THERE IS ONE
PUSHJ P,DLFSTR ;EXTRACT THE STRUCTURE
WIT
;**;[1212]MOVE LABEL AT Q$DLFL:+4L 29-MAY-84/CTK
DLFL.1: MOVE P1,S2 ;[1212]SAVE ADDRESS IN P1
MOVE S1,DLF.ST(P1) ;[1212]GET THE STRUCTURE
JUMPN S1,DLF.1A ;JUMP IF THERE IS ONE
MOVE S1,DLF.AD(P1) ;[1222]GET THE ADDRESS OF THE PAGE (EQ)
JUMPN S1,DLF.1B ;[1222]JUMP IF IT IS IN CORE
MOVE S1,DLF.DP(P1) ;[1222]GET THE DPA
PUSHJ P,F$RDRQ## ;[1222]AND READ THE REQUEST
MOVEM S1,DLF.AD(P1) ;[1222]SAVE THE ADDRESS
AOS DELNUM ;[1222]INCREMENT THE IN-CORE COUNT
DLF.1B: PUSHJ P,DLFSTR ;[1222]EXTRACT THE STRUCTURE
REP 24/42 ;09C4
MOVE S1,DELLST ;GET LIST NUMBER
WIT
MOVE S1,DLF.AD(P1) ;[1222]GET THE ADDRESS OF THE PAGE (EQ)
JUMPE S1,DLF.1C ;[1222]JUMP IF IT IS NOT IN CORE
SETZM DLF.AD(P1) ;[1222]IT IS NO LONGER IN CORE
PUSHJ P,M%RPAG ;[1222]RETURN THE PAGE
SOS DELNUM ;[1222]DECREMENT THE IN-CORE COUNT
DLF.1C: MOVE S1,DELLST ;[1222]GET LIST NUMBER
REP 34/45 ;09C5
SETZM DLF.ST ;CLEAR THE STR WORD
WIT
SETZM DLF.ST(P1) ;[1222]CLEAR THE STR WORD
SUM 31678