...
This commit is contained in:
Anatoliy Belyanskiy
parent
f655cad1fc
commit
91c22e8e58
@ -1 +1 @@
|
|||||||
Subproject commit 226dbc13e8cacb202848245b7f11de3df2f0cbd7
|
Subproject commit 54298bfb52826572bda5ccd0609320a9418d08c9
|
||||||
@ -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
|
|
||||||
@ -471,7 +471,7 @@ LP_PRINT_LINE6:
|
|||||||
|
|
||||||
;
|
;
|
||||||
;------------------------------------------------------------------[#84]
|
;------------------------------------------------------------------[#84]
|
||||||
LP_SET_PLACE: ; !!!!! ®¦¨¤ ¥âáï, çâ® ¯®àâïâáï ⮫쪮 «ìâ¥à â¨¢ë¥ à¥£¨áâàë ¨ â¥, çâ® ª ª ¯ à ¬¥âàë ¢å®¤¥
|
LP_SET_PLACE: ; ¯®àâïâáï ⮫쪮 «ìâ¥à â¨¢ë¥ à¥£¨áâàë ¨ â¥, çâ® ª ª ¯ à ¬¥âàë ¢å®¤¥
|
||||||
CALL LP_BEG_P
|
CALL LP_BEG_P
|
||||||
CALL LP_AT_D
|
CALL LP_AT_D
|
||||||
CALL LP_TAB_E
|
CALL LP_TAB_E
|
||||||
@ -1533,8 +1533,8 @@ WIN_GET_SYM:
|
|||||||
INC L
|
INC L
|
||||||
|
|
||||||
EXX
|
EXX
|
||||||
CALL LP_END_P
|
JP LP_END_P
|
||||||
RET
|
;RET
|
||||||
|
|
||||||
; DE - ¬¥á⮠ᨬ¢®« ¢ ®ª¥
|
; DE - ¬¥á⮠ᨬ¢®« ¢ ®ª¥
|
||||||
; € - ®¬¥à ®ª
|
; € - ®¬¥à ®ª
|
||||||
|
|||||||
@ -13,7 +13,7 @@ PG_Sp2000 EQU #FE
|
|||||||
RST_CONF:
|
RST_CONF:
|
||||||
;--[] ZX Spectrum
|
;--[] ZX Spectrum
|
||||||
.AY8910:
|
.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
|
CALL CMOS_RD
|
||||||
OR 1
|
OR 1
|
||||||
CALL CMOS_WR
|
CALL CMOS_WR
|
||||||
@ -30,7 +30,7 @@ RST_CONF:
|
|||||||
|
|
||||||
;--[] Sprinter ZX
|
;--[] Sprinter ZX
|
||||||
.SP97_1:
|
.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
|
CALL CMOS_RD
|
||||||
AND #FE
|
AND #FE
|
||||||
CALL CMOS_WR
|
CALL CMOS_WR
|
||||||
|
|||||||
@ -16,7 +16,7 @@ NUM_L EQU 3
|
|||||||
SCRL_L EQU 2
|
SCRL_L EQU 2
|
||||||
INS_L EQU 1
|
INS_L EQU 1
|
||||||
CAPS_L EQU 0
|
CAPS_L EQU 0
|
||||||
KEYFLAG DB 2 ;D0-Key Pressed
|
KEYFLAG: DB 2 ;D0-Key Pressed
|
||||||
;
|
;
|
||||||
K_SHIFT EQU $-KEYFLAG
|
K_SHIFT EQU $-KEYFLAG
|
||||||
L_SHIFT EQU 7
|
L_SHIFT EQU 7
|
||||||
@ -27,7 +27,7 @@ L_CTRL EQU 3
|
|||||||
L_ALT EQU 2
|
L_ALT EQU 2
|
||||||
R_CTRL EQU 1
|
R_CTRL EQU 1
|
||||||
R_ALT EQU 0
|
R_ALT EQU 0
|
||||||
KEYCTRL DB 0
|
KEYCTRL: DB 0
|
||||||
;
|
;
|
||||||
KEYFLG EQU $-KEYFLAG
|
KEYFLG EQU $-KEYFLAG
|
||||||
FLAG_E0 EQU 7
|
FLAG_E0 EQU 7
|
||||||
@ -110,8 +110,7 @@ CTRLKEY:
|
|||||||
DEC A
|
DEC A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
PUTSYM:
|
PUTSYM: LD HL,HEAD
|
||||||
LD HL,HEAD
|
|
||||||
LD A,(HOST)
|
LD A,(HOST)
|
||||||
SUB 4
|
SUB 4
|
||||||
AND #3F
|
AND #3F
|
||||||
|
|||||||
@ -95,42 +95,42 @@ RET_TO_EXP_ADDR: WORD 0000 ; p
|
|||||||
; ¨ ¢ ॣ¨áâॠA ¢ë室¥ ¨§ äãªæ¨¨ #F6 (CMOS_RD) BIOS § ç¥¨ï ¤¥áïâ¨çë¥.
|
; ¨ ¢ ॣ¨áâॠA ¢ë室¥ ¨§ äãªæ¨¨ #F6 (CMOS_RD) BIOS § ç¥¨ï ¤¥áïâ¨çë¥.
|
||||||
GETTIME:
|
GETTIME:
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD D,4 ;HOURS
|
LD D,CMOS.Register.hours
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #24 ;24
|
CP #24 ;24
|
||||||
jp nc,.error
|
jp nc,.error
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
|
|
||||||
LD D,2 ;MINUTES
|
LD D,CMOS.Register.minutes
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #5A ; 60
|
CP #5A ; 60
|
||||||
jp nc,.error
|
jp nc,.error
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
|
|
||||||
LD D,0 ;SECONDS
|
LD D,CMOS.Register.seconds
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #5A ; 60
|
CP #5A ; 60
|
||||||
jp nc,.error
|
jp nc,.error
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
|
|
||||||
LD D,7 ;DAY
|
LD D,CMOS.Register.date ; ç¨á«®
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #32 ;32
|
CP #32
|
||||||
jp nc,.error
|
jp nc,.error
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
|
|
||||||
LD D,8 ;MONTH
|
LD D,CMOS.Register.month
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #13 ;13
|
CP #13 ;13
|
||||||
jp nc,.error
|
jp nc,.error
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
|
|
||||||
LD D,#32 ;CENTURY
|
LD D,CMOS.Register.century
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #1A ;20
|
CP #1A ;20
|
||||||
jp c,.error
|
jp c,.error
|
||||||
@ -139,7 +139,7 @@ GETTIME:
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
|
|
||||||
LD D,9 ;YEAR
|
LD D,CMOS.Register.year
|
||||||
CALL CMOS_RD
|
CALL CMOS_RD
|
||||||
CP #9A ;100
|
CP #9A ;100
|
||||||
jp nc,.error
|
jp nc,.error
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user