|
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: 130 (0x82)
Types: SEQ, TextFile
Names: »PREP_SET_LL.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »PREP_SET_LL.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »PREP_SET_LL.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash fbf8ade56e619037 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 1f .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 2f .CODE 0x2f
19 00 .DATA 0x0
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 05 .DATA 0x5
1e 47 .DATA 0x47
1f EXPERIMENT:
1f c4 00 59 WFSM.L #0x00,{59}
22 c4 00 58 WFSM.L #0x00,{58}
25 da a0 19 41 CHN_SND 0x19,{S.UIR:41}
29 bc 48 FSM {48}
2b bc 4f FSM {4f}
2d 18 CALL 0x2f
2e 5c END
2f ; --------------------------------------------------------------------------------------
2f ; Subroutine
2f ; --------------------------------------------------------------------------------------
2f da a0 19 41 CHN_SND 0x19,{S.UIR:41}
33 10 REPEAT #0x10
34 c4 ff 43 WFSM.L #0xff,{43}
37 16 UNTIL
38 bc 66 FSM {66}
3a 2c RET
1F 00 18 18 00 00 00 00 2F 00 00 00 00 05 47 C4 00 59 C4 00 58 DA A0 19 41 BC 48 BC 4F 18 5C DA A0 19 41 10 C4 FF 43 16 BC 66 2C