|
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: SEQ, TextFile
Names: »TEST_MACRO_PC_PLUS_OFFSET.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_MACRO_PC_PLUS_OFFSET.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_MACRO_PC_PLUS_OFFSET.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_MACRO_PC_PLUS_OFFSET.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 433d74e4ee47ec6e (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2f .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF1 WALK_NAME_PLUS_FIELD
12 R2_:
12 1b .DATA 0x1b
13 R3_:
13 1f .DATA 0x1f
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 5b .CODE 0x5b
19 49 .CODE 0x49
1a 08 .DATA 0x8
1b 80 .DATA 0x80 ; P1BOS2 EXPECTED_OFFSET
1c 00 .DATA 0x0
1d 00 .DATA 0x0 ; P1DOS2 DISPATCHING_INSTR
1e 01 .DATA 0x1
1f 00 .DATA 0x0 ; P1FOS2 BAD_BITS
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
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 00 .DATA 0x0
2f EXPERIMENT:
2f 18 CALL 0x5b
30 90 1d 1f MOV.W 0x1d,0x1f
33 97 03 1f AND #0x03,0x1f
36 b1 62 VADD [0x2],R2,R3
38 b0 c2 2c 1f VXOR [0x2],0x2c,0x1f
3c 4a 1f 48 JMP.W NZ,0x1f,0x48
3f a6 02 1d LEFT.0 #0x1,0x1d,[0x2]
42 82 1e INC 0x1e
44 54 1a 2f DJNZ 0x1a,EXPERIMENT
47 66 SET PX
48 5c END
49 ; --------------------------------------------------------------------------------------
49 ; Subroutine
49 ; --------------------------------------------------------------------------------------
49 bc 4e FSM {4e}
4b 10 REPEAT #0x10
4c c4 ff 43 WFSM.L #0xff,{43}
4f 16 UNTIL
50 2c RET
5b ; --------------------------------------------------------------------------------------
5b ; Subroutine
5b ; --------------------------------------------------------------------------------------
5b 19 CALL 0x49
5c bc 5b FSM {5b}
5e bc 62 FSM {62}
60 da 92 1f 30 CHN_RCV {S.TYPVAL:30},0x1f
64 04 REPEAT #0x04
65 a8 03 2c SR.0 #0x1,0x2c,[0x3]
68 16 UNTIL
69 2c RET
P11OF1 WALK_NAME_PLUS_FIELD P1BOS2 EXPECTED_OFFSET P1DOS2 DISPATCHING_INSTR P1FOS2 BAD_BITS 2F 00 1B 1F 00 00 00 00 5B 49 08 80 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 90 1D 1F 97 03 1F B1 62 B0 C2 2C 1F 4A 1F 48 A6 02 1D 82 1E 54 1A 2F 66 5C BC 4E 10 C4 FF 43 16 2C DA 90 1F 40 19 BC 5A BC 66 2C 19 BC 5B BC 62 DA 92 1F 30 04 A8 03 2C 16 2C«nul»