mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-03-01 09:30:09 +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
35 lines
808 B
NASM
35 lines
808 B
NASM
]HALFX EQU VARTAB
|
|
]FULLX EQU VARTAB+1
|
|
]FULLY EQU VARTAB+2
|
|
]MASK EQU VARTAB+3
|
|
]FULLCHAR EQU VARTAB+4
|
|
LRGETPIX
|
|
LDY BPAR1
|
|
STY ]FULLX
|
|
TYA
|
|
ASL
|
|
STA ]HALFX
|
|
LDA BPAR2
|
|
STA ]FULLY
|
|
LDY ]HALFX
|
|
LDA ]FULLY
|
|
JSR LRGBCALC
|
|
LDA (GBASLO),Y
|
|
STA ]FULLCHAR
|
|
LDA ]FULLX
|
|
LSR
|
|
BCC :EVEN
|
|
LDX #$F0 ; OTHERWISE, IT'S ODD
|
|
BCS :EXIT
|
|
:EVEN
|
|
LDX #$0F
|
|
:EXIT
|
|
STX ]MASK
|
|
LDA ]FULLCHAR
|
|
AND ]MASK
|
|
STA RETURN
|
|
LDA #1
|
|
STA RETLEN
|
|
LDA RETURN
|
|
RTS
|