Minor changes in hires.asm

This commit is contained in:
Zellyn Hunter 2016-07-13 13:28:30 -06:00
parent 0624e4538b
commit 09fe2ccec9

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