?login_element?
?pathlinks? – Rev 1485
Blame |
Last modification |
View Log
| Download
ifndef included_xmul7
define included_xmul7
include "../../common/pushpop.asm"
include "../../common/mov.asm"
include "../routines/srl64.asm"
include "../routines/rsub64.asm"
include "../routines/normalizexOP1.asm"
include "xmul3.asm"
xmul7:
call pushpop
push bc
call xmul7pp;+_
call normalizexOP1
pop de
ld hl,xOP1
jp mov10
xmul7pp;_:
ld de,xOP1
call mov10
ld hl,(xOP1+8)
ld a,h
or l
ret z
ld hl,xOP1
call mov8
call srlxOP1_mantissa
call srlxOP1_mantissa
call srlxOP1_mantissa
ld de,xOP2
call rsbc64
ld hl,xOP1+8
ld a,(hl)
add a,3
ld (hl),a
ret nc
inc hl
ld a,(hl)
inc (hl)
xor (hl)
jp m,constmul_overflow
ret
endif