;Author: Wolfmankurd
;Date: 11/11/06
;Description: ASM for PIC16F84
;Runs a Binary clock!
PORTB EQU 06H
TRISB EQU 86H
TRISA EQU 85H
PORTA EQU 05H
COUNT equ 08h
TIME  EQU d'255'; TBS
TIME2 equ d'210'
COUNT2 equ 09h
STATUS equ 03h
hour equ 00H
min equ 00H
sec equ 00H
bsf STATUS,5
movlw b'00000000'
movwf TRISA
movlw b'00000000'
movwf TRISB
bsf TRISB,7
bsf TRISB,8
bcf STATUS,5
bsf PORTB,8
start
MOVLW TIME2
MOVWF COUNT2
loop3
MOVLW TIME
MOVWF COUNT
loop
DECFSZ COUNT
goto loop
MOVWF COUNT
loop1
DECFSZ COUNT
goto loop1
DECFSZ COUNT2
goto loop3

BTFSC PORTB,6
goto hours
BTFSC PORTB,7
goto mins

incf sec,1
movlw b'111100'
subwf sec,0
btfss STATUS,0
goto start

mins
CLRF sec
incf min,1
movlw min
movwf PORTB
movlw b'111100'
subwf min,0
BTFSS STATUS,0
goto start

hours
movlw b'000000'
movwf PORTB
incf hour,1
movlw hour
movwf PORTA
movlw b'1100'
subwf hour,0
btfsS STATUS,0
goto start
movlw b'00000'
movwf PORTA
goto start
END