2019-03-21 14:59:45 +00:00
|
|
|
; mul40.s
|
|
|
|
|
;
|
|
|
|
|
; This file is part of
|
|
|
|
|
; cc65 - a freeware C compiler for 6502 based systems
|
|
|
|
|
;
|
2020-02-02 17:21:25 +00:00
|
|
|
; https://cc65.github.io
|
2019-03-21 14:59:45 +00:00
|
|
|
;
|
|
|
|
|
; See "LICENSE" file for legal information.
|
|
|
|
|
;
|
|
|
|
|
;
|
2019-03-29 21:36:01 +00:00
|
|
|
; unsigned int __fastcall__ mul40(unsigned char value);
|
2022-04-17 14:06:22 +00:00
|
|
|
;
|
2019-03-21 14:59:45 +00:00
|
|
|
; REMARKS: Function is defined to return with carry-flag cleared
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.importzp tmp4
|
2019-03-29 21:36:01 +00:00
|
|
|
.export _mul40
|
2019-03-21 14:59:45 +00:00
|
|
|
|
2019-03-29 21:36:01 +00:00
|
|
|
.proc _mul40 ; = 33 bytes, 48/53 cycles
|
2019-03-21 14:59:45 +00:00
|
|
|
|
|
|
|
|
sta tmp4 ; remember value for later addition...
|
|
|
|
|
ldx #0 ; clear high-byte
|
|
|
|
|
asl a ; * 2
|
|
|
|
|
bcc mul4 ; high-byte affected?
|
|
|
|
|
ldx #2 ; this will be the 1st high-bit soon...
|
|
|
|
|
|
2019-03-29 21:36:01 +00:00
|
|
|
mul4: asl a ; * 4
|
2019-03-21 14:59:45 +00:00
|
|
|
bcc mul5 ; high-byte affected?
|
|
|
|
|
inx ; => yes, apply to 0 high-bit
|
|
|
|
|
clc ; prepare addition
|
|
|
|
|
|
|
|
|
|
mul5: adc tmp4 ; * 5
|
|
|
|
|
bcc mul10 ; high-byte affected?
|
|
|
|
|
inx ; yes, correct...
|
|
|
|
|
|
|
|
|
|
mul10: stx tmp4 ; continue with classic shifting...
|
2022-04-17 14:06:22 +00:00
|
|
|
|
2019-03-21 14:59:45 +00:00
|
|
|
asl a ; * 10
|
2019-03-29 21:36:01 +00:00
|
|
|
rol tmp4
|
2019-03-21 14:59:45 +00:00
|
|
|
|
2019-03-29 21:36:01 +00:00
|
|
|
asl a ; * 20
|
2019-03-21 14:59:45 +00:00
|
|
|
rol tmp4
|
|
|
|
|
|
|
|
|
|
asl a ; * 40
|
|
|
|
|
rol tmp4
|
|
|
|
|
|
|
|
|
|
ldx tmp4 ; deliver high-byte in X
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.endproc
|
