Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
sysini.c08
There is 1 other file named sysini.c08 in the archive. Click here to see a list.
INS 5/25 ;08C1
IFN FTKLP,<
MOVE T1,SYSSIZ## ;HIGHEST ADDRESS IN THE LOW SEGMENT
LSH T1,W2PLSH## ;HIGHEST PAGE
MOVE T2,.CPKPM## ;KEEP ME BIT OR 0
MOVE T3,.CPMAP## ;ADDRESS OF THIS CPU'S MAP
IORM T2,(T3) ;TURN ON "KEEP ME" IF THIS CPU HAS AN MCA25
AOS T3 ;NEXT PAGE
SOJG T1,.-2(P2) ;FOR ALL LOW SEGMENT PAGES
>
REP 35/30 ;08C2
MOVEI T2,OUCHTB##+3
WIT
MOVEI T2,OUCHTB##+7
REP 7/43 ;08C3
ONCMAP::PUSH P,P1 ;SAVE P AC'S
WIT
ONCMAP::
IFN FTKLP,<
IOR T2,.CPKPM## ;LITE "KEEP ME" IF THE CPU HAS AN MCA25
>
PUSH P,P1 ;SAVE P AC'S
SUM 56551