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

⟦8e93e15b3⟧ TextFile

    Length: 1162 (0x48a)
    Types: TextFile
    Names: »T_2_MASTER.S«

Derivation

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

TextFile

PROCEDURE T_2_MASTER (R6);

"*************************************************************************
"    T_2_MASTER RUNS ON THE MASTER-CPU, WHILE T_2_SLAVE RUNS ON SLAVE
"    CPU. T_2 IS A HANDSHAKE-TEST BETWEEN CPUs: EACH OF THE CPUs WAITS
"    UNTIL THE COMMON SEMAPHORE HAS THE VALUE SIGNALLING, THAT THE OTHER
"    CPU HAS FINISHED.


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


LABEL STARTA;




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

     0=>R0=>ERROR_COUNT;


     #FFFF=>R0;
     0=>R1;
     WHILE R1<>R0 DO R1+1;

     C_STROBE_ADR=>R7;                             "CLEAR COMMAND STROBE
     0=>R1=>R7@INTEGER;


     COUNT=>R1=>LOCCOUNT;

     DICA=>R0;
     IF R0=0 THEN CAE ELSE CAD;


     #A0=>R2;
     SEM_ADR=>R6;                                   "SEM := 0
     0=>R0=>R6@INTEGER;
     START_ADR=>R7;                                  "START:=1
     1=>R1=>R7@INTEGER;

STARTA:
     R2=>R3;
     WHILE R3<>0 DO R3-1;     "WAIT UNTIL COUNT = 0
     1=>R0=>R6@INTEGER;       "SET SEM
     GOTO STARTA;

END;