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

⟦703b6ec97⟧ TextFile

    Length: 10170 (0x27ba)
    Types: TextFile
    Names: »PERF_1.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⟧ »PERF_1.S«

TextFile

PROCEDURE PERF_1 (R6);
"*********************************************************************
"  MOV R3 R3:   IS EXECUTED #80 (=128 DEC) GANGE #100  GANGE 8
"  FOR HVERT COUNT.
"*********************************************************************
VAR
SAVE:    ARRAY[0..7] OF INTEGER;
ALFA:    INTEGER;
BETA:    INTEGER;
GAMMA:   INTEGER;
TIME:    INTEGER;





BEGIN





R7=>SAVE[7];
STC(6,ADDRESS(SAVE[7])=>R7);
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('PERFORMANCE_TEST 1 RUNNING (:0:)')=>R3,R6);
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('MOVE R3 R3 -INSTRUCTION UNDER TEST (:0:)')=>R3,R6);
OUTNEWLINE(R6);
FLUSHOUT(R6);


SVT(R0);
WHILE R0<>0 DO
SVT(R0);
#0=>R4;


COUNT=>R3;
WHILE R3<>0 DO
   BEGIN

#0100=>R0;
WHILE R0<>0 DO
   BEGIN
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2; R1=>R2;
      R0-1;
   END;

IF R4=0 THEN
   BEGIN
      SVT(R5);
      #1=>R4;
   END;

R3-1;
END;



R5=>TIME;



OUTNEWLINE(R6);
OUTTEXT(ADDRESS('PERFORMANCE_TEST 1 TERMINATED (:0:)')=>R3,R6);
OUTNEWLINE(R6);
OUTTEXT(ADDRESS('EXECUTION TIME OF #40000 INSTRS (HEX) = (:0:)')=>R3,R6);
TIME=>R4;
#0=>R3;
R3-R4;
R3 SHIFTRL 2;
OUTHEX(R3,R6);
OUTTEXT(ADDRESS(' MILLISECS (:0:)')=>R3,R6);

OUTNEWLINE(R6);
FLUSHOUT(R6);
UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;   "END OF PERFORMANCE_TEST1     " R