Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-09 05:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Blink the IP blinker

Browse Source
This commit is contained in:
Joshua Bell 2018-12-20 21:38:37 -08:00
parent e227ca19cd
commit b40b4d7e40
1 changed files with 66 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
desk.acc/control.panel.s
View File

@ -498,7 +498,7 @@ joystick_bitmap:
;; Selected index (1-3, or 0 for 'no match')
ipblink_speed:
.byte 3
.byte 2
ipblink_x := 210
ipblink_y := 65
@ -553,6 +553,30 @@ ipblink_bitmap:
.byte px(%0000000),px(%0110000),px(%0000001),px(%1000000),px(%0000110),px(%0000000)
.byte px(%0000000),px(%0000000),px(%0000001),px(%1000000),px(%0000000),px(%0000000)
.byte px(%0000110),px(%0000000),px(%0000001),px(%1000000),px(%0000000),px(%0110000)
.proc ipblink_bitmap_ip_params
viewloc: DEFINE_POINT ipblink_x + 120 - 1 + 20, ipblink_y
mapbits: .addr ipblink_ip_bitmap
mapwidth: .byte 1
reserved: .byte 0
cliprect: DEFINE_RECT 0, 0, 1, 12
.endproc
ipblink_ip_bitmap:
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
.byte px(%1100000)
;;; ============================================================
.proc init
@ -565,6 +589,8 @@ ipblink_bitmap:
jsr draw_window
MGTK_CALL MGTK::FlushEvents
;; fall through
.endproc
.proc input_loop
@ -578,6 +604,8 @@ ipblink_bitmap:
jsr do_joystick
jsr do_ipblink
jmp input_loop
.endproc
@ -621,8 +649,8 @@ ipblink_bitmap:
.proc handle_close
MGTK_CALL MGTK::TrackGoAway, trackgoaway_params
lda trackgoaway_params::clicked
beq input_loop
bne exit
jmp input_loop
.endproc
;;; ============================================================
@ -1178,6 +1206,7 @@ done: MGTK_CALL MGTK::ShowCursor
jsr draw_radio_button
.endproc
.proc draw_ipblink_buttons
MGTK_CALL MGTK::SetPenMode, notpencopy
@ -1616,7 +1645,13 @@ done: rts
.proc handle_ipblink_click
sta ipblink_speed
;; TODO: Store
tax
dex
lda ipblink_rate_table,x
sta ipblink_rate
sta ipblink_counter
;; TODO: Set in DeskTop
MGTK_CALL MGTK::GetWinPort, winport_params
MGTK_CALL MGTK::SetPort, grafport
@ -1626,6 +1661,34 @@ done: rts
jmp input_loop
.endproc
ipblink_rate:
.byte 120
ipblink_rate_table:
.byte 240, 120, 60
ipblink_counter:
.byte 120
.proc do_ipblink
dec ipblink_counter
lda ipblink_counter
bne done
copy ipblink_rate, ipblink_counter
;; Defer if content area is not visible
MGTK_CALL MGTK::GetWinPort, winport_params
cmp #MGTK::Error::window_obscured
beq done
MGTK_CALL MGTK::SetPenMode, penXOR
MGTK_CALL MGTK::PaintBits, ipblink_bitmap_ip_params
done: rts
.endproc
;;; ============================================================