Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
comcon.c11
There is 1 other file named comcon.c11 in the archive. Click here to see a list.
REP 32/40 ;11C1
ADDM P3,MAXMAX## ;INCREASE THE MAXIMUM VALUE FOR CORMAX
DPB P3,P1 ;INDICATE THAT THIS PAGE EXISTS IN NXMTAB
WIT
DPB P3,P1 ;INDICATE THIS PAGE EXISTS IN NXMTAB
PUSHJ P,MEMOZR ;ZERO OUT THE PAGE AND CHECK FOR NXM
JRST MEMON8 ;GOT AN NXM
ADDM P3,MAXMAX## ;INCREASE THE MAXIMUM VALUE FOR CORMAX
REP 1/41 ;11C2
;HERE WHEN MEMORY HAS BEEN MARKED ON LINE TO ADD ALL PAGES WHICH
; WERE OFF LINE TO THE FREE CORE LIST
WIT
;HERE WHEN MEMORY HAS BEEN MARKED ON LINE AND CHECKED FOR NXM.
;ADD ALL PAGES WHICH WERE OFF LINE TO THE FREE CORE LIST.
REP 21/41 ;11C3
;HERE TO REFERENCE PAGES ADDED TO THE FREE CORE LIST SO IF THEY ARE
; OFF LINE, IT WILL BE DETECTED BEFORE THEY ARE ATTEMPTED TO BE USED
MEMON9:
HRRZ T1,P2 ;FIRST PAGE SET ON LINE
IDIVI T1,^D36 ;COMPUTE WORD AND BIT POSITION WITHIN NXMTAB
MOVE T2,BITTBL##(T2) ;MASK CORRESPONDING TO THAT BIT POSITION
TDNE T2,NXMTAB##(T1) ;IS THIS PAGE NOW ON LINE?
JRST MEMO11 ;NO, FORGET IT
HRRZ T3,P2 ;YES, GET PAGE NUMBER
MOVE T4,.CPMAP##
IFE FTKLP,<
TRO T3,PM.ACC+PM.WRT;ACCESS ALLOWED AND WRITEABLE
HRLM T3,.MEUPM(T4)
>
IFN FTKLP,<
HRLI T3,(<PM.DCD>B2+PM.WRT)
MOVEM T3,.EUPMP/PAGSIZ##(T4)
>
CLRPGT (0,.EUPMP) ;FLUSH PAGE TABLE SO NEW MAPPING IS IN EFFECT
;WORRY ABOUT INTERLEAVED MEMORY
MOVEI T3,MEMITL## ;NUMBER OF WAYS MEMORY CAN BE INTERLEAVED
MOVEM J,MOFLPG## ;FLAG THAT MEMORY BEING SET ON LINE
; NXM AT THIS POINT ISN'T A SERIOUS ERROR
MEMO10: MOVEI T4,1000 ;TIME TO WAIT FOR NXM FLAG TO CAUSE AN IRP.
SETZM .EUPMP-1(T3) ;REFRENCE THE PAGE TO MAKE SURE ITS REALLY THERE
SOJG T4,. ;WAIT LONG ENOUGH FOR NXM INTERRUPT TO HAPPEN
TDNN T2,NXMTAB##(T1) ;IS THE PAGE STILL ON LINE?
SOJG T3,MEMO10 ;YES, CHECK NEXT WORD OF THE PAGE
; TO INSURE THAT THERE ISN'T AN INTERLEAVING PROBLEM
SETZM MOFLPG## ;NO LONGER CHECKING FOR OFF LINE PAGES
MEMO11: CAIN P2,(P1) ;REFERENCED ALL PAGES IN THE RANGE SET ON LINE?
JRST MEMO12 ;FIX CORE ALLOCATION VARIABLES, TELL DAEMON, AND RETURN
HRRZ P2,@[IW MDSEC2,PAGTAB(P2)] ;NO, GET THE NEXT PAGE SET ON LINE
JRST MEMON9 ;AND REFERENCE IT TO MAKE SURE ITS THERE
MEMO12: PUSHJ P,CPINXF## ;FIX CORE ALLOCATION VARIABLES
WIT
;FINISH UP
PUSHJ P,CPINXF## ;FIX CORE ALLOCATION VARIABLES
INS 1/43 ;11C4
;ROUTINE TO ZERO THE PAGE BEING SET ON-LINE AND CHECK FOR NXM.
;CALL WITH T1=PAGE NUMBER, P1=BYTE POINTER TO NXMTAB
;RETURNS CPOPJ IF NXM, CPOPJ1 IF PAGE OK.
;MUST BE CALLED WITH MM, RETURNS WITH MM.
;PRESERVES T1-T4.
MEMOZR: PUSHJ P,SAVT## ;SAVE T1-T4
HRRZ T3,T1 ;GET PAGE NUMBER
MOVE T4,.CPMAP## ;GET ADDRESS OF EXEC MAP
IFE FTKLP,<
TRO T3,PM.ACC+PM.WRT ;ACCESSIBLE AND WRITABLE
HRLM T3,.MEUPM(T4)
>; END IFE FTKLP
IFN FTKLP,<
HRLI T3,(<PM.DCD>B2+PM.WRT) ;ACCESSIBLE AND WRITABLE
MOVEM T3,.EUPMP/PAGSIZ##(T4) ;SET NEW MAPPING FOR PAGE
>; END IFN FTKLP
CLRPGT (0,.EUPMP) ;FLUSH PAGE TABLE SO NEW MAPPING IS IN EFFECT
IFN FTMP,<
PUSHJ P,DWNMM## ;GIVE UP THE MM IN CASE NXM HAPPENS
>; END IFN FTMP
MOVEI T4,1000 ;TIME TO WAIT FOR NXM TO CAUSE AN INTERRUPT
MOVEM J,MOFLPG## ;FLAG WE ARE SETTING MEMORY OFF-LINE
SETZM .EUPMP ;ZERO FIRST WORD OF PAGE
SOJG T4,. ;WAIT LONG ENOUGH FOR NXM INTERRUPT TO HAPPEN
LDB T3,P1 ;GET BIT FROM NXMTAB
JUMPN T3,MEMOZ1 ;JUMP IF NXM HAPPENED
MOVE T3,[XWD .EUPMP,.EUPMP+1] ;SET TO CLEAR REMAINDER OF PAGE
MOVEI T4,1000 ;TIME TO WAIT FOR NXM TO CAUSE AN INTERRUPT
BLT T3,.EUPMP+PAGSIZ##-1 ;ZERO THE REMAINDER OF THE PAGE
SOJG T4,. ;WAIT LONG ENOUGH FOR NXM INTERRUPT TO HAPPEN
LDB T3,P1 ;GET BIT FROM NXMTAB
SKIPN T3 ;DID NXM HAPPEN?
AOS (P) ;NO, SET UP SKIP RETURN
MEMOZ1: SETZM MOFLPG## ;NO LONGER CHECKING FOR OFFLINE PAGE
IFN FTMP,<
PUSHJ P,UPMM## ;GET BACK THE MM
>; END IFN FTMP
POPJ P, ;RETURN
REP 19/56 ;11C5
SETBR1: CAIN P1,-1 ;DON'T ALLOW -1 FOR THE TIME BEING SINCE IT
; CONFUSES THE HARDWARE
WIT
SETBR1: CAIG P1,17 ;WEED OUT REFERENCES
CAIGE P1,1 ; TO THE ACS
CAIN P1,-1 ;-1 CONFUSES THE HARDWARE
REP 10/178 ;11C6
PUSHJ P,CLRTAB ;CLEAR BITS AND TABLES
WIT
PUSHJ P,CLRBTS ;CLEAR BITS
INS 21/180 ;11C7
PUSHJ P,FNDPDS## ;FIND PDB
MOVE T1,.JDAT+SGANAM ;NAME WHICH WAS ENTERED
MOVEM T1,.PDNAM##(W) ;STORE
SETZM .PDSFD##(W) ;ZERO SFD INFO
MOVSI T1,.PDSFD##(W) ;SET UP A BLT TO CLEAR SFD STUFF
HRRI T1,.PDSFD##+1(W)
BLT T1,.PDSFD##+MAXLVL##-1(W)
MOVEI T1,JOBUAL##
MOVEM T1,.JDAT+SGAPPN
PUSHJ P,PTHFIL## ;GET PATH WHERE FILE WAS WRITTEN
PUSHJ P,NAMSTR## ;STR NAME
SKIPA T1,DEVNAM(F) ;NOT A DSK, DEVICE NAME
SKIPA T2,DEVPPN(F) ;GET DIRECTORY
MOVEI T2,0 ;NO DIRECTORY
MOVEM T1,.PDSTR##(W) ;STORE STR OR DEVICE NAME
MOVEM T2,.PDDIR##(W) ;DIRECTORY
MOVSI T1,.JDAT+JOBUAL##+3 ;WHRE THE SFD'S ARE STORED
HRRI T1,.PDSFD##(W) ;WHERE TO STORE PATH
BLT T1,.PDSFD##+MAXLVL##-1(W) ;STORE PATH
REP 44/180 ;11C8
SAVERR::
IFN FTEXE,<
MOVE J,.CPJOB## ;GET JOB NUMBER
WIT
SAVERR::MOVE J,.CPJOB## ;GET JOB NUMBER
PUSHJ P,CLRTAB ;CLEAR BITS AND TABLES
IFN FTEXE,<
REP 5/223 ;11C9
MOVSI T3,.JDAT+JOBUAL##+3 ;WHERE THE SFD'S ARE STORED
WIT
SETZM .JDAT+JOBUAL##+3 ;ZERO FIRST SFD WORD (IN CASE OF JUNK FROM LOWFIN)
REP 14/223 ;11C10
JRST GJOB7 ;NO, STORE A ZERO AS FIRST SFD
WIT
JRST GJOB6A ;NO, STORE A ZERO AS FIRST SFD
INS 20/223 ;11C11
MOVEI T1,JOBUAL##
MOVEM T1,.JDAT+SGAPPN
PUSHJ P,PTHFIL## ;GET PATH BACK (CLOBBERED BUT BY VIRCHK)
INS 24/223 ;11C12
GJOB6A: MOVSI T3,.JDAT+JOBUAL##+3 ;WHERE THE SFD'S ARE STORED
REP 29/226 ;11C13
CLRTAB: MOVE T1,[JACCT,,JS.XO!JS.XOR] ;CLEAR EXECUTE ONLY SO
ANDCAM T1,JBTSTS##(J) ; USER WILL NOT BE RESTRICTED
MOVSI T1,(UP.CXO)
ANDCAM T1,.USBTS ;CLEAR XO CORE IMAGE
MOVSI T1,(JB.LSY) ;NO LONGER A PROGRAM
ANDCAM T1,JBTLIM##(J) ; FROM SYS
WIT
CLRTAB: PUSHJ P,CLRBTS ;CLEAR BITS IN JOB TABLES
INS 40/226 ;11C14
CLRBTS: MOVE T1,[JACCT,,JS.XO!JS.XOR] ;CLEAR EXECUTE ONLY SO
ANDCAM T1,JBTSTS##(J) ; USER WILL NOT BE RESTRICTED
MOVSI T1,(UP.CXO)
ANDCAM T1,.USBTS ;CLEAR XO CORE IMAGE
MOVSI T1,(JB.LSY) ;NO LONGER A PROGRAM
ANDCAM T1,JBTLIM##(J) ; FROM SYS
POPJ P, ;RETURN
SUM 124682