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

⟦2c629d21b⟧ EM, TextFile

    Length: 6144 (0x1800)
    Types: EM, TextFile
    Names: »IOA_ALL_IPC.EM«

Derivation

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

TextFile

write;
write ALL,IPC,TESTS;
write;
[ipc_init];
[ne,[arg 1 [xeq IOA TEST_IPC_0 1 2 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,1,TO,2;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 1 2 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,1,TO,2;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,1,TO,2;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 2 3 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,2,TO,3;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 2 3 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,2,TO,3;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,2,TO,3;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 3 4 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,3,TO,4;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 3 4 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,3,TO,4;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,3,TO,4;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 4 5 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,4,TO,5;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 4 5 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,4,TO,5;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,4,TO,5;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 5 6 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,5,TO,6;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 5 6 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,5,TO,6;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,5,TO,6;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 6 7 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,6,TO,7;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 6 7 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,6,TO,7;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,6,TO,7;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 7 8 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,7,TO,8;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 7 8 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,7,TO,8;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,7,TO,8;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 8 9 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,8,TO,9;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 8 9 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,8,TO,9;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,8,TO,9;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 9 a 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,9,TO,a;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 9 a 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,9,TO,a;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,9,TO,a;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 a b 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,a,TO,b;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 a b 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,a,TO,b;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,a,TO,b;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 b c 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,b,TO,c;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 b c 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,b,TO,c;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,b,TO,c;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 c d 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,c,TO,d;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 c d 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,c,TO,d;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,c,TO,d;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 d e 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,d,TO,e;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 d e 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,d,TO,e;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,d,TO,e;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 e f 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,e,TO,f;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 e f 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,e,TO,f;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,e,TO,f;
    [end]
[end]
[ne,[arg 1 [xeq IOA TEST_IPC_0 f 1 40 0]],00]
    FAIL_MESSAGE PART,ONE,OF,IPC,TEST,OF,BUFFER,f,TO,1;
    set NUM_FAILS [add,[var NUM_FAILS],1];
[else]
    [ne,[arg 1 [xeq IOA TEST_IPC_1 f 1 40 0]],00]
        FAIL_MESSAGE PART,TWO,OF,IPC,TEST,OF,BUFFER,f,TO,1;
	set NUM_FAILS [add,[var NUM_FAILS],1];
    [else]
	PASS_MESSAGE IPC,TEST,OF,BUFFER,f,TO,1;
    [end]
[end]
[ne,%1%,]
    IOA_ALL_IPC 1;
[end]«nul»