|
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: »PREP_INCOMING_LEX_ADDR.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »PREP_INCOMING_LEX_ADDR.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »PREP_INCOMING_LEX_ADDR.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »PREP_INCOMING_LEX_ADDR.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 87c3482d2992244d (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 33 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
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 66 .CODE 0x66
19 5c .CODE 0x5c
1a 00 .DATA 0x0 ; P1AOS8 SEQ.TYP
1b 00 .DATA 0x0
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 ; P22OS8 SEQ.VAL
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 0f .DATA 0xf
2b 00 .DATA 0x0 ; P2BOS8 RESOLVE
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 01 .DATA 0x1
2f 00 .DATA 0x0
30 00 .DATA 0x0
31 00 .DATA 0x0
32 01 .DATA 0x1
33 EXPERIMENT:
33 c4 00 59 WFSM.L #0x00,{59}
36 c4 02 58 WFSM.L #0x02,{58}
39 8e 2a 29 MOV 0x2a,0x29
3c b0 48 2b 1a VMOV [0x8],0x2b,0x1a
40 07 REPEAT #0x07
41 a6 04 1e LEFT.0 #0x1,0x1e,[0x4]
44 16 UNTIL
45 18 CALL 0x66
46 bc 5b FSM {5b}
48 82 2e INC 0x2e
4a 97 0f 2e AND #0x0f,0x2e
4d 82 32 INC 0x32
4f 97 0f 32 AND #0x0f,0x32
52 58 2a 39 DJNN 0x2a,0x39
55 c4 00 59 WFSM.L #0x00,{59}
58 c4 00 58 WFSM.L #0x00,{58}
5b 5c END
5c ; --------------------------------------------------------------------------------------
5c ; Subroutine
5c ; --------------------------------------------------------------------------------------
5c bc 4e FSM {4e}
5e bc 5a FSM {5a}
60 10 REPEAT #0x10
61 c4 ff 43 WFSM.L #0xff,{43}
64 16 UNTIL
65 2c RET
66 ; --------------------------------------------------------------------------------------
66 ; Subroutine
66 ; --------------------------------------------------------------------------------------
66 19 CALL 0x5c
67 da 90 1a 40 CHN_SND 0x1a,{S.TYPVAL:40}
6b bc 66 FSM {66}
6d 2c RET
P2BOS8 RESOLVE P1AOS8 SEQ.TYP P22OS8 SEQ.VAL 33 00 18 18 00 00 00 00 66 5C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0F 00 00 00 01 00 00 00 01 C4 00 59 C4 02 58 8E 2A 29 B0 48 2B 1A 07 A6 04 1E 16 18 BC 5B 82 2E 97 0F 2E 82 32 97 0F 32 58 2A 39 C4 00 59 C4 00 58 5C BC 4E BC 5A 10 C4 FF 43 16 2C 19 DA 90 1A 40 BC 66 2C«nul»