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

мелочи

Browse Source
This commit is contained in:
Tolik 2025-04-29 03:41:02 +10:00
parent 36074ddfc1
commit de06a51d05
4 changed files with 41 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
For_4x.asm
View File

@ -185,10 +185,10 @@ BPB_SetUp: LD A,SYS_PAGE
DEC D DEC D
JR NZ,.NEXT_ADD3 JR NZ,.NEXT_ADD3
LD (SYS_PAGE.CLASTER_LEN),HL LD (SYS_PAGE.CLUSTER_LEN),HL
LD B,E LD B,E
LD C,A LD C,A
LD (SYS_PAGE.CLASTER_LEN2),BC LD (SYS_PAGE.CLUSTER_LEN2),BC
; ;
; DE=0 ; DE=0
EX DE,HL ;LD HL,0 EX DE,HL ;LD HL,0

2
Shared_Includes

@ -1 +1 @@
Subproject commit e0dd54cb5615a23ea55bd217578aab57481fcf77 Subproject commit 68e156a69e848e7b01656cdf67122022999d75ee

49
spectrum.asm
View File

@ -77,6 +77,16 @@
;*************************************** ;***************************************
; ;
DEFINE EXEinfoMACRO
MACRO _mEXEinfo
BLOCK 10,' ' ; ‚ëà ¢­¨¢ ­¨¥ ¤«ï ªà á¨¢®£® ®â®¡à ¦¥­¨ï ¢ HEX
BYTE 'Spectrum launcher'
BYTE ' by Ivan Mak and '
BYTE ' Anatoliy '
BYTE ' Belyanskiy, '
BYTE ' Sprinter Team '
ENDM
; ;
; Standart EQU section ; Standart EQU section
;*************************************** ;***************************************
@ -175,6 +185,7 @@ BEGIN: LD (LINE_X),IX
CALL READ_CNF_FILE CALL READ_CNF_FILE
; SetUp ZX ; SetUp ZX
CALL PARSE_PARAMETERS CALL PARSE_PARAMETERS
CALL SHOW_MESSAGE_ZXMODE
CALL COUNT_vROM_PAGES CALL COUNT_vROM_PAGES
PUSH AF PUSH AF
; Žç¨é ¥¬ ¯ ¬ïâì, ¥á«¨ ROM_BIN > 0 ; Žç¨é ¥¬ ¯ ¬ïâì, ¥á«¨ ROM_BIN > 0
@ -296,7 +307,7 @@ READ_IMAGE: LD DE,ONE_FILE
LD BC,Dss.EX_Path.GET_ALL LD BC,Dss.EX_Path.GET_ALL
RST ToDSS RST ToDSS
JR C,.no_change_Disk JR C,.no_change_Disk
AND 8 AND 8 ;!HARDCODE ‚ áâப¥ 㪠§ ­® ¨¬ï ¤¨áª 
JR Z,.currentDisk JR Z,.currentDisk
; ;
LD C,Dss.CurDisk LD C,Dss.CurDisk
@ -1179,19 +1190,31 @@ LOADING_PALETTE:
;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°; ;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°;
SHOW_MESSAGE_OK_CFG_NAME: SHOW_MESSAGE_ZXMODE:
; ä ©«ë áç¨â ­ë LD HL,MSG_MODE
LD HL,MSG_NORMAL
LD C,Dss.PChars LD C,Dss.PChars
RST ToDSS RST ToDSS
; ;
LD HL,(ADDRESS_LINES + (CFG_FILE_LINES.NAME-1)*2) LD HL,(ADDRESS_LINES + (CFG_FILE_LINES.NAME-1)*2)
LD C,Dss.PChars LD C,Dss.PChars
RST ToDSS RST ToDSS
;
LD HL,CR_LINE LD HL,CR_LINE
LD C,Dss.PChars LD C,Dss.PChars
RST ToDSS RST ToDSS
RET
SHOW_MESSAGE_OK_CFG_NAME:
; ä ©«ë áç¨â ­ë
LD HL,MSG_NORMAL
LD C,Dss.PChars
RST ToDSS
;
; LD HL,(ADDRESS_LINES + (CFG_FILE_LINES.NAME-1)*2)
; LD C,Dss.PChars
; RST ToDSS
; ;
; LD HL,CR_LINE
; LD C,Dss.PChars
; RST ToDSS
LD A,(SAVE_SLOT3) LD A,(SAVE_SLOT3)
OUT (SLOT3),A OUT (SLOT3),A
RET RET
@ -1470,11 +1493,9 @@ LEN_LINE_ZX EQU $-LINE_ZX
MSG_EXIT1: DB 13,10, "EXIT without run",13,10,0 MSG_EXIT1: DB 13,10, "EXIT without run",13,10,0
;MSG_EXIT2: DB 13,10, "‚ë室 ¡¥§ § ¯ã᪠" ;MSG_EXIT2: DB 13,10, "‚ë室 ¡¥§ § ¯ã᪠"
CR_LINE: DB 13,10,0 CR_LINE: DB 13,10,0
START_MSG: DB 13,10, 'SPECTRUM launcher v',SP_VERSION,'.' START_MSG: DB 13,10, 'SPECTRUM launcher v',SP_VERSION,'. (c) Sprinter Team.'
DB 13,10, '(c) Sprinter Team.' DB 13,10,BUILD_DATE,' - ',__TIME__
DB 13,10, 'Written by Ivan Mak.' DB 13,10, 'Keys: ',0
DB 13,10, 'Modified by Anatoliy Belyanskiy.'
DB 13,10,BUILD_DATE,' - ',__TIME__,13,10,0
ERROR_FILE_MSG_X: DB 13,10, "Error in file: ",0 ERROR_FILE_MSG_X: DB 13,10, "Error in file: ",0
;ERROR_FILE2_MSG_X: DB 13,10, "Žè¨¡ª  ¢ ä ©«¥: ",0 ;ERROR_FILE2_MSG_X: DB 13,10, "Žè¨¡ª  ¢ ä ©«¥: ",0
ERROR_FILE_MSG: DB 13,10, "Unable to work.",0 ERROR_FILE_MSG: DB 13,10, "Unable to work.",0
@ -1485,9 +1506,9 @@ NO_MEM_MSG: DB 13,10, "Not enough free memory pages for ZX mode."
DB 13,10, "Clear the memory and restart spectrum.exe again.",0 DB 13,10, "Clear the memory and restart spectrum.exe again.",0
;NO_MEM_MSG2: DB 13,10, "‘¯¥æ¨ «ì­ë¥ áâà ­¨æë 㦥 § ­ïâë." ;NO_MEM_MSG2: DB 13,10, "‘¯¥æ¨ «ì­ë¥ áâà ­¨æë 㦥 § ­ïâë."
; DB 13,10, "Žç¨áâ¨â¥ ¯ ¬ïâì ¨ ¯¥à¥§ ¯ãáâ¨â¥ spectrum.exe á­®¢ .",0 ; DB 13,10, "Žç¨áâ¨â¥ ¯ ¬ïâì ¨ ¯¥à¥§ ¯ãáâ¨â¥ spectrum.exe á­®¢ .",0
MSG_NORMAL: DB 13,10, "All files has been read successfully.",13,10 MSG_NORMAL: DB 13,10, "All files has been read successfully.\r\n",0
DB "MODE: ",0 ;MSG_NORMAL2: DB 13,10, "‚ᥠ䠩«ë áç¨â ­ë ­®à¬ «ì­®.\r\n\r\n",0
;MSG_NORMAL2: DB 13,10, "‚ᥠ䠩«ë áç¨â ­ë ­®à¬ «ì­®.",13,10 MSG_MODE: DB "\r\nMODE: ",0
; DB "Š®­ä¨£ãà æ¨ï: ",0 ; DB "Š®­ä¨£ãà æ¨ï: ",0
MSG_NO_MEM: DB 13,10, "No memory space for image or",0 MSG_NO_MEM: DB 13,10, "No memory space for image or",0
;MSG_NO_MEM2: DB 13,10, "<22>¥ 墠⠥⠯ ¬ï⨠¤«ï ®¡à §  ¨«¨",0 ;MSG_NO_MEM2: DB 13,10, "<22>¥ 墠⠥⠯ ¬ï⨠¤«ï ®¡à §  ¨«¨",0
@ -1498,7 +1519,7 @@ MSG_ZX_EXIT: DB 13,10, "EXIT from Spectrum mode",13,10,0
;MSG_ZX_EXIT2: DB 13,10, "EXIT from ZX mode",0 ;MSG_ZX_EXIT2: DB 13,10, "EXIT from ZX mode",0
MSG_NO_ZX_FLAG: DB 13,10, 'Error: Necessary ROM images are missing in the CNF file and in RAM!!!' MSG_NO_ZX_FLAG: DB 13,10, 'Error: Necessary ROM images are missing in the CNF file and in RAM!!!'
DB 13,10, ' Run "spectrum.exe norun.zx" with the required set of ZX ROMs.',13,10,0 DB 13,10, ' Run "spectrum.exe norun.zx" with the required set of ZX ROMs.',13,10,0
MSG_OLD_DSS: DB 13,10, 'To run this version of SPECTRUM launcher you need DSS v1.70.998 or higher.',13,10,0 MSG_OLD_DSS: DB 13,10, 'To run this version of SPECTRUM launcher you need DSS v',NEED_MIN_DSS_VERSION,' or higher.',13,10,0
PROGRES_IND: DB '°',0 ; 176 PROGRES_IND: DB '°',0 ; 176
PROGRES_100: DB ' 100%',13,10,0 PROGRES_100: DB ' 100%',13,10,0

5
version.inc
View File

@ -6,8 +6,9 @@
DEFINE SP_VERSION "2.03 beta build" DEFINE SP_VERSION "2.03 beta build"
; ;
DEFINE NEED_MIN_DSS_VERSION '1.71.36'
DSS_MIN_VERS: DSS_MIN_VERS:
.vers EQU 1 .vers EQU 1
.modf EQU 70 .modf EQU 71
.build EQU 998 .build EQU 36
; ;