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

⟦21586b2e6⟧ EM, TextFile

    Length: 3351 (0xd17)
    Types: EM, TextFile
    Names: »FIU_WCS10_TESTS.EM«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »FIU_WCS10_TESTS.EM« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »FIU_WCS10_TESTS.EM«

TextFile

[write]
[write,Testing,FIU,Board,Tile,5,,-,,Fiu_wcs_tests]
[write,,,,,,,,,,,,,,,,,,,,,,,,,,,,&,Fiu_wcs2_tests]
[write,,,,,,,,,,,,,,,,,,,,,,,,,,,,&,Fiu_wcs3_tests]
[write]
[set experiment_result [xeq fiu wcs_address_test]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE wcs_address_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE wcs_address_test][write]
     [else]
     [PASS_MESSAGE wcs_address_test]
[end]
[set experiment_result [xeq fiu wcs_data_test]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE wcs_data_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE wcs_data_test][write]
     [else]
     [PASS_MESSAGE wcs_data_test]
[end]
[set experiment_result [xeq fiu test_wcs_locations]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE easy_wcs_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE test_wcs_locations][write]
     [else]
     [PASS_MESSAGE easy_wcs_test]
[end]
[set experiment_result [xeq fiu test_wcs]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE tough_wcs_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE test_wcs][write]
     [else]
     [PASS_MESSAGE tough_wcs_test]
[end]
[xeq fiu load_insert_test]
[xeq fiu clear_exceptions]
[xeq fiu load_pareg 0ff 0]
[set experiment_result [xeq fiu load_var 0f]]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 2 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],f000000000000000]
     [FAIL_MESSAGE execute_from_wcs_test_1]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE load_insert_test]
     [NAME_MESSAGE clear_exceptions]
     [NAME_MESSAGE load_pareg 0ff 0]
     [NAME_MESSAGE load_var 0f]
     [NAME_MESSAGE load_tar 0]
     [NAME_MESSAGE step_fiu 0 2 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : F000000000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_1]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 4 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ff00000000000000]
     [FAIL_MESSAGE execute_from_wcs_test_2]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE load_insert_test]
     [NAME_MESSAGE clear_exceptions]
     [NAME_MESSAGE load_pareg 0ff 0]
     [NAME_MESSAGE load_var 0f]
     [NAME_MESSAGE load_tar 0]
     [NAME_MESSAGE step_fiu 0 4 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FF00000000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_2]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 6 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fff0000000000000]
     [FAIL_MESSAGE execute_from_wcs_test_3]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE load_insert_test]
     [NAME_MESSAGE clear_exceptions]
     [NAME_MESSAGE load_pareg 0ff 0]
     [NAME_MESSAGE load_var 0f]
     [NAME_MESSAGE load_tar 0]
     [NAME_MESSAGE step_fiu 0 6 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFF0000000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_3]
[end]