Reply to thread

Message: <blockquote data-quote="xshax" data-source="post: 13678755" data-attributes="member: 85885">;*****Define Registers*****PC equ 02hSTATUS equ 03hPORTA equ 05hPORTB equ 06hTRISA equ 85hTRISB equ 86hCounterL equ 0DhCounterH equ 0EhDigit1 equ 10hDigit2 equ 11h;*****initialization*****bsf STATUS,5 ;Switch to Bank 1movlw b’00111001'movwf TRISA ;RA0 I/P RA1,2 O/Pclrf TRISB ;PORT B outputbcf STATUS,5 ;Switch to Bank 0clrf Digit1 ;initilize to zeroclrf Digit2 ;initilize to zero;**display the first digit**Loop bcf PORTA,2 ;disable digit2movf Digit1,0 ;get digit1 valuecall Table ;Look Up Tablemovwf PORTB ;Writ the numberbsf PORTA,1 ;enable digit1;**small delay to display digit1**Delay1 decfsz CounterL,1goto Delay1;**display the second digit**bcf PORTA,1 ;disable digit1movf Digit2,0 ;get digit2 valuecall Table ;Look Up Tablemovwf PORTB ;Writ the numberbsf PORTA,2 ;enable digit2;**small delay to display digit2**Delay2 decfsz CounterL,1goto Delay2btfss PORTA,0 ;Button pressed?goto Countup ;If yes Count upgoto Loop ;else back to Loop;**Update Digit1 and Digit2**Countup incf Digit1,1 ;increase Digit1movlw D’10' ;load w with tenxorwf Digit1,0 ;compare with 10btfss STATUS,2 ;if equal result 0goto Loop ;else back to Loopclrf Digit1 ;make Digit1 = 0incf Digit2,1 ;increase Digit1movlw D’10' ;load w with tenxorwf Digit2,0 ;compare with 10btfsc STATUS,2 ;if equal result 0clrf Digit1 ;make Digit2 = 0goto Loop ;back to Loop;****Look Up Table for bit patterns****Table addwf PC,1retlw b’00111111' ;Number 0retlw b’00000110' ;Number 1retlw b’01011011' ;Number 2retlw b’01001111' ;Number 3retlw b’01100110' ;Number 4retlw b’01101101' ;Number 5retlw b’01111101' ;Number 6retlw b’00000111' ;Number 7retlw b’01111111' ;Number 8retlw b’01100111' ;Number 9endvidusara eke giya counter eka hari kamam ne asm kara ganna widihak......?</blockquote>

Verification: Hathara warak wissa keeyada? (Hathara wadi karanna 20)

Top Bottom