#include cblock 0x20 Delay1 Delay2 Counter ;tárolja a számot, amit majd kiírunk. Counter2 endc Org 0 Pinset: banksel TRISD clrf TRISD bsf TRISB,0 banksel ANSEL clrf ANSEL banksel ANSELH clrf ANSELH banksel PORTD clrf PORTD Null: clrf PORTD clrf Counter Main: movfw Counter movwf PORTD btfsc PORTB,0 goto Main call Delay incf Counter2 btfsc Counter2,2 call standby Increment: clrf PORTD incf Counter btfss Counter,3 goto Main2 btfss Counter,1 goto Main2 btfsc Counter,0 call Onerun ; goto Main Main2: btfss PORTB,0 goto Increment call Delay goto Main Onerun: movlw 0x01 movwf Counter return Delay: decfsz Delay1,f goto $-1 decfsz Delay2,f goto $-3 return standby: clrf PORTD clrf Counter2 clrf Counter goto Main end