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

⟦3cd05befc⟧ TextFile

    Length: 442 (0x1ba)
    Types: TextFile
    Names: »INPUTERROR.S«

Derivation

└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 )
    └─⟦56889de57⟧ 
        └─ ⟦this⟧ »INPUTERROR.S«

TextFile

PROCEDURE INPUTERROR (R6);
"*********************************************************************
"THE PROCEDURE OUTPUTS THE TEXT: ?, NEWLINE, -->

"*********************************************************************
VAR
SAVE:    ARRAY[0..7] OF INTEGER;

BEGIN
R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);

OUTTEXT(ADDRESS('???? (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);

UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;   "END OF INPUTERROR"