|
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_DECODE.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »WRITE_DECODE.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »WRITE_DECODE.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »WRITE_DECODE.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 74b101afb77f52bd (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 30 .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 63 .CODE 0x63
19 00 .DATA 0x0
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 51 .DATA 0x51
1f ff .DATA 0xff
20 ff .DATA 0xff
21 ff .DATA 0xff
22 ff .DATA 0xff
23 ff .DATA 0xff
24 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 00 .DATA 0x0
29 00 .DATA 0x0 ; P29IS2 ADDRESS
2a 00 .DATA 0x0
2b 00 .DATA 0x0 ; P2BIS2 DECODE_IN.UADR
; P2BOS2 DECODE_OUT.UADR
2c 00 .DATA 0x0
2d 00 .DATA 0x0 ; P2DIS1 DECODE_IN.CSA_FREE
; P2DOS1 DECODE_OUT.CSA_FREE
2e 00 .DATA 0x0 ; P2EIS1 DECODE_IN.CSA_VALID
; P2EOS1 DECODE_OUT.CSA_VALID
2f 00 .DATA 0x0 ; P2FIS1 DECODE_IN.MISC
; P2FOS1 DECODE_OUT.MISC
30 EXPERIMENT:
30 9b 20 2e OR #0x20,0x2e
33 8e 29 28 MOV 0x29,0x28
36 97 fc 28 AND #0xfc,0x28
39 44 28 3f JMP Z,0x28,0x3f
3c 9f 20 2e XOR #0x20,0x2e
3f 8c 29 INV.W 0x29
41 70 29 LD R2,0x29
43 bf 59 WP1_FSM R2,{59}
45 74 INC R2
46 bf 58 WP1_FSM R2,{58}
48 a8 02 2b SR.0 #0x1,0x2b,[0x2]
4b 18 CALL 0x63
4c bc 62 FSM {62}
4e 8f 52 1e MOV #0x52,0x1e
51 18 CALL 0x63
52 bc 66 FSM {66}
54 18 CALL 0x63
55 bc 08 FSM {08}
57 bc 49 FSM {49}
59 5e 00 54 LOOPE #0x00,0x54 ; P5AIS1 LOOP
5c bc 3b FSM {3b}
5e da b2 2b 34 CHN_RCV {S.DECODER:34},0x2b
62 5c END
63 ; --------------------------------------------------------------------------------------
63 ; Subroutine
63 ; --------------------------------------------------------------------------------------
63 10 REPEAT #0x10
64 c4 ff 40 WFSM.L #0xff,{40}
67 16 UNTIL
68 da b0 2b 42 CHN_SND 0x2b,{S.DECODER:42}
6c da a0 19 41 CHN_SND 0x19,{S.UIR:41}
70 da c0 1f 43 CHN_SND 0x1f,{S.MISC:43}
74 2c RET
P5AIS1 LOOP P29IS2 ADDRESS P2BIS2 DECODE_IN.UADR P2DIS1 DECODE_IN.CSA_FREE P2EIS1 DECODE_IN.CSA_VALID P2FIS1 DECODE_IN.MISC P2BOS2 DECODE_OUT.UADR P2DOS1 DECODE_OUT.CSA_FREE P2EOS1 DECODE_OUT.CSA_VALID P2FOS1 DECODE_OUT.MISC 30 00 18 18 00 00 00 00 63 00 00 00 00 00 51 FF FF FF FF FF FF FF FF FF 00 00 00 00 00 00 00 00 9B 20 2E 8E 29 28 97 FC 28 44 28 3F 9F 20 2E 8C 29 70 29 BF 59 74 BF 58 A8 02 2B 18 BC 62 8F 52 1E 18 BC 66 18 BC 08 BC 49 5E 00 54 BC 3B DA B2 2B 34 5C 10 C4 FF 40 16 DA B0 2B 42 DA A0 19 41 DA C0 1F 43 2C«nul»