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

⟦6db7e5810⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »GEMPATYP.I«

Derivation

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

TextFile


(** GEMPATYP.I  ----  Types for AES bindings **)

TYPE

(***** pointer fields or address fields **)
        glptr = ^BYTE;                  (* general 32 bit pointer *)
        gemlpoint = RECORD              (* ptr redefined so each part avail *)
                CASE INTEGER OF
                1 : (gp : glptr);
                2 : (*(gl : ADDRESS);*)
                        (lo : integer;
                        hi : integer);
                3 : (gwp : ^integer);
                        END;
        ADDRESS = gemlpoint;
ac_ARRAY = ARRAYÆ0..4Å OF INTEGER;
ai_ARRAY = ARRAYÆ0..15Å OF INTEGER;
ao_ARRAY = ARRAYÆ0..6Å OF INTEGER;
ag_ARRAY = ARRAY Æ0..14Å OF INTEGER;
aad_ARRAY = ARRAY Æ0..3Å OF gemlpoint(*ADDRESS*);
 
(*** end of gempatyp.i ***)