|
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: 596 (0x254)
Types: TextFile
Names: »IDLE.S«
└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
└─⟦1815caf3d⟧
└─ ⟦this⟧ »IDLE.S«
PROCEDURE IDLE (R6);
"*************************************************************************
"
" THIS PROCEDURE SETS CPU-STATUS (FOR THIS CPU) TO 1 (=IDLING),
" AND INCREMENTS THE MESSAGE-WORD FROM THIS CPU AT EACH CALL
"
"*************************************************************************
VAR
BEGIN
SVS(R0);
R0 SHIFTRL 8;
R0 EXTRACT 3;
#1=>R1;
STATUS_BASE=>R2;
R2+R0=>R2;
R1=>R2@INTEGER;
MESSAGE_BASE=>R2; "INCREMENT MESSAGE FROM THIS CPU
R2+R0=>R2;
R2@INTEGER=>R1+1=>R1=>R2@INTEGER;
EXIT(R6);
END;