DataMuseum.dk Presents historical artifacts from the history of: CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦9344ff16b⟧

    Length: 688 (0x2b0)
    Names: »IMPORT.I«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!LINEIO.D!V01CT.D!PASCAL.D!IMPORT.I« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!LINEIO.D!V01CT.D!PASCAL.D!IMPORT.I« 

Hex Dump

0x000…020 25 49 4d 50 4f 52 54 3a 20 53 54 52 45 41 4d 5f 49 4e 4c 49 4e 45 0a 25 49 4d 50 4f 52 54 3a 20   ┆%IMPORT: STREAM_INLINE %IMPORT: ┆
0x020…040 53 54 52 45 41 4d 5f 4f 55 54 4c 49 4e 45 0a 0a 0a 50 52 4f 43 45 44 55 52 45 20 53 54 52 45 41   ┆STREAM_OUTLINE   PROCEDURE STREA┆
0x040…060 4d 5f 49 4e 4c 49 4e 45 20 28 20 20 20 20 20 49 4e 53 54 52 45 41 4d 20 20 20 20 20 20 3a 20 53   ┆M_INLINE (     INSTREAM      : S┆
0x060…080 54 52 45 41 4d 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆TREAM ;                         ┆
0x080…0a0 20 20 56 41 52 20 46 49 52 53 54 5f 45 4c 45 4d 45 4e 54 20 3a 20 55 4e 49 56 20 45 4c 45 4d 45   ┆  VAR FIRST_ELEMENT : UNIV ELEME┆
0x0a0…0c0 4e 54 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆NT ;                            ┆
0x0c0…0e0 20 20 20 42 59 54 45 4f 46 46 53 45 54 20 20 20 20 3a 20 49 4e 54 45 47 45 52 20 3b 0a 20 20 20   ┆   BYTEOFFSET    : INTEGER ;    ┆
0x0e0…100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 4e 4f 5f 4f 46   ┆                       VAR NO_OF┆
0x100…120 5f 42 59 54 45 53 20 20 20 3a 20 49 4e 54 45 47 45 52 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20   ┆_BYTES   : INTEGER ;            ┆
0x120…140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 43 43 20 20 20 20 20 20 20 20 20 20 20   ┆               VAR CC           ┆
0x140…160 20 3a 20 43 4f 4d 50 4c 45 54 49 4f 4e 5f 43 4f 44 45 20 20 20 20 20 20 20 20 20 20 20 20 29 3b   ┆ : COMPLETION_CODE            );┆
0x160…180 0a 0a 45 58 54 45 52 4e 20 3b 0a 0a 0a 0a 50 52 4f 43 45 44 55 52 45 20 53 54 52 45 41 4d 5f 4f   ┆  EXTERN ;    PROCEDURE STREAM_O┆
0x180…1a0 55 54 4c 49 4e 45 20 28 20 20 20 20 20 4f 55 54 53 54 52 45 41 4d 20 20 20 20 20 3a 20 53 54 52   ┆UTLINE (     OUTSTREAM     : STR┆
0x1a0…1c0 45 41 4d 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EAM ;                           ┆
0x1c0…1e0 20 20 20 20 20 46 49 52 53 54 5f 45 4c 45 4d 45 4e 54 20 3a 20 55 4e 49 56 20 45 4c 45 4d 45 4e   ┆     FIRST_ELEMENT : UNIV ELEMEN┆
0x1e0…200 54 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T ;                             ┆
0x200…220 20 20 20 42 59 54 45 4f 46 46 53 45 54 20 20 20 20 3a 20 49 4e 54 45 47 45 52 20 3b 0a 20 20 20   ┆   BYTEOFFSET    : INTEGER ;    ┆
0x220…240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 5f 4f   ┆                            NO_O┆
0x240…260 46 5f 42 59 54 45 53 20 20 20 3a 20 49 4e 54 45 47 45 52 20 3b 0a 20 20 20 20 20 20 20 20 20 20   ┆F_BYTES   : INTEGER ;           ┆
0x260…280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 43 43 20 20 20 20 20 20 20 20 20   ┆                 VAR CC         ┆
0x280…2a0 20 20 20 3a 20 43 4f 4d 50 4c 45 54 49 4f 4e 5f 43 4f 44 45 20 20 20 20 20 20 20 20 20 20 20 20   ┆   : COMPLETION_CODE            ┆
0x2a0…2b0 29 3b 0a 0a 45 58 54 45 52 4e 20 20 3b 0a 20 10   ┆);  EXTERN  ;   ┆