|
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: SEQ, TextFile
Names: »READ_DECODE_AND_PARITY.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »READ_DECODE_AND_PARITY.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »READ_DECODE_AND_PARITY.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »READ_DECODE_AND_PARITY.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 76ebe26f574ded6c (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 30 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PARITY_OK
12 R2_:
12 2d .DATA 0x2d
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 6a .CODE 0x6a
19 00 .DATA 0x0 ; P19OS2 DECODE_OUT.UADR
1a 00 .DATA 0x0
1b 00 .DATA 0x0 ; P1BOS1 DECODE_OUT.CSA_FREE
1c 20 .DATA 0x20 ; P1COS1 DECODE_OUT.CSA_VALID
1d 00 .DATA 0x0 ; P1DOS1 DECODE_OUT.MISC
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 00 .DATA 0x0
22 00 .DATA 0x0
23 51 .DATA 0x51
24 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 ff .DATA 0xff
29 ff .DATA 0xff
2a ff .DATA 0xff
2b ff .DATA 0xff
2c ff .DATA 0xff
2d 00 .DATA 0x0 ; P2DIS2 ADDRESS
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 EXPERIMENT:
30 8e 2d 2f MOV 0x2d,0x2f
33 97 fc 2f AND #0xfc,0x2f
36 44 2f 3c JMP Z,0x2f,0x3c
39 9f 20 1c XOR #0x20,0x1c
3c 8c 2d INV.W 0x2d
3e bf 59 WP1_FSM R2,{59}
40 74 INC R2
41 bf 58 WP1_FSM R2,{58}
43 18 CALL 0x6a
44 bc 62 FSM {62}
46 8f 52 23 MOV #0x52,0x23
49 18 CALL 0x6a
4a bc 66 FSM {66}
4c 18 CALL 0x6a
4d bc 3b FSM {3b}
4f da b2 19 34 CHN_RCV {S.DECODER:34},0x19
53 b0 45 19 24 VMOV [0x5],0x19,0x24
57 97 03 26 AND #0x03,0x26
5a 97 f0 28 AND #0xf0,0x28
5d b6 05 24 19 EVNPAR #0x05,0x24,#0x19
61 4e 1c 27 66 JMP NE,0x1c,0x27,0x66
65 64 SET PT
66 a6 02 19 LEFT.0 #0x1,0x19,[0x2]
69 5c END
6a ; --------------------------------------------------------------------------------------
6a ; Subroutine
6a ; --------------------------------------------------------------------------------------
6a 10 REPEAT #0x10
6b c4 ff 40 WFSM.L #0xff,{40}
6e 16 UNTIL
6f da b0 19 42 CHN_SND 0x19,{S.DECODER:42}
73 da a0 1e 41 CHN_SND 0x1e,{S.UIR:41}
77 da c0 24 43 CHN_SND 0x24,{S.MISC:43}
7b 2c RET
P2DIS2 ADDRESS P19OS2 DECODE_OUT.UADR P1BOS1 DECODE_OUT.CSA_FREE P1COS1 DECODE_OUT.CSA_VALID P1DOS1 DECODE_OUT.MISC P11OF0 PARITY_OK 30 00 2D 18 00 00 00 00 6A 00 00 00 20 00 00 00 00 00 00 51 FF FF FF FF FF FF FF FF FF 00 00 00 8E 2D 2F 97 FC 2F 44 2F 3C 9F 20 1C 8C 2D BF 59 74 BF 58 18 BC 62 8F 52 23 18 BC 66 18 BC 3B DA B2 19 34 B0 45 19 24 97 03 26 97 F0 28 B6 05 24 19 4E 1C 27 66 64 A6 02 19 5C 10 C4 FF 40 16 DA B0 19 42 DA A0 1E 41 DA C0 24 43 2C«nul»