|
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 - metrics - download
Length: 844 (0x34c)
Types: TextFile
Names: »ENABLE_INT.S«
└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
└─⟦1815caf3d⟧
└─⟦this⟧ »ENABLE_INT.S«
PROCEDURE ENABLE_INT (R3;R6);
"*************************************************************************
"*************************************************************************
VAR
SAVE: ARRAY[0..7] OF INTEGER;
TEMPB: INTEGER;
BEGIN
R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);
R3=>TEMPB;
#9000=>R0;
R0+R3=>R0;
#0080=>R1;
CIO(R1,R0); "WRITE CPU_RECORD FOR CPU# <R3>
", INTERRUPTS ENABLED, PRIO=0
WAIT_MAP(R6);
#8961=>R0;
0=>R1;
CIO(R1,R0); "SELECT IV 0
WAIT_MAP(R6);
TEMPB=>R7;
R7 EXTRACT 3;
R7 SHIFTLL 4;
#8960=>R0;
#800F=>R1;
R7+R1=>R1;
CIO(R1,R0); "WRITE IV RECORD
WAIT_MAP(R6);
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;
«a5»