Re: Controlling OG-4 Decathron with PBP in an efficient way.
Here's fixed code. Besides code, you need also 10k pulldown resistors from transistor bases to GND.
Code:;----[12F683 Hardware Configuration]-------------------------------------------- #IF __PROCESSOR__ = "12F683" #DEFINE MCU_FOUND 1 #CONFIG cfg = _INTOSCIO ; INTOSCIO oscillator: I/O function on RA4/OSC2/CLKOUT pin, I/O function on RA5/OSC1/CLKIN cfg&= _WDT_OFF ; WDT disabled cfg&= _PWRTE_OFF ; PWRT disabled cfg&= _MCLRE_OFF ; MCLR pin function is digital input, MCLR internally tied to VDD cfg&= _CP_OFF ; Program memory code protection is disabled cfg&= _CPD_OFF ; Data memory code protection is disabled cfg&= _BOD_OFF ; BOR disabled cfg&= _IESO_ON ; Internal External Switchover mode is enabled cfg&= _FCMEN_ON ; Fail-Safe Clock Monitor is enabled __CONFIG cfg #ENDCONFIG #ENDIF ;----[Verify Configs have been specified for Selected Processor]---------------- ; Note: Only include this routine once, after all #CONFIG blocks #IFNDEF MCU_FOUND #ERROR "No CONFIGs found for [" + __PROCESSOR__ +"]" #ENDIF ANSEL = %00000000 'disable analog CMCON0 = 7 'disable comparators TRISIO=%00001000 'input config OSCCON = %01110111 'Include "Modedefs.bas" Define OSC 8 ' Set Xtal Frequency ' Clk Var GPIO.5 ' Data is clocked on rising edge of this pin kviteli ' Dta Var GPIO.4 ' Bits are shifted out of this pin stafilosferi ZERO var GPIO.0 ONE VAR GPIO.4 TWO VAR GPIO.1 TRE VAR GPIO.2 cik var byte 'loop variable x var byte 'delay variable increment var byte 'incremental variable lop var byte 'also variable increment=0 'temp sub var byte 'intracounter variable sub=9 x=22 '22 x and 295 y for 30 second loop y var word 'showdelay 44 and 590 for 1 minute loop y=295 pause 500 'INIT tube and reset to 0 'x=2000 inika: LOW ONE LOW TWO LOW TRE HIGH ZERO PAUSE x high one LOW ZERO pause x high two low one pause x high tre low two pause x high zero low tre pause x low zero koka: if GPIO.3=0 THEN low tre low two low one high zero pause x low zero goto tavi ENDIF pause 1 GOTO KOKA tavi: 'stage 1______________________________________________ 'high zero 'pause x 'low zero sub=9 gosub sub9 high one 'proper finish? one and two pause x low one high two pause x low two high zero Pause Y'delay for display low zero sta2: 'stage 2 ______________________________________________ gosub sub9 gosub subzero Pause Y low one 'stage 3____________________________________________ gosub sub9 gosub subzero pause x high two low one Pause Y high tre low two pause x low tre 'stage 4____________________________________________ sub=8 gosub sub9 gosub subzero gosub sub2 Pause Y low tre 'stage 5____________________________________________ gosub sub9 gosub subzero gosub sub2 pause x high one low tre Pause Y low one 'stage 6____________________________________________ gosub sub9 gosub subzero gosub sub2 pause x high one low tre pause x high two low one Pause Y high tre low two 'stage 7____________________________________________ pause x low tre sub=7 gosub sub9 gosub subzero gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two Pause Y low tre 'stage 8____________________________________________ gosub sub9 gosub subzero gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre Pause Y low one 'stage 9____________________________________________ 'X=100 gosub sub9 gosub subzero gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre pause x high two low one Pause Y high tre low two pause x 'stage 10____________________________________________ low tre sub=6 gosub sub9 gosub subzero gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre pause x high two low one pause x high tre low two Pause Y low tre 'stage 11____________________________________________ low tre sub=6 gosub sub9 gosub subzero pause x high two low one pause x high tre low two pause x gosub sub1 high one low tre Pause Y low ONE 'stage 12____________________________________________ low tre sub=6 gosub sub9 gosub subzero pause x high two low one pause x high tre low two pause x gosub sub1 high one low tre pause x high two low ONE Pause Y low two 'stage 13____________________________________________ high tre pause x low tre sub=5 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre pause x high two low ONE pause x high tre low two Pause Y low tre 'stage 14____________________________________________ sub=5 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre pause x high two low ONE pause x high tre low two pause x high one low tre Pause Y low one 'stage 15____________________________________________ sub=5 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x high one low tre pause x high two low one Pause Y low two 'stage 16____________________________________________ high tre pause x low tre sub=4 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two Pause Y low tre 'stage 17____________________________________________ sub=4 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre Pause Y low one 'stage 18____________________________________________ sub=4 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre pause x high two low one Pause Y low two 'stage 19____________________________________________ high tre pause x low tre sub=3 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre pause x high two low one pause x high tre low two Pause Y low tre 'stage 20____________________________________________ sub=3 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre pause x high two low one pause x high tre low two pause x high one low tre Pause Y low one 'stage 21____________________________________________ sub=3 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 high one low tre pause X high two low one Pause Y low two 'stage 22____________________________________________ high tre pause x low tre sub=2 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 high one low tre pause X high two low one pause x high tre low two Pause Y low tre 'stage 23____________________________________________ sub=2 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 high one low tre gosub sub2 pause X high one low tre Pause Y low one 'stage 24____________________________________________ sub=2 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 high one low tre gosub sub2 pause X high one low tre pause X high two low one Pause Y low two 'stage 25____________________________________________ high tre pause x low tre sub=1 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 high one low tre gosub sub2 pause X high one low tre pause X high two low one pause x high tre low two Pause Y low tre 'stage 26____________________________________________ sub=1 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 gosub sub1 high one low tre Pause Y low one 'stage 27____________________________________________ sub=1 gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 gosub sub1 high one low tre pause x high two low one Pause Y low two 'stage 28____________________________________________ high tre pause x low tre 'sub=1 'gosub sub9 gosub subzero gosub sub2 pause x '----- gosub sub1 '------ high one low tre gosub sub2 pause x gosub sub1 gosub sub1 high one low tre pause x high two low one pause x high tre low two Pause Y low tre 'x=400 'stage 29____________________________________________ high one pause x high two low one pause x high zero low two pause x low zero sub=9 gosub sub9 high one Pause Y low one 'x=400 'stage 30____________________________________________ high two pause x high zero low two pause x low zero sub=9 gosub sub9 high one pause x high two low one Pause Y low two 'stage 31____________________________________________ high zero pause x low zero sub=9 gosub sub9 high one 'proper finish? one and two pause x low one high two pause x low two high zero Pause Y 'low zero goto koka sub9: 'subroutine for spinning for cik=1 to sub 'amount needed for full loop high one pause x high two low one pause x high tre low two pause x low tre next return subzero: high one 'proper finish? one and two pause x high two low one pause x high zero low two pause x'delay for display high one low zero 'subzero here return sub1: 'smaller sub high one low tre pause x high two low one pause x high tre low two pause x high one low tre pause x high two low one pause x high tre low two pause x return sub2: 'even smaller sub pause x high two low one pause x high tre low two return
Bookmarks