|
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: 339 (0x153)
Types: FIU, TextFile
Names: »TEST_UADDR_PARITY.FIU«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »TEST_UADDR_PARITY.FIU«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »TEST_UADDR_PARITY.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 66f837a3ddacd2b4 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 22 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASS_UADR_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 57 .CODE 0x57
19 00 .DATA 0x0
1a 40 .DATA 0x40
1b 3f .DATA 0x3f
1c 02 .DATA 0x2
1d 4e .DATA 0x4e
1e 7f .DATA 0x7f
1f ff .DATA 0xff
20 40 .DATA 0x40 ; P20OS2 DATA
21 01 .DATA 0x1
22 EXPERIMENT:
22 da 80 1a 13 CHN_SND 0x1a,{F.UIR:13}
26 08 REPEAT #0x08
27 18 CALL 0x57
28 3e 56 JMP NPX,0x56
2a 9f 40 20 XOR #0x40,0x20
2d 18 CALL 0x57
2e 3a 56 JMP PX,0x56
30 a6 01 21 LEFT.0 #0x1,0x21,[0x1]
33 9b 01 21 OR #0x01,0x21
36 16 UNTIL
37 8f 00 20 MOV #0x00,0x20
3a 07 REPEAT #0x07
3b 18 CALL 0x57
3c 3e 56 JMP NPX,0x56
3e 9f 80 19 XOR #0x80,0x19
41 9f 80 20 XOR #0x80,0x20
44 18 CALL 0x57
45 3a 56 JMP PX,0x56
47 a6 01 20 LEFT.0 #0x1,0x20,[0x1]
4a 9b 01 20 OR #0x01,0x20
4d 97 3f 20 AND #0x3f,0x20
50 b0 a1 19 20 VOR [0x1],0x19,0x20
54 16 UNTIL
55 64 SET PT
56 5c END
57 ; --------------------------------------------------------------------------------------
57 ; Subroutine
57 ; --------------------------------------------------------------------------------------
57 da 70 1e 10 CHN_SND 0x1e,{F.MDREG:10}
5b bc 3c FSM {3c}
5d d2 ff 50 FSM_8X #0xff,{50}
60 bc 53 FSM {53}
62 d4 08 51 1a RCV_P1 #0x08,{51},0x1a
66 97 02 1a AND #0x02,0x1a
69 66 SET PX
6a 46 1a 6e JMP NZ,0x1a,0x6e
6d 6a CLR PX
6e 2c RET
P11OF0 PASS_UADR_PARITY P11OF1 PARITY_OK P20OS2 DATA 22 00 18 18 00 00 00 00 57 00 40 3F 02 4E 7F FF 40 01 DA 80 1A 13 08 18 3E 56 9F 40 20 18 3A 56 A6 01 21 9B 01 21 16 8F 00 20 07 18 3E 56 9F 80 19 9F 80 20 18 3A 56 A6 01 20 9B 01 20 97 3F 20 B0 A1 19 20 16 64 5C DA 70 1E 10 BC 3C D2 FF 50 BC 53 D4 08 51 1A 97 02 1A 66 46 1A 6E 6A 2C