|
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: 446 (0x1be)
Types: FIU, TextFile
Names: »PAUSE_IN_RANGE.FIU«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »PAUSE_IN_RANGE.FIU«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »PAUSE_IN_RANGE.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash d241c6b03777f374 (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 60 PAUSE
66 da 80 2e 13 CHN_SND 0x2e,{F.UIR:13}
6a bc 3f FSM {3f}
6c da 72 34 11 CHN_RCV {F.MDREG:11},EXPERIMENT
70 97 40 3b AND #0x40,0x3b
73 6a CLR PX
74 44 3b 78 JMP Z,0x3b,0x78
77 66 SET PX
78 2c RET
P11OF0 PASS_IN_RANGE\r \r 34\r 00\r 18\r 18\r 00\r 00\r 00\r 00\r \r 65\r 01\r 00\r 00\r 00\r 00\r 00\r 0F\r FF\r FF\r 00\r 3F\r C3\r 2E\r 7E\r 03\r 00\r 7F\r C3\r 0E\r 7E\r 03\r 40\r 3F\r C3\r 3E\r 7D\r FF\r DA\r 80\r 22\r 13\r DA\r 70\r 1B\r 10\r BC\r 54\r DA\r 80\r 28\r 13\r DA\r 60\r 19\r 18\r 10\r BC\r 4A\r 18\r 3E\r 64\r A8\r 04\r 1E\r DA\r 60\r 19\r 18\r 18\r 3A\r 64\r 16\r BC\r 4A\r 8F\r 01\r 1A\r DA\r 60\r 19\r 18\r 18\r 3A\r 64\r 64\r 5C\r 60\r DA\r 80\r 2E\r 13\r BC\r 3F\r DA\r 72\r 34\r 11\r 97\r 40\r 3B\r 6A\r 44\r 3B\r 78\r 66\r 2C\r