|
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: TYP, TextFile
Names: »TEST_WCS.TYP«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_WCS.TYP«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_WCS.TYP«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_WCS.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 1e10e45db88d155c (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2c .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 61 .CODE 0x61
19 3f .DATA 0x3f ; P19OS2 LAST_ADDRESS
1a ff .DATA 0xff
1b 40 .DATA 0x40
1c 00 .DATA 0x0
1d ff .DATA 0xff ; P1DOS6 LAST_DATA
1e ff .DATA 0xff
1f 80 .DATA 0x80
20 00 .DATA 0x0
21 00 .DATA 0x0
22 00 .DATA 0x0
23 f0 .DATA 0xf0
24 0f .DATA 0xf
25 00 .DATA 0x0
26 f7 .DATA 0xf7
27 00 .DATA 0x0
28 f0 .DATA 0xf0
29 0f .DATA 0xf
2a 00 .DATA 0x0
2b ff .DATA 0xff
2c EXPERIMENT:
2c c3 2b WP12_FSM R2,{2b}
2e da 50 1d 3b CHN_SND 0x1d,{T.UIR:3b}
32 da 30 23 38 CHN_SND 0x23,{TV.WDR:38}
36 bc 4c FSM {4c}
38 5a 19 36 DJNN.W 0x19,0x36
3b 18 CALL 0x61
3c bc 70 FSM {70}
3e 18 CALL 0x61
3f bc 71 FSM {71}
41 38 50 JMP PT,0x50
43 bc 2c FSM {2c}
45 84 19 INC.W 0x19
47 56 1b 3b DJNZ.W 0x1b,0x3b
4a 64 SET PT
4b 6e INV PX
4c 7c 02 ADD R2,#0x02
4e bc 71 FSM {71}
50 c3 2b WP12_FSM R2,{2b}
52 84 1b INC.W 0x1b
54 5a 19 3b DJNN.W 0x19,0x3b
57 66 SET PX
58 36 60 JMP 0x60
5a 6a CLR PX
5b bc 48 FSM {48}
5d da 53 3c CHN_RCV {T.UIR:3c},@R3
60 5c END
61 ; --------------------------------------------------------------------------------------
61 ; Subroutine
61 ; --------------------------------------------------------------------------------------
61 bc 48 FSM {48}
63 3a 6b JMP PX,0x6b
65 da 5b 3c 5a CHN_TST ????,{T.UIR:3c},0x5a
69 36 6f JMP 0x6f
6b da 5f 3c 5a CHN_TST ????,{T.UIR:3c},0x5a
6f 6e INV PX
70 bc 70 FSM {70}
72 bc 70 FSM {70}
74 2c RET
P11OF1 PASSED\r P11OF0 DESCENDING_ADDR\r P19OS2 LAST_ADDRESS\r P1DOS6 LAST_DATA\r \r 2C\r 00\r 19\r 1D\r 00\r 00\r 00\r 00\r \r 61\r 3F\r FF\r 40\r 00\r FF\r FF\r 80\r 00\r 00\r 00\r F0\r 0F\r 00\r F7\r 00\r F0\r 0F\r 00\r FF\r C3\r 2B\r DA\r 50\r 1D\r 3B\r DA\r 30\r 23\r 38\r BC\r 4C\r 5A\r 19\r 36\r 18\r BC\r 70\r 18\r BC\r 71\r 38\r 50\r BC\r 2C\r 84\r 19\r 56\r 1B\r 3B\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 3B\r 66\r 36\r 60\r 6A\r BC\r 48\r DA\r 53\r 3C\r 5C\r BC\r 48\r 3A\r 6B\r DA\r 5B\r 3C\r 5A\r 36\r 6F\r DA\r 5F\r 3C\r 5A\r 6E\r BC\r 70\r BC\r 70\r 2C\r «nul»