Svenska ElektronikForumet

Kod: Markera allt

   crlf    tens    ;   tens är en tidigare definierad variabel...
   movf    Result, W       ;Läs värdet till W, måste ligga för labeln !!
Omvandla3   ;Ental
   sublw    10             ;Dra av 10.
   incf     tens, f        ; Öka tens med 1
   btfss    W            ;är värdet negativt? Ja=hoppa en instruktion
   goto     Omvandla3      ;upprepa OMvandla3

   decf tiotal,f       ; minska tens med 1 eftersom det nu är 1 för mycket...
   addlw    10            ;Gör värdet positivt, är nu "ental".
   movwf   ental    ; En tidigare definbierad varabel...

Kod: Markera allt

;Information Data
;PIC16F876A

;------inkludera definitioner----
#include <p16f876a.inc>

;-------Start--------------------

org     	0x000
Result 		equ 0x20
Hundratal	equ 0x21
Tiotal		equ	0x22
Ental		equ 0x23
TioEntal	equ	0x24

Start
	banksel PORTA			;Väljer rätt bank
	clrf 	PORTA
	banksel TRISB
	clrf	TRISB			;sätter alla I/O till utgångar
	banksel	TRISC
	clrf	TRISC			;sätter alla I/O till utgångar
	banksel ADCON1			;väljer rätt bank
	movlw 	b'11001110'		
	movwf 	ADCON1			;Frc, AN0 Analog, resten I/O
	movlw	b'00000001'		
	movwf	TRISA			;sätter RA0 till ingång
	movlw 	b'11000001' 	
	movwf 	ADCON0			;Frc A/Dchannel0 A/D=On

;---- Kör A/D omvanling---------
Kor 
	bsf     ADCON0,GO   	;Kör A/DChannel0

Wait
	btfsc   ADCON0,GO       ;Väntar på resultat 
	goto    Wait			

	bcf    STATUS, C 
	rrl    ADRESH, W		;Värdet divideras med 2
	movwf	Result			;255/2= 0-127	 

;-------Omräkning av värde-----------

Omvandla1 			;Om talet är över 100
	movf	Result, W
	sublw 	D'100'			;Drar av 100. C biten blir 1 om minus.
	btfss	STATUS, C		;Hoppar över nästa instruktion om C biten är 1=negativ
	goto	Positiv

	addlw	D'100'			;Lägg till 100
	addwf	Result			;Ursprungligt värde
	goto	Omvandla2		;Upprepa

Positiv				;Om talet är över 100
	movwf	Result
	movlw	b'00000001'		;över 100 värde
	movwf	Hundratal

Omvandla2				
	clrf	Tiotal			;återställ räknaren
	movf	Result, W

Omvandla3			;10-tal samt 1-tal
	sublw	D'10'			;Dra av 10
	incf	Tiotal, F		;Lägg till 1 i räknaren
	btfss	STATUS, C		;Negativt? Hoppa nästa instruktion
	goto	Omvandla3		;upprepa

	decf 	Tiotal, F		;Dra av 1 
	addlw	D'10'			;Gör värdet positivt 
	movwf	Ental    

;------Presentation----------------

	clrf	TioEntal			;töm
	swapf 	Tiotal, F			;flyttas 4-bitar uppåt
	movfw	Tiotal				
	movwf	TioEntal			;lägger talet i bit4-7
	movfw	Ental
	addwf	TioEntal			;lägger talet i bit0-3

	movfw	TioEntal
	movwf	PORTB				;till seg1 och 2
	movfw	Hundratal
	movwf	PORTC				;till seg3

	Goto Kor
END

Kod: Markera allt

;Information Data
;PIC16F876A

;------Include defintions----
#include <p16f876a.inc>

;-------Start--------------------

org     	0x000
Result 		equ 0x20
Hundreds	equ 0x21
Tens		equ	0x22
Singels		equ 0x23
TensSingels	equ	0x24

Start
	banksel PORTA			;Choose correct bank
	clrf 	PORTA
	banksel TRISB
	clrf	TRISB			;set all I/O at outputs
	banksel	TRISC
	clrf	TRISC			;set all I/O at outputs
	banksel ADCON1			
	movlw 	b'11001110'		
	movwf 	ADCON1			;Frc, AN0 Analog, rest I/O
	movlw	b'00000001'		
	movwf	TRISA			;set RA0 at input
	movlw 	b'11000001' 	
	movwf 	ADCON0			;Frc A/Dchannel0 A/D=On

;---- Run A/D converting---------
Mainloop 
	bsf     ADCON0,GO   	;Run A/D Channel0

Wait
	btfsc   ADCON0,GO       ;Wait for Result 
	goto    Wait			

	bcf    STATUS, C 
	rrl    ADRESH, W		;Value divided by 2
	movwf	Result			;255/2= 0-127	 

;-------Recalculate the Value-----------

Convert 			;If the value is over 100
	movf	Result, W
	sublw 	D'100'			;Subtract 100 from Value
	btfss	STATUS, C		;Negative? Skip next instruction
	goto	Positive

	addlw	D'100'			;Add 100
	addwf	Result			;Original Value
	goto	Convert2		;Repeat

Positive	
	movwf	Result
	movlw	b'00000001'		;BCD Value for 1
	movwf	Hundreds

Convert2				
	clrf	Tens			;Clear the counter
	movf	Result, W

Convert3			;10-tal samt 1-tal
	sublw	D'10'			;Subtract 10
	incf	Tens, F			;Add 1 to counter
	btfss	STATUS, C		;Negativ? Skip next instruction
	goto	Convert3		;Repeat

	decf 	Tens, F			;Subtract 1 
	addlw	D'10'			;Make it positive 
	movwf	Singels    

;------Presentation----------------

	clrf	TensSingels			;Clear
	swapf 	Tens, F			;Swap the first 4-bits
	movfw	Tens				
	movwf	TensSingels		;Move Value into bit4-7
	movfw	Singels
	addwf	TensSingels		;Move value into bit0-3

	movfw	TensSingels
	movwf	PORTB			;to seg1 och 2
	movfw	Hundreds
	movwf	PORTC			;to seg3

	Goto Mainloop
END