mirror of https://github.com/zxdos/zxuno.git
Actualizo upgrade
This commit is contained in:
antoniovillena
parent
f2dd497e9c
commit
c6831507d7
|
|
@ -5,6 +5,7 @@
|
|||
define F_OPEN 0x9a
|
||||
define F_CLOSE 0x9b
|
||||
define F_READ 0x9d
|
||||
define F_SEEK 0x9f
|
||||
|
||||
define zxuno_port $fc3b
|
||||
define flash_spi 2
|
||||
|
|
@ -28,22 +29,46 @@ SDCard ld b, FA_READ ; B = modo de apertura
|
|||
ld hl, FileName ; HL = Puntero al nombre del fichero (ASCIIZ)
|
||||
rst $08
|
||||
db F_OPEN
|
||||
ld (handle+1), a
|
||||
jr nc, FileFound
|
||||
call Print
|
||||
dz 'File FLASH not found'
|
||||
ret
|
||||
FileFound ld ixl, 0
|
||||
FileFound ld l, 0
|
||||
ld bc, 0
|
||||
ld de, 0
|
||||
rst $08
|
||||
db F_SEEK
|
||||
call Print
|
||||
dz 'No '
|
||||
ld a, (puerto+2)
|
||||
add a, $30
|
||||
rst $10
|
||||
call repe
|
||||
jr nz, nfallo
|
||||
; call hex
|
||||
call Print
|
||||
dz 'Flash error'
|
||||
jr Next
|
||||
nfallo halt
|
||||
jr Verify;call hex
|
||||
ld ixl, 0
|
||||
ld de, $0000
|
||||
exx
|
||||
Bucle ld hl, $8000
|
||||
Bucle ld a, ixl
|
||||
inc a
|
||||
and $0f
|
||||
jr nz, punto
|
||||
ld a, '.'
|
||||
rst $10
|
||||
punto ld hl, $8000
|
||||
ld bc, $4000
|
||||
push af
|
||||
handle ld a, 0
|
||||
rst $08
|
||||
db F_READ
|
||||
jr nc, ReadOK
|
||||
call Print
|
||||
dz 'Read Error'
|
||||
pop af
|
||||
ret
|
||||
ReadOK ld a, $40
|
||||
ld hl, $8000
|
||||
|
|
@ -51,9 +76,41 @@ ReadOK ld a, $40
|
|||
call wrflsh
|
||||
inc de
|
||||
exx
|
||||
pop af
|
||||
dec ixl
|
||||
jr nz, Bucle
|
||||
|
||||
Verify ld de, $8000
|
||||
ld hl, $0040
|
||||
ld a, 2
|
||||
call rdflsh
|
||||
ld de, $8000
|
||||
ld hl, 0
|
||||
Verify1 ex de, hl
|
||||
ld c, (hl)
|
||||
inc l
|
||||
ld b, (hl)
|
||||
inc hl
|
||||
ex de, hl
|
||||
add hl, bc
|
||||
bit 1, d
|
||||
jr z, Verify1
|
||||
ld a, h
|
||||
call hex
|
||||
ld a, l
|
||||
call hex
|
||||
; ld de, $371a
|
||||
; sbc hl, de
|
||||
; jr z, Next
|
||||
; call Print
|
||||
; dz 'CRC Error'
|
||||
Next ld a, 13
|
||||
rst $10
|
||||
ld a, (puerto+2)
|
||||
inc a
|
||||
ld (puerto+2), a
|
||||
cp $10
|
||||
ld a, (handle+1)
|
||||
jp nz, FileFound
|
||||
rst $08
|
||||
db F_CLOSE
|
||||
ret
|
||||
|
|
@ -76,20 +133,20 @@ Print1 rst $10
|
|||
; HL': source address from memory
|
||||
; ------------------------
|
||||
wrflsh ex af, af'
|
||||
wrfls1 call flashcs
|
||||
wrfls1 call puerto
|
||||
wreg flash_spi, 6 ; envío write enable
|
||||
call puerto
|
||||
call flashcs
|
||||
call puerto
|
||||
wreg flash_spi, $20 ; envío sector erase
|
||||
out (c), d
|
||||
out (c), e
|
||||
out (c), a
|
||||
call puerto
|
||||
call flashcs
|
||||
wrfls2 call waits5
|
||||
call flashcs
|
||||
wreg flash_spi, 6 ; envío write enable
|
||||
call puerto
|
||||
wreg flash_spi, 6 ; envío write enable
|
||||
call flashcs
|
||||
call puerto
|
||||
wreg flash_spi, 2 ; page program
|
||||
out (c), d
|
||||
out (c), e
|
||||
|
|
@ -116,7 +173,7 @@ wrfls3 inc b
|
|||
dec a
|
||||
jr nz, wrfls3
|
||||
exx
|
||||
call puerto
|
||||
call flashcs
|
||||
ex af, af'
|
||||
dec a
|
||||
jr z, waits5
|
||||
|
|
@ -127,35 +184,40 @@ wrfls3 inc b
|
|||
jr nz, wrfls2
|
||||
ld hl, wrfls1
|
||||
push hl
|
||||
waits5 call flashcs
|
||||
waits5 call puerto
|
||||
wreg flash_spi, 5 ; envío read status
|
||||
in a, (c)
|
||||
waits6 in a, (c)
|
||||
and 1
|
||||
jr nz, waits6
|
||||
|
||||
puerto ld a, 0
|
||||
flashcs push af
|
||||
ld a, (puerto+2)
|
||||
rrca
|
||||
jr c, flashcs1
|
||||
wreg flash_cs, $ff
|
||||
pop af
|
||||
ret
|
||||
flashcs1 wreg flash_cs+1, $ff
|
||||
pop af
|
||||
ret
|
||||
|
||||
puerto push af
|
||||
ld a, 0
|
||||
srl a
|
||||
push af
|
||||
dec b
|
||||
sbc a, a
|
||||
adc a, flash_cs+1
|
||||
ld bc, zxuno_port
|
||||
ld a, flash_cs
|
||||
adc a, 0
|
||||
out (c), a
|
||||
pop bc
|
||||
inc b
|
||||
ld a, $80
|
||||
ld a, $7f
|
||||
puerto1 rlca
|
||||
djnz puerto1
|
||||
ld bc, zxuno_port
|
||||
ld bc, zxuno_port + $100
|
||||
out (c), a
|
||||
ret
|
||||
|
||||
flashcs ld a, (puerto+1)
|
||||
rrca
|
||||
jr c, flashcs1
|
||||
wreg flash_cs+1, 0
|
||||
ret
|
||||
flashcs1 wreg flash_cs, 0
|
||||
pop af
|
||||
ret
|
||||
|
||||
rst28 ld bc, zxuno_port + $100
|
||||
|
|
@ -165,4 +227,90 @@ rst28 ld bc, zxuno_port + $100
|
|||
outi
|
||||
jp (hl)
|
||||
|
||||
repe ld e, 0
|
||||
repe1 call puerto
|
||||
wreg flash_spi, 6 ; envío write enable
|
||||
call flashcs
|
||||
call puerto
|
||||
wreg flash_spi, 1 ; envío write register status
|
||||
out (c), 0
|
||||
ld a, 2
|
||||
out (c), a
|
||||
call flashcs
|
||||
call puerto
|
||||
wreg flash_spi, $35 ; envío write register status
|
||||
in a, (c)
|
||||
in a, (c)
|
||||
call flashcs
|
||||
and 2
|
||||
ret nz
|
||||
dec e
|
||||
jr nz, repe1
|
||||
ret
|
||||
|
||||
; ------------------------
|
||||
; Read from SPI flash
|
||||
; Parameters:
|
||||
; DE: destination address
|
||||
; HL: source address without last byte
|
||||
; A: number of pages (256 bytes) to read
|
||||
; ------------------------
|
||||
rdflsh ex af, af'
|
||||
xor a
|
||||
push hl
|
||||
call puerto
|
||||
wreg flash_spi, 3 ; envio flash_spi un 3, orden de lectura
|
||||
pop hl
|
||||
push hl
|
||||
out (c), h
|
||||
out (c), l
|
||||
out (c), a
|
||||
ex af, af'
|
||||
ex de, hl
|
||||
in f, (c)
|
||||
rdfls1 ld e, $20
|
||||
rdfls2 ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
ini
|
||||
inc b
|
||||
dec e
|
||||
jr nz, rdfls2
|
||||
dec a
|
||||
jr nz, rdfls1
|
||||
call flashcs
|
||||
pop hl
|
||||
ret
|
||||
|
||||
hex push af
|
||||
and $f0
|
||||
rrca
|
||||
rrca
|
||||
rrca
|
||||
rrca
|
||||
cp $0a
|
||||
jr c, mayo
|
||||
add a, 7
|
||||
mayo add a, $30
|
||||
rst $10
|
||||
pop af
|
||||
and $0f
|
||||
cp $0a
|
||||
jr c, maya
|
||||
add a, 7
|
||||
maya add a, $30
|
||||
rst $10
|
||||
ret
|
||||
|
||||
FileName dz 'FLASH.ZX1'
|
||||
|
|
|
|||
Loading…
Reference in New Issue