чуть дружелюбнее переход в режим спектрума

This commit is contained in:
Tolik 2024-08-16 03:37:44 +10:00
parent bb8bbd4d81
commit 085ef3c332
7 changed files with 178 additions and 162 deletions

@ -1 +1 @@
Subproject commit eebde92dd60cdf33588e34a7248413ec107edfe0 Subproject commit 3ac606f87285e76a56c826ad33efdd26ada872f6

View File

@ -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;

View File

@ -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
View 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, ç⮡ ­¥ ¢â몠«¨áì áâ ­¤ àâ­ë¥ (§ à¥§¥à¢¨à®¢ ­­ë¥) áâà ­¨æë
;
‘¤¥« âì ¯¥à¥ª«îç «ªã ¢ ¡¨®á¥ áâ àë©/­®¢ë© ०¨¬ à ¡®âë ¯ ¬ïâ¨?

View File

@ -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
;---------------------------------------------------------------------[] ;---------------------------------------------------------------------[]

View File

@ -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

View File

@ -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