DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦c61b3979a⟧ TextFile

    Length: 1792 (0x700)
    Types: TextFile
    Names: »GEMPTYPE.I«

Derivation

└─⟦4fbcde1e4⟧ Bits:30003931/GEM_Development-A.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »GEMPTYPE.I« 

TextFile


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