;16F688 ION ;works list p=PIC16f688 #include "p16f688.inc" __config _CP_OFF & _CPD_OFF & _WDT_OFF & _BOD_OFF & _PWRTE_OFF & _INTRC_OSC_NOCLKOUT & _MCLRE_OFF ERRORLEVEL -224 ERRORLEVEL -302 #define switch2 PORTA,0 #define trigger PORTA,1 #define switch1 PORTA,2 #define eyeout PORTA,3 #define DIP4 PORTA,4 #define valve PORTA,5 #define GREEN_LED PORTC,0 ;GREEN #define RED_LED PORTC,1 ;RED #define eyepower PORTC,2 #define solenoid PORTC,3 #define BLUE_LED PORTC,4 ;Actualy Blue #define shutdown PORTC,5 bcf STATUS,RP0 clrf PORTA movlw b'00010111' ;05h movwf CMCON0 bsf STATUS,RP0 clrf ANSEL movlw b'00011111' ;0,1,2,3,4 input 5 output movwf TRISA bcf OPTION_REG, NOT_RAPU ;enable pullups bcf WPUA,0 ;switch22pullup; bsf WPUA,1 ;trigger pullup bcf WPUA,2 ;switch22pullup bsf WPUA,4 ;jumper pullup bcf WPUA,5 ;valve pullup bcf STATUS,RP0 clrf PORTC bsf STATUS,RP0 clrf ANSEL movlw b'00000000' ; input 0,1,2,3,4,5 output movwf TRISC bcf STATUS,RP0 count1 equ 0x20 count2 equ 0x21 count3 equ 0x22 dwell equ 0x23 eyedelay equ 0x24 debounce equ 0x25 tmp equ 0x26 abs_time equ 0x27 ;countdown to reset abs_flag semi_force_time equ 0x28 ; time to disable eye eye_mode equ 0x29 ;0 break ff bounce abs_count1 equ 0x2a ramp_active equ 0x2b ;not used auto_off_count3 equ 0x2c ramp_adj_cntdwn equ 0x2d eye_block_cntdwn equ 0x2e ramp_cntdwn equ 0x2f valve_mode equ 0x30 ;0 adjust ff classic valve_dwell equ 0x31 valve_on_delay equ 0x32 valve_disable equ 0x33 valve_eye_delay equ 0x34 malfun_eye_cntdwn equ 0x35 tmp_addr equ 0x36 tmp_data equ 0x37 ramp_cont1 equ 0x38 ramp_cont2 equ 0x39 abs_count2 equ 0x3a ramp_pulls equ 0x3b ramp_speed equ 0x3c ramp_speed_tmp equ 0x3d trig_speed equ 0x3e trig_speed_tmp equ 0x3f flags equ 0x40 ;0-trigger pulled, 1-ramping active, 2 - trigger released trig_active_pull equ 0x41 after_nitro equ 0x42 ;mode after nitro ramp_pulls_tmp equ 0x43 temp_dwell equ 0x44 temp_eyedelay equ 0x45 temp_tournement equ 0x46 mode equ 0x47 ;0 semi, 1 rt, 2 burst, 3 full, 4 RT flag, 5 burst flag, 6 shotqing on rof equ 0x48 true_rof equ 0x49 ;actual ROF of marker after subtracting because of mode burst_count equ 0x4a shotq_count1 equ 0x4b shotq_count2 equ 0x4c flag equ 0x4d auto_off_count1 equ 0x4e auto_off_count2 equ 0x4f LBI_cntdwn1 equ 0x50 LBI_cntdwn2 equ 0x51 LBI_flicker equ 0x52 LBI_duration equ 0x53 eyedelay_temp equ 0x54 nxl_release_ctndwn equ 0x55 ROF_raw equ 0x56 ;21-0 21 = 9 0=30 Eye_delay_real equ 0x57 PSP_runaway equ 0x58 ;only fires to shots if trig released training_dwell equ 0x59 tmp2 equ 0x5A #define Zero STATUS,2 #define semi mode,0 ;semi flag #define rt mode,1 ;rt flag #define burst mode,2 ;burst flag #define full mode,3 ;full flag #define nitro mode,4 ;ramp flag #define nxl mode,5 ;nxl flag #define psp mode,6 ;psp flag #define milen mode,7 ;crazy flag #define Auto_off_enabled flags,0 ;semi flag #define Instant_ON_enabled flags,1 ;ramping flag #define eye_type flags,2 ;burst flag #define rt_flag flags,3 ;rt flag #define training_enabled flags,4 ;0 break, 1 bounce #define abs_enabled_flag flags,5 ;abs enabled in setup flag #define abs_flag flags,6 ;abs_flagflag #define shotq_enabled flags,7 ; flag #define shotq_flag flag,0 ;semi flag #define after_nitro_LED_flag flag,1 ;ramping flag #define eye_disabled flag,2 ; flag #define ramp_trig_flag flag,3 ;rt flag #define eye_blocked_flag flag,4 ;0 goes to semi, 1 goes to ramp #define malfun_eyes_flag flag,5 ;nxl flag #define rof_zero_flag flag,6 ;psp flag #define trigger_flag flag,7 ;stop all when LBI flickering #define after_nitro_semi after_nitro,0 ; #define after_nitro_rt after_nitro,1 ; #define after_nitro_burst after_nitro,2 ; #define after_nitro_full after_nitro,3 ; #define after_nitro_nitro after_nitro,4 ; #define after_nitro_psp after_nitro,5 ; #define after_nitro_nxl after_nitro,6 ; #define after_nitro_milen after_nitro,7 ; #define trig_releas_flag tmp2,0 ; ;#define trig_releas_flag tmp,1 ; #define ramping_flag tmp2,2 ; #define LBI_flickering tmp2,3 ; #define LBI_active_flag tmp2,4 ; #define dry_fire_flag tmp2,5 ; #define LBI_flag tmp2,6 ; #define nxl_release_flag tmp2,7 ;init bcf solenoid bcf valve bcf RED_LED bcf GREEN_LED bcf BLUE_LED movlw 0x30 call readee movwf flags btfsc Instant_ON_enabled goto turnon2 btfsc switch2 goto turnon ;if switch2, turn on, else turn off. call switch2_release1 wait_release bcf RED_LED bcf GREEN_LED bcf BLUE_LED call switch2_release1 bcf eyepower bcf eye_disabled btfsc Instant_ON_enabled goto turnon2 bcf shutdown ;turns marker off FUCKING FINALLY!! wait bcf shutdown ;turns marker off FUCKING FINALLY!! btfss switch2 goto wait turnon bsf shutdown ;turns on call debounce_all bsf RED_LED movlw 0x50 movwf count2 on_loop decfsz count1,1 ;trigger count for eye disable goto on_loop btfss switch2 ;next command on up goto wait_release ;trigger released, decfsz count2,1 goto on_loop bcf RED_LED bsf GREEN_LED turnon2 bsf shutdown init movlw b'00000000' ; input 0,1,2,3,4,5 output clrf count1 clrf count2 clrf mode clrf flags clrf malfun_eye_cntdwn ;5 trig pulls without eye unclearing, dieables them clrf after_nitro ; bcf solenoid bcf RED_LED bcf GREEN_LED bcf BLUE_LED bcf rof_zero_flag clrf flag clrf flags bcf dry_fire_flag movlw 0x10 ;resets abs countdown movwf abs_count2 movlw 0x4 movwf ramp_cntdwn ;on forth trig pull, start ramping movlw 0x0A ;10=10 minutes to auto off movwf auto_off_count3 movlw 0xFF movwf eye_block_cntdwn ;speed of no ball flash movlw 0x05 movwf malfun_eye_cntdwn ;pull trigger 5 times without firing and it autodisable the eyes movlw 0x0C ;12=3 sec movwf LBI_cntdwn2 movlw 0x40 ; movwf LBI_flicker movlw 0x0f ; movwf LBI_duration movlw 0x05 ; movwf nxl_release_ctndwn bcf LBI_flag ;if 1= low battery ; Test to reset default setting mem movlw 0x00 call readee movwf dwell ; call debounce_all movlw 0x05 call readee movwf eyedelay ;ACTUALLU THE ROF ; call debounce_all movlw 0x10 call readee movwf debounce ; call debounce_all movlw 0x15 call readee movwf semi_force_time ; call debounce_all ; movlw 0x20 ; call readee ; movwf shotq-enabled ; call debounce_all movlw 0x25 call readee movwf after_nitro ; call debounce_all movlw 0x30 call readee movwf flags ; call debounce_all movlw 0x35 call readee movwf abs_time ; call debounce_all movlw 0x40 call readee movwf Eye_delay_real ; call debounce_all movlw 0x45 call readee movwf training_dwell movlw 0x1A call readee movwf mode ; call debounce_all movlw 0x2A call readee movwf trig_speed ; call debounce_all movlw 0x3A call readee movwf ramp_pulls ; call debounce_all tourney_check btfss DIP4 goto tourney btfsc switch1 goto setup ;enter setup mode tourney ;tourney lock out, no setup. call switch2_release1 btfsc semi goto test_dwell ;if in NPPL, no ROF adjust ;----------------------------------tournement lock----------------------------- ;see if DIP4 is ON. btfsc DIP4 goto test_dwell bcf shotq_enabled movf dwell,0 movwf temp_dwell movf eyedelay,0 ;w=eye delay addwf temp_dwell,0 ;rof+ramp_speed -> w movwf count1 ;ramp+eye delay movlw 0x4c ;0x50 btfsc milen movlw 0x47 ;0x49 movwf count2 ;0x55 which is the milen value for 15bps ramp test_ramp_speed bsf tmp,1 ;tmp1 = current setting decfsz count1,1 bcf tmp,1 btfsc tmp,1 goto illegal ;marker illegal bsf tmp,2 ;tmp2 = minumum setting=55h decfsz count2,1 bcf tmp,2 btfsc tmp,2 goto test_dwell ;marker legal goto test_ramp_speed illegal_milen movf dwell,0 sublw 0x49 movwf eyedelay ;set to 15 bps ROF movlw 0x04 movwf ramp_pulls ;set ramp pulls to 4 goto test_dwell illegal btfsc milen goto illegal_milen movf dwell,0 sublw 0x50 movwf eyedelay ;set to 15 bps ROF movlw 0x04 movwf ramp_pulls ;set ramp pulls to 4 ;-------------------------------------------------------------------------------- test_dwell btfss DIP4 ;if tourny lock on, skip change mode goto test_dwell2 btfss trigger ;if trigger held, change modes goto change_mode test_dwell2 ; Test to reset default setting btfss dwell,0 goto main_release btfss dwell,1 goto main_release btfss dwell,2 goto main_release btfss dwell,3 goto main_release btfss dwell,4 goto main_release btfss dwell,5 goto main_release btfss dwell,6 goto main_release btfss dwell,7 goto main_release goto setup4 main_release call set_LED ;setup LEDs according to mode bcf ramping_flag bcf eyepower btfss eye_disabled bsf eyepower call switch2_release1 call trigger_release1 btfsc abs_enabled_flag ;set abs flag on turn on bsf abs_flag bsf eye_blocked_flag btfsc training_enabled ;if traingin disabled eyes bsf eye_disabled main1 ;---------------------------------------------------------------------------- movlw 0x03 movwf burst_count ;number of burst fires bsf rt_flag ;set rt_flag for rt trigger call one_ms_delay btfsc switch2 ;push switch2 goto off btfsc switch1 call eye_disabled1 ;;--------------------eye flash, no ball in breach------------; ; btfsc LBI_flickering ; goto check_LBI ;If LBI flickering, skip ball flash btfsc eye_disabled ;skip eye flash if eye disabled goto eyes_disabled_LEDs btfsc eye_type goto bouncebeam_eyes breakbeam_eyes btfss eyeout call set_LED btfss eyeout ; goto check_LBI ;ball in breach decfsz eye_block_cntdwn,1 goto check_LBI movlw 0xFF movwf eye_block_cntdwn ;reset cntdwn call clear_LEDs btfsc eye_blocked_flag call set_LED btfss eye_blocked_flag goto set_eye_blocked_flag bcf eye_blocked_flag goto check_LBI set_eye_blocked_flag bsf eye_blocked_flag ;------------------------------------------------------------ goto check_LBI bouncebeam_eyes btfsc eyeout call set_LED btfsc eyeout ; goto check_LBI ;ball in breach decfsz eye_block_cntdwn,1 goto check_LBI movlw 0xFF movwf eye_block_cntdwn ;reset cntdwn call clear_LEDs btfsc eye_blocked_flag call set_LED btfss eye_blocked_flag goto set_eye_blocked_flag2 bcf eye_blocked_flag goto check_LBI set_eye_blocked_flag2 bsf eye_blocked_flag ;------------------------------------------------------------ goto check_LBI eyes_disabled_LEDs call clear_LEDs call set_LED check_LBI ;---------------------------LBI-------------------------- ;non ;------------------------------------------------------ ABS_cntdwn ;--------------------ABS------------------------------------ btfss abs_enabled_flag ;skip if ABS disabled goto ABS_done btfss abs_flag ;skip if ABS flag already set decfsz abs_count1,1 ; coutdown to activate ABS goto ABS_done decfsz abs_count2,1 ; coutdown to activate ABS goto ABS_done bsf abs_flag ;------------------------------------------------------ ABS_done ;--------------------auto_off----------------------- btfss Auto_off_enabled ;set Auto off enabled goto Auto_Off_done btfsc trigger_flag goto auto_off_reset decfsz auto_off_count1,1 ; coutdown to activate off goto Auto_Off_done decfsz auto_off_count2,1 ; coutdown to activate off goto Auto_Off_done decfsz auto_off_count3,1 ; coutdown to activate off goto Auto_Off_done goto wait_release auto_off_reset movlw 0x0C ;0A=10 minutes to auto off movwf auto_off_count3 ;----------------------------------------------------- Auto_Off_done ;-------------skip, no ramping modes------------- btfsc psp goto ramp_modes ;PSP mode active btfss nxl goto main_no_ramp ;all others go here ;-------------------------------ramping----------------------------- ramp_modes btfss trigger_flag ;if trigger hasn't been pulled skip ramping shit goto no_trig no_ramp ;not ramping yet decfsz trig_speed_tmp,1 ;minumim trig pull speed to activate ramp goto no_reset goto reset_all ;minimum pull speed not atained, reset no_reset btfsc trigger bsf trig_releas_flag btfsc nxl ;if nxl mode, set trig release flag bsf trig_releas_flag btfss ramping_flag goto no_trig goto pull no_trig btfsc trigger goto trigger_released ;trigger released, set release flag btfsc ramping_flag call reset_ramping_trig goto pull reset_ramping_trig ;resets the trig timer to keep ramp going btfss trig_releas_flag ;see if the trigger has been released return movf trig_speed,0 ;resets min trig speed movwf trig_speed_tmp ;minimum trigger pull speed. bcf trig_releas_flag movlw 0x04 movwf PSP_runaway ;two shots with trig released return trigger_released bsf trig_releas_flag ;set release flag goto main1 reset_all bcf trigger_flag bcf ramping_flag bcf trig_releas_flag movf trig_speed,0 ;resets min trig speed movwf trig_speed_tmp ;minimum trigger pull speed. movf ramp_pulls,0 ;moves number of pulls to cntdwn movwf ramp_cntdwn ;4 pulls to ramp goto release ;--------------------------------------------------------------------- main_no_ramp bcf trigger_flag bcf ramping_flag btfsc shotq_flag goto shot_q_dec btfss trigger goto pull goto main1 shot_q_dec decfsz shotq_count2,1 goto pull bcf shotq_flag goto release reset_malfun_eye movlw 0x05 movwf malfun_eye_cntdwn ;reset malfun eye cntdwn return pull call clear_LEDs bsf trigger_flag ; btfsc ramping_flag ; incf malfun_eye_cntdwn,1 ;if ramping, no eye disable ; decfsz malfun_eye_cntdwn,1 ; goto eye_working ; bsf eye_disabled ;disable eyes after 5 pulls without firing ; movlw 0x54 ;12 bps ; movwf eyedelay eye_working btfsc full call reset_malfun_eye btfsc nitro call reset_malfun_eye ;-----------------countdown to ramp----------------------------- btfsc psp goto ramp_decr ;PSP mode active btfss nxl goto pull_no_ramp ;NXL mode active ramp_decr decfsz ramp_cntdwn,1 goto pull_no_ramp bsf ramping_flag ;------------------------------------------------------------- pull_no_ramp btfsc eye_disabled ; 1=disabled goto ROF_delay ; eye has been disabled btfsc eye_type goto check_bounce ;check_break btfsc eyeout ; goto shot_qing ;eye is clear goto ROF_delay check_bounce btfss eyeout ; goto shot_qing ;eye is clear ROF_delay ; eye is disabled btfsc ramping_flag goto fire_ramp_check ;skip eye delay if ramping btfsc semi btfsc eye_disabled goto eye_delay_on goto semi_skip ;makes semi uncapped btfsc dry_fire_flag goto semi_skip ;if dry fire, no eyes/nor MROF eye_delay_on ; movf eyedelay,0 ; movwf count2 ;loop_eye1 ; call one_ms_delay ; decfsz count2,1 ; goto loop_eye1 semi_skip bcf shotq_flag goto fire psp_no_eye movlw 0x05 movwf malfun_eye_cntdwn ;reset malfun eye cntdwn call one_ms_delay goto ramp_modes shot_qing ;pull trigger, no ball, set shotq flag btfsc psp goto psp_no_eye btfsc nxl ; call reset_ramping_trig ;resets countdown for trigger pull goto nxl_no_shot btfsc nitro goto main1 btfss shotq_enabled ;skip if shot q'ing is active goto release btfss semi ;skip if in semi mode goto release btfsc shotq_flag ;skip if shot q flag is off. goto release bsf shotq_flag movlw 0x30 ;time delay intil shotq'ing resets movwf shotq_count2 goto release nxl_no_shot btfsc trigger goto release goto pull_no_ramp ;----------------------------rof delay for ramping------------------- fire_ramp_check movlw 0x01 ; movf eyedelay,0 movwf count2 fire_ramp_loop call one_ms_delay btfsc trigger ;check to see if trigger pulled goto no_release_trig btfsc trig_releas_flag ;if trig released, reset trigger cntdwn call reset_ramping_trig ;resets countdown for trigger pull no_release_trig decfsz trig_speed_tmp,1 ;minumim trig pull speed to activate ramp goto fire_ramp_skip goto reset_all ;minimum pull speed not atained, reset fire_ramp_skip decfsz count2,1 goto fire_ramp_loop bcf shotq_flag goto fire ;--------------------------------------------------------------- ;---------------------------------------------- nxl_glitch btfsc trigger goto fire_ramp goto fire_noglitch ;----------------------------------------------------- fire ;----------------------------------------------------- movf Eye_delay_real,0 movwf count2 loop_fire call one_ms_delay decfsz count2,1 goto loop_fire ;----------------------------------------- btfss abs_flag ; 1=abs active goto fire_no_abs movf abs_time,0 addwf dwell,1 ;add abs_time to dwell, save in dwell fire_no_abs ;-----------------nxl glitch-------------- btfsc nxl goto nxl_glitch ;------------------------------------------- fire_noglitch btfss psp goto skip_psp_test btfss ramping_flag goto skip_psp_test decfsz PSP_runaway,1 ;two shots, then stop. goto skip_psp_test goto psp_plus1 skip_psp_test ; bsf solenoid ;close solenoid, fire ; call delay_on1 ; bcf solenoid call ion_fire btfsc semi goto after_shot btfsc rt goto after_shot btfsc burst goto nonramping_ROF btfsc full goto nonramping_ROF btfsc milen goto nonramping_ROF btfsc psp goto ramping_ROF btfsc nxl goto ramping_ROF nonramping_ROF movf eyedelay,0 movwf count2 loop_eye1 call one_ms_delay decfsz count2,1 goto loop_eye1 goto after_shot ramping_ROF movf eyedelay,0 movwf count2 decf count2,1 ;already did this once fire_ramp_loop2 call one_ms_delay btfsc trigger ;check to see if trigger pulled goto no_release_trig2 btfsc trig_releas_flag ;if trig released, reset trigger cntdwn call reset_ramping_trig ;resets countdown for trigger pull no_release_trig2 decfsz trig_speed_tmp,1 ;minumim trig pull speed to activate ramp goto fire_ramp_skip2 goto reset_all ;minimum pull speed not atained, reset fire_ramp_skip2 decfsz count2,1 goto fire_ramp_loop2 after_shot btfss abs_flag goto fire_ramp movf abs_time,0 subwf dwell,1 psp_plus1 incf PSP_runaway,1 fire_ramp bcf abs_flag movlw 0x10 ;resets abs countdown movwf abs_count2 movlw 0x05 movwf malfun_eye_cntdwn ;reset malfun eye cntdwn ;---------full auto--------------------- btfsc full goto full_auto btfsc nitro ;goto full auto on first pull goto full_auto ;--------------------------------- ;------------burst------------------- btfss burst ;if not burst goto release else burst goto release btfsc trigger ;if trigger still pulled, burst goto release decfsz burst_count,1 goto pull goto release ;--------------------------------------- full_auto btfss trigger goto pull release btfsc full goto main1 ;------------------ramping---------------------------- btfss nxl ;chekc for nxl mode goto nxl_no_release btfss ramping_flag ;check that it is ramping goto nxl_no_release btfss nxl_release_flag ;check if release flag set goto no_nxl_release_flag btfss trigger ;if trigger released, clear ramp flag goto nxl_no_release bcf ramping_flag bcf nxl_release_flag movlw 0x05 ; movwf nxl_release_ctndwn goto nxl_no_release no_nxl_release_flag decfsz nxl_release_ctndwn,1 goto nxl_no_release bsf nxl_release_flag ;------------------------------------------------------- nxl_no_release btfsc ramping_flag ;skip debounce if ramping goto main1 ;------------------ramping---------------------------- ;------------------nitro mode----------------------- after_nitro_mode btfss nitro goto release_all bcf nitro btfsc after_nitro_semi bsf semi btfsc after_nitro_rt bsf rt btfsc after_nitro_burst bsf burst btfsc after_nitro_nxl bsf nxl btfsc after_nitro_psp bsf psp btfsc after_nitro_milen bsf milen btfsc after_nitro_full bsf full ;-------------------------------------------------- release_all movf semi_force_time,0 movwf count3 loop_release1 call one_ms_delay btfsc trigger ;next command on 1 goto debounce1 ;trigger released, decfsz count2,1 goto loop_release1 decfsz count3,1 goto loop_release1 call semi_force ;trigger held long enough to force semi goto debounce1 ion_fire movlw 0x0C ;loops 10ms for full on movwf tmp movf dwell,0 btfsc training_enabled ;If training enabled, use training dwell movf training_dwell,0 movwf count2 bsf solenoid ;close solenoid, fire call one_ms_delay bsf valve ion_fire_loop1 call one_ms_delay decfsz count2,1 goto ion_fire_dwell goto end_ion_fire ion_fire_dwell decfsz tmp,1 goto ion_fire_loop1 ;dwell less than 10ms fifty_duty call one_ms_delay bcf solenoid ; bsf solenoid decfsz count2,1 goto ion_noid_on goto end_ion_fire ion_noid_on call one_ms_delay bsf solenoid decfsz count2,1 goto fifty_duty end_ion_fire bcf solenoid call one_ms_delay bcf valve return delay_on1 movf dwell,0 movwf count2 loop_on1 call one_ms_delay decfsz count2,1 goto loop_on1 return debounce_all movlw 0x50 movwf count2 loop_debounce_all call one_ms_delay decfsz count2,1 goto loop_debounce_all return debounce1 movf debounce,0 movwf count2 loop_debounce call one_ms_delay btfss trigger ;next command on 0 goto debounce1 ;pull trigger decfsz count2,1 goto loop_debounce call set_LED ;setup LED to current mode btfss rt ;if not rt goto main1 else skip goto main1 ;------------rt_firing---------------------- btfss rt_flag ;if rt_flag is set it already fired goto main1 bcf rt_flag goto pull ;-------------------------------- trigger_release1 call debounce_all btfss trigger ;next command on 0 goto trigger_release1 call debounce_all return switch1_release1 call debounce_all btfsc switch1 ;next command on 0 goto switch1_release1 call debounce_all return switch2_release1 call debounce_all btfsc switch2 ;next command on 0 goto switch2_release1 call debounce_all return semi_force clrf mode bsf semi bsf RED_LED call disable_eyes call trigger_release1 return ;---------------------------eye disable--------------------------------- eye_disabled1 call clear_LEDs movlw 0x02 movwf count3 eye_disabled_loop call one_ms_delay decfsz count2,1 goto eye_disabled_loop decfsz count3,1 goto eye_disabled_loop disable_eyes btfsc eye_disabled ;if enabled then disable goto dry_fire bsf eye_disabled bcf dry_fire_flag bsf RED_LED bcf eyepower movf eyedelay,0 movwf eyedelay_temp ;saves rof setting call ROF_13_force call switch1_release1 call set_LED ;setup LEDs according to mode return dry_fire btfsc dry_fire_flag goto eye_enable bsf dry_fire_flag bsf BLUE_LED movf eyedelay_temp,0 movwf eyedelay ;restores rof setting call switch1_release1 call set_LED ;setup LEDs according to mode return eye_enable bcf dry_fire_flag bcf eye_disabled bsf GREEN_LED bsf eyepower call switch1_release1 call set_LED ;setup LEDs according to mode return ;---------------------------------------------------------------------- ;**************************setup************************************* setup bcf RED_LED movlw 0x09 movwf count3 loop_setup9 decfsz count1,1 ;trigger count for eye disable goto loop_setup9 decfsz count2,1 goto loop_setup9 decfsz count3,1 goto loop_setup9 bsf RED_LED loop_flash_off2_1 decfsz count1,1 goto loop_flash_off2_1 decfsz count2,1 goto loop_flash_off2_1 bcf RED_LED movlw 0x09 movwf count3 loop_setup1 decfsz count1,1 ;trigger count for eye disable goto loop_setup1 decfsz count2,1 goto loop_setup1 btfss switch1 ;next command on 1 goto setup1 ;trigger released, decfsz count3,1 goto loop_setup1 goto setup_flash2 ;trigger held long enough for eye disable setup1 call debounce_all call trigger_release1 call switch1_release1 call switch2_release1 bsf RED_LED ;*******************************ROF*************************** setup_eyedelay_delay btfss trigger goto set_eyedelay btfsc switch1 goto setup_dwell_enter btfsc switch2 goto exit goto setup_eyedelay_delay set_eyedelay bcf RED_LED call debounce_all movlw 0x29 movwf ROF_raw ; movf Eye_delay_real,0 ;eye delay ->w ; sublw 0x6b ;0x6b-w ->w ; movwf eyedelay call trigger_release1 bsf RED_LED inc_eyedelay btfss trigger goto inc_eyedelay_1 btfsc switch1 goto setup_dwell_enter btfsc switch2 goto exit goto inc_eyedelay inc_eyedelay_1 bcf RED_LED call debounce_all decf ROF_raw,1 call trigger_release1 ; call ROF_set bsf RED_LED goto inc_eyedelay ROF_set ROF_9 movf ROF_raw,0 sublw 0x29 btfss Zero goto ROF_10 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x8d ;0x6b-w ->w sublw 0xD3 ;0x6b-w ->w movwf eyedelay return ROF_10 movf ROF_raw,0 sublw 0x28 btfss Zero goto ROF_11 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x7f ;0x6b-w ->w sublw 0xBE ;0x6b-w ->w movwf eyedelay return ROF_11 movf ROF_raw,0 sublw 0x27 btfss Zero goto ROF_12 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x75 ;0x6b-w ->w sublw 0xAF ;0x6b-w ->w movwf eyedelay return ROF_12 movf ROF_raw,0 sublw 0x26 btfss Zero goto ROF_13 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x6b ;0x6b-w ->w sublw 0xA0 ;0x6b-w ->w movwf eyedelay return ROF_13 movf ROF_raw,0 sublw 0x25 btfss Zero goto ROF_14 ROF_13_force movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x62 ;0x6b-w ->w sublw 0x93 ;0x6b-w ->w movwf eyedelay return ROF_14 movf ROF_raw,0 sublw 0x24 btfss Zero goto ROF_15 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x5c ;0x6b-w ->w sublw 0x8A ;0x6b-w ->w movwf eyedelay return ROF_15 movf ROF_raw,0 sublw 0x23 btfss Zero goto ROF_16 ROF_15_force movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x57 ;0x6b-w ->w sublw 0x82 ;0x6b-w ->w movwf eyedelay return ROF_16 movf ROF_raw,0 sublw 0x22 btfss Zero goto ROF_17 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x50 ;0x6b-w ->w sublw 0x78 ;0x6b-w ->w movwf eyedelay return ROF_17 movf ROF_raw,0 sublw 0x21 btfss Zero goto ROF_18 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x4b ;0x6b-w ->w sublw 0x70 ;0x6b-w ->w movwf eyedelay return ROF_18 movf ROF_raw,0 sublw 0x20 btfss Zero goto ROF_19 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x47 ;0x6b-w ->w sublw 0x6A ;0x6b-w ->w movwf eyedelay return ROF_19 movf ROF_raw,0 sublw 0x1f btfss Zero goto ROF_20 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x43 ;0x6b-w ->w sublw 0x64 ;0x6b-w ->w movwf eyedelay return ROF_20 movf ROF_raw,0 sublw 0x1e btfss Zero goto ROF_21 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x40 ;0x6b-w ->w sublw 0x60 ;0x6b-w ->w movwf eyedelay return ROF_21 movf ROF_raw,0 sublw 0x1d btfss Zero goto ROF_22 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x3d ;0x6b-w ->w sublw 0x5B ;0x6b-w ->w movwf eyedelay return ROF_22 movf ROF_raw,0 sublw 0x1c btfss Zero goto ROF_23 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x3a ;0x6b-w ->w sublw 0x57 ;0x6b-w ->w movwf eyedelay return ROF_23 movf ROF_raw,0 sublw 0x1b btfss Zero goto ROF_24 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x38 ;0x6b-w ->w sublw 0x54 ;0x6b-w ->w movwf eyedelay return ROF_24 movf ROF_raw,0 sublw 0x1a btfss Zero goto ROF_25 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x36 ;0x6b-w ->w sublw 0x51 ;0x6b-w ->w movwf eyedelay return ROF_25 movf ROF_raw,0 sublw 0x19 btfss Zero goto ROF_26 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x33 ;0x6b-w ->w sublw 0x4C ;0x6b-w ->w movwf eyedelay return ROF_26 movf ROF_raw,0 sublw 0x18 btfss Zero goto ROF_27 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x31 ;0x6b-w ->w sublw 0x49 ;0x6b-w ->w movwf eyedelay return ROF_27 movf ROF_raw,0 sublw 0x17 btfss Zero goto ROF_28 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x30 ;0x6b-w ->w sublw 0x48 ;0x6b-w ->w movwf eyedelay return ROF_28 movf ROF_raw,0 sublw 0x16 btfss Zero goto ROF_29 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x2f ;0x6b-w ->w sublw 0x46 ;0x6b-w ->w movwf eyedelay return ROF_29 movf ROF_raw,0 sublw 0x15 btfss Zero goto ROF_30 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x2c ;0x6b-w ->w sublw 0x42 ;0x6b-w ->w movwf eyedelay return ROF_30 movf ROF_raw,0 sublw 0x14 btfss Zero goto ROF_31 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x2a ;0x6b-w ->w sublw 0x3f ;0x6b-w ->w movwf eyedelay return ROF_31 movf ROF_raw,0 sublw 0x13 btfss Zero goto ROF_32 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x29 ;0x6b-w ->w sublw 0x3D ;0x6b-w ->w movwf eyedelay return ROF_32 movf ROF_raw,0 sublw 0x12 btfss Zero goto ROF_33 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x28 ;0x6b-w ->w sublw 0x3C ;0x6b-w ->w movwf eyedelay return ROF_33 movf ROF_raw,0 sublw 0x11 btfss Zero goto ROF_34 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x27 ;0x6b-w ->w sublw 0x3b ;0x6b-w ->w movwf eyedelay return ROF_34 movf ROF_raw,0 sublw 0x10 btfss Zero goto ROF_35 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x26 ;0x6b-w ->w sublw 0x3a ;0x6b-w ->w movwf eyedelay return ROF_35 movf ROF_raw,0 sublw 0x0f btfss Zero goto ROF_36 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x25 ;0x6b-w ->w sublw 0x39 ;0x6b-w ->w movwf eyedelay return ROF_36 movf ROF_raw,0 sublw 0x0e btfss Zero goto ROF_37 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x24 ;0x6b-w ->w sublw 0x37 ;0x6b-w ->w movwf eyedelay return ROF_37 movf ROF_raw,0 sublw 0x0d btfss Zero goto ROF_38 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x23 ;0x6b-w ->w sublw 0x35 ;0x6b-w ->w movwf eyedelay return ROF_38 movf ROF_raw,0 sublw 0x0c btfss Zero goto ROF_39 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x22 ;0x6b-w ->w sublw 0x33 ;0x6b-w ->w movwf eyedelay return ROF_39 movf ROF_raw,0 sublw 0x0b btfss Zero goto ROF_40 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x21 ;0x6b-w ->w sublw 0x31 ;0x6b-w ->w movwf eyedelay return ROF_40 movf ROF_raw,0 sublw 0x0a btfss Zero goto ROF_41 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x20 ;0x6b-w ->w sublw 0x2F ;0x6b-w ->w movwf eyedelay return ROF_41 movf ROF_raw,0 sublw 0x09 btfss Zero goto ROF_42 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x1f ;0x6b-w ->w sublw 0x2e ;0x6b-w ->w movwf eyedelay return ROF_42 movf ROF_raw,0 sublw 0x08 btfss Zero goto ROF_43 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x1e ;0x6b-w ->w sublw 0x2d ;0x6b-w ->w movwf eyedelay return ROF_43 movf ROF_raw,0 sublw 0x07 btfss Zero goto ROF_44 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x1d ;0x6b-w ->w sublw 0x2c ;0x6b-w ->w movwf eyedelay return ROF_44 movf ROF_raw,0 sublw 0x06 btfss Zero goto ROF_45 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x1c ;0x6b-w ->w sublw 0x2a ;0x6b-w ->w movwf eyedelay return ROF_45 movf ROF_raw,0 sublw 0x05 btfss Zero goto ROF_46 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x1b ;0x6b-w ->w sublw 0x28 ;0x6b-w ->w movwf eyedelay return ROF_46 movf ROF_raw,0 sublw 0x04 btfss Zero goto ROF_47 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x1a ;0x6b-w ->w sublw 0x27 ;0x6b-w ->w movwf eyedelay return ROF_47 movf ROF_raw,0 sublw 0x03 btfss Zero goto ROF_48 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x19 ;0x6b-w ->w sublw 0x25 ;0x6b-w ->w movwf eyedelay return ROF_48 movf ROF_raw,0 sublw 0x02 btfss Zero goto ROF_49 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x18 ;0x6b-w ->w sublw 0x24 ;0x6b-w ->w movwf eyedelay return ROF_49 movf ROF_raw,0 sublw 0x01 btfss Zero goto ROF_50 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x17 ;0x6b-w ->w sublw 0x23 ;0x6b-w ->w movwf eyedelay return ROF_50 movf Eye_delay_real,0 ;eye delay ->w addwf dwell,0 ; sublw 0x16 ;0x6b-w ->w sublw 0x22 ;0x6b-w ->w movwf eyedelay return ;***************************dwell************************************** setup_dwell_enter bcf RED_LED call switch1_release1 call switch2_release1 bsf GREEN_LED setup_dwell_delay bsf GREEN_LED btfss trigger goto set_dwell btfsc switch1 goto setup_debounce_enter btfsc switch2 goto exit goto setup_dwell_delay set_dwell bcf GREEN_LED movlw 0x01 movwf dwell call trigger_release1 bsf GREEN_LED inc_dwell btfss trigger goto inc_dwell_1 btfsc switch1 goto setup_debounce_enter btfsc switch2 goto exit goto inc_dwell inc_dwell_1 bcf GREEN_LED incf dwell,1 incf dwell,1 call trigger_release1 bsf GREEN_LED call debounce_all goto inc_dwell ;*****************************debounce******************************* setup_debounce_enter bcf GREEN_LED call switch1_release1 call switch2_release1 call debounce_all bsf BLUE_LED setup_debounce_delay btfss trigger goto set_debounce_delay btfsc switch1 goto setup_eye_delay_real_enter btfsc switch2 goto exit goto setup_debounce_delay set_debounce_delay bcf BLUE_LED movlw 0x01 movwf debounce call trigger_release1 bsf BLUE_LED inc_debounce btfss trigger goto inc_debounce_1 btfsc switch1 goto setup_eye_delay_real_enter btfsc switch2 goto exit goto inc_debounce inc_debounce_1 bcf BLUE_LED incf debounce,1 call trigger_release1 bsf BLUE_LED goto inc_debounce ;*****************************eye_delay_real******************************* setup_eye_delay_real_enter call clear_LEDs call switch1_release1 call switch2_release1 call debounce_all call purple_LED setup_eye_delay_real_delay btfss trigger goto set_eye_delay_real_delay btfsc switch1 goto setup_eyetype_enter btfsc switch2 goto exit goto setup_eye_delay_real_delay set_eye_delay_real_delay call clear_LEDs movlw 0x01 movwf Eye_delay_real call trigger_release1 call purple_LED inc_eye_delay_real btfss trigger goto inc_eye_delay_real_1 btfsc switch1 goto setup_eyetype_enter btfsc switch2 goto exit goto inc_eye_delay_real inc_eye_delay_real_1 call clear_LEDs incf Eye_delay_real,1 call trigger_release1 call purple_LED goto inc_eye_delay_real ;********************************ShotQing*******************************8 setup_eyetype_enter call clear_LEDs call switch1_release1 call trigger_release1 call switch2_release1 ; call debounce_all call teal_LED inc_eyetype btfss trigger goto inc_eyetype1 btfsc switch1 goto setup_semi_force_time_enter btfsc switch2 goto exit goto inc_eyetype inc_eyetype1 call clear_LEDs call debounce_all call trigger_release1 ; call debounce_all btfsc eye_type goto set_eyetype_off set_eyetype_on bsf eye_type ;bouncebeam call clear_LEDs ; call debounce_all goto inc_eyetype set_eyetype_off bcf eye_type ;breakbeam call teal_LED ; call debounce_all goto inc_eyetype ;******************************semi_force_time************************** setup_semi_force_time_enter bcf BLUE_LED call switch1_release1 call switch2_release1 call debounce_all call white_LED setup_semi_force_time_delay btfss trigger goto set_semi_force_time_delay btfsc switch1 goto setup_Qing_enter btfsc switch2 goto exit goto setup_semi_force_time_delay set_semi_force_time_delay call clear_LEDs movlw 0x01 movwf semi_force_time call trigger_release1 call white_LED inc_semi_force_time btfss trigger goto inc_semi_force_time_1 btfsc switch1 goto setup_Qing_enter btfsc switch2 goto exit goto inc_semi_force_time inc_semi_force_time_1 call clear_LEDs call debounce_all incf semi_force_time,1 incf semi_force_time,1 call trigger_release1 call white_LED goto inc_semi_force_time ;**************************setup2************************************* setup_flash2 bsf RED_LED call LED_flash bcf RED_LED call LED_flash bsf RED_LED call LED_flash bcf RED_LED movlw 0x09 movwf count3 loop_setup2 call one_ms_delay decfsz count2,1 goto loop_setup2 btfss switch1 ;next command on 1 goto setup2 ;trigger released, decfsz count3,1 goto loop_setup2 ; goto setup_flash3 ;trigger held long enough for eye disable goto setup_flash4 ;trigger held long enough for eye disable setup2 ; bcf RED_LED ; call trigger_release1 ; call switch1_release1 ; call switch2_release1 ; bsf RED_LED ;********************************ShotQing*******************************8 setup_Qing_enter call clear_LEDs call switch1_release1 call trigger_release1 call switch2_release1 ; call debounce_all call teal_LED inc_Qing btfss trigger goto inc_Qing1 btfsc switch1 goto setup_ABS_enter btfsc switch2 goto exit goto inc_Qing inc_Qing1 call clear_LEDs call debounce_all call trigger_release1 ; call debounce_all btfsc shotq_enabled goto set_Qing_off set_Qing_on bsf shotq_enabled call teal_LED ; call debounce_all goto inc_Qing set_Qing_off bcf shotq_enabled call clear_LEDs ; call debounce_all goto inc_Qing ;********************************ABS*******************************8 setup_ABS_enter call clear_LEDs call switch1_release1 call switch2_release1 ; call debounce_all call yellow_LED inc_ABS btfss trigger goto inc_ABS1 btfsc switch1 goto setup_after_nitro_enter btfsc switch2 goto exit goto inc_ABS inc_ABS1 call clear_LEDs call debounce_all bcf abs_enabled_flag clrf abs_time ;first trig pull disables abs call trigger_release1 ;every pull after inc abs call yellow_LED inc_ABS_wait btfss trigger goto inc_ABS_1 btfsc switch1 goto setup_after_nitro_enter btfsc switch2 goto exit goto inc_ABS_wait inc_ABS_1 call clear_LEDs incf abs_time,1 bsf abs_enabled_flag call trigger_release1 call yellow_LED goto inc_ABS ;*****************************after_nitro********************** setup_after_nitro_enter call clear_LEDs call switch1_release1 call switch2_release1 ; call debounce_all call purple_LED setup_after_nitro call purple_LED btfsc after_nitro_LED_flag ;0=purple, 1=after color call after_nitro_color after_nitro_loop1 call one_ms_delay btfss trigger goto after_nitro_change btfsc switch1 goto setup_trig_speed_enter btfsc switch2 goto exit decfsz count2,1 goto after_nitro_loop1 call clear_LEDs after_nitro_loop2 call one_ms_delay btfss trigger goto after_nitro_change btfsc switch1 goto setup_trig_speed_enter btfsc switch2 goto exit decfsz count2,1 goto after_nitro_loop2 btfsc after_nitro_LED_flag ;if flag 1 then set to 0 goto clear_nitro_flag bsf after_nitro_LED_flag goto setup_after_nitro clear_nitro_flag bcf after_nitro_LED_flag goto setup_after_nitro after_nitro_change call trigger_release1 btfsc after_nitro_psp bsf after_nitro_nxl ; bcf after_nitro_psp ; not used because of wrap around btfsc after_nitro_milen bsf after_nitro_psp bcf after_nitro_milen btfsc after_nitro_full bsf after_nitro_milen bcf after_nitro_full btfsc after_nitro_burst bsf after_nitro_full bcf after_nitro_burst btfsc after_nitro_rt bsf after_nitro_burst bcf after_nitro_rt btfsc after_nitro_semi bsf after_nitro_rt bcf after_nitro_semi btfsc after_nitro_nxl goto nxl_set goto setup_after_nitro nxl_set btfsc after_nitro_psp goto clear_psp set_semi bsf after_nitro_semi bcf after_nitro_nxl goto setup_after_nitro clear_psp bcf after_nitro_psp goto setup_after_nitro after_nitro_color call clear_LEDs btfsc after_nitro_semi bsf RED_LED btfsc after_nitro_rt bsf GREEN_LED btfsc after_nitro_burst bsf BLUE_LED btfsc after_nitro_nxl goto after_nitro_teal_LED btfsc after_nitro_psp goto after_nitro_yellow_LED btfsc after_nitro_nitro goto after_nitro_purple_LED btfsc after_nitro_full goto after_nitro_white_LED btfsc after_nitro_milen bsf RED_LED return after_nitro_teal_LED ;teal bsf GREEN_LED bsf BLUE_LED return after_nitro_yellow_LED ;yellow bsf GREEN_LED bsf RED_LED return after_nitro_purple_LED ;purple bsf RED_LED bsf BLUE_LED return after_nitro_white_LED ;white bsf RED_LED bsf GREEN_LED bsf BLUE_LED return ;***********************setup3******************************************** setup_flash3 bsf RED_LED call LED_flash bcf RED_LED call LED_flash bsf RED_LED call LED_flash bcf RED_LED call LED_flash bsf RED_LED call LED_flash bcf RED_LED movlw 0x09 movwf count3 loop_setup3 call one_ms_delay decfsz count2,1 goto loop_setup3 btfss switch1 ;next command on 1 goto setup3 ;trigger released, decfsz count3,1 goto loop_setup3 goto setup_flash4 ;trigger held long enough for eye disable ;**********************************setup2********************************* setup3 ; bcf RED_LED ; call switch1_release1 ; call switch2_release1 ; call debounce_all ; bsf RED_LED ;----------------------------trig Speed------------------------------------- setup_trig_speed_enter call clear_LEDs call switch1_release1 call trigger_release1 call switch2_release1 bsf RED_LED setup_trig_speed btfss trigger goto set_trig_speed btfsc switch1 goto setup_ramp_pulls_enter btfsc switch2 goto exit goto setup_trig_speed set_trig_speed call clear_LEDs call debounce_all movlw 0xFF ;5bps movwf trig_speed call trigger_release1 bsf RED_LED inc_trig_speed btfss trigger goto inc_trig_speed_1 btfsc switch1 goto setup_ramp_pulls_enter btfsc switch2 goto exit goto inc_trig_speed inc_trig_speed_1 call clear_LEDs decf trig_speed,1 decf trig_speed,1 decf trig_speed,1 decf trig_speed,1 decf trig_speed,1 decf trig_speed,1 decf trig_speed,1 decf trig_speed,1 call trigger_release1 bsf RED_LED ; call debounce_all goto inc_trig_speed ;----------------------------time to ramp------------------------------------- setup_ramp_pulls_enter call clear_LEDs call switch1_release1 call switch2_release1 bsf BLUE_LED setup_ramp_pulls btfss trigger goto set_ramp_pulls btfsc switch1 goto setup_training_enter btfsc switch2 goto exit goto setup_ramp_pulls set_ramp_pulls bcf BLUE_LED call debounce_all movlw 0x02 movwf ramp_pulls call trigger_release1 bsf BLUE_LED inc_ramp_pulls btfss trigger goto inc_ramp_pulls_1 btfsc switch1 goto setup_training_enter btfsc switch2 goto exit goto inc_ramp_pulls inc_ramp_pulls_1 bcf BLUE_LED incf ramp_pulls,1 call trigger_release1 bsf BLUE_LED ; call debounce_all goto inc_ramp_pulls ;********************************training*******************************8 setup_training_enter call clear_LEDs call switch1_release1 call trigger_release1 call switch2_release1 ; call debounce_all call teal_LED inc_training btfss trigger goto inc_training1 btfsc switch1 goto setup_tdwell_enter btfsc switch2 goto exit goto inc_training inc_training1 call clear_LEDs call debounce_all call trigger_release1 ; call debounce_all btfsc training_enabled goto set_training_off set_training_on bsf training_enabled call teal_LED ; call debounce_all goto inc_training set_training_off bcf training_enabled call clear_LEDs ; call debounce_all goto inc_training ;***************************dwell************************************** setup_tdwell_enter call clear_LEDs call switch1_release1 call switch2_release1 setup_tdwell_delay bsf GREEN_LED btfss trigger goto set_tdwell btfsc switch1 goto setup_Auto_off_enter btfsc switch2 goto exit goto setup_tdwell_delay set_tdwell bcf GREEN_LED movlw 0x01 movwf training_dwell call trigger_release1 bsf GREEN_LED inc_tdwell btfss trigger goto inc_tdwell_1 btfsc switch1 goto setup_Auto_off_enter btfsc switch2 goto exit goto inc_tdwell inc_tdwell_1 bcf GREEN_LED incf training_dwell,1 incf training_dwell,1 call trigger_release1 bsf GREEN_LED call debounce_all goto inc_tdwell ;********************************auto off******************************** setup_Auto_off_enter call clear_LEDs call switch1_release1 call trigger_release1 call switch2_release1 ; call debounce_all call white_LED inc_Auto_off btfss trigger goto inc_Auto_off1 btfsc switch1 goto setup_Instant_ON_enter btfsc switch2 goto exit goto inc_Auto_off inc_Auto_off1 call clear_LEDs call debounce_all call trigger_release1 ; call debounce_all btfsc Auto_off_enabled ;set Auto off enabled goto set_Auto_off_off set_Auto_off_on bsf Auto_off_enabled call white_LED ; call debounce_all goto inc_Auto_off set_Auto_off_off bcf Auto_off_enabled call clear_LEDs ; call debounce_all goto inc_Auto_off ;********************************Instant_ON******************************** setup_Instant_ON_enter call clear_LEDs call switch1_release1 call trigger_release1 call switch2_release1 ; call debounce_all call purple_LED inc_Instant_ON btfss trigger goto inc_Instant_ON1 btfsc switch1 goto exit btfsc switch2 goto exit goto inc_Instant_ON inc_Instant_ON1 call clear_LEDs call debounce_all call trigger_release1 ; call debounce_all btfsc Instant_ON_enabled ;set Instant_ON enabled goto set_Instant_ON_off set_Instant_ON_on bsf Instant_ON_enabled call purple_LED ; call debounce_all goto inc_Instant_ON set_Instant_ON_off bcf Instant_ON_enabled call clear_LEDs ; call debounce_all goto inc_Instant_ON ;***************************setup4-restore defaults*************************** setup_flash4 bsf RED_LED call LED_flash bcf RED_LED call LED_flash bsf RED_LED call LED_flash bcf RED_LED call LED_flash bsf RED_LED call LED_flash bcf RED_LED ; call LED_flash ; bcf RED_LED ; call LED_flash ; bsf RED_LED movlw 0x09 movwf count3 loop_setup4 call one_ms_delay decfsz count2,1 goto loop_setup4 btfss switch1 ;next command on 1 goto setup4 ;trigger released, decfsz count3,1 goto loop_setup4 goto eye_align ;trigger held long enough for eye disable setup4 call debounce_all bsf RED_LED restore_default ;------------------------------------------------------ ; movlw 0x2a; ;22ms 0x22 34ms movlw 0x0f; movwf dwell movlw 0x23 movwf ROF_raw ; movlw 0x27 ;0x27 14.9bps movlw 0x3A ;0x27 14.9bps movwf eyedelay ;ROF movlw 0x10 movwf Eye_delay_real ;ROF movlw 0x08 movwf debounce movlw 0x08 movwf semi_force_time ;---------------------ramping------------------------------ movlw 0xFF movwf trig_speed movwf trig_speed_tmp ;minimum trigger pull speed. movlw 0x04 ;four pull to start ramp movwf ramp_pulls ;---------------------shotq'ing bsf shotq_enabled ;shotq'ing ON bcf eye_type ;breakbeam ;------------------Nitro-------------------------- movlw 0x01 movwf after_nitro ;semi ;-----------------------ABS------------------------- bcf abs_enabled_flag ;1 if abs is enabled ; movlw 0x10 ;add 16ms to dwell movlw 0x18 ;add 16ms to dwell movwf abs_time clrf mode bsf semi bcf training_enabled movlw 0x18 movwf training_dwell bcf Auto_off_enabled ;Auto off diabled bcf Instant_ON_enabled ;Auto off enabled ;---------------------------------------------------- ;***********************write to mem and exit*************************** exit call ROF_set bsf GREEN_LED call trigger_release1 call switch1_release1 call debounce_all bcf GREEN_LED call disco movlw 0x00 movwf tmp_addr movf dwell,W call writee ; call debounce_all movlw 0x05 movwf tmp_addr movf eyedelay,W call writee ; call debounce_all movlw 0x10 movwf tmp_addr movf debounce,W call writee ; call debounce_all movlw 0x15 movwf tmp_addr movf semi_force_time,W call writee ; call debounce_all ; movlw 0x20 ; movwf tmp_addr ; movf shotq_enabled,W ; call writee ; call debounce_all movlw 0x25 movwf tmp_addr movf after_nitro,W call writee ; call debounce_all movlw 0x30 movwf tmp_addr movf flags,W call writee ; call debounce_all movlw 0x35 movwf tmp_addr movf abs_time,W call writee ; call debounce_all movlw 0x40 movwf tmp_addr movf Eye_delay_real,W call writee movlw 0x45 movwf tmp_addr movf training_dwell,W call writee movlw 0x1A movwf tmp_addr movf mode,W call writee movlw 0x2A movwf tmp_addr movf trig_speed,W call writee movlw 0x3A movwf tmp_addr movf ramp_pulls,W call writee ; goto mem goto init writee movwf tmp bsf STATUS,RP0 movwf EEDATA bcf STATUS,RP0 movf tmp_addr,W bsf STATUS,RP0 movwf EEADR bcf STATUS, RP0 ee_write bsf STATUS, RP0 bsf EECON1,WREN bcf INTCON,GIE btfsc INTCON, GIE goto $-2 movlw 0x55 movwf EECON2 movlw 0xAA movwf EECON2 bsf EECON1,WR bsf INTCON,GIE ee_writewr bsf STATUS, RP0 ;added clrwdt btfsc EECON1,WR goto ee_writewr bcf EECON1,WREN bcf STATUS, RP0 ;added movf tmp_addr,W call readee subwf tmp,W skpnz return bsf STATUS,RP0 goto ee_write readee bsf STATUS,RP0 movwf EEADR bsf EECON1,RD movf EEDATA,W bcf STATUS,RP0 return ;eye alignment tool___________________________________________________ eye_align bsf RED_LED call switch1_release1 call switch2_release1 bsf eyepower bcf RED_LED loop_eye btfsc switch2 ;push switch2 goto off_on btfss eyeout ;next command on 0 goto eye_on ;pull trigger goto eye_off eye_on bcf GREEN_LED goto loop_eye ;eye is NOT active eye_off bsf GREEN_LED ;eye is active goto loop_eye ;eye blocked, fire off_on3 bsf RED_LED movlw 0x06 movwf count3 loop_off_on3 call one_ms_delay btfss switch2 ;safe mode if trigger released goto eye_align decfsz count2,1 goto loop_off_on3 decfsz count3,1 goto loop_off_on3 bcf RED_LED goto wait_release LED_flash loop_LED_flash call one_ms_delay decfsz count2,1 goto loop_LED_flash return one_sec_delay call one_sec_delay decfsz count2,1 goto one_sec_delay return one_ms_delay movlw 0xAA movwf count1 one_ms_fire_delay_loop decfsz count1,1 goto one_ms_fire_delay_loop return ;----------------------------off/safety------------------------- off call clear_LEDs bsf GREEN_LED call debounce_all movlw 0x04 movwf count3 loop_off call one_ms_delay btfss switch2 ;safe mode if trigger released goto safe decfsz count2,1 goto loop_off decfsz count3,1 goto loop_off bcf GREEN_LED goto wait_release safe call clear_LEDs bcf eyepower call debounce_all safe_loop bsf GREEN_LED call safe_blink bcf GREEN_LED call safe_blink goto safe_loop safe_blink movlw 0x40 movwf count2 safe_blink_loop call one_ms_delay btfsc switch2 ;leave safe mode goto off_on decfsz count2,1 goto safe_blink_loop return off_on movlw 0x06 movwf count3 loop_off_on1 call one_ms_delay btfss switch2 ; goto main_release decfsz count2,1 goto loop_off_on1 decfsz count3,1 goto loop_off_on1 bcf RED_LED bcf GREEN_LED call switch2_release1 goto wait_release ;------------------------------------------------------------- clear_LEDs ;turns all LEDs off bcf RED_LED bcf GREEN_LED bcf BLUE_LED return ;-------------------set the LEDs--------------------------- set_LED call clear_LEDs btfsc semi bsf RED_LED btfsc rt bsf GREEN_LED btfsc burst bsf BLUE_LED btfsc nxl goto teal_LED btfsc psp goto yellow_LED btfsc nitro goto purple_LED btfsc full goto white_LED btfsc milen bsf RED_LED return teal_LED ;teal bsf GREEN_LED bsf BLUE_LED return yellow_LED ;yellow bsf GREEN_LED bsf RED_LED return purple_LED ;purple bsf RED_LED bsf BLUE_LED return white_LED ;white bsf RED_LED bsf GREEN_LED bsf BLUE_LED return ;-----------------------disco-------------------------------- disco call clear_LEDs call safe_blink call safe_blink bsf RED_LED call safe_blink call safe_blink call clear_LEDs bsf GREEN_LED call safe_blink call safe_blink call clear_LEDs bsf BLUE_LED call safe_blink call safe_blink call clear_LEDs call teal_LED call safe_blink call safe_blink call clear_LEDs call yellow_LED call safe_blink call safe_blink call clear_LEDs call purple_LED call safe_blink call safe_blink call clear_LEDs call white_LED call safe_blink call safe_blink call clear_LEDs return ;-------------------set the modes--------------------------- change_mode call disco change_mode1 call clear_LEDs call trigger_release1 call set_LED mode_change_loop btfsc switch2 goto mode_save btfsc trigger goto mode_change_loop call debounce_all movlw 0x08 movwf count3 ;wait 8 x 256 ms mode_change_timeout call one_ms_delay btfsc trigger goto next_mode decfsz count2,1 goto mode_change_timeout decfsz count3,1 goto mode_change_timeout goto mode_save next_mode btfsc semi goto mode_rt btfsc rt goto mode_burst btfsc burst goto mode_full btfsc full goto mode_milen btfsc milen goto mode_nitro btfsc nitro goto mode_psp btfsc psp goto mode_nxl btfsc nxl ;goto semi mode_semi clrf mode bsf semi goto change_mode1 mode_rt clrf mode bsf rt goto change_mode1 mode_burst clrf mode bsf burst goto change_mode1 mode_full clrf mode bsf full goto change_mode1 mode_milen clrf mode bsf milen goto change_mode1 mode_nitro clrf mode bsf nitro goto change_mode1 mode_nxl clrf mode bsf nxl goto change_mode1 mode_psp clrf mode bsf psp goto change_mode1 mode_save movlw 0x1A movwf tmp_addr movf mode,W call writee call debounce_all call clear_LEDs call trigger_release1 call disco goto init end