Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
srtuuo.c08
There is 1 other file named srtuuo.c08 in the archive. Click here to see a list.
REP 2/1 ;08C1
SUBTTL D.M.NIXON/DMN/DZN/BRF/GCS 20-Aug-82
WIT
SUBTTL D.M.NIXON/DMN/DZN/BRF/GCS 22-Jun-83
REP 32/5 ;08C2
SETZB P1,P2 ;[503] CLEAR COUNTERS.
MOVEI T2,777 ;[503]
WIT
;**;[516] @DEFCOR) + 27L Correct edit 503. DMN 22-Jun-83
SETZ P2, ;[516] CLEAR NON-CONTIGUOUS PAGES COUNTER.
AOS P1,.JBREL## ;[516] GET HIGHEST CONTIGUOUS LOWSEG ADDRESS +1
LSH P1,-<POW2(PGSIZ)> ;[516] CONVERT TO PAGE NUMBER
HRLZI T2,-1000(P1) ;[516] FORM AOBJN COUNTER FOR REST OF PAGES
HRR T2,P1 ;[516] START SCAN AT FIRST PAGE ABOVE .JBREL
REP 37/5 ;08C3
AOJA P1,DEFCR2 ;[503] ASSUME IT EXISTS.
TLNE T1,PA.GNE/1000000 ;[503] DOES THIS PAGE EXIST?
SOJGE T2,DEFCR1 ;[503] NO.
TLNN T1,PA.GHI/1000000 ;[503] PAGE IN HIGH SEGMENT?
AOJA P1,DEFCR2 ;[503] NO - COUNT AS NON-H.S.
AOJ P2, ;[503] YES - COUNT IT AS H.S.
DEFCR2: SOJGE T2,DEFCR1 ;[503] ARE WE FINISHED?
IMULI P1,PGSIZ ;[503] CONVERT PAGES TO WORDS.
IMULI P2,PGSIZ ;[503] DITTO.
IFN FTKI10!FTKL10!FTDEBUG!FTCOBOL!FTFORTRAN,< ;[C29]
ADD P1,P2 ;[C20] [C13] INCLUDE HI-SEGEMENT SIZE
>
WIT
TRNA ;[516] [503] ASSUME IT EXISTS.
TXNN T1,PA.GNE ;[516] [503] DOES THIS PAGE EXIST?
ADDI P2,1 ;[516] YES, COUNT IN HISEG OR NON-CONTIGUOUS LOWSEG
AOBJN T2,DEFCR1 ;[516] [503] ARE WE FINISHED?
IMULI P1,PGSIZ ;[503] CONVERT PAGES TO WORDS.
IMULI P2,PGSIZ ;[503] DITTO.
ADD P1,P2 ;[516] TOTAL PAGES IN USE
REP 148/5 ;08C4
IFN LOWORG,<
SUBI P1,<<LOWEND/PGSIZ>-<LOWORG/PGSIZ>+1>*PGSIZ ;[C29]
>
IFN FTVM,<
SKIPE FORRET ;CALLED BY FORTRAN?
SUBI P1,FSORTSZ ;YES, SUBTRACT SIZE OF FSORT
>
IFN FTKI10!FTKL10!FTDEBUG!FTCOBOL!FTFORTRAN,< ;[C29]
SUB P1,P2 ;[C20] [C13] DISCOUNT HI-SEGMENT SIZE
>
WIT
;**;[516] @DEFCOR) + 142L Replace 9 lines with 1. DMN 22-Jun-83
SUB P1,P2 ;[516] REMOVE HISEG AND NON-CONTIGUOUS LOWSEG
SUM 221417