DataMuseum.dk

top - download

    Length: 3762 (0xeb2)
    Types: TextFile
    Names: »TEST_ALL.S«

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

TextFile

PROCEDURE TEST_ALL (R6);
"*********************************************************************


"*********************************************************************
VAR
SAVE:    ARRAY[0..7] OF INTEGER;





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


    0=>R0=>OUT_ENABLE;

    "CALL TEST_1, COUNT=#10, CACHE DISABLED
    #10=>R0=>COUNT;
    1=>R0=>DICA;
    CAD;
    0=>R0=>ERROR_STATUS;
    TEST_1(R6);
    IF (ERROR_STATUS=>R0)=0 THEN
        BEGIN
        OUTTEXT(ADDRESS('TEST 1 TERMINATED, NO ERRORS (:0:)')=>R3,R6);
        END
    ELSE
        BEGIN
        OUTTEXT(ADDRESS('ERROR(S) IN TEST 1 >>>>>>>>>>>>>>>>>>>>>>>>(:0:)')=>R3,R6);
        END;
    OUTNEWLINE(R6);
    FLUSHOUT(R6);
    0=>R0=>ERROR_STATUS;

    "CALL TEST_1, COUNT=#10, CACHE ENABLED

    #10=>R0=>COUNT;
    0=>R0=>DICA;
    CAE;
    0=>R0=>ERROR_STATUS;
    TEST_1(R6);
    IF (ERROR_STATUS=>R0)=0 THEN
        BEGIN
        OUTTEXT(ADDRESS('TEST 1 TERMINATED, NO ERRORS (:0:)')=>R3,R6);
        END
    ELSE
        BEGIN
        OUTTEXT(ADDRESS('ERROR(S) IN TEST 1 >>>>>>>>>>>>>>>>>>>>>>>>(:0:)')=>R3,R6);
        END;
    OUTNEWLINE(R6);
    FLUSHOUT(R6);
    0=>R0=>ERROR_STATUS;



    "CALL TEST_2, COUNT=#40, CACHE DISABLED

    #40=>R0=>COUNT;
    1=>R0=>DICA;
    CAD;
    0=>R0=>ERROR_STATUS;
    TEST_2(R6);
    IF (ERROR_STATUS=>R0)=0 THEN
        BEGIN
        OUTTEXT(ADDRESS('TEST 2 TERMINATED, NO ERRORS (:0:)')=>R3,R6);
        END
    ELSE
        BEGIN
        OUTTEXT(ADDRESS('ERROR(S) IN TEST 2 >>>>>>>>>>>>>>>>>>>>>>>>(:0:)')=>R3,R6);
        END;
    OUTNEWLINE(R6);
    FLUSHOUT(R6);
    0=>R0=>ERROR_STATUS;


    "CALL TEST_2, COUNT=#40, CACHE ENABLED

    #40=>R0=>COUNT;
    0=>R0=>DICA;
    CAE;
    0=>R0=>ERROR_STATUS;
    TEST_2(R6);
    IF (ERROR_STATUS=>R0)=0 THEN
        BEGIN
        OUTTEXT(ADDRESS('TEST 2 TERMINATED, NO ERRORS (:0:)')=>R3,R6);
        END
    ELSE
        BEGIN
        OUTTEXT(ADDRESS('ERROR(S) IN TEST 2 >>>>>>>>>>>>>>>>>>>>>>>>(:0:)')=>R3,R6);
        END;
    OUTNEWLINE(R6);
    FLUSHOUT(R6);
    0=>R0=>ERROR_STATUS;


    "CALL TEST_3, COUNT=#40, CACHE DISABLED

    #40=>R0=>COUNT;
    1=>R0=>DICA;
    CAD;
    0=>R0=>ERROR_STATUS;
    TEST_3(R6);
    IF (ERROR_STATUS=>R0)=0 THEN
        BEGIN
        OUTTEXT(ADDRESS('TEST 3 TERMINATED, NO ERRORS (:0:)')=>R3,R6);
        END
    ELSE
        BEGIN
        OUTTEXT(ADDRESS('ERROR(S) IN TEST 3 >>>>>>>>>>>>>>>>>>>>>>>>(:0:)')=>R3,R6);
        END;
    OUTNEWLINE(R6);
    FLUSHOUT(R6);
    0=>R0=>ERROR_STATUS;



    "CALL TEST_3, COUNT=#40, CACHE ENABLED

    #40=>R0=>COUNT;
    0=>R0=>DICA;
    CAE;
    0=>R0=>ERROR_STATUS;
    TEST_3(R6);
    IF (ERROR_STATUS=>R0)=0 THEN
        BEGIN
        OUTTEXT(ADDRESS('TEST 3 TERMINATED, NO ERRORS (:0:)')=>R3,R6);
        END
    ELSE
        BEGIN
        OUTTEXT(ADDRESS('ERROR(S) IN TEST 3 >>>>>>>>>>>>>>>>>>>>>>>>(:0:)')=>R3,R6);
        END;
    OUTNEWLINE(R6);
    FLUSHOUT(R6);
    0=>R0=>ERROR_STATUS;



    "CALL TEST_4, COUNT=#10, CACHE DISABLED, K=FFFF

    "CALL TEST_5, COUNT=0, LEVEL=0, CACHE DISABLED, K=F
    "CALL TEST_5, COUNT=0, LEVEL=F, CACHE DISABLED, K=F
    "CALL TEST_5, COUNT=5, LEVEL=0, CACHE DISABLED, K=4
    "CALL TEST_5, COUNT=5, LEVEL=F, CACHE DISABLED, K=4
    "CALL TEST_6, LEVEL = F, CACHE DISABLED
    "CALL TEST_6, LEVEL = F, CACHE ENABLED
    "CALL TEST_6, LEVEL = 0, CACHE DISABLED
    "CALL TEST_6, LEVEL = 0, CACHE ENABLED
    "CALL PERF 1, COUNT=1, CACHE DISABLED
    "CALL PERF 1, COUNT=1, CACHE ENABLED
    "CALL PERF 2, COUNT=1, CACHE DISABLED
    "CALL PERF 2, COUNT=1, CACHE ENABLED
    "CALL PERF 3, COUNT=1, CACHE DISABLED
    "CALL PERF 3, COUNT=1, CACHE ENABLED



    1=>R0=>OUT_ENABLE;

UNS(7,ADDRESS(SAVE[0])=>R7);
EXIT(R6);
END;   "END OF TEST_ALL"