-- file: PLtoTF4Impl.mesa
-- Pascal-to-Mesa translator output, translated at October 23, 1985 11:00:04 am PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  PLtoTFPrivate,
  PLtoTFExternals;

PLtoTF4Impl: PROGRAM IMPORTS PascalBasic, PascalWizardFiles, PLtoTFPrivate EXPORTS PLtoTFPrivate = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, PLtoTFPrivate, PLtoTFExternals;

 WriteByte: PROCEDURE[ F: LONG POINTER TO ByteFile,B: PascalInteger[0..255]] = 
BEGIN PascalWriteLong[file: @F^.baseFile, length: SIZE[PascalInteger[0..255], 2], element: @F^.element, item: @B]; END;
--:86----87:-- ReadBcpl: PROCEDURE[L: HeaderIndex,N: Byte] = 
BEGIN K:HeaderIndex;
 K_L;WHILE CurChar=32 DO GetNext[] ENDLOOP ;
WHILE(CurChar#40)AND (CurChar#41)DO BEGIN IF  INT[K]<L+N  THEN K_K+1;
IF  INT[K]<L+N  THEN HeaderBytes^[K]_CurChar;GetNext[]; END ENDLOOP ;
IF K=L+N  THEN BEGIN BEGIN IF  INT[CharsOnLine]>0  THEN {PascalWriteLongString[file: @Output, item: " "]; PascalWriteLn[file: @Output]};
{PascalWriteLongString[file: @Output, item: "String is too long; its first "]; PascalWriteInteger[file: @Output, item: N-1, fieldMinLength: 1]; PascalWriteLongString[file: @Output, item: " characters will be kept"]
};ShowErrorContext[]; END;K_K-1; END;HeaderBytes^[L]_K-L;
WHILE  INT[K]<L+N-1 DO BEGIN K_K+1;HeaderBytes^[K]_0; END ENDLOOP ; END;--:87----96:
 CheckTag: PROCEDURE[C: Byte] = 
BEGIN SELECT CharTag^[C]FROM 0 => NULL;
1 =>BEGIN IF  INT[CharsOnLine]>0  THEN {PascalWriteLongString[file: @Output, item: " "]; PascalWriteLn[file: @Output]};
PascalWriteLongString[file: @Output, item: "This character already appeared in a LIGTABLE LABEL"];
ShowErrorContext[]; END;2 =>BEGIN IF  INT[CharsOnLine]>0  THEN {PascalWriteLongString[file: @Output, item: " "]; PascalWriteLn[file: @Output]};
PascalWriteLongString[file: @Output, item: "This character already has a NEXTLARGER spec"];
ShowErrorContext[]; END;3 =>BEGIN IF  INT[CharsOnLine]>0  THEN {PascalWriteLongString[file: @Output, item: " "]; PascalWriteLn[file: @Output]};
PascalWriteLongString[file: @Output, item: "This character already has a VARCHAR spec"];ShowErrorContext[];
 END; ENDCASE; END;--:96----106:-- PrintOctal: PROCEDURE[C: Byte]
 = 
BEGIN {PascalWriteLongString[file: @Output, item: "'"]; PascalWriteInteger[file: @Output, item: ( PascalDIVPower2[C ,6]), fieldMinLength: 1]; PascalWriteInteger[file: @Output, item: ( PascalMODPower2Mask[( PascalDIVPower2[C ,3]),7]), fieldMinLength: 1]; PascalWriteInteger[file: @Output, item: ( PascalMODPower2Mask[C ,7]), fieldMinLength: 1]}; END;--:106
--128:-- OutScaled: PROCEDURE[X: FixWord] = 
BEGIN Z:PascalReal;N:Byte;M:PascalInteger[0..65535];
 IF ABS[PascalFLOAT[X]/PascalFLOAT[DesignUnits]]>=16.0  THEN BEGIN {
PascalWriteLongString[file: @Output, item: "The relative dimension"]; PascalWriteReal[file: @Output, item: PascalFLOAT[X]/PascalFLOAT[1048576], fieldMinLength: 1, fracLength: 3]; PascalWriteLongString[file: @Output, item: " is too large."]; PascalWriteLn[file: @Output]};
PascalWriteLongString[file: @Output, item: "  (Must be less than 16*designsize"];
IF DesignUnits#1048576  THEN {PascalWriteLongString[file: @Output, item: " ="]; PascalWriteReal[file: @Output, item: PascalFLOAT[DesignUnits]/PascalFLOAT[65536], fieldMinLength: 1, fracLength: 3]
; PascalWriteLongString[file: @Output, item: " designunits"]};{PascalWriteLongString[file: @Output, item: ")"]; PascalWriteLn[file: @Output]};X_0; END;
IF X<0  THEN WriteByte[@TfmFile,255] ELSE WriteByte[@TfmFile,0];
IF DesignUnits=1048576  THEN BEGIN IF X<0  THEN X_X+16777216;
N_ PascalDIVPower2[X ,16];M_ PascalMODPower2Mask[X ,65535]; END  ELSE BEGIN Z_(PascalFLOAT[X]/PascalFLOAT[DesignUnits])*16.0;
IF Z<PascalFLOAT[0 ] THEN Z_Z+256.0;N_PascalTRUNC[Z];M_PascalTRUNC[65536.0*(Z-PascalFLOAT[N])]; END;
WriteByte[@TfmFile,N];WriteByte[@TfmFile, PascalDIVPower2[M ,8]];
WriteByte[@TfmFile, PascalMODPower2Mask[M ,255]]; END;--:128----134:-- ParamEnter: PROCEDURE
 = 
