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

⟦f16d8b369⟧ TextFile

    Length: 974 (0x3ce)
    Types: TextFile
    Names: »CLAIM_MASTERSHIS«

Derivation

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

TextFile

PROCEDURE CLAIM_MASTERSHIP (R6);
"*************************************************************************
"*************************************************************************

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

BEGIN

     R7=>SAVE[7];
     STC(6,ADDRESS(SAVE[7])=>R7);
     OUTTEXT(ADDRESS('MASTERSHIP ACCUIRED BY CPU NUMBER (:0:)')=>R3,R6);
     SVS(R0);
     R0 SHIFTRL 8;
     R0 EXTRACT 3;
     R0=>R3;
     OUTHEX(R3,R6);
     OUTNEWLINE(R6);
     FLUSHOUT(R6);

     STATUS_BASE=>R7;            "STATUSFIELD OF THIS CPU := MASTER
     R7+R0=>R7;
     #10=>R1;
     R1=>R7@INTEGER;


     #1=>R1;
     START_ADR=>R7;
     R1=>R7@INTEGER;             "SET START FLAG

     #1000=>R1;                  "WAIT
     0=>R2;
     WHILE R2<>R1 DO
         BEGIN
             R2+1;
         END;


     0=>R2;
     R2=>R7@INTEGER;             "CLEAR START FLAG




   CONINPUT1(R6);

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

      EXIT(R6);
END;
 «a5»