Apple-2-Tools
/
goapple2
mirror of https://github.com/zellyn/goapple2.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Minor changes in hires.asm

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