|
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: 393 (0x189)
Types: SEQ, TextFile
Names: »RESOLVE_OFFSET_FRU.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »RESOLVE_OFFSET_FRU.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »RESOLVE_OFFSET_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 29c6685638359b7a (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 34 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF1 WALK_RESOLVE_RAMS
12 R2_:
12 18 .DATA 0x18
13 R3_:
13 18 .DATA 0x18
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 67 .CODE 0x67
19 67 .CODE 0x67
1a 20 .DATA 0x20
1b 0f .DATA 0xf ; P1BOS1 CURRENT_LEX
1c ff .DATA 0xff ; P1COS4 EXPECTED_RESULT
1d ff .DATA 0xff
1e ff .DATA 0xff
1f fe .DATA 0xfe
20 07 .DATA 0x7
21 ff .DATA 0xff
22 ff .DATA 0xff
23 80 .DATA 0x80
24 00 .DATA 0x0
25 00 .DATA 0x0
26 00 .DATA 0x0
27 00 .DATA 0x0
28 00 .DATA 0x0 ; P28OS4 BAD_BITS
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 00 .DATA 0x0
31 00 .DATA 0x0
32 00 .DATA 0x0
33 00 .DATA 0x0
34 EXPERIMENT:
34 bc 5b FSM {5b}
36 8e 1b 33 MOV 0x1b,0x33
39 18 CALL 0x67
3a b0 44 1c 28 VMOV [0x4],0x1c,0x28
3e 19 CALL 0x67
3f bc 31 FSM {31}
41 bc 4e FSM {4e}
43 bc 5b FSM {5b}
45 bc 3e FSM {3e}
47 da 92 24 30 CHN_RCV {S.TYPVAL:30},0x24
4b b0 c4 1c 28 VXOR [0x4],0x1c,0x28
4f b0 84 20 28 VAND [0x4],0x20,0x28
53 ae 24 28 66 VJMP NZ,[0x4],0x28,0x66
57 a6 04 1c LEFT.0 #0x1,0x1c,[0x4]
5a 82 1f INC 0x1f
5c 54 1a 3a DJNZ 0x1a,0x3a
5f 8f 20 1a MOV #0x20,0x1a
62 58 1b 34 DJNN 0x1b,EXPERIMENT
65 66 SET PX
66 5c END
67 ; --------------------------------------------------------------------------------------
67 ; Subroutine
67 ; --------------------------------------------------------------------------------------
67 bc 4e FSM {4e}
69 bc 5a FSM {5a}
6b 10 REPEAT #0x10
6c c4 ff 43 WFSM.L #0xff,{43}
6f 16 UNTIL
70 da 90 24 40 CHN_SND 0x24,{S.TYPVAL:40}
74 bc 66 FSM {66}
76 2c RET
P11OF1 WALK_RESOLVE_RAMS P1BOS1 CURRENT_LEX P1COS4 EXPECTED_RESULT P28OS4 BAD_BITS 34 00 18 18 00 00 00 00 67 67 20 0F FF FF FF FE 07 FF FF 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 BC 5B 8E 1B 33 18 B0 44 1C 28 19 BC 31 BC 4E BC 5B BC 3E DA 92 24 30 B0 C4 1C 28 B0 84 20 28 AE 24 28 66 A6 04 1C 82 1F 54 1A 3A 8F 20 1A 58 1B 34 66 5C BC 4E BC 5A 10 C4 FF 43 16 DA 90 24 40 BC 66 2C