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

⟦8555bc074⟧ TextFile

    Length: 632 (0x278)
    Types: TextFile
    Names: »KA_MOD_REC.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!KA.D!V0401.D!PASCAL.D!COPY.D!KA_MOD_REC.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!COPY.D!KA_MOD_REC.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!KA.D!V0401.D!PASCAL.D!COPY.D!KA_MOD_REC.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!COPY.D!KA_MOD_REC.I«

TextFile

%IMPORT: KA_MOD_REC

PROCEDURE KA_MOD_REC (    IFCB,                       "INPUT KA_FCB"
                          OFCB    : KA_FCB_T;         "OUTPUT KA_FCB"
                          IREC    : UNIV KEYED_ENTRY; "INPUT RECORD"
                      VAR OREC    : UNIV KEYED_ENTRY; "NEW OUTPUT RECORD"
                      VAR CC      : COMPLETION_CODE); " = 0: OREC IS WRITTEN"
                                                      "<> 0: OREC IS IGNORED"
EXTERN;

"KA_MOD_REC IS CALLED WITH EACH INPUT RECORD JUST BEFORE THE RECORD IS TO"
"BE WRITTEN TO THE OUTPUT FILE. THIS ROUTINE MAY DO ANY MODIFICATIONS TO "
"THE RECORD."