Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-10 00:29:09 +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 rts
*-------------------------------------- *--------------------------------------
SCRN.UnSaved >LDA.G bUnSaved SCRN.UnSaved >LDA.G bUnSaved
bne .8 bne SCRN.UpdateTopBar.8
dec dec
sta (pData),y sta (pData),y
bra SCRN.UpdateTopBar
.8 clc
rts
*-------------------------------------- *--------------------------------------
SCRN.UpdateTopBar SCRN.UpdateTopBar
lda #$ff lda #$ff
>STA.G bUpdateTop >STA.G bUpdateTop
SCRN.UpdateTopBar.8
clc clc
rts rts
*-------------------------------------- *--------------------------------------
@ -58,7 +55,9 @@ SCRN.UpdateTopBarAsync
>LDA.G bUpdateTop >LDA.G bUpdateTop
bpl .8 bpl .8
lda #0 lda (LineBuf)
bne .8
sta (pData),y sta (pData),y
jsr SCRN.LineBufInitBar jsr SCRN.LineBufInitBar
@ -406,7 +405,9 @@ SCRN.UpdateStatusBarAsync
>LDA.G bUpdateStatus >LDA.G bUpdateStatus
bpl .8 bpl .8
lda #0 lda (LineBuf)
bne .8
sta (pData),y sta (pData),y
jsr SCRN.ResetStatusBar jsr SCRN.ResetStatusBar
@ -615,7 +616,12 @@ SCRN.LineBufOut lda #0
>PUSHBI 0 >PUSHBI 0
>LDYA.G LineBuf >LDYA.G LineBuf
>SYSCALL printf >SYSCALL printf
rts bcs .9
lda #0
sta (LineBuf)
.9 rts
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/BIN/EDIT.S.SCRN SAVE USR/SRC/BIN/EDIT.S.SCRN

15
BIN/EDIT.S.txt
View File

@ -165,6 +165,9 @@ CS.RUN >PUSHBI 0
txa txa
>STA.G hLineBuf >STA.G hLineBuf
lda #0
sta (LineBuf)
lda #1 lda #1
>SYSCALL ArgV >SYSCALL ArgV
bcs .2 No arg, new file.... bcs .2 No arg, new file....
@ -186,17 +189,25 @@ CS.RUN >PUSHBI 0
bcs CS.RUN.RTS bcs CS.RUN.RTS
>LDYAI 65 >LDYAI 65
>SYSCALL getmem0 >SYSCALL getmem
bcs CS.RUN.RTS bcs CS.RUN.RTS
>STYA ZPPTR1
txa txa
>STA.G hFind >STA.G hFind
lda #0
sta (ZPPTR1)
>LDYAI 65 >LDYAI 65
>SYSCALL getmem0 >SYSCALL getmem
bcs CS.RUN.RTS bcs CS.RUN.RTS
>STYA ZPPTR1
txa txa
>STA.G hReplace >STA.G hReplace
lda #0
sta (ZPPTR1)
CS.RUN.LOOP >SYSCALL GetChar CS.RUN.LOOP >SYSCALL GetChar
bcs CS.RUN.RTS I/O error bcs CS.RUN.RTS I/O error