Svenska ElektronikForumet

Kod: Markera allt

 include <p16f690.inc>
    __config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)
BAUD		EQU	.39
BAUD1		EQU	.30
BAUDX		EQU	.29
BAUDY		EQU	.30
BAUDS		EQU	.32

	cblock	0x20
XmtReg
Count
DlyCnt
offset
W_temp
    endc

 org 0
 
main
 	BCF   STATUS,RP0 					;Bank 0
	BCF   STATUS,RP1 					;
	CLRF  PORTC 						;Init PORTC
	BSF   STATUS,RP1						;BANK 2
	CLRF  ANSEL
	BSF   STATUS,RP0 					;Bank 1
	BCF   STATUS,RP1
	MOVLW b'11010000'					;Set RC5  as output and all DS to output
	MOVWF TRISC 						;
	BCF   STATUS,RP0 					;Bank 0
	bsf	  PORTC,5
	clrf  offset
loop
	Call  HelloWorld
	goto  loop

HelloWorld	
nextchar
	movlw HIGH Text
	movwf PCLATH
	movf  offset,0
	Call  Text
	Call  Printbyte
	incf  offset,1
	movf  offset,0
	sublw .13
	btfsc STATUS,Z
	goto  break
	goto  nextchar
break
	clrf  offset
	return

Printbyte
	movwf W_temp
	movwf XmtReg
Xmtr
	movlw 8
	movwf Count
	bcf	  PORTC,5
	Call  Delay1	
X_next
	bcf   STATUS,C
	rrf	  XmtReg,1
	btfsc STATUS,C
    	bsf   PORTC,5
	btfss STATUS,C
	bcf	  PORTC,5
    	Call  DelayX
    	Decfsz Count,1
    	goto  X_next
X_stop
	bsf	  PORTC,5
	Call  DelayS
	movf  W_temp,0
	return
DelayS
	movlw BAUDS
    	goto  SAVE
DelayY
	movlw BAUDY
	goto  SAVE
DelayX
	movlw BAUDX
	goto  SAVE
Delay1
	movlw BAUD1
	goto  SAVE
Delay
	movwf BAUD
SAVE
	movwf DlyCnt
redo_1
	decfsz DlyCnt,1
	goto   redo_1
	return

 org 0x300
 Text
	addwf	PCL,1
	retlw	'H'
	retlw	'e'
	retlw	'l'
	retlw	'l'
	retlw	'o'
	retlw	' '
	retlw	'W'
	retlw	'o'
	retlw	'r'
	retlw	'l'
	retlw	'd'
	retlw	'\r'
	retlw   	'\n'

 end

Kod: Markera allt

include <p16f676.inc>
   __config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF  & _BODEN_OFF )
BAUD		EQU	.39
BAUD1		EQU	.30
BAUDX		EQU	.29
BAUDY		EQU	.30
BAUDS		EQU	.32

	cblock	0x20
XmtReg
Count
DlyCnt
offset
W_temp
    endc
  
   org 0
   
main
	bcf 		STATUS,RP0 						;Bank 0
	clrf 		PORTC 								;Init PORTC
	bsf 		STATUS,RP0 						;Bank 1
	clrf 		ANSEL 								;digital I/O
	MOVLW b'11010000'						;Set RC5  as output and all DS to output
	movwf 	TRISC 								
	bcf 		STATUS,RP0 						;Bank 0
	bsf	  	PORTC,5
	clrf  	offset
loop
	Call  	HelloWorld
	goto  	loop

HelloWorld
nextchar
	movlw HIGH Text
	movwf PCLATH
	movf  offset,0
	Call  Text
	Call  Printbyte
	incf  offset,1
	movf  offset,0
	sublw .13
	btfsc STATUS,Z
	goto  break
	goto  nextchar
break
	clrf  offset
	return
Printbyte
	movwf W_temp
	movwf XmtReg
Xmtr
	movlw 8
	movwf Count
	bcf	  PORTC,5
	Call  Delay1	
X_next
	bcf   STATUS,C
	rrf	  XmtReg,1
	btfsc STATUS,C
    	bsf   PORTC,5
	btfss STATUS,C
	bcf	  PORTC,5
    	Call  DelayX
    	Decfsz Count,1
    	goto  X_next
X_stop
	bsf	  PORTC,5
	Call  DelayS
	movf  W_temp,0
	return
DelayS
	movlw BAUDS
    	goto  SAVE
DelayY
	movlw BAUDY
	goto  SAVE
DelayX
	movlw BAUDX
	goto  SAVE
Delay1
	movlw BAUD1
	goto  SAVE
Delay
	movwf BAUD
SAVE
	movwf DlyCnt
redo_1
	decfsz DlyCnt,1
	goto   redo_1
	return

 org 0x300
 
 Text
	addwf	PCL,1
	retlw	'H'
	retlw	'e'
	retlw	'l'
	retlw	'l'
	retlw	'o'
	retlw	' '
	retlw	'W'
	retlw	'o'
	retlw	'r'
	retlw	'l'
	retlw	'd'
	retlw	'\r'
	retlw   	'\n'

 end
	

Kod: Markera allt

main
	BANKSEL	OSCCAL
	call 			3FFh 				;Get the cal value
	movwf 		OSCCAL 					;Calibrate
	
	BANKSEL	PORTC
	clrf 			PORTC 				;Init PORTC
	BANKSEL	ANSEL
	clrf 			ANSEL 				;digital I/O
	MOVLW	 b'11000000'					;Set RC5  as output and all DS to output
	movwf 		             TRISC 								
	BANKSEL	PORTC
	bsf	  		PORTC,5
	bsf			PORTC,4    ;tänder en LED	
	clrf  		offset
loop
	Call  		HelloWorld
	btfsc		PORTA,5						;Poll switch på RA5
	goto			$-1
	goto  		loop

Kod: Markera allt

;********************
;
;   Macro DBANKIF <adr>
;
;   Set the register bank for direct access to address ADR.  This macro
;   sets the RP0, RP1 bits of STATUS appropriately.  The bank bits are
;   not set if they are assumed to already be set correctly as indicated
;   by the assembler variable CURRDB.  CURRDB is updated to the new
;   setting.
;
;   On 18 family processors, this macro sets BSR.  No code is emitted
;   and the bank setting is not altered if ADR is within the access bank,
;   and can therefore be accessed regardless of the BSR setting.
;
dbankif  macro   adr
         local   newbank, ii

newbank  set     bankof(adr) ;find 0-N desired bank number

;*****
;
...
...
;*****
;
;   16 family devices.
;
  if fam_16
    if nregbanks <= 1        ;this processor only has one register bank ?
         exitm
      endif
ii       set     (adr) & h'7F' ;make address offset within bank

    if (ii >= commregs_first) && (ii <= commregs_last) ;in unbanked region ?
         exitm
      endif

    if nregbanks > 1         ;bank bit 0 is meaningful ?
      if (currdb < 0) || (currdb > 3) || ((currdb & 1) != (newbank & 1)) ;need update ?
        if newbank & 1
         bsf     status, rp0
          else
         bcf     status, rp0
          endif
        endif
      endif

    if nregbanks > 2         ;bank bit 1 is meaningful ?
      if (currdb < 0) || (currdb > 3) || ((currdb & 2) != (newbank & 2)) ;need update ?
        if newbank & 2
         bsf     status, rp1
          else
         bcf     status, rp1
          endif
        endif
      endif

currdb   set     newbank     ;update current bank assumption
         exitm
    endif                    ;end of 16Cxxx case

;*****
...
...

         endm
;