thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2026-02-06 15:45:24 +13:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of https://github.com/luckytyphlosion/pokered

Browse source
This commit is contained in:
dannye 2015-07-26 23:34:43 -05:00
commit 408f9b3141
155 changed files with 1211 additions and 1148 deletions
Download patch file Download diff file Expand all files Collapse all files

160
engine/multiply_divide.asm
View file

@ -2,142 +2,142 @@ _Multiply: ; 37d41 (d:7d41)
ld a, $8
ld b, a
xor a
ld [H_DIVIDEND], a ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld [$ff9b], a
ld [H_SAVEDNUMTOPRINT], a
ld [$ff9d], a
ld [$ff9e], a
.asm_37d4f
ld a, [H_REMAINDER] ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld [H_PRODUCT], a
ld [H_MULTIPLYBUFFER], a
ld [H_MULTIPLYBUFFER+1], a
ld [H_MULTIPLYBUFFER+2], a
ld [H_MULTIPLYBUFFER+3], a
.loop
ld a, [H_MULTIPLIER]
srl a
ld [H_REMAINDER], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
jr nc, .asm_37d77
ld a, [$ff9e]
ld [H_MULTIPLIER], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
jr nc, .smallMultiplier
ld a, [H_MULTIPLYBUFFER+3]
ld c, a
ld a, [$ff98]
ld a, [H_MULTIPLICAND+2]
add c
ld [$ff9e], a
ld a, [$ff9d]
ld [H_MULTIPLYBUFFER+3], a
ld a, [H_MULTIPLYBUFFER+2]
ld c, a
ld a, [$ff97]
ld a, [H_MULTIPLICAND+1]
adc c
ld [$ff9d], a
ld a, [H_SAVEDNUMTOPRINT]
ld [H_MULTIPLYBUFFER+2], a
ld a, [H_MULTIPLYBUFFER+1]
ld c, a
ld a, [H_NUMTOPRINT] ; (aliases: H_MULTIPLICAND)
ld a, [H_MULTIPLICAND] ; (aliases: H_MULTIPLICAND)
adc c
ld [H_SAVEDNUMTOPRINT], a
ld a, [$ff9b]
ld [H_MULTIPLYBUFFER+1], a
ld a, [H_MULTIPLYBUFFER]
ld c, a
ld a, [H_DIVIDEND] ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld a, [H_PRODUCT] ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
adc c
ld [$ff9b], a
.asm_37d77
ld [H_MULTIPLYBUFFER], a
.smallMultiplier
dec b
jr z, .asm_37d94
ld a, [$ff98]
jr z, .done
ld a, [H_MULTIPLICAND+2]
sla a
ld [$ff98], a
ld a, [$ff97]
ld [H_MULTIPLICAND+2], a
ld a, [H_MULTIPLICAND+1]
rl a
ld [$ff97], a
ld a, [H_NUMTOPRINT] ; (aliases: H_MULTIPLICAND)
ld [H_MULTIPLICAND+1], a
ld a, [H_MULTIPLICAND]
rl a
ld [H_NUMTOPRINT], a ; (aliases: H_MULTIPLICAND)
ld a, [H_DIVIDEND] ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld [H_MULTIPLICAND], a
ld a, [H_PRODUCT]
rl a
ld [H_DIVIDEND], a ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
jr .asm_37d4f
.asm_37d94
ld a, [$ff9e]
ld [$ff98], a
ld a, [$ff9d]
ld [$ff97], a
ld a, [H_SAVEDNUMTOPRINT]
ld [H_NUMTOPRINT], a ; (aliases: H_MULTIPLICAND)
ld a, [$ff9b]
ld [H_DIVIDEND], a ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld [H_PRODUCT], a
jr .loop
.done
ld a, [H_MULTIPLYBUFFER+3]
ld [H_PRODUCT+3], a
ld a, [H_MULTIPLYBUFFER+2]
ld [H_PRODUCT+2], a
ld a, [H_MULTIPLYBUFFER+1]
ld [H_PRODUCT+1], a
ld a, [H_MULTIPLYBUFFER]
ld [H_PRODUCT], a
ret
_Divide: ; 37da5 (d:7da5)
xor a
ld [$ff9a], a
ld [$ff9b], a
ld [H_SAVEDNUMTOPRINT], a
ld [$ff9d], a
ld [$ff9e], a
ld [H_DIVIDEBUFFER], a
ld [H_DIVIDEBUFFER+1], a
ld [H_DIVIDEBUFFER+2], a
ld [H_DIVIDEBUFFER+3], a
ld [H_DIVIDEBUFFER+4], a
ld a, $9
ld e, a
.asm_37db3
ld a, [$ff9a]
ld a, [H_DIVIDEBUFFER]
ld c, a
ld a, [H_NUMTOPRINT] ; (aliases: H_MULTIPLICAND)
ld a, [H_DIVIDEND+1] ; (aliases: H_MULTIPLICAND)
sub c
ld d, a
ld a, [H_REMAINDER] ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld a, [H_DIVISOR] ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld c, a
ld a, [H_DIVIDEND] ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
sbc c
jr c, .asm_37dce
ld [H_DIVIDEND], a ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld a, d
ld [H_NUMTOPRINT], a ; (aliases: H_MULTIPLICAND)
ld a, [$ff9e]
ld [H_DIVIDEND+1], a ; (aliases: H_MULTIPLICAND)
ld a, [H_DIVIDEBUFFER+4]
inc a
ld [$ff9e], a
ld [H_DIVIDEBUFFER+4], a
jr .asm_37db3
.asm_37dce
ld a, b
cp $1
jr z, .asm_37e18
ld a, [$ff9e]
ld a, [H_DIVIDEBUFFER+4]
sla a
ld [$ff9e], a
ld a, [$ff9d]
ld [H_DIVIDEBUFFER+4], a
ld a, [H_DIVIDEBUFFER+3]
rl a
ld [$ff9d], a
ld a, [H_SAVEDNUMTOPRINT]
ld [H_DIVIDEBUFFER+3], a
ld a, [H_DIVIDEBUFFER+2]
rl a
ld [H_SAVEDNUMTOPRINT], a
ld a, [$ff9b]
ld [H_DIVIDEBUFFER+2], a
ld a, [H_DIVIDEBUFFER+1]
rl a
ld [$ff9b], a
ld [H_DIVIDEBUFFER+1], a
dec e
jr nz, .asm_37e04
ld a, $8
ld e, a
ld a, [$ff9a]
ld [H_REMAINDER], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld a, [H_DIVIDEBUFFER]
ld [H_DIVISOR], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
xor a
ld [$ff9a], a
ld a, [H_NUMTOPRINT] ; (aliases: H_MULTIPLICAND)
ld [H_DIVIDEBUFFER], a
ld a, [H_DIVIDEND+1] ; (aliases: H_MULTIPLICAND)
ld [H_DIVIDEND], a ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld a, [$ff97]
ld [H_NUMTOPRINT], a ; (aliases: H_MULTIPLICAND)
ld a, [$ff98]
ld [$ff97], a
ld a, [H_DIVIDEND+2]
ld [H_DIVIDEND+1], a ; (aliases: H_MULTIPLICAND)
ld a, [H_DIVIDEND+3]
ld [H_DIVIDEND+2], a
.asm_37e04
ld a, e
cp $1
jr nz, .asm_37e0a
dec b
.asm_37e0a
ld a, [H_REMAINDER] ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld a, [H_DIVISOR] ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
srl a
ld [H_REMAINDER], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld a, [$ff9a]
ld [H_DIVISOR], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld a, [H_DIVIDEBUFFER]
rr a
ld [$ff9a], a
ld [H_DIVIDEBUFFER], a
jr .asm_37db3
.asm_37e18
ld a, [H_NUMTOPRINT] ; (aliases: H_MULTIPLICAND)
ld a, [H_DIVIDEND+1] ; (aliases: H_MULTIPLICAND)
ld [H_REMAINDER], a ; (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld a, [$ff9e]
ld [$ff98], a
ld a, [$ff9d]
ld [$ff97], a
ld a, [H_SAVEDNUMTOPRINT]
ld [H_NUMTOPRINT], a ; (aliases: H_MULTIPLICAND)
ld a, [$ff9b]
ld a, [H_DIVIDEBUFFER+4]
ld [H_QUOTIENT+3], a
ld a, [H_DIVIDEBUFFER+3]
ld [H_QUOTIENT+2], a
ld a, [H_DIVIDEBUFFER+2]
ld [H_QUOTIENT+1], a ; (aliases: H_MULTIPLICAND)
ld a, [H_DIVIDEBUFFER+1]
ld [H_DIVIDEND], a ; (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ret