|
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: 411 (0x19b)
Types: SEQ, TextFile
Names: »READ_DECODE.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »READ_DECODE.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »READ_DECODE.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 8f368e2f9fb55f9e (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 30 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
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 5c .CODE 0x5c
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 0x5c
44 bc 62 FSM {62}
46 8f 52 23 MOV #0x52,0x23
49 18 CALL 0x5c
4a bc 66 FSM {66}
4c 18 CALL 0x5c
4d bc 08 FSM {08}
4f bc 3b FSM {3b}
51 5e 00 4c LOOPE #0x00,0x4c ; P52IS1 LOOP
54 da b2 19 34 CHN_RCV {S.DECODER:34},0x19
58 a6 02 19 LEFT.0 #0x1,0x19,[0x2]
5b 5c END
5c ; --------------------------------------------------------------------------------------
5c ; Subroutine
5c ; --------------------------------------------------------------------------------------
5c 10 REPEAT #0x10
5d c4 ff 40 WFSM.L #0xff,{40}
60 16 UNTIL
61 da b0 19 42 CHN_SND 0x19,{S.DECODER:42}
65 da a0 1e 41 CHN_SND 0x1e,{S.UIR:41}
69 da c0 24 43 CHN_SND 0x24,{S.MISC:43}
6d 2c RET
P52IS1 LOOP P2DIS2 ADDRESS P19OS2 DECODE_OUT.UADR P1BOS1 DECODE_OUT.CSA_FREE P1COS1 DECODE_OUT.CSA_VALID P1DOS1 DECODE_OUT.MISC 30 00 2D 18 00 00 00 00 5C 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 08 BC 3B 5E 00 4C DA B2 19 34 A6 02 19 5C 10 C4 FF 40 16 DA B0 19 42 DA A0 1E 41 DA C0 24 43 2C