-- file: TexSymbolsImpl.mesa
-- Pascal-to-Mesa translator output, translated at September 27, 1985 10:21:37 am PDT


DIRECTORY
  PascalBasic,
  TexTypes,
  TexInteraction,
  TexMemory,
  TexSymbols,
  TexOps,
  TexSysdep,
  TexSysdepInline;

TexSymbolsImpl: PROGRAM IMPORTS PascalBasic, TexTypes, TexInteraction, TexMemory, TexSymbols, TexOps, TexSysdep, TexSysdepInline EXPORTS TexSymbols = PUBLIC
BEGIN OPEN PascalBasic, TexTypes, TexInteraction, TexMemory, TexSymbols, TexOps, TexSysdep, TexSysdepInline;
 PrintCs: PROCEDURE[P: PascalInteger]
 = 
BEGIN IF P<258  THEN IF P>=129  THEN IF P=257  THEN BEGIN PrintEsc[366];
PrintEsc[367]; END  ELSE BEGIN PrintEsc[P-129];
IF Eqtb^[4127+P-129].Hh.Rh=11  THEN PrintChar[32];
 END  ELSE IF P<1  THEN PrintEsc[368] ELSE Print[P-1] ELSE IF P>=3025  THEN
PrintEsc[368] ELSE IF( INT[Hash^[P].Rh]<0)OR ( INT[Hash^[P].Rh]>=StrPtr) THEN PrintEsc
[369] ELSE BEGIN PrintEsc[210];SlowPrint[Hash^[P].Rh];PrintChar[32];
 END; END;--:262----263:-- SprintCs: PROCEDURE[P: Halfword]
 = 
BEGIN IF  INT[P]<258  THEN IF  INT[P]<129  THEN Print[ INT[P]-1] ELSE IF  INT[P]<257  THEN PrintEsc
[ INT[P]-129] ELSE BEGIN PrintEsc[366];PrintEsc[367];
 END  ELSE BEGIN PrintEsc[210];SlowPrint[Hash^[P].Rh]; END; END;--:263
--119:----292:-- ShowTokenList: PROCEDURE[P,Q: PascalInteger,L: PascalInteger] = 
BEGIN 
 M, C:PascalInteger;MatchChr:AsciiCode;N:AsciiCode; MatchChr_35;
