|
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: TYP, TextFile
Names: »WRITE_REG.TYP«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »WRITE_REG.TYP«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »WRITE_REG.TYP«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »WRITE_REG.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 58f0c2f832965c84 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 3c .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
12 R2_:
12 1c .DATA 0x1c
13 R3_:
13 25 .DATA 0x25
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 71 .CODE 0x71
19 00 .DATA 0x0 ; P19IS8 VALUE.TYP
1a 00 .DATA 0x0
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 ; P21IS1 VALUE.TPAR
22 00 .DATA 0x0 ; P22IS2 REG_NUMBER
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 00 .DATA 0x0
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 00 .DATA 0x0
32 00 .DATA 0x0
33 00 .DATA 0x0
34 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 00 .DATA 0x0
38 00 .DATA 0x0
39 00 .DATA 0x0
3a 00 .DATA 0x0
3b 00 .DATA 0x0
3c EXPERIMENT:
3c 8c 22 INV.W 0x22
3e da 52 25 3c CHN_RCV {T.UIR:3c},0x25
42 da 32 2b 39 CHN_RCV {TV.WDR:39},0x2b
46 18 CALL 0x71
47 bc 5d FSM {5d}
49 da 32 34 39 CHN_RCV {TV.WDR:39},0x34
4d 18 CALL 0x71
4e da 31 38 CHN_SND @R2,{TV.WDR:38}
51 bc 33 FSM {33}
53 18 CALL 0x71
54 da 30 19 38 CHN_SND 0x19,{TV.WDR:38}
58 bc 5a FSM {5a}
5a 5e 00 58 LOOPE #0x00,0x58 ; P5BIS1 LOOP_VAR
5d 18 CALL 0x71
5e da 30 34 38 CHN_SND 0x34,{TV.WDR:38}
62 bc 33 FSM {33}
64 da 50 25 3b CHN_SND 0x25,{T.UIR:3b}
68 da 30 2b 38 CHN_SND 0x2b,{TV.WDR:38}
6c c8 ff ff 2b WFSM.W #0xffff,{2b}
70 5c END
71 ; --------------------------------------------------------------------------------------
71 ; Subroutine
71 ; --------------------------------------------------------------------------------------
71 bc 2c FSM {2c}
73 bc 48 FSM {48}
75 2c RET
P22IS2 REG_NUMBER\r P19IS8 VALUE.TYP\r P21IS1 VALUE.TPAR\r P5BIS1 LOOP_VAR\r \r 3C\r 00\r 1C\r 25\r 00\r 00\r 00\r 00\r \r 71\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 8C\r 22\r DA\r 52\r 25\r 3C\r DA\r 32\r 2B\r 39\r 18\r BC\r 5D\r DA\r 32\r 34\r 39\r 18\r DA\r 31\r 38\r BC\r 33\r 18\r DA\r 30\r 19\r 38\r BC\r 5A\r 5E\r 00\r 58\r 18\r DA\r 30\r 34\r 38\r BC\r 33\r DA\r 50\r 25\r 3B\r DA\r 30\r 2B\r 38\r C8\r FF\r FF\r 2B\r 5C\r BC\r 2C\r BC\r 48\r 2C\r «nul»