mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-13 13:29:04 +00:00
Kernel 0.93++
This commit is contained in:
parent
f11927d4cf
commit
92fe5049d4
Binary file not shown.
@ -39,18 +39,15 @@ SCRN.ResetScrollRgn
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.UnSaved >LDA.G bUnSaved
|
||||
bne .8
|
||||
bne SCRN.UpdateTopBar.8
|
||||
|
||||
dec
|
||||
sta (pData),y
|
||||
bra SCRN.UpdateTopBar
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.UpdateTopBar
|
||||
lda #$ff
|
||||
>STA.G bUpdateTop
|
||||
SCRN.UpdateTopBar.8
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
@ -58,7 +55,9 @@ SCRN.UpdateTopBarAsync
|
||||
>LDA.G bUpdateTop
|
||||
bpl .8
|
||||
|
||||
lda #0
|
||||
lda (LineBuf)
|
||||
bne .8
|
||||
|
||||
sta (pData),y
|
||||
|
||||
jsr SCRN.LineBufInitBar
|
||||
@ -406,7 +405,9 @@ SCRN.UpdateStatusBarAsync
|
||||
>LDA.G bUpdateStatus
|
||||
bpl .8
|
||||
|
||||
lda #0
|
||||
lda (LineBuf)
|
||||
bne .8
|
||||
|
||||
sta (pData),y
|
||||
|
||||
jsr SCRN.ResetStatusBar
|
||||
@ -615,7 +616,12 @@ SCRN.LineBufOut lda #0
|
||||
>PUSHBI 0
|
||||
>LDYA.G LineBuf
|
||||
>SYSCALL printf
|
||||
rts
|
||||
bcs .9
|
||||
|
||||
lda #0
|
||||
sta (LineBuf)
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/BIN/EDIT.S.SCRN
|
||||
|
@ -165,6 +165,9 @@ CS.RUN >PUSHBI 0
|
||||
txa
|
||||
>STA.G hLineBuf
|
||||
|
||||
lda #0
|
||||
sta (LineBuf)
|
||||
|
||||
lda #1
|
||||
>SYSCALL ArgV
|
||||
bcs .2 No arg, new file....
|
||||
@ -186,17 +189,25 @@ CS.RUN >PUSHBI 0
|
||||
bcs CS.RUN.RTS
|
||||
|
||||
>LDYAI 65
|
||||
>SYSCALL getmem0
|
||||
>SYSCALL getmem
|
||||
bcs CS.RUN.RTS
|
||||
>STYA ZPPTR1
|
||||
txa
|
||||
>STA.G hFind
|
||||
|
||||
lda #0
|
||||
sta (ZPPTR1)
|
||||
|
||||
>LDYAI 65
|
||||
>SYSCALL getmem0
|
||||
>SYSCALL getmem
|
||||
bcs CS.RUN.RTS
|
||||
>STYA ZPPTR1
|
||||
txa
|
||||
>STA.G hReplace
|
||||
|
||||
lda #0
|
||||
sta (ZPPTR1)
|
||||
|
||||
CS.RUN.LOOP >SYSCALL GetChar
|
||||
bcs CS.RUN.RTS I/O error
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user