list p=16F628A ; list directive to define processor
#include <P16F628A.inc>
errorlevel -302 , -207
__CONFIG _CP_OFF & _DATA_CP_OFF & _LVP_OFF & _BOREN_OFF & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTOSC_OSC_NOCLKOUT
cblock 0x20 ;start of general purpose registers
counter
endc
; Var equ 0x20 this isn't right your can't use the word var
;movlw 0x10
;movwf Var
org 0x0000 ;org sets the origin, 0x0000 for the 16F628,
movlw 007
movwf CMCON
BANKSEL TRISA
movlw 0x00
movwf TRISA
movwf TRISB
BANKSEL PORTA
movlw 0b00111101
movwf T1CON
clrf PORTB
Start comf PORTB, 1
call Delay
goto Start
Delay Movfw TMR1H
sublw 0xFF
btfss STATUS, Z
goto Delay
clrf TMR1H
decfsz counter
goto Delay
movlw 0x10
movwf counter
retlw 0
end