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

⟦f21579b17⟧ TextFile

    Length: 1082 (0x43a)
    Types: TextFile
    Names: »T_3_SLAVE.S«

Derivation

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

TextFile

PROCEDURE T_3_SLAVE (R6);
"***********************************************************************
"***********************************************************************

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

LABEL STARTA;
LABEL CONTT;


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


     SEM_ADR=>R6;
     START_ADR=>R7;
     R7@INTEGER=>R0;
     CAD;
     WHILE R0<>1 DO R7@INTEGER=>R0;                  "WAIT UNTIL START=1

     DICA=>R0;
     IF R0=0 THEN CAE;
     #0=>R1;

     SVS(R3);                      "SET PSW(2)
     R3=>R5;
     #0004=>R4;
     R4 IOR R3=>R3;
     LDS(R3);
     LDS(R5);                      "CLEAR PSW(2) AGAIN

     T_COUNT=>R2;
     #7FFF=>R7;                    "COUNT := HEX 7FFF

STARTA:

     WHILE R1=0 DO
          BEGIN
          R6@INTEGER=>R1;          "READ SEM
          R7-1;
          IF R7=0 THEN
              BEGIN
              LDS(R3);
              LDS(R5);
              LDS(R3);
              GOTO CONTT;
              END;
          END;
CONTT:
     0=>R1=>R6@INTEGER;
     R2=>R7;
     GOTO STARTA;


END; «a5»