dos33fsprogs/games/peasant/score.s
Vince Weaver b59d3d0233 peasant: move score/speaker code to common qload
needed so we can score points from parse_input
	(mostly for wear robe)
2021-11-29 00:43:12 -05:00

153 lines
2.0 KiB
ArmAsm

;========================
; print score
;========================
print_score:
lda #<score_text
sta OUTL
lda #>score_text
sta OUTH
jmp hgr_put_string
; tail call does rts for us
;==========================
; update score
;==========================
; we have to handle 1, 2 or 3 digits
update_score:
ldx #9 ; offset of first digit in string
sed ; set decimal mode
lda #0
sta update_leading_zero_smc+1
update_hundreds:
lda SCORE_HUNDREDS
beq update_tens
inc update_leading_zero_smc+1
clc
adc #'0'
sta score_text,X
inx
update_tens:
lda SCORE_TENSONES
lsr
lsr
lsr
lsr
bne update_go_tens
update_leading_zero_smc:
cmp #0
beq update_ones
update_go_tens:
clc
adc #'0'
sta score_text,X
inx
update_ones:
lda SCORE_TENSONES
and #$f
clc
adc #'0'
sta score_text,X
inx
ldy #0
copy_tail_loop:
lda score_tail,Y
sta score_text,X
beq done_copy_tail_loop
inx
iny
jmp copy_tail_loop
done_copy_tail_loop:
cld ; clear decimal mode
rts
;========================
; score points
;========================
; value to add in A
; plays tone
; clears old
; updates new
score_points:
; update score
sed ; set BCD mode
clc
adc SCORE_TENSONES
sta SCORE_TENSONES
lda #0
adc SCORE_HUNDREDS
sta SCORE_HUNDREDS
cld ; clear BCD mode
; update score string
jsr update_score
; clear top
clear_top:
; draw rectangle
lda #$3 ; color is white1
sta VGI_RCOLOR
lda #0
sta VGI_RX1
lda #0
sta VGI_RY1
lda #140
sta VGI_RXRUN
lda #12
sta VGI_RYRUN
jsr vgi_simple_rectangle
; print score
jsr print_score
; play tone
;===========================
; weep-boom sound
lda #32
sta speaker_duration
lda #NOTE_E4
sta speaker_frequency
jsr speaker_beep
lda #64
sta speaker_duration
lda #NOTE_F4
sta speaker_frequency
jsr speaker_beep
lda #128
sta speaker_duration
lda #NOTE_F3
sta speaker_frequency
jsr speaker_beep
rts
score_text:
.byte 0,2,"Score: 0 of 150",0,0,0
score_tail:
.byte " of 150",0