|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 896 (0x380)
Types: TextFile
Names: »GEMPATYP.I«
└─⟦4fbcde1e4⟧ Bits:30003931/GEM_Development-A.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »GEMPATYP.I«
(** 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 ***)