|
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: 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
Listing <MemMapper Memory 0x0-0x100> to /tmp/_aa_r1k_dfs/r1k_dfs/a3/a329b41f3.tmp.1.27789 10-6e
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»