|
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: 373 (0x175)
Types: SEQ, TextFile
Names: »USUALLY_RETURN_H_GOOD_FRU.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »USUALLY_RETURN_H_GOOD_FRU.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »USUALLY_RETURN_H_GOOD_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 81522b2b4318a4ae (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 31 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 RETURN_FALSE
; P11OF1 USUALLY_RETURN_H_GOOD_FRU
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 60 .CODE 0x60
19 3f .DATA 0x3f
1a fe .DATA 0xfe
1b 22 .DATA 0x22
1c 2f .DATA 0x2f
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0 ; P1FOS2 EXPECTED_RESULT
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 03 REPEAT #0x03
32 da c0 1f 43 CHN_SND 0x1f,{S.MISC:43}
36 18 CALL 0x60
37 b1 22 5f VJMP NE,[0x2],R2,R3,0x5f
3a b0 44 21 2a VMOV [0x4],0x21,0x2a
3e da c0 28 43 CHN_SND 0x28,{S.MISC:43}
42 18 CALL 0x60
43 a7 02 LEFT.0 #0x1,R3,[0x2]
45 84 19 INC.W 0x19
47 b0 22 1f 28 5f VJMP NE,[0x2],0x1f,0x28,0x5f
4c a7 02 LEFT.0 #0x1,R3,[0x2]
4e a6 02 19 LEFT.0 #0x1,0x19,[0x2]
51 97 3f 1f AND #0x3f,0x1f
54 16 UNTIL
55 38 5e JMP PT,0x5e
57 64 SET PT
58 a1 05 01 1b XOR.W #0x0501,0x1b
5c 36 31 JMP EXPERIMENT
5e 66 SET PX
5f 5c END
60 ; --------------------------------------------------------------------------------------
60 ; Subroutine
60 ; --------------------------------------------------------------------------------------
60 da a0 19 41 CHN_SND 0x19,{S.UIR:41}
64 bc 62 FSM {62}
66 da c2 28 36 CHN_RCV {S.MISC:36},0x28
6a 97 3f 28 AND #0x3f,0x28
6d 2c RET
P11OF1 USUALLY_RETURN_H_GOOD_FRU P11OF0 RETURN_FALSE P1FOS2 EXPECTED_RESULT P28OS2 RESULT 31 00 28 1F 00 00 00 00 60 3F FE 22 2F 00 00 00 01 FF FF 7F FF FF FF FF 00 00 00 00 00 00 00 00 00 03 DA C0 1F 43 18 B1 22 5F B0 44 21 2A DA C0 28 43 18 A7 02 84 19 B0 22 1F 28 5F A7 02 A6 02 19 97 3F 1F 16 38 5E 64 A1 05 01 1B 36 31 66 5C DA A0 19 41 BC 62 DA C2 28 36 97 3F 28 2C