Disable the "purify high core" CORBLK (dubious).

[pdp10-muddle.git] / <mdl.int> / initm.373

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index bbd8fe696032c7a437087b5b6d9c2b82b9073b7b..e8ec252eae52fa4c6dfc4a2776f45fdc246dc45a 100644 (file)
--- a/<mdl.int>/initm.373
+++ b/<mdl.int>/initm.373
@@ -21,7 +21,7 @@ IMPURE
 
 OBSIZE==151.   ;DEFAULT OBLIST SIZE
 
-.LIFG <TVBASE+TVLNT-TVLOC>
+.LIFL <TVBASE+TVLNT-TVLOC>
 .LOP .VALUE
 .ELDC
 
@@ -461,9 +461,16 @@ PURIMP:    MOVE    A,FRETOP
        HRL     B,A
        DOTCAL  CORBLK,[[1000,,0],[1000,,-1],B]
         FATAL  INITM -- CAN'T FLUSH MIDDLE CORE
-       MOVE    A,[-<400-PHIBOT>,,PHIBOT]
-       DOTCAL  CORBLK,[[1000,,210000],[1000,,-1],A]
-        FATAL  INITM -- CAN'T PURIFY HIGH CORE
+       MOVE    B,RHITOP
+       ASH     B,-10.
+       SUBI    B,1
+       MOVEI   A,PHIBOT
+       SUB     A,B
+       HRLS    A
+       HRRI    A,PHIBOT
+;FIXME Disabled because this doesn't succeed...
+;      DOTCAL  CORBLK,[[1000,,210000],[1000,,-1],A]
+;       FATAL  INITM -- CAN'T PURIFY HIGH CORE
 ]
 
 IFE ITS,[
@@ -883,10 +890,16 @@ CGBOUN,IIGLOC,MAKTU2,CIFLTZ,CIUPRS,SAT,TFA,WTYP,NAPT,PTYPE,APLQ,PURBOT,GCSBOT
 GLOTOP,TYPVEC,1STEPR,LSTRES,NODES,MAINPR,CVTYPE,CSPNAM,CSBSTR,INTBCK,CICRLF
 CERR1,CERR2,CERR3,CANDP,CORP,CSQUTA,CIMAGE,ATOSQ,CFILLE,CPRTYC,FMPOPJ
 TD.PUT,TD.GET,TD.LNT,CBYTES,MARK,MARK2G,TD.AGC,DSTORE,RCLV,NUMSAT,RMCALL,NPRFLG
-NSPOPJ,NFPOPJ,PURCLN,FRETOP,PURVEC,SWAPGC,NTTYPE,CLRSTR,VECBOT]
+NSPOPJ,NFPOPJ,PURCLN,FRETOP,PURVEC,SWAPGC,VECBOT]
+       .GLOBAL A
+       ADDSQU A
+TERMIN
+IFE ITS,[
+IRP    A,,[NTTYPE,CLRSTR]
        .GLOBAL A
        ADDSQU A
 TERMIN
+]
 
 VECRET