|
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 - metrics - download
Length: 1024 (0x400)
Types: SEQ, TextFile
Names: »BRANCH_ADDER_NO_DISP_NEG.SEQ«, »TEST_BRANCH_ADDER_NO_DISP.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »BRANCH_ADDER_NO_DISP_NEG.SEQ«
└─⟦this⟧ »TEST_BRANCH_ADDER_NO_DISP.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »BRANCH_ADDER_NO_DISP_NEG.SEQ«
└─⟦this⟧ »TEST_BRANCH_ADDER_NO_DISP.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »BRANCH_ADDER_NO_DISP_NEG.SEQ«
└─⟦this⟧ »TEST_BRANCH_ADDER_NO_DISP.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash c57c0901f7ee75d0 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2d .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 TEST_BRANCH_ADDER
12 R2_:
12 18 .DATA 0x18
13 R3_:
13 1d .DATA 0x1d
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 63 .CODE 0x63
19 80 .DATA 0x80 ; P19OS2 PC
1a 00 .DATA 0x0
1b 08 .DATA 0x8 ; P1BOS2 INSTRUCTION
1c 00 .DATA 0x0
1d 00 .DATA 0x0 ; P1DOS2 EXPECTED
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 00 .DATA 0x0
22 00 .DATA 0x0
23 00 .DATA 0x0
24 00 .DATA 0x0
25 00 .DATA 0x0
26 00 .DATA 0x0
27 00 .DATA 0x0
28 00 .DATA 0x0
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0 ; P2BOS2 RESULT
2c 00 .DATA 0x0
2d EXPERIMENT:
2d 90 1b 2b MOV.W 0x1b,0x2b
30 18 CALL 0x63
31 18 CALL 0x63
32 90 1b 1d MOV.W 0x1b,0x1d
35 97 04 1d AND #0x04,0x1d
38 44 1d 40 JMP Z,0x1d,0x40
3b 9b fc 1d OR #0xfc,0x1d
3e 36 43 JMP 0x43
40 97 03 1d AND #0x03,0x1d
43 b0 a2 1b 1d VOR [0x2],0x1b,0x1d
47 b0 62 19 1d VADD [0x2],0x19,0x1d
4b 97 7f 1d AND #0x7f,0x1d
4e 52 1d 2b 62 JMP.W NE,0x1d,0x2b,0x62
52 c4 01 58 WFSM.L #0x01,{58}
55 56 1b 2d DJNZ.W 0x1b,EXPERIMENT
58 bc 5b FSM {5b}
5a 18 CALL 0x63
5b 8f 08 1b MOV #0x08,0x1b
5e 56 19 2d DJNZ.W 0x19,EXPERIMENT
61 64 SET PT
62 5c END
63 ; --------------------------------------------------------------------------------------
63 ; Subroutine
63 ; --------------------------------------------------------------------------------------
63 bc 4e FSM {4e}
65 bc 5a FSM {5a}
67 10 REPEAT #0x10
68 c4 ff 43 WFSM.L #0xff,{43}
6b 16 UNTIL
6c da 90 1d 40 CHN_SND 0x1d,{S.TYPVAL:40}
70 bc 62 FSM {62}
72 da a2 1d 30 CHN_RCV {S.UIR:30},0x1d
76 04 REPEAT #0x04
77 a9 10 SR.0 #0x1,R3,[0x10]
79 16 UNTIL
7a 2c RET
P11OF0 TEST_BRANCH_ADDER P1DOS2 EXPECTED P2BOS2 RESULT P19OS2 PC P1BOS2 INSTRUCTION 2D 00 18 1D 00 00 00 00 63 80 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 90 1B 2B 18 18 90 1B 1D 97 04 1D 44 1D 40 9B FC 1D 36 43 97 03 1D B0 A2 1B 1D B0 62 19 1D 97 7F 1D 52 1D 2B 62 C4 01 58 56 1B 2D BC 5B 18 8F 08 1B 56 19 2D 64 5C BC 4E BC 5A 10 C4 FF 43 16 DA 90 1D 40 BC 62 DA A2 1D 30 04 A9 10 16 2C«nul»