mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 17:29:28 +00:00
mist: dentist: can chance month and date on panel
This commit is contained in:
parent
0ee5425714
commit
93c83d5bd3
|
@ -13,11 +13,6 @@ draw_date:
|
||||||
;=================
|
;=================
|
||||||
; month
|
; month
|
||||||
|
|
||||||
lda #10
|
|
||||||
sta DENTIST_MONTH
|
|
||||||
lda #4
|
|
||||||
sta DENTIST_DAY
|
|
||||||
|
|
||||||
lda DENTIST_MONTH ; get month
|
lda DENTIST_MONTH ; get month
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
|
@ -204,29 +199,29 @@ big_font:
|
||||||
.word big_font_space ; @
|
.word big_font_space ; @
|
||||||
.word big_font_a ; A
|
.word big_font_a ; A
|
||||||
.word big_font_b ; B
|
.word big_font_b ; B
|
||||||
.word big_font_space ; C
|
.word big_font_c ; C
|
||||||
.word big_font_space ; D
|
.word big_font_d ; D
|
||||||
.word big_font_e ; E
|
.word big_font_e ; E
|
||||||
.word big_font_f ; F
|
.word big_font_f ; F
|
||||||
.word big_font_space ; G
|
.word big_font_g ; G
|
||||||
.word big_font_space ; H
|
.word big_font_space ; H
|
||||||
.word big_font_space ; I
|
.word big_font_space ; I
|
||||||
.word big_font_j ; J
|
.word big_font_j ; J
|
||||||
.word big_font_space ; K
|
.word big_font_space ; K
|
||||||
.word big_font_space ; L
|
.word big_font_l ; L
|
||||||
.word big_font_space ; M
|
.word big_font_m ; M
|
||||||
.word big_font_n ; N
|
.word big_font_n ; N
|
||||||
.word big_font_o ; O
|
.word big_font_o ; O
|
||||||
.word big_font_space ; P
|
.word big_font_p ; P
|
||||||
.word big_font_space ; Q
|
.word big_font_space ; Q
|
||||||
.word big_font_space ; R
|
.word big_font_r ; R
|
||||||
.word big_font_space ; S
|
.word big_font_s ; S
|
||||||
.word big_font_space ; T
|
.word big_font_t ; T
|
||||||
.word big_font_space ; U
|
.word big_font_u ; U
|
||||||
.word big_font_v ; V
|
.word big_font_v ; V
|
||||||
.word big_font_space ; W
|
.word big_font_space ; W
|
||||||
.word big_font_space ; X
|
.word big_font_space ; X
|
||||||
.word big_font_space ; Y
|
.word big_font_y ; Y
|
||||||
.word big_font_space ; Z
|
.word big_font_space ; Z
|
||||||
|
|
||||||
big_font_space:
|
big_font_space:
|
||||||
|
@ -250,6 +245,20 @@ big_font_b:
|
||||||
.byte $BA,$AD,$a0 ; :-
|
.byte $BA,$AD,$a0 ; :-
|
||||||
.byte $BA,$DF,$AF ; :_/
|
.byte $BA,$DF,$AF ; :_/
|
||||||
|
|
||||||
|
big_font_c:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$DF,$DF ; __
|
||||||
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
.byte $BA,$A0,$a0 ; :
|
||||||
|
.byte $BA,$DF,$DF ; :__
|
||||||
|
|
||||||
|
big_font_d:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$DF,$a0 ; _
|
||||||
|
.byte $BA,$a0,$DC ; : \
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $BA,$DF,$AD ; :_/
|
||||||
|
|
||||||
big_font_e:
|
big_font_e:
|
||||||
.byte 3,4
|
.byte 3,4
|
||||||
.byte $a0,$DF,$DF ; __
|
.byte $a0,$DF,$DF ; __
|
||||||
|
@ -264,6 +273,13 @@ big_font_f:
|
||||||
.byte $BA,$AD,$a0 ; :-
|
.byte $BA,$AD,$a0 ; :-
|
||||||
.byte $BA,$a0,$a0 ; :
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
|
||||||
|
big_font_g:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$DF,$DF ; __
|
||||||
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
.byte $BA,$a0,$AD ; : -
|
||||||
|
.byte $BA,$DF,$BA ; :_:
|
||||||
|
|
||||||
big_font_j:
|
big_font_j:
|
||||||
.byte 3,4
|
.byte 3,4
|
||||||
.byte $a0,$a0,$a0 ;
|
.byte $a0,$a0,$a0 ;
|
||||||
|
@ -271,6 +287,20 @@ big_font_j:
|
||||||
.byte $a0,$a0,$BA ; :
|
.byte $a0,$a0,$BA ; :
|
||||||
.byte $BA,$DF,$BA ; :_:
|
.byte $BA,$DF,$BA ; :_:
|
||||||
|
|
||||||
|
big_font_l:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$a0,$a0 ;
|
||||||
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
.byte $BA,$DF,$DF ; :__
|
||||||
|
|
||||||
|
big_font_m:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$a0,$a0 ;
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $BA,$D6,$BA ; :V:
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
|
||||||
big_font_n:
|
big_font_n:
|
||||||
.byte 3,4
|
.byte 3,4
|
||||||
.byte $a0,$a0,$a0 ;
|
.byte $a0,$a0,$a0 ;
|
||||||
|
@ -285,6 +315,41 @@ big_font_o:
|
||||||
.byte $BA,$a0,$BA ; : :
|
.byte $BA,$a0,$BA ; : :
|
||||||
.byte $BA,$DF,$BA ; :_:
|
.byte $BA,$DF,$BA ; :_:
|
||||||
|
|
||||||
|
big_font_p:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$DF,$a0 ; _
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $BA,$AD,$A7 ; :-'
|
||||||
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
|
||||||
|
big_font_r:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$DF,$a0 ; _
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $BA,$AD,$A7 ; :-'
|
||||||
|
.byte $BA,$DC,$a0 ; :\
|
||||||
|
|
||||||
|
big_font_s:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$DF,$DF ; __
|
||||||
|
.byte $BA,$a0,$a0 ; :
|
||||||
|
.byte $a0,$AD,$a0 ; -
|
||||||
|
.byte $DF,$DF,$BA ; __:
|
||||||
|
|
||||||
|
big_font_t:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $DF,$DF,$DF ; ___
|
||||||
|
.byte $a0,$BA,$a0 ; :
|
||||||
|
.byte $a0,$BA,$a0 ; :
|
||||||
|
.byte $a0,$BA,$a0 ; :
|
||||||
|
|
||||||
|
big_font_u:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$a0,$a0 ;
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $BA,$DF,$BA ; :_:
|
||||||
|
|
||||||
big_font_v:
|
big_font_v:
|
||||||
.byte 3,4
|
.byte 3,4
|
||||||
.byte $a0,$a0,$a0 ;
|
.byte $a0,$a0,$a0 ;
|
||||||
|
@ -292,7 +357,12 @@ big_font_v:
|
||||||
.byte $BA,$a0,$AF ; : /
|
.byte $BA,$a0,$AF ; : /
|
||||||
.byte $BA,$AF,$a0 ; :/
|
.byte $BA,$AF,$a0 ; :/
|
||||||
|
|
||||||
|
big_font_y:
|
||||||
|
.byte 3,4
|
||||||
|
.byte $a0,$a0,$a0 ;
|
||||||
|
.byte $BA,$a0,$BA ; : :
|
||||||
|
.byte $A7,$AE,$A7 ; '.'
|
||||||
|
.byte $a0,$BA,$a0 ; :
|
||||||
|
|
||||||
big_font_num:
|
big_font_num:
|
||||||
.word big_font_0 ; 0
|
.word big_font_0 ; 0
|
||||||
|
@ -338,7 +408,7 @@ big_font_4:
|
||||||
.byte 3,4
|
.byte 3,4
|
||||||
.byte $a0,$a0,$a0 ;
|
.byte $a0,$a0,$a0 ;
|
||||||
.byte $BA,$a0,$BA ; : :
|
.byte $BA,$a0,$BA ; : :
|
||||||
.byte $BA,$AD,$BA ; :-:
|
.byte $A7,$AD,$BA ; '-:
|
||||||
.byte $A0,$A0,$BA ; :
|
.byte $A0,$A0,$BA ; :
|
||||||
|
|
||||||
big_font_5:
|
big_font_5:
|
||||||
|
@ -400,6 +470,89 @@ big_font_9:
|
||||||
; _ _ __ _ _
|
; _ _ __ _ _
|
||||||
; | | | : : : | | | | | | |
|
; | | | : : : | | | | | | |
|
||||||
; | | | : : : | -| |-| |_|
|
; | | | : : : | -| |-| |_|
|
||||||
; - - : . : : | _| |_| |
|
; - - : . : : | _| |_| |
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
panel_pressed:
|
||||||
|
|
||||||
|
lda CURSOR_X
|
||||||
|
cmp #32
|
||||||
|
bcs panel_time
|
||||||
|
cmp #28
|
||||||
|
bcs panel_year
|
||||||
|
cmp #24
|
||||||
|
bcs panel_day
|
||||||
|
cmp #20
|
||||||
|
bcs panel_month
|
||||||
|
panel_button:
|
||||||
|
; FIXME
|
||||||
|
rts
|
||||||
|
|
||||||
|
panel_month:
|
||||||
|
lda CURSOR_Y
|
||||||
|
cmp #8
|
||||||
|
bcc dec_dentist_month
|
||||||
|
cmp #26
|
||||||
|
bcs inc_dentist_month
|
||||||
|
|
||||||
|
rts
|
||||||
|
panel_day:
|
||||||
|
lda CURSOR_Y
|
||||||
|
cmp #8
|
||||||
|
bcc dec_dentist_day
|
||||||
|
cmp #26
|
||||||
|
bcs inc_dentist_day
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
panel_year:
|
||||||
|
rts
|
||||||
|
panel_time:
|
||||||
|
rts
|
||||||
|
|
||||||
|
jmp inc_dentist_month
|
||||||
|
|
||||||
|
inc_dentist_month:
|
||||||
|
|
||||||
|
lda DENTIST_MONTH
|
||||||
|
cmp #11
|
||||||
|
beq done_pressed
|
||||||
|
inc DENTIST_MONTH
|
||||||
|
jmp done_pressed
|
||||||
|
|
||||||
|
dec_dentist_month:
|
||||||
|
|
||||||
|
lda DENTIST_MONTH
|
||||||
|
cmp #0
|
||||||
|
beq done_pressed
|
||||||
|
dec DENTIST_MONTH
|
||||||
|
jmp done_pressed
|
||||||
|
|
||||||
|
inc_dentist_day:
|
||||||
|
|
||||||
|
lda DENTIST_DAY
|
||||||
|
cmp #$30
|
||||||
|
beq done_pressed
|
||||||
|
|
||||||
|
sed
|
||||||
|
clc
|
||||||
|
adc #1
|
||||||
|
sta DENTIST_DAY
|
||||||
|
jmp done_pressed
|
||||||
|
|
||||||
|
dec_dentist_day:
|
||||||
|
|
||||||
|
lda DENTIST_DAY
|
||||||
|
cmp #0
|
||||||
|
beq done_pressed
|
||||||
|
sed
|
||||||
|
sec
|
||||||
|
sbc #1
|
||||||
|
sta DENTIST_DAY
|
||||||
|
jmp done_pressed
|
||||||
|
|
||||||
|
done_pressed:
|
||||||
|
cld
|
||||||
|
rts
|
||||||
|
|
|
@ -119,4 +119,7 @@ location5:
|
||||||
.word $0000 ; east bg
|
.word $0000 ; east bg
|
||||||
.word $0000 ; west bg
|
.word $0000 ; west bg
|
||||||
.byte BG_NORTH
|
.byte BG_NORTH
|
||||||
.byte $ff ; special
|
.byte DIRECTION_N ; special exit
|
||||||
|
.byte 16,38 ; special x
|
||||||
|
.byte 0,32 ; special y
|
||||||
|
.word panel_pressed-1
|
||||||
|
|
Loading…
Reference in New Issue
Block a user