Tolik-Trek/Spectrum.EXE
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Spectrum.EXE.git synced 2026-06-15 00:51:36 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

-bug with ram disk e:

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-11-06 23:20:30 +10:00
parent 607a458f0f
commit ecb79faa1a
2 changed files with 38 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
param.txt Normal file
View File

@ -0,0 +1,10 @@
‘âப  1: Scorpion 256
‘âப  2: c:\zx\roms\SC_128.BIN
‘âப  3: c:\zx\roms\SC__48.BIN
‘âப  4: c:\zx\roms\SC_TRD.BIN
‘âப  5: c:\zx\roms\SC_EXP.BIN
‘âப  6: c:\zx\roms\SC_EXP.BIN
‘âப  7: c:\zx\roms\SP_EXP2.BIN
‘âப  8: /turbo /sprinter /7FFD /1FFD /ret-zx /load-pal
‘âப  9: c:\zx\palette\komod.pal
‘âப  10: ;

44
spectrum.asm
View File

@ -731,8 +731,6 @@ Get_RAM_Disk_E: LD A,D
JR Z,ERROR_NO_MEM JR Z,ERROR_NO_MEM
PUSH AF PUSH AF
;*************************************** ;***************************************
;!FIXIT ¡¥§®¯ á­® § ­¨¬ âì à ¬¤¨áª¨, ç⮡ ¯®«ì§®¢ â¥«ì ­¥ áâà ¤ «
; ®á¢®¡®¤¨âì ram-disk e:
; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS ; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS
.free_disk: DI .free_disk: DI
;!TEST ;!TEST
@ -871,6 +869,7 @@ EXIT_TO_DSS: DI
LD A,Dss.SetVMod.txt80x32 ; OPEN_TXT LD A,Dss.SetVMod.txt80x32 ; OPEN_TXT
LD BC,0*256+Dss.SetVMod LD BC,0*256+Dss.SetVMod
RST ToDSS RST ToDSS
;!TEST; [ ] 05/11/2023 ®ç¨é âì à ¬¤¨áª¨ ¯à¨ ¢ë室¥ ;!TEST; [ ] 05/11/2023 ®ç¨é âì à ¬¤¨áª¨ ¯à¨ ¢ë室¥
LD A,(RMD_Keep_+2) LD A,(RMD_Keep_+2)
AND A AND A
@ -884,11 +883,11 @@ EXIT_TO_DSS: DI
POP BC POP BC
DJNZ .loop DJNZ .loop
; ;
.next: .next: ;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
LD BC,BIOS.SWAP_RAM_DRIVES.Sp2000 LD BC,BIOS.SWAP_RAM_DRIVES.Sp2000
RST ToBIOS RST ToBIOS
; ;
LD A,#20 LD A,#20
LD DE,0 LD DE,0
LD HL,#2050 LD HL,#2050
@ -900,17 +899,6 @@ EXIT_TO_DSS: DI
;!FIXIT ¯¥à¥¤¥« âì ­  äã­ªæ¨î ¡¨®á  ;!FIXIT ¯¥à¥¤¥« âì ­  äã­ªæ¨î ¡¨®á 
SET_RELOAD_PROG: SET_RELOAD_PROG:
;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
LD BC,BIOS.SWAP_RAM_DRIVES.ZX
RST ToBIOS
;
LD A,(Load_IMAGE_File.MEM_BLK)
LD B,A
XOR A ; set disk e:
LD C,BIOS.BLK_TO_RAMD
RST ToBIOS
;
DI DI
LD A,Spec_Page LD A,Spec_Page
OUT (SLOT3),A OUT (SLOT3),A
@ -936,7 +924,31 @@ NO_RET_FN:
LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â  LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â 
IN A,(SLOT3) IN A,(SLOT3)
LD (#FFF3),A ; LD (#FFF3),A ;
;********************************************
;!TEST; [ ] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
SETUP_RAM_DRIVES:
LD BC,BIOS.SWAP_RAM_DRIVES.ZX
RST ToBIOS
; § ¯ã᪠á ä ©«®¬ ¤«ï à ¬¤¨áª ?
LD A,(Load_IMAGE_File.MEM_BLK)
OR A
JR Z,.skip
; ¯à®¢¥à塞 ¤à ©¢ ¯¥à¥¤ ¯¥à¥­ §­ ç¥­¨¥¬
XOR A
LD C,BIOS.GET_RAMD_ST
RST ToBIOS
JR C,.set_block
; ®á¢®¡®¤¨âì à ¬¤¨áª
XOR A
LD C,BIOS.RAMD_CLEAR
RST ToBIOS
; set disk e:
.set_block: LD A,(Load_IMAGE_File.MEM_BLK)
LD B,A
XOR A
LD C,BIOS.BLK_TO_RAMD
RST ToBIOS
.skip: ;
;******************************************** ;********************************************
RESET_TO_ZX: DI RESET_TO_ZX: DI