diff --git a/applecorn.po b/applecorn.po index 1e4958b..78b448d 100644 Binary files a/applecorn.po and b/applecorn.po differ diff --git a/auxmem.chario.s b/auxmem.chario.s index c218ba5..9a97135 100644 --- a/auxmem.chario.s +++ b/auxmem.chario.s @@ -1,9 +1,8 @@ -********************************************************* -* Kernel / Character I/O -********************************************************* +* AUXMEM.CHARIO.S +* (c) Bobbi 2021 GPLv3 +* +* Applecorn kernel / Character I/O -* KERNEL/CHARIO.S -***************** * Character read and write * * 14-Aug-2021 Flashing cursor and INKEY sync'd to frame rate @@ -16,7 +15,6 @@ * *BUGS* INKEY doesn't restore cursor on timeout. * KBDREAD has several paths that don't test ESCCHAR. - * TEMP: FLASHER EQU $290 CURSOR EQU $291 @@ -34,17 +32,9 @@ FX2VAR EQU BYTEVARBASE+$B1 FX3VAR EQU BYTEVARBASE+$EC FX4VAR EQU BYTEVARBASE+$ED - -** Default keyboard OSBYTE variables -*DEFBYTELOW EQU 219 ; First default OSBYTE value -*DEFBYTE DB $09,$1B ; Default key codes -* DB $01,$D0,$E0,$F0 ; Default key expansion -* DB $01,$80,$90,$00 ; Default key expansion -*DEFBYTEEND - * TEMP as no *KEY * Default keyboard OSBYTE variables -DEFBYTELOW EQU 219 ; First default OSBYTE value +*DEFBYTELOW EQU 219 ; First default OSBYTE value DEFBYTE DB $09,$1B ; Default key codes DB $C0,$D0,$E0,$F0 ; Default key expansion DB $80,$90,$A0,$B0 ; Default key expansion diff --git a/auxmem.init.s b/auxmem.init.s index df8f29c..c4cce8f 100644 --- a/auxmem.init.s +++ b/auxmem.init.s @@ -1,3 +1,8 @@ +* AUXMEM.INIT.S +* (c) Bobbi 2021 GPL v3 +* +* Initialization code running in Apple //e aux memory + *********************************************************** * BBC Micro 'virtual machine' in Apple //e aux memory *********************************************************** @@ -100,11 +105,12 @@ MOSINIT LDX #$FF ; Initialize Alt SP to $1FF INC A4H :S7 BRA :L2 -:NORELOC ; We should jump up into high memory here +:NORELOC :S8 STA $C00D ; 80 col on STA $C003 ; Alt charset off STA $C055 ; PAGE2 +MOSHIGH SEI LDX #$FF TXS ; Initialise stack INX ; X=$00 @@ -121,6 +127,13 @@ MOSINIT LDX #$FF ; Initialize Alt SP to $1FF DEX BPL :INITPG2 +* DEFBYTELOW=129 + LDX #DEFBYTEEND-DEFBYTE-1 +:INITPG3 LDA DEFBYTE,X ; Initialize OSBYTE vars + STA BYTEVARBASE+DEFBYTELOW,X + DEX + BPL :INITPG3 + JSR VDUINIT ; Initialise VDU driver LDA #<:HELLO diff --git a/auxmem.mosequ.s b/auxmem.mosequ.s index 3f7f3f3..65c52cf 100644 --- a/auxmem.mosequ.s +++ b/auxmem.mosequ.s @@ -59,5 +59,5 @@ FSCV EQU $21E ; FSCV misc file ops OSFILECB EQU $2EE ; OSFILE control block - +DEFBYTELOW EQU 219 ; First default OSBYTE value