N_48;Tally_0;{WHILE(P#0)AND (Tally<L)DO BEGIN IF P=Q  THEN--320:
BEGIN FirstCount_Tally;
TrickCount_Tally+1+ErrorLine-HalfErrorLine;
IF TrickCount<ErrorLine  THEN TrickCount_ErrorLine; END--:320--;--293:
IF(P<HiMemMin)OR (P>MemEnd) THEN BEGIN PrintEsc[181]; GOTO Label10; END;
IF  INT[Mem[P]^.Hh.Lh]>=4096  THEN PrintCs[ INT[Mem[P]^.Hh.Lh]-4096] ELSE BEGIN M_ PascalDIVPower2[Mem[
P]^.Hh.Lh ,8];C_ PascalMODPower2Mask[Mem[P]^.Hh.Lh ,255];
IF( INT[Mem[P]^.Hh.Lh]<0)OR (C>127) THEN PrintEsc[417] ELSE--294:
SELECT M FROM 1,2,3,4,7,8,10,11,12 =>Print[C];6 =>BEGIN Print[C];Print[C]; END;
5 =>BEGIN Print[MatchChr];
IF C<=9  THEN PrintChar[C+48] ELSE BEGIN PrintChar[33]; GOTO Label10; END; END;
13 =>BEGIN MatchChr_C;Print[C];N_N+1;PrintChar[N];
IF  INT[N]>57  THEN  GOTO Label10; END;14 =>Print[418]; ENDCASE =>PrintEsc[417]--:294--;
 END--:293--;P_Mem[P]^.Hh.Rh; END ENDLOOP ;IF P#0  THEN PrintEsc[416];EXITS Label10 => NULL}; END;--:292
 PrintLengthParam: PROCEDURE[N: PascalInteger]
 = 
BEGIN SELECT N FROM 0 =>PrintEsc[341];1 =>PrintEsc[342];2 =>PrintEsc[343];
3 =>PrintEsc[344];4 =>PrintEsc[345];5 =>PrintEsc[346];6 =>PrintEsc[347];
7 =>PrintEsc[348];8 =>PrintEsc[349];9 =>PrintEsc[350];10 =>PrintEsc[351];
11 =>PrintEsc[352];12 =>PrintEsc[353];13 =>PrintEsc[354];14 =>PrintEsc[355];
15 =>PrintEsc[356];16 =>PrintEsc[357];17 =>PrintEsc[358];18 =>PrintEsc[359];
19 =>PrintEsc[360]; ENDCASE =>Print[361]; END;--:247----252:----298:
 PrintCmdChr: PROCEDURE[Cmd: Quarterword,ChrCode: Halfword]
 = 
BEGIN SELECT Cmd FROM 1 =>BEGIN Print[419];PrintAscii[ChrCode]; END;
2 =>BEGIN Print[420];PrintAscii[ChrCode]; END;3 =>BEGIN Print[421];
PrintAscii[ChrCode]; END;6 =>BEGIN Print[422];PrintAscii[ChrCode]; END;
7 =>BEGIN Print[423];PrintAscii[ChrCode]; END;8 =>BEGIN Print[424];
PrintAscii[ChrCode]; END;9 =>Print[425];10 =>BEGIN Print[426];
PrintAscii[ChrCode]; END;11 =>BEGIN Print[427];PrintAscii[ChrCode]; END;
12 =>BEGIN Print[428];PrintAscii[ChrCode]; END;--227:
74,75 =>IF  INT[ChrCode]<3044  THEN PrintSkipParam[ INT[ChrCode]-3026] ELSE IF
 INT[ChrCode]<3300  THEN BEGIN PrintEsc[263];PrintInt[ INT[ChrCode]-3044];
 END  ELSE BEGIN PrintEsc[264];PrintInt[ INT[ChrCode]-3300]; END;--:227----231:
71 =>IF  INT[ChrCode]>=3566  THEN BEGIN PrintEsc[275];PrintInt[ INT[ChrCode]-3566];
 END  ELSE SELECT ChrCode FROM 3557 =>PrintEsc[266];3558 =>PrintEsc[267];
3559 =>PrintEsc[268];3560 =>PrintEsc[269];3561 =>PrintEsc[270];
3562 =>PrintEsc[271];3563 =>PrintEsc[272];3564 =>PrintEsc[273];
 ENDCASE =>PrintEsc[274];--:231----239:
72 =>IF  INT[ChrCode]<4817  THEN PrintParam[ INT[ChrCode]-4767] ELSE BEGIN PrintEsc[
339];PrintInt[ INT[ChrCode]-4817]; END;--:239----249:
73 =>IF  INT[ChrCode]<5221  THEN PrintLengthParam[ INT[ChrCode]-5201] ELSE BEGIN
PrintEsc[362];PrintInt[ INT[ChrCode]-5221]; END;--:249----266:
45 =>PrintEsc[370];89 =>PrintEsc[371];40 =>PrintEsc[372];41 =>PrintEsc[373];
76 =>PrintEsc[381];61 =>PrintEsc[374];42 =>PrintEsc[392];16 =>PrintEsc[375];
106 =>PrintEsc[366];87 =>PrintEsc[380];15 =>PrintEsc[376];
91 =>PrintEsc[377];66 =>PrintEsc[367];62 =>PrintEsc[378];64 =>PrintEsc[32];
101 =>PrintEsc[379];32 =>PrintEsc[382];36 =>PrintEsc[383];
39 =>PrintEsc[384];37 =>PrintEsc[202];44 =>PrintEsc[47];18 =>PrintEsc[222];
46 =>PrintEsc[385];17 =>PrintEsc[386];54 =>PrintEsc[387];90 =>PrintEsc[388];
34 =>PrintEsc[389];102 =>PrintEsc[390];55 =>PrintEsc[207];
63 =>PrintEsc[391];65 =>PrintEsc[394];95 =>PrintEsc[395];0 =>PrintEsc[396];
97 =>PrintEsc[397];79 =>PrintEsc[393];83 =>PrintEsc[276];
108 =>PrintEsc[398];70 =>PrintEsc[275];38 =>PrintEsc[223];
33 =>PrintEsc[399];56 =>PrintEsc[400];35 =>PrintEsc[401];--:266----335:
13 =>PrintEsc[458];--:335----377:
103 =>IF ChrCode=0  THEN PrintEsc[490] ELSE PrintEsc[491];--:377----385:
109 =>SELECT ChrCode FROM 1 =>PrintEsc[493];2 =>PrintEsc[494];3 =>PrintEsc[495];
4 =>PrintEsc[496]; ENDCASE =>PrintEsc[492];--:385----412:
88 =>IF ChrCode=0  THEN PrintEsc[339] ELSE IF ChrCode=1  THEN PrintEsc[
362] ELSE IF ChrCode=2  THEN PrintEsc[263] ELSE PrintEsc[264];--:412
--417:--78 =>IF ChrCode=1  THEN PrintEsc[530] ELSE PrintEsc[529];
81 =>IF ChrCode=0  THEN PrintEsc[531] ELSE PrintEsc[532];
82 =>IF ChrCode=1  THEN PrintEsc[533] ELSE IF ChrCode=3  THEN PrintEsc[
534] ELSE PrintEsc[535];
69 =>IF ChrCode=0  THEN PrintEsc[536] ELSE IF ChrCode=1  THEN PrintEsc[
537] ELSE PrintEsc[538];--:417----469:
107 =>SELECT ChrCode FROM 0 =>PrintEsc[595];1 =>PrintEsc[596];2 =>PrintEsc[597];
3 =>PrintEsc[598];4 =>PrintEsc[599]; ENDCASE =>PrintEsc[600];--:469----488:
104 =>SELECT ChrCode FROM 1 =>PrintEsc[617];2 =>PrintEsc[618];3 =>PrintEsc[619];
4 =>PrintEsc[620];5 =>PrintEsc[621];6 =>PrintEsc[622];7 =>PrintEsc[623];
8 =>PrintEsc[624];9 =>PrintEsc[625];10 =>PrintEsc[626];11 =>PrintEsc[627];
12 =>PrintEsc[628];13 =>PrintEsc[629];14 =>PrintEsc[630];15 =>PrintEsc[631];
16 =>PrintEsc[632]; ENDCASE =>PrintEsc[616];--:488----492:
105 =>IF ChrCode=2  THEN PrintEsc[633] ELSE IF ChrCode=4  THEN PrintEsc[
634] ELSE PrintEsc[635];--:492----781:
4 =>IF ChrCode=128  THEN PrintEsc[756] ELSE BEGIN Print[760];
PrintAscii[ChrCode]; END;
5 =>IF ChrCode=129  THEN PrintEsc[757] ELSE PrintEsc[758];--:781----984:
80 =>SELECT ChrCode FROM 0 =>PrintEsc[823];1 =>PrintEsc[824];2 =>PrintEsc[825];
3 =>PrintEsc[826];4 =>PrintEsc[827];5 =>PrintEsc[828];6 =>PrintEsc[829];
 ENDCASE =>PrintEsc[830];--:984----1053:
14 =>IF ChrCode=1  THEN PrintEsc[879] ELSE PrintEsc[878];--:1053----1059:
26 =>SELECT ChrCode FROM 4 =>PrintEsc[880];0 =>PrintEsc[881];1 =>PrintEsc[882];
2 =>PrintEsc[883]; ENDCASE =>PrintEsc[884];
27 =>SELECT ChrCode FROM 4 =>PrintEsc[885];0 =>PrintEsc[886];1 =>PrintEsc[887];
2 =>PrintEsc[888]; ENDCASE =>PrintEsc[889];28 =>PrintEsc[208];
29 =>PrintEsc[212];30 =>PrintEsc[213];--:1059----1072:
21 =>IF ChrCode=1  THEN PrintEsc[907] ELSE PrintEsc[908];
22 =>IF ChrCode=1  THEN PrintEsc[909] ELSE PrintEsc[910];
20 =>SELECT ChrCode FROM 0 =>PrintEsc[277];1 =>PrintEsc[911];2 =>PrintEsc[912];
3 =>PrintEsc[818];4 =>PrintEsc[913];5 =>PrintEsc[820];
 ENDCASE =>PrintEsc[914];
31 =>IF ChrCode=100  THEN PrintEsc[916] ELSE IF ChrCode=101  THEN
PrintEsc[917] ELSE IF ChrCode=102  THEN PrintEsc[918] ELSE PrintEsc[915
];--:1072----1089:--43 =>IF ChrCode=0  THEN PrintEsc[934] ELSE PrintEsc[933];
--:1089----1108:
25 =>IF ChrCode=10  THEN PrintEsc[945] ELSE IF ChrCode=11  THEN PrintEsc[
944] ELSE PrintEsc[943];
23 =>IF ChrCode=1  THEN PrintEsc[947] ELSE PrintEsc[946];
24 =>IF ChrCode=1  THEN PrintEsc[949] ELSE PrintEsc[948];--:1108----1115:
47 =>IF ChrCode=1  THEN PrintEsc[45] ELSE PrintEsc[220];--:1115----1143:
48 =>IF ChrCode=1  THEN PrintEsc[981] ELSE PrintEsc[980];--:1143----1157:
50 =>SELECT ChrCode FROM 16 =>PrintEsc[724];17 =>PrintEsc[725];
18 =>PrintEsc[726];19 =>PrintEsc[727];20 =>PrintEsc[728];21 =>PrintEsc[729];
22 =>PrintEsc[730];23 =>PrintEsc[731];26 =>PrintEsc[733];
 ENDCASE =>PrintEsc[732];
51 =>IF ChrCode=1  THEN PrintEsc[736] ELSE IF ChrCode=2  THEN PrintEsc[
737] ELSE PrintEsc[982];--:1157----1170:--53 =>PrintStyle[ChrCode];--:1170
--1179:--52 =>SELECT ChrCode FROM 1 =>PrintEsc[1001];2 =>PrintEsc[1002];
3 =>PrintEsc[1003];4 =>PrintEsc[1004];5 =>PrintEsc[1005];
 ENDCASE =>PrintEsc[1000];--:1179----1189:
49 =>IF ChrCode=30  THEN PrintEsc[734] ELSE PrintEsc[735];--:1189----1209:
92 =>IF ChrCode=1  THEN PrintEsc[1024] ELSE IF ChrCode=2  THEN PrintEsc[
1025] ELSE PrintEsc[1026];
96 =>IF ChrCode=0  THEN PrintEsc[1027] ELSE IF ChrCode=1  THEN PrintEsc[
1028] ELSE IF ChrCode=2  THEN PrintEsc[1029] ELSE PrintEsc[1030];--:1209
--1220:--93 =>IF ChrCode#0  THEN PrintEsc[1045] ELSE PrintEsc[1044];
--:1220----1223:--94 =>SELECT ChrCode FROM 0 =>PrintEsc[1046];1 =>PrintEsc[1047];
2 =>PrintEsc[1048];3 =>PrintEsc[1049];4 =>PrintEsc[1050];5 =>PrintEsc[1051];
 ENDCASE =>PrintEsc[1052];67 =>BEGIN PrintEsc[375];PrintHex[ChrCode];
 END;68 =>BEGIN PrintEsc[386];PrintHex[ChrCode]; END;--:1223----1231:
84 =>IF ChrCode=4127  THEN PrintEsc[283] ELSE IF ChrCode=4639  THEN
PrintEsc[287] ELSE IF ChrCode=4255  THEN PrintEsc[284] ELSE IF 
ChrCode=4383  THEN PrintEsc[285] ELSE IF ChrCode=4511  THEN PrintEsc[286] ELSE
PrintEsc[340];85 =>PrintSize[ INT[ChrCode]-4079];--:1231----1251:
98 =>IF ChrCode=1  THEN PrintEsc[808] ELSE PrintEsc[798];--:1251----1255:
77 =>IF ChrCode=0  THEN PrintEsc[1068] ELSE PrintEsc[1069];--:1255----1261:
86 =>BEGIN Print[1077];Print[FontName^[ChrCode]];
IF FontSize^[ChrCode]#FontDsize^[ChrCode] THEN BEGIN Print[601];
PrintScaled[FontSize^[ChrCode]];Print[265]; END; END;--:1261----1263:
99 =>SELECT ChrCode FROM 0 =>PrintEsc[146];1 =>PrintEsc[147];2 =>PrintEsc[148];
 ENDCASE =>PrintEsc[1078];--:1263----1273:
60 =>IF ChrCode=0  THEN PrintEsc[1080] ELSE PrintEsc[1079];--:1273----1278:
58 =>IF ChrCode=0  THEN PrintEsc[1081] ELSE PrintEsc[1082];--:1278----1287:
57 =>IF ChrCode=4255  THEN PrintEsc[1088] ELSE PrintEsc[1089];--:1287
--1292:--19 =>SELECT ChrCode FROM 1 =>PrintEsc[1091];2 =>PrintEsc[1092];
3 =>PrintEsc[1093]; ENDCASE =>PrintEsc[1090];--:1292----1295:
100 =>Print[1100];110 =>Print[1101];111 =>PrintEsc[1102];112 =>PrintEsc[1103];
113 =>BEGIN PrintEsc[1024];PrintEsc[1103]; END;114 =>PrintEsc[1104];
--:1295----1346:--59 =>SELECT ChrCode FROM 0 =>PrintEsc[1134];1 =>PrintEsc[456];
2 =>PrintEsc[1135];3 =>PrintEsc[1136];4 =>PrintEsc[1137];
 ENDCASE =>Print[1138];--:1346-- ENDCASE =>Print[429]; END;--:298
 ShowEqtb: PROCEDURE[N: Halfword]
 = 
BEGIN IF  INT[N]<1  THEN PrintChar[63] ELSE IF  INT[N]<3026  THEN--223:
BEGIN SprintCs[N];PrintChar[61];
PrintCmdChr[Eqtb^[N].Hh.B0,Eqtb^[N].Hh.Rh];
IF  INT[Eqtb^[N].Hh.B0]>=110  THEN BEGIN PrintChar[58];
ShowTokenList[Mem[Eqtb^[N].Hh.Rh]^.Hh.Rh,0,32]; END; END--:223
 ELSE IF  INT[N]<3556  THEN--229:--IF  INT[N]<3044  THEN BEGIN PrintSkipParam[ INT[N]-3026];
PrintChar[61];
IF  INT[N]<3041  THEN PrintSpec[Eqtb^[N].Hh.Rh,265] ELSE PrintSpec[Eqtb^[N].Hh.
Rh,209]; END  ELSE IF  INT[N]<3300  THEN BEGIN PrintEsc[263];PrintInt[ INT[N]-3044];
PrintChar[61];PrintSpec[Eqtb^[N].Hh.Rh,265];
 END  ELSE BEGIN PrintEsc[264];PrintInt[ INT[N]-3300];PrintChar[61];
PrintSpec[Eqtb^[N].Hh.Rh,209]; END--:229-- ELSE IF  INT[N]<4767  THEN--233:
IF N=3556  THEN BEGIN PrintEsc[276];PrintChar[61];
IF Eqtb^[3556].Hh.Rh=0  THEN PrintChar[48] ELSE PrintInt[Mem[Eqtb^[3556].
Hh.Rh]^.Hh.Lh]; END  ELSE IF  INT[N]<3566  THEN BEGIN PrintCmdChr[71,N];
PrintChar[61];
IF Eqtb^[N].Hh.Rh#0  THEN ShowTokenList[Mem[Eqtb^[N].Hh.Rh]^.Hh.Rh,0,32];
 END  ELSE IF  INT[N]<3822  THEN BEGIN PrintEsc[275];PrintInt[ INT[N]-3566];
PrintChar[61];
IF Eqtb^[N].Hh.Rh#0  THEN ShowTokenList[Mem[Eqtb^[N].Hh.Rh]^.Hh.Rh,0,32];
 END  ELSE IF  INT[N]<4078  THEN BEGIN PrintEsc[277];PrintInt[ INT[N]-3822];
PrintChar[61];
IF Eqtb^[N].Hh.Rh=0  THEN Print[278] ELSE BEGIN DepthThreshold_0;
BreadthMax_1;ShowNodeList[Eqtb^[N].Hh.Rh]; END;
 END  ELSE IF  INT[N]<4127  THEN--234:
BEGIN IF N=4078  THEN Print[279] ELSE IF  INT[N]<4095  THEN BEGIN PrintEsc[280];
PrintInt[ INT[N]-4079]; END  ELSE IF  INT[N]<4111  THEN BEGIN PrintEsc[281];
PrintInt[ INT[N]-4095]; END  ELSE BEGIN PrintEsc[282];PrintInt[ INT[N]-4111]; END;
PrintChar[61];PrintEsc[Hash^[ INT[2768]+Eqtb^[N].Hh.Rh].Rh]; END--:234
 ELSE--235:--IF  INT[N]<4639  THEN BEGIN IF  INT[N]<4255  THEN BEGIN PrintEsc[283];
PrintInt[ INT[N]-4127]; END  ELSE IF  INT[N]<4383  THEN BEGIN PrintEsc[284];
PrintInt[ INT[N]-4255]; END  ELSE IF  INT[N]<4511  THEN BEGIN PrintEsc[285];
PrintInt[ INT[N]-4383]; END  ELSE BEGIN PrintEsc[286];PrintInt[ INT[N]-4511]; END;
PrintChar[61];PrintInt[Eqtb^[N].Hh.Rh]; END  ELSE BEGIN PrintEsc[287];
PrintInt[ INT[N]-4639];PrintChar[61];PrintInt[Eqtb^[N].Hh.Rh]; END--:235
--:233-- ELSE IF  INT[N]<5201  THEN--242:
BEGIN IF  INT[N]<4817  THEN PrintParam[ INT[N]-4767] ELSE IF  INT[N]<5073  THEN BEGIN
PrintEsc[339];PrintInt[ INT[N]-4817]; END  ELSE BEGIN PrintEsc[340];
PrintInt[ INT[N]-5073]; END;PrintChar[61];PrintInt[Eqtb^[N].Int]; END--:242
 ELSE IF  INT[N]<=5476  THEN--251:
BEGIN IF  INT[N]<5221  THEN PrintLengthParam[ INT[N]-5201] ELSE BEGIN PrintEsc[362]
;PrintInt[ INT[N]-5221]; END;PrintChar[61];PrintScaled[Eqtb^[N].Int];
Print[265]; END--:251-- ELSE PrintChar[63]; END;--:252----259:
 IdLookup: PROCEDURE[J,L: PascalInteger] RETURNS[IdLookupResult: Halfword] = 
BEGIN  H:PascalInteger;
P:Halfword;K:Halfword;--261:--H_Buffer^[J];
FOR i:INT    IN [ INT[J+1 ].. INT[J+L-1 ]] DO  K _ i;  H_H+H+Buffer^[K];
WHILE H>=2129 DO H_H-2129 ENDLOOP ;--:261-- ENDLOOP;P_H+258;
{WHILE TRUE DO BEGIN IF  INT[Hash^[P].Rh]>0  THEN IF(
 INT[StrStart^[Hash^[P].Rh+1]]-StrStart^[Hash^[P].Rh])=L  THEN IF StrEqBuf[Hash^[P].Rh,J] THEN  GOTO Label40;
IF Hash^[P].Lh=0  THEN BEGIN IF NoNewControlSequence  THEN P_3025  ELSE--
-- 260:
BEGIN IF  INT[Hash^[P].Rh]>0  THEN BEGIN DO IF(HashUsed=258) THEN Overflow[
365,2500];HashUsed_ INT[HashUsed]-1; IF Hash^[HashUsed].Rh=0 THEN EXIT; ENDLOOP;
Hash^[P].Lh_HashUsed;P_HashUsed; END;
BEGIN IF PoolPtr+L>PoolSize  THEN Overflow[129,PoolSize-InitPoolPtr]
; END;FOR i:INT    IN [ INT[J ].. INT[J+L-1 ]] DO  K _ i;  StrPool^[PoolPtr]_Buffer^[K];
PoolPtr_PoolPtr+1; ENDLOOP;Hash^[P].Rh_MakeString[];CsCount_CsCount+1;
 END--:260--; GOTO Label40; END;P_Hash^[P].Lh; END ENDLOOP ;EXITS Label40 => NULL};IdLookupResult_P; END;--:259----264:
 Primitive: PROCEDURE[S: StrNumber,C: Quarterword,O: Halfword]
 = 
BEGIN K:PoolPointer;J:SmallNumber;L:SmallNumber;
 IF  INT[S]<128  THEN CurVal_S+129  ELSE BEGIN K_StrStart^[S];
L_ INT[StrStart^[S+1]]-K;FOR i:INT    IN [ INT[0 ].. INT[L-1 ]] DO  J _ i; Buffer^[J]_StrPool^[K+J] ENDLOOP;
CurVal_IdLookup[0,L];BEGIN StrPtr_StrPtr-1;
PoolPtr_StrStart^[StrPtr]; END;Hash^[CurVal].Rh_S; END;
Eqtb^[CurVal].Hh.B1_1;Eqtb^[CurVal].Hh.B0_C;Eqtb^[CurVal].Hh.Rh_O;
 END;--:264----274:-- NewSaveLevel: PROCEDURE[C: GroupCode]
 = 
BEGIN IF  INT[SavePtr]>MaxSaveStack  THEN BEGIN MaxSaveStack_SavePtr;
IF  INT[MaxSaveStack]>SaveSize-6  THEN Overflow[402,SaveSize]; END;
SaveStack^[SavePtr].Hh.B0_3;SaveStack^[SavePtr].Hh.B1_CurGroup;
SaveStack^[SavePtr].Hh.Rh_CurBoundary;
IF CurLevel=255  THEN Overflow[403,255];CurBoundary_SavePtr;
CurLevel_CurLevel+1;SavePtr_SavePtr+1;CurGroup_C; END;--:274
--275:-- EqDestroy: PROCEDURE[W: MemoryWord] = 
BEGIN Q:Halfword;
 SELECT W.Hh.B0 FROM 110,111,112,113 =>DeleteTokenRef[W.Hh.Rh];
116 =>DeleteGlueRef[W.Hh.Rh];117 =>BEGIN Q_W.Hh.Rh;
IF Q#0  THEN FreeNode[Q, INT[Mem[Q]^.Hh.Lh]+Mem[Q]^.Hh.Lh+1]; END;
118 =>FlushNodeList[W.Hh.Rh]; ENDCASE => NULL; END;--:275----276:
 EqSave: PROCEDURE[P: Halfword,L: Quarterword]
 = 
BEGIN IF  INT[SavePtr]>MaxSaveStack  THEN BEGIN MaxSaveStack_SavePtr;
IF  INT[MaxSaveStack]>SaveSize-6  THEN Overflow[402,SaveSize]; END;
IF L=0  THEN SaveStack^[SavePtr].Hh.B0_1  ELSE BEGIN SaveStack^[SavePtr
]_Eqtb^[P];SavePtr_SavePtr+1;SaveStack^[SavePtr].Hh.B0_0; END;
SaveStack^[SavePtr].Hh.B1_L;SaveStack^[SavePtr].Hh.Rh_P;
SavePtr_SavePtr+1; END;--:276----277:-- EqDefine: PROCEDURE[P: Halfword,
T: Quarterword,E: Halfword]
 = 
BEGIN IF Eqtb^[P].Hh.B1=CurLevel  THEN EqDestroy[Eqtb^[P]] ELSE IF
 INT[CurLevel]>1  THEN EqSave[P,Eqtb^[P].Hh.B1];Eqtb^[P].Hh.B1_CurLevel;
Eqtb^[P].Hh.B0_T;Eqtb^[P].Hh.Rh_E; END;--:277----278:
 EqWordDefine: PROCEDURE[P: Halfword,W: PascalInteger]
 = 
BEGIN IF XeqLevel^[P]#CurLevel  THEN BEGIN EqSave[P,XeqLevel^[P]];
XeqLevel^[P]_CurLevel; END;Eqtb^[P].Int_W; END;--:278----279:
 GeqDefine: PROCEDURE[P: Halfword,T: Quarterword,E: Halfword]
 = 
BEGIN EqDestroy[Eqtb^[P]];Eqtb^[P].Hh.B1_1;Eqtb^[P].Hh.B0_T;
Eqtb^[P].Hh.Rh_E; END; GeqWordDefine: PROCEDURE[P: Halfword,W: PascalInteger]
 = 
BEGIN Eqtb^[P].Int_W;XeqLevel^[P]_1; END;--:279----280:
 SaveForAfter: PROCEDURE[T: Halfword]
 = 
BEGIN IF  INT[SavePtr]>MaxSaveStack  THEN BEGIN MaxSaveStack_SavePtr;
IF  INT[MaxSaveStack]>SaveSize-6  THEN Overflow[402,SaveSize]; END;
SaveStack^[SavePtr].Hh.B0_2;SaveStack^[SavePtr].Hh.B1_0;
SaveStack^[SavePtr].Hh.Rh_T;SavePtr_SavePtr+1; END;--:280----281:
--284:-- RestoreTrace: PROCEDURE[P: Halfword,S: StrNumber]
 = 
BEGIN BeginDiagnostic[];PrintChar[123];Print[S];PrintChar[32];
ShowEqtb[P];PrintChar[125];EndDiagnostic[FALSE]; END;--:284
 Unsave: PROCEDURE = 
BEGIN  P:Halfword;
L:Quarterword;T:Halfword;
 IF  INT[CurLevel]>1  THEN BEGIN CurLevel_CurLevel-1;--282:
{WHILE TRUE DO BEGIN SavePtr_SavePtr-1;
IF SaveStack^[SavePtr].Hh.B0=3  THEN  GOTO Label30;
P_SaveStack^[SavePtr].Hh.Rh;IF SaveStack^[SavePtr].Hh.B0=2  THEN--326:
BEGIN T_CurTok;CurTok_P;BackInput[];CurTok_T; END--:326
 ELSE BEGIN IF SaveStack^[SavePtr].Hh.B0=0  THEN BEGIN L_SaveStack^
[SavePtr].Hh.B1;SavePtr_SavePtr-1;
 END  ELSE SaveStack^[SavePtr]_Eqtb^[3025];--283:
IF  INT[P]<4767  THEN IF Eqtb^[P].Hh.B1=1  THEN BEGIN EqDestroy[SaveStack^
[SavePtr]];IF Eqtb^[4804].Int>0  THEN RestoreTrace[P,405];
 END  ELSE BEGIN EqDestroy[Eqtb^[P]];Eqtb^[P]_SaveStack^[SavePtr];
IF Eqtb^[4804].Int>0  THEN RestoreTrace[P,406];
 END  ELSE IF XeqLevel^[P]#1  THEN BEGIN Eqtb^[P]_SaveStack^[SavePtr];
XeqLevel^[P]_L;IF Eqtb^[4804].Int>0  THEN RestoreTrace[P,406];
 END  ELSE BEGIN IF Eqtb^[4804].Int>0  THEN RestoreTrace[P,405]; END--:283--;
 END; END ENDLOOP ;EXITS Label30 => NULL};CurGroup_SaveStack^[SavePtr].Hh.B1;
CurBoundary_SaveStack^[SavePtr].Hh.Rh--:282--; END  ELSE Confusion[404];
 END;--:281----288:-- PrepareMag: PROCEDURE = 
BEGIN UserWantsPress:PascalBoolean;
 UserWantsPress_ProfileAsksForPress[];
IF(MagSet>0)AND (Eqtb^[4784].Int#MagSet) THEN BEGIN BEGIN IF Interaction
=3  THEN NULL;PrintNl[134];Print[408]; END;PrintInt[Eqtb^[4784].Int];
Print[409];PrintNl[410];BEGIN HelpPtr_2;HelpLine^[1]_411;
HelpLine^[0]_412; END;IntError[MagSet];GeqWordDefine[4784,MagSet];
 END;
IF(MagSet>0)AND (UsePressFormat#UserWantsPress) THEN BEGIN BEGIN IF
Interaction=3  THEN NULL;PrintNl[134];Print[413]; END;Error[];
UserWantsPress_UsePressFormat; END;
IF(Eqtb^[4784].Int<=0)OR (Eqtb^[4784].Int>32768) THEN BEGIN BEGIN IF
Interaction=3  THEN NULL;PrintNl[134];Print[414]; END;BEGIN HelpPtr_1;
HelpLine^[0]_415; END;IntError[Eqtb^[4784].Int];
GeqWordDefine[4784,1000]; END;MagSet_Eqtb^[4784].Int;
UsePressFormat_UserWantsPress; END;--:288----295:
 TokenShow: PROCEDURE[P: Halfword]
 = 
BEGIN IF P#0  THEN ShowTokenList[Mem[P]^.Hh.Rh,0,1000]; END;--:295----296:
 PrintMeaning: PROCEDURE = 
BEGIN PrintCmdChr[CurCmd,CurChr];
IF  INT[CurCmd]>=110  THEN BEGIN PrintChar[58];PrintLn[];TokenShow[CurChr];
 END  ELSE IF CurCmd=109  THEN BEGIN PrintChar[58];PrintLn[];
TokenShow[CurMark^[CurChr]]; END; END;--:296----299:
 ShowCurCmdChr: PROCEDURE = 
BEGIN BeginDiagnostic[];PrintNl[123];
IF CurList.ModeField#ShownMode  THEN BEGIN PrintMode[CurList.
ModeField];Print[430];ShownMode_CurList.ModeField; END;
PrintCmdChr[CurCmd,CurChr];PrintChar[125];EndDiagnostic[FALSE];
 END;--:299----311:--
END.