|
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: »FLIP_DISPATCH_PARITY.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »FLIP_DISPATCH_PARITY.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »FLIP_DISPATCH_PARITY.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »FLIP_DISPATCH_PARITY.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 8833a612feaedbeb (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 27 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
12 R2_:
12 18 .DATA 0x18
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 4a .CODE 0x4a
19 5b .CODE 0x5b
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 0e .DATA 0xe
22 00 .DATA 0x0
23 00 .DATA 0x0
24 52 .DATA 0x52
25 04 .DATA 0x4
26 00 .DATA 0x0
27 EXPERIMENT:
27 9b 20 1d OR #0x20,0x1d
2a 18 CALL 0x4a
2b bc 66 FSM {66}
2d 8f 51 24 MOV #0x51,0x24
30 18 CALL 0x4a
31 c4 00 59 WFSM.L #0x00,{59}
34 c4 00 58 WFSM.L #0x00,{58}
37 19 CALL 0x5b
38 91 04 00 25 MOV.W #0x0400,0x25
3c 9f 20 1d XOR #0x20,0x1d
3f bc 08 FSM {08}
41 18 CALL 0x4a
42 c4 00 59 WFSM.L #0x00,{59}
45 c4 00 58 WFSM.L #0x00,{58}
48 19 CALL 0x5b
49 5c END
4a ; --------------------------------------------------------------------------------------
4a ; Subroutine
4a ; --------------------------------------------------------------------------------------
4a da b0 1a 42 CHN_SND 0x1a,{S.DECODER:42}
4e da a0 1f 41 CHN_SND 0x1f,{S.UIR:41}
52 10 REPEAT #0x10
53 c4 00 40 WFSM.L #0x00,{40}
56 c4 ff 43 WFSM.L #0xff,{43}
59 16 UNTIL
5a 2c RET
5b ; --------------------------------------------------------------------------------------
5b ; Subroutine
5b ; --------------------------------------------------------------------------------------
5b bc 3b FSM {3b}
5d da b2 1a 34 CHN_RCV {S.DECODER:34},0x1a
61 9f 40 1d XOR #0x40,0x1d
64 da b0 1a 42 CHN_SND 0x1a,{S.DECODER:42}
68 bc 5a FSM {5a}
6a 56 25 5b DJNZ.W 0x25,0x5b
6d 2c RET
27 00 18 18 00 00 00 00 4A 5B 00 00 00 00 00 00 00 0E 00 00 52 04 00 9B 20 1D 18 BC 66 8F 51 24 18 C4 00 59 C4 00 58 19 91 04 00 25 9F 20 1D BC 08 18 C4 00 59 C4 00 58 19 5C DA B0 1A 42 DA A0 1F 41 10 C4 00 40 C4 FF 43 16 2C BC 3B DA B2 1A 34 9F 40 1D DA B0 1A 42 BC 5A 56 25 5B 2C«nul»