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

⟦9c36f175b⟧ TextFile

    Length: 598 (0x256)
    Types: TextFile
    Names: »CHECK_IDLE.S«

Derivation

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

TextFile

PROCEDURE CHECK_IDLE (R6);
"**********************************************************************
"**********************************************************************

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

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

     STATUS_BASE=>R7;                    "READ STATUS OF SLAVE_NUMBER
     SLAVE_NUMBER=>R3+R7=>R7;
     R7@INTEGER=>R1;

     IF R1=1 THEN 0=>R4 ELSE 1=>R4;      "IF STATUS=IDLING THEN R4:=0
                                         "ELSE R4:=1
     R4=>OK;

     UNS(7,ADDRESS(SAVE[0])=>R7);
     OK=>R4;
     EXIT(R6);
END;
 «a5»