mirror of https://github.com/zxdos/zxuno.git
Actualizo
This commit is contained in:
parent
c6831507d7
commit
b4658e919b
|
@ -51,7 +51,8 @@ FileFound ld l, 0
|
|||
dz 'Flash error'
|
||||
jr Next
|
||||
nfallo halt
|
||||
jr Verify;call hex
|
||||
halt
|
||||
;jr Verify;call hex
|
||||
ld ixl, 0
|
||||
ld de, $0000
|
||||
exx
|
||||
|
@ -60,7 +61,11 @@ Bucle ld a, ixl
|
|||
and $0f
|
||||
jr nz, punto
|
||||
ld a, '.'
|
||||
exx
|
||||
push de
|
||||
rst $10
|
||||
pop de
|
||||
exx
|
||||
punto ld hl, $8000
|
||||
ld bc, $4000
|
||||
handle ld a, 0
|
||||
|
@ -79,6 +84,9 @@ ReadOK ld a, $40
|
|||
dec ixl
|
||||
jr nz, Bucle
|
||||
|
||||
halt
|
||||
halt
|
||||
|
||||
Verify ld de, $8000
|
||||
ld hl, $0040
|
||||
ld a, 2
|
||||
|
@ -98,6 +106,9 @@ Verify1 ex de, hl
|
|||
call hex
|
||||
ld a, l
|
||||
call hex
|
||||
halt
|
||||
halt
|
||||
|
||||
; ld de, $371a
|
||||
; sbc hl, de
|
||||
; jr z, Next
|
||||
|
|
Loading…
Reference in New Issue