;Name: Hello World
;Version: HELLO
;Description: This is a simple Hello Program
;by John A. Toebes, VIII
;
;TIP:  Download your watch faster:  Download a WristApp once, then do not send it again.  It stays in the watch!
;HelpFile: watchapp.hlp
;HelpTopic: 106
            INCLUDE "WRISTAPP.I"
;
; Program specific constants
;
FLAGBYTE	EQU  	$61
;   Bit 0 indicates that we want to show the segments instead of the message
;
START	    	EQU   *
L0110:    	jmp	MAIN
L0113:    	rts
	    	nop
      	nop
L0116:  	rts
	      nop
	      nop
L0119:	rts
	      nop
	      nop
L011c:	rts
	      nop
	      nop

L011f:	lda	STATETAB,X
	      rts

L0123:      jmp	HANDLE_STATE0
            db  	STATETAB-STATETAB

S6_HELLO:	timex6  "HELLO "
S6_WORLD:   timex6  "WORLD "

;
;
STATETAB:
        	db  	0
		db	EVT_ENTER,TIM_ONCE,0 	; Initial state
	      db  	EVT_RESUME,TIM_ONCE,0   ; Resume from a nested app
        	db  	EVT_DNNEXT,TIM_ONCE,0	; Next button
        	db  	EVT_MODE,TIM_ONCE,$FF	; Mode button
        	db  	EVT_END
;
; This 
HANDLE_STATE0:
 	  	bset	1,$8f				; Indicate that we can be suspended
         	lda	BTNSTATE		      ; Get the event
	    	cmp 	#EVT_DNNEXT             ; Did they press the next button?
		beq	DOTOGGLE			; Yes, toggle what we are displaying
CLEARIT     bclr  0,FLAGBYTE			; Start us in the show display state
REFRESH	brclr	0,FLAGBYTE,SHOWDISP	; Do we want to see the main display?
		jmp	SETALL			; No, just turn on all segments
SHOWDISP	jsr	CLEARALL			; Clear the display
		lda	#S6_HELLO-START
		jsr	PUT6TOP
		lda	#S6_WORLD-START
		jsr	PUT6MID
		lda	#SYS8_MODE
		jmp	PUTMSGBOT

DOTOGGLE	brset 0,FLAGBYTE,CLEARIT
		bset	0,FLAGBYTE
		bra	REFRESH
;
; This is the main initialization routine which is called when we first get the app into memory
;
MAIN:
		lda	#$c0				; We want button beeps and to indicate that we have been loaded
		sta	$96
	    	clr  	FLAGBYTE			; start with a clean slate
	    	rts