mirror of https://github.com/zxdos/zxuno.git
actualizo
This commit is contained in:
antoniovillena
parent
6fa76f4472
commit
fdbfc815fb
Binary file not shown.
|
|
@ -1,6 +1,5 @@
|
||||||
include version.asm
|
include version.asm
|
||||||
define LX16 $32
|
define recovery 1
|
||||||
define recovery 0
|
|
||||||
define recodire 0
|
define recodire 0
|
||||||
define zesarux 0
|
define zesarux 0
|
||||||
define vertical 0
|
define vertical 0
|
||||||
|
|
@ -490,7 +489,11 @@ runbit0 ld a, l
|
||||||
IF version=2
|
IF version=2
|
||||||
cp 69
|
cp 69
|
||||||
ELSE
|
ELSE
|
||||||
cp 56
|
IF version=3
|
||||||
|
cp 40
|
||||||
|
ELSE
|
||||||
|
cp 56
|
||||||
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
jr z, bios
|
jr z, bios
|
||||||
|
|
@ -531,7 +534,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, 1 ; envío write register status
|
wreg flash_spi, 1 ; envío write register status
|
||||||
IF version=3
|
IF version=4
|
||||||
ld hl, $0202
|
ld hl, $0202
|
||||||
ld (menuop), hl
|
ld (menuop), hl
|
||||||
ld l, $40
|
ld l, $40
|
||||||
|
|
@ -1051,6 +1054,7 @@ conti di
|
||||||
jr z, ccon0
|
jr z, ccon0
|
||||||
runbit ld b, h
|
runbit ld b, h
|
||||||
call calbit
|
call calbit
|
||||||
|
|
||||||
ld bc, zxuno_port
|
ld bc, zxuno_port
|
||||||
ld e, core_addr
|
ld e, core_addr
|
||||||
out (c), e
|
out (c), e
|
||||||
|
|
@ -2343,8 +2347,8 @@ rotp call readat0 ; read 512 bytes of entries (16 entries)
|
||||||
erfnf ld ix, cad78
|
erfnf ld ix, cad78
|
||||||
terror jp ferror
|
terror jp ferror
|
||||||
saba
|
saba
|
||||||
IF version=2
|
IF version=3
|
||||||
sub LX16
|
sub 'D'
|
||||||
ELSE
|
ELSE
|
||||||
sub $30+version
|
sub $30+version
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
@ -2430,8 +2434,8 @@ otve call readata
|
||||||
erfnf2 jp erfnf
|
erfnf2 jp erfnf
|
||||||
sabe pop bc
|
sabe pop bc
|
||||||
pop hl
|
pop hl
|
||||||
IF version=2
|
IF version=3
|
||||||
sub LX16
|
sub 'D'
|
||||||
ELSE
|
ELSE
|
||||||
sub $30+version
|
sub $30+version
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
@ -3113,32 +3117,7 @@ calbi3 add hl, de
|
||||||
djnz calbi3
|
djnz calbi3
|
||||||
ret
|
ret
|
||||||
ELSE
|
ELSE
|
||||||
IF version=2
|
IF version=4
|
||||||
calbi1 ld a, b ;1-69
|
|
||||||
sub 35
|
|
||||||
jr c, calbi2 ;<35 c n
|
|
||||||
ld b, a ;>=35 nc n-35
|
|
||||||
calbi2 ccf
|
|
||||||
push bc
|
|
||||||
push af
|
|
||||||
adc a, a
|
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
|
||||||
wreg flash_spi, 6 ; envío write enable
|
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
|
||||||
wreg flash_spi, $c5 ; envío wrear
|
|
||||||
out (c), a
|
|
||||||
wreg flash_cs, 1 ; desactivamos spi, enviando un 1
|
|
||||||
pop af
|
|
||||||
or a
|
|
||||||
pop bc
|
|
||||||
ld hl, $0240
|
|
||||||
ret z
|
|
||||||
ld de, $0740
|
|
||||||
calbi3 add hl, de
|
|
||||||
djnz calbi3
|
|
||||||
ret
|
|
||||||
ELSE
|
|
||||||
calbi1 ld hl, $ff00
|
calbi1 ld hl, $ff00
|
||||||
calbi2 ld de, $0900
|
calbi2 ld de, $0900
|
||||||
calbi3 add hl, de
|
calbi3 add hl, de
|
||||||
|
|
@ -3148,6 +3127,30 @@ calbi3 add hl, de
|
||||||
adc a, a
|
adc a, a
|
||||||
ld (alto highb+1), a
|
ld (alto highb+1), a
|
||||||
ret
|
ret
|
||||||
|
ELSE
|
||||||
|
IF version=2
|
||||||
|
calbi1 ld a, b ;1-69
|
||||||
|
sub 35
|
||||||
|
jr c, calbi2 ;<35 c n
|
||||||
|
ld b, a ;>=35 nc n-35
|
||||||
|
calbi2 ld hl, $0240
|
||||||
|
ret z
|
||||||
|
ld de, $0740
|
||||||
|
calbi3 add hl, de
|
||||||
|
djnz calbi3
|
||||||
|
ret
|
||||||
|
ELSE
|
||||||
|
calbi1 ld a, b ;1-40
|
||||||
|
sub 20
|
||||||
|
jr c, calbi2 ;<20 c n
|
||||||
|
ld b, a ;>=20 nc n-20
|
||||||
|
calbi2 ld hl, $fec0
|
||||||
|
ret z
|
||||||
|
ld de, $0c40
|
||||||
|
calbi3 add hl, de
|
||||||
|
djnz calbi3
|
||||||
|
ret
|
||||||
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
|
|
@ -4135,7 +4138,7 @@ calcu add hl, hl
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
savena
|
savena
|
||||||
IF version=2
|
IF version=2 OR version=3
|
||||||
ld b, 1
|
ld b, 1
|
||||||
call calbit
|
call calbit
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
@ -4169,7 +4172,7 @@ 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
|
IF version>1
|
||||||
wreg flash_spi, $21 ; envío sector erase
|
wreg flash_spi, $21 ; envío sector erase
|
||||||
ld hl, (alto highb)
|
ld hl, (alto highb)
|
||||||
out (c), h
|
out (c), h
|
||||||
|
|
@ -4185,7 +4188,7 @@ wrfls2 call waits5
|
||||||
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
|
IF version>1
|
||||||
wreg flash_spi, $12 ; envío page program
|
wreg flash_spi, $12 ; envío page program
|
||||||
ld hl, (highb)
|
ld hl, (highb)
|
||||||
out (c), h
|
out (c), h
|
||||||
|
|
@ -4411,11 +4414,23 @@ finav
|
||||||
; Compressed and RCS filtered logo
|
; Compressed and RCS filtered logo
|
||||||
; -----------------------------------------------------------------------------
|
; -----------------------------------------------------------------------------
|
||||||
IF vertical=0
|
IF vertical=0
|
||||||
incbin logo256x192.rcs.zx7b
|
IF version=1
|
||||||
|
incbin logo256x192.rcs.zx7b
|
||||||
|
ELSE
|
||||||
|
IF version=2
|
||||||
|
incbin logo256x192d.rcs.zx7b
|
||||||
|
ELSE
|
||||||
|
incbin logo256x192dp.rcs.zx7b
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
finlog incbin strings.bin.zx7b
|
finlog incbin strings.bin.zx7b
|
||||||
ELSE
|
ELSE
|
||||||
incbin bezel.rcs.zx7b
|
incbin bezel.rcs.zx7b
|
||||||
finbez incbin logo192x256.rcs.zx7b
|
IF version=1
|
||||||
|
finbez incbin logo192x256.rcs.zx7b
|
||||||
|
ELSE
|
||||||
|
finbez incbin logo192x256d.rcs.zx7b
|
||||||
|
ENDIF
|
||||||
finlog incbin strings.bin.zx7b
|
finlog incbin strings.bin.zx7b
|
||||||
ENDIF
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
@ -4430,10 +4445,10 @@ fllen defw $0000, $0000
|
||||||
defw $0540
|
defw $0540
|
||||||
subnn sub 6
|
subnn sub 6
|
||||||
ELSE
|
ELSE
|
||||||
IF version=2
|
IF version=4
|
||||||
defw $0740
|
|
||||||
ELSE
|
|
||||||
defw $1200
|
defw $1200
|
||||||
|
ELSE
|
||||||
|
defw $0740
|
||||||
ENDIF
|
ENDIF
|
||||||
subnn sub 6*4
|
subnn sub 6*4
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
@ -4627,9 +4642,9 @@ easter di
|
||||||
; Load flash structures from $06000 to $9000
|
; Load flash structures from $06000 to $9000
|
||||||
; ------------------------
|
; ------------------------
|
||||||
loadch
|
loadch
|
||||||
IF version=2
|
; IF version=2
|
||||||
and a
|
; and a
|
||||||
ENDIF
|
; ENDIF
|
||||||
wreg flash_cs, 1
|
wreg flash_cs, 1
|
||||||
ld de, config
|
ld de, config
|
||||||
ld hl, $0060 ;old $0aa0
|
ld hl, $0060 ;old $0aa0
|
||||||
|
|
@ -4646,7 +4661,7 @@ loadch
|
||||||
rdflsh ex af, af'
|
rdflsh ex af, af'
|
||||||
push hl
|
push hl
|
||||||
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
wreg flash_cs, 0 ; activamos spi, enviando un 0
|
||||||
IF version=3
|
IF version>1
|
||||||
wreg flash_spi, $13 ; envio flash_spi un 3, orden de lectura
|
wreg flash_spi, $13 ; envio flash_spi un 3, orden de lectura
|
||||||
highb ld a, 0
|
highb ld a, 0
|
||||||
out (c), a
|
out (c), a
|
||||||
|
|
@ -4808,7 +4823,12 @@ slot2a ld de, 3
|
||||||
ld e, $c0
|
ld e, $c0
|
||||||
ELSE
|
ELSE
|
||||||
sloti ld l, a
|
sloti ld l, a
|
||||||
IF version=2
|
IF version=4
|
||||||
|
sub 61 ;-44, -1 -> 0, 43
|
||||||
|
jr nc, sloti
|
||||||
|
ld h, d
|
||||||
|
ELSE
|
||||||
|
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
|
||||||
|
|
@ -4816,10 +4836,15 @@ sloti ld l, a
|
||||||
jr nc, slot2b
|
jr nc, slot2b
|
||||||
ld hl, $0400
|
ld hl, $0400
|
||||||
ld e, a
|
ld e, a
|
||||||
ELSE
|
ELSE
|
||||||
sub 61 ;-44, -1 -> 0, 43
|
and $3f
|
||||||
jr nc, sloti
|
|
||||||
ld h, d
|
ld h, d
|
||||||
|
ld l, a
|
||||||
|
cp 41
|
||||||
|
jr c, slot2b
|
||||||
|
sub 41
|
||||||
|
ld e, d
|
||||||
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
ENDIF
|
ENDIF
|
||||||
slot2b add hl, de ; $00c0 y 2f80
|
slot2b add hl, de ; $00c0 y 2f80
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue