; Justice Unlimited Gadget Microcode
; (C) 2004 Nathan (Acorn) Pooley 
;
; gpuzzles.inc
;
;@DOC@ special code for specific puzzles
;


;############################################
;############### CURTIS PUZZLE 1 ############
;############################################

fn_jonzz_start:
    rcall   init_to_main_menu
    movlw   mode_jonzz_q1
    bra     push_mode

fn_jonzz_fail:
    rcall   init_to_main_menu
    bra     load_mode

fn_jonzz_win:
    rcall   init_to_main_menu
    movlw   mode_confirm_18_t0
    bra     push_mode

fn_arrival:
    movf    v_cluenum,w
    subwf   v_str_addrhi,w
    bnn     fn_arrival_2

    clrf    v_cluetime_h
    clrf    v_cluetime_m
    clrf    v_cluetime_s

fn_arrival_2:

    movff   v_str_addrhi, v_cluenum
    rcall   init_to_main_menu
    movlw   mode_arrival_0
    addwf   v_cluenum,w
    rcall   push_mode
    movff   v_mode_str_hi,v_clue_str_hi
    movff   v_mode_str_lo,v_clue_str_lo
    return

fn_show_arrival:
    movlw   mode_arrival_0
    addwf   v_cluenum,w
    bra     set_mode
    


fn_debug:
    rcall   init_to_main_menu
    movlw   mode_debug
    bra     push_mode

fn_addsec:
    incf    v_time_s
    bra     pop_mode
fn_addmin:
    incf    v_time_m
    bra     pop_mode
fn_addhr:
    incf    v_time_h
    bra     pop_mode
fn_subsec:
    decf    v_time_s
    bra     pop_mode
fn_submin:
    decf    v_time_m
    bra     pop_mode
fn_subhr:
    decf    v_time_h
    bra     pop_mode

fn_clrclue:
    clrf    v_cluenum
    bra     pop_mode

sc_clue_name:
    movff   v_clue_str_hi,v_str_addrhi
    movff   v_clue_str_lo,v_str_addrlo
    rcall   puts_addr
    movlw   1
    movwf   v_str_cnt
    return