|
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: 388 (0x184)
Types: SEQ, TextFile
Names: »RARELY_CALL_H_GOOD_FRU.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »RARELY_CALL_H_GOOD_FRU.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »RARELY_CALL_H_GOOD_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 74bd5ea311454c4f (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 31 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CALL_FALSE
; P11OF1 RARELY_CALL_H_GOOD
12 R2_:
12 28 .DATA 0x28
13 R3_:
13 1f .DATA 0x1f
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 68 .CODE 0x68
19 3f .DATA 0x3f
1a fe .DATA 0xfe
1b 17 .DATA 0x17
1c 2e .DATA 0x2e
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0 ; P1FOS2 EXPECTED_RESULT
20 00 .DATA 0x0
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 0x68
37 84 1f INC.W 0x1f
39 b1 22 67 VJMP NE,[0x2],R2,R3,0x67
3c b0 44 21 2a VMOV [0x4],0x21,0x2a
40 88 28 DEC.W 0x28
42 da c0 28 43 CHN_SND 0x28,{S.MISC:43}
46 18 CALL 0x68
47 b0 22 1f 28 67 VJMP NE,[0x2],0x1f,0x28,0x67
4c a7 02 LEFT.0 #0x1,R3,[0x2]
4e 88 1f DEC.W 0x1f
50 a6 02 19 LEFT.0 #0x1,0x19,[0x2]
53 82 1a INC 0x1a
55 16 UNTIL
56 38 66 JMP PT,0x66
58 64 SET PT
59 91 3f fe 19 MOV.W #0x3ffe,0x19
5d 90 1d 1f MOV.W 0x1d,0x1f
60 a1 05 01 1b XOR.W #0x0501,0x1b
64 36 31 JMP EXPERIMENT
66 66 SET PX
67 5c END
68 ; --------------------------------------------------------------------------------------
68 ; Subroutine
68 ; --------------------------------------------------------------------------------------
68 da a0 19 41 CHN_SND 0x19,{S.UIR:41}
6c bc 62 FSM {62}
6e da c2 28 36 CHN_RCV {S.MISC:36},0x28
72 97 3f 28 AND #0x3f,0x28
75 2c RET
P11OF1 RARELY_CALL_H_GOOD P11OF0 CALL_FALSE P1FOS2 EXPECTED_RESULT P28OS2 RESULT 31 00 28 1F 00 00 00 00 68 3F FE 17 2E 00 00 00 00 FF FF 7F FF FF FF FF 00 00 00 00 00 00 00 00 00 0E DA C0 1F 43 18 84 1F B1 22 67 B0 44 21 2A 88 28 DA C0 28 43 18 B0 22 1F 28 67 A7 02 88 1F A6 02 19 82 1A 16 38 66 64 91 3F FE 19 90 1D 1F A1 05 01 1B 36 31 66 5C DA A0 19 41 BC 62 DA C2 28 36 97 3F 28 2C