...

Shared_Includes

@@ -1 +1 @@
-Subproject commit c7bcbd096d4674064766dc9f61121f4843ddd635
+Subproject commit 54843903de0b33e3403f6f6c5b7d144c7bd482aa

src/bios/exp/EXP.asm

@@ -777,6 +777,12 @@ Check_EE_Port:	LD	A,ACEX.RET_PORT
 	 	 ;CALL	@ToBIOS_3D13					; ¯¥à¥ãáâ ­®¢¨âì ¢­ãâà. ¯®àâ #EE
 		 CALL	SET_PORTS
 		;
+		; [ ] 20/10/2024 ¨£­®à ¯¥à¥å¢ â稪  ¯® ª« ¢¨è¥ 0
+		 LD	A,high ZXKeys.Line_4
+		 IN	A,(ZXKeys)
+		 RRCA
+		 JR	NC,No_Reset_handlers
+		;
 		LD	A,B
 		AND	A
 		JR	Z,Check_Spec_Page

src/bios/exp/FUNC_SCREEN.ASM

@@ -7,7 +7,7 @@ PIC_FN1:
 	SCF
 	RET NZ
 
-	IN A,(RGADR)
+	IN A,(PORT_Y)
 	PUSH AF
 
 	IN A,(SLOT3)
@@ -17,7 +17,7 @@ PIC_FN1:
 
 	LD A,(WIN_ID_0.GRAF_Y)
 	ADD A,E
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	LD A,B
 	LD BC,(WIN_ID_0.GRAF_X)
 	ADD HL,BC
@@ -29,7 +29,7 @@ PIC_FN1:
 	OUT (SLOT3),A
 
 	POP AF
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	RET
 
 ; ¢å®¤:	DE - ¢¥à⨪ «ì, HL - £®à¨§®­â «ì.
@@ -53,7 +53,7 @@ PIC_FN2_NO_2ND:
 	ADD HL,BC
 
 	LD A,E
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 
 	LD A,XH
 	AND A
@@ -108,7 +108,7 @@ PIC_FN2_NO4:
 	EX AF,AF'
 	OUT (SLOT1),A
 	XOR A
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	RET
 
 ;************************************************************************
@@ -140,7 +140,7 @@ PIC_FN3_NO_2ND:
 	ADD HL,BC
 
 	LD A,E
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 
 	LD A,H
 	EXX
@@ -179,7 +179,7 @@ PIC_FN3_NO:
 	OUT (SLOT3),A
 
 	XOR A
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	RET
 
 ;**************************************************************************
@@ -190,10 +190,10 @@ PIC_SET_PAL:
 	PUSH	IX
 
 	EX	AF,AF'
-	 IN	A,(RGADR)
+	 IN	A,(PORT_Y)
-	 PUSH	AF		; á®åà ­¨âì ¯®«®¦¥­¨¥ RGADR
+	 PUSH	AF		; á®åà ­¨âì ¯®«®¦¥­¨¥ PORT_Y
 	 LD	A,E
-	 OUT	(RGADR),A	; ­ ç «ì­ë© 梥⠢ ¯®àâ
+	 OUT	(PORT_Y),A	; ­ ç «ì­ë© 梥⠢ ¯®àâ
 	 LD	A,D		; á®åà ­¨âì ç¨á«® 梥⮢
 	EX	AF,AF'		; ¢¥à­ãâì áâà ­¨æã PAL
 
@@ -246,14 +246,14 @@ PIC_SET_PAL:
 	LD	(IX+3),A
 	INC	HL
 
-	IN	A,(RGADR)
+	IN	A,(PORT_Y)
 	INC	A
-	OUT	(RGADR),A
+	OUT	(PORT_Y),A
 	DJNZ	.loopPal	; ¢ë¯®«­ïâì, ¯®ª  ­¥ 0
 
 .exit:	OUT (C),E	; ¢®ááâ ­®¢¨âì áâà ­¨æã 3
 	POP AF
-	OUT (RGADR),A	; ¢®ááâ ­®¢¨âì Y_PORT
+	OUT (PORT_Y),A	; ¢®ááâ ­®¢¨âì Y_PORT
 	POP IX
 	AND A
 	RET
