|
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: 350 (0x15e)
Types: TextFile, VAL
Names: »LOOP_INC.VAL«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »LOOP_INC.VAL«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »LOOP_INC.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash b7f3774e579a52ce (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 39 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 INC_A_OP_PASS
; P11OF1 B_INPUT_ZEROS
12 R2_:
12 28 .DATA 0x28
13 R3_:
13 30 .DATA 0x30
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 58 .CODE 0x58
19 7d .DATA 0x7d
1a ef .DATA 0xef
1b ff .DATA 0xff
1c 07 .DATA 0x7
1d 9f .DATA 0x9f
1e 7d .DATA 0x7d
1f df .DATA 0xdf
20 ff .DATA 0xff
21 07 .DATA 0x7
22 9f .DATA 0x9f
23 7c .DATA 0x7c
24 08 .DATA 0x8
25 3f .DATA 0x3f
26 07 .DATA 0x7
27 87 .DATA 0x87
28 00 .DATA 0x0 ; P28OS8 EXPECT
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 00 .DATA 0x0
2f 01 .DATA 0x1
30 00 .DATA 0x0 ; P30OS8 RESULT
31 00 .DATA 0x0
32 00 .DATA 0x0
33 00 .DATA 0x0
34 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 00 .DATA 0x0
38 00 .DATA 0x0
39 EXPERIMENT:
39 00 41 REPEAT #0x41
3b da 40 19 3b CHN_SND 0x19,{V.UIR:3b}
3f 18 CALL 0x58
40 66 SET PX
41 b1 28 57 VJMP NE,[0x8],R2,R3,0x57
44 da 40 1e 3b CHN_SND 0x1e,{V.UIR:3b}
48 18 CALL 0x58
49 6a CLR PX
4a b1 28 57 VJMP NE,[0x8],R2,R3,0x57
4d a6 08 28 LEFT.0 #0x1,0x28,[0x8]
50 da 40 23 3b CHN_SND 0x23,{V.UIR:3b}
54 18 CALL 0x58
55 16 UNTIL
56 64 SET PT
57 5c END
58 ; --------------------------------------------------------------------------------------
58 ; Subroutine
58 ; --------------------------------------------------------------------------------------
58 c8 ff ff 2b WFSM.W #0xffff,{2b}
5c bc 4b FSM {4b}
5e bc 13 FSM {13}
60 36 58 JMP 0x58
P11OF0 INC_A_OP_PASS P11OF1 B_INPUT_ZEROS P28OS8 EXPECT P30OS8 RESULT 39 00 28 30 00 00 00 00 58 7D EF FF 07 9F 7D DF FF 07 9F 7C 08 3F 07 87 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 41 DA 40 19 3B 18 66 B1 28 57 DA 40 1E 3B 18 6A B1 28 57 A6 08 28 DA 40 23 3B 18 16 64 5C C8 FF FF 2B BC 4B BC 13 36 58 D2 00 3B BC 5B DA 33 39 AF 88 2C