Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 01:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-28 11:40:54 +01:00
parent f11927d4cf
commit 92fe5049d4
3 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

22
BIN/EDIT.S.SCRN.txt
View File

@ -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

15
BIN/EDIT.S.txt
View File

@ -164,6 +164,9 @@ CS.RUN >PUSHBI 0
>STYA.G LineBuf
txa
>STA.G hLineBuf
lda #0
sta (LineBuf)
lda #1
>SYSCALL ArgV
@ -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