; ECE 376 Lecture #4: Binary Inputs
; Up/Down Counter

#include <p18f4620.inc> 

COUNT equ 0

    org 0x800

    movlw 0xFF
    movwf TRISB
    clrf TRISD
    movlw 0x0F
    movwf ADCON1
    
    clrf  COUNT
    clrf  PORTD

L1:
    btfsc  PORTB,0
    goto   L1

L2:
    btfss  PORTB,0
    goto   L2

L3:
    btfsc  PORTB, 1
    goto   Up

Down:
    decf   COUNT,F
    goto   L4
Up:
    incf   COUNT,F
L4:
    movff  COUNT, PORTD
    goto   L1

    end