|
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 *)