|
|
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: 175 (0xaf)
Types: SEQ, TextFile
Names: »PREP_TOS_PF_2A.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »PREP_TOS_PF_2A.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »PREP_TOS_PF_2A.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash f113d7b1aa7a464e (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2f .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 3d .CODE 0x3d
19 00 .DATA 0x0
1a 01 .DATA 0x1
1b 00 .DATA 0x0
1c 03 .DATA 0x3
1d 00 .DATA 0x0
1e 07 .DATA 0x7
1f 00 .DATA 0x0
20 0f .DATA 0xf
21 00 .DATA 0x0
22 1f .DATA 0x1f
23 00 .DATA 0x0
24 3f .DATA 0x3f
25 00 .DATA 0x0
26 7f .DATA 0x7f
27 00 .DATA 0x0
28 ff .DATA 0xff
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 30 .DATA 0x30
2f EXPERIMENT:
2f 18 CALL 0x3d
30 bc 66 FSM {66}
32 8f 52 2e MOV #0x52,0x2e
35 18 CALL 0x3d
36 da 90 19 40 CHN_SND 0x19,{S.TYPVAL:40}
3a bc 66 FSM {66}
3c 5c END
3d ; --------------------------------------------------------------------------------------
3d ; Subroutine
3d ; --------------------------------------------------------------------------------------
3d 10 REPEAT #0x10
3e c4 ff 40 WFSM.L #0xff,{40}
41 c4 ff 43 WFSM.L #0xff,{43}
44 16 UNTIL
45 da a0 29 41 CHN_SND 0x29,{S.UIR:41}
49 2c RET
2F 00 18 18 00 00 00 00 3D 00 01 00 03 00 07 00 0F 00 1F 00 3F 00 7F 00 FF 00 00 00 00 00 30 18 BC 66 8F 52 2E 18 DA 90 19 40 BC 66 5C 10 C4 FF 40 C4 FF 43 16 DA A0 29 41 2C