|
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: »WRITE_DISPATCH_LOW.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »WRITE_DISPATCH_LOW.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »WRITE_DISPATCH_LOW.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »WRITE_DISPATCH_LOW.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 63b52ae9eea1f2ef (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 36 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
12 R2_:
12 22 .DATA 0x22
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 5e .CODE 0x5e
19 04 .DATA 0x4
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 52 .DATA 0x52
20 00 .DATA 0x0 ; P20IS2 ADDRESS
21 00 .DATA 0x0
22 00 .DATA 0x0 ; P22IS5 DEC0
23 00 .DATA 0x0
24 00 .DATA 0x0
25 00 .DATA 0x0
26 00 .DATA 0x0
27 00 .DATA 0x0 ; P27IS5 DEC1
28 00 .DATA 0x0
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0 ; P2CIS5 DEC2
2d 00 .DATA 0x0
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 00 .DATA 0x0
31 00 .DATA 0x0 ; P31IS5 DEC3
32 00 .DATA 0x0
33 00 .DATA 0x0
34 00 .DATA 0x0
35 00 .DATA 0x0
36 EXPERIMENT:
36 10 REPEAT #0x10
37 c4 ff 40 WFSM.L #0xff,{40}
3a 16 UNTIL
3b 18 CALL 0x5e
3c bc 66 FSM {66}
3e 8c 20 INV.W 0x20
40 8f 51 1f MOV #0x51,0x1f
43 be 20 59 WP1_FSM 0x20,{59}
46 be 21 58 WP1_FSM 0x21,{58}
49 9b 20 25' OR #0x20,0x25
4c 93 05 4b ADD #0x05,0x4b
4f 18 CALL 0x5e
50 bc 62 FSM {62}
52 bc 49 FSM {49}
54 7c 05 ADD R2,#0x05
56 95 ff ff 20 ADD.W #0xffff,0x20
5a 54 19 43 DJNZ 0x19,0x43
5d 5c END
5e ; --------------------------------------------------------------------------------------
5e ; Subroutine
5e ; --------------------------------------------------------------------------------------
5e da b1 42 CHN_SND @R2,{S.DECODER:42}
61 da a0 1a 41 CHN_SND 0x1a,{S.UIR:41}
65 10 REPEAT #0x10
66 c4 ff 43 WFSM.L #0xff,{43}
69 16 UNTIL
6a 2c RET
P20IS2 ADDRESS P22IS5 DEC0 P27IS5 DEC1 P2CIS5 DEC2 P31IS5 DEC3 36 00 22 18 00 00 00 00 5E 04 00 00 00 00 00 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 C4 FF 40 16 18 BC 66 8C 20 8F 51 1F BE 20 59 BE 21 58 9B 20 25 93 05 4B 18 BC 62 BC 49 7C 05 95 FF FF 20 54 19 43 5C DA B1 42 DA A0 1A 41 10 C4 FF 43 16 2C«nul»