!buttons = $16
!coins = $0dbf

	lda !mode
	cmp #$14
	bne end
	
	lda !coins
	cmp.b #99
	bmi +
	lda.b #98
	sta !coins
+
	
	lda !buttons
	bit.b #%10000000
	beq end
	
	lda !carl_initialized
	dec
	bpl +

	dec !coins
	lda.b #9
+	sta !carl_initialized

end:
	rtl

back to listings