diff --git a/firmware/firmware.asm b/firmware/firmware.asm index e7b6540..01f9568 100644 --- a/firmware/firmware.asm +++ b/firmware/firmware.asm @@ -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 diff --git a/firmware/strings.asm b/firmware/strings.asm index 01671fc..3717462 100644 --- a/firmware/strings.asm +++ b/firmware/strings.asm @@ -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