@@ -277,9 +277,9 @@ PIC_GET_PAL:
 	LD (HL),A	; Y
 	INC HL
 
-	IN A,(RGADR)
+	IN A,(PORT_Y)
 	INC A
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	DJNZ .loopPal	; ¢ë¯®«­ïâì, ¯®ª  ­¥ 0
 
 	JR	PIC_SET_PAL.exit
@@ -324,14 +324,14 @@ SET_PAL_INIT:
 ;	LD A,#50
 ;	OUT (SLOT1),A
 ;	XOR A
-;	OUT (RGADR),A
+;	OUT (PORT_Y),A
 ;	EX AF,AF'
 ;	call PAL_LOOP_M
 ;
 ;	POP AF
 ;	OUT (SLOT1),A
 ;	XOR A
-;	OUT (RGADR),A
+;	OUT (PORT_Y),A
 ;
 ;	RET
 
@@ -357,7 +357,7 @@ PIC_FN7:
 	ADD HL,BC
 	LD A,E
 
-.loop:	OUT (RGADR),A	; áâà ­¨æ  ¢¨¤¥®-Ž‡“
+.loop:	OUT (PORT_Y),A	; áâà ­¨æ  ¢¨¤¥®-Ž‡“
 	LD (HL),D
 
 	EXX
@@ -390,7 +390,7 @@ PIC_FN7:
 	POP AF
 	OUT (SLOT1),A
 	XOR A
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	RET
 
 ;******************************************************************
@@ -414,7 +414,7 @@ PIC_FN8:
 	ADD HL,BC
 	LD A,E
 
-.loop:	OUT (RGADR),A	; áâà ­¨æ  ¢¨¤¥®-Ž‡“
+.loop:	OUT (PORT_Y),A	; áâà ­¨æ  ¢¨¤¥®-Ž‡“
 	LD D,(IX)
 	INC IX
 	LD (HL),D
@@ -451,7 +451,7 @@ PIC_FN8:
 	POP AF
 	OUT (SLOT1),A
 	XOR A
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	RET
 
 ;**************************************************
@@ -485,14 +485,14 @@ PIC_FN15:
 ; 	MACRO NEXT_LIN_H
 ; 		EX AF,AF'
 ; 		INC A
-; 		OUT (RGADR),A
+; 		OUT (PORT_Y),A
 ; 		EX AF,AF'
 ; 	ENDM
 
 ; 	MACRO NEXT_LIN_HP
 ; 		EX AF,AF'
 ; 		INC A
-; 		OUT (RGADR),A
+; 		OUT (PORT_Y),A
 ; 		JR NZ,.MD_NO_INC_H
 ; 		INC L
 ; .MD_NO_INC_H:
@@ -520,7 +520,7 @@ SET_TXT_PALETTE:
 	;
 .ZX:	LD DE,0
 .TXT:	PUSH IX
-	IN A,(RGADR)
+	IN A,(PORT_Y)
 	PUSH AF
 	IN A,(SLOT3)
 	EX AF,AF'
@@ -531,7 +531,7 @@ SET_TXT_PALETTE:
 .generate_loop:
 	CALL GENERATE_PAL1
 	LD A,E
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	LD (IX),L	; R
 	LD (IX+1),B	; G
 	LD (IX+2),C	; B
@@ -549,7 +549,7 @@ SET_TXT_PALETTE:
 	EX AF,AF'
 	OUT (SLOT3),A
 	POP AF
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	POP IX
 	RET
 
@@ -680,7 +680,7 @@ GENERATE_IBM:
 ; D - ­®¬¥à £à ä¨ç¥áª®© ¯ «¨âàë
 SET_GRAPH_PALETTE:
 	PUSH IX
-	IN A,(RGADR)
+	IN A,(PORT_Y)
 	PUSH AF
 
 	IN A,(SLOT3)
@@ -708,7 +708,7 @@ SET_GRAPH_PALETTE:
 
 SET_PAL_GR1:
 	LD A,E
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 
 	LD (IX),L
 	LD (IX+1),B
@@ -730,7 +730,7 @@ SET_PAL_GR1:
 
 SET_PAL_GR2:
 	LD A,E
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 
 	LD (IX),L
 	LD (IX+1),B
