Sakrac

The explanation how this works is below, this change moved code to zero page to save 1 byte.

Last minute update:

Disassembly:

$46 dex
$47 ldy #$ec
$49 txa
$4a adc #$0e

Sakrac

; subtract A from byte
	sec
	eor #$ff
	adc Address
	; a = (Address) - a

;----

; add or subtract from a byte based on carry (set = subtract, clear = add)
	bcc .add