BEGIN--48:-- NameLength_5;CurName^[16]_83;CurName^[17]_76;
CurName^[18]_65;CurName^[19]_78;CurName^[20]_84;EnterName[21];
NameLength_5;CurName^[16]_83;CurName^[17]_80;CurName^[18]_65;
CurName^[19]_67;CurName^[20]_69;EnterName[22];NameLength_7;
CurName^[14]_83;CurName^[15]_84;CurName^[16]_82;CurName^[17]_69;
CurName^[18]_84;CurName^[19]_67;CurName^[20]_72;EnterName[23];
NameLength_6;CurName^[15]_83;CurName^[16]_72;CurName^[17]_82;
CurName^[18]_73;CurName^[19]_78;CurName^[20]_75;EnterName[24];
NameLength_7;CurName^[14]_88;CurName^[15]_72;CurName^[16]_69;
CurName^[17]_73;CurName^[18]_71;CurName^[19]_72;CurName^[20]_84;
EnterName[25];NameLength_4;CurName^[17]_81;CurName^[18]_85;
CurName^[19]_65;CurName^[20]_68;EnterName[26];NameLength_10;
CurName^[11]_69;CurName^[12]_88;CurName^[13]_84;CurName^[14]_82;
CurName^[15]_65;CurName^[16]_83;CurName^[17]_80;CurName^[18]_65;
CurName^[19]_67;CurName^[20]_69;EnterName[27];NameLength_4;
CurName^[17]_78;CurName^[18]_85;CurName^[19]_77;CurName^[20]_49;
EnterName[28];NameLength_4;CurName^[17]_78;CurName^[18]_85;
CurName^[19]_77;CurName^[20]_50;EnterName[29];NameLength_4;
CurName^[17]_78;CurName^[18]_85;CurName^[19]_77;CurName^[20]_51;
EnterName[30];NameLength_6;CurName^[15]_68;CurName^[16]_69;
CurName^[17]_78;CurName^[18]_79;CurName^[19]_77;CurName^[20]_49;
EnterName[31];NameLength_6;CurName^[15]_68;CurName^[16]_69;
CurName^[17]_78;CurName^[18]_79;CurName^[19]_77;CurName^[20]_50;
EnterName[32];NameLength_4;CurName^[17]_83;CurName^[18]_85;
CurName^[19]_80;CurName^[20]_49;EnterName[33];NameLength_4;
CurName^[17]_83;CurName^[18]_85;CurName^[19]_80;CurName^[20]_50;
EnterName[34];NameLength_4;CurName^[17]_83;CurName^[18]_85;
CurName^[19]_80;CurName^[20]_51;EnterName[35];NameLength_4;
CurName^[17]_83;CurName^[18]_85;CurName^[19]_66;CurName^[20]_49;
EnterName[36];NameLength_4;CurName^[17]_83;CurName^[18]_85;
CurName^[19]_66;CurName^[20]_50;EnterName[37];NameLength_7;
CurName^[14]_83;CurName^[15]_85;CurName^[16]_80;CurName^[17]_68;
CurName^[18]_82;CurName^[19]_79;CurName^[20]_80;EnterName[38];
NameLength_7;CurName^[14]_83;CurName^[15]_85;CurName^[16]_66;
CurName^[17]_68;CurName^[18]_82;CurName^[19]_79;CurName^[20]_80;
EnterName[39];NameLength_6;CurName^[15]_68;CurName^[16]_69;
CurName^[17]_76;CurName^[18]_73;CurName^[19]_77;CurName^[20]_49;
EnterName[40];NameLength_6;CurName^[15]_68;CurName^[16]_69;
CurName^[17]_76;CurName^[18]_73;CurName^[19]_77;CurName^[20]_50;
EnterName[41];NameLength_10;CurName^[11]_65;CurName^[12]_88;
CurName^[13]_73;CurName^[14]_83;CurName^[15]_72;CurName^[16]_69;
CurName^[17]_73;CurName^[18]_71;CurName^[19]_72;CurName^[20]_84;
EnterName[42];NameLength_20;CurName^[1]_68;CurName^[2]_69;
CurName^[3]_70;CurName^[4]_65;CurName^[5]_85;CurName^[6]_76;
CurName^[7]_84;CurName^[8]_82;CurName^[9]_85;CurName^[10]_76;
CurName^[11]_69;CurName^[12]_84;CurName^[13]_72;CurName^[14]_73;
CurName^[15]_67;CurName^[16]_75;CurName^[17]_78;CurName^[18]_69;
CurName^[19]_83;CurName^[20]_83;EnterName[28];NameLength_13;
CurName^[8]_66;CurName^[9]_73;CurName^[10]_71;CurName^[11]_79;
CurName^[12]_80;CurName^[13]_83;CurName^[14]_80;CurName^[15]_65;
CurName^[16]_67;CurName^[17]_73;CurName^[18]_78;CurName^[19]_71;
CurName^[20]_49;EnterName[29];NameLength_13;CurName^[8]_66;
CurName^[9]_73;CurName^[10]_71;CurName^[11]_79;CurName^[12]_80;
CurName^[13]_83;CurName^[14]_80;CurName^[15]_65;CurName^[16]_67;
CurName^[17]_73;CurName^[18]_78;CurName^[19]_71;CurName^[20]_50;
EnterName[30];NameLength_13;CurName^[8]_66;CurName^[9]_73;
CurName^[10]_71;CurName^[11]_79;CurName^[12]_80;CurName^[13]_83;
CurName^[14]_80;CurName^[15]_65;CurName^[16]_67;CurName^[17]_73;
CurName^[18]_78;CurName^[19]_71;CurName^[20]_51;EnterName[31];
NameLength_13;CurName^[8]_66;CurName^[9]_73;CurName^[10]_71;
CurName^[11]_79;CurName^[12]_80;CurName^[13]_83;CurName^[14]_80;
CurName^[15]_65;CurName^[16]_67;CurName^[17]_73;CurName^[18]_78;
CurName^[19]_71;CurName^[20]_52;EnterName[32];NameLength_13;
CurName^[8]_66;CurName^[9]_73;CurName^[10]_71;CurName^[11]_79;
CurName^[12]_80;CurName^[13]_83;CurName^[14]_80;CurName^[15]_65;
CurName^[16]_67;CurName^[17]_73;CurName^[18]_78;CurName^[19]_71;
CurName^[20]_53;EnterName[33];--:48-- END;
END.