|
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: TYP, TextFile
Names: »TEST_SCAN_CSA_REG.TYP«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_SCAN_CSA_REG.TYP«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_SCAN_CSA_REG.TYP«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_SCAN_CSA_REG.TYP«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 9b6b5175274d7562 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 1b .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 SCAN_CSA_PASS
12 R2_:
12 1a .DATA 0x1a
13 R3_:
13 19 .DATA 0x19
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 2c .CODE 0x2c
19 00 .DATA 0x0 ; P19OS1 RESULT
1a ff .DATA 0xff ; P1AOS1 EXPECTED
1b EXPERIMENT:
1b d8 FSM2
1c 18 CALL 0x2c
1d 8a 1a INV 0x1a
1f 18 CALL 0x2c
20 82 1a INC 0x1a
22 18 CALL 0x2c
23 00 07 REPEAT #0x07
25 a6 01 1a LEFT.0 #0x1,0x1a,[0x1]
28 18 CALL 0x2c
29 16 UNTIL
2a 64 SET PT
2b 5c END
2c ; --------------------------------------------------------------------------------------
2c ; Subroutine
2c ; --------------------------------------------------------------------------------------
2c d0 1a 43 FSM_8X 0x1a,{43}
2f d5 02 44 19 RCV_P2 #0x02,{44},0x19
33 8a 19 INV 0x19
35 4e 19 1a 2b JMP NE,0x19,0x1a,0x2b
39 2c RET
P11OF0 SCAN_CSA_PASS\r P19OS1 RESULT\r P1AOS1 EXPECTED\r \r 1B\r 00\r 1A\r 19\r 00\r 00\r 00\r 00\r \r 2C\r 00\r FF\r D8\r 18\r 8A\r 1A\r 18\r 82\r 1A\r 18\r 00\r 07\r A6\r 01\r 1A\r 18\r 16\r 64\r 5C\r D0\r 1A\r 43\r D5\r 02\r 44\r 19\r 8A\r 19\r 4E\r 19\r 1A\r 2B\r 2C\r «nul»