Download med-pc® iv programmer`s manual

M E D A S S O C I AT E S I N C .
MED -PC IV PROGRAMMER’S MANUAL
Each compiled .MPC procedure has a unique nested record definition. Whenever a given .MPC
procedure is loaded with the runtime load command, an element of the appropriate record is created
with Pascal’s NEW() procedure. Below is an example of the definition created by TRANS IV for a .MPC
procedure named TEST1.MPC.
Type
MPCProgramType = Record
Description: DescriptionRec;
Header: HeadRec;
A,B,C,D,E,F,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z: Extended;
G: Packed Array [0..10] Of Extended;
End;
MPCProgramArrType = Packed Array [1..16] of ^MPCProgramType;
Var
MPCProgramRec: MPCProgramArrType;
The following record definitions are found within MEDTYPES.DCU and are used to define data structures
referenced in the data definitions of individual MSN procedures:
RecordRecPtr = ^RecordRec;
RecordRec = Record
St: String20; {String20 = String[20];}
Next: Pointer;
End;
VarRec = Record
VarKind, HasList: Byte;
Size: Integer;
StartOffset: Integer
End;
DescriptionRec = Record
RecordSize: Longint;
Vars: Packed Array [‘A’..’Z’] of VarRec;
PPrintoutDescription, DPrintoutDescription: TUserPrinterSettings;
ThePrinter: Pointer;
PPrintOptions, PPrintWidth, PPrintDecimals,
PA_H, PI_P, PQ_X, PY_Z: Byte;
DPrintOptions, DPrintWidth, DPrintDecimals,
DA_H, DI_P, DQ_X, DY_Z: Byte;
TimeDurs, Times, Ins: Integer;
RecordH, RecordT: Packed Array [1..2] of RecordRecPtr;
AddRecord: Byte;
Y2KCompliant: Boolean;
VarAliasList: TStringList;
FlushPermission: Boolean;
End;
(continued on next page)
165