|
|
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: 1024 (0x400)
Types: TextFile, VAL
Names: »TEST_LOAD_WDR.VAL«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »TEST_LOAD_WDR.VAL«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »TEST_LOAD_WDR.VAL«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »TEST_LOAD_WDR.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 4f7cd3e2ec8ae066 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 31 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 LOAD_WDR_DATA_PASSED
; P11OF1 LOAD_WDR_PAR_PASSED
12 R2_:
12 28 .DATA 0x28
13 R3_:
13 1f .DATA 0x1f
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 59 .CODE 0x59
19 54 .CODE 0x54
1a 00 .DATA 0x0
1b 0a .DATA 0xa
1c 7f .DATA 0x7f
1d 87 .DATA 0x87
1e fe .DATA 0xfe
1f 00 .DATA 0x0 ; P1FOS8 RESULT.VAL
20 00 .DATA 0x0
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 ; P27OS1 RESULT.VPAR
28 ff .DATA 0xff ; P28OS8 EXPECTED.VAL
29 ff .DATA 0xff
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 ; P30OS1 EXPECTED.VPAR
31 EXPERIMENT:
31 64 SET PT
32 66 SET PX
33 d8 FSM2
34 da 40 1a 3b CHN_SND 0x1a,{V.UIR:3b}
38 18 CALL 0x59
39 ae 88 28 VINV [0x8],0x28
3c 18 CALL 0x59
3d ae 48 28 VINC [0x8],0x28
40 19 CALL 0x54
41 00 3f REPEAT #0x3f
43 a6 08 28 LEFT.0 #0x1,0x28,[0x8]
46 19 CALL 0x54
47 16 UNTIL
48 5c END
49 b0 01 30 27 4f VJMP EQ,[0x1],0x30,0x27,0x4f
4e 6a CLR PX
4f b1 08 53 VJMP EQ,[0x8],R2,R3,0x53
52 68 CLR PT
53 5c END
54 ; --------------------------------------------------------------------------------------
54 ; Subroutine
54 ; --------------------------------------------------------------------------------------
54 b4 28 30 EVNPAR [0x8],0x28,0x30
57 8a 30 INV 0x30
59 ; --------------------------------------------------------------------------------------
59 ; Subroutine
59 ; --------------------------------------------------------------------------------------
59 da 31 38 CHN_SND @R2,{TV.WDR:38}
5c bc 25 FSM {25}
5e da 33 39 CHN_RCV {TV.WDR:39},@R3
61 b1 29 49 VJMP NE,[0x9],R2,R3,0x49
64 2c RET
P11OF0 LOAD_WDR_DATA_PASSED\r P11OF1 LOAD_WDR_PAR_PASSED\r P1FOS8 RESULT.VAL\r P27OS1 RESULT.VPAR\r P28OS8 EXPECTED.VAL\r P30OS1 EXPECTED.VPAR\r \r 31\r 00\r 28\r 1F\r 00\r 00\r 00\r 00\r \r 59\r 54\r 00\r 0A\r 7F\r 87\r FE\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 40\r 1A\r 3B\r 18\r AE\r 88\r 28\r 18\r AE\r 48\r 28\r 19\r 00\r 3F\r A6\r 08\r 28\r 19\r 16\r 5C\r B0\r 01\r 30\r 27\r 4F\r 6A\r B1\r 08\r 53\r 68\r 5C\r B4\r 28\r 30\r 8A\r 30\r DA\r 31\r 38\r BC\r 25\r DA\r 33\r 39\r B1\r 29\r 49\r 2C\r «nul»