'****************************************************************
'*  Name    : test_tobor.BAS                                    *
'*  Author  : adrirobot                                         *
'*  Notice  : Copyright (c) 2007                                *
'*  Date    : 05/01/2007                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

DEFINE LOADER_USED 1

ASM
;
;Il Display a 7 segmenti
;
;Sul display a catodo comune collegato alla porta B, si desidera visualizzare lo stato
;logico "0" o "1" dell'interruttore RC0. Mediante l'interruttore RC1 si attiva o no il 
;punto decimale.
        
ORG 0 
GOTO StartOfProgram

ORG 5
StartOfProgram

Ininzio	        clrf 	PORTB		;Cancella i latch di uscita
		bsf	STATUS,RP0	;Seleziona banco 1
		clrf	TRISB		;Configura la Porta B come uscita
		movlw	0xFF
		movwf	TRISC		;Configura la Porta C come ingresso		
		bcf	STATUS,RP0	;Seleziona banco 0			                                                                         

Loop		clrwdt			;Aggiorna il WDT
		btfsc	PORTC,0		;Testa RC0
		goto	RC0_è_1		;È a livello "1"
		movlw	b'00111111'
		movwf	PORTB		;Visualizza il digit 0
		goto 	Test_RC1

RC0_è_1		movlw	b'00000110'
		movwf	PORTB		;Visualizza il digit 1
					
Test_RC1	btfsc	PORTC,1		;Testa RC1
		goto	RC1_è_1		;È a "1"
		bcf	PORTB,7		;Spegni punto decimale
		goto	Loop
RC1_è_1:	bsf	PORTB,7		;Attiva punto decimale
		goto	Loop

		end			;Fine del programma sorgente
ENDASM