|
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: 1408 (0x580)
Types: TextFile
Names: »PPROG«
└─⟦9975dd352⟧ Bits:30005088 8" CR80 Floppy CR80FD_0043 ( CR/D/1032 PROMGEN (HBA) 790917 HBA PROMGEN BACKUP )
└─⟦69b0db55a⟧
└─ ⟦this⟧ »HBA.PPROG«
"PAGE" \f
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
" MAIN PROGRAM "
"**********************************************************************"
BEGIN "10"
OPEN( S_IN , 'OC(:0:)' , INPUT ); "20"
OPEN( S_OUT, 'OC(:0:)' , OUTPUT ); "30"
GET_OC_PARAMS( S_IN , S_OUT ) ; "40"
CLOSE( S_IN); "50"
CLOSE( S_OUT ) ; "60"
IF PARAM[P].TAG = IDTYPE "62"
THEN PARAM_INPUT_FILE := PARAM[ P ].ID "63"
ELSE PARAM_INPUT_FILE := 'OC(:0:) ' ; "65"
IF PARAM[S].TAG = IDTYPE "66"
THEN PROM_INPUT_FILE := PARAM[S].ID "67"
ELSE PROM_INPUT_FILE := 'OC(:0:) ' ; "69"
OPEN( S_IN , PARAM_INPUT_FILE , INPUT ) ; "70"
GET_DISC_PARAMS( S_IN ); "80"
CLOSE( S_IN ) ; "90"
CHECK_PARAMS ; "95"
DEFINE_CONSTANTS ; "100"
FOR I:=1 TO ( NO_OF_PROMS + NO_OF_PARITY_PROMS ) DO "110"
BEGIN "120"
OPEN( S_IN , PROM_INPUT_FILE , INPUT ); "130"
OPEN( S_OUT , PROM[I].FILE , OUTPUT ) ; "140"
PRINT_ID_RECORD( S_OUT , I ); "150"
IF I <= NO_OF_PROMS "162"
THEN EXTRACT_PROM( S_OUT , S_IN , I ) "164"
ELSE EXTRACT_PARITY_PROM( S_OUT , I); "166"
CLOSE( S_IN ) ; "170"
CLOSE( S_OUT ) ; "180"
OC_CHECKSUM( I ); "185"
END; "190"
END. "200"
"**********************************************************************"
" END OF PROGRAM "
"**********************************************************************"
"PAGE" \f
«eof»