Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-28 06:30:18 +00:00
Code Issues Projects Releases Wiki Activity

mist: dentist: can use the sliders

Browse Source
This commit is contained in:
Vince Weaver 2020-07-05 21:17:28 -04:00
parent 14eee80bbb
commit 8f03fbbac7
2 changed files with 72 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mist/TODO
View File

@ -18,7 +18,10 @@ For release 1.0
-- constellation puzzle/ship raising
-- marker switches
+ DENTIST
-- all of it
-- lights dazzle when display comes down
-- animation on button press
-- slide parts of switch
+ CABIN
-- safe puzzle
-- boiler

86
mist/dentist_panel.s
View File

@ -640,9 +640,9 @@ big_font_9:
; 8*12/8 = 12 31 9999 1440 24:00
month_limits:
.byte 0,1,3,4,6,7,9,10,12
.byte 0,1,3,4,6,7,9,10,11
date_limits:
.byte $00,$04,$08,$12,$16,$20,$24,$28,$31
.byte $00,$04,$08,$12,$16,$20,$24,$28,$30
century_limits:
.byte $00,$12,$25,$37,$50,$62,$75,$87,$99
hour_limits:
@ -809,17 +809,6 @@ button_on_sprite:
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:
lda CURSOR_Y
@ -846,6 +835,27 @@ panel_button:
done_panel_button:
rts
;===========================
;===========================
; panel pressed
;===========================
;===========================
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
bcc panel_button
panel_month:
lda #5
sta month_lit_smc+1
@ -860,7 +870,14 @@ check_month_inc:
bcc check_month_bar
jmp inc_dentist_month
check_month_bar:
rts
sec
sbc #8
lsr
tax
lda month_limits,X
sta DENTIST_MONTH
jmp done_pressed_changed
panel_day:
@ -877,8 +894,15 @@ check_day_inc:
bcc check_day_bar
jmp inc_dentist_day
check_day_bar:
sec
sbc #8
lsr
tax
lda date_limits,X
sta DENTIST_DAY
jmp done_pressed_changed
rts
panel_year:
@ -886,12 +910,26 @@ panel_year:
sta year_lit_smc+1
lda CURSOR_Y
check_year_dec:
cmp #8
bcc dec_dentist_year
bcs check_year_inc
jmp dec_dentist_year
check_year_inc:
cmp #26
bcs inc_dentist_year
bcc check_year_bar
jmp inc_dentist_year
check_year_bar:
sec
sbc #8
lsr
tax
lda century_limits,X
sta DENTIST_CENTURY
lda #0
sta DENTIST_YEAR
jmp done_pressed_changed
rts
panel_time:
@ -905,6 +943,18 @@ panel_time:
cmp #26
bcs inc_dentist_time
check_time_bar:
sec
sbc #8
lsr
tax
lda hour_limits,X
sta DENTIST_HOURS
lda #0
sta DENTIST_MINUTES
jmp done_pressed_changed
rts
inc_dentist_time: