mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-19 06:30:43 +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
33 lines
667 B
NASM
33 lines
667 B
NASM
]MUL1 EQU WPAR1
|
|
]MUL2 EQU WPAR2
|
|
MULT8
|
|
STA ]MUL1
|
|
STX ]MUL2
|
|
LDA #0
|
|
TAY
|
|
TAX
|
|
STA ]MUL1+1
|
|
BEQ :GOLOOP
|
|
:DOADD
|
|
CLC
|
|
ADC ]MUL1
|
|
TAX
|
|
TYA
|
|
ADC ]MUL1+1
|
|
TAY
|
|
TXA
|
|
:LP
|
|
ASL ]MUL1
|
|
ROL ]MUL1+1
|
|
:GOLOOP
|
|
LSR ]MUL2
|
|
BCS :DOADD
|
|
BNE :LP
|
|
LDA #2
|
|
STA RETLEN
|
|
STX RETURN
|
|
STY RETURN+1
|
|
TXA
|
|
LDX RETURN+1
|
|
RTS
|