|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2176 (0x880)
Types: TextFile
Names: »PDEC«
└─⟦9975dd352⟧ Bits:30005088 8" CR80 Floppy CR80FD_0043 ( CR/D/1032 PROMGEN (HBA) 790917 HBA PROMGEN BACKUP )
└─⟦69b0db55a⟧
└─ ⟦this⟧ »HBA.PDEC«
"**********************************************************************"
" CONSTANTS "
"**********************************************************************"
CONST MAX_PARITY_PROMS = 4 ; "20"
MAX_PROMS = 64 ; "30"
STX = '(:2:)' ; "40"
ETX = '(:3:)' ; "50"
MIN_AREASIZE = 8 ; "60"
MIN_PROMSIZE = 8 ; "80"
MAX_AREASIZE = 16384 ; "70"
MAX_PROMSIZE = 16384 ; "90"
MIN_PROMWIDTH = 4 ; "100"
MAX_PROMWIDTH = 16 ; "110"
MIN_WORDSIZE = 4 ; "120"
MAX_WORDSIZE = 16 ; "130"
"**********************************************************************"
" MAIN VARIABLES "
"**********************************************************************"
TYPE PROMTYPE = RECORD "10"
FILE : IDENTIFIER ; "20"
IDNO : INTEGER ; "30"
VERSION : INTEGER ; "40"
PARITY_BIT : INTEGER ; "50"
CHECKSUM : LONG_INTEGER "60"
END; "70"
TYPE LONG1 = RECORD
LSB : INTEGER ;
MSB : INTEGER
END;
TYPE ID_RECORD_TYPE = RECORD "100"
ORIGINATOR : IDENTIFIER ; "110"
PROJECT_NO : LONG_INTEGER ; "120"
DATE : LONG_INTEGER ; "130"
MODULE : TEXT ; "140"
FLOPPY_DISC_NO : INTEGER ; "150"
SOURCE_TEXT : TEXT "160"
END; "170"
TYPE PROM_AREA_TYPE = RECORD "190"
SIZE : LONG_INTEGER ; "200"
START_ADDRESS : LONG_INTEGER ; "210"
WIDTH : INTEGER ; "220"
PARITY_BITS_IN_USE : INTEGER "230"
END; "240"
TYPE PHYS_PROM_TYPE = RECORD "260"
SIZE : LONG_INTEGER ; "270"
WIDTH : INTEGER "280"
END; "290"
VAR PROM : ARRAY [1..MAX_PROMS] OF PROMTYPE ; "292"
ID_RECORD : ID_RECORD_TYPE ; "296"
PROM_AREA : PROM_AREA_TYPE ; "298"
PHYS_PROM : PHYS_PROM_TYPE ; "300"
PARITY_AREA : ARRAY [0..MAX_PROMSIZE] OF INTEGER ; "310"
S_IN , S_OUT : STREAM ; "320"
PROM_INPUT_FILE : IDENTIFIER ; "330"
PARAM_INPUT_FILE : IDENTIFIER ; "340"
PROMS_PR_ROW , "350"
PROMS_PR_COLOUMN , "360"
NO_OF_PROMS , "370"
PARITY_BITS_IN_USE , "315"
NO_OF_PARITY_PROMS , "375"
HEXA_PR_ROW , "380"
HEXA_PR_PROM_ROW , "390"
HEXA_PR_SINGLE_PROM , "400"
HEXA_NO , "410"
ROW_NO , "420"
COLOUMN_NO , "430"
I , J : INTEGER ; "440"
"PAGE" \f
«eof»