pokered/engine/items/tm_prices.asm

GetMachinePrice: ; 7bf86 (1e:7f86)
; Input:  [wcf91] = Item Id of a TM
; Output: Stores the TM price at hItemPrice
	ld a, [wcf91] ; a contains TM item id
	sub TM_01
	ret c
	ld d, a
	ld hl, TechnicalMachinePrices
	srl a
	ld c, a
	ld b, 0
	add hl, bc
	ld a, [hl] ; a contains byte whose high or low nybble is the TM price (in thousands)
	srl d
	jr nc, .highNybbleIsPrice ; is TM id odd?
	swap a
.highNybbleIsPrice
	and $f0
	ld [hItemPrice + 1], a
	xor a
	ld [hItemPrice], a
	ld [hItemPrice + 2], a
	ret

INCLUDE "data/tm_prices.asm"
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`GetMachinePrice: ; 7bf86 (1e:7f86)`
Better documenting for GetMachinePrice and TechnicalMachinePrices. 2015-01-24 20:41:20 +00:00			`; Input: [wcf91] = Item Id of a TM`
fix variable naming 2015-07-18 15:17:29 +00:00			`; Output: Stores the TM price at hItemPrice`
Better documenting for GetMachinePrice and TechnicalMachinePrices. 2015-01-24 20:41:20 +00:00			`ld a, [wcf91] ; a contains TM item id`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`sub TM_01`
			`ret c`
			`ld d, a`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld hl, TechnicalMachinePrices`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`srl a`
			`ld c, a`
			`ld b, 0`
			`add hl, bc`
Better documenting for GetMachinePrice and TechnicalMachinePrices. 2015-01-24 20:41:20 +00:00			`ld a, [hl] ; a contains byte whose high or low nybble is the TM price (in thousands)`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`srl d`
Better documenting for GetMachinePrice and TechnicalMachinePrices. 2015-01-24 20:41:20 +00:00			`jr nc, .highNybbleIsPrice ; is TM id odd?`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`swap a`
Better documenting for GetMachinePrice and TechnicalMachinePrices. 2015-01-24 20:41:20 +00:00			`.highNybbleIsPrice`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and $f0`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [hItemPrice + 1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor a`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [hItemPrice], a`
			`ld [hItemPrice + 2], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

			`INCLUDE "data/tm_prices.asm"`