mirror of https://github.com/zxdos/zxuno.git
Cambios:
-Compatible mapas teclado EXP26. ¡¡¡ATENCIÓN!!! Incompatible con cores anteriores. -Arreglado bug del lanzador de cores. -Detecta 2M de RAM si el core lo permite. -Añadido soporte NTSC.
This commit is contained in:
parent
9b5e43c709
commit
a27546ba9c
Binary file not shown.
BIN
firmware/av.zx7b
BIN
firmware/av.zx7b
Binary file not shown.
BIN
firmware/es.zx7b
BIN
firmware/es.zx7b
Binary file not shown.
|
|
@ -245,10 +245,15 @@ start ld bc, chrend-sdtab
|
|||
inc b
|
||||
ld hl, (scanli)
|
||||
rrc l
|
||||
add hl, hl
|
||||
ld a, (outvid)
|
||||
; rrca
|
||||
rrca
|
||||
rrca
|
||||
jr c, start0
|
||||
rlca
|
||||
ld l, a
|
||||
start0 ex af, af'
|
||||
add hl, hl
|
||||
ex af, af'
|
||||
ld a, h
|
||||
adc a, a
|
||||
or %10100000 ; $A0 - Turbo 14Mhz, COPT=1 (PAL Sync) - es $c0 en el firmware oficial
|
||||
|
|
@ -295,6 +300,16 @@ start5 in a, (c)
|
|||
inc hl
|
||||
ld ix, cad0 ; imprimir cadena
|
||||
jr nz, start5 ; si no recibimos un 0 seguimos pillando caracteres
|
||||
call alto tstmem
|
||||
jr z, star55
|
||||
ld hl, cadmem
|
||||
ld (hl), ' '
|
||||
inc hl
|
||||
ld (hl), ' '
|
||||
inc hl
|
||||
inc hl
|
||||
ld (hl), 'M'
|
||||
star55
|
||||
IF vertical=0
|
||||
ld bc, $090b
|
||||
call_prnstr ; CoreID
|
||||
|
|
@ -394,14 +409,14 @@ star11 ld a, (layout)
|
|||
jr nc, star13
|
||||
ld hl, finav-1
|
||||
star12 jr nc, star15
|
||||
star13 ld de, $ffff
|
||||
star13 ld de, $cfff
|
||||
call dzx7b
|
||||
wreg key_map, 0
|
||||
ld hl, $c001
|
||||
star14 inc b
|
||||
outi
|
||||
bit 7, h ; compruebo si la direccion es 0000 (final)
|
||||
jr nz, star14 ; repito si no lo es
|
||||
bit 4, h ; compruebo si la direccion es D000 (final)
|
||||
jr z, star14 ; repito si no lo es
|
||||
star15
|
||||
IF recovery=0
|
||||
ld d, 4
|
||||
|
|
@ -446,14 +461,20 @@ star17 ld hl, (joykey)
|
|||
inc b
|
||||
out (c), a
|
||||
jp conti
|
||||
|
||||
runbit0 ld a, l
|
||||
cp 45
|
||||
jr z, bios
|
||||
runbit1 ld (bitstr), a
|
||||
jr star17
|
||||
|
||||
star18 ld a, (codcnt)
|
||||
star19 sub $80
|
||||
jr c, star16
|
||||
ld (codcnt), a
|
||||
sub '1'
|
||||
cp 9
|
||||
ld h, a
|
||||
jp c, runbit
|
||||
jr c, runbit1
|
||||
jp z, alto easter
|
||||
cp $19-'1'
|
||||
jr z, star20
|
||||
|
|
@ -724,13 +745,9 @@ laun2 ld hl, $a681
|
|||
ld ix, cad6
|
||||
call_prnstr
|
||||
|
||||
ld de, codcnt
|
||||
ld hl, (active+1)
|
||||
games call SELEC
|
||||
aaitky ld a, (de)
|
||||
sub $80
|
||||
jr c, aaitky
|
||||
ld (de), a
|
||||
call waitky
|
||||
cp $0d
|
||||
jr z, gamen
|
||||
cp $20
|
||||
|
|
@ -738,7 +755,7 @@ gamen jp z, runbit0
|
|||
ld bc, games
|
||||
push bc
|
||||
call SELEC
|
||||
ld a, (de)
|
||||
ld a, (codcnt)
|
||||
sub $1c
|
||||
jr z, gamup
|
||||
dec a
|
||||
|
|
@ -882,15 +899,29 @@ conti di
|
|||
xor a
|
||||
ld hl, (active)
|
||||
cp h
|
||||
jr nz, runbit
|
||||
jr z, ccon0
|
||||
runbit ld b, h
|
||||
call calbit
|
||||
ld bc, zxuno_port
|
||||
ld e, core_addr
|
||||
out (c), e
|
||||
inc b
|
||||
out (c), h
|
||||
out (c), l
|
||||
out (c), 0
|
||||
wreg core_boot, 1
|
||||
ccon0 ld h, active>>8
|
||||
ld l, (hl)
|
||||
call calcu
|
||||
push hl
|
||||
pop ix
|
||||
ld d, (ix+2)
|
||||
ld hl, timing
|
||||
ld a, (outvid)
|
||||
rrca
|
||||
ld a, 3
|
||||
ld b, a
|
||||
jr c, ccon1
|
||||
ld d, (ix+2)
|
||||
cp (hl) ; timing
|
||||
ld b, (hl)
|
||||
jr nz, ccon1
|
||||
|
|
@ -934,20 +965,6 @@ conti2 adc a, a ; 0 0 MODE1 /DISCONT MODE0 /I2KB /DISNMI DIVEN
|
|||
xor %10101100 ; LOCK MODE1 DISCONT MODE0 I2KB DISNMI DIVEN 0
|
||||
ld (alto conti9+1), a
|
||||
jp alto micont
|
||||
runbit0 ld a, 45
|
||||
cp l
|
||||
jp z, bios
|
||||
ld h, l
|
||||
runbit ld b, h
|
||||
call calbit
|
||||
ld bc, zxuno_port
|
||||
ld e, core_addr
|
||||
out (c), e
|
||||
inc b
|
||||
out (c), h
|
||||
out (c), l
|
||||
out (c), 0
|
||||
wreg core_boot, 1
|
||||
|
||||
;**** Main Menu ****
|
||||
;*********************
|
||||
|
|
@ -2608,7 +2625,7 @@ advan1 call showop
|
|||
ld c, $0b
|
||||
call showop
|
||||
defw cad96
|
||||
; defw cad97
|
||||
defw cad97
|
||||
defw cad98
|
||||
defw $ffff
|
||||
call showop
|
||||
|
|
@ -2629,7 +2646,7 @@ advan1 call showop
|
|||
defw cad110
|
||||
defw cad111
|
||||
defw cad112
|
||||
; defw cad113
|
||||
defw cad113
|
||||
defw $ffff
|
||||
ld de, $1201
|
||||
call listas
|
||||
|
|
@ -2695,12 +2712,12 @@ advan5 djnz advan6
|
|||
defw cad110
|
||||
defw cad111
|
||||
defw cad112
|
||||
; defw cad113
|
||||
defw cad113
|
||||
defw $ffff
|
||||
ret
|
||||
advan6 call popupw
|
||||
defw cad96
|
||||
; defw cad97
|
||||
defw cad97
|
||||
defw cad98
|
||||
defw $ffff
|
||||
ret
|
||||
|
|
@ -4292,6 +4309,17 @@ contia out (c), a
|
|||
rst 0
|
||||
ENDIF
|
||||
; -------------------------------------
|
||||
; Detect memory size
|
||||
; Zero flag: 0-> 512K, 1-> 2M
|
||||
; -------------------------------------
|
||||
tstmem wreg master_conf, 1
|
||||
wreg master_mapper, $28
|
||||
ld a, ($c000)
|
||||
wreg master_conf, 0
|
||||
cp $31
|
||||
ret
|
||||
|
||||
; -------------------------------------
|
||||
; Put page A in mode 1 and copies from 4000 to C000
|
||||
; A: page number
|
||||
; -------------------------------------
|
||||
|
|
|
|||
|
|
@ -1,9 +1,10 @@
|
|||
cad0 defb 'Core: ',0
|
||||
cad1 defb 'http://zxuno.speccy.org', 0
|
||||
defb 'ZX-Uno BIOS v0.65', 0
|
||||
defb 'ZX-Uno BIOS v0.70', 0
|
||||
defb 'Copyleft ', 127, ' 2017 ZX-Uno Team', 0
|
||||
defb 'Processor: Z80 3.5MHz', 0
|
||||
defb 'Memory: 512K Ok', 0
|
||||
defb 'Memory: '
|
||||
cadmem defb '512K Ok', 0
|
||||
defb 'Graphics: normal, hi-color', 0
|
||||
defb 'hi-res, ULAplus', 0
|
||||
defb 'Booting:', 0
|
||||
|
|
@ -36,7 +37,7 @@ cad8 defb $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.65 ', $7f, '2017 ZX-Uno Team', 0
|
||||
defb ' BIOS v0.70 ', $7f, '2017 ZX-Uno Team', 0
|
||||
ELSE
|
||||
defb 'Press <Edit> to Setup',0
|
||||
defb ' <Break> Boot Menu', 0
|
||||
|
|
@ -67,7 +68,7 @@ cad8 defb $10, ' ', $10, 0
|
|||
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
defb $11, $11, $11, $11
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
||||
defb ' BIOS v0.65 ', $7f, '2017 ZX1 Team', 0
|
||||
defb ' BIOS v0.70 ', $7f, '2017 ZX1 Team', 0
|
||||
defs $66
|
||||
ENDIF
|
||||
cad10 defb 'Hardware tests', 0
|
||||
|
|
|
|||
BIN
firmware/us.zx7b
BIN
firmware/us.zx7b
Binary file not shown.
Loading…
Reference in New Issue