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 - download

⟦c456554ef⟧ TextFile

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

Derivation

└─⟦18a2fd90d⟧ Bits:30005144 8" CR80 Floppy CR80FD_0132 ( CR/D/2479 CRD2479: En-CPU CPU/CACHE TEST- PROGRAMMER node: master: CRP5 )
    └─⟦56889de57⟧ 
        └─ ⟦this⟧ »INIT_DTT.S« 

TextFile

PROCEDURE INIT_DTTS
"**************************************************"
              (R6);                                "LINK

"*******************************************************************
"
"   THE DAMOS-BOOT-GENERATOR USES PHYSICAL PAGES STARTING WITH PHPAGE
"   HEX A.
"   THE NUMBER OF PAGES IS DETERMINED BY THE SIZE OF THE PROGRAM,
"   THIS PROGRAM (820222) OCCUPIING 7 PAGES TOTALLY, I E PHPAGES
"   HEX A  TO  HEX 10 INCL,
"
"
"THE PROCEDURE LOADS TRANSLATION TABLE #3E , MAPPING IN PHYSICAL
"DATA PAGES #20 -> #5B, FULL ACCESS, AS LOGICAL DATA PAGES 2 -> #3D.

"*******************************************************************
CONST
 D_TT_START=#F82;
 D_TT_SLUT =#FBE;
 PH_PAGE_START=#81;

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 ********************************* T