|
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_DIVIDE_LOGIC.VAL«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_DIVIDE_LOGIC.VAL«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_DIVIDE_LOGIC.VAL«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_DIVIDE_LOGIC.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 0e4afa606a471ab4 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2a .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 TEST_DIVIDE_PASSED
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 21 .DATA 0x21
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 5a .CODE 0x5a
19 50 .DATA 0x50
1a 0f .DATA 0xf
1b ff .DATA 0xff
1c 87 .DATA 0x87
1d 9a .DATA 0x9a
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0 ; P20OS1 EXPECTED_Q_BIT
21 ff .DATA 0xff
22 ff .DATA 0xff
23 ff .DATA 0xff
24 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 ff .DATA 0xff ; P28OS1 RESULT_Q_BIT
29 ff .DATA 0xff
2a EXPERIMENT:
2a 18 CALL 0x5a
2b 66 SET PX
2c da 30 21 38 CHN_SND 0x21,{TV.WDR:38}
30 bc 5a FSM {5a}
32 91 0a 7f 1a MOV.W #0x0a7f,0x1a
36 18 CALL 0x5a
37 8f 86 1d MOV #0x86,0x1d
3a 82 20 INC 0x20
3c 18 CALL 0x5a
3d 8f 5f 1c MOV #0x5f,0x1c
40 86 20 DEC 0x20
42 18 CALL 0x5a
43 82 20 INC 0x20
45 18 CALL 0x5a
46 8f 9a 1d MOV #0x9a,0x1d
49 18 CALL 0x5a
4a 8f c2 1d MOV #0xc2,0x1d
4d 18 CALL 0x5a
4e 86 20 DEC 0x20
50 18 CALL 0x5a
51 8f 9a 1d MOV #0x9a,0x1d
54 82 20 INC 0x20
56 18 CALL 0x5a
57 18 CALL 0x5a
58 64 SET PT
59 5c END
5a ; --------------------------------------------------------------------------------------
5a ; Subroutine
5a ; --------------------------------------------------------------------------------------
5a c8 ff ff 2b WFSM.W #0xffff,{2b}
5e da 41 3b CHN_SND @R2,{V.UIR:3b}
61 bc 4b FSM {4b}
63 34 RET NPX
64 bc 13 FSM {13}
66 90 1c 1e MOV.W 0x1c,0x1e
69 91 5f b2 1c MOV.W #0x5fb2,0x1c
6d 6a CLR PX
6e 18 CALL 0x5a
6f 66 SET PX
70 bc 25 FSM {25}
72 da 33 39 CHN_RCV {TV.WDR:39},@R3
75 af 88 VINV [0x8],R3
77 4e 20 28 59 JMP NE,0x20,0x28,0x59
7b 90 1e 1c MOV.W 0x1e,0x1c
7e 2c RET
P11OF0 TEST_DIVIDE_PASSED\r P20OS1 EXPECTED_Q_BIT\r P28OS1 RESULT_Q_BIT\r \r 2A\r 00\r 19\r 21\r 00\r 00\r 00\r 00\r \r 5A\r 50\r 0F\r FF\r 87\r 9A\r 00\r 00\r 00\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r 18\r 66\r DA\r 30\r 21\r 38\r BC\r 5A\r 91\r 0A\r 7F\r 1A\r 18\r 8F\r 86\r 1D\r 82\r 20\r 18\r 8F\r 5F\r 1C\r 86\r 20\r 18\r 82\r 20\r 18\r 8F\r 9A\r 1D\r 18\r 8F\r C2\r 1D\r 18\r 86\r 20\r 18\r 8F\r 9A\r 1D\r 82\r 20\r 18\r 18\r 64\r 5C\r C8\r FF\r FF\r 2B\r DA\r 41\r 3B\r BC\r 4B\r 34\r BC\r 13\r 90\r 1C\r 1E\r 91\r 5F\r B2\r 1C\r 6A\r 18\r 66\r BC\r 25\r DA\r 33\r 39\r AF\r 88\r 4E\r 20\r 28\r 59\r 90\r 1E\r 1C\r 2C\r «nul»