|
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: 504 (0x1f8)
Types: TYP, TextFile
Names: »POUND_WDR.TYP«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »POUND_WDR.TYP«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »POUND_WDR.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 1ad8092bd26d0cfd (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 32 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 T_LOAD_WDR_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 6c .CODE 0x6c
19 66 .CODE 0x66
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 d8 FSM2
34 da 50 1a 3b CHN_SND 0x1a,{T.UIR:3b}
38 da 31 38 CHN_SND @R2,{TV.WDR:38}
3b 18 CALL 0x6c
3c b1 29 64 VJMP NE,[0x9],R2,R3,0x64
3f ae 88 29 VINV [0x8],0x29
42 da 31 38 CHN_SND @R2,{TV.WDR:38}
45 18 CALL 0x6c
46 b1 29 64 VJMP NE,[0x9],R2,R3,0x64
49 ae 48 29 VINC [0x8],0x29
4c 19 CALL 0x66
4d da 31 38 CHN_SND @R2,{TV.WDR:38}
50 18 CALL 0x6c
51 b1 29 64 VJMP NE,[0x9],R2,R3,0x64
54 00 3f REPEAT #0x3f
56 a6 08 29 LEFT.0 #0x1,0x29,[0x8]
59 19 CALL 0x66
5a da 31 38 CHN_SND @R2,{TV.WDR:38}
5d 18 CALL 0x6c
5e b1 29 64 VJMP NE,[0x9],R2,R3,0x64
61 16 UNTIL
62 36 34 JMP 0x34
64 68 CLR PT
65 5c END
66 ; --------------------------------------------------------------------------------------
66 ; Subroutine
66 ; --------------------------------------------------------------------------------------
66 b4 29 31 EVNPAR [0x8],0x29,0x31
69 8a 31 INV 0x31
6b 2c RET
6c ; --------------------------------------------------------------------------------------
6c ; Subroutine
6c ; --------------------------------------------------------------------------------------
6c bc 5d FSM {5d}
6e da 33 39 CHN_RCV {TV.WDR:39},@R3
71 2c RET
P11OF0 T_LOAD_WDR_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 6C\r 66\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 D8\r DA\r 50\r 1A\r 3B\r DA\r 31\r 38\r 18\r B1\r 29\r 64\r AE\r 88\r 29\r DA\r 31\r 38\r 18\r B1\r 29\r 64\r AE\r 48\r 29\r 19\r DA\r 31\r 38\r 18\r B1\r 29\r 64\r 00\r 3F\r A6\r 08\r 29\r 19\r DA\r 31\r 38\r 18\r B1\r 29\r 64\r 16\r 36\r 34\r 68\r 5C\r B4\r 29\r 31\r 8A\r 31\r 2C\r BC\r 5D\r DA\r 33\r 39\r 2C\r