bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

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

5
libsrc/apple2/cputc.s
View File

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