|
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: »TEST_LOAD_WDR.TYP«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_LOAD_WDR.TYP«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_LOAD_WDR.TYP«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_LOAD_WDR.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash fff4df0c31430f98 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 32 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 LOAD_WDR_DATA_PASSED
; P11OF1 LOAD_WDR_PAR_PASSED
12 R2_:
12 29 .DATA 0x29
13 R3_:
13 20 .DATA 0x20
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 5a .CODE 0x5a
19 55 .CODE 0x55
1a 00 .DATA 0x0
1b 0f .DATA 0xf
1c f0 .DATA 0xf0
1d a7 .DATA 0xa7
1e ff .DATA 0xff
1f 0d .DATA 0xd
20 00 .DATA 0x0 ; P20OS8 RESULT.TYP
21 00 .DATA 0x0
22 00 .DATA 0x0
23 00 .DATA 0x0
24 00 .DATA 0x0
25 00 .DATA 0x0
26 00 .DATA 0x0
27 00 .DATA 0x0
28 00 .DATA 0x0 ; P28OS1 RESULT.TPAR
29 ff .DATA 0xff ; P29OS8 EXPECTED.TYP
2a ff .DATA 0xff
2b ff .DATA 0xff
2c ff .DATA 0xff
2d ff .DATA 0xff
2e ff .DATA 0xff
2f ff .DATA 0xff
30 ff .DATA 0xff
31 ff .DATA 0xff ; P31OS1 EXPECTED.TPAR
32 EXPERIMENT:
32 64 SET PT
33 66 SET PX
34 d8 FSM2
35 da 50 1a 3b CHN_SND 0x1a,{T.UIR:3b}
39 18 CALL 0x5a
3a ae 88 29 VINV [0x8],0x29
3d 18 CALL 0x5a
3e ae 48 29 VINC [0x8],0x29
41 19 CALL 0x55
42 00 3f REPEAT #0x3f
44 a6 08 29 LEFT.0 #0x1,0x29,[0x8]
47 19 CALL 0x55
48 16 UNTIL
49 5c END
4a b0 01 31 28 50 VJMP EQ,[0x1],0x31,0x28,0x50
4f 6a CLR PX
50 b1 08 54 VJMP EQ,[0x8],R2,R3,0x54
53 68 CLR PT
54 5c END
55 ; --------------------------------------------------------------------------------------
55 ; Subroutine
55 ; --------------------------------------------------------------------------------------
55 b4 29 31 EVNPAR [0x8],0x29,0x31
58 8a 31 INV 0x31
5a ; --------------------------------------------------------------------------------------
5a ; Subroutine
5a ; --------------------------------------------------------------------------------------
5a da 31 38 CHN_SND @R2,{TV.WDR:38}
5d bc 25 FSM {25}
5f da 33 39 CHN_RCV {TV.WDR:39},@R3
62 b1 29 4a VJMP NE,[0x9],R2,R3,0x4a
65 2c RET
P11OF0 LOAD_WDR_DATA_PASSED\r P11OF1 LOAD_WDR_PAR_PASSED\r P20OS8 RESULT.TYP\r P28OS1 RESULT.TPAR\r P29OS8 EXPECTED.TYP\r P31OS1 EXPECTED.TPAR\r \r 32\r 00\r 29\r 20\r 00\r 00\r 00\r 00\r \r 5A\r 55\r 00\r 0F\r F0\r A7\r FF\r 0D\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r FF\r 64\r 66\r D8\r DA\r 50\r 1A\r 3B\r 18\r AE\r 88\r 29\r 18\r AE\r 48\r 29\r 19\r 00\r 3F\r A6\r 08\r 29\r 19\r 16\r 5C\r B0\r 01\r 31\r 28\r 50\r 6A\r B1\r 08\r 54\r 68\r 5C\r B4\r 29\r 31\r 8A\r 31\r DA\r 31\r 38\r BC\r 25\r DA\r 33\r 39\r B1\r 29\r 4A\r 2C\r «nul»