|
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: 1024 (0x400)
Types: M32, TextFile
Names: »TEST_MAR_PARITY.M32«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_MAR_PARITY.M32«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_MAR_PARITY.M32«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_MAR_PARITY.M32«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 123b37bc57eb1b17 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 4b .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASSED
12 R2_:
12 3e .DATA 0x3e
13 R3_:
13 18 .DATA 0x18
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 83 .CODE 0x83
19 9e .CODE 0x9e
1a 01 .DATA 0x1
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 01 .DATA 0x1
22 00 .DATA 0x0
23 07 .DATA 0x7
24 fe .DATA 0xfe
25 bb .DATA 0xbb
26 fe .DATA 0xfe
27 bb .DATA 0xbb
28 06 .DATA 0x6
29 f8 .DATA 0xf8
2a 01 .DATA 0x1
2b 19 .DATA 0x19
2c 03 .DATA 0x3
2d 00 .DATA 0x0
2e 01 .DATA 0x1
2f 00 .DATA 0x0
30 01 .DATA 0x1
31 00 .DATA 0x0
32 00 .DATA 0x0
33 05 .DATA 0x5
34 00 .DATA 0x0
35 05 .DATA 0x5
36 fe .DATA 0xfe
37 fe .DATA 0xfe
38 fe .DATA 0xfe
39 fe .DATA 0xfe
3a 07 .DATA 0x7
3b f7 .DATA 0xf7
3c e5 .DATA 0xe5
3d 1f .DATA 0x1f
3e 00 .DATA 0x0
3f 00 .DATA 0x0
40 00 .DATA 0x0
41 00 .DATA 0x0
42 00 .DATA 0x0
43 00 .DATA 0x0
44 00 .DATA 0x0
45 00 .DATA 0x0
46 00 .DATA 0x0
47 00 .DATA 0x0 ; P47OS1 EXPECTED_PARITY
48 00 .DATA 0x0
49 00 .DATA 0x0 ; P49OS1 BAD_BITS
4a 00 .DATA 0x0 ; P4AOS1 TEST_PHASE
4b EXPERIMENT:
4b cc 0a 49 RFSM.H {0a},0x49
4e 42 10 49 80 TEST Z,#0x10,0x49,0x80
52 b0 49 1a 3e VMOV [0x9],0x1a,0x3e
56 8f 00 47 MOV #0x00,0x47
59 18 CALL 0x83
5a 8f 55 47 MOV #0x55,0x47
5d 19 CALL 0x9e
5e b0 49 23 3e VMOV [0x9],0x23,0x3e
62 18 CALL 0x83
63 b0 49 2c 3e VMOV [0x9],0x2c,0x3e
67 19 CALL 0x9e
68 8f aa 47 MOV #0xaa,0x47
6b 18 CALL 0x83
6c 8f ff 47 MOV #0xff,0x47
6f 19 CALL 0x9e
70 b0 49 35 3e VMOV [0x9],0x35,0x3e
74 18 CALL 0x83
75 8f 00 47 MOV #0x00,0x47
78 19 CALL 0x9e
79 46 4a 80 JMP NZ,0x4a,0x80
7c 82 4a INC 0x4a
7e 36 52 JMP 0x52
80 64 SET PT
81 d8 FSM2
82 5c END
83 ; --------------------------------------------------------------------------------------
83 ; Subroutine
83 ; --------------------------------------------------------------------------------------
83 da 01 03 CHN_SND @R2,{M.MAR:03}
86 44 4a 94 JMP Z,0x4a,0x94
89 cc 2f 49 RFSM.H {2f},0x49
8c 8a 49 INV 0x49
8e 9e 47 49 XOR 0x47,0x49
91 46 49 81 JMP NZ,0x49,0x81
94 cc af 48 RFSM.H {af},0x48
97 97 02 48 AND #0x02,0x48
9a 46 48 81 JMP NZ,0x48,0x81
9d 2c RET
9e ; --------------------------------------------------------------------------------------
9e ; Subroutine
9e ; --------------------------------------------------------------------------------------
9e da 01 03 CHN_SND @R2,{M.MAR:03}
a1 44 4a af JMP Z,0x4a,0xaf
a4 cc 2f 49 RFSM.H {2f},0x49
a7 8a 49 INV 0x49
a9 9e 47 49 XOR 0x47,0x49
ac 46 49 81 JMP NZ,0x49,0x81
af cc af 48 RFSM.H {af},0x48
b2 97 02 48 AND #0x02,0x48
b5 44 48 81 JMP Z,0x48,0x81
b8 2c RET
P11OF0 PASSED P4AOS1 TEST_PHASE P47OS1 EXPECTED_PARITY P49OS1 BAD_BITS 4B 00 3E 18 00 00 00 00 83 9E 01 00 00 00 00 00 00 01 00 07 FE BB FE BB 06 F8 01 19 03 00 01 00 01 00 00 05 00 05 FE FE FE FE 07 F7 E5 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 CC 0A 49 42 10 49 80 B0 49 1A 3E 8F 00 47 18 8F 55 47 19 B0 49 23 3E 18 B0 49 2C 3E 19 8F AA 47 18 8F FF 47 19 B0 49 35 3E 18 8F 00 47 19 46 4A 80 82 4A 36 52 64 D8 5C DA 01 03 44 4A 94 CC 2F 49 8A 49 9E 47 49 46 49 81 CC AF 48 97 02 48 46 48 81 2C DA 01 03 44 4A AF CC 2F 49 8A 49 9E 47 49 46 49 81 CC AF 48 97 02 48 44 48 81 2C«nul»