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

⟦710e6d150⟧ EM, TextFile

    Length: 1676 (0x68c)
    Types: EM, TextFile
    Names: »SYS_WCS_TEST.EM«

Derivation

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

TextFile

[write]
[write,Testing,SYSBUS,BOARD,Tile,4,,-,,Sys_wcs_test]
[write]
[set experiment_result [xeq sys TEST_SINGLE_WCS]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE Simple_WCS_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE test_single_wcs][write]
     [else]
     [PASS_MESSAGE Simple_WCS_test]
[end]
[set experiment_result [xeq sys TEST_ADDRESS_ACTIVE]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE WCS_Address_counter_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE test_address_active][write]
     [else]
     [PASS_MESSAGE WCS_address_counter_test]
[end]
[set experiment_result [xeq sys TEST_WCS_NUDGE]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE Medium_tough_WCS_test]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE test_wcs_nudge][write]
     [else]
     [PASS_MESSAGE Medium_tough_WCS_test]
[end]
[set experiment_result [xeq sys TEST_WCS_ADDRESS_QUICK]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE WCS_address_test_1]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE test_wcs_address_quick][write]
     [else]
     [PASS_MESSAGE WCS_address_test_1]
[end]
[xeq sys LOAD_MASK 0e 0]
[set experiment_result [xeq sys TEST_WCS_ADDRESS_PARITY]]
[eq,[arg 1,[var experiment_result]],false]
     [FAIL_MESSAGE WCS_address_test_2]
     [set num_fails [add,[var num_fails],1]]
     [write [ASCII,7]]
     [NAME_MESSAGE load_mask 0E 0]
     [NAME_MESSAGE test_wcs_address_parity][write]
     [else]
     [PASS_MESSAGE WCS_address_test_2]
[end]