Google
 

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