-bug with EMM.CheckColdInit and ID_Version
This commit is contained in:
		
							parent
							
								
									a45ed5093d
								
							
						
					
					
						commit
						945e2840f0
					
				| @ -1 +1 @@ | ||||
| Subproject commit 5a5dcf0bd035d2adaaa27d28bb8ed1bd86260d59 | ||||
| Subproject commit cbc1fd596a5a56298407c13a529a574e968235c7 | ||||
| @ -211,28 +211,29 @@ NMI_Point: | ||||
| ;	BLOCK MEM_MAP.ID_Version-$,0  ;#C0-$,0 | ||||
| 
 | ||||
| ID_Version:	DW	BIOS_ver_hex | ||||
| ID_SPRINTER_length: | ||||
| 		DB	ID_SPRINTER.LENGTH | ||||
| ; ID_SPRINTER_FullSize: | ||||
| ; 		DB	ID_SPRINTER.Size | ||||
| 		; § ¯¨áì 1 | ||||
| ID_SPRINTER:	DB	'Firmware v' | ||||
| .BIOS_ver:	DB	BIOS_ver_string,', ' | ||||
| 		IF DEBUG | ||||
| 		 DB	'BETA release' | ||||
| .BIOS_ver:	DB	BIOS_ver_string,' ' | ||||
| 		IF BETA_BUILD | ||||
| 		 DB	'BETA' | ||||
| 		ELSE | ||||
| 		 DB	'release ',BUILD_DATE | ||||
| 		 DB	'[',BUILD_DATE,']' | ||||
| 		ENDIF | ||||
| 		DB	0 | ||||
| .Record1_Size	EQU	$-ID_SPRINTER | ||||
| 		; § ¯¨áì 2 | ||||
| 		DB	'Sprinter',0 | ||||
| 		; § ¯¨áì 3 | ||||
| .bitstream_ver:	DB	bitstream_ver_string,0 | ||||
| 		DB	0 | ||||
| 		; | ||||
| .Size		EQU $-ID_SPRINTER | ||||
| .Records_Num	EQU	3 | ||||
| .LENGTH		EQU $-ID_SPRINTER | ||||
| 
 | ||||
| ; Check for max length of string | ||||
| 	ASSERT ID_SPRINTER.LENGTH < #FF, 'ERROR! ID String is to long!' | ||||
| 	ASSERT ID_SPRINTER.Record1_Size < SYS_PAGE.ID_FLAG.Size, 'ERROR! ID String is to long!' | ||||
| ;======================================= | ||||
| 
 | ||||
| 
 | ||||
|  | ||||
| @ -31,11 +31,13 @@ EMM.GetBanksPorts: | ||||
| FN_VERSION: | ||||
| 	PUSH HL | ||||
| 	EX DE,HL | ||||
| 	LD HL,ID_SPRINTER_length | ||||
| 	; | ||||
| 	LD	B,0 | ||||
| 	LD	C,(HL) | ||||
| 	INC	HL | ||||
| 	; LD HL,ID_SPRINTER_FullSize | ||||
| 	 | ||||
| 	; LD	B,0 | ||||
| 	; LD	C,(HL) | ||||
| 	; INC	HL | ||||
| 	LD	HL,ID_SPRINTER | ||||
| 	LD	BC,ID_SPRINTER.Size | ||||
| 	LDIR | ||||
| 	; | ||||
| 	POP HL | ||||
| @ -147,11 +149,13 @@ EMM.CheckColdInit: | ||||
| 	OUT	(SLOT2),A | ||||
| 
 | ||||
