|
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_OTHER_LEX_ADDRESSING.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_OTHER_LEX_ADDRESSING.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_OTHER_LEX_ADDRESSING.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_OTHER_LEX_ADDRESSING.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 1ba597923ab17a86 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 3c .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF1 TEST_OTHER_LEX_ADDRESSING
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 6f .CODE 0x6f
19 67 .CODE 0x67
1a 5d .CODE 0x5d
1b 01 .DATA 0x1 ; P1BOS1 READ_LEX
1c 00 .DATA 0x0 ; P1COS8 EXPECTED_RESULT
1d 00 .DATA 0x0
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 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 07 .DATA 0x7
29 ff .DATA 0xff
2a ff .DATA 0xff
2b 80 .DATA 0x80
2c 00 .DATA 0x0 ; P2COS8 ACTUAL_RESULT
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 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 00 .DATA 0x0
38 00 .DATA 0x0
39 00 .DATA 0x0
3a 00 .DATA 0x0
3b 00 .DATA 0x0
3c EXPERIMENT:
3c c4 00 59 WFSM.L #0x00,{59}
3f c4 02 58 WFSM.L #0x02,{58}
42 8f 0f 3b MOV #0x0f,0x3b
45 18 CALL 0x6f
46 c4 00 58 WFSM.L #0x00,{58}
49 19 CALL 0x67
4a 07 REPEAT #0x07
4b a8 04 30 SR.0 #0x1,0x30,[0x4]
4e 16 UNTIL
4f b0 28 1c 2c 5c VJMP NE,[0x8],0x1c,0x2c,0x5c
54 82 1f INC 0x1f
56 82 23 INC 0x23
58 58 1b 49 DJNN 0x1b,0x49
5b 66 SET PX
5c 5c END
5d ; --------------------------------------------------------------------------------------
5d ; Subroutine
5d ; --------------------------------------------------------------------------------------
5d bc 4e FSM {4e}
5f bc 5a FSM {5a}
61 10 REPEAT #0x10
62 c4 ff 43 WFSM.L #0xff,{43}
65 16 UNTIL
66 2c RET
67 ; --------------------------------------------------------------------------------------
67 ; Subroutine
67 ; --------------------------------------------------------------------------------------
67 1a CALL 0x5d
68 bc 62 FSM {62}
6a da 92 2c 30 CHN_RCV {S.TYPVAL:30},0x2c
6e 2c RET
6f ; --------------------------------------------------------------------------------------
6f ; Subroutine
6f ; --------------------------------------------------------------------------------------
6f 1a CALL 0x5d
70 da 90 2c 40 CHN_SND 0x2c,{S.TYPVAL:40}
74 bc 66 FSM {66}
76 2c RET
P11OF1 TEST_OTHER_LEX_ADDRESSING P1BOS1 READ_LEX P1COS8 EXPECTED_RESULT P2COS8 ACTUAL_RESULT 3C 00 18 18 00 00 00 00 6F 67 5D 01 00 00 00 00 00 00 00 00 FF FF FF FF 07 FF FF 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C4 00 59 C4 02 58 8F 0F 3B 18 C4 00 58 19 07 A8 04 30 16 B0 28 1C 2C 5C 82 1F 82 23 58 1B 49 66 5C BC 4E BC 5A 10 C4 FF 43 16 2C 1A BC 62 DA 92 2C 30 2C 1A DA 90 2C 40 BC 66 2C«nul»