чуть дружелюбнее переход в режим спектрума
This commit is contained in:
parent
bb8bbd4d81
commit
085ef3c332
@ -1 +1 @@
|
|||||||
Subproject commit eebde92dd60cdf33588e34a7248413ec107edfe0
|
Subproject commit 3ac606f87285e76a56c826ad33efdd26ada872f6
|
||||||
@ -220,39 +220,39 @@ VARIABLE
|
|||||||
BEGIN
|
BEGIN
|
||||||
|
|
||||||
%
|
%
|
||||||
DC.CLK42 = CLK42;
|
-- DC.CLK42 = CLK42;
|
||||||
DC./RESET = /RESET;
|
-- DC./RESET = /RESET;
|
||||||
|
--
|
||||||
DC.A[15..0] = A[15..0];
|
-- DC.A[15..0] = A[15..0];
|
||||||
|
--
|
||||||
DC./IO = /IO;
|
-- DC./IO = /IO;
|
||||||
DC./WR = /WR;
|
-- DC./WR = /WR;
|
||||||
DC./M1 = /M1;
|
-- DC./M1 = /M1;
|
||||||
|
--
|
||||||
-- DC./IOM;
|
-- -- DC./IOM;
|
||||||
-- DC./IOMM;
|
-- -- DC./IOMM;
|
||||||
-- DC.DCP[7..0];
|
-- -- DC.DCP[7..0];
|
||||||
|
--
|
||||||
DC.DOS = DOS;
|
-- DC.DOS = DOS;
|
||||||
DC.CNF[1..0]= CNF[4..3];
|
-- DC.CNF[1..0]= CNF[4..3];
|
||||||
|
--
|
||||||
DC.SYS = SYS;
|
-- DC.SYS = SYS;
|
||||||
|
--
|
||||||
-- DC.PORT_X;
|
-- -- DC.PORT_X;
|
||||||
%
|
%
|
||||||
|
|
||||||
|
|
||||||
-- ==============================================================
|
-- ==============================================================
|
||||||
%
|
%
|
||||||
CT[].clk = CLK42;
|
-- CT[].clk = CLK42;
|
||||||
|
--
|
||||||
IF CT1 THEN
|
-- IF CT1 THEN
|
||||||
CT[1..0] = GND;
|
-- CT[1..0] = GND;
|
||||||
CT2 = !CT2;
|
-- CT2 = !CT2;
|
||||||
ELSE
|
-- ELSE
|
||||||
CT[1..0] = CT[1..0]+1;
|
-- CT[1..0] = CT[1..0]+1;
|
||||||
CT2 = CT2;
|
-- CT2 = CT2;
|
||||||
END IF;
|
-- END IF;
|
||||||
%
|
%
|
||||||
|
|
||||||
/RES = DFFE(VCC,CLK42,,,CT0);
|
/RES = DFFE(VCC,CLK42,,,CT0);
|
||||||
@ -319,18 +319,18 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
%
|
%
|
||||||
MA_[11..0] bit0 - WG_A5
|
-- MA_[11..0] bit0 - WG_A5
|
||||||
bit1 - WG_A6
|
-- bit1 - WG_A6
|
||||||
bit2 - MUX_KP11, 0 - WG,CMOS 1 - KMPS,TM9
|
-- bit2 - MUX_KP11, 0 - WG,CMOS 1 - KMPS,TM9
|
||||||
bit3 - RD/WR 0 - WRITE 1 - READ
|
-- bit3 - RD/WR 0 - WRITE 1 - READ
|
||||||
bit4 - CS_WG93 or WR_TM9
|
-- bit4 - CS_WG93 or WR_TM9
|
||||||
bit5 - HDD/CMOS strobe
|
-- bit5 - HDD/CMOS strobe
|
||||||
bit7,6 - 00 - not
|
-- bit7,6 - 00 - not
|
||||||
01 - ????
|
-- 01 - ????
|
||||||
10 - HDD1/2
|
-- 10 - HDD1/2
|
||||||
11 - CMOS
|
-- 11 - CMOS
|
||||||
bit8 - HDD CS1/CS3 or CMOS data/adr
|
-- bit8 - HDD CS1/CS3 or CMOS data/adr
|
||||||
bit9,10,11 - HDD_A[2..0]
|
-- bit9,10,11 - HDD_A[2..0]
|
||||||
%
|
%
|
||||||
CASE A[15..14] IS
|
CASE A[15..14] IS
|
||||||
WHEN 0 => SP_SCR = GND; SP_SA = GND;
|
WHEN 0 => SP_SCR = GND; SP_SA = GND;
|
||||||
@ -357,11 +357,11 @@ BEGIN
|
|||||||
WHEN 1 => X_MA_[] = (HDD_A[2..0],B"00000",/WR,VCC,A[6..5]);
|
WHEN 1 => X_MA_[] = (HDD_A[2..0],B"00000",/WR,VCC,A[6..5]);
|
||||||
END CASE;
|
END CASE;
|
||||||
%
|
%
|
||||||
CASE MA_CT1 IS
|
-- CASE MA_CT1 IS
|
||||||
-- WHEN 0 => MA_[] = X_ADR[];
|
---- WHEN 0 => MA_[] = X_ADR[];
|
||||||
WHEN 0 => MA_[] = (GND,X_ADR[10..0]);
|
-- WHEN 0 => MA_[] = (GND,X_ADR[10..0]);
|
||||||
WHEN 1 => MA_[] = (HDD_A[2..0],X_MA_[8..4],/WR,X_MA_[3],A[6..5]);
|
-- WHEN 1 => MA_[] = (HDD_A[2..0],X_MA_[8..4],/WR,X_MA_[3],A[6..5]);
|
||||||
END CASE;
|
-- END CASE;
|
||||||
%
|
%
|
||||||
|
|
||||||
CASE (IO_RW,MA_CT1) IS
|
CASE (IO_RW,MA_CT1) IS
|
||||||
@ -667,7 +667,7 @@ END GENERATE;
|
|||||||
SC[].clrn = /RESET & !CNF6; -- Scorpion-OFF
|
SC[].clrn = /RESET & !CNF6; -- Scorpion-OFF
|
||||||
|
|
||||||
PN[5..0].clrn = /RESET & !CNF5; -- reset PN5
|
PN[5..0].clrn = /RESET & !CNF5; -- reset PN5
|
||||||
PN[7..5].clrn = /RESET & CNF7; -- set Pentagon-512
|
PN[7..6].clrn = /RESET & CNF7; -- set Pentagon-512
|
||||||
|
|
||||||
PN4Q = PN4;
|
PN4Q = PN4;
|
||||||
|
|
||||||
|
|||||||
@ -929,7 +929,8 @@ Setup_to_RAM: LD HL,Setup_Starter.Start
|
|||||||
LDIR
|
LDIR
|
||||||
; á⥪ ª« ¤ñâáï ¤à¥á ¢®§¢à â ¨ ¤ «ìè¥ â é¨âáï ¢á直¬¨ ª®áâë«ï¬¨, ç⮡ ¢¥àãâìáï § ¤
|
; á⥪ ª« ¤ñâáï ¤à¥á ¢®§¢à â ¨ ¤ «ìè¥ â é¨âáï ¢á直¬¨ ª®áâë«ï¬¨, ç⮡ ¢¥àãâìáï § ¤
|
||||||
CALL Setup_Starter.Exec ; #C000
|
CALL Setup_Starter.Exec ; #C000
|
||||||
PrepareToZX: ; Setup HDD drives for ZX Spectrum mode
|
PrepareToZX: ;CALL init_zx_roms
|
||||||
|
; Setup HDD drives for ZX Spectrum mode
|
||||||
DI
|
DI
|
||||||
LD D,CMOS_CELL.TRDOSmount
|
LD D,CMOS_CELL.TRDOSmount
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
@ -1480,7 +1481,7 @@ PROG_NO_ROM:
|
|||||||
;
|
;
|
||||||
LD HL,#A000
|
LD HL,#A000
|
||||||
LD D,0 ; delimiter
|
LD D,0 ; delimiter
|
||||||
LD E,COLORS.CGA.FLASH + COLORS.CGA.INC.RED
|
LD E,COLORS.CGA.FLASH + COLORS.CGA.INK.RED
|
||||||
LD B,A
|
LD B,A
|
||||||
LD C,BIOS.LP_PRINT_LINE3
|
LD C,BIOS.LP_PRINT_LINE3
|
||||||
RST ToBIOS
|
RST ToBIOS
|
||||||
|
|||||||
13
src/bios/exp/ZX_MEM.TXT
Normal file
13
src/bios/exp/ZX_MEM.TXT
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
Žâ¤¥«ìë¥ à ¬¡«®ª¨ ¤«ï:
|
||||||
|
vROM
|
||||||
|
vRAM
|
||||||
|
Žâ¤¥«ìë¥ ¯à®æ¥¤ãàë ¢ë¤¥«¥¨ï áâà ¨æ ¤«ï:
|
||||||
|
#1FFD - ®¡à ¡ âë¢ âì ¯¥à¢ë¬ ¥á«¨ 㦥. <20>¥ ¯®¤å®¤ïâ #A0, #D0..#DF
|
||||||
|
#7FFD - 128/512, ¥ ¢ë¤¥«ïâì ¯ ¬ïâì ¤«ï #1FFD ¢ ०¨¬¥ pent 512
|
||||||
|
vROM
|
||||||
|
‘âà ¨æã 0 ¨á¯®«ì§®¢ âì ª ª à ìè¥ ¤«ï ¬ ¯¯ ¢ #7FFD ¨ ¤«ï #1FFD=1
|
||||||
|
<EFBFBD>®¤ªàãâ¨âì ¢ ¬¥î ᯥªâà㬠¯¥à¥ª«îç «ªã ०¨¬®¢ ¨ ®á¢®¡®¦¤¥¨¥ ¯ ¬ï⨠¯®¤ ®¢ãî ¬®¤¥«ì ¯ ¬ïâ¨
|
||||||
|
<EFBFBD>ਠ®á¢®¡®¦¤¥¨¨ ¯ ¬ï⨠vROM ¬ ¯¨âì í⨠¯®àâë ®¡à â® Spec_Page
|
||||||
|
<EFBFBD>஢¥à¨âì å प®¤ ¡¨®á ¨ zxroms, ç⮡ ¥ ¢âëª «¨áì áâ ¤ àâë¥ (§ १¥à¢¨à®¢ ë¥) áâà ¨æë
|
||||||
|
;
|
||||||
|
‘¤¥« âì ¯¥à¥ª«îç «ªã ¢ ¡¨®á¥ áâ àë©/®¢ë© ०¨¬ à ¡®âë ¯ ¬ïâ¨?
|
||||||
@ -411,29 +411,29 @@ INSTALL:
|
|||||||
LD DE,#0028 ; !HARDCODE
|
LD DE,#0028 ; !HARDCODE
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
LD HL,memBUFFER.ID
|
LD HL,memBUFFER.ID
|
||||||
LD A,COLORS.CGA.INC.LCYAN
|
LD A,COLORS.CGA.INK.LCYAN
|
||||||
CALL CPRINTZ
|
CALL CPRINTZ
|
||||||
; LD HL,BUILD
|
; LD HL,BUILD
|
||||||
; LD A,COLORS.CGA.INC.LCYAN
|
; LD A,COLORS.CGA.INK.LCYAN
|
||||||
; CALL CPRINTZ
|
; CALL CPRINTZ
|
||||||
|
|
||||||
LD DE,#0128 ; !HARDCODE
|
LD DE,#0128 ; !HARDCODE
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
LD A,msgStrings.copyRightPeters
|
LD A,msgStrings.copyRightPeters
|
||||||
LD E,COLORS.CGA.INC.LGREEN
|
LD E,COLORS.CGA.INK.LGREEN
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
|
|
||||||
LD DE,#0228 ; !HARDCODE
|
LD DE,#0228 ; !HARDCODE
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
LD A,msgStrings.copyRightSPTeam
|
LD A,msgStrings.copyRightSPTeam
|
||||||
LD E,COLORS.CGA.INC.GREEN
|
LD E,COLORS.CGA.INK.GREEN
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
|
|
||||||
IF BETA_BUILD > 0
|
IF BETA_BUILD > 0
|
||||||
LD DE,#0328
|
LD DE,#0328
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
LD A,msgStrings.testBIOSmsg
|
LD A,msgStrings.testBIOSmsg
|
||||||
LD E,COLORS.CGA.FLASH + COLORS.CGA.INC.RED
|
LD E,COLORS.CGA.FLASH + COLORS.CGA.INK.RED
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
@ -569,7 +569,7 @@ QIGNORE:
|
|||||||
;CALL ScreenPOS.LOCAT
|
;CALL ScreenPOS.LOCAT
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
LD A,msgStrings.toSetupButton
|
LD A,msgStrings.toSetupButton
|
||||||
LD E,COLORS.CGA.FLASH + COLORS.CGA.INC.WHITE
|
LD E,COLORS.CGA.FLASH + COLORS.CGA.INK.WHITE
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
|
|
||||||
LD DE,#0900
|
LD DE,#0900
|
||||||
@ -582,7 +582,7 @@ ERRSUM+1:
|
|||||||
XOR A
|
XOR A
|
||||||
ld (.ErrDateTime+1),a ; ¥á«¨ ª®â஫ì ï á㬬 ᫥⥫ , â® á®®¡é¥¨¥ ® ªà¨¢ëå ¤ â¥/¢à¥¬¥¨ ¢ ª¬®á ¥ ¢ë¢®¤¨¬
|
ld (.ErrDateTime+1),a ; ¥á«¨ ª®â஫ì ï á㬬 ᫥⥫ , â® á®®¡é¥¨¥ ® ªà¨¢ëå ¤ â¥/¢à¥¬¥¨ ¢ ª¬®á ¥ ¢ë¢®¤¨¬
|
||||||
LD A,msgStrings.cmosChecksumErr
|
LD A,msgStrings.cmosChecksumErr
|
||||||
LD E,COLORS.CGA.INC.RED
|
LD E,COLORS.CGA.INK.RED
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
@ -593,7 +593,7 @@ ERRSUM+1:
|
|||||||
OR A
|
OR A
|
||||||
JR Z,CHEKOK
|
JR Z,CHEKOK
|
||||||
LD A,msgStrings.cmosDateTimeErr
|
LD A,msgStrings.cmosDateTimeErr
|
||||||
LD E,COLORS.CGA.INC.RED
|
LD E,COLORS.CGA.INK.RED
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
@ -657,14 +657,14 @@ INFO_MESSAGE:
|
|||||||
; LD DE,#0428
|
; LD DE,#0428
|
||||||
; CALL LP_SET_PLACE
|
; CALL LP_SET_PLACE
|
||||||
; LD A,msgStrings.forCtrlBootButton
|
; LD A,msgStrings.forCtrlBootButton
|
||||||
; LD E,COLORS.CGA.INC.WHITE
|
; LD E,COLORS.CGA.INK.WHITE
|
||||||
; CALL POSTMSC
|
; CALL POSTMSC
|
||||||
;
|
;
|
||||||
; <ALT> For alternative boot
|
; <ALT> For alternative boot
|
||||||
LD DE,#0528
|
LD DE,#0528
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
LD A,msgStrings.forAltBootButton
|
LD A,msgStrings.forAltBootButton
|
||||||
LD E,COLORS.CGA.INC.WHITE
|
LD E,COLORS.CGA.INK.WHITE
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
|
|
||||||
|
|
||||||
@ -690,20 +690,20 @@ INFO_MESSAGE:
|
|||||||
RECOVERY_BOOT:
|
RECOVERY_BOOT:
|
||||||
CALL PrepareToBOOT
|
CALL PrepareToBOOT
|
||||||
LD A,msgStrings.bootFail
|
LD A,msgStrings.bootFail
|
||||||
LD E,COLORS.CGA.INC.LRED
|
LD E,COLORS.CGA.INK.LRED
|
||||||
CALL C,POSTMSC
|
CALL C,POSTMSC
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
;
|
;
|
||||||
CALL INT_ON
|
CALL INT_ON
|
||||||
ALT_BOOT:
|
ALT_BOOT:
|
||||||
LD A,msgStrings.bootAltDrv
|
LD A,msgStrings.bootAltDrv
|
||||||
LD E,COLORS.CGA.INC.LGREEN
|
LD E,COLORS.CGA.INK.LGREEN
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
|
|
||||||
LD BC,CMOS_CELL.BootDrives.Mask.AltSysDisk ;#7010
|
LD BC,CMOS_CELL.BootDrives.Mask.AltSysDisk ;#7010
|
||||||
CALL PrepareToBOOT
|
CALL PrepareToBOOT
|
||||||
LD A,msgStrings.bootFail
|
LD A,msgStrings.bootFail
|
||||||
LD E,COLORS.CGA.INC.LRED
|
LD E,COLORS.CGA.INK.LRED
|
||||||
CALL C,POSTMSC
|
CALL C,POSTMSC
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
|
|
||||||
@ -715,7 +715,7 @@ ALT_BOOT:
|
|||||||
|
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
LD A,msgStrings.afterBootFail
|
LD A,msgStrings.afterBootFail
|
||||||
LD E,COLORS.CGA.INC.RED
|
LD E,COLORS.CGA.INK.RED
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
|
|
||||||
;EI
|
;EI
|
||||||
@ -1056,7 +1056,7 @@ OS_LOAD:
|
|||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
PUSH AF
|
PUSH AF
|
||||||
LD A,msgStrings.bootOk
|
LD A,msgStrings.bootOk
|
||||||
LD E,COLORS.CGA.INC.LGREEN
|
LD E,COLORS.CGA.INK.LGREEN
|
||||||
;CALL POSTMSG
|
;CALL POSTMSG
|
||||||
CALL POSTMSC
|
CALL POSTMSC
|
||||||
CALL ScreenPOS.CRLF
|
CALL ScreenPOS.CRLF
|
||||||
@ -1586,9 +1586,9 @@ PRINT_CHANEL:
|
|||||||
|
|
||||||
;----------------------------------------------------------------------[]
|
;----------------------------------------------------------------------[]
|
||||||
;!TODO ᤥ« âì ¢ë¡®à ¢ Setup, çâ® £à㧨âì ¢ v<>‡“ ¯à¨ áâ àâ¥. ‚ ਠâë:
|
;!TODO ᤥ« âì ¢ë¡®à ¢ Setup, çâ® £à㧨âì ¢ v<>‡“ ¯à¨ áâ àâ¥. ‚ ਠâë:
|
||||||
;[ ] 0 - <20>¥ £à㧨âì <20>‡“ ᯥªâà㬠, ¨¨â¨âì áâà ¨æã #41 ª ª ¢ 3.04
|
;[x] 0 - <20>¥ £à㧨âì <20>‡“ ᯥªâà㬠, ¨¨â¨âì áâà ¨æã #41 ª ª ¢ 3.04
|
||||||
;[ ] 1 - ƒà㧨â <20>‡“ ᯥªâà㬠¨§ ROM ¯à¨ áâ à⥠¥á«¨ ¥â ä« £ ZX
|
;[x] 1 - ƒà㧨â <20>‡“ ᯥªâà㬠¨§ ROM ¯à¨ áâ à⥠¥á«¨ ¥â ä« £ ZX
|
||||||
;[ ] 2 - ƒà㧨â <20>‡“ ᯥªâà㬠¨§ ROM ¯à¨ ª ¦¤®¬ ¯¥à¥§ ¯ã᪥
|
;[x] 2 - ƒà㧨â <20>‡“ ᯥªâà㬠¨§ ROM ¯à¨ ª ¦¤®¬ ¯¥à¥§ ¯ã᪥
|
||||||
;[ ] 3 - <20>¥ £à㧨âì <20>‡“ ᯥªâà㬠, ¨¨â¨âì áâà ¨æã #41 â ª,
|
;[ ] 3 - <20>¥ £à㧨âì <20>‡“ ᯥªâà㬠, ¨¨â¨âì áâà ¨æã #41 â ª,
|
||||||
; ç⮡ ª®¤ ¢ ¥© ¯®¤£à㦠« <20>‡“ ᯥªâà㬠¯à¨ ®¡à 饨¨
|
; ç⮡ ª®¤ ¢ ¥© ¯®¤£à㦠« <20>‡“ ᯥªâà㬠¯à¨ ®¡à 饨¨
|
||||||
ZXMODE_SETUP: IN A,(SLOT3)
|
ZXMODE_SETUP: IN A,(SLOT3)
|
||||||
@ -1624,41 +1624,25 @@ ZXMODE_SETUP: IN A,(SLOT3)
|
|||||||
LD R,A
|
LD R,A
|
||||||
;
|
;
|
||||||
; Load ZX ROM's
|
; Load ZX ROM's
|
||||||
call init_zx_roms
|
CALL init_zx_roms
|
||||||
;
|
|
||||||
LD HL,#C000
|
|
||||||
LD DE,#C001
|
|
||||||
LD BC,#3FFF
|
|
||||||
LD (HL),C
|
|
||||||
LDIR ; § ¡¨âì FF- ¬¨
|
|
||||||
; áâ ¢¨¬ ¬¥âªã ¥á«¨ ¯à®£à㧨«¨ <20>‡“ ᯥªâàã¬
|
; áâ ¢¨¬ ¬¥âªã ¥á«¨ ¯à®£à㧨«¨ <20>‡“ ᯥªâàã¬
|
||||||
DEC DE ; Spec_Page.flag_X
|
LD HL,Spec_Page.flag_X
|
||||||
LD A,'X'
|
LD (HL),'X'
|
||||||
LD (DE),A
|
DEC HL ; Spec_Page.flag_Z
|
||||||
DEC DE ; Spec_Page.flag_Z
|
LD (HL),'Z'
|
||||||
LD A,'Z'
|
|
||||||
LD (DE),A
|
|
||||||
; ‡ £«ãèª ¤«ï áâà ¨æë #41 ¢á直© ¯®¦ àë©
|
|
||||||
.init_41h: LD HL,PROG_NO_ROM
|
|
||||||
LD DE,#C000 + Spec_Page.no_zx_rom
|
|
||||||
LD BC,PROG_NO_ROM.size
|
|
||||||
LDIR
|
|
||||||
;
|
;
|
||||||
LD HL,RAM_BIOS_PROG
|
|
||||||
LD DE,#C000 + Spec_Page.to_bios
|
|
||||||
LD BC,RAM_BIOS_PROG.Length
|
|
||||||
LDIR
|
|
||||||
.No_Need_To_Load_ZXROMS:
|
.No_Need_To_Load_ZXROMS:
|
||||||
POP AF
|
POP AF
|
||||||
OUT (SLOT3),A
|
OUT (SLOT3),A
|
||||||
RET
|
RET
|
||||||
|
;
|
||||||
|
.init_41h: CALL init_zx_roms.init_41h
|
||||||
|
JR .No_Need_To_Load_ZXROMS
|
||||||
;
|
;
|
||||||
;--------------------[copy zx-roms to zx-pages]-----------------;
|
;--------------------[copy zx-roms to zx-pages]-----------------;
|
||||||
; SLOT0 - ROM 8, sys_port - on.
|
; SLOT0 - ROM 8, sys_port - on.
|
||||||
; RAM SLOT0 - page 0
|
; RAM SLOT0 - page 0
|
||||||
; ¤«ï ०¨¬ zx spectrum
|
; ¤«ï ०¨¬ zx spectrum
|
||||||
; ‚›<E2809A>Ž‹<C5BD>Ÿ…’‘Ÿ ˆ‡ އ“
|
|
||||||
; !HARDCODE ®¬¥à áâà ¨æ ¤«ï í¬ã«ïâ®à <20>‡“
|
; !HARDCODE ®¬¥à áâà ¨æ ¤«ï í¬ã«ïâ®à <20>‡“
|
||||||
init_zx_roms: IN A,(SLOT3)
|
init_zx_roms: IN A,(SLOT3)
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
@ -1718,8 +1702,26 @@ init_zx_roms: IN A,(SLOT3)
|
|||||||
LD A,ACEX.vROM.BIOS_4 ; ROM-ID - BIOS-2
|
LD A,ACEX.vROM.BIOS_4 ; ROM-ID - BIOS-2
|
||||||
;LD B,#47 ;!HARDCODE page
|
;LD B,#47 ;!HARDCODE page
|
||||||
LD B,#41
|
LD B,#41
|
||||||
JP SET_PORTS
|
CALL SET_PORTS
|
||||||
; ¬®¦® § ¤¥©á⢮¢ âì ¥éñ 4 áâà ¨æë ¯®àâë #E4..#E7
|
; ¬®¦® § ¤¥©á⢮¢ âì ¥éñ 4 áâà ¨æë ¯®àâë #E4..#E7
|
||||||
|
;
|
||||||
|
.init_41h: ; § ¡¨âì FF- ¬¨
|
||||||
|
LD HL,#C000
|
||||||
|
LD DE,#C001
|
||||||
|
LD BC,#3FFF
|
||||||
|
LD (HL),C
|
||||||
|
LDIR
|
||||||
|
; ‡ £«ãèª ¤«ï áâà ¨æë #41
|
||||||
|
LD HL,PROG_NO_ROM
|
||||||
|
LD DE,#C000 + Spec_Page.no_zx_rom
|
||||||
|
LD BC,PROG_NO_ROM.size
|
||||||
|
LDIR
|
||||||
|
;
|
||||||
|
LD HL,RAM_BIOS_PROG
|
||||||
|
LD DE,#C000 + Spec_Page.to_bios
|
||||||
|
LD BC,RAM_BIOS_PROG.Length
|
||||||
|
LDIR
|
||||||
|
RET
|
||||||
;---------------------------------------------------------------------[]
|
;---------------------------------------------------------------------[]
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -386,10 +386,10 @@ FSC1:
|
|||||||
ITEM: DB #00
|
ITEM: DB #00
|
||||||
ITEM_Restore: DB #00
|
ITEM_Restore: DB #00
|
||||||
|
|
||||||
NORCLR: DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.WHITE
|
NORCLR: DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
|
||||||
HLTCLR: DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.YELLOW
|
HLTCLR: DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.YELLOW
|
||||||
CURCLR: DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.WHITE
|
CURCLR: DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
|
||||||
WRMCLR: DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.WHITE
|
WRMCLR: DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
|
||||||
|
|
||||||
|
|
||||||
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[v]
|
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[v]
|
||||||
@ -800,7 +800,7 @@ SetTime:
|
|||||||
push de
|
push de
|
||||||
CALL LP_SET_PLACE
|
CALL LP_SET_PLACE
|
||||||
; ŻĽç âě âਥă⎢
|
; ŻĽç âě âਥă⎢
|
||||||
LD E,COLORS.CGA.INC.RED
|
LD E,COLORS.CGA.INK.RED
|
||||||
LD B,#0E
|
LD B,#0E
|
||||||
CALL LP_PRINT_ATR
|
CALL LP_PRINT_ATR
|
||||||
|
|
||||||
@ -934,85 +934,85 @@ HDDWP EQU #01
|
|||||||
|
|
||||||
STYLES:
|
STYLES:
|
||||||
; Color Style 0
|
; Color Style 0
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 1
|
; Color Style 1
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.LGREEN
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.LGREEN
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.LMAGENT
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.LMAGENT
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 2
|
; Color Style 2
|
||||||
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INC.LCYAN
|
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.LCYAN
|
||||||
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLACK
|
||||||
; Color Style 3
|
; Color Style 3
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.LGREEN
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.LGREEN
|
||||||
; Color Style 4
|
; Color Style 4
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.BLUE
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLUE
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW
|
||||||
; Color Style 5
|
; Color Style 5
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.BROWN
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BROWN
|
||||||
DB COLORS.CGA.PAPER.BROWN + COLORS.CGA.INC.LGRAY
|
DB COLORS.CGA.PAPER.BROWN + COLORS.CGA.INK.LGRAY
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 6
|
; Color Style 6
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.GREEN
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.GREEN
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.GREEN
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.GREEN
|
||||||
; Color Style 7
|
; Color Style 7
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.LGRAY
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.LGRAY
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 8
|
; Color Style 8
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.LCYAN
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LCYAN
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.LGREEN
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LGREEN
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 9
|
; Color Style 9
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INC.BLUE
|
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLUE
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.LRED
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LRED
|
||||||
; Color Style 10
|
; Color Style 10
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.RED
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 11
|
; Color Style 11
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.BLUE
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLUE
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 12
|
; Color Style 12
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.LGREEN
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.LGREEN
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.LCYAN
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.LCYAN
|
||||||
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE
|
||||||
; Color Style 13
|
; Color Style 13
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.LGREEN
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGREEN
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.LCYAN
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LCYAN
|
||||||
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.YELLOW
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.YELLOW
|
||||||
; Color Style 14 (Mono)
|
; Color Style 14 (Mono)
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.LGRAY
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGRAY
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.WHITE
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.WHITE
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.BLACK
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.LGRAY
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGRAY
|
||||||
; Color Style 15
|
; Color Style 15
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.LMAGENT
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LMAGENT
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.LGREEN
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGREEN
|
||||||
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INC.RED
|
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED
|
||||||
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INC.RED
|
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.RED
|
||||||
|
|
||||||
DEFVAL: DB SAVERAM+EXTBIOS+SDELAY1 ;#0E - OPTIONS
|
DEFVAL: DB SAVERAM+EXTBIOS+SDELAY1 ;#0E - OPTIONS
|
||||||
DB TDL250+TRATE30 ;#0F - KEYBOARD
|
DB TDL250+TRATE30 ;#0F - KEYBOARD
|
||||||
|
|||||||
@ -59,7 +59,7 @@ PRINTZ: LD B,0
|
|||||||
|
|
||||||
HPRINTZ: LD B,0
|
HPRINTZ: LD B,0
|
||||||
LD D,B
|
LD D,B
|
||||||
LD E,COLORS.CGA.INC.WHITE
|
LD E,COLORS.CGA.INK.WHITE
|
||||||
JP LP_PRINT_LINE5
|
JP LP_PRINT_LINE5
|
||||||
|
|
||||||
CPRINTZ: LD B,0
|
CPRINTZ: LD B,0
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user