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

65816 code fixed. Odd columns in MODE3 work now.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2021-09-25 18:21:09 -04:00
parent a711e305cb
commit 694e5fda51
4 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

1
applecorn.s
View File

@@ -7,6 +7,7 @@
* Assembled with the Merlin 8 v2.58 assembler on Apple II.
XC ; 65c02
XC ; 65816
ORG $4000 ; Load addr of loader in main memory
; Clear of first HGR frame buffer

2
auxmem.bytwrd.s
View File

@@ -9,8 +9,6 @@
* 09-Sep-2021 Moved keyboard and VDU OSBYTEs to Keyboard and VDU.
XC ; 65c02
*************************
* OSBYTE DISPATCH TABLE *
*************************

25
auxmem.vdu.s
View File

@@ -354,7 +354,12 @@ PRCHR4 JSR CHARADDR ; Find character address
TXA ; Get buffer code
BIT VDUBANK
BPL PRCHR5 ; Not AppleGS, use short write
DB $97,VDUADDR ; STA [VDUADDR],Y
CLC ; Enter 65816 native mode
XCE
SEP #$30 ; 8-bit M and X
STA [VDUADDR],Y
SEC ; Return to emulation mode
XCE
BRA PRCHR8
PRCHR5 PHP ; Disable IRQs while
SEI ; toggling memory
@@ -393,7 +398,12 @@ BYTE87
GETCHRC JSR CHARADDR ; Find character address
BIT VDUBANK
BPL GETCHR5 ; Not AppleGS, use short read
DB $B7,VDUADDR ; LDA [VDUADDR],Y
CLC ; Enter 65816 native mode
XCE
SEP #$30 ; 8-bit M and X
LDA [VDUADDR],Y
SEC ; Enter emulation mode
XCE
BRA GETCHR7
GETCHR5 PHP ; Disable IRQs while
SEI ; toggling memory
@@ -606,7 +616,7 @@ VDU22 LDA VDUQ+8
JSR NEGCALL ; Find machine type
AND #$0F
BEQ :MODEGS ; MCHID=$x0 -> Not AppleGS, bank=0
**DEBUG LDA #$E0 ; Not $x0 -> AppleGS, point to screen bank
LDA #$E0 ; Not $x0 -> AppleGS, point to screen bank
:MODEGS STA VDUBANK
LDA #$01
JSR CLRSTATUS ; Clear everything except PrinterEcho
@@ -750,8 +760,13 @@ SCR1LINE BIT VDUSCREEN
RTS
SCROLLGS LDX #1
:L4 LDY #39
:L5 DB $B7,VDUADDR ; LDA [VDUADDR],Y
DB $97,VDUADDR2 ; STA [VDUADDR2],Y
:L5 CLC ; Enter 65816 native mode
XCE
SEP #$30 ; 8-bit M and X
LDA [VDUADDR],Y
STA [VDUADDR2],Y
SEC ; Enter emulation mode
XCE
DEY
BPL :L5
LDA VDUBANK