mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-27 00:29:29 +00:00
Kernel version 0.9 : More BugFix in EDIT
This commit is contained in:
parent
01eebfd159
commit
b24e053fee
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
|
@ -44,29 +44,9 @@ SCRN.Init ldy #ScreenH
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.UpdateTopBar
|
SCRN.UpdateTopBar
|
||||||
lda #1
|
lda #1
|
||||||
>PUSHA
|
jsr SCRN.InvLineA
|
||||||
>PUSHA
|
|
||||||
>LDYA L.MSG.GOTOXY
|
|
||||||
>SYSCALL CPrintFYA
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDYA L.SEQ.INV
|
|
||||||
>SYSCALL CPrintFYA
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
ldy #ScreenW
|
|
||||||
lda (pData),y
|
|
||||||
|
|
||||||
.3 pha
|
|
||||||
|
|
||||||
lda #' '
|
|
||||||
>SYSCALL PutCA
|
|
||||||
pla
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
dec
|
|
||||||
bne .3
|
|
||||||
|
|
||||||
ldy #hFileName
|
ldy #hFileName
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
beq .1
|
beq .1
|
||||||
|
@ -228,6 +208,10 @@ SCRN.UpdateAttrC
|
||||||
.9 jmp Ctrl.Q
|
.9 jmp Ctrl.Q
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.UpdateStatusBar
|
SCRN.UpdateStatusBar
|
||||||
|
ldy #ScreenH
|
||||||
|
lda (pData),y
|
||||||
|
jsr SCRN.InvLineA
|
||||||
|
|
||||||
ldy #PromptMode
|
ldy #PromptMode
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
tax
|
tax
|
||||||
|
@ -253,20 +237,21 @@ SCRN.UpdateStatusBar
|
||||||
dey
|
dey
|
||||||
>PUSHB (pData),y
|
>PUSHB (pData),y
|
||||||
|
|
||||||
ldy #ScreenH
|
|
||||||
lda (pData),y
|
|
||||||
>PUSHA
|
|
||||||
>LDYA L.MSG.STATUSBAR
|
>LDYA L.MSG.STATUSBAR
|
||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jmp SCRN.GotoCurXCurY
|
jmp SCRN.GotoCurXCurY
|
||||||
|
|
||||||
.2 cmp #PromptModeHelp
|
.2 cmp #PromptModeHelp
|
||||||
beq .3
|
beq .3
|
||||||
>PUSHW pData
|
>PUSHW pData
|
||||||
|
|
||||||
.3 ldy #ScreenH
|
.3 ldy #ScreenH
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
>PUSHA
|
jsr SCRN.InvLineA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
>LDYA L.MSG.STATUSBAR,x
|
>LDYA L.MSG.STATUSBAR,x
|
||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
@ -274,9 +259,14 @@ SCRN.UpdateStatusBar
|
||||||
.9 jmp Ctrl.Q
|
.9 jmp Ctrl.Q
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.UpdateStatusBarErrA
|
SCRN.UpdateStatusBarErrA
|
||||||
>PUSHA
|
sta .1+1
|
||||||
ldy #ScreenH
|
ldy #ScreenH
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
|
dec
|
||||||
|
jsr SCRN.InvLineA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
.1 lda #$ff
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.STATUSBAR.E
|
>LDYA L.MSG.STATUSBAR.E
|
||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
|
@ -284,6 +274,41 @@ SCRN.UpdateStatusBarErrA
|
||||||
rts
|
rts
|
||||||
.9 jmp Ctrl.Q
|
.9 jmp Ctrl.Q
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
SCRN.InvLineA sta .2+1
|
||||||
|
lda #1
|
||||||
|
>PUSHA
|
||||||
|
lda .2+1
|
||||||
|
>PUSHA
|
||||||
|
>LDYA L.MSG.GOTOXY
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>LDYA L.SEQ.INV
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
ldy #ScreenW
|
||||||
|
lda (pData),y
|
||||||
|
|
||||||
|
.1 pha
|
||||||
|
|
||||||
|
lda #' '
|
||||||
|
>SYSCALL PutCA
|
||||||
|
pla
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
dec
|
||||||
|
bne .1
|
||||||
|
|
||||||
|
lda #1
|
||||||
|
>PUSHA
|
||||||
|
.2 lda #$ff
|
||||||
|
>PUSHA
|
||||||
|
>LDYA L.MSG.GOTOXY
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
SCRN.GotoCurXCurY
|
SCRN.GotoCurXCurY
|
||||||
ldy #CurX
|
ldy #CurX
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
|
|
|
@ -459,13 +459,13 @@ SEQ.SCROLLDN >CSTR "\e[%d;%dH\eM"
|
||||||
SEQ.INV >CSTR "\e[7m"
|
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"
|
MSG.TOPBAR >CSTR "\e[1;1HA2osX Edit:%S\e[0m"
|
||||||
MSG.STATUSBAR >CSTR "\e[%d;1H\e[7mPress Ctrl-A For Help Length:%D Col:%d Line:%D\e[K\e[0m"
|
MSG.STATUSBAR >CSTR "Press Ctrl-A For Help Length:%D Col:%d Line:%D\e[0m"
|
||||||
MSG.STATUSBAR.H >CSTR "\e[%d;1H\e[7mPress any key to exit this screen:\e[K\e[0m"
|
MSG.STATUSBAR.H >CSTR "Press any key to exit this screen:\e[0m"
|
||||||
MSG.STATUSBAR.F >CSTR "\e[%d;1H\e[7mFind:%S\e[K\e[0m"
|
MSG.STATUSBAR.F >CSTR "Find:%S\e[0m"
|
||||||
MSG.STATUSBAR.R >CSTR "\e[%d;1H\e[7mReplace:%S\e[K\e[0m"
|
MSG.STATUSBAR.R >CSTR "Replace:%S\e[0m"
|
||||||
MSG.STATUSBAR.S >CSTR "\e[%d;1H\e[7mSave:%S\e[K\e[0m"
|
MSG.STATUSBAR.S >CSTR "Save:%S\e[0m"
|
||||||
MSG.STATUSBAR.E >CSTR "\e[%d;1H\e[7mError:%h\e[K\e[0m"
|
MSG.STATUSBAR.E >CSTR "Error:%h\e[0m"
|
||||||
MSG.GOTOXY >CSTR "\e[%d;%dH"
|
MSG.GOTOXY >CSTR "\e[%d;%dH"
|
||||||
MSG.HELP >PSTR "All commands: (* = Not yet implemented)"
|
MSG.HELP >PSTR "All commands: (* = Not yet implemented)"
|
||||||
>PSTR "------------"
|
>PSTR "------------"
|
||||||
|
|
|
@ -189,7 +189,14 @@ WRITE bit bEscMode
|
||||||
ldx CH
|
ldx CH
|
||||||
ldy CV
|
ldy CV
|
||||||
jsr SetCharAtXY
|
jsr SetCharAtXY
|
||||||
jmp FSOUT
|
*--------------------------------------
|
||||||
|
FSOUT ldx CH
|
||||||
|
cpx #79
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
inc CH
|
||||||
|
.8 clc
|
||||||
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
COUT.Ctrl ldx #CtrlChars.Cnt-1
|
COUT.Ctrl ldx #CtrlChars.Cnt-1
|
||||||
|
|
||||||
|
@ -402,17 +409,6 @@ ClrScr stz CH
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
FSOUT ldx CH
|
|
||||||
cpx #79
|
|
||||||
bne .1
|
|
||||||
|
|
||||||
stz CH
|
|
||||||
bra LF
|
|
||||||
|
|
||||||
.1 inc CH
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CROUT jsr CLREOL
|
CROUT jsr CLREOL
|
||||||
stz CH
|
stz CH
|
||||||
clc
|
clc
|
||||||
|
@ -454,8 +450,8 @@ CLRSOL ldx #0
|
||||||
ldy CH
|
ldy CH
|
||||||
|
|
||||||
CLR sty .2+1
|
CLR sty .2+1
|
||||||
.1 lda #$20
|
.1 lda #" "
|
||||||
ora INVFLG
|
|
||||||
ldy CV
|
ldy CV
|
||||||
jsr SetCharAtXY X,Y unmodified
|
jsr SetCharAtXY X,Y unmodified
|
||||||
inx
|
inx
|
||||||
|
|
Loading…
Reference in New Issue
Block a user