falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Actualizo

This commit is contained in:
antoniovillena 2016-07-17 03:40:54 +02:00
parent c6831507d7
commit b4658e919b
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
firmware/scroll/upgrade.asm
View File

@ -51,7 +51,8 @@ FileFound ld l, 0
dz 'Flash error' dz 'Flash error'
jr Next jr Next
nfallo halt nfallo halt
jr Verify;call hex halt
;jr Verify;call hex
ld ixl, 0 ld ixl, 0
ld de, $0000 ld de, $0000
exx exx
@ -60,7 +61,11 @@ Bucle ld a, ixl
and $0f and $0f
jr nz, punto jr nz, punto
ld a, '.' ld a, '.'
exx
push de
rst $10 rst $10
pop de
exx
punto ld hl, $8000 punto ld hl, $8000
ld bc, $4000 ld bc, $4000
handle ld a, 0 handle ld a, 0
@ -79,6 +84,9 @@ ReadOK ld a, $40
dec ixl dec ixl
jr nz, Bucle jr nz, Bucle
halt
halt
Verify ld de, $8000 Verify ld de, $8000
ld hl, $0040 ld hl, $0040
ld a, 2 ld a, 2
@ -98,6 +106,9 @@ Verify1 ex de, hl
call hex call hex
ld a, l ld a, l
call hex call hex
halt
halt
; ld de, $371a ; ld de, $371a
; sbc hl, de ; sbc hl, de
; jr z, Next ; jr z, Next