Svenska ElektronikForumet

Kod: Markera allt

PC   equ  02h ; är det 02h????


movlw  03 (h ? )  ;Ska det vara 'h' är eller är det 'd'????
call       table

:
table     addwf   PC
retlw     d'10'
retlw     d'20'
retlw     d'30'
retlw     d'2'
retlw     d'1'
retlw     d'40'
retlw     d'60'

return

Kod: Markera allt

;*****************  LCD-writer 1.0 ***************
;This program write "Hallo!" on a 16 x 2 LCD with 5x7 dots,
;in 8-bit mode, from at PIC16F628A. 
;
;Pinnout:
;RS = PORTA,3
;EN = PORTA,2
;Data 1-8 = PORTB,0-7
;
;*******
;Writen by Daniel Andersson, Daniel(at)crazycasemod(dot)se
;for www.crazycasemod.se.
;*******

;********* Start off program **********

; Assign your microcontroller
        LIST P=16F628A


; This include file makes programming more understandeble
        include <P16F628A.INC>
        
        
    __CONFIG _CP_OFF & _DATA_CP_OFF & _BODEN_OFF & _MCLRE_ON & _PWRTE_ON & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _LVP_OFF

; save on free ram in bank0

delay_var1		equ		20h
delay_var2		equ		21h  
delay_var3		equ		22h 

pause1			equ		23h	 



;define pinouts

#define		EN	PORTA,2  
#define		RS	PORTA,3
#define		LCD	PORTB


;startadres of the controller
	 org 0x0000


; For using A0-A3 as digital I/O 
    	movlw	D'7' 		; 
        movwf	CMCON		; Comparators off, all pins digital I/O 

; Reset Port values
        clrf	PORTA	
        clrf	PORTB
        
; define your pin direction (input/output)

    bsf	STATUS, RP0	          ; Switch to bank 1
		movlw	b'00000000'	  ;
		movwf	TRISA		  ; PORTA = 1,2,3,4,5 & 7 out, 6 in

        movlw	b'00000000'	  ; 
        movwf	TRISB	      ; PORTB = all outputs
	bcf	STATUS, RP0	          ; Switch to bank 0


; main loop

main
	call	delay			;*************
	call	delay			;Wait for display to start
	call	delay			;*************

						;*************
	movlw	b'00001111'		;display on, blinkin krusor
	movwf	LCD				;*************
	call	delay			;*************
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	call	delay
							;*************
	movlw	b'00111000'		;8-bit 5x7 dots, 2 lines
	movwf	LCD				;*************
	call	delay			;*************
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	bsf		RS				;switch to character mode

	call	delay

	movlw	a'H'			;**************
	movwf	LCD				;Send "A" to LCD
	call	delay			;
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	movlw	a'a'			;**************
	movwf	LCD				;Send "A" to LCD
	call	delay			;
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	movlw	a'l'			;**************
	movwf	LCD				;Send "A" to LCD
	call	delay			;
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	movlw	a'l'			;**************
	movwf	LCD				;Send "A" to LCD
	call	delay			;
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	movlw	a'o'			;**************
	movwf	LCD				;Send "A" to LCD
	call	delay			;
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

	movlw	a'!'			;**************
	movwf	LCD				;Send "A" to LCD
	call	delay			;
	bsf		EN				;press enable
	call	pause			;
	bcf		EN				;
	call	pause			;**************

stop	
	goto	stop

; Delay routine 


delay   movlw	D'10'
	    movwf	delay_var3
delay1  movlw	0x82
	    movwf	delay_var2
delay2  movlw	0xFF
	    movwf	delay_var1
delay3	decfsz	delay_var1, f 
	    goto	delay3
	    decfsz	delay_var2, f
        goto	delay2
     	decfsz	delay_var3, f
        goto	delay1
    	return

pause   movlw	D'100'
	    movwf	pause1
pause2	decfsz	pause1, 1 
	    goto	pause2
		return

        END