diff --git a/A2OSX.BOOT.po b/A2OSX.BOOT.po index a25af499..8b5b494e 100644 Binary files a/A2OSX.BOOT.po and b/A2OSX.BOOT.po differ diff --git a/A2OSX.SRC.po b/A2OSX.SRC.po index 07ef07b8..b0147906 100644 Binary files a/A2OSX.SRC.po and b/A2OSX.SRC.po differ diff --git a/A2osX.STARTUP.txt b/A2osX.STARTUP.txt index 6810daff..0b32df4d 100644 --- a/A2osX.STARTUP.txt +++ b/A2osX.STARTUP.txt @@ -10,7 +10,7 @@ echo Env: SET # Main Screen INSDRV CONSOLE.DRV -#STARTPROC GETTY CON ${A2OSX}SBIN/LOGIN +STARTPROC GETTY CON ${A2OSX}SBIN/LOGIN # Serial Login #INSDRV SSC.I.DRV 9600 N 8 1 X #STARTPROC GETTY COM2 LOGIN diff --git a/DRV/CONSOLE.DRV.S.txt b/DRV/CONSOLE.DRV.S.txt index 83f04c6a..dc629656 100644 --- a/DRV/CONSOLE.DRV.S.txt +++ b/DRV/CONSOLE.DRV.S.txt @@ -103,43 +103,41 @@ OPEN stz CURON clc rts *-------------------------------------- -GETEVENT lda A2osX.TIMER16 +GETEVENT jsr Char.Out.Get + bcc .7 no char in output buffer... + + lda A2osX.ASCREEN + cmp #1 is CON active? + bne .9 no....exit + + lda A2osX.TIMER16 and #CURSOR.BLINK.SPEED eor CURON beq .1 jsr CURBLNK -.1 jsr Char.Out.Get - bcc .7 - >DEBUG - >SYSCALL SYS.GetKeyboardEvent - bcs .9 +.1 lda OPENAPPLE + bmi .9 Open apple key, not for us... - ldy #S.EVT.DATAHI - lda (pEvent),y - bne .8 + lda KBD + bpl .9 + sta KBDSTROBE - lda A2osX.ASCREEN - cmp #1 - bne .9 - - dey - lda (pEvent),y + and #$7F ldx KeyRemapped .2 cmp KeyRemapped,x beq .3 dex bne .2 - clc - rts + bra .7 .3 lda KeyRemappedIdx,x tay .4 lda KeyRemappedTbl,y beq .6 - jsr Char.Out + jsr Char.Out.Put iny bra .4 @@ -147,7 +145,7 @@ GETEVENT lda A2osX.TIMER16 .7 ldy #S.EVT.DATALO sta (pEvent),y - iny + iny S.EVT.DATAHI lda #0 sta (pEvent),y lda #S.EVT.F.KEY @@ -531,19 +529,19 @@ Esc.Query ldx EscSeqParamCnt bne .8 lda #$1B - jsr Char.Out + jsr Char.Out.Put lda #$5B - jsr Char.Out + jsr Char.Out.Put lda CV inc - jsr Decimal.Out + jsr Decimal.Out lda #';' - jsr Char.Out + jsr Char.Out.Put lda CH inc jsr Decimal.Out lda #'R' - jsr Char.Out + jsr Char.Out.Put .8 clc rts @@ -733,7 +731,7 @@ Decimal.Out stz DecimalBuffer beq .2 ora #$30 dec bDecimal0Out - jsr Char.Out + jsr Char.Out.Put .2 lda DecimalBuffer lsr @@ -744,12 +742,12 @@ Decimal.Out stz DecimalBuffer bit bDecimal0Out bpl .4 .3 ora #$30 - jsr Char.Out + jsr Char.Out.Put .4 lda DecimalBuffer and #$0f ora #$30 *-------------------------------------- -Char.Out pha +Char.Out.Put pha lda OutPtr clc adc OutCnt diff --git a/SYS/KERNEL.S.DEV.txt b/SYS/KERNEL.S.DEV.txt index bfa22cb7..1d4eb84d 100644 --- a/SYS/KERNEL.S.DEV.txt +++ b/SYS/KERNEL.S.DEV.txt @@ -163,12 +163,11 @@ DevMgr.SYS.GetEvent .1 stx DevMgr.SYS.CPULOADI jsr K.GetKeyboardEvent - bcs .9 - rts + bcc .8 .9 lda #0 Error = no event sec - rts +.8 rts *-------------------------------------- DevMgr.SYS.COut phx phy