|
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: 322 (0x142)
Types: M32, TextFile
Names: »TEST_HIT_FLOPS.M32«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_HIT_FLOPS.M32«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_HIT_FLOPS.M32«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 2ff336e4e7349300 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 1d .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 PASSED
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 5a .CODE 0x5a
19 42 .CODE 0x42
1a 00 .DATA 0x0 ; P1AOS1 BAD_BITS
1b 00 .DATA 0x0 ; P1BOS1 EXPECTED_HITS
1c 00 .DATA 0x0
1d EXPERIMENT:
1d c6 7e a2 WFSM.H #0x7e,{a2}
20 bc 1f FSM {1f}
22 8f 0c 1b MOV #0x0c,0x1b
25 18 CALL 0x5a
26 8f 04 1b MOV #0x04,0x1b
29 08 REPEAT #0x08
2a 8e 1b 1c MOV 0x1b,0x1c
2d b8 1c IDENT 0x1c
2f 19 CALL 0x42
30 82 1b INC 0x1b
32 16 UNTIL
33 8f 03 1b MOV #0x03,0x1b
36 b8 1c IDENT 0x1c
38 9f 80 1c XOR #0x80,0x1c
3b 19 CALL 0x42
3c 64 SET PT
3d c6 fa a2 WFSM.H #0xfa,{a2}
40 d8 FSM2
41 5c END
42 ; --------------------------------------------------------------------------------------
42 ; Subroutine
42 ; --------------------------------------------------------------------------------------
42 c6 00 04 WFSM.H #0x00,{04}
45 c0 1c 04 WP2_FSM 0x1c,{04}
48 bc 02 FSM {02}
4a cc 36 1a RFSM.H {36},0x1a
4d 9f 0c 1a XOR #0x0c,0x1a
50 9e 1b 1a XOR 0x1b,0x1a
53 97 0f 1a AND #0x0f,0x1a
56 46 1a 3d JMP NZ,0x1a,0x3d
59 2c RET
5a ; --------------------------------------------------------------------------------------
5a ; Subroutine
5a ; --------------------------------------------------------------------------------------
5a cc 36 1a RFSM.H {36},0x1a
5d 9f 0c 1a XOR #0x0c,0x1a
60 9e 1b 1a XOR 0x1b,0x1a
63 97 0c 1a AND #0x0c,0x1a
66 46 1a 3d JMP NZ,0x1a,0x3d
69 2c RET
P11OF0 PASSED P1BOS1 EXPECTED_HITS P1AOS1 BAD_BITS 1D 00 18 18 00 00 00 00 5A 42 00 00 00 C6 7E A2 BC 1F 8F 0C 1B 18 8F 04 1B 08 8E 1B 1C B8 1C 19 82 1B 16 8F 03 1B B8 1C 9F 80 1C 19 64 C6 FA A2 D8 5C C6 00 04 C0 1C 04 BC 02 CC 36 1A 9F 0C 1A 9E 1B 1A 97 0F 1A 46 1A 3D 2C CC 36 1A 9F 0C 1A 9E 1B 1A 97 0C 1A 46 1A 3D 2C