|
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: 1024 (0x400)
Types: SEQ, TextFile
Names: »CALL_FRU.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CALL_FRU.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CALL_FRU.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CALL_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 74431a0867e44a7a (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2b .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 WALKING_ONES
; P11OF1 CALL_FRU
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 58 .CODE 0x58
19 0e .DATA 0xe
1a 3f .DATA 0x3f
1b ff .DATA 0xff
1c 3f .DATA 0x3f ; P1COS2 EXPECTED_RESULT
1d fe .DATA 0xfe
1e 1e .DATA 0x1e
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 00 .DATA 0x0
22 ff .DATA 0xff ; P22OS2 BAD_BITS
23 ff .DATA 0xff
24 ff .DATA 0xff
25 ff .DATA 0xff
26 ff .DATA 0xff
27 ff .DATA 0xff
28 ff .DATA 0xff
29 ff .DATA 0xff
2a ff .DATA 0xff
2b EXPERIMENT:
2b 66 SET PX
2c 68 CLR PT
2d 18 CALL 0x58
2e b0 c2 1c 22 VXOR [0x2],0x1c,0x22
32 b0 82 1a 22 VAND [0x2],0x1a,0x22
36 ae 22 22 56 VJMP NZ,[0x2],0x22,0x56
3a a6 02 1c LEFT.0 #0x1,0x1c,[0x2]
3d 38 42 JMP PT,0x42
3f 9b 01 1d OR #0x01,0x1d
42 54 19 2d DJNZ 0x19,0x2d
45 38 57 JMP PT,0x57
47 64 SET PT
48 8f 0e 19 MOV #0x0e,0x19
4b 00 0e REPEAT #0x0e
4d a6 02 1c LEFT.0 #0x1,0x1c,[0x2]
50 16 UNTIL
51 8f 01 1d MOV #0x01,0x1d
54 36 2d JMP 0x2d
56 6a CLR PX
57 5c END
58 ; --------------------------------------------------------------------------------------
58 ; Subroutine
58 ; --------------------------------------------------------------------------------------
58 da a0 1c 41 CHN_SND 0x1c,{S.UIR:41}
5c 10 REPEAT #0x10
5d c4 ff 43 WFSM.L #0xff,{43}
60 16 UNTIL
61 bc 62 FSM {62}
63 da c2 22 36 CHN_RCV {S.MISC:36},0x22
67 2c RET
P11OF1 CALL_FRU P11OF0 WALKING_ONES P1COS2 EXPECTED_RESULT P22OS2 BAD_BITS 2B 00 18 18 00 00 00 00 58 0E 3F FF 3F FE 1E 00 00 00 FF FF FF FF FF FF FF FF FF 66 68 18 B0 C2 1C 22 B0 82 1A 22 AE 22 22 56 A6 02 1C 38 42 9B 01 1D 54 19 2D 38 57 64 8F 0E 19 00 0E A6 02 1C 16 8F 01 1D 36 2D 6A 5C DA A0 1C 41 10 C4 FF 43 16 BC 62 DA C2 22 36 2C«nul»