Apple-2-SW
/
apple2_hgrbyte
mirror of https://github.com/Michaelangel007/apple2_hgrbyte.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

V22 fix aux/main order

This commit is contained in:
Michaelangel007 2017-10-26 13:41:46 -07:00
parent 7a80bf8b77
commit 889e22f5c3
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/dhgr.byte
View File

Binary file not shown.

BIN
hgrbyte.dsk
View File

Binary file not shown.

10
src/dhgr.byte.s
View File

@ -6,7 +6,7 @@ CONFIG_DHGR = 1
; https://github.com/Michaelangel007/apple2_hgrbyte/ ; https://github.com/Michaelangel007/apple2_hgrbyte/
; ;
; Michael Pohoreski ; Michael Pohoreski
; Version 21 ; Version 22
; ;
; TL:DR; ; TL:DR;
; IJKL to move ; IJKL to move
@ -29,7 +29,7 @@ CONFIG_DHGR = 1
; L Move cursor down ; L Move cursor down
; ;
; ^I Move cursor to col 0 ; ^I Move cursor to col 0
; ^J Move cursor to col 39 ; ^J Move cursor to col 79
; ^K Move cursor to row 0 ; ^K Move cursor to row 0
; ^L Move cursor to row 191 ; ^L Move cursor to row 191
; RET Center cursor ; RET Center cursor
@ -149,7 +149,7 @@ __MAIN = $900
ORG __MAIN ORG __MAIN
DhgrByte DhgrByte
LDA #21 ; Version - copy HGR1 to aux, HGR2 to HGR1 LDA #22 ; Version - copy HGR1 to aux, HGR2 to HGR1
JSR Init_Exit ; FEATURE: Set to 00 if you don't want to copy AUX $2000 to MAIN $4000 JSR Init_Exit ; FEATURE: Set to 00 if you don't want to copy AUX $2000 to MAIN $4000
BIT PAGE1 ; Page 1 BIT PAGE1 ; Page 1
@ -374,13 +374,13 @@ DrawStatus
JSR COUT JSR COUT
DO CONFIG_DHGR DO CONFIG_DHGR
LDY #0 ; src = &char[0][8] LDY #8 ; src = &char[1][8]
LDA cursor_col LDA cursor_col
CLC CLC
ROR ROR
BCS HaveMainMem BCS HaveMainMem
HaveAuxMem HaveAuxMem
LDY #8 ; src = &char[1][8] LDY #0 ; src = &char[0][8]
HaveMainMem HaveMainMem
LDX #0 ; dst = 0 LDX #0 ; dst = 0