Ajusto ensamblado condicional para que funcione recovery=1

This commit is contained in:
antoniovillena 2016-11-28 23:40:51 +01:00
parent 52c975c98f
commit c007091bea
2 changed files with 15 additions and 36 deletions

View File

@ -244,13 +244,13 @@ start ld bc, chrend-sdtab
or $c0
ld (scnbak), a ; lo pongo a 28Mhz
out (c), a
ld de, fincad-1 ; descomprimo cadenas
ld hl, sdtab-1
call dzx7b
ELSE
wreg scandbl_ctrl, $c0
ENDIF
im 1
ld de, fincad-1 ; descomprimo cadenas
ld hl, sdtab-1
call dzx7b
ld hl, $b000
ld de, $b400
start1 ld b, $04
@ -342,6 +342,7 @@ star38 ld de, tmpbuf
ld (de), a
pop bc
call_prnstr ; Imprime máquina (ROM o core)
ENDIF
start4 wreg flash_cs, 0 ; activamos spi, enviando un 0
wreg flash_spi, $9f ; jedec id
in a, (c)
@ -359,6 +360,7 @@ star45 add hl, hl
dec a
jr nz, star45
ld (alto fllen), hl
IF recovery=0
ld d, 4
pop af
jr nz, start5
@ -1497,6 +1499,7 @@ upgr34 ld (hl), a
ld hl, (menuop)
dec l
dec l
IF recovery=0
ld a, (alto fllen+1)
or l
ld a, ixl
@ -1515,6 +1518,10 @@ upgr35 ld (ix-3), $ff
jr c, upgr38
ld a, 20
upgr38 ld e, a
ELSE
ld (ix-3), $ff
ld e, 4
ENDIF
dec l
ld a, h
jr nz, upgra4
@ -2424,13 +2431,13 @@ calbi3 add hl, de
djnz calbi3
ret
IF recovery=0
deixl ld (ix+0), e
ld (ix+1), d
deixl1 inc ixl
inc ixl
ret
IF recovery=0
; ----------------------------
; Add an entry to the bootlist
; ----------------------------
@ -3479,21 +3486,19 @@ finav
; Compressed and RCS filtered logo
; -----------------------------------------------------------------------------
incbin logo256x192.rcs.zx7b
finlog
finlog incbin strings.bin.zx7b
ENDIF
; -----------------------------------------------------------------------------
; Compressed messages
; -----------------------------------------------------------------------------
incbin strings.bin.zx7b
sdtab
IF recovery=0
defw $0020, $0040
sdtab defw $0020, $0040
defw $0040, $0080
fllen defw $0000, $0000
defw $0540
subnn sub 6
ret
IF recovery=0
micont wreg master_conf, 1
and $02
jr z, conti4

View File

