Tolik-Trek/Sprinter-BIOS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Sprinter-BIOS.git synced 2026-09-19 23:38:13 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Compare commits

base: Tolik-Trek:db2abad1abecfc164ffdf29f1c742b994f4fc329
Branches Tags
Tolik-Trek:beta
Tolik-Trek:master
..
compare: Tolik-Trek:a14cf6ed04f88ae082040a9b68d0d547f9a1dbeb
Branches Tags
Tolik-Trek:beta
Tolik-Trek:master

1 Commits
db2abad1ab ... a14cf6ed04

Author SHA1 Message Date
Анатолий Белянский
a14cf6ed04 ... 2026-08-10 03:07:37 +10:00
10 changed files with 949 additions and 914 deletions
Show Stats Expand all files Collapse all files

BIN
Build/Bin/LOADER_K30.BIN
View File

Binary file not shown.

BIN
Build/Bin/LOADER_K50.BIN
View File

Binary file not shown.

2
Shared_Includes

@ -1 +1 @@
Subproject commit 57f4969f09a1bfc005af0b60316f03f30ee815ba Subproject commit 591d3212c9341f17d6dd034bf2b8da91bd2f6107

12
bios/exp/DCP.ASM
View File

@ -410,12 +410,12 @@
DW %00'000'0'0010'1111 DW %00'000'0'0010'1111
DB ACEX.CNF_PORT DB ACEX.CNF_PORT
;DW %00'000'0'0110'1100 DW %00'000'0'0110'1100
;DW %11'001'0'0110'1111 DW %11'001'0'0110'1111
;DB ACEX.SCALE DB ACEX.SCALE
;DW %11'000'0'0110'1100 DW %11'000'0'0110'1100
;DW %11'001'0'0110'1111 DW %11'001'0'0110'1111
;DB ACEX.SCALE DB ACEX.SCALE
DW %00'000'0'0000'1010 DW %00'000'0'0000'1010
DW %00'010'0'0110'1111 DW %00'010'0'0110'1111

2
bios/loader/loader.asm
View File

@ -157,7 +157,7 @@
DEFINE Altera_Chip altera_chip DEFINE Altera_Chip altera_chip
LUA LUA
local file_path = 'Build/ACEX/' local file_path = 'Build/ACEX/'
local file_ext = '.ACX' local file_ext = '.BIN'
local altera_ver = sj.get_define("Altera_Chip") local altera_ver = sj.get_define("Altera_Chip")
sj.insert_define("Altera_File", '"' .. file_path .. altera_ver .. file_ext .. '"') sj.insert_define("Altera_File", '"' .. file_path .. altera_ver .. file_ext .. '"')
ENDLUA ENDLUA

15
bios/rom/SETUP/MAIN.asm
View File

@ -1624,6 +1624,9 @@ ElementsBuffer:
INCLUDE 'KEY.asm' INCLUDE 'KEY.asm'
;....................................... ;.......................................
KEY: EI
JP WAITKEY
FindStringAddr: FindStringAddr:
LD L,A LD L,A
LD H,0 LD H,0
@ -1636,11 +1639,8 @@ FindStringAddr:
LD L,A LD L,A
RET RET
POSTLEN: POSTLEN:
LD A,E
CALL FindStringAddr CALL FindStringAddr
PUSH HL
LD BC,#0100 LD BC,#0100
XOR A XOR A
CPIR CPIR
@ -1651,9 +1651,8 @@ POSTLEN:
LD A,40 LD A,40
SUB C SUB C
LD E,A LD E,A
CALL LP_SET_PLACE ;JP ScreenPOS.LOCAT
POP HL JP LP_SET_PLACE
JP PRINTZ
SETLAND: SETLAND:
LD A,#0E ; !HARDCODE CMOS ï祩ª  options LD A,#0E ; !HARDCODE CMOS ï祩ª  options
@ -1699,18 +1698,14 @@ POSTMSC: CALL FindStringAddr
LD A,E LD A,E
JP CPRINTZ JP CPRINTZ
; ;
////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////
INCLUDE 'IM2_INT.asm' INCLUDE 'IM2_INT.asm'
////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////
POSTMSG: CALL FindStringAddr POSTMSG: CALL FindStringAddr
JP PRINTZ JP PRINTZ
;
KEY: EI
JP WAITKEY
;----------------------------------------------------------------------[] ;----------------------------------------------------------------------[]
;—â® £à㧨âì ¢ v<>‡“ ¯à¨ áâ àâ¥. ‚ à¨ ­âë: ;—â® £à㧨âì ¢ v<>‡“ ¯à¨ áâ àâ¥. ‚ à¨ ­âë:

