mirror of https://github.com/zxdos/zxuno.git
Arreglo pequeño bug
This commit is contained in:
parent
19006b4fbb
commit
52c975c98f
|
@ -327,6 +327,7 @@ star33 in a, (c)
|
||||||
jr z, star37
|
jr z, star37
|
||||||
dec a
|
dec a
|
||||||
call cbname
|
call cbname
|
||||||
|
xor a
|
||||||
jr star38
|
jr star38
|
||||||
star37 dec l
|
star37 dec l
|
||||||
ld l, (hl)
|
ld l, (hl)
|
||||||
|
@ -426,7 +427,7 @@ tstart5 sub $80
|
||||||
sub '1'
|
sub '1'
|
||||||
cp 9
|
cp 9
|
||||||
ld h, a
|
ld h, a
|
||||||
jp c, runbit1
|
jp c, runbit
|
||||||
jp z, alto easter
|
jp z, alto easter
|
||||||
cp $19-'1'
|
cp $19-'1'
|
||||||
jr z, start7
|
jr z, start7
|
||||||
|
@ -628,15 +629,7 @@ conti2 adc a, a ; 0 0 MODE1 /DISCONT MODE0 /I2KB /DISNMI DIVEN
|
||||||
xor %10101100 ; LOCK MODE1 DISCONT MODE0 I2KB DISNMI DIVEN 0
|
xor %10101100 ; LOCK MODE1 DISCONT MODE0 I2KB DISNMI DIVEN 0
|
||||||
ld (alto conti9+1), a
|
ld (alto conti9+1), a
|
||||||
jp alto micont
|
jp alto micont
|
||||||
runbit ;ld bc, zxuno_port
|
runbit ld b, h
|
||||||
; ld e, core_addr
|
|
||||||
; out (c), e
|
|
||||||
; inc b
|
|
||||||
; in l, (c)
|
|
||||||
; in a, (c)
|
|
||||||
; or l
|
|
||||||
; jr nz, ccon0 ; descomentar cuando esté implementada lectura coreaddr
|
|
||||||
runbit1 ld b, h
|
|
||||||
call calbit
|
call calbit
|
||||||
ld bc, zxuno_port
|
ld bc, zxuno_port
|
||||||
ld e, core_addr
|
ld e, core_addr
|
||||||
|
|
Loading…
Reference in New Issue