Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-15 17:31:47 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

+ K_SETUP: две новые подфункции для вкл/выкл курсора

Browse Source
This commit is contained in:
Tolik 2025-04-26 02:56:36 +10:00
parent abe9889012
commit 73c7ab5f6b
3 changed files with 41 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
DSS/KEYINTER.ASM
View File

@ -110,22 +110,23 @@ UNCODE DW 0 ;
WAITKEY LD HL,HOST WAITKEY: LD HL,HOST
LD A,(HEAD) LD A,(HEAD)
CP (HL) CP (HL)
JR Z,WAITKEY JR Z,WAITKEY
CALL GETSYM CALL GETSYM
LD A,E LD A,E
AND A AND A
RET RET
;
SCANKEY LD HL,HOST SCANKEY: LD HL,HOST
LD A,(HEAD) LD A,(HEAD)
CP (HL) CP (HL)
RET Z RET Z
CALL GETSYM CALL GETSYM
LD A,E LD A,E
RET RET
; ;
; ;
@ -209,6 +210,7 @@ ECHOKEY: CALL Cursor_On ;
LD A,E LD A,E
AND A AND A
RET RET
;
Cursor: ;!TODO «®£¨ç­¥¥ ªãàá®à®¬ ¬®à£ âì ¨ èà¨äâë ¬¥­ïâì ¨§ ¡¨®á  ¦¥? Cursor: ;!TODO «®£¨ç­¥¥ ªãàá®à®¬ ¬®à£ âì ¨ èà¨äâë ¬¥­ïâì ¨§ ¡¨®á  ¦¥?
.Flag+1: LD A,0 ; ä« £ ªãàá®à  00-­¥â/01-¥áâì .Flag+1: LD A,0 ; ä« £ ªãàá®à  00-­¥â/01-¥áâì
@ -219,7 +221,7 @@ Cursor_On: LD C,BIOS.LP_GET_PLACE ; 㧭
RST ToBIOS RST ToBIOS
LD (Cursor_Off.pos),DE LD (Cursor_Off.pos),DE
XOR A XOR A
LD C,BIOS.WIN_GET_SYM ; ¯®«ãç¨âì ᨬ¢®« LD C,BIOS.WIN_GET_SYM ; ¯®«ãç¨âì ᨬ¢®«
RST ToBIOS RST ToBIOS
; ;
LD A,%0010'0000 LD A,%0010'0000
@ -1011,12 +1013,31 @@ K_SND_R: DJNZ K_SND_W
AND A AND A
RET RET
; subfunc 2 ; subfunc 2
K_SND_W: ;DJNZ K_RESET_BUFFER ;. [ ] 31/03/2024 subfunc 3 ­ã¦­  «¨? K_SND_W: ;DJNZ K_RESET_BUFFER ; [ ] 31/03/2024 subfunc 3 ­ã¦­  «¨?
DJNZ K_SETUP.ERROR DJNZ K_CURSOR_ON ; [ ] 26/04/2025 ã¯à ¢«¥­¨¥ ¢¨¤¨¬®áâìî ªãàá®à 
; ;
LD (SOUND_K),A LD (SOUND_K),A
AND A AND A
RET RET
;
; [ ] 26/04/2025 ã¯à ¢«¥­¨¥ ¢¨¤¨¬®áâìî ªãàá®à 
K_CURSOR_ON: DJNZ K_CURSOR_OFF
LD A,(VMODE)
RLA
JP NC,Cursor_On
RET
;
; [ ] 26/04/2025 ã¯à ¢«¥­¨¥ ¢¨¤¨¬®áâìî ªãàá®à 
K_CURSOR_OFF: DJNZ K_SETUP.ERROR
LD A,(VMODE)
RLA
JP NC,Cursor_Off
RET
;
; ;
; ;. [ ] 31/03/2024 subfunc 3 ­ã¦­  «¨? ; ;. [ ] 31/03/2024 subfunc 3 ­ã¦­  «¨?
; K_RESET_BUFFER: DJNZ K_SETUP.ERROR ; K_RESET_BUFFER: DJNZ K_SETUP.ERROR

2
DSS/build.txt
View File

@ -1 +1 @@
35 36

2
Shared_Includes

@ -1 +1 @@
Subproject commit e0dd54cb5615a23ea55bd217578aab57481fcf77 Subproject commit a6c50f572424e88f6199d639fa8109d53b71142c