mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-01-09 13:32:35 +00:00
9b12b6fd9b
- getting ready for major changes for 0.6.0. - be sure to download the 0.5.0 release to ensure proper functionality, as these rountines will not work together in the SRC or BIN folder during the transition - Beginning to significantly alter documentation
45 lines
1.0 KiB
NASM
45 lines
1.0 KiB
NASM
]X1 EQU WPAR1
|
|
]X2 EQU WPAR1+1
|
|
]Y1 EQU BPAR1
|
|
]COLOR EQU BPAR2
|
|
]X EQU VARTAB
|
|
]Y EQU VARTAB+1
|
|
LRHLINE
|
|
LDA ]Y1
|
|
STA ]Y
|
|
LDY ]X1
|
|
STY ]X
|
|
:LOOP
|
|
LDA ]COLOR
|
|
LDX ]X
|
|
LDY ]Y
|
|
JSR LOCPLOT
|
|
INC ]X
|
|
LDY ]X
|
|
CPY ]X2
|
|
BNE :LOOP
|
|
:EXIT
|
|
RTS
|
|
]Y1 EQU WPAR1
|
|
]Y2 EQU WPAR1+1
|
|
]X1 EQU BPAR1
|
|
]COLOR EQU BPAR2
|
|
]X EQU VARTAB+6
|
|
]Y EQU VARTAB+8
|
|
LRVLINE
|
|
LDA ]X1
|
|
STA ]X
|
|
LDY ]Y1
|
|
STY ]Y
|
|
:LOOP
|
|
LDA ]COLOR
|
|
LDX ]X
|
|
LDY ]Y
|
|
JSR LOCPLOT
|
|
INC ]Y
|
|
LDY ]Y
|
|
CPY ]Y2
|
|
BNE :LOOP ; LOOP
|
|
:EXIT
|
|
RTS
|