|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 356 (0x164)
Types: TYP, TextFile
Names: »TEST_WCS_PARITY.TYP«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_WCS_PARITY.TYP«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_WCS_PARITY.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 259554b7e28c2532 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 21 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 WCS_PARITY_PASSED
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 19 .DATA 0x19
14 R4_:
14 00 .DATA 0x0
15 R5_:
15 00 .DATA 0x0
16 R6_:
16 00 .DATA 0x0
17 R7_:
17 00 .DATA 0x0
18 4b .CODE 0x4b
19 00 .DATA 0x0 ; P19OS6 INPUT_PATTERN
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 EXPERIMENT:
21 18 CALL 0x4b
22 af 86 VINV [0x6],R3
24 8f 40 20 MOV #0x40,0x20
27 18 CALL 0x4b
28 a7 06 LEFT.0 #0x1,R3,[0x6]
2a a7 06 LEFT.0 #0x1,R3,[0x6]
2c 8f 00 20 MOV #0x00,0x20
2f 18 CALL 0x4b
30 00 2e REPEAT #0x2e
32 a7 06 LEFT.0 #0x1,R3,[0x6]
34 3a 39 JMP PX,0x39
36 93 02 1e ADD #0x02,0x1e
39 18 CALL 0x4b
3a 16 UNTIL
3b 3a 49 JMP PX,0x49
3d 66 SET PX
3e a7 06 LEFT.0 #0x1,R3,[0x6]
40 82 1e INC 0x1e
42 af 86 VINV [0x6],R3
44 8f 40 20 MOV #0x40,0x20
47 36 2f JMP 0x2f
49 64 SET PT
4a 5c END
4b ; --------------------------------------------------------------------------------------
4b ; Subroutine
4b ; --------------------------------------------------------------------------------------
4b da 51 3b CHN_SND @R2,{T.UIR:3b}
4e bc 5b FSM {5b}
50 d4 08 41 1f RCV_P1 #0x08,{41},0x1f
54 97 40 1f AND #0x40,0x1f
57 4e 1f 20 4a JMP NE,0x1f,0x20,0x4a
5b 2c RET
P11OF0 WCS_PARITY_PASSED\r P19OS6 INPUT_PATTERN\r \r 21\r 00\r 19\r 19\r 00\r 00\r 00\r 00\r \r 4B\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 18\r AF\r 86\r 8F\r 40\r 20\r 18\r A7\r 06\r A7\r 06\r 8F\r 00\r 20\r 18\r 00\r 2E\r A7\r 06\r 3A\r 39\r 93\r 02\r 1E\r 18\r 16\r 3A\r 49\r 66\r A7\r 06\r 82\r 1E\r AF\r 86\r 8F\r 40\r 20\r 36\r 2F\r 64\r 5C\r DA\r 51\r 3B\r BC\r 5B\r D4\r 08\r 41\r 1F\r 97\r 40\r 1F\r 4E\r 1F\r 20\r 4A\r 2C\r