DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦f2754d566⟧ EM, TextFile

    Length: 4096 (0x1000)
    Types: EM, TextFile
    Names: »IOA_RAM_TESTS.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »IOA_RAM_TESTS.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »IOA_RAM_TESTS.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »IOA_RAM_TESTS.EM«

TextFile

write;
write,RAM,TESTS;
write;
[eq,[arg 1 [xeq IOA SLIDE_NOVRAM 0]],TRUE]
    FAIL_MESSAGE SLIDE,NOVRAM;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE SLIDE,NOVRAM;
[end]
[eq,[arg 1 [xeq IOA ADDR_NOVRAM 0]],TRUE]
    FAIL_MESSAGE ADDR,,NOVRAM;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE ADDR,,NOVRAM;
[end]
[eq,[arg 1 [xeq IOA POUND_NOVRAM 0]],TRUE]
    FAIL_MESSAGE POUND,NOVRAM;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE POUND,NOVRAM;
[end]
[eq,[xeq IOA RESTORE 0],TRUE]
    FAIL_MESSAGE RESTORE,NOVRAM;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE RESTORE,NOVRAM;
[end]
[eq,[arg 1 [xeq IOA SLIDE_VECTORS 0]],TRUE]
    FAIL_MESSAGE SLIDE,VECTORS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE SLIDE,VECTORS;
[end]
[eq,[arg 1 [xeq IOA ADDR_VECTORS 0]],TRUE]
    FAIL_MESSAGE ADDR,,VECTORS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE ADDR,,VECTORS;
[end]
[eq,[arg 1 [xeq IOA POUND_VECTORS 0]],TRUE]
    FAIL_MESSAGE POUND,VECTORS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE POUND,VECTORS;
[end]
[eq,[arg 1 [xeq IOA SLIDE_MAPS 0]],TRUE]
    FAIL_MESSAGE SLIDE,MAPS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE SLIDE,MAPS;
[end]
[eq,[arg 1 [xeq IOA ADDR_MAPS 0]],TRUE]
    FAIL_MESSAGE ADDR,,MAPS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE ADDR,,MAPS;
[end]
[eq,[arg 1 [xeq IOA POUND_MAPS 0]],TRUE]
    FAIL_MESSAGE POUND,MAPS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE POUND,MAPS;
[end]
[eq,[arg 1 [xeq IOA SLIDE_BS 0]],TRUE]
    FAIL_MESSAGE SLIDE,BS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE SLIDE,BS;
[end]
[eq,[arg 1 [xeq IOA ADDR_BS 0]],TRUE]
    FAIL_MESSAGE ADDR,,BS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE ADDR,,BS;
[end]
[eq,[arg 1 [xeq IOA POUND_BS 0]],TRUE]
    FAIL_MESSAGE POUND,BS;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE POUND,BS;
[end]
xeq IOA INIT_MAPS 0;
[set experiment_result [xeq ioa slide_buffers 0]];
[eq,[arg 1,[var experiment_result]],TRUE];
    FAIL_MESSAGE SLIDE,BUFFERS;
[write, [var experiment_result]];
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE SLIDE,BUFFERS;
[end]
[set experiment_result [xeq ioa addr_buffers 0]];
[eq,[arg 1,[var experiment_result]],TRUE];
    FAIL_MESSAGE ADDR,,BUFFERS;
[write, [var experiment_result]];
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE ADDR,,BUFFERS;
[end]
[set experiment_result [xeq ioa pound_buffers 0]];
[eq,[arg 1,[var experiment_result]],TRUE];
    FAIL_MESSAGE POUND,BUFFERS;
[write, [var experiment_result]];
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE POUND,BUFFERS;
[end]
[set experiment_result [xeq ioa pound_diag_buffers 0]];
[eq,[arg 1,[var experiment_result]],TRUE];
    FAIL_MESSAGE POUND,DIAG,BUFFERS;
[write, [var experiment_result]];
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    PASS_MESSAGE POUND,DIAG,BUFFERS;
[end]
xeq IOA INIT_BUFFERS 0;«nul»