DataMuseum.dk

top - download

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

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

TextFile

[set NUM_FAILS 0]
[set BOARD_NUM [ne,%2%,]%2%[else]3[end]]

[write]
[write beginning of,,32,Megabyte Memory Board testing]

[write]
[write Testing Tile,,1,-,,TILE_MEM32_DIAG_KERNEL]
[write]
[set ORIGINAL_NUM_FAILS [var NUM_FAILS]]

[TILE_MEM32_DIAG_KERNEL]

[#eq,[var NUM_FAILS],[var ORIGINAL_NUM_FAILS]]
    [set TILE_RESULT PASS_MESSAGE TILE,,1,-,,TILE_MEM32_DIAG_KERNEL]
[else]
    [set TILE_RESULT FAIL_MESSAGE TILE,,1,-,,TILE_MEM32_DIAG_KERNEL]
[end]
[write]
[[var TILE_RESULT]]
[kill ORIGINAL_NUM_FAILS]
[set TILE1_RESULT [var TILE_RESULT]]


[write]
[write Testing Tile,,2,-,,TILE_MEM32_SCAN_CHAINS]
[write]
[set ORIGINAL_NUM_FAILS [var NUM_FAILS]]

[TILE_MEM32_SCAN_CHAINS]

[#eq,[var NUM_FAILS],[var ORIGINAL_NUM_FAILS]]
    [set TILE_RESULT PASS_MESSAGE TILE,,2,-,,TILE_MEM_SCAN_CHAINS]
[else]
    [set TILE_RESULT FAIL_MESSAGE TILE,,2,-,,TILE_MEM_SCAN_CHAINS]
[end]
[write]
[[var TILE_RESULT]]
[kill ORIGINAL_NUM_FAILS]
[set TILE2_RESULT [var TILE_RESULT]]


[write]
[write Testing Tile,,3,-,,TILE_MEM32_TAGSTORE]
[write]
[set ORIGINAL_NUM_FAILS [var NUM_FAILS]]

[TILE_MEM32_TAGSTORE]

[#eq,[var NUM_FAILS],[var ORIGINAL_NUM_FAILS]]
    [set TILE_RESULT PASS_MESSAGE TILE,,3,-,,TILE_MEM32_TAGSTORE]
[else]
    [set TILE_RESULT FAIL_MESSAGE TILE,,3,-,,TILE_MEM32_TAGSTORE]
[end]
[write]
[[var TILE_RESULT]]
[kill ORIGINAL_NUM_FAILS]
[set TILE3_RESULT [var TILE_RESULT]]


[write]
[write Testing Tile,,4,-,,TILE_MEM32_DATA_STORE]
[write]
[set ORIGINAL_NUM_FAILS [var NUM_FAILS]]

[TILE_MEM32_DATA_STORE]

[#eq,[var NUM_FAILS],[var ORIGINAL_NUM_FAILS]]
    [set TILE_RESULT PASS_MESSAGE TILE,,4,-,,TILE_MEM32_DATA_STORE]
[else]
    [set TILE_RESULT FAIL_MESSAGE TILE,,4,-,,TILE_MEM32_DATA_STORE]
[end]
[write]
[[var TILE_RESULT]]
[kill ORIGINAL_NUM_FAILS]
[set TILE4_RESULT [var TILE_RESULT]]

[write][write]
[write end of,,32,Megabyte Memory Board testing]
[write]
[[var TILE1_RESULT]]
[[var TILE2_RESULT]]
[[var TILE3_RESULT]]
[[var TILE4_RESULT]]
[write]
[eq,[var,NUM_FAILS],0]
    [PASS_MESSAGE 32,,Megabyte Memory Board]
    [kill NUM_FAILS]
    [ne,%1%,]
	write;
	write PASS,COUNT,IS,[dec,[add,%1%,1]];
	TEST_MEM32 [add,%1%,1];
    [end]
[else]
    [FAIL_MESSAGE 32,,Megabyte Memory Board]
    [write]
    [write [eq,[var NUM_FAILS],1]IT'S NOT TOO BAD : ONLY ONE TEST FAILED,
           [else][var NUM_FAILS],,TESTS,FAILED[end]]
    [write [ASCII,7]];
    [write]
    [kill NUM_FAILS]
    [kill BOARD_NUM]
    [kill TILE_RESULT]
    [kill TILE1_RESULT]
    [kill TILE2_RESULT]
    [kill TILE3_RESULT]
    [kill TILE4_RESULT]
    [ne,%1%,]
	write;
	write PASS,COUNT,WAS,[dec,%1%];
    [end]
[end]

«nul»