Target

!Freeram_TargetCount = $1864|!addr ;[1 byte] RAM that counts how many targets the player has broken (!EmptyRAM)
!Setting_TargetGoal = 9 ;How many targets to trigger the warp (!TARGETS), up to 255
!Setting_StatusBar = $0EF9|!addr ;Status bar location
!Setting_StatusBar_Format = $01 ;$01 = vanilla/ladida status bars, $02 = Super status bar

main:
	LDA.b #!Setting_TargetGoal				;\TargetsLeft = #!Setting_TargetGoal - !Freeram_TargetCount
	SEC							;|
	SBC !Freeram_TargetCount				;/
	JSL EightBitHexDec					;>Get digits
	STA !Setting_StatusBar+(1*!Setting_StatusBar_Format)	;>ones place
	TXA							;>tens place
	CMP #$00						;\If 10s place digit != 0, then show tens digit
	BNE .Tens						;/
	LDA #$FC 						;>Leading space
	.Tens
	STA !Setting_StatusBar					;>Write 10s place
	RTL
	
	EightBitHexDec:
		;Input: A = 8-bit value (0-255)
		;Output:
		; A = 1s place
		; X = 10s place
		LDX #$00
		.Loops
			CMP #$0A
			BCC .Return
			SBC #$0A			;>A #= A MOD 10
			INX				;>X #= floor(A/10)
			BRA .Loops
		.Return
			RTL

!Freeram_TargetCount = $1864|!addr ;[2 bytes] RAM that counts how many targets the player has broken (!EmptyRAM)
!Setting_TargetGoal = 9 ;How many targets to trigger the warp (!TARGETS), up to 65535
!StatusBarPosition = $0EF9|!addr ;Status bar location
!StatusbarFormat = $01 ;$01 = vanilla/ladida status bars, $02 = Super status bar


;Don't touch
	!Scratchram_16bitHexDecOutput = $02 ;>$02-$06
	if !sa1 != 0
		!Scratchram_16bitHexDecOutput = $04 ;>$04-$08
	endif

main:
	REP #$20
	LDA.w #!Setting_TargetGoal				;\TargetsLeft = #!Setting_TargetGoal - !Freeram_TargetCount
	SEC							;|
	SBC !Freeram_TargetCount				;/
	STA $00
	SEP #$20
	JSL SixteenBitHexDecDivision				;>Get digits
	JSL RemoveLeadingZeroes16Bit 
	if !StatusbarFormat == $01
		LDX.b #(!NumberOfDigitsDisplayed-1)
		-
		LDA.b !Scratchram_16bitHexDecOutput+$04-(!NumberOfDigitsDisplayed-1),x
		STA !StatusBarPosition,x
		DEX
		BPL -
	else
		LDX.b #((!NumberOfDigitsDisplayed-1)*2)
		LDY.b #(!NumberOfDigitsDisplayed-1)
		-
		LDA.w (!Scratchram_16bitHexDecOutput)+$04-(!NumberOfDigitsDisplayed-1)|!dp,y
		STA !StatusBarPosition,x
		DEY
		DEX #2
		BPL -
	endif
	RTL
	
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;16-bit hex to 4 (or 5)-digit decimal subroutine (using right-2-left
	;division).
	;Input:
	; $00-$01 = the value you want to display
	;Output:
	; !Scratchram_16bitHexDecOutput to !Scratchram_16bitHexDecOutput+4 = a digit 0-9 per byte table
	; (used for 1-digit per 8x8 tile):
	; +$00 = ten thousands
	; +$01 = thousands
	; +$02 = hundreds
	; +$03 = tens
	; +$04 = ones
	;
	;!Scratchram_16bitHexDecOutput is address $02 for normal ROM and $04 for SA-1.
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			
		SixteenBitHexDecDivision:
			if !sa1 == 0
				PHX
				PHY

				LDX #$04	;>5 bytes to write 5 digits.

				.Loop
				REP #$20	;\Dividend (in 16-bit)
				LDA $00		;|
				STA $4204	;|
				SEP #$20	;/
				LDA.b #10	;\base 10 Divisor
				STA $4206	;/
				JSR .Wait	;>wait
				REP #$20	;\quotient so that next loop would output
				LDA $4214	;|the next digit properly, so basically the value
				STA $00		;|in question gets divided by 10 repeatedly. [Value/(10^x)]
				SEP #$20	;/
				LDA $4216	;>Remainder (mod 10 to stay within 0-9 per digit)
				STA $02,x	;>Store tile

				DEX
				BPL .Loop

				PLY
				PLX
				RTL

				.Wait
				JSR ..Done		;>Waste cycles until the calculation is done
				..Done
				RTS
			else
				PHX
				PHY

				LDX #$04

				.Loop
				REP #$20			;>16-bit XY
				LDA.w #10			;>Base 10
				STA $02				;>Divisor (10)
				SEP #$20			;>8-bit XY
				JSL MathDiv			;>divide
				LDA $02				;>Remainder (mod 10 to stay within 0-9 per digit)
				STA.b !Scratchram_16bitHexDecOutput,x	;>Store tile

				DEX
				BPL .Loop

				PLY
				PLX
				RTL
			endif


	RemoveLeadingZeroes16Bit:
	LDX #$00				;>Start at the leftmost digit
	
	.Loop
	LDA !Scratchram_16bitHexDecOutput,x			;\if current digit non-zero, don't omit trailing zeros for the rest of the number string.
	BNE .NonZero				;/
	LDA #!StatusBarBlankTile				;\blank tile to replace leading zero
	STA !Scratchram_16bitHexDecOutput,x			;/
	INX					;>next digit
	CPX.b #$04				;>last digit to check. So that it can display a single 0.
	BCC .Loop				;>if not done yet, continue looping.
	
	.NonZero
	RTL