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

⟦130af4f6a⟧ EM, TextFile

    Length: 2418 (0x972)
    Types: EM, TextFile
    Names: »SYS_TIMER_TEST.EM«

Derivation

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

TextFile

[write]
[write,Testing,SYSBUS,BOARD,Tile,14,,-,,Sys_timer_test]
[write]
[xeq sys RESET]
[xeq sys UCODE_TIME]
[xeq sys PREP_TIMER_CONTROL 1]
[set RESULT [xeq sys TEST_TIMER_DATA 1 FF]]
[eq, [arg 1, [var RESULT]], false]
    [FAIL_MESSAGE,GP_TIMER_DATA_TEST]
    [set num_fails [add,[var num_fails],1]]
    [write [ASCII,7]]
    [set PASSED false]
    [NAME_MESSAGE RESET]
    [NAME_MESSAGE UCODE_TIME]
    [NAME_MESSAGE PREP_TIMER_CONTROL 1]
    [NAME_MESSAGE TEST_TIMER_DATA 1 FF][write]
[else]
    [PASS_MESSAGE,GP_TIMER_DATA_TEST]
    [set PASSED true]
[end]
[xeq sys PREP_TIMER_CONTROL 2]
[set RESULT [xeq sys TEST_TIMER_DATA 2 FF]]
[eq, [arg 1, [var RESULT]], false]
    [FAIL_MESSAGE,SLICE_TIMER_DATA_TEST]
    [set num_fails [add,[var num_fails],1]]
    [write [ASCII,7]]
    [set PASSED false]
    [NAME_MESSAGE RESET]
    [NAME_MESSAGE UCODE_TIME]
    [NAME_MESSAGE PREP_TIMER_CONTROL 2]
    [NAME_MESSAGE TEST_TIMER_DATA 2 FF][write]
[else]
    [PASS_MESSAGE,SLICE_TIMER_DATA_TEST]
!    [set PASSED [var PASSED]]
[end]
[xeq sys PREP_TIMER_CONTROL 0]
[set RESULT [xeq sys TEST_TIMER_DATA 0 FF]]
[eq, [arg 1, [var RESULT]], false]
    [FAIL_MESSAGE,CLOCK_TIMER_DATA_TEST]
    [set num_fails [add,[var num_fails],1]]
    [write [ASCII,7]]
    [set PASSED false]
    [NAME_MESSAGE RESET]
    [NAME_MESSAGE UCODE_TIME]
    [NAME_MESSAGE PREP_TIMER_CONTROL 0]
    [NAME_MESSAGE TEST_TIMER_DATA 0 FF][write]
[else]
    [PASS_MESSAGE,CLOCK_TIMER_DATA_TEST]
!    [set PASSED [var PASSED]]
[end]
[eq, [var PASSED], true]
    [set RESULT [xeq sys TEST_TIMER_MACROS]]
    [eq, [arg 1, [var RESULT]], false]
	[FAIL_MESSAGE,timer_event_test_1]
	[set num_fails [add,[var num_fails],1]]
        [write [ASCII,7]]
        [NAME_MESSAGE TEST_TIMER_MACROS][write]
    [else]
	[PASS_MESSAGE,timer_event_test_1]
	[set RESULT [xeq sys TEST_TIMER_COUNT F]]
	[eq, [arg 1, [var RESULT]], false]
	    [FAIL_MESSAGE,timer_event_test_2]
	    [set num_fails [add,[var num_fails],1]]
            [write [ASCII,7]]
            [NAME_MESSAGE TEST_TIMER_COUNT F][write]
	[else]
	    [PASS_MESSAGE,timer_event_test_2]
	[end]
    [end]
    [set RESULT [xeq sys TEST_CLOCK_TIMER_COUNT F]]
    [eq, [var RESULT], false]
	[FAIL_MESSAGE clock_timer_count_test]
	[set num_fails [add,[var num_fails],1]]
        [write [ASCII,7]]
        [NAME_MESSAGE TEST_CLOCK_TIMER_COUNT F][write]
    [else]
	[PASS_MESSAGE clock_timer_count_test]
    [end]
[end]