pokecrystal-board/engine/routines/getsquareroot.asm

GetSquareRoot: ; 13b87
; 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 $ff
	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: ; 13b98
root = 1
	rept $ff
	dw root * root
root = root + 1
	endr
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`GetSquareRoot: ; 13b87`
			`; 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-24 16:35:35 -08:00			`ld hl, .Squares`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld b, 0`
			`.loop`
			`; Make sure we don't go past the end of the table.`
			`inc b`
			`ld a, b`
			`cp $ff`
			`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 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-24 16:35:35 -08:00			`.Squares: ; 13b98`
LY_BLANK and rLCDC constants 2017-12-29 09:53:21 -08:00			`root = 1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`rept $ff`
LY_BLANK and rLCDC constants 2017-12-29 09:53:21 -08:00			`dw root * root`
			`root = root + 1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`endr`