|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 784 (0x310)
Types: TextFile
Names: »T_2_SLAVE.S«
└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
└─⟦1815caf3d⟧
└─ ⟦this⟧ »T_2_SLAVE.S«
PROCEDURE T_2_SLAVE (R6);
"***********************************************************************
"***********************************************************************
VAR
SAVE: ARRAY[0..7] OF INTEGER;
LABEL STARTA;
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
STARTA:
WHILE R1=0 DO R6@INTEGER=>R1; "WAIT UNTIL SEM = 1
0=>R1=>R6@INTEGER; "CLEAR SEM
GOTO STARTA;
END;