|
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 - metrics - download
Length: 527 (0x20f)
Types: TextFile, VAL
Names: »TEST_RF_PARITY_CHECKERS.VAL«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »TEST_RF_PARITY_CHECKERS.VAL«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »TEST_RF_PARITY_CHECKERS.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 5e7d93420f3cd7a6 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 29 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 RF_PCHEK_PASSED
; P11OF1 EXPECTED_PERR
12 R2_:
12 20 .DATA 0x20
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 59 .CODE 0x59
19 00 .DATA 0x0
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 0f .DATA 0xf
1d ff .DATA 0xff
1e 87 .DATA 0x87
1f ff .DATA 0xff
20 ff .DATA 0xff ; P20OS8 INPUT_PATTERN.VAL
21 ff .DATA 0xff
22 ff .DATA 0xff
23 ff .DATA 0xff
24 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 ff .DATA 0xff ; P28OS1 INPUT_PATTERN.VPAR
29 EXPERIMENT:
29 c8 ff ff 2b WFSM.W #0xffff,{2b}
2d da 40 1b 3b CHN_SND 0x1b,{V.UIR:3b}
31 bc 4c FSM {4c}
33 bc 4b FSM {4b}
35 18 CALL 0x59
36 ae 88 20 VINV [0x8],0x20
39 18 CALL 0x59
3a 82 27 INC 0x27
3c 00 40 REPEAT #0x40
3e b4 20 28 EVNPAR [0x8],0x20,0x28
41 8a 28 INV 0x28
43 18 CALL 0x59
44 a6 08 20 LEFT.0 #0x1,0x20,[0x8]
47 16 UNTIL
48 66 SET PX
49 8f 08 1a MOV #0x08,0x1a
4c 8f fe 28 MOV #0xfe,0x28
4f 08 REPEAT #0x08
50 18 CALL 0x59
51 a6 01 28 LEFT.0 #0x1,0x28,[0x1]
54 82 28 INC 0x28
56 16 UNTIL
57 64 SET PT
58 5c END
59 ; --------------------------------------------------------------------------------------
59 ; Subroutine
59 ; --------------------------------------------------------------------------------------
59 da 31 38 CHN_SND @R2,{TV.WDR:38}
5c d2 f0 40 FSM_8X #0xf0,{40}
5f c8 ff ff 2b WFSM.W #0xffff,{2b}
63 bc 13 FSM {13}
65 d2 f0 40 FSM_8X #0xf0,{40}
68 c8 ff ff 2b WFSM.W #0xffff,{2b}
6c bc 13 FSM {13}
6e d4 08 41 19 RCV_P1 #0x08,{41},0x19
72 97 08 19 AND #0x08,0x19
75 4e 19 1a 58 JMP NE,0x19,0x1a,0x58
79 2c RET
P11OF0 RF_PCHEK_PASSED\r P11OF1 EXPECTED_PERR\r P20OS8 INPUT_PATTERN.VAL\r P28OS1 INPUT_PATTERN.VPAR\r \r 29\r 00\r 20\r 18\r 00\r 00\r 00\r 00\r \r 59\r 00\r 00\r 00\r 0F\r FF\r 87\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r C8\r FF\r FF\r 2B\r DA\r 40\r 1B\r 3B\r BC\r 4C\r BC\r 4B\r 18\r AE\r 88\r 20\r 18\r 82\r 27\r 00\r 40\r B4\r 20\r 28\r 8A\r 28\r 18\r A6\r 08\r 20\r 16\r 66\r 8F\r 08\r 1A\r 8F\r FE\r 28\r 08\r 18\r A6\r 01\r 28\r 82\r 28\r 16\r 64\r 5C\r DA\r 31\r 38\r D2\r F0\r 40\r C8\r FF\r FF\r 2B\r BC\r 13\r D2\r F0\r 40\r C8\r FF\r FF\r 2B\r BC\r 13\r D4\r 08\r 41\r 19\r 97\r 08\r 19\r 4E\r 19\r 1A\r 58\r 2C\r