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

⟦a2ca0ac34⟧ EM, TextFile

    Length: 3072 (0xc00)
    Types: EM, TextFile
    Names: »SYS_REGISTER_TESTS.EM«

Derivation

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

TextFile

[write]
[write,Testing,SYSBUS,BOARD,Tile,7,,-,,Sys_register_tests]
[write]
[xeq sys UCODE_LINK]
[xeq sys UCODE_HOME]
[xeq sys UCODE_MASK] 
[xeq sys UCODE_BAR]
[set experiment_result [xeq sys TEST_LINK_REG]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE Link_Register_test_1]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE ucode_link][write]
     [NAME_MESSAGE ucode_home][write]
     [NAME_MESSAGE ucode_mask][write]
     [NAME_MESSAGE ucode_bar][write]
     [NAME_MESSAGE test_link_reg][write]
     [else]
     [PASS_MESSAGE Link_Register_test_1]
[end]
[set experiment_result [xeq sys TEST_HOME_REG]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE Home_Register_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE ucode_link][write]
     [NAME_MESSAGE ucode_home][write]
     [NAME_MESSAGE ucode_mask][write]
     [NAME_MESSAGE ucode_bar][write]
     [NAME_MESSAGE test_home_reg][write]
     [else]
     [PASS_MESSAGE Home_Register_test]
[end]
[set experiment_result [xeq sys TEST_MASK_REG]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE Mask_Register_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE ucode_link][write]
     [NAME_MESSAGE ucode_home][write]
     [NAME_MESSAGE ucode_mask][write]
     [NAME_MESSAGE ucode_bar][write]
     [NAME_MESSAGE test_mask_reg][write]
     [else]
     [PASS_MESSAGE Mask_Register_test]
[end]
[set experiment_result [xeq sys TEST_BAR_REG]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE BAR_Register_test_1]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE ucode_link][write]
     [NAME_MESSAGE ucode_home][write]
     [NAME_MESSAGE ucode_mask][write]
     [NAME_MESSAGE ucode_bar][write]
     [NAME_MESSAGE test_bar_reg][write]
     [else]
     [PASS_MESSAGE BAR_Register_test_1]
[end]
[set experiment_result [xeq sys TEST_INC_LINK_REG]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE Link_Register_test_2]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE ucode_link][write]
     [NAME_MESSAGE ucode_home][write]
     [NAME_MESSAGE ucode_mask][write]
     [NAME_MESSAGE ucode_bar][write]
     [NAME_MESSAGE test_inc_link_reg][write]
     [else]
     [PASS_MESSAGE Link_Register_test_2]
[end]
[set experiment_result [xeq sys TEST_INC_BAR_REG]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE BAR_Register_test_2]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE ucode_link][write]
     [NAME_MESSAGE ucode_home][write]
     [NAME_MESSAGE ucode_mask][write]
     [NAME_MESSAGE ucode_bar][write]
     [NAME_MESSAGE test_inc_bar_reg][write]
     [else]
     [PASS_MESSAGE BAR_Register_test_2]
[end]«nul»