HUD_CONTINUES_X = HUD_X + ((SCORE_DIGITS - 1) * 2)

; Only prints the seven score digits, in contrast to the TH04/TH05 version!

; void pascal near hud_score_put(unsigned int y, long value);
public HUD_SCORE_PUT
hud_score_put	proc near
@@result 	=  word ptr [bp-4]
@@digit 	=  word ptr [bp-2]
@@value 	= dword	ptr [bp+4]
@@y     	= word ptr  [bp+8]

	push	bp
	mov	bp, sp
	sub	sp, 4
	push	si
	push	di
	mov	si, offset _SEVEN_DIGIT_POWERS_OF_10
	mov	di, HUD_X
	jmp	short @@more_digits?

@@put:
	mov	eax, @@value
	cdq
	idiv	dword ptr [si]
	mov	@@result, ax
	movsx	eax, @@result
	imul	eax, [si]
	sub	@@value, eax
	add	si, 4
	mov	ax, @@result
	add	ax, GB_DIGITS
	mov	@@digit, ax
	call	gaiji_putca pascal, di, @@y, ax, TX_WHITE
	add	di, 2

@@more_digits?:
	cmp	di, HUD_CONTINUES_X
	jl	short @@put
	pop	di
	pop	si
	leave
	retn	6
hud_score_put	endp


; void pascal near hud_continues_put(unsigned int y, int continues_used);
public HUD_CONTINUES_PUT
hud_continues_put	proc near

@@continues_displayed = word ptr [bp-2]
@@continues_used = word ptr [bp+4]
@@y	= word ptr [bp+6]

	push	bp
	mov	bp, sp
	sub	sp, 2
	push	si
	mov	si, @@continues_used
	cmp	si, 10
	jl	short @@put
	mov	si, 9

@@put:
	lea	ax, [si+GB_DIGITS]
	mov	@@continues_displayed, ax
	call	gaiji_putca pascal, HUD_CONTINUES_X, @@y, ax, TX_WHITE
	pop	si
	leave
	retn	4
hud_continues_put	endp