|
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: 334 (0x14e)
Types: FIU, TextFile
Names: »TEST_IN_RANGE.FIU«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_IN_RANGE.FIU«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_IN_RANGE.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 1242a610e104ae0e (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 34 .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 65 .CODE 0x65
19 01 .DATA 0x1
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 0f .DATA 0xf
20 ff .DATA 0xff
21 ff .DATA 0xff
22 00 .DATA 0x0
23 3f .DATA 0x3f
24 c3 .DATA 0xc3
25 2e .DATA 0x2e
26 7e .DATA 0x7e
27 03 .DATA 0x3
28 00 .DATA 0x0
29 7f .DATA 0x7f
2a c3 .DATA 0xc3
2b 0e .DATA 0xe
2c 7e .DATA 0x7e
2d 03 .DATA 0x3
2e 40 .DATA 0x40
2f 3f .DATA 0x3f
30 c3 .DATA 0xc3
31 3e .DATA 0x3e
32 7d .DATA 0x7d
33 ff .DATA 0xff
34 EXPERIMENT:
34 da' 80 22 13 CHN_SND 0x22,{F.UIR:13}
38 da 70 1b 10' CHN_SND 0x1b,{F.MDREG:10}
3c bc 54 FSM {54}
3e da 80 28 13 CHN_SND 0x28,{F.UIR:13}
42 da 60 19 18 CHN_SND 0x19,{F.MAR:18}
46 10 REPEAT #0x10
47 bc 4a FSM {4a}
49 18 CALL 0x65
4a 3e 64 JMP NPX,0x64
4c a8 04 1e SR.0 #0x1,0x1e,[0x4]
4f da 60 19 18 CHN_SND 0x19,{F.MAR:18}
53 18 CALL 0x65
54 3a 64 JMP PX,0x64
56 16 UNTIL
57 bc 4a FSM {4a}
59 8f 01 1a MOV #0x01,0x1a
5c da 60 19 18 CHN_SND 0x19,{F.MAR:18}
60 18 CALL 0x65
61 3a 64 JMP PX,0x64
63 64 SET PT
64 5c END
65 ; --------------------------------------------------------------------------------------
65 ; Subroutine
65 ; --------------------------------------------------------------------------------------
65 da 80 2e 13 CHN_SND 0x2e,{F.UIR:13}
69 bc 3f FSM {3f}
6b da 72 34 11 CHN_RCV {F.MDREG:11},EXPERIMENT
6f 97 40 3b AND #0x40,0x3b
72 6a CLR PX
73 44 3b 77 JMP Z,0x3b,0x77
76 66 SET PX
77 2c RET
P11OF0 PASS_IN_RANGE 34 00 18 18 00 00 00 00 65 01 00 00 00 00 00 0F FF FF 00 3F C3 2E 7E 03 00 7F C3 0E 7E 03 40 3F C3 3E 7D FF DA 80 22 13 DA 70 1B 10 BC 54 DA 80 28 13 DA 60 19 18 10 BC 4A 18 3E 64 A8 04 1E DA 60 19 18 18 3A 64 16 BC 4A 8F 01 1A DA 60 19 18 18 3A 64 64 5C DA 80 2E 13 BC 3F DA 72 34 11 97 40 3B 6A 44 3B 77 66 2C