mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-12 06:29:03 +00:00
Kernel 0.93++
This commit is contained in:
parent
b456331542
commit
bf1990479c
Binary file not shown.
@ -12,6 +12,10 @@ SCRN.Init >PUSHW L.SEQ.INIT
|
||||
|
||||
jsr SCRN.Home
|
||||
|
||||
lda #$ff
|
||||
>STA.G bUpdateTop
|
||||
>STA.G bUpdateStatus
|
||||
|
||||
jsr SCRN.UpdateMainAndStatus
|
||||
bcs .9
|
||||
|
||||
@ -45,16 +49,13 @@ SCRN.UnSaved >LDA.G bUnSaved
|
||||
sta (pData),y
|
||||
*--------------------------------------
|
||||
SCRN.UpdateTopBar
|
||||
lda #$ff
|
||||
>STA.G bUpdateTop
|
||||
>LDA.G bUpdateTop
|
||||
bmi SCRN.UpdateTopBar.1
|
||||
SCRN.UpdateTopBar.8
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.UpdateTopBarAsync
|
||||
>LDA.G bUpdateTop
|
||||
bpl .8
|
||||
|
||||
SCRN.UpdateTopBar.1
|
||||
lda #0
|
||||
sta (pData),y
|
||||
|
||||
@ -247,11 +248,14 @@ SCRN.UpdateMain.1
|
||||
|
||||
bra .8
|
||||
|
||||
.5 jsr SCRN.LineBufInitEdit
|
||||
|
||||
.5 ldx #0
|
||||
ldy TmpByte
|
||||
jsr SCRN.LineBufGotoLineY
|
||||
jsr SCRN.UpdateLineAtBufPtr.EOL
|
||||
jsr SCRN.GotoXY
|
||||
bcs SCRN.UpdateMain.9
|
||||
|
||||
>PUSHW L.SEQ.CEOL
|
||||
>PUSHBI 0
|
||||
>SYSCALL printf2
|
||||
bcs SCRN.UpdateMain.9
|
||||
|
||||
inc TmpByte
|
||||
@ -387,17 +391,12 @@ SCRN.ToggleSel ldy #SEQ.NORM-SEQS
|
||||
|
||||
.8
|
||||
SCRN.ToggleSel.RTS
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.UpdateStatusBar
|
||||
lda #$ff
|
||||
>STA.G bUpdateStatus
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.UpdateStatusBarAsync
|
||||
SCRN.UpdateStatusBar
|
||||
>LDA.G bUpdateStatus
|
||||
bpl .8
|
||||
bpl SCRN.ToggleSel.RTS
|
||||
|
||||
lda #0
|
||||
sta (pData),y
|
||||
@ -486,14 +485,8 @@ SCRN.GotoXY >PUSHW L.MSG.GOTOXY
|
||||
>PUSHA
|
||||
>PUSHBI 2
|
||||
|
||||
lda #$ff
|
||||
>STA.G bUpdateScreen
|
||||
|
||||
>SYSCALL printf2
|
||||
bcs .9
|
||||
|
||||
>STZ.G bUpdateScreen
|
||||
.9 rts
|
||||
rts
|
||||
*--------------------------------------
|
||||
SCRN.scrollUp >PUSHW L.SEQ.SCROLLUP
|
||||
>PUSHBI 0
|
||||
@ -564,8 +557,6 @@ SCRN.LineBufInitEdit
|
||||
ldx #SEQ.EDIT-SEQS
|
||||
|
||||
SCRN.LineBufInit
|
||||
lda #$ff
|
||||
>STA.G bUpdateScreen
|
||||
>LDYA.G LineBufBase
|
||||
>STYA LineBufPtr
|
||||
|
||||
@ -617,7 +608,6 @@ SCRN.LineBufOut lda #0
|
||||
>PUSHW.G LineBufBase
|
||||
>PUSHBI 0
|
||||
>SYSCALL printf2
|
||||
>STZ.G bUpdateScreen
|
||||
rts
|
||||
*--------------------------------------
|
||||
MAN
|
||||
|
@ -227,14 +227,11 @@ CS.RUN.RTS rts
|
||||
CS.DOEVENT lda (pEvent)
|
||||
bpl .9 is it a TIMER event?
|
||||
|
||||
and #S.EVT.F.T1SEC
|
||||
beq .9
|
||||
asl
|
||||
bpl .9
|
||||
|
||||
>LDA.G bUpdateScreen
|
||||
bmi .9
|
||||
|
||||
jsr SCRN.UpdateTopBarAsync
|
||||
jsr SCRN.UpdateStatusBarAsync
|
||||
>STA.G bUpdateTop
|
||||
>STA.G bUpdateStatus
|
||||
|
||||
.9 sec
|
||||
rts
|
||||
@ -628,7 +625,6 @@ bEscMode .BS 1
|
||||
bExit .BS 1
|
||||
bUnSaved .BS 1
|
||||
bUpdateTop .BS 1
|
||||
bUpdateScreen .BS 1
|
||||
bUpdateStatus .BS 1
|
||||
|
||||
hFileName .BS 1
|
||||
|
Loading…
Reference in New Issue
Block a user