|
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: »END_OVERWRITE.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »END_OVERWRITE.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »END_OVERWRITE.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »END_OVERWRITE.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 6c5eebe14e41d683 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 22 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
12 R2_:
12 1c .DATA 0x1c
13 R3_:
13 1f .DATA 0x1f
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 53 .CODE 0x53
19 38 .CODE 0x38
1a 65 .CODE 0x65
1b 00 .DATA 0x0 ; P1BIS1 ADDR
1c 00 .DATA 0x0
1d 00 .DATA 0x0 ; P1DIS1 DATA
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 7e .DATA 0x7e
21 aa .DATA 0xaa
22 EXPERIMENT:
22 8e 1b 1c MOV 0x1b,0x1c
25 a6 01 1c LEFT.0 #0x1,0x1c,[0x1]
28 18 CALL 0x53
29 8f 00 1c MOV #0x00,0x1c
2c 19 CALL 0x38
2d 58 20 2c DJNN 0x20,0x2c
30 8f fe 1c MOV #0xfe,0x1c
33 8e 21 1d MOV 0x21,0x1d
36 18 CALL 0x53
37 5c END
38 ; --------------------------------------------------------------------------------------
38 ; Subroutine
38 ; --------------------------------------------------------------------------------------
38 1a CALL 0x65
39 cc 78 1e RFSM.H {78},0x1e
3c 97 f0 1e AND #0xf0,0x1e
3f 82 1c INC 0x1c
41 1a CALL 0x65
42 cd 78 RFSM.H {78},@R3
44 a8 61 1f SR.0 #0x4,0x1f,[0x1]
47 97 0f 1f AND #0x0f,0x1f
4a 9a 1f 1e OR 0x1f,0x1e
4d 82 1c INC 0x1c
4f 9e 1e 21 XOR 0x1e,0x21
52 2c RET
53 ; --------------------------------------------------------------------------------------
53 ; Subroutine
53 ; --------------------------------------------------------------------------------------
53 1a CALL 0x65
54 8e 1d 1f MOV 0x1d,0x1f
57 c0 1f 79 WP2_FSM 0x1f,{79}
5a 82 1c INC 0x1c
5c 1a CALL 0x65
5d a6 61 1d LEFT.0 #0x4,0x1d,[0x1]
60 c0 1d 79 WP2_FSM 0x1d,{79}
63 5c END
65 ; --------------------------------------------------------------------------------------
65 ; Subroutine
65 ; --------------------------------------------------------------------------------------
65 10 REPEAT #0x10
66 be 1c 40 WP1_FSM 0x1c,{40}
69 16 UNTIL
6a 2c RET
P1BIS1 ADDR P1DIS1 DATA 22 00 1C 1F 00 00 00 00 53 38 65 00 00 00 00 00 7E AA 8E 1B 1C A6 01 1C 18 8F 00 1C 19 58 20 2C 8F FE 1C 8E 21 1D 18 5C 1A CC 78 1E 97 F0 1E 82 1C 1A CD 78 A8 61 1F 97 0F 1F 9A 1F 1E 82 1C 9E 1E 21 2C 1A 8E 1D 1F C0 1F 79 82 1C 1A A6 61 1D C0 1D 79 5C 2C 10 BE 1C 40 16 2C«nul»