|
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: 190 (0xbe)
Types: FIU, TextFile
Names: »TEST_PAREG.FIU«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »TEST_PAREG.FIU«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »TEST_PAREG.FIU«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 882d88251034035a (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 1b .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASS_PREG_TEST
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 2e .CODE 0x2e
19 00 .DATA 0x0 ; P19OS1 EXPECTED
1a 00 .DATA 0x0 ; P1AOS1 BAD_BITS
1b EXPERIMENT:
1b 64 SET PT
1c 18 CALL 0x2e
1d 8a 19 INV 0x19
1f 18 CALL 0x2e
20 82 19 INC 0x19
22 18 CALL 0x2e
23 00 07 REPEAT #0x07
25 a6 01 19 LEFT.0 #0x1,0x19,[0x1]
28 18 CALL 0x2e
29 16 UNTIL
2a 36 2d JMP 0x2d
2c 68 CLR PT
2d 5c END
2e ; --------------------------------------------------------------------------------------
2e ; Subroutine
2e ; --------------------------------------------------------------------------------------
2e d0 19 50 FSM_8X 0x19,{50}
31 d4 08 51 1a RCV_P1 #0x08,{51},0x1a
35 b0 c1 19 1a VXOR [0x1],0x19,0x1a
39 46 1a 2c JMP NZ,0x1a,0x2c
3c 2c RET
P11OF0 PASS_PREG_TEST P19OS1 EXPECTED P1AOS1 BAD_BITS 1B 00 18 18 00 00 00 00 2E 00 00 64 18 8A 19 18 82 19 18 00 07 A6 01 19 18 16 36 2D 68 5C D0 19 50 D4 08 51 1A B0 C1 19 1A 46 1A 2C 2C