list p=12F508 ; list directive to define processor #include ; processor specific variable definitions __CONFIG _MCLRE_OFF & _CP_OFF & _WDT_OFF & _IntRC_OSC ; GP3/MCLR is I/O pin ; Code protect off ; Watchdog timer off cblock 0x07 delay.loop.in delay.loop.out switch.timer hold.timer led.state mode index index.base mask endc ; Name bits pb.switch equ 3 ; port bit for switch pb.led1 equ 1 ; port bit for LED1 multiplex equ 7 ; multiplex flag bit pson equ 1<2 addwf switch.timer,W clrf switch.timer ; always reset the timer to 0 skpc ; timer value greater than filer so run switch.pressed function goto lights ; timer value less than filter so just run light function ;------------------------------ ; This code will run once after the switch is released following a valid press incf mode,F ; increment state call max.mode ; compare it to highest mode subwf mode,W ; skpnc ; skip next if state less than highest mode clrf mode ; otherwise reset back to state 0 call select.mode ; lookup start address of table data for next mode movwf index ; save start address to index movwf index.base ; and also to index.base goto reload ; jump straight to reload to setup start of new mode ; LED function select ;------------------------------ ; While switch is down, increment switch.timer ; If it reaches 100 (20mS x 100 = 2S) then turn off and sleep ; otherwise continue to run the normal lights function code. switch.down btfsc switch.timer,1 ; if we wake from sleep, this bit is set goto lights ; so we don't select the next mode each time it wakes. incf switch.timer,F movlw -.100 addwf switch.timer,W skpc goto lights ; Switch held for 2S so turn off clrf GPIO clrf led.state btfss GPIO, pb.switch goto $-1 call delay movf GPIO,W bcf STATUS, GPWUF sleep ;-------------------------------------------------------- ; standard inner/outer counter loop delay ; 4Mhz clock / delay movlw .26 ; gives delay of ~20.2mS movwf delay.loop.out ; inner loop delay.loop decfsz delay.loop.in,F ; loop for 255 iterations goto $-1 ; multiplex the LED drive to improve battery life ; multiplex bit in the LED data determines whether only the masked led.state LED ; is riven or the led.state is output directly to GPIO. ; For light effects where only single LED is on, or where you want the brightness over power saving ; there is no need to multiplex the LED. To reduce battery load use multiplex drive rrf mask,F skpnc bsf mask,2 movfw mask andwf led.state,W btfss led.state, multiplex ; if multiplex flag bit clear movfw led.state ; don't multiplex the LED drive movwf GPIO ; outer loop decfsz delay.loop.out,F goto delay.loop retlw 0x00 ;------------------------------ ; Indexed table lookup function lights decfsz hold.timer,F ; decrement the led timer goto main ; loop until it reaches zero reload call lookup ; lookup next led timer value movwf hold.timer ; and save iorlw 0x00 ; test if it was 0? skpnz ; if not skip next goto reset.index ; if it was goto reset.index call lookup ; lookup next led data movwf led.state ; and save goto main ; otherwise we keep going with the next data in the sequence reset.index movfw index.base ; load the base.index value into W movwf index ; and put in the working index goto reload ; then reload with the first line of data in the sequence lookup movfw index ; take the absolute address held in index and put in W incf index,F ; then index = index+1 ready for next line of data movwf PCL ; and put W into PCL. This will force program execution ; to start from the address held in index (which will be a ; retlw 0x00 instruction in the sequence data table) if ($>0xFE) error "Code found in upper 256 program memory words, see notes at top of this .ASM file" endif end