mirror of https://github.com/zxdos/zxuno.git
Arreglo bug selección ROM y permito pulsar Esc todas las veces que quiera
This commit is contained in:
parent
b92bc57e4d
commit
285c6ab648
|
@ -2407,7 +2407,7 @@ blst1 ld h, a
|
|||
rra
|
||||
ld l, a
|
||||
ld a, h
|
||||
add a, 8
|
||||
add a, 7
|
||||
ld e, a
|
||||
ld a, %01001111 ; fondo azul tinta blanca
|
||||
ld h, $01 ; coordenada X
|
||||
|
@ -2432,7 +2432,6 @@ blst2 ld ix, cad4
|
|||
call_prnstr
|
||||
call_prnstr
|
||||
call_prnstr
|
||||
call_prnstr
|
||||
ld hl, cad62
|
||||
ld (cmbpnt), hl
|
||||
ld iy, indexe
|
||||
|
@ -2464,7 +2463,7 @@ bls37 ld (ix+0), cad6&$ff
|
|||
defw $1a02
|
||||
defb %01001111
|
||||
ld a, (cmbpnt+1)
|
||||
rrca
|
||||
rlca
|
||||
ld hl, (active)
|
||||
ld a, h
|
||||
jr c, bls38
|
||||
|
@ -2474,9 +2473,10 @@ bls38 pop hl
|
|||
blst4 call combol
|
||||
ld b, a
|
||||
ld a, (codcnt)
|
||||
cp $0d
|
||||
sub $0d
|
||||
ld (bitstr), a
|
||||
ld a, b
|
||||
jr c, blst5
|
||||
; jr c, blst5
|
||||
jr nz, blst4
|
||||
ld a, (items)
|
||||
dec a
|
||||
|
@ -2484,7 +2484,7 @@ blst4 call combol
|
|||
ld a, $17
|
||||
jp z, bios
|
||||
ld a, (cmbpnt+1)
|
||||
rrca
|
||||
rlca
|
||||
ld a, b
|
||||
ld (active), a
|
||||
jr nc, blst5
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
cad0 defb 'Core: ',0
|
||||
cad1 defm 'http://zxuno.speccy.org', 0
|
||||
defm 'ZX-Uno BIOS v0.61', 0
|
||||
defm 'ZX-Uno BIOS v0.62', 0
|
||||
defm 'Copyleft ', 127, ' 2017 ZX-Uno Team', 0
|
||||
defm 'Processor: Z80 3.5MHz', 0
|
||||
defm 'Memory: 512K Ok', 0
|
||||
|
@ -20,7 +20,6 @@ cad3 defb $16, $11, $11, $11, $11, $11, $11, $11, $11
|
|||
cad4 defm $10, ' ', $10, 0
|
||||
cad5 defm $10, ' ', $1c, ' and ', $1d, ' to move selection ', $10, 0
|
||||
defm $10, ' ENTER to select boot machine ', $10, 0
|
||||
defm $10, ' ESC to boot using defaults ', $10, 0
|
||||
defb $14, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
|
@ -35,7 +34,7 @@ cad8 defm $10, ' ', $10, ' ', $10, 0
|
|||
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $18, $11
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
||||
defb ' BIOS v0.61 ', $7f, '2017 ZX-Uno Team', 0
|
||||
defb ' BIOS v0.62 ', $7f, '2017 ZX-Uno Team', 0
|
||||
cad10 defb 'Hardware tests', 0
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
defb $11, $11, $11, $11, 0
|
||||
|
|
Loading…
Reference in New Issue