@@ -745,7 +745,7 @@ SET_PAL_GR2:
 	EX AF,AF'
 	OUT (SLOT3),A
 	POP AF
-	OUT (RGADR),A
+	OUT (PORT_Y),A
 	POP IX
 	RET
 ;

src/bios/exp/FUNC_SERVICE.asm

@@ -109,7 +109,7 @@ RST_CONF:
 .not_vRAM_page:	 CP	ACEX.Config_PG.Sp2000_SoftSetUp
 		 JP	Z,.ReturnSoftReset
 		 ;
-		 CP	ACEX.Config_PG.Sp2000
+		 CP	ACEX.Config_PG.Sp2000_AcexSetUp
 		 JR	Z,.INIT_ACEX
 		 ;
 		 CP	ACEX.Config_PG.Sp2000_SetUp
@@ -163,9 +163,9 @@ RST_CONF:
 		LDIR
 		; ¥á«¨ ZF=0, â® ¯à®æ¥¤ãà  á¤¥« ¥â à¥á¥â á ¯¥à¥§ «¨¢ª®© ¨§ BIOS, ¨­ ç¥ ¨§ Š<>˜
 		CALL	Spec_Page.init_acex
-		LD	BC,BIOS.REINIT.HARD_RESET
+		LD	B,high BIOS.REINIT.HARD_RESET
 		;
-		; ­  ¢å®¤¥ ¢ BC ¯ à ¬¥âàë ä㭪樨 BIOS
+		; ­  ¢å®¤¥ ¢ B ¯ à ¬¥âàë ä㭪樨 BIOS REINIT
 .INIT_ACEX.ifSoftreset:
 		; á®å࠭塞 ¢®âª­ãâë¥ áâà ­¨æë ¢ Spec_Page
 		IN	A,(SLOT0)
@@ -209,7 +209,7 @@ RST_CONF:
 		; *
 		; .. ... ... .. 
 		;LD	BC,BIOS.REINIT.HARD_RESET
-		JP_to_BIOS
+		JP	REINIT
 		;
 .ReturnSoftReset:
 		DI
@@ -222,7 +222,7 @@ RST_CONF:
 		LD	A,Spec_Page
 		OUT	(SLOT3),A
 		;
-		LD	BC,BIOS.REINIT.SOFT_RESET
+		LD	B,high BIOS.REINIT.SOFT_RESET
 		JR	.INIT_ACEX.ifSoftreset
 		;
 		;;;
@@ -373,28 +373,6 @@ REINIT:		DEC	B
 		OUT	(C),B
 		RET
 
