|
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: 376 (0x178)
Types: FIU, TextFile
Names: »TEST_WCS.FIU«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_WCS.FIU«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_WCS.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 4b3462d55247a7b8 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 28 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 DESCENDING_ADR
; P11OF1 PASS_TEST_FWCS
12 R2_:
12 18 .DATA 0x18
13 R3_:
13 1b .DATA 0x1b
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 66 .CODE 0x66
19 4f .CODE 0x4f
1a 5e .CODE 0x5e
1b 4f .DATA 0x4f ; P1BOS6 BAD_DATA
1c 5f .DATA 0x5f
1d 7f .DATA 0x7f
1e 7f .DATA 0x7f
1f 4f .DATA 0x4f
20 4f .DATA 0x4f
21 5f .DATA 0x5f
22 cf .DATA 0xcf
23 40 .DATA 0x40 ; P23OS2 ADDRESS
24 00 .DATA 0x0
25 40 .DATA 0x40
26 00 .DATA 0x0
27 00 .DATA 0x0
28 EXPERIMENT:
28 18 CALL 0x66
29 08 REPEAT #0x08
2a c4 00 13 WFSM.L #0x00,{13}
2d 16 UNTIL
2e bc 39 FSM {39}
30 56 23 2e DJNZ.W 0x23,0x2e
33 18 CALL 0x66
34 19 CALL 0x4f
35 1a CALL 0x5e
36 1a CALL 0x5e
37 19 CALL 0x4f
38 1a CALL 0x5e
39 8a 27 INV 0x27
3b 38 47 JMP PT,0x47
3d bc 3d FSM {3d}
3f 84 23 INC.W 0x23
41 56 25 34 DJNZ.W 0x25,0x34
44 64 SET PT
45 8a 27 INV 0x27
47 5a 23 33 DJNN.W 0x23,0x33
4a 66 SET PX
4b da 83 14 CHN_RCV {F.UIR:14},@R3
4e 5c END
4f ; --------------------------------------------------------------------------------------
4f ; Subroutine
4f ; --------------------------------------------------------------------------------------
4f bc 3a FSM {3a}
51 44 27 5a JMP Z,0x27,0x5a
54 da 8f 14 4b CHN_TST ????,{F.UIR:14},0x4b
58 36 5e JMP 0x5e
5a da 8b 14 4b CHN_TST ????,{F.UIR:14},0x4b
5e ; --------------------------------------------------------------------------------------
5e ; Subroutine
5e ; --------------------------------------------------------------------------------------
5e 8a 27 INV 0x27
60 d0 27 13 FSM_8X 0x27,{13}
63 bc 38 FSM {38}
65 2c RET
66 ; --------------------------------------------------------------------------------------
66 ; Subroutine
66 ; --------------------------------------------------------------------------------------
66 da 70 21 10 CHN_SND 0x21,{F.MDREG:10}
6a 70 1b LD R2,0x1b
6c 08 REPEAT #0x08
6d bf 13 WP1_FSM R2,{13}
6f 74 INC R2
70 16 UNTIL
71 bc 3c FSM {3c}
73 2c RET
P11OF1 PASS_TEST_FWCS P11OF0 DESCENDING_ADR P23OS2 ADDRESS P1BOS6 BAD_DATA 28 00 18 1B 00 00 00 00 66 4F 5E 4F 5F 7F 7F 4F 4F 5F CF 40 00 40 00 00 18 08 C4 00 13 16 BC 39 56 23 2E 18 19 1A 1A 19 1A 8A 27 38 47 BC 3D 84 23 56 25 34 64 8A 27 5A 23 33 66 DA 83 14 5C BC 3A 44 27 5A DA 8F 14 4B 36 5E DA 8B 14 4B 8A 27 D0 27 13 BC 38 2C DA 70 21 10 70 1B 08 BF 13 74 16 BC 3C 2C