K8048 - 16F627 programming

mathikrol · November 6, 2014, 2:17am

Hi!

I have k8048 set and I’m using PIC16F727. I’v wrote a program which:

Gives a base LED sequence at startup.
At the press of a switch it goes to a different LED sequence. It executes this sequence ten times and goes back to base sequence.
Each switch gives different LED sequence.

Questions:

With the program I’ve got I have to wait for the program to execute every sequence ten times before I can start another one. How can I write the program in a way so it will interrupt ongoing sequence?
Is there a way to make this program simpler (possibly by using more advanced commends) hence taking less memory?

Thank you guys!
Matt

Source code:
pastebin.com/eXcxtrqY

VEL417 · November 6, 2014, 9:07am

I’m sure you’ll understand that we are unable to assist with writing and debugging custom code, but hopefully a forum member will assist with this matter.

BRUSHLESS_333 · November 7, 2014, 6:01pm

Hello there !

I think you need this:
;**************************************************************************
;* VELLEMAN High-Q KIT K8048 SAMPLE SOFTWARE *
;**************************************************************************
;* K8048 Microchip PIC™ Programmer / tutor KIT *
;* DEMO2 program for testing K8048 with PIC16F627(A)! *
;* Generate 4 LED light effects, you can select these with SW1…4 *
;**************************************************************************
;* © VELLEMAN Components,2003 All rights reserved *
;**************************************************************************
;* Hardw. Rev: P8048’1 Softw. Rev: 1.01 *
;* OSC…: XT 4MHz Max. POWER…: 15V DC *
;**************************************************************************

W EQU H’0000’
F EQU H’0001’

;----- Register Files------------------------------------------------------

INDF EQU H’0000’
TMR0 EQU H’0001’
PCL EQU H’0002’
STATUS EQU H’0003’
FSR EQU H’0004’
PORTA EQU H’0005’
PORTB EQU H’0006’
PCLATH EQU H’000A’
INTCON EQU H’000B’
PIR1 EQU H’000C’
TMR1L EQU H’000E’
TMR1H EQU H’000F’
T1CON EQU H’0010’
TMR2 EQU H’0011’
T2CON EQU H’0012’
CCPR1L EQU H’0015’
CCPR1H EQU H’0016’
CCP1CON EQU H’0017’
RCSTA EQU H’0018’
TXREG EQU H’0019’
RCREG EQU H’001A’
CMCON EQU H’001F’

OPTION_REG EQU H’0081’
TRISA EQU H’0085’
TRISB EQU H’0086’
PIE1 EQU H’008C’
PCON EQU H’008E’
PR2 EQU H’0092’
TXSTA EQU H’0098’
SPBRG EQU H’0099’
EEDATA EQU H’009A’
EEADR EQU H’009B’
EECON1 EQU H’009C’
EECON2 EQU H’009D’
VRCON EQU H’009F’

;----- STATUS Bits --------------------------------------------------------

IRP EQU H’0007’
RP1 EQU H’0006’
RP0 EQU H’0005’
NOT_TO EQU H’0004’
NOT_PD EQU H’0003’
Z EQU H’0002’
DC EQU H’0001’
C EQU H’0000’

;----- INTCON Bits --------------------------------------------------------

GIE EQU H’0007’
PEIE EQU H’0006’
T0IE EQU H’0005’
INTE EQU H’0004’
RBIE EQU H’0003’
T0IF EQU H’0002’
INTF EQU H’0001’
RBIF EQU H’0000’

;----- PIR1 Bits ----------------------------------------------------------

EEIF EQU H’0007’
CMIF EQU H’0006’
RCIF EQU H’0005’
TXIF EQU H’0004’
CCP1IF EQU H’0002’
TMR2IF EQU H’0001’
TMR1IF EQU H’0000’

;----- T1CON Bits ---------------------------------------------------------
T1CKPS1 EQU H’0005’
T1CKPS0 EQU H’0004’
T1OSCEN EQU H’0003’
NOT_T1SYNC EQU H’0002’
TMR1CS EQU H’0001’
TMR1ON EQU H’0000’

;----- T2CON Bits ---------------------------------------------------------
TOUTPS3 EQU H’0006’
TOUTPS2 EQU H’0005’
TOUTPS1 EQU H’0004’
TOUTPS0 EQU H’0003’
TMR2ON EQU H’0002’
T2CKPS1 EQU H’0001’
T2CKPS0 EQU H’0000’

;----- CCP1CON Bits ---------------------------------------------------------
CCP1X EQU H’0005’
CCP1Y EQU H’0004’
CCP1M3 EQU H’0003’
CCP1M2 EQU H’0002’
CCP1M1 EQU H’0001’
CCP1M0 EQU H’0000’

