Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
filuuo.c08
There is 1 other file named filuuo.c08 in the archive. Click here to see a list.
INS 41/111 ;08C1
PUSHJ P,FIXUSD ;FIX RIBUSD
DEL 27/134 ;08C2
MOVE P1,T1 ;SAVE AOBJN WORD FOR THE PNTRS IN THE MON BUF
REP 31/134 ;08C3
PUSHJ P,UPDGIV ;GIVE UP SOME BLOCKS
WIT
PUSHJ P,UPDGV9 ;GIVE UP SOME BLOCKS
DEL 7/184 ;08C4
MOVE P1,T1 ;SAVE AOBJN POINTER IN P1
REP 11/184 ;08C5
PUSHJ P,UPDGIV ;GO DEALLOCATE SOME BLOCKS
WIT
PUSHJ P,UPDGV9 ;GO DEALLOCATE SOME BLOCKS
INS 7/189 ;08C6
;HERE WITH T1=AOBJN
UPDGV9: MOVE P1,T1 ;PUT IT IN A SAFE PLACE
AOBJN T1,UPDGIV ;LAST RTP IN RIB?
AOS DEVBLK##(F) ;YES, SCNPTR LEFT DEVLFT ONE TOO LOW
;COMPENSATE BY BUMPING DEVBLK
;HERE WITH P1=AOBJN
INS 24/200 ;08C7
;ROUTINE TO FIX THE VALUE OF RIBUSD IN THE RIB
;(ONLY THE VALUE IN UFBTAL IS KNOWN TO BE RIGHT)
;RESPECTS ALL ACS EXCEPT T1
FIXUSD: HLRZ T1,DEVEXT(F) ;RIBUSD IS ONLY MEANINGFUL FOR UFD
CAIE T1,'UFD'
POPJ P,
PUSHJ P,SAVT##
PUSHJ P,FNDUFB ;FIND THE UFB
POPJ P, ;NOT THERE
MOVE T1,.USMBF ;%GET QUOTA FROM RIB
MOVE T3,RIBQTF##+1(T1)
SUB T3,UFBTAL##(T2) ;%MINUS AMOUNT LEFT
MOVEM T3,RIBUSD##+1(T1);%GIVES AMOUNT USED
PJRST GVCBJ## ;%GIVE UP CB
REP 11/206 ;08C8
UPDER8: IFN FTDMRB,<POP P,(P)> ;FIXSTACK
WIT
UPDER8:
IFN FTDMRB,<
POP P,(P) ;FIX STACK
PUSHJ P,INPSW8 ;USETI TO BLOCK ONE
>
SUM 197036