266
bios/rom/SETUP/SETTINGS.asm
View File

@ -1,5 +1,6 @@
;U_SETUP: ;U_SETUP:
SETTINGS: LD A,CMOS_CELL.ScreenSET SETTINGS:
LD A,CMOS_CELL.ScreenSET
CALL READCMS CALL READCMS
AND high CMOS_CELL.ScreenSET.Mask.ColorStyle AND high CMOS_CELL.ScreenSET.Mask.ColorStyle
LD L,A LD L,A
@ -11,28 +12,21 @@ SETTINGS: LD A,CMOS_CELL.ScreenSET
CALL LP_CLS_WIN CALL LP_CLS_WIN
LD DE,#0100 + msgStrings.setupBiosVer ; ª®®à¤¨­ â  Y + áâப  ¤«ï ¢ë¢®¤  LD A,msgStrings.setupBiosVer
LD DE,#0100 ; ?????
CALL POSTLEN CALL POSTLEN
LD DE,#0200 + msgStrings.setupCopyRight ; ª®®à¤¨­ â  Y + áâப  ¤«ï ¢ë¢®¤  LD A,msgStrings.setupBiosVer
CALL POSTMSG
LD A,msgStrings.setupCopyRight
LD DE,#0200
CALL POSTLEN CALL POSTLEN
LD DE,#0500 + msgStrings.setupUtilityVer ; ª®®à¤¨­ â  Y + áâப  ¤«ï ¢ë¢®¤  LD A,msgStrings.setupCopyRight
CALL POSTMSG
LD A,msgStrings.setupUtilityVer
LD DE,#0500
CALL POSTLEN CALL POSTLEN
LD A,msgStrings.setupUtilityVer
; LD D,1 ; ª®®à¤¨­ â  Y + áâப  ¤«ï ¢ë¢®¤  CALL POSTMSG
; LD A,msgStrings.setupBiosVer
; CALL POSTLEN
; LD A,msgStrings.setupBiosVer
; CALL POSTMSG
; LD A,msgStrings.setupCopyRight
; LD D,2 ; áâப  ¤«ï ¢ë¢®¤ 
; CALL POSTLEN
; LD A,msgStrings.setupCopyRight
; CALL POSTMSG
; LD A,msgStrings.setupUtilityVer
; LD D,5 ; áâப  ¤«ï ¢ë¢®¤ 
; CALL POSTLEN
; LD A,msgStrings.setupUtilityVer
; CALL POSTMSG
CALL setFRAME.double CALL setFRAME.double
@ -53,18 +47,22 @@ SETTINGS: LD A,CMOS_CELL.ScreenSET
CALL TLINEV CALL TLINEV
LD DE,#1906 LD DE,#1906
;CALL ScreenPOS.LOCAT
CALL LP_SET_PLACE CALL LP_SET_PLACE
LD A,msgStrings.setupHelpStr1 LD A,msgStrings.setupHelpStr1
CALL POSTMSG CALL POSTMSG
LD DE,#1A06 LD DE,#1A06
;CALL ScreenPOS.LOCAT
CALL LP_SET_PLACE CALL LP_SET_PLACE
LD A,msgStrings.setupHelpStr2 LD A,msgStrings.setupHelpStr2
CALL POSTMSG CALL POSTMSG
LD DE,#1B06 LD DE,#1B06
;CALL ScreenPOS.LOCAT
CALL LP_SET_PLACE CALL LP_SET_PLACE
LD A,msgStrings.setupHelpStr3 LD A,msgStrings.setupHelpStr3
CALL POSTMSG CALL POSTMSG
LD DE,#1C06 LD DE,#1C06
;CALL ScreenPOS.LOCAT
CALL LP_SET_PLACE CALL LP_SET_PLACE
LD A,msgStrings.setupHelpStr4 LD A,msgStrings.setupHelpStr4
CALL POSTMSG CALL POSTMSG
@ -72,6 +70,7 @@ SETTINGS: LD A,CMOS_CELL.ScreenSET
IF NEW_FEATURE IF NEW_FEATURE
; LD HL,CurrentDateTime ; LD HL,CurrentDateTime
; CALL GETTIME ; CALL GETTIME
@ -79,6 +78,7 @@ SETTINGS: LD A,CMOS_CELL.ScreenSET
; LD A,(HL) ; LD A,(HL)
; AND #F0 ; AND #F0
ENDIF ENDIF
@ -97,37 +97,37 @@ STT1: LD A,C
AGAIN: LD HL,AGAIN AGAIN: LD HL,AGAIN
PUSH HL PUSH HL
CALL KEY CALL KEY
; CURSOR DOWN ; CURSOR DOWN
LD HL,#5200 LD HL,#5200
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,INCITM JP Z,INCITM
; CURSOR UP ; CURSOR UP
LD HL,#5800 LD HL,#5800
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,DECITM JP Z,DECITM
; CURSOR RIGHT ; CURSOR RIGHT
LD HL,#5600 LD HL,#5600
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,ADDITM JP Z,ADDITM
; CURSOR LEFT ; CURSOR LEFT
LD HL,#5400 LD HL,#5400
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,SUBITM JP Z,SUBITM
; + ; +
LD HL,#5300 LD HL,#5300
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,INCVAL JP Z,INCVAL
; - ; -
LD HL,#5900 LD HL,#5900
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,DECVAL JP Z,DECVAL
; + or - ; + or -
LD HL,#A400 LD HL,#A400
AND A AND A
SBC HL,DE SBC HL,DE
@ -138,38 +138,39 @@ AGAIN: LD HL,AGAIN
JP Z,DECVAL JP Z,DECVAL
IF NEW_FEATURE IF NEW_FEATURE
; ENTER ; ENTER
LD HL,#280D LD HL,#280D
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,pressedEnter JP Z,pressedEnter
ENDIF ENDIF
; F2
; F2
LD HL,#3C00 LD HL,#3C00
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,SAVEV JP Z,SAVEV
; F3 ; F3
LD HL,#3D00 LD HL,#3D00
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,CCHANGE JP Z,CCHANGE
; F5 ; F5
LD HL,#3F00 LD HL,#3F00
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,OLD_VAL JP Z,OLD_VAL
; F7 ; F7
LD HL,#4100 LD HL,#4100
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,DEF_VAL JP Z,DEF_VAL
; F10 ; F10
LD HL,#4400 LD HL,#4400
AND A AND A
SBC HL,DE SBC HL,DE
JP Z,SAVEXIT JP Z,SAVEXIT
; ESC ; ESC
LD HL,#011B LD HL,#011B
AND A AND A
SBC HL,DE SBC HL,DE
@ -177,45 +178,54 @@ AGAIN: LD HL,AGAIN
POP HL POP HL
RET RET
OLD_VAL: CALL READING OLD_VAL:
CALL READING
JR RestartSetup JR RestartSetup
RET RET
DEF_VAL: CALL SETDEF DEF_VAL:
CALL SETDEF
;--------------------------------------- ;---------------------------------------
RestartSetup: ;setXYpos RestartSetup:
;setXYpos
CALL XY_SCREEN CALL XY_SCREEN
;setLang ;setLang
CALL SETLAND CALL SETLAND
;setVsinc ;setVsinc
CALL OnChangeAction.setVsinc CALL OnChangeAction.setVsinc
;setInt - „®«¦­  ¡ëâì ¯®á«¥¤­¥©!!! ;setInt - „®«¦­  ¡ëâì ¯®á«¥¤­¥©!!!
JP OnChangeAction.setInt JP OnChangeAction.setInt
;--------------------------------------- ;---------------------------------------
SAVEXIT: CALL WRITING SAVEXIT:
CALL WRITING
POP HL POP HL
RET RET
SAVEV: CALL WRITING SAVEV:
CALL WRITING
RET RET
SUBITM: CALL RCURSOR SUBITM:
CALL RCURSOR
LD A,(ITEM) LD A,(ITEM)
SUB 17 ; !HARDCODE max items in column SUB 17 ; !HARDCODE max items in column
JR NC,GODITM2 JR NC,GODITM2
XOR A XOR A
GODITM2: LD (ITEM),A GODITM2:
LD (ITEM),A
JP PCURSOR JP PCURSOR
ADDITM: CALL RCURSOR ADDITM:
CALL RCURSOR
LD A,(ITEM) LD A,(ITEM)
ADD A,17 ; !HARDCODE max items in column ADD A,17 ; !HARDCODE max items in column
CP SettingsItemsTabsAddrs.max CP SettingsItemsTabsAddrs.max
JR C,GODITM JR C,GODITM
LD A,SettingsItemsTabsAddrs.max LD A,SettingsItemsTabsAddrs.max
DEC A DEC A
GODITM: LD (ITEM),A GODITM:
LD (ITEM),A
JP PCURSOR JP PCURSOR
INCITM: CALL RCURSOR INCITM: CALL RCURSOR
@ -227,7 +237,8 @@ INCITM: CALL RCURSOR
1: LD (ITEM),A 1: LD (ITEM),A
JP PCURSOR JP PCURSOR
DECITM: CALL RCURSOR DECITM:
CALL RCURSOR
LD A,(ITEM) LD A,(ITEM)
OR A OR A
JR NZ,1F JR NZ,1F
@ -236,7 +247,8 @@ DECITM: CALL RCURSOR
LD (ITEM),A LD (ITEM),A
JP PCURSOR JP PCURSOR
CCHANGE: LD A,CMOS_CELL.ScreenSET CCHANGE:
LD A,CMOS_CELL.ScreenSET
CALL READCMS CALL READCMS
INC A INC A
AND high CMOS_CELL.ScreenSET.Mask.ColorStyle AND high CMOS_CELL.ScreenSET.Mask.ColorStyle
@ -272,13 +284,14 @@ STT2: LD A,C
CALL PCURSOR CALL PCURSOR
RET RET
PTEXT: CALL Get_Item_Address PTEXT: call Get_Item_Address
JP PITEM JP PITEM
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[v] ;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[v]
IF NEW_FEATURE IF NEW_FEATURE
; New procedure with IY reg ; New procedure with IY reg
LocateCursor: call Get_Item_Address LocateCursor:
call Get_Item_Address
LD E,(IY+MenusItem.Column) LD E,(IY+MenusItem.Column)
LD D,(IY+MenusItem.Line) LD D,(IY+MenusItem.Line)
ld a,(IY+MenusItem.Name) ld a,(IY+MenusItem.Name)
@ -303,8 +316,10 @@ LocateCursor: call Get_Item_Address
SUB C SUB C
LD B,A LD B,A
ret ret
ELSE ELSE
LocateCursor: call Get_Item_Address LocateCursor:
call Get_Item_Address
LD E,(HL) LD E,(HL)
INC HL INC HL
LD D,(HL) LD D,(HL)
@ -338,18 +353,22 @@ LocateCursor: call Get_Item_Address
ENDIF ENDIF
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^] ;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^]
PCURSOR: call LocateCursor PCURSOR:
call LocateCursor
LD A,(CURCLR) LD A,(CURCLR)
JP PRINTA JP PRINTA
RCURSOR: call LocateCursor RCURSOR:
call LocateCursor
LD A,(NORCLR) LD A,(NORCLR)
JP PRINTA JP PRINTA
FSCREEN: LD DE,#0000 FSCREEN:
LD DE,#0000
EI EI
HALT HALT
FSC1: PUSH DE FSC1:
PUSH DE
CALL LP_SET_PLACE CALL LP_SET_PLACE
LD A,(NORCLR) LD A,(NORCLR)
@ -426,13 +445,15 @@ OVERD: OR (IY+MenusItem.ValueMax)
JR OVER JR OVER
pressedEnter:
; !TODO New Feature ; !TODO New Feature
pressedEnter: ld a,(iy+MenusItem.Type) ld a,(iy+MenusItem.Type)
and a and a
ret z ret z
ld l,(iy+MenusItem.Action) ld l,(iy+MenusItem.Action)
ld h,(iy+MenusItem.Action+1) ld h,(iy+MenusItem.Action+1)
jp (HL) jp (HL)
ELSE ELSE
INCVAL: call Get_Item_Address INCVAL: call Get_Item_Address
INC HL INC HL
@ -484,8 +505,10 @@ DECVAL: call Get_Item_Address
CALL ADDVAL CALL ADDVAL
SUB B SUB B
JR OVER JR OVER
OVERD: OR (HL) OVERD:
OR (HL)
JR OVER JR OVER
ENDIF ENDIF
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^] ;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^]
@ -532,15 +555,16 @@ PITEM: LD E,(IY+MenusItem.Column) ; x-coordinate
JR NC,.getParameterNum JR NC,.getParameterNum
RLCA RLCA
OR A OR A
JR Z,.printParameter ; ¯¥à¢ë© ¯ à ¬¥âà ¢ë¢®¤¨¬? jr Z,.printParameter ; ¯¥à¢ë© ¯ à ¬¥âà ¢ë¢®¤¨¬?
LD C,A ld c,a
XOR A xor a
LD B,A ld b,a
ADD HL,BC ; ­ å®¤¨¬ ­®¬¥à ¯ à ¬¥âà  add hl,bc ; ­ å®¤¨¬ ­®¬¥à ¯ à ¬¥âà 
.printParameter: .printParameter:
LD A,(HL) ld a,(hl)
JP POSTMSG jp POSTMSG
ELSE ELSE
; ¢ë§®¢ë ¯à®æ¥¤ãà ¡¨®á  ­ ¤¥îâáï ­  â®, çâ® ­¥ª®â®àë¥ à¥£¨áâàë ­¥ ¯®àâïâáï ; ¢ë§®¢ë ¯à®æ¥¤ãà ¡¨®á  ­ ¤¥îâáï ­  â®, çâ® ­¥ª®â®àë¥ à¥£¨áâàë ­¥ ¯®àâïâáï
; HL - item's address ; HL - item's address
@ -567,20 +591,21 @@ PITEM: LD E,(HL) ; x-coordinate
JR NC,.getParameterNum JR NC,.getParameterNum
RLCA RLCA
OR A OR A
JR Z,.printParameter ; ¯¥à¢ë© ¯ à ¬¥âà ¢ë¢®¤¨¬? jr Z,.printParameter ; ¯¥à¢ë© ¯ à ¬¥âà ¢ë¢®¤¨¬?
LD C,A ld c,a
XOR A xor a
LD B,A ld b,a
ADD HL,BC ; ­ å®¤¨¬ ­®¬¥à ¯ à ¬¥âà  add hl,bc ; ­ å®¤¨¬ ­®¬¥à ¯ à ¬¥âà 
.printParameter: .printParameter:
LD A,(HL) ld a,(hl)
JP POSTMSG jp POSTMSG
ENDIF ENDIF
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^] ;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^]
; <20>¥ ¯®àâ¨â HL ; <20>¥ ¯®àâ¨â HL
GET_CMOS_VALUE: PUSH BC GET_CMOS_VALUE:
PUSH BC
LD A,C LD A,C
CALL READCMS CALL READCMS
POP BC POP BC
@ -595,26 +620,27 @@ GET_CMOS_VALUE: PUSH BC
READCMS: LD D,high CMOSARE READCMS: LD D,high CMOSARE
LD E,A LD E,A
CP CMOS.USED_MAX_ADDRESS+1 CP CMOS.USED_MAX_ADDRESS+1
CCF JR NC,.error
RET C
;
LD A,(DE) LD A,(DE)
RET RET
;
.error: SCF
RET
; [x] ç⮡ ­¥ ¢«¥§«® ªã¤  ­¥ ­ ¤® ; [x] ç⮡ ­¥ ¢«¥§«® ªã¤  ­¥ ­ ¤®
WRITCMS: LD D,high CMOSARE WRITCMS:
LD D,high CMOSARE
LD E,A LD E,A
CP CMOS.USED_MAX_ADDRESS+1 CP CMOS.USED_MAX_ADDRESS+1
CCF JR NC,.error
RET C
;
LD A,B LD A,B
LD (DE),A LD (DE),A
RET RET
.error: SCF
RET
CHEKSUM:
CHEKSUM: LD BC,DEFVAL.Size*256 + CMOS.USED_MIN_ADDRESS LD BC,DEFVAL.Size*256 + CMOS.USED_MIN_ADDRESS
LD H,#DE ;!HARDCODE LD H,#DE ;!HARDCODE
.loop: LD A,C .loop: LD A,C
CALL READCMS CALL READCMS
@ -628,23 +654,28 @@ CHEKSUM: LD BC,DEFVAL.Size*256 + CMOS.USED_MIN_ADDRESS
DJNZ .loop DJNZ .loop
RET RET
TEST_CHECKSUM: CALL CHEKSUM TEST_CHECKSUM:
CALL CHEKSUM
LD A,CMOS_CELL.CheckSum LD A,CMOS_CELL.CheckSum
CALL READCMS CALL READCMS
CP H CP H
RET RET
; TSTCMOS: LD C,BIOS.CMOS_TEST ; TSTCMOS:
; LD C,BIOS.CMOS_TEST
; JP_to_BIOS ; JP_to_BIOS
; RDCMOS: LD C,BIOS.CMOS_RD ; RDCMOS:
; LD C,BIOS.CMOS_RD
; JP_to_BIOS ; JP_to_BIOS
; WRCMOS: LD C,BIOS.CMOS_WR ; WRCMOS:
; LD C,BIOS.CMOS_WR
; JP_to_BIOS ; JP_to_BIOS
READING: LD D,CMOS.USED_MIN_ADDRESS READING:
LD D,CMOS.USED_MIN_ADDRESS
.loop: PUSH DE .loop: PUSH DE
CALL CMOS_RD CALL CMOS_RD
POP DE POP DE
@ -674,16 +705,18 @@ WRITING: CALL CHEKSUM
JR NZ,.loop JR NZ,.loop
RET RET
SETDEFX: LD A,#FF SETDEFX:
LD A,#FF
LD (ERRSUM),A LD (ERRSUM),A
CALL SETDEF CALL SETDEF
JP WRITING JP WRITING
;!TODO ¬®¦¥â ¡ å­ãâì LDIR®¬? ¯®á¬®âà¥âì SETDEF: ;!TODO ¬®¦¥â ¡ å­ãâì LDIR®¬? ¯®á¬®âà¥âì
SETDEF: LD HL,DEFVAL LD HL,DEFVAL
LD C,DEFVAL.Size LD C,DEFVAL.Size
LD A,CMOS.USED_MIN_ADDRESS LD A,CMOS.USED_MIN_ADDRESS
.loop: LD B,(HL) .loop:
LD B,(HL)
INC HL INC HL
PUSH AF PUSH AF
CALL WRITCMS CALL WRITCMS
@ -743,12 +776,14 @@ Get_Item_Address:
;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^] ;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\-[^]
; ;
MODULE OnChangeAction MODULE OnChangeAction
nothing: RET nothing:
ret
; !TODO New Feature ; !TODO New Feature
; !TODO § ¬ãâ¨âì çâ®-⮠⨯  API ¤«ï à¨á®¢ ­¨ï ¢á¯«ë¢ îé¨å ®ª®­ ; !TODO § ¬ãâ¨âì çâ®-⮠⨯  API ¤«ï à¨á®¢ ­¨ï ¢á¯«ë¢ îé¨å ®ª®­
IF NEW_FEATURE IF NEW_FEATURE
SetTime: xor a SetTime:
xor a
ld hl,#050E ld hl,#050E
ld de,#0C20 ld de,#0C20
ld ix,memBUFFER.Shared ld ix,memBUFFER.Shared
@ -784,9 +819,11 @@ SetTime: xor a
JP WIN_RESTORE JP WIN_RESTORE
ENDIF ENDIF
setXYpos: JP XY_SCREEN setXYpos:
JP XY_SCREEN
setVsinc: ld a,CMOS_CELL.ScreenSET setVsinc:
ld a,CMOS_CELL.ScreenSET
call READCMS call READCMS
and high CMOS_CELL.ScreenSET.Mask.Sinc and high CMOS_CELL.ScreenSET.Mask.Sinc
SCF SCF
@ -797,7 +834,8 @@ setVsinc: ld a,CMOS_CELL.ScreenSET
dec a ;320 dec a ;320
.set: jp FN_SYNC .set: jp FN_SYNC
setLang: CALL SETLAND setLang:
CALL SETLAND
ld a,(ITEM) ld a,(ITEM)
ld (ITEM_Restore),a ld (ITEM_Restore),a
pop hl ; delete return adress from stack pop hl ; delete return adress from stack
@ -890,82 +928,83 @@ REBOOTM EQU #02
HDDWP EQU #01 HDDWP EQU #01
;-----------------------------------------------------------------------; ;-----------------------------------------------------------------------;
STYLES: ; Color Style 0 STYLES:
; Color Style 0
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
; Color Style 1 ; Color Style 1
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.LGREEN DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.LGREEN
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.LMAGENT DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.LMAGENT
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
; Color Style 2 ; Color Style 2
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.LCYAN DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.LCYAN
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLACK
; Color Style 3 ; Color Style 3
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.LGREEN DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.LGREEN
; Color Style 4 ; Color Style 4
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLUE DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLUE
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW
; Color Style 5 ; Color Style 5
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BROWN DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.BROWN
DB COLORS.CGA.PAPER.BROWN + COLORS.CGA.INK.LGRAY DB COLORS.CGA.PAPER.BROWN + COLORS.CGA.INK.LGRAY
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE
; Color Style 6 ; Color Style 6
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.GREEN DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.GREEN
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.GREEN DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.GREEN
; Color Style 7 ; Color Style 7
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.LGRAY DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.LGRAY
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.BLUE + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.RED + COLORS.CGA.INK.WHITE
; Color Style 8 ; Color Style 8
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LCYAN DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LCYAN
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LGREEN DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LGREEN
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
; Color Style 9 ; Color Style 9
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLUE DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.BLUE
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LRED DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.LRED
; Color Style 10 ; Color Style 10
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE
; Color Style 11 ; Color Style 11
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLUE DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLUE
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.MAGENTA + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE
; Color Style 12 ; Color Style 12
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.LGREEN DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.LGREEN
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.LCYAN DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.LCYAN
DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.GREEN + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.WHITE
; Color Style 13 ; Color Style 13
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGREEN DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGREEN
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LCYAN DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LCYAN
DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW DB COLORS.CGA.PAPER.CYAN + COLORS.CGA.INK.YELLOW
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.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.INK.LGRAY DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGRAY
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.WHITE DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.WHITE
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.BLACK
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGRAY DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGRAY
; Color Style 15 ; Color Style 15
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LMAGENT DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LMAGENT
DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGREEN DB COLORS.CGA.PAPER.BLACK + COLORS.CGA.INK.LGREEN
DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED DB COLORS.CGA.PAPER.LGRAY + COLORS.CGA.INK.RED
@ -995,7 +1034,8 @@ DEFVAL: DB SAVERAM + SETBOOTSOUND + SDELAY1 ;#0E - OPTIONS
;!FIXIT à á¯¨á âì âãâ ï祩ª¨ ª¬®á  ¨ í⮠ᬥ饭¨¥ ¬¥âª®© ¯à¨¢ï§ âì ¢¬¥áâ® #0E ¢ SETDEF ;!FIXIT à á¯¨á âì âãâ ï祩ª¨ ª¬®á  ¨ í⮠ᬥ饭¨¥ ¬¥âª®© ¯à¨¢ï§ âì ¢¬¥áâ® #0E ¢ SETDEF
_mInfoALIGN 256,0 ; ¢ëà ¢­¨¢ ­¨¥ ­   ¤à¥á #XX00 _mInfoALIGN 256,0 ; ¢ëà ¢­¨¢ ­¨¥ ­   ¤à¥á #XX00
CMOSARE: DS 14 CMOSARE:
DS 14
; ;
DB SAVERAM + SETBOOTSOUND + SDELAY1 ;#0E - OPTIONS DB SAVERAM + SETBOOTSOUND + SDELAY1 ;#0E - OPTIONS
DB TDL250+TRATE30 ;#0F - KEYBOARD DB TDL250+TRATE30 ;#0F - KEYBOARD

BIN
bios/shared/RECOVERY.IMG
View File

Binary file not shown.

BIN
doc/DCP_PAGE.bin
View File

Binary file not shown.