Apple-2-Tools/goapple2
1
0
Fork 0
mirror of https://github.com/zellyn/goapple2.git synced 2024-11-29 08:49:49 +00:00
Code Issues Projects Releases Wiki Activity

Minor changes in hires.asm

Browse Source
This commit is contained in:
Zellyn Hunter 2016-07-13 13:28:30 -06:00
parent 0624e4538b
commit 09fe2ccec9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
source/progaid/hires.asm
View File

@ -111,7 +111,7 @@ HPOSN STA Y0 ENTER WITH Y IN A-REG,
ORA HPAG
STA HBASH
TXA DIVIDE X0 BY 7 FOR
CPY $#0 INDEX FROM BASE ADR
CPY #$0 INDEX FROM BASE ADR
BEQ HPOSN2 (QUOTIENT) AND BIT
LDY #$23 WITHIN SCREEN MEM BYTE
ADC #$4 (MASK SPEC'D BY REMAINDER)
@ -501,7 +501,7 @@ BPOSN JSR PCOLR POSN CALL, COLR FROM BASIC
RTS
BPLOT JSR BPOSN PLOT CALL (BASIC).
JMP HPLOT1
BXDRW1 LDA HNDX
BLIN1 LDA HNDX
LSR ; SET HCOLOR1 FROM
JSR PCOLR BASIC VAR COLR.
JSR HPOSN3
@ -552,7 +552,7 @@ BDRWX1 ASL
BCC BDRWX2
INC SHAPEH
CLC
TAY SHAPE NO. * 2.
BDRWX2 TAY SHAPE NO. * 2.
LDA (SHAPEL),Y
ADC SHAPEL
TAX ADD 2-BYTE INDEX