|
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_DISP_LOW.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »FLIP_DISP_LOW.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »FLIP_DISP_LOW.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »FLIP_DISP_LOW.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 4130611a987c8495 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 26 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
12 R2_:
12 18 .DATA 0x18
13 R3_:
13 19 .DATA 0x19
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
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 0e .DATA 0xe
21 00 .DATA 0x0
22 00 .DATA 0x0
23 52 .DATA 0x52
24 04 .DATA 0x4
25 00 .DATA 0x0
26 EXPERIMENT:
26 da' b0 19 42 CHN_SND 0x19,{S.DECODER:42}
2a 18 CALL 0x6a
2b bc' 66 FSM {66}
2d 8f 51 23 MOV #0x51,0x23
30 18 CALL 0x6a
31 c4 00 59 WFSM.L #0x00,{59}
34 c4 00 58 WFSM.L #0x00,{58}
37 bc 3b FSM {3b}
39 da b3 34 CHN_RCV {S.DECODER:34},@R3
3c 97 9f 1c AND #0x9f,0x1c
3f 68 CLR PT
40 b0 45 19 26 VMOV [0x5],0x19,EXPERIMENT
44 ae 05 26 56 VJMP Z,[0x5],EXPERIMENT,0x56
48 6c INV PT
49 b0 45 26 2b VMOV [0x5],EXPERIMENT,0x2b
4d ae 65 2b VDEC [0x5],0x2b
50 b0 85 2b 26 VAND [0x5],0x2b,EXPERIMENT
54 36 44 JMP 0x44
56 3c 5b JMP NPT,0x5b
58 9b 40 1c OR #0x40,0x1c
5b 9b 20 1c OR #0x20,0x1c
5e da b0 19 42 CHN_SND 0x19,{S.DECODER:42}
62 bc 49 FSM {49}
64 bc 5a FSM {5a}
66 56 24 37 DJNZ.W 0x24,0x37
69 5c END
6a ; --------------------------------------------------------------------------------------
6a ; Subroutine
6a ; --------------------------------------------------------------------------------------
6a da a0 1e 41 CHN_SND 0x1e,{S.UIR:41}
6e 10 REPEAT #0x10
6f c4 ff 40 WFSM.L #0xff,{40}
72 c4 ff 43 WFSM.L #0xff,{43}
75 16 UNTIL
76 2c RET
26 00 18 19 00 00 00 00 6A 00 00 00 00 00 00 00 0E 00 00 52 04 00 DA B0 19 42 18 BC 66 8F 51 23 18 C4 00 59 C4 00 58 BC 3B DA B3 34 97 9F 1C 68 B0 45 19 26 AE 05 26 56 6C B0 45 26 2B AE 65 2B B0 85 2B 26 36 44 3C 5B 9B 40 1C 9B 20 1C DA B0 19 42 BC 49 BC 5A 56 24 37 5C DA A0 1E 41 10 C4 FF 40 C4 FF 43 16 2C«nul»