;----- RCSTA Bits ---------------------------------------------------------
SPEN EQU H’0007’
RX9 EQU H’0006’
SREN EQU H’0005’
CREN EQU H’0004’
ADEN EQU H’0003’
FERR EQU H’0002’
OERR EQU H’0001’
RX9D EQU H’0000’

;----- CMCON Bits ---------------------------------------------------------

C2OUT EQU H’0007’
C1OUT EQU H’0006’
C2INV EQU H’0005’
C1INV EQU H’0004’
CIS EQU H’0003’
CM2 EQU H’0002’
CM1 EQU H’0001’
CM0 EQU H’0000’

;----- OPTION Bits --------------------------------------------------------

NOT_RBPU EQU H’0007’
INTEDG EQU H’0006’
T0CS EQU H’0005’
T0SE EQU H’0004’
PSA EQU H’0003’
PS2 EQU H’0002’
PS1 EQU H’0001’
PS0 EQU H’0000’

;----- PIE1 Bits ----------------------------------------------------------

EEIE EQU H’0007’
CMIE EQU H’0006’
RCIE EQU H’0005’
TXIE EQU H’0004’
CCP1IE EQU H’0002’
TMR2IE EQU H’0001’
TMR1IE EQU H’0000’

;----- PCON Bits ----------------------------------------------------------

OSCF EQU H’0003’
NOT_POR EQU H’0001’
NOT_BO EQU H’0000’
NOT_BOR EQU H’0000’
NOT_BOD EQU H’0000’

;----- TXSTA Bits ----------------------------------------------------------
CSRC EQU H’0007’
TX9 EQU H’0006’
TXEN EQU H’0005’
SYNC EQU H’0004’
BRGH EQU H’0002’
TRMT EQU H’0001’
TX9D EQU H’0000’

;----- EECON1 Bits ---------------------------------------------------------
WRERR EQU H’0003’
WREN EQU H’0002’
WR EQU H’0001’
RD EQU H’0000’

;----- VRCON Bits ---------------------------------------------------------

VREN EQU H’0007’
VROE EQU H’0006’
VRR EQU H’0005’
VR3 EQU H’0003’
VR2 EQU H’0002’
VR1 EQU H’0001’
VR0 EQU H’0000’

;==========================================================================
;
; RAM Definition
;
;==========================================================================

__MAXRAM H'01FF'
__BADRAM H'07'-H'09', H'0D', H'13'-H'14', H'1B'-H'1E'
__BADRAM H'87'-H'89', H'8D', H'8F'-H'91', H'93'-H'97', H'9E'
__BADRAM H'105', H'107'-H'109', H'10C'-H'11F', H'150'-H'16F'
__BADRAM H'185', H'187'-H'189', H'18C'-H'1EF'

;==========================================================================
;
; Configuration Bits
;
;==========================================================================

_BODEN_ON EQU H’3FFF’
_BODEN_OFF EQU H’3FBF’
_CP_ALL EQU H’03FF’
_CP_75 EQU H’17FF’
_CP_50 EQU H’2BFF’
_CP_OFF EQU H’3FFF’
_DATA_CP_ON EQU H’3EFF’
_DATA_CP_OFF EQU H’3FFF’
_PWRTE_OFF EQU H’3FFF’
_PWRTE_ON EQU H’3FF7’
_WDT_ON EQU H’3FFF’
_WDT_OFF EQU H’3FFB’
_LVP_ON EQU H’3FFF’
_LVP_OFF EQU H’3F7F’
_MCLRE_ON EQU H’3FFF’
_MCLRE_OFF EQU H’3FDF’
_ER_OSC_CLKOUT EQU H’3FFF’
_ER_OSC_NOCLKOUT EQU H’3FFE’
_INTRC_OSC_CLKOUT EQU H’3FFD’
_INTRC_OSC_NOCLKOUT EQU H’3FFC’
_EXTCLK_OSC EQU H’3FEF’
_LP_OSC EQU H’3FEC’
_XT_OSC EQU H’3FED’
_HS_OSC EQU H’3FEE’

__CONFIG        _BODEN_ON & _CP_OFF & _DATA_CP_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _MCLRE_ON & _XT_OSC

;==========================================================================
; Variable Definition
;==========================================================================
;INPUTS
SW1 EQU H’00’ ;SW1 is triggering RA0
SW2 EQU H’01’ ;SW2 is triggering RA1
SW3 EQU H’02’ ;SW3 is triggering RA2
SW4 EQU H’03’ ;SW4 is triggering RA3
TIMER1 EQU H’20’ ;Used in delay routine
TIMER2 EQU H’21’ ; " " "
PATERN EQU H’22’ ;Pattern data for effect’s

	ORG	0		;Reset vector address
	GOTO	RESET		;goto RESET routine when boot.

