|
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: 423 (0x1a7)
Types: SEQ, TextFile
Names: »TEST_CTRLREAD_LL_CARRY_3.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »TEST_CTRLREAD_LL_CARRY_3.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »TEST_CTRLREAD_LL_CARRY_3.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash d233356299029890 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2b .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 TEST_CONTROL_READ_LEX_LEVEL_CARRY3
12 R2_:
12 1a .DATA 0x1a
13 R3_:
13 1b .DATA 0x1b
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 0f .DATA 0xf ; P19OS1 LEX
1a 0f .DATA 0xf ; P1AOS1 DELTA_OFFSET
1b 00 .DATA 0x0 ; P1BOS1 BAD_BITS
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 00 .DATA 0x0
22 00 .DATA 0x0 ; P22OS1 ADD_RESULT
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 EXPERIMENT:
2b 8e 19 1b MOV 0x19,0x1b
2e 9b f0 1b OR #0xf0,0x1b
31 a6 01 1b LEFT.0 #0x1,0x1b,[0x1]
34 8e 1a 1c MOV 0x1a,0x1c
37 04 REPEAT #0x04
38 a6 01 1c LEFT.0 #0x1,0x1c,[0x1]
3b 82 1c INC 0x1c
3d 16 UNTIL
3e da 90 1b 40 CHN_SND 0x1b,{S.TYPVAL:40}
42 18 CALL 0x71
43 bc 5a FSM {5a}
45 bc 66 FSM {66}
47 18 CALL 0x71
48 bc 5b FSM {5b}
4a bc 62 FSM {62}
4c da 92 1b 30 CHN_RCV {S.TYPVAL:30},0x1b
50 0b REPEAT #0x0b
51 a8 04 1f SR.0 #0x1,0x1f,[0x4]
54 16 UNTIL
55 8e 19 1b MOV 0x19,0x1b
58 b1 61 VADD [0x1],R2,R3
5a 82 1b INC 0x1b
5c b0 c1 22 1b VXOR [0x1],0x22,0x1b
60 97 0f 1b AND #0x0f,0x1b
63 46 1b 70 JMP NZ,0x1b,0x70
66 58 19 2b DJNN 0x19,EXPERIMENT
69 8f 0f 19 MOV #0x0f,0x19
6c 58 1a 2b DJNN 0x1a,EXPERIMENT
6f 64 SET PT
70 5c END
71 ; --------------------------------------------------------------------------------------
71 ; Subroutine
71 ; --------------------------------------------------------------------------------------
71 bc 4e FSM {4e}
73 10 REPEAT #0x10
74 c4 ff 43 WFSM.L #0xff,{43}
77 16 UNTIL
78 2c RET
P11OF0 TEST_CONTROL_READ_LEX_LEVEL_CARRY3 P19OS1 LEX P1AOS1 DELTA_OFFSET P22OS1 ADD_RESULT P1BOS1 BAD_BITS 2B 00 1A 1B 00 00 00 00 71 0F 0F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 8E 19 1B 9B F0 1B A6 01 1B 8E 1A 1C 04 A6 01 1C 82 1C 16 DA 90 1B 40 18 BC 5A BC 66 18 BC 5B BC 62 DA 92 1B 30 0B A8 04 1F 16 8E 19 1B B1 61 82 1B B0 C1 22 1B 97 0F 1B 46 1B 70 58 19 2B 8F 0F 19 58 1A 2B 64 5C BC 4E 10 C4 FF 43 16 2C