Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/glxmem.c14
There is 1 other file named glxmem.c14 in the archive. Click here to see a list.
REP 29/1 ;14C1
MEMMAN==:27 ;Maintenance edit number
WIT
MEMMAN==:47 ;Maintenance edit number
INS 21/4 ;14C2
***** Release 5.0 -- begin maintenance edits *****
45 Increment maintenance edit level for version 5 of GALAXY.
46 5.1233 31-Mar-86
Change VALPAG to check that the returned page number is greater
than or equal to PAGSTA.
47 5.1234 1-Apr-86
Use P3 rather than S2 when finding the largest number of contiguous
pages in routine M%FPGS. S2 is trashed by routine FNDPAG
DEL 6/5 ;14C3
REP 56/14 ;14C4
M%FPGS: PUSHJ P,.SAVE2 ;Save a couple of regs
MOVE S1,PAGSTA ;First page to start the search
MOVEI P2,0 ;Initialize current contiguous counter
MOVEI S2,0 ;Initialize largest found contiguous
WIT
;**;[47]At M%FPGS:+0L replace 4 lines with 3 lines JCR 4/1/86
M%FPGS: PUSHJ P,.SAVE3 ;[47]Save a couple of regs
MOVE S1,PAGSTA ;[47]First page to start the search
SETZB P2,P3 ;[47]Initialize counters
REP 70/14 ;14C5
CAMLE P2,S2 ;No, current contiguous count largest?
MOVE S2,P2 ;Yes, so make it overall largest
MOVEI P2,MEMSIZ ;Get the number of pages
SUB P2,S1 ;not yet searched for
CAMLE S2,P2 ;Continue the search for largest block?
WIT
;**;[47]At TRY:+6L replace 5 lines with 5 lines JCR 4/1/86
CAMLE P2,P3 ;[47]No, current contig. count largest?
MOVE P3,P2 ;[47]Yes, so make it overall largest
MOVEI P2,MEMSIZ ;[47]Get the number of pages
SUB P2,S1 ;[47]not yet searched for
CAMLE P3,P2 ;[47]Continue the search for largest block?
REP 79/14 ;14C6
FINISH: CAMLE P2,S2 ;Current contiguous count the largest?
MOVE S2,P2 ;Yes, so make it the overall largest
FINIT: MOVE S1,FREPGS ;PICK UP THE NUMBER
$RETT ;AND RETURN
WIT
;**;[47]At FINISH:+0L replace 4 lines with 5 lines JCR 4/1/86
FINISH: CAMLE P2,P3 ;[47]Current contig. count the largest?
MOVE P3,P2 ;[47]Yes, make it the overall largest
FINIT: MOVE S1,FREPGS ;[47]Pick up the number
MOVE S2,P3 ;[47]Pick up the contig. block size
$RETT ;[47]And return
REP 33/20 ;14C7
VALPAG: CAIL S1,MEMSIZ ;RANGE CHECK THE PAGE NUMBER
WIT
;**;[46]At VALPAG:+0L Replace 1 line with 2 lines JCR 3/31/86
VALPAG: CAIGE S1,MEMSIZ ;[46]Page number must be within
CAMGE S1,PAGSTA ;[46]bounds
SUM 106528