pokecrystal/engine/math/get_square_root.asm

NUM_SQUARE_ROOTS EQU 255

GetSquareRoot:
; Return the square root of de in b.

; Rather than calculating the result, we take the index of the
; first value in a table of squares that isn't lower than de.

	ld hl, .Squares
	ld b, 0
.loop
; Make sure we don't go past the end of the table.
	inc b
	ld a, b
	cp NUM_SQUARE_ROOTS
	ret z

; Iterate over the table until b**2 >= de.
	ld a, [hli]
	sub e
	ld a, [hli]
	sbc d

	jr c, .loop
	ret

.Squares:
x = 1
rept NUM_SQUARE_ROOTS
	dw x * x
x = x + 1
endr
Cleaner Pokédex code 2018-01-16 22:59:05 +00:00			`NUM_SQUARE_ROOTS EQU 255`

Remove all address comments 2018-06-24 14:09:41 +00:00			`GetSquareRoot:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`; Return the square root of de in b.`

			`; Rather than calculating the result, we take the index of the`
			`; first value in a table of squares that isn't lower than de.`

Remove all code from main.asm (some labeled INCBINs, like out-of-context graphics, are still present) engine/routines/ stores isolated out-of-context routines as individual files. It might be preferable later to append them to their related engine/ files in unique little SECTIONs, relying on the linkerscript to place them appropriately; or some other organization method. In the meantime, they're now easily findable apart from main.asm's other content. 2017-12-25 00:35:35 +00:00			`ld hl, .Squares`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld b, 0`
			`.loop`
			`; Make sure we don't go past the end of the table.`
			`inc b`
			`ld a, b`
Cleaner Pokédex code 2018-01-16 22:59:05 +00:00			`cp NUM_SQUARE_ROOTS`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ret z`

			`; Iterate over the table until b**2 >= de.`
			`ld a, [hli]`
			`sub e`
			`ld a, [hli]`
			`sbc d`

			`jr c, .loop`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Squares:`
Cleaner Pokédex code 2018-01-16 22:59:05 +00:00			`x = 1`
			`rept NUM_SQUARE_ROOTS`
			`dw x * x`
			`x = x + 1`
			`endr`