|
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: 836 (0x344)
Types: TextFile
Names: »INIT_DTT.S«
└─⟦17728abc9⟧ Bits:30005143 8" CR80 Floppy CR80FD_0130 ( CR/D/1422 FLERCPU Source )
└─⟦1815caf3d⟧
└─ ⟦this⟧ »INIT_DTT.S«
PROCEDURE INIT_DTTS
"**************************************************"
(R6); "LINK
"*******************************************************************
"
"THE PROCEDURE LOADS TRANSLATION TABLE #3E , MAPPING IN PHYSICAL
"DATA PAGES #F -> #4B, FULL ACCESS, AS LOGICAL DATA PAGES 2 -> #3D.
"*******************************************************************
CONST
D_TT_START=#F82;
D_TT_SLUT =#FBE;
PH_PAGE_START=#41;
VAR
SAVE: ARRAY[0..7] OF INTEGER;
BEGIN "INITIALIZATION"
R7=>SAVE[7]; STC(6,ADDRESS(SAVE[7])=>R7);
D_TT_START=>R3;
D_TT_SLUT=>R4;
PH_PAGE_START=>R5;
CAD;
WHILE R3<R4 DO
BEGIN
CIO(R5,R3);
R3+1;
R5+4;
END;
DICA=>R0;
IF R0=1 THEN CAD ELSE CAE;
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END; " END OF PROCEDURE INIT_DTTS *********************************