|
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: TextFile, VAL
Names: »TEST_BORROW_PROPAGATE.VAL«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_BORROW_PROPAGATE.VAL«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_BORROW_PROPAGATE.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash b773921f519f1873 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 39 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CARRY_STOP_PASS
12 R2_:
12 29 .DATA 0x29
13 R3_:
13 31 .DATA 0x31
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 ff .DATA 0xff
1d 07 .DATA 0x7
1e 9b .DATA 0x9b
1f 0c .DATA 0xc
20 3f .DATA 0x3f
21 3f .DATA 0x3f
22 07 .DATA 0x7
23 87 .DATA 0x87
24 04 .DATA 0x4
25 3f .DATA 0x3f
26 7f .DATA 0x7f
27 07 .DATA 0x7
28 87 .DATA 0x87
29 ff .DATA 0xff ; P29OS8 EXPECT
2a ff .DATA 0xff
2b ff .DATA 0xff
2c ff .DATA 0xff
2d ff .DATA 0xff
2e ff .DATA 0xff
2f ff .DATA 0xff
30 ff .DATA 0xff
31 00 .DATA 0x0 ; P31OS8 RESULT
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 da 40 1a 3b CHN_SND 0x1a,{V.UIR:3b}
3d 18 CALL 0x68
3e b1 28 64 VJMP NE,[0x8],R2,R3,0x64
41 da 40 24 3b CHN_SND 0x24,{V.UIR:3b}
45 18 CALL 0x68
46 00 3f REPEAT #0x3f
48 da 40 1a 3b CHN_SND 0x1a,{V.UIR:3b}
4c 19 CALL 0x65
4d b1 28 64 VJMP NE,[0x8],R2,R3,0x64
50 da 40 1f 3b CHN_SND 0x1f,{V.UIR:3b}
54 18 CALL 0x68
55 da 40 24 3b CHN_SND 0x24,{V.UIR:3b}
59 18 CALL 0x68
5a 16 UNTIL
5b da 40 1a 3b CHN_SND 0x1a,{V.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 29 LEFT.0 #0x1,0x29,[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 P29OS8 EXPECT\r P31OS8 RESULT\r \r 39\r 00\r 29\r 31\r 00\r 00\r 00\r 00\r \r 68\r 65\r 04\r 2F\r FF\r 07\r 9B\r 0C\r 3F\r 3F\r 07\r 87\r 04\r 3F\r 7F\r 07\r 87\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 00\r 00\r 00\r DA\r 40\r 1A\r 3B\r 18\r B1\r 28\r 64\r DA\r 40\r 24\r 3B\r 18\r 00\r 3F\r DA\r 40\r 1A\r 3B\r 19\r B1\r 28\r 64\r DA\r 40\r 1F\r 3B\r 18\r DA\r 40\r 24\r 3B\r 18\r 16\r DA\r 40\r 1A\r 3B\r 19\r B1\r 28\r 64\r 64\r 5C\r A6\r 08\r 29\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