|
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 - metrics - download
Length: 1024 (0x400)
Types: SEQ, TextFile
Names: »UIR_PARITY_CHECKER_FRU.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »UIR_PARITY_CHECKER_FRU.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »UIR_PARITY_CHECKER_FRU.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »UIR_PARITY_CHECKER_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash c07b1c688afceb5d (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 37 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASSED
12 R2_:
12 21 .DATA 0x21
13 R3_:
13 27 .DATA 0x27
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 03 .DATA 0x3 ; P19OS2 COUNT
1a e8 .DATA 0xe8
1b 3f .DATA 0x3f
1c ff .DATA 0xff
1d ff .DATA 0xff
1e 7f .DATA 0x7f
1f 3f .DATA 0x3f
20 3f .DATA 0x3f
21 00 .DATA 0x0 ; P21OS6 UIR_PATTERN
22 01 .DATA 0x1
23 e9 .DATA 0xe9
24 4e .DATA 0x4e
25 30 .DATA 0x30
26 fc .DATA 0xfc
27 00 .DATA 0x0
28 00 .DATA 0x0
29 00 .DATA 0x0
2a 00 .DATA 0x0
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0 ; P2DOS1 CALC_PARITY
2e 00 .DATA 0x0
2f 00 .DATA 0x0
30 00 .DATA 0x0
31 00 .DATA 0x0
32 00 .DATA 0x0
33 00 .DATA 0x0 ; P33OS1 PAR_ERROR
34 00 .DATA 0x0
35 00 .DATA 0x0
36 00 .DATA 0x0
37 EXPERIMENT:
37 b0 46 21 27 VMOV [0x6],0x21,0x27
3b b0 86 1b 27 VAND [0x6],0x1b,0x27
3f 9e 2d 2d XOR 0x2d,0x2d
42 b6 06 27 36 EVNPAR #0x06,0x27,#0x36
46 18 CALL 0x58
47 b2 21 40 01 xB2 0x21,#0x40,#0x1
4b b2 23 40 01 xB2 0x23,#0x40,#0x1
4f b2 25 40 01 xB2 0x25,#0x40,#0x1
53 56 19 37 DJNZ.W 0x19,EXPERIMENT
56 64 SET PT
57 5c END
58 ; --------------------------------------------------------------------------------------
58 ; Subroutine
58 ; --------------------------------------------------------------------------------------
58 da a0 27 41 CHN_SND 0x27,{S.UIR:41}
5c 10 REPEAT #0x10
5d c4 ff 43 WFSM.L #0xff,{43}
60 16 UNTIL
61 bc 61 FSM {61}
63 da c2 2e 36 CHN_RCV {S.MISC:36},0x2e
67 97 02 33 AND #0x02,0x33
6a 4e 33 2d 57 JMP NE,0x33,0x2d,0x57
6e 2c RET
P11OF0 PASSED P19OS2 COUNT P2DOS1 CALC_PARITY P33OS1 PAR_ERROR P21OS6 UIR_PATTERN 37 00 21 27 00 00 00 00 58 03 E8 3F FF FF 7F 3F 3F 00 01 E9 4E 30 FC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B0 46 21 27 B0 86 1B 27 9E 2D 2D B6 06 27 36 18 B2 21 40 01 B2 23 40 01 B2 25 40 01 56 19 37 64 5C DA A0 27 41 10 C4 FF 43 16 BC 61 DA C2 2E 36 97 02 33 4E 33 2D 57 2C«nul»