|
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: 470 (0x1d6)
Types: TYP, TextFile
Names: »TEST_BORROW_PROPAGATE.TYP«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_BORROW_PROPAGATE.TYP«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_BORROW_PROPAGATE.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash c1b7f9a4ed57887c (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 39 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CARRY_STOP_PASS
12 R2_:
12 2c .DATA 0x2c
13 R3_:
13 34 .DATA 0x34
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 68 .CODE 0x68
19 65 .CODE 0x65
1a 04 .DATA 0x4
1b 2f .DATA 0x2f
1c f0 .DATA 0xf0
1d ff .DATA 0xff
1e 8d .DATA 0x8d
1f 0d .DATA 0xd
20 0c .DATA 0xc
21 3f .DATA 0x3f
22 f0 .DATA 0xf0
23 f3 .DATA 0xf3
24 83 .DATA 0x83
25 0d .DATA 0xd
26 04 .DATA 0x4
27 3f .DATA 0x3f
28 f0 .DATA 0xf0
29 f7 .DATA 0xf7
2a 83 .DATA 0x83
2b 0d .DATA 0xd
2c ff .DATA 0xff ; P2COS8 EXPECT
2d ff .DATA 0xff
2e ff .DATA 0xff
2f ff .DATA 0xff
30 ff .DATA 0xff
31 ff .DATA 0xff
32 ff .DATA 0xff
33 ff .DATA 0xff
34 00 .DATA 0x0 ; P34OS8 RESULT
35 00 .DATA 0x0
36 00 .DATA 0x0
37 00 .DATA 0x0
38 00 .DATA 0x0
39 EXPERIMENT:
39 da 50 1a 3b CHN_SND 0x1a,{T.UIR:3b}
3d 18 CALL 0x68
3e b1 28 64 VJMP NE,[0x8],R2,R3,0x64
41 da 50 26 3b CHN_SND 0x26,{T.UIR:3b}
45 18 CALL 0x68
46 00 3f REPEAT #0x3f
48 da 50 1a 3b CHN_SND 0x1a,{T.UIR:3b}
4c 19 CALL 0x65
4d b1 28 64 VJMP NE,[0x8],R2,R3,0x64
50 da 50 20 3b CHN_SND 0x20,{T.UIR:3b}
54 18 CALL 0x68
55 da 50 26 3b CHN_SND 0x26,{T.UIR:3b}
59 18 CALL 0x68
5a 16 UNTIL
5b da 50 1a 3b CHN_SND 0x1a,{T.UIR:3b}
5f 19 CALL 0x65
60 b1 28 64 VJMP NE,[0x8],R2,R3,0x64
63 64 SET PT
64 5c END
65 ; --------------------------------------------------------------------------------------
65 ; Subroutine
65 ; --------------------------------------------------------------------------------------
65 a6 08 2c LEFT.0 #0x1,0x2c,[0x8]
68 ; --------------------------------------------------------------------------------------
68 ; Subroutine
68 ; --------------------------------------------------------------------------------------
68 bc 4b FSM {4b}
6a bc 13 FSM {13}
6c d2 00 3b FSM_8X #0x00,{3b}
6f bc 5b FSM {5b}
71 da 33 39 CHN_RCV {TV.WDR:39},@R3
74 af 88 VINV [0x8],R3
76 2c RET
P11OF0 CARRY_STOP_PASS\r P2COS8 EXPECT\r P34OS8 RESULT\r \r 39\r 00\r 2C\r 34\r 00\r 00\r 00\r 00\r \r 68\r 65\r 04\r 2F\r F0\r FF\r 8D\r 0D\r 0C\r 3F\r F0\r F3\r 83\r 0D\r 04\r 3F\r F0\r F7\r 83\r 0D\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r 00\r 00\r 00\r 00\r 00\r DA\r 50\r 1A\r 3B\r 18\r B1\r 28\r 64\r DA\r 50\r 26\r 3B\r 18\r 00\r 3F\r DA\r 50\r 1A\r 3B\r 19\r B1\r 28\r 64\r DA\r 50\r 20\r 3B\r 18\r DA\r 50\r 26\r 3B\r 18\r 16\r DA\r 50\r 1A\r 3B\r 19\r B1\r 28\r 64\r 64\r 5C\r A6\r 08\r 2C\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