falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Optimizo cambios de spark2k06 y compilo las 4 versiones

This commit is contained in:
antoniovillena 2020-08-25 14:57:21 +02:00
parent aebc70a423
commit 04073f59fc
6 changed files with 31 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
firmware/FIRMWARE.ZX1
View File

Binary file not shown.

BIN
firmware/FIRMWARE.ZX2
View File

Binary file not shown.

BIN
firmware/FIRMWARE.ZX3
View File

Binary file not shown.

BIN
firmware/FIRMWARE.ZXD
View File

Binary file not shown.

83
firmware/firmware.asm
View File

@ -299,17 +299,18 @@ start2 ld a, (hl)
jr nc, start1 jr nc, start1
dec e dec e
IF recovery=0 IF recovery=0
ld a, 0 ld a, 1
out ($fe), a out ($fe), a
ld a, (quietb) ld a, (quietb)
cp 1 or a
jr nz, start3 jr nz, start3
out ($fe), a
ld h, l ld h, l
ld d, $20 ld d, $20
call window call window
jr start8 jr start8
start3 ld hl, finlog-1 start3 xor a
out ($fe), a
ld hl, finlog-1
ld d, $7a ld d, $7a
call dzx7b ; descomprimir call dzx7b ; descomprimir
call drcs call drcs
@ -438,17 +439,15 @@ star13 ld de, $cfff
star14 inc b star14 inc b
outi outi
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 d, 4 ; temporizador general (1-2 seg en 1X) star15 ld a, (quietb)
call chktmo ; aplicamos multiplicador or 1
start25 pop af rlca
rlca
ld d, a
pop af
jr nz, star16 jr nz, star16
ld d, 16 ; temporizador inicial (2-3 seg en 1X) ld d, 16
call chktmo ; aplicamos multiplicador
ld a, d
cp 33
jr c, star16
ld d, 32 ; timeout inicial maximo (7-8 segundos)
star16 djnz star18 star16 djnz star18
dec de dec de
ld a, d ld a, d
@ -1156,16 +1155,15 @@ main
ld iy, quietb ld iy, quietb
ld bc, $0f0b ld bc, $0f0b
main1 call showop main1 call showop
defw cad120
defw cad29
defw cad122
defw cad123
defw cad124
defw $ffff
main1b call showop
defw cad28 defw cad28
defw cad29 defw cad110
defw cad111
defw cad112
defw cad113
defw $ffff defw $ffff
ld a, iyl
rrca
jr c, main1
main2 call showop main2 call showop
defw cad30 defw cad30
defw cad31 defw cad31
@ -1213,30 +1211,21 @@ main4 call showop
defw cad19 defw cad19
defw cad116 defw cad116
jr c, main9 jr c, main9
ld (menuop+1), a ld (menuop+1), a
cp 4 cp 4
ld h, active >> 8
jr c, main8 ; c->tests, nc->options jr c, main8 ; c->tests, nc->options
ld e, a add a, bitstr-3&$ff
add hl, de
jr nz, main44
ld hl, quietb
call popupw ; Boot timeout
defw cad120
defw cad29
defw cad122
defw cad123
defw cad124
defw $ffff
ret
main44 ld h, active >> 8
add a, bitstr-3&$ff
ld l, a ld l, a
sub keyiss&$ff sub keyiss&$ff
jr z, main5 jr z, main5
jr nc, main6 jr nc, main6
call popupw ; quiet or crc (enabled or disabled) call popupw ; quiet or crc (enabled or disabled)
defw cad28 defw cad28
defw cad29 defw cad110
defw cad111
defw cad112
defw cad113
defw $ffff defw $ffff
ret ret
main5 call popupw ; keyboard issue main5 call popupw ; keyboard issue
@ -3780,20 +3769,6 @@ comboa ld a, h
pop de pop de
pop hl pop hl
ret ret
; --------------------------------------
; Bitshift left 'D' according to timeout
; --------------------------------------
chktmo push af
ld a, (quietb)
cp 2
jr c, chk2
dec a
chk1 sla d
dec a
jr nz, chk1
chk2 pop af
ret
; ------------------------------------- ; -------------------------------------
; Show a normal list only in attribute area width elements ; Show a normal list only in attribute area width elements

8
firmware/strings.asm
View File

@ -85,7 +85,7 @@ cad10 defb 'Hardware tests', 0
defb ' ', 0 defb ' ', 0
defb 'Options', 0 defb 'Options', 0
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, 0 defb $11, $11, $11, $11, $11, $11, $11, $11, $11, 0
defb 'Quiet Boot', 0 defb 'Boot Timer', 0
defb 'Check CRC', 0 defb 'Check CRC', 0
defb 'Keyboard', 0 defb 'Keyboard', 0
defb 'Timing', 0 defb 'Timing', 0
@ -129,7 +129,7 @@ cad16 defb 'Performs a', 0
defb 'joystick test', 0, 0 defb 'joystick test', 0, 0
cad17 defb 'Hide the whole', 0 cad17 defb 'Hide the whole', 0
defb 'boot screen', 0 defb 'boot screen', 0
defb 'when enabled', 0, 0 defb 'when disabled', 0, 0
cad18 defb 'Enable RAM and', 0 cad18 defb 'Enable RAM and', 0
defb 'ROM on DivMMC ', 0 defb 'ROM on DivMMC ', 0
defb 'interface.', 0 defb 'interface.', 0
@ -173,10 +173,6 @@ cad33 defb 'Set Active', 0
cad34 defb 'Move Down a', 0 cad34 defb 'Move Down a', 0
cad35 defb 'Rename', 0 cad35 defb 'Rename', 0
cad36 defb 'Delete', 0 cad36 defb 'Delete', 0
cad120 defb 'Timeout 1X', 0
cad122 defb 'Timeout 2X', 0
cad123 defb 'Timeout 4X', 0
cad124 defb 'Timeout 8X', 0
IF vertical=0 IF vertical=0
defb ' ', $12, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11 defb ' ', $12, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
defb ' Rename ', $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $13, 0 defb ' Rename ', $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $13, 0