empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bugfix from Oliver Schmidt

Browse source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3480 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-04-21 02:08:29 +00:00
parent c0f6dea213
commit deab71739a
2 changed files with 55 additions and 50 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
libsrc/apple2/apple2.inc
View file

@ -32,6 +32,8 @@ KBD := $C000 ; Read keyboard
KBDSTRB := $C010 ; Clear keyboard strobe
; 80 column card switches
CLR80COL:= $C000 ; Disable 80 column store
SET80COL:= $C001 ; Enable 80 column store
CLRALTCHAR := $C00E ; Normal Apple II char set
SETALTCHAR := $C00F ; Norm/inv LC, no flash
ALTCHARSET := $C01E ; >127 if alt charset switched in
@ -42,6 +44,8 @@ MIXCLR := $C052 ; Disable 4 lines of text
MIXSET := $C053 ; Enable 4 lines of text
LOWSCR := $C054 ; Page 1
HISCR := $C055 ; Page 2
LORES := $C056 ; Lores graphics
HIRES := $C057 ; Hires graphics
; Game controller
BUTN0 := $C061 ; Open-Apple Key

5
libsrc/apple2/cputc.s
View file

@ -19,6 +19,7 @@
.ifdef __APPLE2ENH__
initconio:
sta SETALTCHAR ; Switch in alternate charset
bit LORES ; Limit SET80COL-HISCR to text
rts
.endif
@ -84,9 +85,9 @@ put: ldy CH
tay
pla
bcs col40 ; Odd cols go in 40 col memory
bit HISCR
bit HISCR ; Assume SET80COL
sta (BASL),Y
bit LOWSCR
bit LOWSCR ; Assume SET80COL
rts
.endif
col40: sta (BASL),Y