|
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: M32, TextFile
Names: »OVERWRITE_NOVRAM.M32«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »OVERWRITE_NOVRAM.M32«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »OVERWRITE_NOVRAM.M32«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »OVERWRITE_NOVRAM.M32«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 1cc3abba513a9614 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 20 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
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 50 .CODE 0x50
19 31 .CODE 0x31
1a 00 .DATA 0x0 ; P1AIS1 ADDR
1b 00 .DATA 0x0 ; P1BIS1 DATA
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 7f .DATA 0x7f
1f aa .DATA 0xaa
20 EXPERIMENT:
20 a6 01 1a LEFT.0 #0x1,0x1a,[0x1]
23 18 CALL 0x50
24 8f 00 1a MOV #0x00,0x1a
27 19 CALL 0x31
28 54 1e 27 DJNZ 0x1e,0x27
2b 8e 1f 1b MOV 0x1f,0x1b
2e 18 CALL 0x50
2f d8 FSM2
30 5c END
31 ; --------------------------------------------------------------------------------------
31 ; Subroutine
31 ; --------------------------------------------------------------------------------------
31 c0 1a 06 WP2_FSM 0x1a,{06}
34 e1 80 00 P1_RS #0x80,#0x0
37 de 1d RD_P2 0x1d
39 a6 61 1d LEFT.0 #0x4,0x1d,[0x1]
3c bc 07 FSM {07}
3e de 1c RD_P2 0x1c
40 97 0f 1c AND #0x0f,0x1c
43 9a 1d 1c OR 0x1d,0x1c
46 e1 80 c0 P1_RS #0x80,#0xc0
49 9e 1c 1f XOR 0x1c,0x1f
4c 93 02 1a ADD #0x02,0x1a
4f 2c RET
50 ; --------------------------------------------------------------------------------------
50 ; Subroutine
50 ; --------------------------------------------------------------------------------------
50 c0 1a 06 WP2_FSM 0x1a,{06}
53 02 REPEAT #0x02
54 ac 61 1b SR.1 #0x4,0x1b,[0x1]
57 e2 0f 1b P2_RS #0x0f,0x1b
5a e1 c0 00 P1_RS #0xc0,#0x0
5d e1 c0 c0 P1_RS #0xc0,#0xc0
60 bc 07 FSM {07}
62 16 UNTIL
63 93 02 1a ADD #0x02,0x1a
66 2c RET
P1AIS1 ADDR P1BIS1 DATA 20 00 18 18 00 00 00 00 50 31 00 00 00 00 7F AA A6 01 1A 18 8F 00 1A 19 54 1E 27 8E 1F 1B 18 D8 5C C0 1A 06 E1 80 00 DE 1D A6 61 1D BC 07 DE 1C 97 0F 1C 9A 1D 1C E1 80 C0 9E 1C 1F 93 02 1A 2C C0 1A 06 02 AC 61 1B E2 0F 1B E1 C0 00 E1 C0 C0 BC 07 16 93 02 1A 2C«nul»