X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.int%3E%2Finitm.373;h=9c6d748c3e42538fde10b2671e142e7ff4add79c;hb=23e7303201291649c51827650bceeb8fd65321df;hp=bbd8fe696032c7a437087b5b6d9c2b82b9073b7b;hpb=cdf6d71a25c51b0efc7d1183bcc345f422e95d49;p=pdp10-muddle.git

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index bbd8fe6..9c6d748 100644
--- 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
 
@@ -883,10 +883,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