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 - metrics - download

⟦2b644ce8d⟧ TextFile

    Length: 562 (0x232)
    Types: TextFile
    Names: »WAIT_MAP.S«

Derivation

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

TextFile

PROCEDURE WAIT_MAP (R6);
"*************************************************************************
"*************************************************************************

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

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


      "TEST ON BUSY_FLAG, ADR #8960, MSB.      BUSY = 1

      #8960=>R0;
      #8000=>R1;
      #8000=>R2;
      WHILE R1=R2 DO
         BEGIN
            SIO(R1,R0);
            R1 AND R2=>R1;
         END;


      "MAP NOT BUSY
     UNS(7,ADDRESS(SAVE[0])=>R7);
     EXIT(R6);
END;
 «a5»