@ -8,7 +8,6 @@ cad1 defm 'http://zxuno.speccy.org', 0
defm 'hi-res, ULAplus', 0
defm 'Booting:', 0
defm 'Press <Edit> to Setup <Break> Boot Menu', 0
IF recovery=0
cad2 defb $12, $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
@ -27,7 +26,6 @@ cad5 defm $10, ' ', $1c, ' and ', $1d, ' to move selection ', $10,
defb $11, $11, $11, $11, $11, $11, $11, $11, $11
defb $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
cad6 defb 'Enter Setup', 0
ENDIF
cad7 defb ' Main ROMs Upgrade Boot Advanced Exit', 0
defb $12, $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, $19, $11
@ -38,7 +36,6 @@ cad9 defb $14, $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.59 ', $7f, '2016 ZX-Uno Team', 0
IF recovery=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
@ -57,7 +54,6 @@ cad10 defb 'Hardware tests', 0
defb 'DivMMC', 0
defb 'NMI-DivMMC', 0
defb 'New G.Modes', 0, 0
ENDIF
cad11 defb ' ', $10, 0
defb ' ', $10, 0
defb ' ', $10, 0
@ -73,11 +69,9 @@ cad11 defb ' ', $10, 0
defb ' ', $10, 0
defb ' ', $10, 0
defb ' ', $10, 0, 0
IF recovery=0
cad12 defb 'Name Slot', 0
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, 0
defb $11, $11, $11, $11, 0
ENDIF
cad13 defb $1e, ' ', $1f, ' Sel.Screen', 0
defb $1c, ' ', $1d, ' Sel.Item', 0
defb 'Enter Change', 0
@ -85,7 +79,6 @@ cad13 defb $1e, ' ', $1f, ' Sel.Screen', 0
defb 'Break Exit', 0
defb 'N New Entry', 0
defb 'R Recovery', 0
IF recovery=0
cad14 defb 'Run a diagnos-', 0
defb 'tic test on', 0
defb 'your system', 0
@ -113,12 +106,10 @@ cad20 defb 'Behaviour of', 0
defb '$FE depends', 0
defb 'on hardware', 0
defb 'issue', 0, 0
ENDIF
cad21 defb $12, $11, $11, $11, ' Options ', $11, $11, $11, $13, 0
cad22 defb $10, ' ', $10, 0
defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
defb $11, $11, $11, $11, $11, $15, 0
IF recovery=0
cad88 defb 'Spanish', 0
cad89 defb 'English', 0
cad90 defb 'Spectrum', 0
@ -172,9 +163,7 @@ cad41 defb 'Discard Chan-', 0
defb 'far to any of', 0
defb 'the setup', 0
defb 'options', 0, 0
ENDIF
cad45 defb 'Header:', 0
IF recovery=0
cad46 defb $12, ' Exit Without Saving ', $11, $13, 0
defb $10, ' ', $10, 0
defb $10, ' Quit without saving? ', $10, 0
@ -184,7 +173,6 @@ cad47 defb $12, $11, ' Save Setup Values ', $11, $11, $13, 0
cad48 defb $12, ' Load Previous Values ', $13, 0
defb $10, ' ', $10, 0
defb $10, ' Load previous values?', $10, 0
ENDIF
cad42 defb $10, ' ', $10, 0
defb $16, $11, $11, $11, $11, $11, $11, $11, $11
defb $11, $11, $11, $11, $11, $11, $11, $11, $11
@ -193,21 +181,17 @@ cad42 defb $10, ' ', $10, 0
cad43 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, $15, 0
IF recovery=0
defb $12, $11, $11, $11, ' Save and Exit ', $11, $11, $11, $11, $13, 0
defb $10, ' ', $10, 0
defb $10, ' Save conf. & Exit? ', $10, 0
ENDIF
cad44 defb $12, $11, $11, $11, ' Load from tape ', $11, $11, $11, $13, 0
cad445 defb $12, $11, $11, $11, $11, ' Load from SD ', $11, $11, $11, $11, $13, 0
defb $10, ' ', $10, 0
defb $10, ' Are you sure? ', $10, 0
IF recovery=0
cad37 defb 'Save Changes & Exit', 0
defb 'Discard Changes & Exit', 0
defb 'Save Changes', 0
defb 'Discard Changes', 0
ENDIF
cad49 defb 'Press play on', 0
defb 'tape & follow', 0
defb 'the progress', 0
@ -217,14 +201,12 @@ cad50 defb 'Loading Error', 0
cad51 defb 'Any key to return', 0
cad52 defb 'Block 1 of 1:', 0
cad53 defb 'Done', 0
IF recovery=0
cad54 defb 'Slot position:', 0
cad55 defb 'Invalid CRC in ROM 0000. Must be 0000', 0
defb 'Press any key to continue ', 0
cad56 defb 'Check CRC in', 0
defb 'all ROMs. Slow', 0
defb 'but safer', 0, 0
ENDIF
cad57 defb 'Machine upgraded', 0
cad58 defb 'BIOS upgraded', 0
cad59 defb 'ESXDOS upgraded', 0
@ -233,9 +215,7 @@ cad61 defb 'Upgrade BIOS for ZX', 0
cad615 defb 'Upgrade flash from SD', 0
cad62 defb 'ZX Spectrum', 0
cad63 defb 'Status:[ ]', 0
cad64
IF recovery=0
defb ' ', $12, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
cad64 defb ' ', $12, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
defb ' Recovery ', $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $13, 0
defb ' ', $10, ' ', $1e, ' ', $1f, ' Enter accept Break cancel ', $10, 0
defb ' ', $16, $11, $11, $11, $11, $11, $11, $11, $11
@ -264,9 +244,6 @@ cad71 defb 'Memory usually', 0
defb 'Pentagon 128K', 0, 0
cad72 defb 'Performs a', 0
defb 'tape test', 0, 0
ENDIF
;cad73 defb $1b, 0
IF recovery=0
cad74 defb 'Kempston', 0
defb 'Break key to return', 0
defb '234567890'
@ -274,7 +251,6 @@ cad74 defb 'Kempston', 0
defb 'A'+$80, 'SDFGHJKLe'
defb 'c'+$80, 'ZXCVBNMsb'
defb 'o'+$80, $1c, $1d, $1e, $1f, $80
ENDIF
cad75 defb 'Insert SD with', 0
defb 'the file on', 0
defb 'root', 0, 0
@ -317,7 +293,6 @@ fileco defb 'CORE ZXA'
ENDIF
ENDIF
ENDIF
IF recovery=0
cad83 defb 'Input', 0
defb $11, $11, $11, $11, $11, $11, $11, $11, 0
defb 'Keyb Layout', 0
@ -370,7 +345,6 @@ cad116 defb 'Disable for', 0
defb 'tibility with', 0
defb 'old games', 0, 0
cad117 defb ' Add new core', 0
ENDIF
;cad199 defb 'af0000 bc0000 de0000 hl0000 sp0000 ix0000 iy0000', 0