-;[x]
-.HardReset:
-        DI
-	LD	A,SYS_PORT.CNF_0
-	OUT	(SYS_PORT.ROM),A
-	;
-	LD	A,Z84.REG.Misc_Ctrl
-	OUT	(Z84.SYS.Control),A
-	LD	A,%0000'0011		; CS1/CS0 enabled		
-	OUT	(Z84.SYS.Data),A
-	;
-        LD      A,DCP_PAGE
-        OUT     (SLOT1),A                                               ; set DCP page
-        LD      A,ACEX.RESET
-        LD      (#4400),A                                               ; open for WR
-.loop:  LD      BC,#0100                                                ; 横« á¡à®á 
-        OUT     (C),C
-        LD      B,C
-        OUT     (C),C
-        JR      .loop                                                   ; ¯®«­®áâìî § æ¨ª«¨âì!
-;
-
 ;[x]
 .Restart:	DI
 		XOR	A
@@ -433,6 +411,27 @@ REINIT:		DEC	B
 		JR .loop2
 ;
 
+;[x]
+.HardReset:
+        DI
+	LD	A,SYS_PORT.CNF_0
+	OUT	(SYS_PORT.ROM),A
+	;
+	LD	A,Z84.REG.Misc_Ctrl
+	OUT	(Z84.SYS.Control),A
+	LD	A,%0000'0011		; CS1/CS0 enabled		
+	OUT	(Z84.SYS.Data),A
+	;
+        LD      A,DCP_PAGE
+        OUT     (SLOT1),A                                               ; set DCP page
+        LD      A,ACEX.RESET
+        LD      (#4400),A                                               ; open for WR
+.loop:  LD      BC,#0100                                                ; 横« á¡à®á 
+        OUT     (C),C
+        LD      B,C
+        OUT     (C),C
+        JR      .loop                                                   ; ¯®«­®áâìî § æ¨ª«¨âì!
+;
 ;----------------------------------------------------------------------;
 ; ‚室:	 H - RAM_TABLE
 ;	 D - Buffer for RAM_TABLE

src/bios/rom/SETUP/MAIN.asm

@@ -492,9 +492,9 @@ INSTALL:
 	CALL	INT_ON
 	CALL	SET_CGA
 	XOR	A
-	OUT	(#FE),A
+	OUT	(BorderColor),A
 	LD	IX,win_descriptor.tab80x32
-	LD	HL,#0000
+	;LD	HL,#0000
 	LD	E,1
         CALL    WIN_OPEN
 

src/bios/rom/SETUP/SETTINGS.asm

@@ -858,7 +858,7 @@ setInt: ld a,CMOS_CELL.ScreenSET
 .set:   CALL    FN_SYNC
 
         LD	IX,win_descriptor.tab80x32
-        LD	HL,#0000
+        ;LD	HL,#0000
         LD	E,1
         CALL    WIN_OPEN
 

src/bios/rom/SETUP/VIDEO_IO.asm

@@ -229,7 +229,7 @@ LOGOTYPE:	CALL	SHOW_LOGO
 		DJNZ	.MMA
 	;	;
 .ERASE_LOGO:	LD	IX,win_descriptor.tab80x32
-		LD	HL,#0000
+		;LD	HL,#0000
 		LD	E,1
 		;
 		EI 
@@ -252,7 +252,7 @@ LOGOTYPE:	CALL	SHOW_LOGO
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 SHOW_LOGO:	LD	IX,win_descriptor.tab320x256
-		LD	HL,#0000
+		;LD	HL,#0000
 		LD	E,1
 		CALL    WIN_OPEN
 
@@ -363,7 +363,7 @@ go_setup:		; !FIXIT
 	jr      nz,go_setup
 
 	LD	IX,win_descriptor.tab80x32
-	LD	HL,#0000
+	;LD	HL,#0000
 	LD	E,1
         CALL    WIN_OPEN
 	JP      ENTER_SETUP
@@ -456,6 +456,20 @@ LOGO_TO_SCREEN:
 
 
 SET_CGA:
+	; LD	A,4
+	; LD	B,3
+	; CALL	SET_PAL_INIT
+	; LD	A,5
+	; LD	B,3
+	; CALL	SET_PAL_INIT
+	; LD	A,6
+	; LD	B,3
+	; CALL	SET_PAL_INIT
+	; LD	A,7
+	; LD	B,3
+	; CALL	SET_PAL_INIT
+	; RET
+
 	CALL	SETPAL4
 	 LD	A,4                                                     ; page_pal
 	 LD	HL,memBUFFER.Shared
@@ -495,10 +509,10 @@ SETPAL4:
 	LD	DE,memBUFFER.Shared
 	LD	C,#08
 
-DCR0:	LD	B,COLORS.CGA.PALETTE.ColNum
+.DCR0:	LD	B,COLORS.CGA.PALETTE.ColNum
 	PUSH	HL
 	;
-DCR1:	POP	HL
+.DCR1:	POP	HL
 	PUSH	HL
 	PUSH	BC
 	LDI 
@@ -506,12 +520,12 @@ DCR1:	POP	HL
 	LDI 
 	LDI 
 	POP	BC
-	DJNZ	DCR1
+	DJNZ	.DCR1
 	;
 	INC	SP
 	INC	SP
 	DEC	C
-	JR	NZ,DCR0
+	JR	NZ,.DCR0
 	
 	LD	HL,memBUFFER.Shared
 	LD	BC,512
@@ -522,14 +536,14 @@ SETPAL5:
 	LD	HL,COLORS.CGA.PALETTE
 	LD	DE,memBUFFER.Shared
 	LD	B,#08
-DCR01:
+.DCR01:
 	PUSH	BC
 	PUSH	HL
 	LD	BC,16*4
 	LDIR 
 	POP	HL
 	POP	BC
-	DJNZ	DCR01
+	DJNZ	.DCR01
 	LD	HL,memBUFFER.Shared
 	LD	BC,512
 	LDIR