mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 22:54:59 +00:00
Kernel version 0.9 : EDIT, fixed Status bar flashing
This commit is contained in:
parent
f79851f52a
commit
1a56b758d6
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -208,9 +208,19 @@ SCRN.UpdateAttrC
|
|||||||
.9 jmp Ctrl.Q
|
.9 jmp Ctrl.Q
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.UpdateStatusBar
|
SCRN.UpdateStatusBar
|
||||||
|
lda #1
|
||||||
|
>PUSHA
|
||||||
ldy #ScreenH
|
ldy #ScreenH
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
jsr SCRN.InvLineA
|
>PUSHA
|
||||||
|
|
||||||
|
>LDYA L.MSG.GOTOXY
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>LDYA L.SEQ.INV
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
ldy #PromptMode
|
ldy #PromptMode
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
@ -240,7 +250,16 @@ SCRN.UpdateStatusBar
|
|||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
lda #58
|
||||||
|
jsr SCRN.ClearEOLA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>LDYA L.SEQ.NORM
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
jmp SCRN.GotoCurXCurY
|
jmp SCRN.GotoCurXCurY
|
||||||
|
.9 jmp Ctrl.Q
|
||||||
|
|
||||||
.2 cmp #PromptModeHelp
|
.2 cmp #PromptModeHelp
|
||||||
beq .3
|
beq .3
|
||||||
@ -259,7 +278,6 @@ SCRN.UpdateStatusBar
|
|||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
bcs .9
|
bcs .9
|
||||||
rts
|
rts
|
||||||
.9 jmp Ctrl.Q
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.UpdateStatusBarErrA
|
SCRN.UpdateStatusBarErrA
|
||||||
sta .1+1
|
sta .1+1
|
||||||
@ -277,6 +295,24 @@ SCRN.UpdateStatusBarErrA
|
|||||||
rts
|
rts
|
||||||
.9 jmp Ctrl.Q
|
.9 jmp Ctrl.Q
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
SCRN.ClearEOLA pha
|
||||||
|
|
||||||
|
.1 pla
|
||||||
|
ldy #ScreenW
|
||||||
|
cmp (pData),y
|
||||||
|
bcs .8
|
||||||
|
inc
|
||||||
|
pha
|
||||||
|
|
||||||
|
lda #' '
|
||||||
|
>SYSCALL PutCA
|
||||||
|
bcc .1
|
||||||
|
plx
|
||||||
|
rts
|
||||||
|
|
||||||
|
.8 clc
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
SCRN.InvLineA sta .2+1
|
SCRN.InvLineA sta .2+1
|
||||||
lda #1
|
lda #1
|
||||||
>PUSHA
|
>PUSHA
|
||||||
|
@ -460,7 +460,7 @@ SEQ.INV >CSTR "\e[7m"
|
|||||||
SEQ.NORM >CSTR "\e[0m"
|
SEQ.NORM >CSTR "\e[0m"
|
||||||
SEQ.CEOL >CSTR "\e[K"
|
SEQ.CEOL >CSTR "\e[K"
|
||||||
MSG.TOPBAR >CSTR "\e[1;1HA2osX Edit:%S\e[0m"
|
MSG.TOPBAR >CSTR "\e[1;1HA2osX Edit:%S\e[0m"
|
||||||
MSG.STATUSBAR >CSTR "Press Ctrl-A For Help Length:%D Col:%d Line:%D\e[0m"
|
MSG.STATUSBAR >CSTR "Press Ctrl-A For Help Length:%5D,Col:%3d,Line:%5D"
|
||||||
MSG.STATUSBAR.H >CSTR "Press any key to exit this screen:\e[0m"
|
MSG.STATUSBAR.H >CSTR "Press any key to exit this screen:\e[0m"
|
||||||
MSG.STATUSBAR.F >CSTR "Find:%S\e[0m"
|
MSG.STATUSBAR.F >CSTR "Find:%S\e[0m"
|
||||||
MSG.STATUSBAR.R >CSTR "Replace:%S\e[0m"
|
MSG.STATUSBAR.R >CSTR "Replace:%S\e[0m"
|
||||||
|
Loading…
Reference in New Issue
Block a user