|
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: TextFile, VAL
Names: »TEST_DEC_A_OP.VAL«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_DEC_A_OP.VAL«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_DEC_A_OP.VAL«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_DEC_A_OP.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 170368d5d2538eba (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 39 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 DEC_A_OP_PASS
; P11OF1 B_INPUT_ZEROS
12 R2_:
12 28 .DATA 0x28
13 R3_:
13 30 .DATA 0x30
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 5a .CODE 0x5a
19 71 .DATA 0x71
1a ef .DATA 0xef
1b ff .DATA 0xff
1c 07 .DATA 0x7
1d f3 .DATA 0xf3
1e 71 .DATA 0x71
1f df .DATA 0xdf
20 ff .DATA 0xff
21 07 .DATA 0x7
22 f3 .DATA 0xf3
23 71 .DATA 0x71
24 c8 .DATA 0xc8
25 ff .DATA 0xff
26 07 .DATA 0x7
27 87 .DATA 0x87
28 00 .DATA 0x0 ; P28OS8 EXPECT
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 00 .DATA 0x0 ; P30OS8 RESULT
31 00 .DATA 0x0
32 00 .DATA 0x0
33 00 .DATA 0x0
34 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 00 .DATA 0x0
38 00 .DATA 0x0
39 EXPERIMENT:
39 00 41 REPEAT #0x41
3b da 40 19 3b CHN_SND 0x19,{V.UIR:3b}
3f 18 CALL 0x5a
40 66 SET PX
41 b1 28 59 VJMP NE,[0x8],R2,R3,0x59
44 da 40 1e 3b CHN_SND 0x1e,{V.UIR:3b}
48 18 CALL 0x5a
49 6a CLR PX
4a b1 28 59 VJMP NE,[0x8],R2,R3,0x59
4d a6 08 28 LEFT.0 #0x1,0x28,[0x8]
50 82 2f INC 0x2f
52 da 40 23 3b CHN_SND 0x23,{V.UIR:3b}
56 18 CALL 0x5a
57 16 UNTIL
58 64 SET PT
59 5c END
5a ; --------------------------------------------------------------------------------------
5a ; Subroutine
5a ; --------------------------------------------------------------------------------------
5a c8 ff ff 2b WFSM.W #0xffff,{2b}
5e bc 4b FSM {4b}
60 bc 13 FSM {13}
62 d2 00 3b FSM_8X #0x00,{3b}
65 bc 5c FSM {5c}
67 da 33 39 CHN_RCV {TV.WDR:39},@R3
6a af 88 VINV [0x8],R3
6c 2c RET
P11OF0 DEC_A_OP_PASS\r P11OF1 B_INPUT_ZEROS\r P28OS8 EXPECT\r P30OS8 RESULT\r \r 39\r 00\r 28\r 30\r 00\r 00\r 00\r 00\r \r 5A\r 71\r EF\r FF\r 07\r F3\r 71\r DF\r FF\r 07\r F3\r 71\r C8\r FF\r 07\r 87\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 41\r DA\r 40\r 19\r 3B\r 18\r 66\r B1\r 28\r 59\r DA\r 40\r 1E\r 3B\r 18\r 6A\r B1\r 28\r 59\r A6\r 08\r 28\r 82\r 2F\r DA\r 40\r 23\r 3B\r 18\r 16\r 64\r 5C\r C8\r FF\r FF\r 2B\r BC\r 4B\r BC\r 13\r D2\r 00\r 3B\r BC\r 5C\r DA\r 33\r 39\r AF\r 88\r 2C\r «nul»