; *********************************************
; * Example of a delay routine *
; *********************************************

DELAY_ROUTINE MOVLW D’100’ ;54 Generate approx 10mS delay at 4Mhz CLK
MOVWF TIMER2
DEL_LOOP1 MOVLW D’100’ ;60
MOVWF TIMER1
DEL_LOOP2 BTFSC PORTA,SW1
GOTO MENU
BTFSC PORTA,SW2
GOTO MENU
BTFSC PORTA,SW3
GOTO MENU
BTFSC PORTA,SW4
GOTO MENU
DECFSZ TIMER1,F
GOTO DEL_LOOP2
DECFSZ TIMER2,F
GOTO DEL_LOOP1
RETLW 0

; **********************************
; ** RESET : main boot routine **
; **********************************

RESET MOVLW B’00000111’ ;Disable Comparator module’s
MOVWF CMCON
;
BSF STATUS,RP0 ;Switch to register bank 1
;Disable pull-ups
;INT on rising edge
;TMR0 to CLKOUT
;TMR0 Incr low2high trans.
;Prescaler assign to Timer0
;Prescaler rate is 1:256
MOVLW B’11010111’ ;Set PIC options (See datasheet).
MOVWF OPTION_REG ;Write the OPTION register.
;
CLRF INTCON ;Disable interrupts
MOVLW B’11000000’
MOVWF TRISB ;RB7 & RB6 are inputs.
;RB5…RB0 are outputs.
MOVLW B’11111111’ ;all RA ports are inputs
MOVWF TRISA
BCF STATUS,RP0 ;Switch Back to reg. Bank 0
CLRF PORTB
GOTO EFFECT_4
;

    	CLRF	PORTB

	;

MENU BTFSC PORTA,SW1
GOTO EFFECT_1
BTFSC PORTA,SW2
GOTO EFFECT_2
BTFSC PORTA,SW3
GOTO EFFECT_3
BTFSC PORTA,SW4
GOTO EFFECT_4
GOTO MENU

EFFECT_1 BTFSC PORTA,SW1
GOTO EFFECT_1
E1 MOVLW B’00100000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00110000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111100’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111110’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111111’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111110’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111100’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00111000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00110000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
GOTO E1

EFFECT_2 BTFSC PORTA,SW2
GOTO EFFECT_2
E2 MOVLW B’00000001’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00000010’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00000100’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00001000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00010000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00100000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00010000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00001000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00000100’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
MOVLW B’00000010’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
GOTO E2

EFFECT_3 BTFSC PORTA,SW3
GOTO EFFECT_3
E3 MOVLW B’00000111’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
CALL DELAY_ROUTINE
MOVLW B’00111000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
CALL DELAY_ROUTINE
GOTO E3

EFFECT_4 BTFSC PORTA,SW4
GOTO EFFECT_4
E4 MOVLW B’00001000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
CALL DELAY_ROUTINE
MOVLW B’00000000’ ;
MOVWF PORTB
CALL DELAY_ROUTINE
CALL DELAY_ROUTINE
GOTO E4

END

The way it works is, that when a pushbutton is activated, then the actual effect is aborted, when in the delay-routine.
Immediately after that a (new) effect is activated via the menu.

Good luck !

Deekay · January 6, 2015, 6:05pm

Hi,

Why aren’t you using an interrupt routine?
On some PICs an interrupt is generated on input (switch or something) hence ‘interrupting’ current operation.
You just have to write your own interrupt handling routine.
Since you are setting the INTCON register, i assume that yours is capable of such.

Greetz Deekay

BRUSHLESS_333 · January 7, 2015, 5:11pm

Hello !

[quote][/quote]Why aren’t you using an interrupt routine?
On some PICs an interrupt is generated on input (switch or something) hence ‘interrupting’ current operation.
You just have to write your own interrupt handling routine.
Since you are setting the INTCON register, i assume that yours is capable of such.

Well, mainly because, on the k 8048 kit, we use port B pins as outputs, and port A pins as inputs, but,

here it comes: only port B supports this kind of interrupts, so it’s impossible in this situation !

We are actually not setting any bit’s in the INTCON register, but the CLRF INTCON instruction, in the

boot-sequence RESETS this register.

I chose to upload this program, that originally came with my k 8048 kit some 10 years ago, when I

couldn’t find it on Velleman’s site anymore. I still think it suits the purpose very well…

Brushless.

Deekay · January 7, 2015, 8:52pm

Hi,

Sorry my fault! Didn’t check the board layout (I also own a K8048)

I also came across the original CD-rom for this kit yesterday, so if you need something from that, I have it and might be able to send you some stuff from it, if you are interrested…

Thanks anyway for the fast reply.

Deekay