вроде, чёт даже исправил

This commit is contained in:
Tolik 2024-10-21 19:23:51 +10:00
parent e0ded79aa7
commit bab76bd4b2

View File

@ -505,11 +505,12 @@ sub_837fh: LD HL,STRING_SPECIAL_no_mem;837f 21 a4 83 ! . .
RET ;8385 c9 . RET ;8385 c9 .
RESTORE_IM1_DSS:
DI ;8386 f3 . DI ;8386 f3 .
LD A,000h ;8387 3e 00 > . LD A,#C3 ;8387 3e 00 > .
LD (00038h),A ;8389 32 38 00 2 8 . LD (#38),A ;8389 32 38 00 2 8 .
LD HL,00000h ;838c 21 00 00 ! . . LD HL,#003B ;838c 21 00 00 ! . .
LD (00039h),A ;838f 32 39 00 2 9 . LD (#39),A ;838f 32 39 00 2 9 .
RET ;8392 c9 . RET ;8392 c9 .
l8393h: CALL sub_837fh ;8393 cd 7f 83 . . . l8393h: CALL sub_837fh ;8393 cd 7f 83 . . .
@ -6116,7 +6117,16 @@ lad3eh:
; NEW CODE ; NEW CODE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; [ ] FIX 19/10/2024 ; [ ] FIX 19/10/2024
NEW_CODE_START: LD C,Dss.GetVMod NEW_CODE_START: LD HL,LOADER_STRINGS.Info
LD C,Dss.PChars
RST ToDSS
;
LD C,Dss.Cursor
RST ToDSS
LD (PREPARE_TO_EXIT_NEW.cursor),DE
;
LD C,Dss.GetVMod
RST ToDSS RST ToDSS
JR C,.no_vmode JR C,.no_vmode
CP #80 CP #80
@ -6240,24 +6250,24 @@ NEW_CODE_START: LD C,Dss.GetVMod
LD A,SYS_PORT.CNF_0 LD A,SYS_PORT.CNF_0
OUT (SYS_PORT.RAM),A OUT (SYS_PORT.RAM),A
; ;
LD DE,CAD_RESET_HANDLER
CALL SETUP_RESET_HANDLER
;
LD A,(PAGES_BUFFER) LD A,(PAGES_BUFFER)
LD C,BIOS.FreeMem LD C,BIOS.FreeMem
RST ToBIOS RST ToBIOS
;
; restore HOLD port ; restore HOLD port
LD D,CMOS_CELL.ScreenPosition LD D,CMOS_CELL.ScreenPosition
LD C,BIOS.CMOS_RD LD C,BIOS.CMOS_RD
RST ToBIOS RST ToBIOS
JR C,.run_game JP C,l8423h.cont
; ;
LD B,A LD B,A
LD A,ACEX.HOLD LD A,ACEX.HOLD
LD C,BIOS.SET_PORTS LD C,BIOS.SET_PORTS
RST ToBIOS RST ToBIOS
; ;
LD DE,CAD_RESET_HANDLER JP l8423h.cont
CALL SETUP_RESET_HANDLER
.run_game: JP l8423h.cont
TITD_ACX: TITD_ACX:
.TYPE: DZ '.ACX' .TYPE: DZ '.ACX'
.NAME: BLOCK 9,0 .NAME: BLOCK 9,0
@ -6268,8 +6278,9 @@ CAD_RESET_HANDLER:
LD A,(Spec_Page.page_3) ; PAGE3 LD A,(Spec_Page.page_3) ; PAGE3
OUT (SLOT3),A OUT (SLOT3),A
LD A,SYS_PORT.CNF_0 LD A,SYS_PORT.CNF_0
OUT (SYS_PORT.RAM),A OUT (SYS_PORT.ROM),A
JP HARD_RESET LD BC,BIOS.REINIT.HARD_RESET
JP ToBIOS_18
; ;
; ;
@ -6289,24 +6300,36 @@ SETUP_RESET_HANDLER_NEW:
; ;
RET RET
; ;
PREPARE_TO_EXIT_NEW: ;LD A,(.current_screen) PREPARE_TO_EXIT_NEW: CALL RESTORE_IM1_DSS
;XOR 1 ;
;LD B,A LD A,4
;LD A,Dss.SetVMod.grf640x256 LD C,BIOS.FN_SYNC
;LD C,.SetVMod RST ToBIOS
;RST ToDSS ;
LD A,%1000'0000
LD C,BIOS.FN_SYNC
RST ToBIOS
;
LD A,(.current_screen)
XOR 1
LD B,A
LD A,Dss.SetVMod.grf640x256
LD C,Dss.SetVMod
RST ToDSS
; ;
.current_vmode+1: LD A,Dss.SetVMod.txt80x32 .current_vmode+1: LD A,Dss.SetVMod.txt80x32
.current_screen+1: LD B,high Dss.SetVMod.Screen_0 .current_screen+2: LD BC,Dss.SetVMod.Screen_0
LD C,Dss.SetVMod RST ToDSS
;
.cursor+1: LD DE,0
LD C,Dss.Locate
JP ToDSS JP ToDSS
; ;
LOADER_STRINGS: LOADER_STRINGS:
.Exit: DB "\r\nThunder in the Deep. Copyright (C) 2003 Deviants.\r\n" .Info: DB "\r\nThunder in the Deep v1.10 fixed. Copyright (C) 2003 Deviants.\r\n"
DB "Bug fixes by Tolik_Trek@Sprinter_Team in 2024.\r\n" DZ "Bug fixes by Tolik_Trek@Sprinter_Team in 2024.\r\n\r\n"
DZ "Game over, bye)))\r\n"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BLOCK (stack_point - stack_point.size - 1)-$,0 BLOCK (stack_point - stack_point.size - 1)-$,0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;