mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-08-15 04:27:39 +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
22 lines
491 B
NASM
22 lines
491 B
NASM
]DVEND EQU WPAR1
|
|
]DVSOR EQU WPAR2
|
|
DIVD8
|
|
STX ]DVEND
|
|
STA ]DVSOR
|
|
LDA #$00
|
|
LDX #8
|
|
ASL ]DVSOR
|
|
:L1 ROL
|
|
CMP ]DVEND
|
|
BCC :L2
|
|
SBC ]DVEND
|
|
:L2 ROL ]DVSOR
|
|
DEX
|
|
BNE :L1
|
|
TAX
|
|
LDA #1
|
|
STA RETLEN
|
|
LDA ]DVSOR
|
|
STA RETURN
|
|
RTS
|