Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
vmser.c08
There is 1 other file named vmser.c08 in the archive. Click here to see a list.
INS 16/54 ;08C1
IOR P3,.CPKPM## ;ALSO LITE "KEEP ME" IF THERE IS AN MCA25
DEL 46/85 ;08C2
TRNE T2,400000
DEL 35/96 ;08C3
TLNN T1,(1B8) ;PAGED REFERENCE?
JRST CPOPJ1## ;NO, WILL NOT FAULT
INS 9/110 ;08C4
SETZM .UPMP+.UPTMC ;TRAP COUNTERS
SETZM .UPMP+.UPTMI ;CLEAR VIRTUAL TIME
REP 25/140 ;08C5
SPYPG1: PUSHJ P,NXTPAG ;GET THE NEXT ARGUMENT
WIT
SPYPG1: PUSHJ P,NXTSPG ;GET THE NEXT ARGUMENT
REP 1/141 ;08C6
SPYPG2: PUSHJ P,NXTPAG ;GET THE NEXT ARGUMENT
WIT
SPYPG2: PUSHJ P,NXTSPG ;GET THE NEXT ARGUMENT
INS 25/145 ;08C7
NXTSPG: MOVE T1,.USNXP ;A RANGE OF PAGES SPECIFIED?
CAMN T1,[-1]
PJRST GETWD1## ;NO, GET ARGUMENT FROM LIST
AOBJN T1,.+1 ;INCREMENT BOTH HALVES
JRST PREPA2 ;STORE FOR NEXT CALL, AND RETURN
SUM 220833