|
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_MULTIPLIER.VAL«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_MULTIPLIER.VAL«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_MULTIPLIER.VAL«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_MULTIPLIER.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash e669abc08cf16f8d (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 36 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 TEST_MULT_PASS
12 R2_:
12 20 .DATA 0x20
13 R3_:
13 25 .DATA 0x25
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 01 .DATA 0x1 ; P19OS2 FAILING_WCS_ADDR
1a ff .DATA 0xff
1b ff .DATA 0xff
1c da .DATA 0xda
1d 7f .DATA 0x7f
1e 87 .DATA 0x87
1f ff .DATA 0xff
20 00 .DATA 0x0
21 00 .DATA 0x0
22 00 .DATA 0x0
23 00 .DATA 0x0
24 00 .DATA 0x0
25 00 .DATA 0x0 ; P25OS8 RESULT
26 00 .DATA 0x0
27 00 .DATA 0x0
28 00 .DATA 0x0
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 00 .DATA 0x0 ; P2EOS8 EXPECT
2f 00 .DATA 0x0
30 00 .DATA 0x0
31 00 .DATA 0x0
32 00 .DATA 0x0
33 00 .DATA 0x0
34 00 .DATA 0x0
35 00 .DATA 0x0
36 EXPERIMENT:
36 c8 fd ff 2b WFSM.W #0xfdff,{2b}
3a 00 21 REPEAT #0x21
3c bc 14 FSM {14}
3e 84 19 INC.W 0x19
40 18 CALL 0x68
41 bc 13 FSM {13}
43 18 CALL 0x68
44 bc 13 FSM {13}
46 18 CALL 0x68
47 16 UNTIL
48 00 48 REPEAT #0x48
4a bc 14 FSM {14}
4c 84 19 INC.W 0x19
4e 18 CALL 0x68
4f 16 UNTIL
50 64 SET PT
51 97 83 24 AND #0x83,0x24
54 da 41 3b CHN_SND @R2,{V.UIR:3b}
57 bc 25 FSM {25}
59 da 33 39 CHN_RCV {TV.WDR:39},@R3
5c bc 5c FSM {5c}
5e da 32 2e 39 CHN_RCV {TV.WDR:39},0x2e
62 af 88 VINV [0x8],R3
64 ae 88 2e VINV [0x8],0x2e
67 5c END
68 ; --------------------------------------------------------------------------------------
68 ; Subroutine
68 ; --------------------------------------------------------------------------------------
68 da 42 20 3c CHN_RCV {V.UIR:3c},0x20
6c da 40 1b 3b CHN_SND 0x1b,{V.UIR:3b}
70 bc 5c FSM {5c}
72 da 33 39 CHN_RCV {TV.WDR:39},@R3
75 84 19 INC.W 0x19
77 af 88 VINV [0x8],R3
79 af 28 51 VJMP NZ,[0x8],R3,0x51
7c da 41 3b CHN_SND @R2,{V.UIR:3b}
7f 2c RET
P11OF0 TEST_MULT_PASS\r P19OS2 FAILING_WCS_ADDR\r P25OS8 RESULT\r P2EOS8 EXPECT\r \r 36\r 00\r 20\r 25\r 00\r 00\r 00\r 00\r \r 68\r 01\r FF\r FF\r DA\r 7F\r 87\r FF\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 00\r 00\r 00\r 00\r C8\r FD\r FF\r 2B\r 00\r 21\r BC\r 14\r 84\r 19\r 18\r BC\r 13\r 18\r BC\r 13\r 18\r 16\r 00\r 48\r BC\r 14\r 84\r 19\r 18\r 16\r 64\r 97\r 83\r 24\r DA\r 41\r 3B\r BC\r 25\r DA\r 33\r 39\r BC\r 5C\r DA\r 32\r 2E\r 39\r AF\r 88\r AE\r 88\r 2E\r 5C\r DA\r 42\r 20\r 3C\r DA\r 40\r 1B\r 3B\r BC\r 5C\r DA\r 33\r 39\r 84\r 19\r AF\r 88\r AF\r 28\r 51\r DA\r 41\r 3B\r 2C\r «nul»