mirror of https://github.com/zxdos/zxuno.git
Arreglo bug
This commit is contained in:
parent
04073f59fc
commit
1333fd2a82
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -441,13 +441,14 @@ star14 inc b
|
||||||
bit 4, h ; compruebo si la direccion es D000 (final)
|
bit 4, h ; compruebo si la direccion es D000 (final)
|
||||||
jr z, star14 ; repito si no lo es
|
jr z, star14 ; repito si no lo es
|
||||||
star15 ld a, (quietb)
|
star15 ld a, (quietb)
|
||||||
or 1
|
inc a
|
||||||
rlca
|
ld d, 1
|
||||||
rlca
|
star1a rlc d
|
||||||
ld d, a
|
dec a
|
||||||
|
jr nz, star1a
|
||||||
pop af
|
pop af
|
||||||
jr nz, star16
|
jr nz, star16
|
||||||
ld d, 16
|
set 4, d
|
||||||
star16 djnz star18
|
star16 djnz star18
|
||||||
dec de
|
dec de
|
||||||
ld a, d
|
ld a, d
|
||||||
|
@ -3003,7 +3004,7 @@ exit4 djnz exit5
|
||||||
exit5 djnz exit6
|
exit5 djnz exit6
|
||||||
jp alto loadch
|
jp alto loadch
|
||||||
exit6 call savech
|
exit6 call savech
|
||||||
exit7 jp star11
|
exit7 jp star17
|
||||||
|
|
||||||
;++++++++++++++++++++++++++++++++++
|
;++++++++++++++++++++++++++++++++++
|
||||||
;++++++++ Boot list ++++++++
|
;++++++++ Boot list ++++++++
|
||||||
|
|
Loading…
Reference in New Issue