| 	LD	HL,SYS_PAGE.ID_FLAG - #4000 | ||||
| 	LD	DE,ID_SPRINTER_length | ||||
| 	LD	A,(DE) | ||||
| 	DEC	A | ||||
| 	INC	DE | ||||
| 	LD	B,A | ||||
| 	; LD	DE,ID_SPRINTER_FullSize | ||||
| 	; LD	A,(DE) | ||||
| 	; DEC	A | ||||
| 	; INC	DE | ||||
| 	; LD	B,A | ||||
| 	LD	B,ID_SPRINTER.Record1_Size | ||||
| 	LD	DE,ID_SPRINTER | ||||
| .loop:	LD	A,(DE) | ||||
| 	CP	(HL) | ||||
| 	JR	NZ,INIT_SYS_ALL | ||||
| @ -178,11 +182,14 @@ EMM.FullInit: | ||||
| 	OUT	(SLOT2),A | ||||
| INIT_SYS_ALL: | ||||
| 	DI | ||||
| 	LD	HL,ID_SPRINTER_length | ||||
|         LD	DE,SYS_PAGE.ID_FLAG - #4000 | ||||
| 	LD	C,(HL) | ||||
| 	LD	B,0 | ||||
| 	INC	HL | ||||
| 	; LD	HL,ID_SPRINTER_FullSize | ||||
|         ; LD	DE,SYS_PAGE.ID_FLAG - #4000 | ||||
| 	; LD	C,(HL) | ||||
| 	; LD	B,0 | ||||
| 	; INC	HL | ||||
| 	LD	HL,ID_SPRINTER | ||||
| 	LD	DE,SYS_PAGE.ID_FLAG - #4000 | ||||
| 	LD	BC,ID_SPRINTER.Record1_Size | ||||
| 	LDIR | ||||
|          | ||||
| 	; Disable user IM address in SYS_PAGE | ||||
|  | ||||
| @ -426,7 +426,7 @@ INSTALL: | ||||
| 	LD	E,COLORS.CGA.INC.GREEN | ||||
| 	CALL	POSTMSC | ||||
| 
 | ||||
|  IF DEBUG | ||||
|  IF BETA_BUILD | ||||
| 	LD	DE,#0328 | ||||
|         CALL    LP_SET_PLACE | ||||
| 	LD	A,msgStrings.testBIOSmsg | ||||
|  | ||||
| @ -632,7 +632,7 @@ msgStrings: | ||||
|   _mSetStr parSetTime, tmp_Counter		:       DZ      'Date and Time setup : ' | ||||
|   _mSetStr valFolder, tmp_Counter		:       DB      16,'ENTER',17,0 | ||||
|  ENDIF | ||||
|  IF DEBUG | ||||
|  IF BETA_BUILD | ||||
|   _mSetStr testBIOSmsg, tmp_Counter		:	DZ      'Test build! ',BUILD_DATE,', ',__TIME__ | ||||
|  ENDIF | ||||
| ; | ||||
| @ -781,7 +781,7 @@ msgRusStrings: | ||||
|  _mSetStrRus parSetTime, tmp_Counter		:	DZ	'„ â  ¨ ¢à¥¬ï        : ' | ||||
|  _mSetStrRus valFolder, tmp_Counter		:	DB	16,'‚‚Ž„',17,0 | ||||
|  ENDIF | ||||
|  IF DEBUG | ||||
|  IF BETA_BUILD | ||||
|  _mSetStrRus testBIOSmsg, tmp_Counter		:	DZ	'’¥á⮢ ï ᡮઠ! ',BUILD_DATE,', ',__TIME__ | ||||
|  ENDIF | ||||
| ;	 | ||||
|  | ||||
| @ -1,6 +1,6 @@ | ||||
| ;                                         | ||||
| ;---------[All shared defines]----------  | ||||
| 	DEFINE	DEBUG			1			; ¤®¡ ¢«ï¥â áâப㠨 á®®¡é¥¨¥ ® â¥á⮢®© ᡮથ   áâ à⮢®¬ íªà ¥ | ||||
| 	DEFINE	BETA_BUILD		1			; ¤®¡ ¢«ï¥â áâப㠨 á®®¡é¥¨¥ ® â¥á⮢®© ᡮથ   áâ à⮢®¬ íªà ¥ | ||||
| 	DEFINE	PACKED_MAIN		0			; ¯ ª®¢ âì MAIN ¨«¨ ¢«¥§ ¥â ¡¥§ í⮣®? | ||||
| 	DEFINE	SP2000_Loader_Flag	#0107 | ||||
| 	DEFINE	IDE_Optimization	1			; á«¥£ª  ®¯â¨¬¨§¨àã¥â ¥ª®â®àë¥ ¯à®æ¥¤ãàë à ¡®âë á HDD | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 Anatoliy Belyanskiy
						Anatoliy Belyanskiy