|
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: FIU, TextFile
Names: »TEST_OREG_PARITY.FIU«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_OREG_PARITY.FIU«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_OREG_PARITY.FIU«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_OREG_PARITY.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 353e0e945cb7333e (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 27 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASS_OREG_PARITY
; P11OF1 PARITY_OK
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 00 .DATA 0x0
1a 3f .DATA 0x3f
1b c3 .DATA 0xc3
1c 2e .DATA 0x2e
1d 7e .DATA 0x7e
1e 03 .DATA 0x3
1f 01 .DATA 0x1 ; P1FOS1 DATA
20 3f .DATA 0x3f
21 c3 .DATA 0xc3
22 06 .DATA 0x6
23 7e .DATA 0x7e
24 03 .DATA 0x3
25 0c .DATA 0xc
26 00 .DATA 0x0
27 EXPERIMENT:
27 da 70 1e 10 CHN_SND 0x1e,{F.MDREG:10}
2b da 80 19 13 CHN_SND 0x19,{F.UIR:13}
2f bc 54 FSM {54}
31 07 REPEAT #0x07
32 8f c3 21 MOV #0xc3,0x21
35 da 80 1f 13 CHN_SND 0x1f,{F.UIR:13}
39 bc 48 FSM {48}
3b 8f c2 21 MOV #0xc2,0x21
3e da 80 1f 13 CHN_SND 0x1f,{F.UIR:13}
42 d2 ff 50 FSM_8X #0xff,{50}
45 bc 60 FSM {60}
47 18 CALL 0x58
48 3e 57 JMP NPX,0x57
4a d2 ff 50 FSM_8X #0xff,{50}
4d bc 61 FSM {61}
4f 18 CALL 0x58
50 3a 57 JMP PX,0x57
52 a6 01 1f LEFT.0 #0x1,0x1f,[0x1]
55 16 UNTIL
56 64 SET PT
57 5c END
58 ; --------------------------------------------------------------------------------------
58 ; Subroutine
58 ; --------------------------------------------------------------------------------------
58 d4 08 51 26 RCV_P1 #0x08,{51},0x26
5c 97 10 26 AND #0x10,0x26
5f 66 SET PX
60 46 26 64 JMP NZ,0x26,0x64
63 6a CLR PX
64 2c RET
P11OF0 PASS_OREG_PARITY P11OF1 PARITY_OK P1FOS1 DATA 27 00 18 18 00 00 00 00 58 00 3F C3 2E 7E 03 01 3F C3 06 7E 03 0C 00 DA 70 1E 10 DA 80 19 13 BC 54 07 8F C3 21 DA 80 1F 13 BC 48 8F C2 21 DA 80 1F 13 D2 FF 50 BC 60 18 3E 57 D2 FF 50 BC 61 18 3A 57 A6 01 1F 16 64 5C D4 08 51 26 97 10 26 66 46 26 64 6A 2C«nul»