mirror of https://github.com/zxdos/zxuno.git
Añado soporte A35T al firmware
This commit is contained in:
parent
575324b996
commit
805fe79c86
|
|
@ -416,8 +416,7 @@ star10 add hl, hl
|
||||||
ld (alto fllen), hl
|
ld (alto fllen), hl
|
||||||
ENDIF
|
ENDIF
|
||||||
IF recovery=0
|
IF recovery=0
|
||||||
star11 wreg key_stat, 0
|
star11 ld a, (layout)
|
||||||
ld a, (layout)
|
|
||||||
rr a
|
rr a
|
||||||
ld hl, fines-1
|
ld hl, fines-1
|
||||||
jr z, star12
|
jr z, star12
|
||||||
|
|
@ -525,13 +524,23 @@ star20a cp $72-$1d ; 'r'
|
||||||
ld (contib+1), a
|
ld (contib+1), a
|
||||||
star20b cp $17-$1d ; 'Edit'
|
star20b cp $17-$1d ; 'Edit'
|
||||||
jr nz, star19
|
jr nz, star19
|
||||||
ELSE
|
ELSE
|
||||||
pop af
|
pop af
|
||||||
star21 wreg flash_cs, 0 ; activamos spi, enviando un 0
|
star21 wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_spi, 6 ; envío write enable
|
wreg flash_spi, 6 ; envío write enable
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_spi, 1 ; envío write register status
|
wreg flash_spi, 1 ; envío write register status
|
||||||
|
IF version=3
|
||||||
|
ld hl, $0202
|
||||||
|
ld (menuop), hl
|
||||||
|
ld l, $40
|
||||||
|
out (c), l
|
||||||
|
out (c), 0
|
||||||
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
|
wreg flash_spi, $05 ; envío write register status
|
||||||
|
ELSE
|
||||||
ld hl, $0202
|
ld hl, $0202
|
||||||
ld (menuop), hl
|
ld (menuop), hl
|
||||||
out (c), 0
|
out (c), 0
|
||||||
|
|
@ -539,6 +548,7 @@ star21 wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_spi, $35 ; envío write register status
|
wreg flash_spi, $35 ; envío write register status
|
||||||
|
ENDIF
|
||||||
in a, (c)
|
in a, (c)
|
||||||
in a, (c)
|
in a, (c)
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
|
|
@ -1045,8 +1055,14 @@ runbit ld b, h
|
||||||
ld e, core_addr
|
ld e, core_addr
|
||||||
out (c), e
|
out (c), e
|
||||||
inc b
|
inc b
|
||||||
|
IF version=3
|
||||||
|
ld a, (alto highb+1)
|
||||||
|
out (c), a
|
||||||
|
out (c), h
|
||||||
|
ELSE
|
||||||
out (c), h
|
out (c), h
|
||||||
out (c), l
|
out (c), l
|
||||||
|
ENDIF
|
||||||
out (c), 0
|
out (c), 0
|
||||||
wreg core_boot, 1
|
wreg core_boot, 1
|
||||||
ccon0 ld h, active>>8
|
ccon0 ld h, active>>8
|
||||||
|
|
@ -3093,7 +3109,11 @@ calbi1 ld a, 9
|
||||||
jr nc, calbi2
|
jr nc, calbi2
|
||||||
ld hl, $0b80
|
ld hl, $0b80
|
||||||
calbi2 ld de, $0540
|
calbi2 ld de, $0540
|
||||||
|
calbi3 add hl, de
|
||||||
|
djnz calbi3
|
||||||
|
ret
|
||||||
ELSE
|
ELSE
|
||||||
|
IF version=2
|
||||||
calbi1 ld a, b ;1-69
|
calbi1 ld a, b ;1-69
|
||||||
sub 35
|
sub 35
|
||||||
jr c, calbi2 ;<35 c n
|
jr c, calbi2 ;<35 c n
|
||||||
|
|
@ -3115,10 +3135,21 @@ calbi2 ccf
|
||||||
ld hl, $0240
|
ld hl, $0240
|
||||||
ret z
|
ret z
|
||||||
ld de, $0740
|
ld de, $0740
|
||||||
ENDIF
|
|
||||||
calbi3 add hl, de
|
calbi3 add hl, de
|
||||||
djnz calbi3
|
djnz calbi3
|
||||||
ret
|
ret
|
||||||
|
ELSE
|
||||||
|
calbi1 ld hl, $ff00
|
||||||
|
calbi2 ld de, $0900
|
||||||
|
calbi3 add hl, de
|
||||||
|
djnz calbi3
|
||||||
|
xor a
|
||||||
|
add hl, hl
|
||||||
|
adc a, a
|
||||||
|
ld (alto highb+1), a
|
||||||
|
ret
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
deixl ld (ix+0), e
|
deixl ld (ix+0), e
|
||||||
ld (ix+1), d
|
ld (ix+1), d
|
||||||
|
|
@ -4141,21 +4172,34 @@ wrflsh
|
||||||
pop af
|
pop af
|
||||||
ENDIF
|
ENDIF
|
||||||
wrfls0 ex af, af'
|
wrfls0 ex af, af'
|
||||||
|
xor a
|
||||||
wrfls1 wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wrfls1 wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_spi, 6 ; envío write enable
|
wreg flash_spi, 6 ; envío write enable
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
|
IF version=3
|
||||||
|
wreg flash_spi, $21 ; envío sector erase
|
||||||
|
ld hl, (alto highb)
|
||||||
|
out (c), h
|
||||||
|
ELSE
|
||||||
wreg flash_spi, $20 ; envío sector erase
|
wreg flash_spi, $20 ; envío sector erase
|
||||||
|
ENDIF
|
||||||
out (c), d
|
out (c), d
|
||||||
out (c), e
|
out (c), e
|
||||||
out (c), 0
|
out (c), a
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
wrfls2 call waits5
|
wrfls2 call waits5
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_spi, 6 ; envío write enable
|
wreg flash_spi, 6 ; envío write enable
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
wreg flash_spi, 2 ; page program
|
IF version=3
|
||||||
|
wreg flash_spi, $12 ; envío page program
|
||||||
|
ld hl, (highb)
|
||||||
|
out (c), h
|
||||||
|
ELSE
|
||||||
|
wreg flash_spi, 2 ; envío page program
|
||||||
|
ENDIF
|
||||||
out (c), d
|
out (c), d
|
||||||
out (c), e
|
out (c), e
|
||||||
out (c), a
|
out (c), a
|
||||||
|
|
@ -4374,23 +4418,15 @@ finav
|
||||||
; -----------------------------------------------------------------------------
|
; -----------------------------------------------------------------------------
|
||||||
; Compressed and RCS filtered logo
|
; Compressed and RCS filtered logo
|
||||||
; -----------------------------------------------------------------------------
|
; -----------------------------------------------------------------------------
|
||||||
IF version=1
|
|
||||||
IF vertical=0
|
IF vertical=0
|
||||||
incbin logo256x192.rcs.zx7b
|
incbin logo256x192.rcs.zx7b
|
||||||
|
finlog incbin strings.bin.zx7b
|
||||||
ELSE
|
ELSE
|
||||||
incbin bezel.rcs.zx7b
|
incbin bezel.rcs.zx7b
|
||||||
finbez incbin logo192x256.rcs.zx7b
|
finbez incbin logo192x256.rcs.zx7b
|
||||||
ENDIF
|
|
||||||
ELSE
|
|
||||||
IF vertical=0
|
|
||||||
incbin logo256x192d.rcs.zx7b
|
|
||||||
ELSE
|
|
||||||
incbin bezel.rcs.zx7b
|
|
||||||
finbez incbin logo192x256d.rcs.zx7b
|
|
||||||
ENDIF
|
|
||||||
ENDIF
|
|
||||||
finlog incbin strings.bin.zx7b
|
finlog incbin strings.bin.zx7b
|
||||||
ENDIF
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
; -----------------------------------------------------------------------------
|
; -----------------------------------------------------------------------------
|
||||||
; Compressed messages
|
; Compressed messages
|
||||||
|
|
@ -4402,7 +4438,11 @@ fllen defw $0000, $0000
|
||||||
defw $0540
|
defw $0540
|
||||||
subnn sub 6
|
subnn sub 6
|
||||||
ELSE
|
ELSE
|
||||||
|
IF version=2
|
||||||
defw $0740
|
defw $0740
|
||||||
|
ELSE
|
||||||
|
defw $1200
|
||||||
|
ENDIF
|
||||||
subnn sub 6*4
|
subnn sub 6*4
|
||||||
ENDIF
|
ENDIF
|
||||||
ret
|
ret
|
||||||
|
|
@ -4611,9 +4651,7 @@ loadch
|
||||||
; HL: source address without last byte
|
; HL: source address without last byte
|
||||||
; A: number of pages (256 bytes) to read
|
; A: number of pages (256 bytes) to read
|
||||||
; ------------------------
|
; ------------------------
|
||||||
IF version=1
|
IF version=2
|
||||||
rdflsh push hl
|
|
||||||
ELSE
|
|
||||||
rdflsh push hl
|
rdflsh push hl
|
||||||
push af
|
push af
|
||||||
adc a, a
|
adc a, a
|
||||||
|
|
@ -4625,14 +4663,25 @@ rdflsh push hl
|
||||||
out (c), a
|
out (c), a
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
||||||
pop af
|
pop af
|
||||||
|
ELSE
|
||||||
|
rdflsh ex af, af'
|
||||||
|
push hl
|
||||||
ENDIF
|
ENDIF
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
|
IF version=3
|
||||||
|
wreg flash_spi, $13 ; envio flash_spi un 3, orden de lectura
|
||||||
|
highb ld a, 0
|
||||||
|
out (c), a
|
||||||
|
ELSE
|
||||||
wreg flash_spi, 3 ; envio flash_spi un 3, orden de lectura
|
wreg flash_spi, 3 ; envio flash_spi un 3, orden de lectura
|
||||||
|
ENDIF
|
||||||
pop hl
|
pop hl
|
||||||
push hl
|
push hl
|
||||||
|
xor a
|
||||||
out (c), h
|
out (c), h
|
||||||
out (c), l
|
out (c), l
|
||||||
out (c), 0
|
out (c), a
|
||||||
|
ex af, af'
|
||||||
ex de, hl
|
ex de, hl
|
||||||
in f, (c)
|
in f, (c)
|
||||||
rdfls1 ld e, $20
|
rdfls1 ld e, $20
|
||||||
|
|
@ -4781,6 +4830,7 @@ slot2a ld de, 3
|
||||||
ld e, $c0
|
ld e, $c0
|
||||||
ELSE
|
ELSE
|
||||||
sloti ld l, a
|
sloti ld l, a
|
||||||
|
IF version=2
|
||||||
sub 44 ;-44, -1 -> 0, 43
|
sub 44 ;-44, -1 -> 0, 43
|
||||||
jr nc, sloti
|
jr nc, sloti
|
||||||
ld h, d
|
ld h, d
|
||||||
|
|
@ -4788,6 +4838,11 @@ sloti ld l, a
|
||||||
jr nc, slot2b
|
jr nc, slot2b
|
||||||
ld hl, $0400
|
ld hl, $0400
|
||||||
ld e, a
|
ld e, a
|
||||||
|
ELSE
|
||||||
|
sub 61 ;-44, -1 -> 0, 43
|
||||||
|
jr nc, sloti
|
||||||
|
ld h, d
|
||||||
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
slot2b add hl, de ; $00c0 y 2f80
|
slot2b add hl, de ; $00c0 y 2f80
|
||||||
add hl, hl
|
add hl, hl
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@ cad1 defb 'http://zxuno.speccy.org', 0
|
||||||
ELSE
|
ELSE
|
||||||
cad1 defb 'http://zxdos.forofpga.es', 0
|
cad1 defb 'http://zxdos.forofpga.es', 0
|
||||||
ENDIF
|
ENDIF
|
||||||
defb 'ZX-Uno BIOS v0.76', 0
|
defb 'ZX-Uno BIOS v0.77', 0
|
||||||
defb 'Copyleft ', 127, ' 2018 ZX-Uno Team', 0
|
defb 'Copyleft ', 127, ' 2018 ZX-Uno Team', 0
|
||||||
defb 'Processor: Z80 3.5MHz', 0
|
defb 'Processor: Z80 3.5MHz', 0
|
||||||
defb 'Memory: '
|
defb 'Memory: '
|
||||||
|
|
@ -41,7 +41,7 @@ cad8 defb $10, ' ', $10, ' ', $10, 0
|
||||||
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $18, $11
|
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $18, $11
|
||||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
||||||
defb ' BIOS v0.76 ', $7f, '2018 ZX-Uno Team', 0
|
defb ' BIOS v0.77 ', $7f, '2018 ZX-Uno Team', 0
|
||||||
ELSE
|
ELSE
|
||||||
defb 'Press <Edit> to Setup',0
|
defb 'Press <Edit> to Setup',0
|
||||||
defb ' <Break> Boot Menu', 0
|
defb ' <Break> Boot Menu', 0
|
||||||
|
|
@ -72,7 +72,7 @@ cad8 defb $10, ' ', $10, 0
|
||||||
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||||
defb $11, $11, $11, $11
|
defb $11, $11, $11, $11
|
||||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
||||||
defb ' BIOS v0.76 ', $7f, '2018 ZX1 Team', 0
|
defb ' BIOS v0.77 ', $7f, '2018 ZX1 Team', 0
|
||||||
defs $66
|
defs $66
|
||||||
ENDIF
|
ENDIF
|
||||||
cad10 defb 'Hardware tests', 0
|
cad10 defb 'Hardware tests', 0
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue