diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po index dea82414..e22984d6 100644 Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index e98c96bb..c97e7432 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 37a4c249..6a849ddc 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/DRV/CONSOLE.DRV.S.txt b/DRV/CONSOLE.DRV.S.txt index 6f6aaeee..6cc25b98 100644 --- a/DRV/CONSOLE.DRV.S.txt +++ b/DRV/CONSOLE.DRV.S.txt @@ -13,7 +13,7 @@ AUTO 6 .INB /A2OSX.BUILD/INC/IO.I .INB /A2OSX.BUILD/INC/NET.TELNET.I *-------------------------------------- -CURSOR.BLINK.SPEED .EQ 8 +CURSOR.BLINK.SPEED .EQ 2 ESCSEQ.MAXLEN .EQ 16 *-------------------------------------- ZPBaseL1 .EQ ZPDRV diff --git a/SYS/KERNEL.S.CORE.txt b/SYS/KERNEL.S.CORE.txt index b3d7934a..75fb198d 100644 --- a/SYS/KERNEL.S.CORE.txt +++ b/SYS/KERNEL.S.CORE.txt @@ -161,33 +161,34 @@ CORE.GetEvents lda #Evt.Table sta CORE.VBLState save new bpl .8 Up2down transition,no tick - lda SYS.BASL0+38 - eor #$80 - sta SYS.BASL0+38 - -.2 inc A2osX.TIMER16 - bne .3 - inc A2osX.TIMER16+1 - -.3 lda #0 +.2 lda #0 dec CORE.TickSec - bne .4 not yet One Sec + bne .3 not yet One Sec + lda SYS.BASL0+38 + eor #$C0 + sta SYS.BASL0+38 + ldx CORE.TickPerSec stx CORE.TickSec - ora #S.EVT.F.T1SEC + lda #S.EVT.F.T1SEC + bra .4 Force Resync T1 & T10... -.4 dec CORE.Tick10t - bne .5 +.3 dec CORE.Tick10t + bne .6 - ldx CORE.TickPer10t +.4 inc A2osX.TIMER16 + bne .5 + inc A2osX.TIMER16+1 + +.5 ldx CORE.TickPer10t stx CORE.Tick10t ora #S.EVT.F.T10TH -.5 tax Finally, do we have an event ? +.6 tax Finally, do we have an event ? beq .8 no.... sta (pEvent) diff --git a/SYS/KERNEL.S.INIT.txt b/SYS/KERNEL.S.INIT.txt index 4c33f7f4..d30aa788 100644 --- a/SYS/KERNEL.S.INIT.txt +++ b/SYS/KERNEL.S.INIT.txt @@ -573,7 +573,7 @@ IrqMgrInit >LDYAI MSG.IRQ jsr IrqMgrInit.Mouse bcs .1 - lda #'v' + lda #"V" sta SYS.BASL0+38 >LDYAI K.IrqH.VBL @@ -587,7 +587,7 @@ IrqMgrInit >LDYAI MSG.IRQ .1 jsr IrqMgrInit.TClock bcs .8 - lda #'c' + lda #"C" sta SYS.BASL0+38 >LDYAI K.IrqH.TClock @@ -601,7 +601,7 @@ IrqMgrInit >LDYAI MSG.IRQ .8 jsr IrqMgrInit.HZ2Tick - lda #'p' + lda #"P" sta SYS.BASL0+38 >LDYAI MSG.IRQ.POLL @@ -729,6 +729,9 @@ IrqMgrInit.TClock cmp #$C8 bne .1 + sec + rts + .4 lda ZPPtr1+1 get $Cn and #$f tax get $0n @@ -739,6 +742,9 @@ IrqMgrInit.TClock tay get $n0 sty IRQ.VBL.n0 + php + sei + lda #$40 Enable interrupt sta $c080,y sta $478,x @@ -754,12 +760,11 @@ IrqMgrInit.TClock dec CORE.IRQMode + plp + clc rts -.9 sec - rts - TClock.SIG .HS 0878282c58ff700538b00118b8087848 .HS 8a489848adffcf201ac86868ba8df807 *-------------------------------------- diff --git a/SYS/KERNEL.S.IRQ.txt b/SYS/KERNEL.S.IRQ.txt index a58c4bdb..ee166092 100644 --- a/SYS/KERNEL.S.IRQ.txt +++ b/SYS/KERNEL.S.IRQ.txt @@ -68,10 +68,6 @@ K.IrqH.TCLOCK ldy IRQ.VBL.n0 inc CORE.IRQTick - lda SYS.BASL0+38 - eor #$80 - sta SYS.BASL0+38 - clc rts *-------------------------------------- @@ -89,10 +85,6 @@ K.IrqH.VBL jsr IRQ.VBL.MSM SERVEMOUSE inc CORE.IRQTick - lda SYS.BASL0+38 - eor #$80 - sta SYS.BASL0+38 - clc rts *--------------------------------------