ephraim@wang.UUCP (Ephraim Vishniac) (04/17/87)
[64UNITS: Increase the size of your unit table]
Enclosed is 64Units, an INIT that enlarges the unit table to 64 slots
and moves it to high memory, freeing a few precious bytes of the system
heap. For more info, read 64Units.asm.
The attached BinHex 4.0 / Packit file contains both source and
executable versions. This item is in the public domain.
---
(This file must be converted with BinHex 4.0)
:#cBd9@jTG(-ZF'Pd!&"*9#"3593J!*!%%(`!N!4YSe"0B@F,0M49EQPdFbjKFfd
!3!Zf!*!'S#-!N!89!%%!N!0!-r3!N!DJ)`!!krB!!-[%!%!XFJ!9!%%!!&4&@&4
&4%P8!3#3"3U3!!!!!9bFDKCZR'ZqaGbZ$6X*0M49EQPdFbjKFfd*#8CPBR*eBA*
j)$)h,#!a16Jh$3dl#89`D(*KD@dJ9QPcD'jTB@-01`P3,NmZ)%*[H#!a-c8h$6X
*4@&cG#""FQaTEQGdEfiX)%e")$!b-6Fd$3dl#94SDA-J58j*9#"PH("KEQ4c)(4
SC5"eEQPd)(4KBQaP)(4[)$Bd)'9ZG(*TCA-JB@jN)(*PE'pMBA4PFb"dE`dl#@K
TCfJJE@9YEh*j,#"[GA3JEfBJG'KP)(0jFh4PE5"SC@&`,L!J9'KP)'pbD@GTEQ&
X)(9ZDA3JG'&LE'801`PTFb"bC@aPBA0PC#`JCR*PC@PZCb"K)'CPGb"`FQ9MD@p
eFb"LHA4PFb"[CL"cHA0dC@dJD'9KF#"cF'&MC5i01`dl#89iF'&ZC'PZCb"dD'8
JG@jTG#"dB@*XC5"QFQpY)'PdFb"[FQPRD@jKE#"cDATP)'pQ)$-b)#K[E'3J8Np
0FbN01`P[FL!d1#!SEQ9h)&*26A-T)'ePB@jc)(4SBA3JE@pbC5"cE'pdFb"KFQ8
JBACKD@aKBQaP)'C[FL"NFQPfCA*c,!dl#@PZBfaeC'PZCb"NCA0V)'&MBf9cFfp
bD@9c,L!J5@jcG'&XE'PZCb"NCA0V)'&MBf9cFfpbD@9c)'PZG'm01`PdD'9cC5"
KC'4TG'P[EQ&X)(0XEh4c)'Pc)(P[GA)JF(*[BQaPE5iJ)&*PFd9NDA3JDA-JEfj
P)(GKH6X01`P`CA*SBA"c)(0[E@8JEQpZ,8&`F'aP)%4")'e[GQ9b)("bEhCTC'9
c)'&ZEh4SCA)Z$6X01`P8D'8JCAK`B@jcD@pZ)'Pc)'aTE@PdC@3JG'mJ0M3JFfa
[G(-JBQ9MBA9cC5"[CL"dD'8JCQpbE@&d)'pQ$6X*FQ9cEh9bBf8JER9YBQ9bFb"
QEh)J)QphEQ9N)L"bCA0[GA*MCA-k)(4SCA*P)'&bC5"[EQaj)(0TH#"LDA4c$6X
*G'mJC'9cD@GZBA4P)(4SC5"bCA0[GA*MC5Gc)'phEQ9b,L!J8h4TE'`X)(0TH(4
PC@iJB@4NDA4TEfjKE#!01`P%35Gc)(0SEh9XC#"LC5"PEQpeCfJJCQpb)'&ZH@p
ZC5i0$6X*9'mJGA0P)(4SDA-J58j*9#`JBA0cC@eLE'8JDA3X)'aTEQXJDA3JD@j
dEb"K)'CTE'8JEfBJG(P`C5!R58j*9#FX$6X*B@jN)("XB@0P)(4SC5"QD@aP)'P
Z)(P[GA)JFhPcG'9Y)'C[E'4PFLiJ)%Pd)(GTE'`JBQ8JCAKPBh9dC@301`PZCAK
d)(4TE@8JH@pe)(0dBA*d)(9`)(P[GA)J6@&M,Jd01`P8D'Pc)("bEfGbB@dJDA-
JD@iJG'KP)("eBQaTBb"NEfeKD@iZ$3d*8Q9cEh9bBf8J*dP1593R)$%b1#!R0M3
J9@jTG(-R)$!`$3dl)&4SDA-JEfjXH5"eFf9c)'%JCQ9h)'4PCQPZDA4TEfjc,#"
cEb"SCA*P)(4SCANJBA*P,Jd01b"8FQ&`,Jd*,P4539!*Ad4TFh"[Fe"dFJNN36!
a4Jd01b"-EhFJE@9YEh*j)'GXEf*KE(-09A4KBQaP3Q&cC3PPFA8**$%a3`Nl)&Y
XEfjRA5"6G'&bG#"[CL"9EQPd)&4KBQaP$99ZDA41G(*j3fpeER3*CA&e#53a4$)
*1b"EGfpbC&dJ9@jTG#"8B@*XC5"PER4bH5"MEh9ZG!e6HA0DEfjP#3PPFA8**$*
"0JNl)&YXEfjRA5"6G'&bG#"[CL"cHA0dC@dJD'9KF!e"F("X@QpZC3PPFA8**$*
"33Nl)&YXEfjRA5"6G'&bG#"[CL"KF("XD@0KG'P[EL"SC@&`$8*eCP"dFJN*CA&
e#53a-%-*1b"EE'pZCedJ4@jN)'pQ)'&fB@PXB@*XC5"YC@e[FRN0$6XJ6'pMB@`
JCA&eBA4PF`e0BAK9EQPdF`PPFA8*0M3*1b"dEh!JFfPkC5"QEh)JG@jTG#"dB@*
XC3d08h4KFR4)CA*P#C!%1b"6G'&bG#"SCA*P)3d*6@pfC5jA#99ZDA419(*j3fp
eER3X4$!*1b"%-#!p)(0THQ8JEfBJCAKTFh4TEQFJG'&LE'80#80YF#jA#500BAK
9EQPdFba%-!N*1b"8B@*XC5"QG@aX,A0THQ9N)'&XFQ9KC(Nr$3P#Cf8*4R9XE&4
KBQaP#3Nl)%9iDA3JD@BJFfm0$3P0EhCP,N`*3R9Q8(4b,%%a#3Nl)%%a)$dJC@j
N)'pQ)'&fB@PXB@*XC5"YC@e[FRN0#8e[GQ8Z9`NM6@&i9@jTG(-Y-5a%-3N*1b"
%-5!p)'a[Eh!JBfpeER4PFL"QEh)JBfaPBA*TEQF03$!*3fab,N`*,5K"-5N*N!-
l)%0XC@&b)'%JG@jTG#"dB@*XC5"PER4bH3d*4%*bB3P%-5a!-!Q3!cXJG@jdD@`
JGfK[E'8JG'&LE'8JDA-JBfaPBA)0$3P0EhCP,N`*36%X3R9Q8(4b#3Nl)&*PFf9
bGQ8JEQ9h)(4KBQaP)(0`B@0P$3d*6@pfC5j-#998B@*XC8*KFf8X36!*#6XJ36!
J25"cG'&bG#"[CL"[E'3JG'&LE'80#90eBP%Z9`NM-5a%-!Q3!cXJ4$!J25"XEfp
`)'0[G@jdCA)JCQpb)'0[F(PTEQF03$%*6@pfC5j-#5K"-#NV,#K"-5NV#3Nl)%0
[F(NJB5"eEQPd)(4KBQaP)'9ZG(*j$3P%3R*K#83`,%!a#C!$1b"eER4TE#"[E'3
JG'&LE'8JDA-JBfp`D@9N$3d*6@pfC5j-#8*eCP"dFLa"-3N*1b""-5!p)'jPGb"
dB@*XC3d*6@pfC5j-#998B@*XC8*KFf8X36!*#6XJ36!J25"[E'3JG'&LE'80#8e
[GQ8Z6!P"-5a99'&LE'9#BA0P#3Nl)%PZFh4KE'`JEQ9h)(4KBQaP$3P0EhCP,PF
*)deKH&9ZDA4c,&9ZDA41G(*j3fpeER3*1b"&H("KEQ3JG'&LE'80$3Nl)%*PCQp
bC5"NDA0`Eh0TEQFJEfBJG'KP)'pXC#"dB@*XC5"`EfPZG'9b,#"XCA3RFb"LC3d
*1b"cGA*P)(4SBA3JDA3RFb"K)("XBA9cD@*XC5"cHA0dC@dJD'9KF#"`EfPZG'9
b,Jd*3fe`,N`*8hPc@QpZC5a"-!N*1b"KBQpfC5"cG'&bG#"[CL"cHA0kEfjP2`d
*3Qad#90dFQ&ZCf93E'&MC3N*1b"PH'Pd)'PQ)'j[G!d*3fe`,N`*3A"`E&T[EQ8
X36!*#6XJBQ9XEhFJFh4KFR3JEfBJBA"`E(T[EQ8r$3P#Cf8*8h4bB@jRC9"XB@0
P#3Nl)'9iDA3JD@BJEQpd$3PI4'PcF'pc8(4b#C!$1b"PE(0P)'CbC@8JG'&LE'8
JF'pTER4PFJe'G@aX9'&LE'808h4bB@jRC9"XB@0P$3P5G(-0$3PNBbjL#5G&F'K
bB@PY)&CTFfKZD@&M)#F0#@4M,Q)**e!Z6biJ3Qpi)$%c06FJ*`d*C'-ZBJNR4@&
cG#""FQaTEQGdEfiX)%e")$!b-6Fd)#F0#5jKE'PREL!b$3d*48j%!!!"!*!$!4B
!N!-@!*!$4J!"!*!)m'!!N!39!*!&Z!%`!!%!N!8,0M49EQPdFbjKFfd#!*!$9%9
B9%9%593"!*!%N!!!f!!!9%9B9%9%593"!*!%N!!!f(Vp!*!1R'S@EJ!!#J#3!`&
F"&)!8!5F"!*25`#3"4d%*J!Y"35)(84[)(P[G5"hB@jd)(4[)'PZDA4TB@aTHQ8
JDA3r!*!'(33T!#d%ma!)9@jdDA4XC@3!N!8("#B!&`8%L"K8D'Pc)'4TFfXJDA-
JG@jbC@&NB@*XC6S!N!8("#B!&`8%L"98D!#3!`S!#3C0EfjKBfm!N!3%!!B!#!!
!!3#3!`%@!*!$&J#3!dB!!-`N!MB!N!-F!%B!!89'6P3!N!-5494"3J#3!ai$krr
r!*!'d`S$l2rr!*!$$J!!dak,Z9"0B@F-0M49EQPdFbjXD@jV3!Zf!*!'S#-!N!8
9!%%!N!0!-r3!N!DJ)`!!krB!!-[%!%!XFJ!9!%%!!&4&@&4&4%P8!3#3"Md!!!&
FR'SA#*aU&da+bbp2GA4`GA3J0M49EQPdF`d[9(P`C5!R58j*9#FJ*dP1593R$5p
5CA0[GA*MCA-00M49EQPdF`d0,d9ZC!d!!!%!N!-"&J#3!aB!N!0'"!P2EQ8Y8fP
NC@3!N!Bl"+`!8!6f"!P8GfmY8fN-0M49EQPdFbjXD@jVEJ)!N!0849K8484*9!%
!!"3!f!!!9%9B9%9%593"!!!8!0J!f(Vp!*!1R'SA#!#3"J&F"35)!Pi`!*!$UJ!
*!*!&LJ%!!*`"8!3%6h"PEJ#3"!5!!$X%d!"0"!C)D@4NC@i!N!@M!3!!Y3&3"!C
$B@jMC@`!N!8R!1J!1`&EJ!#3"N3"!!"@!9!%"89UC@0d!*!'A3%!!'m"8!3&4(*
TGQ8!N!BR!*!$#J!*"Ne[EQ&MEcB!N!-%!!B!#!!!!3#3!`%@!*!$&J#3!dB!!-`
N!T3!N!-F!%B!!89'6P3!N!-5494"3J#3!ai$krrr!*!&!CLZ!qcrr`#3!`i!!CL
QU'P36@&R"cBd9@jTG(-ZE'PZDd!,YJ#3"U!M!*!&&3""!*!$3$2d!*!'S#-!!1[
f!!$,a!"!,()!&3""!!"*6NP858j*9!%!N!N"ajaU&b@FDlm"bVJ!!!%!N!-"M!#
3!i`!N!-lG(0I4fa[BQ&XF`!"!!#FDllb!!!"!m-@36Sf0#"9EQN(0M49EQPdF`)
!N!0#384'58j*9!%!!-!!N!-C!*!$S`!!3N&%4NP1593"!!$!!*!$'3#%!*!-$A#
FDKFP!*!'!FG#)FP#!3c#3L"i3J%F`N*63-*#)YM#3P()3[rm`N)LH%)"$-*#)(K
#!4c#3L(*3J%F`N)ar%)!3%)"dX*#XIK#!UE#!`!-3@e"!($#3V(i3J+U`J-!$%&
X33"``N+J(m*#6RA#3"&&F'KbB@PY)&CTFfKZD@&M)-*!$P!Z6biJ3Qpi!*!$L$!
i!G)-3!"!E!!!4#*i!3`b2!!r3U&4bIrm)FN"$#"i!4a63#,B8FMrr#*i!3`JH!%
F)FN"($(m!%!"dV(i!UCY!!!-XIJ#UQ`!!!5J(dje4A"SFQ&TE5"@DA0SEQPKBb"
3,NmZ)%*[H#!a-c8h)%9KFh3J3A*XD@jRG'pZ,#"035!`-M%h0#!!!!%!N!-"M!#
3!i`!N!-l!!$-*!)f!*!$(!!b!!"*6NP8!*!$#J#!!*!)bfJ)0M3J9@jTG(2Cfe"
&EQ3K#`!!!:
---