|
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: 389 (0x185)
Types: SEQ, TextFile
Names: »RARELY_RETURN_H_GOOD_FRU.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »RARELY_RETURN_H_GOOD_FRU.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »RARELY_RETURN_H_GOOD_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 91acbff9dcbbec93 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 31 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 RETURN_FALSE
; P11OF1 RARELY_RETURN_H_GOOD
12 R2_:
12 28 .DATA 0x28
13 R3_:
13 19 .DATA 0x19
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 67 .CODE 0x67
19 3f .DATA 0x3f ; P19OS2 EXPECTED_RESULT
1a fe .DATA 0xfe
1b 23 .DATA 0x23
1c 2e .DATA 0x2e
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 01 .DATA 0x1
21 ff .DATA 0xff
22 ff .DATA 0xff
23 7f .DATA 0x7f
24 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 00 .DATA 0x0 ; P28OS2 RESULT
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 00 .DATA 0x0
30 00 .DATA 0x0
31 EXPERIMENT:
31 0e REPEAT #0x0e
32 da c0 1f 43 CHN_SND 0x1f,{S.MISC:43}
36 18 CALL 0x67
37 b1 22 66 VJMP NE,[0x2],R2,R3,0x66
3a b0 44 21 2a VMOV [0x4],0x21,0x2a
3e 88 28 DEC.W 0x28
40 da c0 28 43 CHN_SND 0x28,{S.MISC:43}
44 18 CALL 0x67
45 b0 22 19 28 66 VJMP NE,[0x2],0x19,0x28,0x66
4a a7 02 LEFT.0 #0x1,R3,[0x2]
4c 84 19 INC.W 0x19
4e a6 02 1f LEFT.0 #0x1,0x1f,[0x2]
51 97 3f 19 AND #0x3f,0x19
54 16 UNTIL
55 38 65 JMP PT,0x65
57 64 SET PT
58 91 3f fe 1f MOV.W #0x3ffe,0x1f
5c 90 1d 19 MOV.W 0x1d,0x19
5f a1 05 01 1b XOR.W #0x0501,0x1b
63 36 31 JMP EXPERIMENT
65 66 SET PX
66 5c END
67 ; --------------------------------------------------------------------------------------
67 ; Subroutine
67 ; --------------------------------------------------------------------------------------
67 da a0 19 41 CHN_SND 0x19,{S.UIR:41}
6b bc 62 FSM {62}
6d da c2 28 36 CHN_RCV {S.MISC:36},0x28
71 97 3f 28 AND #0x3f,0x28
74 2c RET
P11OF1 RARELY_RETURN_H_GOOD P11OF0 RETURN_FALSE P19OS2 EXPECTED_RESULT P28OS2 RESULT 31 00 28 19 00 00 00 00 67 3F FE 23 2E 00 00 00 01 FF FF 7F FF FF FF FF 00 00 00 00 00 00 00 00 00 0E DA C0 1F 43 18 B1 22 66 B0 44 21 2A 88 28 DA C0 28 43 18 B0 22 19 28 66 A7 02 84 19 A6 02 1F 97 3F 19 16 38 65 64 91 3F FE 1F 90 1D 19 A1 05 01 1B 36 31 66 5C DA A0 19 41 BC 62 DA C2 28 36 97 3F 28 2C