|
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: SEQ, TextFile
Names: »SIMPLE_DECODE_DATA_TEST.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »SIMPLE_DECODE_DATA_TEST.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »SIMPLE_DECODE_DATA_TEST.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »SIMPLE_DECODE_DATA_TEST.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash e568613487162de8 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 22 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 DATA_PATTERN_ZEROS
; P11OF1 DECODE_TEST_PASSED
12 R2_:
12 1d .DATA 0x1d
13 R3_:
13 1d .DATA 0x1d
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 44 .CODE 0x44
1a 39 .CODE 0x39
1b 40 .DATA 0x40 ; P1BOS2 ADDRESS
1c 00 .DATA 0x0
1d ff .DATA 0xff ; P1DOS2 ACTUAL_RESULT.UADR
; P1DOS2 EXPECTED_RESULT.UADR
1e ff .DATA 0xff
1f ff .DATA 0xff ; P1FOS1 ACTUAL_RESULT.CSA_FREE
; P1FOS1 EXPECTED_RESULT.CSA_FREE
20 ff .DATA 0xff ; P20OS1 ACTUAL_RESULT.CSA_VALID
; P20OS1 EXPECTED_RESULT.CSA_VALID
21 ff .DATA 0xff ; P21OS1 ACTUAL_RESULT.MISC
; P21OS1 EXPECTED_RESULT.MISC
22 EXPERIMENT:
22 18 CALL 0x2e
23 18 CALL 0x2e
24 19 CALL 0x44
25 38 2c JMP PT,0x2c
27 64 SET PT
28 b1 c5 VXOR [0x5],R2,R3
2a 36 22 JMP EXPERIMENT
2c 66 SET PX
2d 5c END
2e ; --------------------------------------------------------------------------------------
2e ; Subroutine
2e ; --------------------------------------------------------------------------------------
2e 9f 20 20 XOR #0x20,0x20
31 1a CALL 0x39
32 da b0 1d 42 CHN_SND 0x1d,{S.DECODER:42}
36 bc 51 FSM {51}
38 2c RET
39 ; --------------------------------------------------------------------------------------
39 ; Subroutine
39 ; --------------------------------------------------------------------------------------
39 c4 00 59 WFSM.L #0x00,{59}
3c c4 00 58 WFSM.L #0x00,{58}
3f 91 40 00 1b MOV.W #0x4000,0x1b
43 2c RET
44 ; --------------------------------------------------------------------------------------
44 ; Subroutine
44 ; --------------------------------------------------------------------------------------
44 1a CALL 0x39
45 bc 3b FSM {3b}
47 02 REPEAT #0x02
48 da b2 1d 34 CHN_RCV {S.DECODER:34},0x1d
4c 97 ff' 20 AND #0xff,0x20
4f da b0 1d 42 CHN_SND 0x1d,{S.DECODER:42}
53 bc 3c FSM {3c}
55 bc 62 FSM {62}
57 38 5f JMP PT,0x5f
59 da bf 34 2d CHN_TST ????,{S.DECODER:34},0x2d
5d 36 63 JMP 0x63
5f da bb 34 2d CHN_TST ????,{S.DECODER:34},0x2d
63 da b2 1d 34 CHN_RCV {S.DECODER:34},0x1d
67 56 1b 48 DJNZ.W 0x1b,0x48
6a 91 40 00 1b MOV.W #0x4000,0x1b
6e 9f 20 4d XOR #0x20,0x4d
71 16 UNTIL
72 2c RET
P11OF1 DECODE_TEST_PASSED P11OF0 DATA_PATTERN_ZEROS P1BOS2 ADDRESS P1DOS2 EXPECTED_RESULT.UADR P1FOS1 EXPECTED_RESULT.CSA_FREE P20OS1 EXPECTED_RESULT.CSA_VALID P21OS1 EXPECTED_RESULT.MISC P1DOS2 ACTUAL_RESULT.UADR P1FOS1 ACTUAL_RESULT.CSA_FREE P20OS1 ACTUAL_RESULT.CSA_VALID P21OS1 ACTUAL_RESULT.MISC 22 00 1D 1D 00 00 00 00 2E 44 39 40 00 FF FF FF FF FF 18 18 19 38 2C 64 B1 C5 36 22 66 5C 9F 20 20 1A DA B0 1D 42 BC 51 2C C4 00 59 C4 00 58 91 40 00 1B 2C 1A BC 3B 02 DA B2 1D 34 97 FF 20 DA B0 1D 42 BC 3C BC 62 38 5F DA BF 34 2D 36 63 DA BB 34 2D DA B2 1D 34 56 1B 48 91 40 00 1B 9F 20 4D 16 2C«nul»