|
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: »INIT_WCS_CHECK.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »INIT_WCS_CHECK.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »INIT_WCS_CHECK.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »INIT_WCS_CHECK.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 1d1a44f54683f291 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 21 .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 42 .CODE 0x42
19 00 .DATA 0x0
1a 00 .DATA 0x0
1b 1a .DATA 0x1a
1c 39 .DATA 0x39
1d 05 .DATA 0x5
1e 00 .DATA 0x0
1f 3f .DATA 0x3f
20 ff .DATA 0xff
21 EXPERIMENT:
21 18 CALL 0x42
22 b6 06 19 10 EVNPAR #0x06,0x19,#0x10
26 da a0 19 41 CHN_SND 0x19,{S.UIR:41}
2a bc 4a FSM {4a}
2c 5a 1f 2a DJNN.W 0x1f,0x2a
2f 8f 01 1e MOV #0x01,0x1e
32 b6 06 19 10 EVNPAR #0x06,0x19,#0x10
36 da a0 19 41 CHN_SND 0x19,{S.UIR:41}
3a 91 3f ff 1f MOV.W #0x3fff,0x1f
3e 18 CALL 0x42
3f bc 48 FSM {48}
41 5c END
42 ; --------------------------------------------------------------------------------------
42 ; Subroutine
42 ; --------------------------------------------------------------------------------------
42 70 1f LD R2,0x1f
44 bf 59 WP1_FSM R2,{59}
46 74 INC R2
47 bf 58 WP1_FSM R2,{58}
49 2c RET
21 00 18 18 00 00 00 00 42 00 00 1A 39 05 00 3F FF 18 B6 06 19 10 DA A0 19 41 BC 4A 5A 1F 2A 8F 01 1E B6 06 19 10 DA A0 19 41 91 3F FF 1F 18 BC 48 5C 70 1F BF 59 74 BF 58 2C«nul»