This commit is contained in:
Anatoliy Belyanskiy 2023-12-30 03:05:24 +10:00
parent f655cad1fc
commit 91c22e8e58
6 changed files with 20 additions and 71 deletions

@ -1 +1 @@
Subproject commit 226dbc13e8cacb202848245b7f11de3df2f0cbd7
Subproject commit 54298bfb52826572bda5ccd0609320a9418d08c9

View File

@ -1,50 +0,0 @@
LUA PASS1
SettingsTabsOrder = {
[1]={
"Lang",
"MemTest",
"SaveRAMdrvs",
"UpdBios",
"StartDelay",
"TypRate",
"TypDelay",
"RebootMsg",
"SysDsk",
"AltSysDsk",
"FddFirst",
"FddSecond",
"PriIdeMA",
"PriIdeSl",
"SecIdeMA",
"SecIdeSl",
"HddWrPr"
},
[2]={
"ScreenY",
"ScreenX",
"FrameInt",
"VSync",
"QuickStartROM",
"TrDosA",
"TrDosB",
"TrDosC",
"TrDosD"
}
}
ENDLUA
MACRO itemName?
@.itemName? EQU $
DEFINE TmpDef Suffix?
LUA ALLPASS
function get_key_for_value(t, value)
for k,v in pairs(t) do
if v==value then return k end
end
return nil
end
print(get_key_for_value(SettingsTabsOrder, sj.get_define("TmpDef")))
ENDLUA
UNDEFINE TmpDef
ENDM

View File

@ -471,7 +471,7 @@ LP_PRINT_LINE6:
;
;------------------------------------------------------------------[#84]
LP_SET_PLACE: ; !!!!! ®¦¨¤ ¥âáï, çâ® ¯®àâïâáï ⮫쪮  «ìâ¥à­ â¨¢­ë¥ ॣ¨áâàë ¨ â¥, çâ® ª ª ¯ à ¬¥âàë ­  ¢å®¤¥
LP_SET_PLACE: ; ¯®àâïâáï ⮫쪮  «ìâ¥à­ â¨¢­ë¥ ॣ¨áâàë ¨ â¥, çâ® ª ª ¯ à ¬¥âàë ­  ¢å®¤¥
CALL LP_BEG_P
CALL LP_AT_D
CALL LP_TAB_E
@ -1533,8 +1533,8 @@ WIN_GET_SYM:
INC L
EXX
CALL LP_END_P
RET
JP LP_END_P
;RET
; DE - ¬¥á⮠ᨬ¢®«  ¢ ®ª­¥
; € - ­®¬¥à ®ª­ 

View File

@ -13,7 +13,7 @@ PG_Sp2000 EQU #FE
RST_CONF:
;--[] ZX Spectrum
.AY8910:
LD D,#35 ;!HARDCODE ¢ëïá­¨âì §  çâ® à ­ìè¥ íâ  ï祩ª  ¢ ª¬®á ®â¢¥ç « . ¯®å®¦¥ ­  åà ­¥­¨¥ §­ ç¥­¨ï Port_All_Mode ¨«¨ CONFIG_DE+1
LD D,#35 ;!HARDCODE REG #35 - BASIC SETTING 1 (SYS_PAGE.CONFIG_DE+1 = #C13B on PAGE #FE)
CALL CMOS_RD
OR 1
CALL CMOS_WR
@ -30,7 +30,7 @@ RST_CONF:
;--[] Sprinter ZX
.SP97_1:
LD D,#35 ;!HARDCODE ¢ëïá­¨âì §  çâ® à ­ìè¥ íâ  ï祩ª  ¢ ª¬®á ®â¢¥ç « . ¯®å®¦¥ ­  åà ­¥­¨¥ §­ ç¥­¨ï Port_All_Mode ¨«¨ CONFIG_DE+1
LD D,#35 ;!HARDCODE REG #35 - BASIC SETTING 1 (SYS_PAGE.CONFIG_DE+1 = #C13B on PAGE #FE)
CALL CMOS_RD
AND #FE
CALL CMOS_WR

View File

@ -1,10 +1,10 @@
;
_mInfoALIGN 256,0 ; ˘ëŕ ˘­¨˘ ­¨Ľ ­   ¤ŕĽá #XX00
_mInfoALIGN 256,0 ; ˘ëŕ ˘­¨˘ ­¨Ľ ­   ¤ŕĽá #XX00
SBUF: BLOCK 64,0
HEAD: DB 0
HOST: DB 0
HEAD: DB 0
HOST: DB 0
;
K_LOCK EQU $-KEYFLAG
@ -16,7 +16,7 @@ NUM_L EQU 3
SCRL_L EQU 2
INS_L EQU 1
CAPS_L EQU 0
KEYFLAG DB 2 ;D0-Key Pressed
KEYFLAG: DB 2 ;D0-Key Pressed
;
K_SHIFT EQU $-KEYFLAG
L_SHIFT EQU 7
@ -27,7 +27,7 @@ L_CTRL EQU 3
L_ALT EQU 2
R_CTRL EQU 1
R_ALT EQU 0
KEYCTRL DB 0
KEYCTRL: DB 0
;
KEYFLG EQU $-KEYFLAG
FLAG_E0 EQU 7
@ -110,8 +110,7 @@ CTRLKEY:
DEC A
RET
PUTSYM:
LD HL,HEAD
PUTSYM: LD HL,HEAD
LD A,(HOST)
SUB 4
AND #3F

View File

@ -95,42 +95,42 @@ RET_TO_EXP_ADDR: WORD 0000 ; p
; ¨ ¢ ॣ¨áâॠA ­  ¢ë室¥ ¨§ ä㭪樨 #F6 (CMOS_RD) BIOS §­ ç¥­¨ï ¤¥áïâ¨ç­ë¥.
GETTIME:
PUSH HL
LD D,4 ;HOURS
LD D,CMOS.Register.hours
CALL CMOS_RD
CP #24 ;24
jp nc,.error
LD (HL),A
INC HL
LD D,2 ;MINUTES
LD D,CMOS.Register.minutes
CALL CMOS_RD
CP #5A ; 60
jp nc,.error
LD (HL),A
INC HL
LD D,0 ;SECONDS
LD D,CMOS.Register.seconds
CALL CMOS_RD
CP #5A ; 60
jp nc,.error
LD (HL),A
INC HL
LD D,7 ;DAY
LD D,CMOS.Register.date ; ç¨á«®
CALL CMOS_RD
CP #32 ;32
CP #32
jp nc,.error
LD (HL),A
INC HL
LD D,8 ;MONTH
LD D,CMOS.Register.month
CALL CMOS_RD
CP #13 ;13
jp nc,.error
LD (HL),A
INC HL
LD D,#32 ;CENTURY
LD D,CMOS.Register.century
CALL CMOS_RD
CP #1A ;20
jp c,.error
@ -139,7 +139,7 @@ GETTIME:
LD (HL),A
INC HL
LD D,9 ;YEAR
LD D,CMOS.Register.year
CALL CMOS_RD
CP #9A ;100
jp nc,.error