mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-27 02:31:00 +00:00
mist: dentist: feature complete?
This commit is contained in:
parent
36486b256e
commit
58dcf1104f
@ -159,6 +159,12 @@ set_level_over:
|
||||
;===========================
|
||||
|
||||
pull_down_panel:
|
||||
lda #0
|
||||
sta button_smc+1 ; turn off blink
|
||||
|
||||
lda #31
|
||||
sta startup_animate_smc+1 ; start startup animation
|
||||
|
||||
lda #DENTIST_PANEL
|
||||
sta LOCATION
|
||||
|
||||
|
@ -23,6 +23,40 @@ draw_date:
|
||||
;=================
|
||||
; draw the bars
|
||||
|
||||
startup_animate_smc:
|
||||
lda #0
|
||||
beq done_startup
|
||||
|
||||
dec startup_animate_smc+1
|
||||
|
||||
; 0001 1111
|
||||
|
||||
cmp #31
|
||||
bne animate2
|
||||
animate1:
|
||||
lda #8
|
||||
sta month_lit_smc+1
|
||||
bne done_startup
|
||||
|
||||
animate2:
|
||||
cmp #23
|
||||
bne animate3
|
||||
lda #8
|
||||
sta date_lit_smc+1
|
||||
bne done_startup
|
||||
animate3:
|
||||
cmp #15
|
||||
bne animate4
|
||||
lda #8
|
||||
sta year_lit_smc+1
|
||||
bne done_startup
|
||||
animate4:
|
||||
cmp #7
|
||||
bne done_startup
|
||||
lda #8
|
||||
sta time_lit_smc+1
|
||||
|
||||
done_startup:
|
||||
jsr draw_month_bar
|
||||
jsr draw_date_bar
|
||||
jsr draw_year_bar
|
||||
@ -1123,7 +1157,8 @@ done_pressed_changed:
|
||||
;===========================
|
||||
draw_stars:
|
||||
|
||||
jmp stars_lights_off
|
||||
lda DENTIST_LIGHT
|
||||
bne stars_lights_off
|
||||
|
||||
; if lights on
|
||||
lda #6
|
||||
|
@ -1,5 +1,5 @@
|
||||
5 HOME
|
||||
10 PRINT "LOADING MIST V0.88"
|
||||
10 PRINT "LOADING MIST V0.89"
|
||||
20 PRINT:PRINT
|
||||
40 PRINT "CONTROLS: "
|
||||
42 PRINT " MOVE CURSOR : ARROWS OR WASD"
|
||||
|
Loading…
Reference in New Issue
Block a user