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

⟦c660a4b9b⟧ EM, TextFile

    Length: 12288 (0x3000)
    Types: EM, TextFile
    Names: »FIU_WCSA_TESTS.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »FIU_WCSA_TESTS.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »FIU_WCSA_TESTS.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »FIU_WCSA_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]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 8 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffff000000000000]
     [FAIL_MESSAGE execute_from_wcs_test_4]
     [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 8 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFF000000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_4]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 0a 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fffff00000000000]
     [FAIL_MESSAGE execute_from_wcs_test_5]
     [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 A 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFF00000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_5]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 0c 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffffff0000000000]
     [FAIL_MESSAGE execute_from_wcs_test_6]
     [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 C 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFF0000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_6]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 0e 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fffffff000000000]
     [FAIL_MESSAGE execute_from_wcs_test_7]
     [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 E 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFF000000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_7]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 10 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffffffff00000000]
     [FAIL_MESSAGE execute_from_wcs_test_8]
     [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 10 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFF00000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_8]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 12 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fffffffff0000000]
     [FAIL_MESSAGE execute_from_wcs_test_9]
     [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 12 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFF0000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_9]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 14 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffffffffff000000]
     [FAIL_MESSAGE execute_from_wcs_test_10]
     [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 14 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFF000000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_10]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 16 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fffffffffff00000]
     [FAIL_MESSAGE execute_from_wcs_test_11]
     [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 16 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFFF00000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_11]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 18 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffffffffffff0000]
     [FAIL_MESSAGE execute_from_wcs_test_12]
     [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 18 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFFFF0000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_12]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 1a 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fffffffffffff000]
     [FAIL_MESSAGE execute_from_wcs_test_13]
     [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 1A 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFFFFF000][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_13]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 1c 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffffffffffffff00]
     [FAIL_MESSAGE execute_from_wcs_test_14]
     [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 1C 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFFFFFF00][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_14]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 1e 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],fffffffffffffff0]
     [FAIL_MESSAGE execute_from_wcs_test_15]
     [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 1E 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFFFFFFF0][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_15]
[end]
[set experiment_result [xeq fiu load_tar 0]]
[xeq fiu step_fiu 0 20 0]
[set experiment_result [xeq fiu read_tar]]
[ne,[arg 1,[var experiment_result]],ffffffffffffffff]
     [FAIL_MESSAGE execute_from_wcs_test_16]
     [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 20 0]
     [NAME_MESSAGE read_tar]
     [write tar should be : FFFFFFFFFFFFFFFF][write]
     [else]
     [PASS_MESSAGE execute_from_wcs_test_16]
[end]«nul»