|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1792 (0x700)
Types: TextFile
Names: »GEMPTYPE.I«
└─⟦4fbcde1e4⟧ Bits:30003931/GEM_Development-A.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »GEMPTYPE.I«
TYPE
(*** GEMPTYPE.I **** Standard Types for GEM VDI Turbo Pascal programs **)
CharString = STRINGÆ80Å;
(** All arrays relative to zero here **)
contrl_ARRAY = ARRAY Æ0..cntl_maxÅ OF INTEGER;
intin_ARRAY = ARRAY Æ0..intin_maxÅ OF INTEGER;
intout_ARRAY = ARRAY Æ0..intout_maxÅ OF INTEGER;
ptsin_ARRAY = ARRAY Æ0..pts_maxÅ OF INTEGER;
ptsout_ARRAY = ARRAY Æ0..pts_maxÅ OF INTEGER;
(* type defns for gemtools *)
gptr = ^BYTE; (* general 32 bit pointer *)
gempointptr=^gempoint;
gempoint = RECORD (* ptr redefined so each part avail *)
CASE INTEGER OF
0 : (gp : gptr);
1 : (lo : INTEGER;
hi : INTEGER);
2 : (gwp: ^INTEGER);
3 : (ggp: gempointptr);
END;
ARRAY_57 = ARRAY Æ0..56Å OF INTEGER; (* std arrray sizes *)
ARRAY_3 = ARRAY Æ0..2Å OF INTEGER;
ARRAY_4 = ARRAY Æ0..3Å OF INTEGER;
ARRAY_8 = ARRAY Æ0..7Å OF INTEGER;
ARRAY_10 = ARRAY Æ0..9Å OF INTEGER;
ARRAY_16 = ARRAY Æ0..15Å OF INTEGER;
ARRAY_37 = ARRAY Æ0..36Å OF INTEGER;
MFDB = record (* MFDB layout *)
mptr : gempoint; (* 32 bit pointer *)
formwidth : INTEGER;
formheight : INTEGER;
widthword : INTEGER;
formatflag : INTEGER;
memplanes : INTEGER;
res1 : INTEGER; (* reserved for futures *)
res2 : INTEGER;
res3 : INTEGER;
END; (* end MFDB record layout *)