; Justice Unlimited Gadget Microcode
; (C) 2004 Nathan (Acorn) Pooley 
;
; gtest.inc
;
;@DOC@ code to test the hardware
;

;############################################
;############### TEST MODE ##################
;############################################

#if ENABLE_TEST_MODE
testmode:


testmode_input:
    rcall   output_enable
    rcall   input_enable
    bcf     b_rbie

    movlw   str_test_input
    rcall   puts

testmode_input_loop:
    rcall   time
    movlw   27
    rcall   put_position
    movff   PORTB,v_tmp
    movlw   8
    movwf   v_tmp2

testmode_input_loop2:
    movlw   '0'
    rlcf    v_tmp,f
    btfsc   STATUS,C
    movlw   '1'
    rcall   putc
    decfsz  v_tmp2,f
    bra     testmode_input_loop2

    bra     testmode_input_loop


#endif ; ENABLE_TEST_MODE