Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-23 21:29:07 +00:00
Code Issues Projects Releases Wiki Activity

Initialize OSBYTE variables.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-08-20 18:57:14 -04:00
parent 2c613a9787
commit f2863d1739
4 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

20
auxmem.chario.s
View File

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

15
auxmem.init.s
View File

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

2
auxmem.mosequ.s
View File

@ -59,5 +59,5 @@ FSCV EQU $21E ; FSCV misc file ops
OSFILECB EQU $2EE ; OSFILE control block
DEFBYTELOW EQU 219 ; First default OSBYTE value