Kernel 0.93++

BIN/EDIT.S.SCRN.txt

@@ -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,19 +391,14 @@ 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
-
-				lda #0
+				bpl SCRN.ToggleSel.RTS
+				
+				lda #0 
 				sta (pData),y
 
 				jsr SCRN.ResetStatusBar
@@ -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

BIN/EDIT.S.txt

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