|
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: 387 (0x183)
Types: SEQ, TextFile
Names: »MPC_EXECUTE.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »MPC_EXECUTE.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »MPC_EXECUTE.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 635c5abd9587c84b (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 38 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 MACRO_PC_PASSED
12 R2_:
12 22 .DATA 0x22
13 R3_:
13 22 .DATA 0x22
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 5f .CODE 0x5f
19 27 .DATA 0x27
1a ff .DATA 0xff
1b 00 .DATA 0x0 ; P1BOS8 MACRO_PC.TYP
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 PATTERN.TYP
23 00 .DATA 0x0 ; P23OS8 MACRO_PC.VAL
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 ; P2AOS8 PATTERN.VAL
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 10 .DATA 0x10
32 00 .DATA 0x0
33 00 .DATA 0x0
34 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 30 .DATA 0x30
38 EXPERIMENT:
38 91 00 30 36 MOV.W #0x0030,0x36
3c 18 CALL 0x5f
3d 91 04 01 36 MOV.W #0x0401,0x36
41 18 CALL 0x5f
42 bc 3e FSM {3e}
44 da 92 1b 30 CHN_RCV {S.TYPVAL:30},0x1b
48 97 f0 2a AND #0xf0,0x2a
4b b0 27 24 2b 5e VJMP NE,[0x7],0x24,0x2b,0x5e
50 a7 10 LEFT.0 #0x1,R3,[0x10]
52 4f 19 19 5a JMP NE,#0x19,0x19,0x5a
56 0d REPEAT #0x0d
57 a7 10 LEFT.0 #0x1,R3,[0x10]
59 16 UNTIL
5a 54 19 38 DJNZ 0x19,EXPERIMENT
5d 64 SET PT
5e 5c END
5f ; --------------------------------------------------------------------------------------
5f ; Subroutine
5f ; --------------------------------------------------------------------------------------
5f da a0 32 41 CHN_SND 0x32,{S.UIR:41}
63 10 REPEAT #0x10
64 c4 ff 43 WFSM.L #0xff,{43}
67 16 UNTIL
68 da 91 40 CHN_SND @R2,{S.TYPVAL:40}
6b bc 66 FSM {66}
6d 60 PAUSE
6e 2c RET
P11OF0 MACRO_PC_PASSED P22OS8 PATTERN.TYP P2AOS8 PATTERN.VAL P1BOS8 MACRO_PC.TYP P23OS8 MACRO_PC.VAL 38 00 22 22 00 00 00 00 5F 27 FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 00 00 00 00 30 91 00 30 36 18 91 04 01 36 18 BC 3E DA 92 1B 30 97 F0 2A B0 27 24 2B 5E A7 10 4F 19 19 5A 0D A7 10 16 54 19 38 64 5C DA A0 32 41 10 C4 FF 43 16 DA 91 40 BC 66 60 2C