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

⟦39c97feeb⟧ TextFile

    Length: 802 (0x322)
    Types: TextFile
    Names: »INFO.S«

Derivation

└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
    └─⟦1815caf3d⟧ 
        └─ ⟦this⟧ »INFO.S«

TextFile

PROCEDURE INFO (R6);

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

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


     OUTNEWLINE(R6);
     FLUSHOUT(R6);

     OUTTEXT(ADDRESS('TEST 1,2,3 ARE IMPLEMENTED IN THIS VERSION(:0:)')=>R3,R6);
     OUTNEWLINE(R6);
     FLUSHOUT(R6);


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

     OUTTEXT(ADDRESS('TIMEOUT_COUNT DEFAULTED #1000(:0:)')=>R3,R6);
     OUTNEWLINE(R6);
     FLUSHOUT(R6);

     OUTTEXT(ADDRESS('COUNT DEFAULTED 1(:0:)')=>R3,R6);
     OUTNEWLINE(R6);
     FLUSHOUT(R6);

     OUTTEXT(ADDRESS('CACHE_STATUS DEFAULTED ENABLED(:0:)')=>R3,R6);
     OUTNEWLINE(R6);
     FLUSHOUT(R6);


     OUTNEWLINE(R6);
     FLUSHOUT(R6);


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