Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-28 15:50:16 +00:00
Code Issues Projects Releases Wiki Activity

Date DA: Read-only if system has clock. Fixes #39

Browse Source
This commit is contained in:
Joshua Bell 2018-12-08 18:35:28 -08:00
parent 0dfddfd629
commit 8fe7243e7d
1 changed files with 48 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
desk.acc/date.s
View File

@ -44,6 +44,11 @@ write_buffer:
stx stash_stack
sta ALTZPOFF
lda ROMIN2
lda MACHID
and #%00000001 ; bit 0 = clock card
sta clock_flag
lda DATELO
sta datelo
lda DATEHI
@ -77,6 +82,9 @@ write_buffer:
lda write_buffer ; Dialog committed?
beq skip
;; If there is a system clock, don't write out the date.
ldx clock_flag
bne skip
ldy #OPEN ; open the file
ldax #open_params
@ -155,6 +163,9 @@ backcolor: .byte 0 ; black
selected_field: ; 1 = day, 2 = month, 3 = year, 0 = none (init)
.byte 0
clock_flag:
.byte 0
datelo: .byte 0
datehi: .byte 0
@ -258,6 +269,11 @@ nextwinfo: .addr 0
init_window:
jsr save_zp
;; If null date, just leave the baked in default
lda datelo
ora datehi
beq :+
;; Crack the date bytes. Format is:
;; | DATEHI | DATELO |
;; |7 6 5 4 3 2 1 0 7 6 5 4 3 2 1 0|
@ -281,7 +297,7 @@ init_window:
lsr a
sta month
MGTK_CALL MGTK::OpenWindow, winfo
: MGTK_CALL MGTK::OpenWindow, winfo
lda #0
sta selected_field
jsr draw_window
@ -311,7 +327,11 @@ init_window:
bne :+
jmp on_ok
: cmp #CHAR_ESCAPE
;; If there is a system clock, only the first button is active
: ldx clock_flag
bne input_loop
cmp #CHAR_ESCAPE
bne :+
jmp on_cancel
: cmp #CHAR_LEFT
@ -661,9 +681,17 @@ loop: txa
MGTK_CALL MGTK::InRect, $1000, test_addr
bne done
clc
;; If there is a system clock, only the first button is active
ldx clock_flag
beq next
pla
ldx #0
rts
next: clc
lda test_addr
adc #8 ; size of 4 words
adc #.sizeof(MGTK::Rect)
sta test_addr
bcc :+
inc test_addr+1
@ -717,17 +745,21 @@ penheight: .byte 1
;;; ============================================================
;;; Render the window contents
draw_window:
.proc draw_window
MGTK_CALL MGTK::SetPort, winfo::port
MGTK_CALL MGTK::FrameRect, border_rect
MGTK_CALL MGTK::SetPenSize, setpensize_params
MGTK_CALL MGTK::FrameRect, date_rect
MGTK_CALL MGTK::FrameRect, ok_button_rect
MGTK_CALL MGTK::FrameRect, cancel_button_rect
MGTK_CALL MGTK::FrameRect, ok_button_rect
MGTK_CALL MGTK::MoveTo, label_ok_pos
MGTK_CALL MGTK::DrawText, label_ok
;; If there is a system clock, only draw the OK button.
ldx clock_flag
bne :+
MGTK_CALL MGTK::FrameRect, cancel_button_rect
MGTK_CALL MGTK::MoveTo, label_cancel_pos
MGTK_CALL MGTK::DrawText, label_cancel
@ -739,17 +771,24 @@ draw_window:
MGTK_CALL MGTK::DrawText, label_downarrow
MGTK_CALL MGTK::FrameRect, down_arrow_rect
jsr prepare_day_string
: jsr prepare_day_string
jsr prepare_month_string
jsr prepare_year_string
jsr draw_day
jsr draw_month
jsr draw_year
MGTK_CALL MGTK::SetPenMode, penmode_params
;; If there is a system clock, don't draw the highlight.
ldx clock_flag
beq :+
rts
: MGTK_CALL MGTK::SetPenMode, penmode_params
MGTK_CALL MGTK::SetPattern, white_pattern
lda #1
jmp highlight_selected_field
.endproc
.proc draw_selected_field
lda selected_field