|
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 - metrics - download
Length: 482 (0x1e2)
Types: TextFile, VAL
Names: »TEST_WCS.VAL«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »TEST_WCS.VAL«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »TEST_WCS.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 938bbf26357b169a (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2b .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 DESCENDING_ADDR
; P11OF1 PASSED
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 1d .DATA 0x1d
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 60 .CODE 0x60
19 3f .DATA 0x3f ; P19OS2 LAST_ADDRESS
1a ff .DATA 0xff
1b 40 .DATA 0x40
1c 00 .DATA 0x0
1d ff .DATA 0xff ; P1DOS5 LAST_DATA
1e f0 .DATA 0xf0
1f 3e .DATA 0x3e
20 00 .DATA 0x0
21 00 .DATA 0x0
22 f0 .DATA 0xf0
23 0f .DATA 0xf
24 00 .DATA 0x0
25 f7 .DATA 0xf7
26 00 .DATA 0x0
27 f0 .DATA 0xf0
28 0f .DATA 0xf
29 ff .DATA 0xff
2a ff .DATA 0xff
2b EXPERIMENT:
2b c3 2b WP12_FSM R2,{2b}
2d da 40 1d 3b CHN_SND 0x1d,{V.UIR:3b}
31 da 30 22 38 CHN_SND 0x22,{TV.WDR:38}
35 bc 4c FSM {4c}
37 5a 19 35 DJNN.W 0x19,0x35
3a 18 CALL 0x60
3b bc 70 FSM {70}
3d 18 CALL 0x60
3e bc 71 FSM {71}
40 38 4f JMP PT,0x4f
42 bc 2c FSM {2c}
44 84 19 INC.W 0x19
46 56 1b 3a DJNZ.W 0x1b,0x3a
49 64 SET PT
4a 6e INV PX
4b 7c 02 ADD R2,#0x02
4d bc 71 FSM {71}
4f c3 2b WP12_FSM R2,{2b}
51 84 1b INC.W 0x1b
53 5a 19 3a DJNN.W 0x19,0x3a
56 66 SET PX
57 36 5f JMP 0x5f
59 6a CLR PX
5a bc 48 FSM {48}
5c da 43 3c CHN_RCV {V.UIR:3c},@R3
5f 5c END
60 ; --------------------------------------------------------------------------------------
60 ; Subroutine
60 ; --------------------------------------------------------------------------------------
60 bc 48 FSM {48}
62 3a 6a JMP PX,0x6a
64 da 4b 3c 59 CHN_TST ????,{V.UIR:3c},0x59
68 36 6e JMP 0x6e
6a da 4f 3c 59 CHN_TST ????,{V.UIR:3c},0x59
6e 6e INV PX
6f bc 70 FSM {70}
71 bc 70 FSM {70}
73 2c RET
P11OF1 PASSED\r P11OF0 DESCENDING_ADDR\r P19OS2 LAST_ADDRESS\r P1DOS5 LAST_DATA\r \r 2B\r 00\r 19\r 1D\r 00\r 00\r 00\r 00\r \r 60\r 3F\r FF\r 40\r 00\r FF\r F0\r 3E\r 00\r 00\r F0\r 0F\r 00\r F7\r 00\r F0\r 0F\r FF\r FF\r C3\r 2B\r DA\r 40\r 1D\r 3B\r DA\r 30\r 22\r 38\r BC\r 4C\r 5A\r 19\r 35\r 18\r BC\r 70\r 18\r BC\r 71\r 38\r 4F\r BC\r 2C\r 84\r 19\r 56\r 1B\r 3A\r 64\r 6E\r 7C\r 02\r BC\r 71\r C3\r 2B\r 84\r 1B\r 5A\r 19\r 3A\r 66\r 36\r 5F\r 6A\r BC\r 48\r DA\r 43\r 3C\r 5C\r BC\r 48\r 3A\r 6A\r DA\r 4B\r 3C\r 59\r 36\r 6E\r DA\r 4F\r 3C\r 59\r 6E\r BC\r 70\r BC\r 70\r 2C\r