|
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: FIU, TextFile
Names: »OLD_IN_RANGE_TEST.FIU«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »OLD_IN_RANGE_TEST.FIU«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »OLD_IN_RANGE_TEST.FIU«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »OLD_IN_RANGE_TEST.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 924bfa33424f4e2d (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 3a .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASS_IN_RANGE
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 5f .CODE 0x5f
19 00 .DATA 0x0
1a 3f .DATA 0x3f
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 01 .DATA 0x1
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 10 .DATA 0x10
28 00 .DATA 0x0
29 3f .DATA 0x3f
2a c3 .DATA 0xc3
2b 2e .DATA 0x2e
2c 7e .DATA 0x7e
2d 03 .DATA 0x3
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 c3 .DATA 0xc3
31 0e .DATA 0xe
32 7d .DATA 0x7d
33 03 .DATA 0x3
34 40 .DATA 0x40
35 3f .DATA 0x3f
36 c3 .DATA 0xc3
37 3e .DATA 0x3e
38 7d .DATA 0x7d
39 03 .DATA 0x3
3a EXPERIMENT:
3a da' 80 28 13 CHN_SND 0x28,{F.UIR:13}
3e da 70 1f 10' CHN_SND 0x1f,{F.MDREG:10}
42 bc 54 FSM {54}
44 da 80 2e 13 CHN_SND 0x2e,{F.UIR:13}
48 da 60 1f 18 CHN_SND 0x1f,{F.MAR:18}
4c 10 REPEAT #0x10
4d bc 4a FSM {4a}
4f 18 CALL 0x5f
50 3e 5e JMP NPX,0x5e
52 a6 04 24 LEFT.0 #0x1,0x24,[0x4]
55 da 60 1f 18 CHN_SND 0x1f,{F.MAR:18}
59 18 CALL 0x5f
5a 3a 5e JMP PX,0x5e
5c 16 UNTIL
5d 64 SET PT
5e 5c END
5f ; --------------------------------------------------------------------------------------
5f ; Subroutine
5f ; --------------------------------------------------------------------------------------
5f da 80 34 13 CHN_SND 0x34,{F.UIR:13}
63 bc 3f FSM {3f}
65 da 72 3a 11 CHN_RCV {F.MDREG:11},EXPERIMENT
69 97 40 41 AND #0x40,0x41
6c 6a CLR PX
6d 44 41 71 JMP Z,0x41,0x71
70 66 SET PX
71 2c RET
P11OF0 PASS_IN_RANGE\r \r 3A\r 00\r 18\r 18\r 00\r 00\r 00\r 00\r \r 5F\r 00\r 3F\r 00\r 00\r 00\r 00\r 01\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 10\r 00\r 3F\r C3\r 2E\r 7E\r 03\r 00\r 00\r C3\r 0E\r 7D\r 03\r 40\r 3F\r C3\r 3E\r 7D\r 03\r DA\r 80\r 28\r 13\r DA\r 70\r 1F\r 10\r BC\r 54\r DA\r 80\r 2E\r 13\r DA\r 60\r 1F\r 18\r 10\r BC\r 4A\r 18\r 3E\r 5E\r A6\r 04\r 24\r DA\r 60\r 1F\r 18\r 18\r 3A\r 5E\r 16\r 64\r 5C\r DA\r 80\r 34\r 13\r BC\r 3F\r DA\r 72\r 3A\r 11\r 97\r 40\r 41\r 6A\r 44\r 41\r 71\r 66\r 2C\r «nul»