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

⟦09f045afd⟧

    Length: 934 (0x3a6)
    Names: »INPARAMS.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!INPARAMS.D!V0101.D!PASCAL.D!INPARAMS.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!INPARAMS.D!V01CT.D!PASCAL.D!INPARAMS.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!INPARAMS.D!V0101.D!PASCAL.D!INPARAMS.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!INPARAMS.D!V01CT.D!PASCAL.D!INPARAMS.I« 

Hex Dump

0x000…020 0a 25 4c 49 53 54 20 20 20 20 20 25 4c 49 53 54 20 20 20 20 20 25 4c 49 53 54 0a 22 2d 2d 2d 2d   ┆ %LIST     %LIST     %LIST "----┆
0x020…040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
       […0x1…]
0x060…080 2d 2d 2d 0a 22 0a 22 20 20 4d 4f 44 55 4c 45 20 4e 41 4d 45 3a 20 20 20 20 20 20 20 20 20 20 20   ┆--- " "  MODULE NAME:           ┆
0x080…0a0 49 4e 50 41 52 41 4d 53 20 49 4d 50 4f 52 54 20 44 45 43 4c 41 52 41 54 49 4f 4e 53 0a 22 20 20   ┆INPARAMS IMPORT DECLARATIONS "  ┆
0x0a0…0c0 4d 4f 44 55 4c 45 20 49 44 20 4e 4d 42 3a 20 20 20 20 20 20 20 20 20 43 53 53 2f 31 32 37 0a 22   ┆MODULE ID NMB:         CSS/127 "┆
0x0c0…0e0 20 20 4d 4f 44 55 4c 45 20 56 45 52 53 49 4f 4e 3a 20 20 20 20 20 20 20 20 30 31 0a 22 20 20 4d   ┆  MODULE VERSION:        01 "  M┆
0x0e0…100 4f 44 55 4c 45 20 52 45 4c 45 41 53 45 3a 20 20 20 20 20 20 20 20 30 31 0a 22 20 20 52 45 4c 45   ┆ODULE RELEASE:        01 "  RELE┆
0x100…120 41 53 45 20 44 41 54 45 3a 20 20 20 20 20 20 20 20 20 20 38 33 30 35 31 38 0a 22 0a 22 2d 2d 2d   ┆ASE DATE:          830518 " "---┆
0x120…140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
       […0x1…]
0x160…180 2d 2d 2d 2d 0a 25 4e 4f 4c 49 53 54 20 20 20 25 4e 4f 4c 49 53 54 20 20 20 25 4e 4f 4c 49 53 54   ┆---- %NOLIST   %NOLIST   %NOLIST┆
0x180…1a0 0a 0a 0a 22 20 4e 20 6f 20 74 20 65 3a 0a 22 0a 22 20 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 72   ┆   " N o t e: " "  This module r┆
0x1a0…1c0 65 71 75 69 72 65 73 20 55 54 49 4c 49 54 59 48 45 4c 50 0a 22 0a 69 6d 70 6f 72 74 20 76 61 72   ┆equires UTILITYHELP " import var┆
0x1c0…1e0 0a 20 20 69 66 69 6c 65 74 79 70 65 3a 20 66 69 6c 65 74 79 70 65 3b 20 20 20 20 20 20 20 20 20   ┆   ifiletype: filetype;         ┆
0x1e0…200 20 20 22 69 6e 70 75 74 20 66 69 6c 65 20 64 65 73 63 72 0a 20 20 6f 66 69 6c 65 74 79 70 65 3a   ┆  "input file descr   ofiletype:┆
0x200…220 20 66 69 6c 65 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 20 20 22 6f 75 74 70 75 74 20 66 69 6c   ┆ filetype;           "output fil┆
0x220…240 65 20 64 65 73 63 72 0a 0a 0a 69 6d 70 6f 72 74 20 70 72 6f 63 65 64 75 72 65 20 69 6e 70 61 72   ┆e descr   import procedure inpar┆
0x240…260 61 6d 73 28 72 36 29 3b 20 22 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 64 65 73 74 72 6f 79 65   ┆ams(r6); "all registers destroye┆
0x260…280 64 0a 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22   ┆d "============================"┆
0x280…2a0 0a 22 0a 22 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 73 20 74 68 65 20 73   ┆ " "  This procedure reads the s┆
0x2a0…2c0 65 63 6f 6e 64 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 66 69 6c 65   ┆econd line of the parameter file┆
0x2c0…2e0 0a 22 20 20 73 65 61 72 63 68 69 6e 67 20 66 6f 72 0a 22 0a 22 20 20 20 20 20 49 3a 3c 66 69 6c   ┆ "  searching for " "     I:<fil┆
0x2e0…300 65 2d 69 64 3e 20 20 20 20 4f 3a 3c 66 69 6c 65 2d 69 64 3e 0a 22 0a 22 0a 22 20 20 49 66 20 66   ┆e-id>    O:<file-id> " " "  If f┆
0x300…320 6f 75 6e 64 2c 20 74 68 65 20 66 69 6c 65 73 20 61 72 65 20 6f 70 65 6e 65 64 2c 20 61 6e 64 20   ┆ound, the files are opened, and ┆
0x320…340 73 74 72 65 61 6d 73 20 63 6f 6e 6e 65 63 74 65 64 2e 0a 22 20 20 54 68 65 20 6f 75 74 70 75 74   ┆streams connected. "  The output┆
0x340…360 20 66 69 6c 65 20 69 73 20 72 65 73 65 74 2c 20 74 6f 6f 2e 0a 22 20 20 49 66 20 6e 6f 74 20 66   ┆ file is reset, too. "  If not f┆
0x360…380 6f 75 6e 64 2c 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 61 6e 64 2f 6f 72 20 63 75 72 72 65   ┆ound, current input and/or curre┆
0x380…3a0 6e 74 20 6f 75 74 70 75 74 20 61 72 65 0a 22 20 20 75 73 65 64 20 61 73 20 64 65 66 61 75 6c 74   ┆nt output are "  used as default┆
0x3a0…3a6 73 2e 0a 22 20 f0   ┆s. "  ┆