|
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: 324 (0x144)
Types: FIU, TextFile
Names: »TEST_VAR.FIU«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_VAR.FIU«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_VAR.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 47dc7f1cfb2e152f (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 35 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASS_VAR_TEST
12 R2_:
12 18 .DATA 0x18
13 R3_:
13 18 .DATA 0x18
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 49 .CODE 0x49
19 40 .DATA 0x40
1a 3f .DATA 0x3f
1b c3 .DATA 0xc3
1c 0a .DATA 0xa
1d 7e .DATA 0x7e
1e 03 .DATA 0x3
1f 40 .DATA 0x40
20 3f .DATA 0x3f
21 c3 .DATA 0xc3
22 0e .DATA 0xe
23 7c .DATA 0x7c
24 03 .DATA 0x3
25 ff .DATA 0xff ; P25OS8 EXPECTED
26 ff .DATA 0xff
27 ff .DATA 0xff
28 ff .DATA 0xff
29 ff .DATA 0xff
2a ff .DATA 0xff
2b ff .DATA 0xff
2c ff .DATA 0xff
2d 5a .DATA 0x5a ; P2DOS8 BAD_BITS
2e 5a .DATA 0x5a
2f 5a .DATA 0x5a
30 5a .DATA 0x5a
31 5a .DATA 0x5a
32 5a .DATA 0x5a
33 5a .DATA 0x5a
34 5a .DATA 0x5a
35 EXPERIMENT:
35 64 SET PT
36 18 CALL 0x49
37 ae 88 25 VINV [0x8],0x25
3a 18 CALL 0x49
3b ae 48 25 VINC [0x8],0x25
3e 18 CALL 0x49
3f 00 3f REPEAT #0x3f
41 a6 08 25 LEFT.0 #0x1,0x25,[0x8]
44 18 CALL 0x49
45 16 UNTIL
46 5c END
47 68 CLR PT
48 5c END
49 ; --------------------------------------------------------------------------------------
49 ; Subroutine
49 ; --------------------------------------------------------------------------------------
49 da 80 19 13 CHN_SND 0x19,{F.UIR:13}
4d da 70 25 10 CHN_SND 0x25,{F.MDREG:10}
51 bc 48 FSM {48}
53 da 80 1f 13 CHN_SND 0x1f,{F.UIR:13}
57 da 70 2d 10 CHN_SND 0x2d,{F.MDREG:10}
5b bc 3f FSM {3f}
5d da 72 2d 11 CHN_RCV {F.MDREG:11},0x2d
61 b0 c8 25 2d VXOR [0x8],0x25,0x2d
65 ae 28 2d 47 VJMP NZ,[0x8],0x2d,0x47
69 2c RET
P11OF0 PASS_VAR_TEST P25OS8 EXPECTED P2DOS8 BAD_BITS 35 00 18 18 00 00 00 00 49 40 3F C3 0A 7E 03 40 3F C3 0E 7C 03 FF FF FF FF FF FF FF FF 5A 5A 5A 5A 5A 5A 5A 5A 64 18 AE 88 25 18 AE 48 25 18 00 3F A6 08 25 18 16 5C 68 5C DA 80 19 13 DA 70 25 10 BC 48 DA 80 1F 13 DA 70 2D 10 BC 3F DA 72 2D 11 B0 C8 25 2D AE 28 2D 47 2C