|
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: 499 (0x1f3)
Types: TextFile, VAL
Names: »POUND_WDR.VAL«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »POUND_WDR.VAL«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »POUND_WDR.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash c5bf8ce7b25966d0 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 31 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 POUND_WDR_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 6b .CODE 0x6b
19 65 .CODE 0x65
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 d8 FSM2
33 da 40 1a 3b CHN_SND 0x1a,{V.UIR:3b}
37 da 31 38 CHN_SND @R2,{TV.WDR:38}
3a 18 CALL 0x6b
3b b1 29 63 VJMP NE,[0x9],R2,R3,0x63
3e ae 88 28 VINV [0x8],0x28
41 da 31 38 CHN_SND @R2,{TV.WDR:38}
44 18 CALL 0x6b
45 b1 29 63 VJMP NE,[0x9],R2,R3,0x63
48 ae 48 28 VINC [0x8],0x28
4b 19 CALL 0x65
4c da 31 38 CHN_SND @R2,{TV.WDR:38}
4f 18 CALL 0x6b
50 b1 29 63 VJMP NE,[0x9],R2,R3,0x63
53 00 3f REPEAT #0x3f
55 a6 08 28 LEFT.0 #0x1,0x28,[0x8]
58 19 CALL 0x65
59 da 31 38 CHN_SND @R2,{TV.WDR:38}
5c 18 CALL 0x6b
5d b1 29 63 VJMP NE,[0x9],R2,R3,0x63
60 16 UNTIL
61 36 37 JMP 0x37
63 68 CLR PT
64 5c END
65 ; --------------------------------------------------------------------------------------
65 ; Subroutine
65 ; --------------------------------------------------------------------------------------
65 b4 28 30 EVNPAR [0x8],0x28,0x30
68 8a 30 INV 0x30
6a 2c RET
6b ; --------------------------------------------------------------------------------------
6b ; Subroutine
6b ; --------------------------------------------------------------------------------------
6b bc 5d FSM {5d}
6d da 33 39 CHN_RCV {TV.WDR:39},@R3
70 2c RET
P11OF0 POUND_WDR_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 6B\r 65\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 D8\r DA\r 40\r 1A\r 3B\r DA\r 31\r 38\r 18\r B1\r 29\r 63\r AE\r 88\r 28\r DA\r 31\r 38\r 18\r B1\r 29\r 63\r AE\r 48\r 28\r 19\r DA\r 31\r 38\r 18\r B1\r 29\r 63\r 00\r 3F\r A6\r 08\r 28\r 19\r DA\r 31\r 38\r 18\r B1\r 29\r 63\r 16\r 36\r 37\r 68\r 5C\r B4\r 28\r 30\r 8A\r 30\r 2C\r BC\r 5D\r DA\r 33\r 39\r 2C\r