|
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_CARRY_PROPAGATE.TYP«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_CARRY_PROPAGATE.TYP«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_CARRY_PROPAGATE.TYP«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_CARRY_PROPAGATE.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 15d21192dcbefd74 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 3c .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CARRY_PROP_PASS
12 R2_:
12 2b .DATA 0x2b
13 R3_:
13 33 .DATA 0x33
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 59 .CODE 0x59
19 04 .DATA 0x4
1a 2f .DATA 0x2f
1b f0 .DATA 0xf0
1c ff .DATA 0xff
1d 83 .DATA 0x83
1e 0d .DATA 0xd
1f 08 .DATA 0x8
20 1f .DATA 0x1f
21 f0 .DATA 0xf0
22 ff .DATA 0xff
23 83 .DATA 0x83
24 0d .DATA 0xd
25 00 .DATA 0x0
26 2f .DATA 0x2f
27 f0 .DATA 0xf0
28 f7 .DATA 0xf7
29 83 .DATA 0x83
2a 0d .DATA 0xd
2b 00 .DATA 0x0 ; P2BOS8 EXPECT
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 00 .DATA 0x0
31 00 .DATA 0x0
32 01 .DATA 0x1
33 00 .DATA 0x0 ; P33OS8 RESULT
34 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 00 .DATA 0x0
38 00 .DATA 0x0
39 00 .DATA 0x0
3a 00 .DATA 0x0
3b 00 .DATA 0x0
3c EXPERIMENT:
3c 00 40 REPEAT #0x40
3e a6 08 2b LEFT.0 #0x1,0x2b,[0x8]
41 da 50 19 3b CHN_SND 0x19,{T.UIR:3b}
45 18 CALL 0x59
46 b1 28 58 VJMP NE,[0x8],R2,R3,0x58
49 da 50 1f 3b CHN_SND 0x1f,{T.UIR:3b}
4d 18 CALL 0x59
4e b1 28 58 VJMP NE,[0x8],R2,R3,0x58
51 da 50 25 3b CHN_SND 0x25,{T.UIR:3b}
55 18 CALL 0x59
56 16 UNTIL
57 64 SET PT
58 5c END
59 ; --------------------------------------------------------------------------------------
59 ; Subroutine
59 ; --------------------------------------------------------------------------------------
59 bc 4b FSM {4b}
5b bc 13 FSM {13}
5d d2 00 3b FSM_8X #0x00,{3b}
60 bc 5b FSM {5b}
62 da 33 39 CHN_RCV {TV.WDR:39},@R3
65 af 88 VINV [0x8],R3
67 2c RET
P11OF0 CARRY_PROP_PASS\r P2BOS8 EXPECT\r P33OS8 RESULT\r \r 3C\r 00\r 2B\r 33\r 00\r 00\r 00\r 00\r \r 59\r 04\r 2F\r F0\r FF\r 83\r 0D\r 08\r 1F\r F0\r FF\r 83\r 0D\r 00\r 2F\r F0\r F7\r 83\r 0D\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 01\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 40\r A6\r 08\r 2B\r DA\r 50\r 19\r 3B\r 18\r B1\r 28\r 58\r DA\r 50\r 1F\r 3B\r 18\r B1\r 28\r 58\r DA\r 50\r 25\r 3B\r 18\r 16\r 64\r 5C\r BC\r 4B\r BC\r 13\r D2\r 00\r 3B\r BC\r 5B\r DA\r 33\r 39\r AF\r 88\r 2C\r «nul»