|
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: »PAUSE_CARRY_PROPAGATE.VAL«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »PAUSE_CARRY_PROPAGATE.VAL«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »PAUSE_CARRY_PROPAGATE.VAL«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »PAUSE_CARRY_PROPAGATE.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash b4a63c241b7d4a72 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 36 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CARRY_PROP_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 71 .CODE 0x71
19 62 .CODE 0x62
1a 04 .DATA 0x4
1b 2f .DATA 0x2f
1c ff .DATA 0xff
1d 07 .DATA 0x7
1e 87 .DATA 0x87
1f 08 .DATA 0x8
20 1f .DATA 0x1f
21 ff .DATA 0xff
22 07 .DATA 0x7
23 87 .DATA 0x87
24 00 .DATA 0x0
25 2f .DATA 0x2f
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 fe .DATA 0xfe
31 00 .DATA 0x0 ; P31OS8 RESULT
32 0f .DATA 0xf
33 bf .DATA 0xbf
34 87 .DATA 0x87
35 fe .DATA 0xfe
36 EXPERIMENT:
36 da 30 29 38 CHN_SND 0x29,{TV.WDR:38}
3a 18 CALL 0x71
3b 91 0f 7f 32 MOV.W #0x0f7f,0x32
3f 18 CALL 0x71
40 ae 88 29 VINV [0x8],0x29
43 00 40 REPEAT #0x40
45 a6 08 29 LEFT.0 #0x1,0x29,[0x8]
48 da 40 1a 3b CHN_SND 0x1a,{V.UIR:3b}
4c 19 CALL 0x62
4d 60 PAUSE
4e b1 28 61 VJMP NE,[0x8],R2,R3,0x61
51 da 40 1f 3b CHN_SND 0x1f,{V.UIR:3b}
55 19 CALL 0x62
56 60 PAUSE
57 b1 28 61 VJMP NE,[0x8],R2,R3,0x61
5a da 40 24 3b CHN_SND 0x24,{V.UIR:3b}
5e 19 CALL 0x62
5f 16 UNTIL
60 64 SET PT
61 5c END
62 ; --------------------------------------------------------------------------------------
62 ; Subroutine
62 ; --------------------------------------------------------------------------------------
62 bc 4b FSM {4b}
64 bc 13 FSM {13}
66 d2 00 3b FSM_8X #0x00,{3b}
69 bc 5b FSM {5b}
6b da 33 39 CHN_RCV {TV.WDR:39},@R3
6e af 88 VINV [0x8],R3
70 2c RET
71 ; --------------------------------------------------------------------------------------
71 ; Subroutine
71 ; --------------------------------------------------------------------------------------
71 da 40 31 3b CHN_SND 0x31,{V.UIR:3b}
75 bc 5a FSM {5a}
77 2c RET
P11OF0 CARRY_PROP_PASS\r P29OS8 EXPECT\r P31OS8 RESULT\r \r 36\r 00\r 29\r 31\r 00\r 00\r 00\r 00\r \r 71\r 62\r 04\r 2F\r FF\r 07\r 87\r 08\r 1F\r FF\r 07\r 87\r 00\r 2F\r 7F\r 07\r 87\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FE\r 00\r 0F\r BF\r 87\r FE\r DA\r 30\r 29\r 38\r 18\r 91\r 0F\r 7F\r 32\r 18\r AE\r 88\r 29\r 00\r 40\r A6\r 08\r 29\r DA\r 40\r 1A\r 3B\r 19\r 60\r B1\r 28\r 61\r DA\r 40\r 1F\r 3B\r 19\r 60\r B1\r 28\r 61\r DA\r 40\r 24\r 3B\r 19\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 DA\r 40\r 31\r 3B\r BC\r 5A\r 2C\r «nul»