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

⟦cdba2a047⟧ TextFile

    Length: 1246 (0x4de)
    Types: TextFile
    Names: »TEST_CERS.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⟧ »TEST_CERS.S« 

TextFile

PROCEDURE TEST_CERS  (R6);
"*********************************************************************
"THE PROCEDURE TESTS, IF THE CACHE ERROR REGISTER IS <> 0,
"IF SO, AN ERROR MESSAGE IS PRINTED
"*********************************************************************
VAR
SAVE:    ARRAY[0..7] OF INTEGER;

BEGIN
R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);

OLD_CER_VALUE=>R1;
#0=>R0;
RCR;
R0 EXTRACT #F=>R0;
R0=>NEW_CER_VALUE;
IF R0<>R1 THEN
   BEGIN
   1=>R0=>ERROR_STATUS;
        IF (OUT_ENABLE=>R0)=1 THEN
              BEGIN
              OUTNEWLINE(R6);
              OUTTEXT(ADDRESS('CACHE PARITY ERROR,  CERS= (:0:)')=>R3,R6);
              NEW_CER_VALUE=>R0=>R3;
              OUTHEX(R3,R6);
              OUTTEXT(ADDRESS('OLD CER = (:0:)')=>R3,R6);
              OLD_CER_VALUE=>R0=>R3;
              OUTHEX(R3,R6);
              OUTTEXT(ADDRESS('  DIFF = (:0:)')=>R3,R6);
              NEW_CER_VALUE=>R0;
              OLD_CER_VALUE=>R1;
              R0-R1=>R1=>R3;
              OUTHEX(R3,R6);
              OUTNEWLINE(R6);
              FLUSHOUT(R6);
              OUTNEWLINE(R6);
              FLUSHOUT(R6);
              END;
   END;



NEW_CER_VALUE=>R0=>OLD_CER_VALUE;
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;   "END OF TEST_CERS "