;********************* Gen60Hz.asm 12/16/08 **********************
;********************************************************************
LIST P=16F628A ; Device number (PIC16F628A)
#include <P16F628A.inc>
;
ERRORLEVEL -302 ; suppress message because of page change
;--------------------- Configuration ---------------------------------
;__CONFIG _CP_OFF & _WDT_OFF & _int_OSC & _PWRTE_ON & _LVP_OFF & _BODEN_OFF & _MCLRE_OFF
__CONFIG 3F10
;--------------------- Define Variables -----------------------------
CounterA equ 20h
CounterB equ 21h
CounterC equ 22h
CounterD equ 23h
movlw 0X07
movwf CMCON ; Comparators off
bSf STATUS,RP0 ; Select memory bank 1
movlw b'00100000'
movwf TRISA ; Set port A as output, RA5 = Input
movlw b'00000000'
movwf TRISB ; Set port B as output,
bcf STATUS,RP0 ; Select memory bank 0
abcd MOVLW d'4'
MOVWF PORTB
movlw D'1'
movwf CounterD
movlw D'1'
movwf CounterC
movlw D'11'
movwf CounterB
movlw D'205'
movwf CounterA
loop decfsz CounterA,1
goto loop
decfsz CounterB,1
goto loop
decfsz CounterC,1
goto loop
decfsz CounterD,1
goto loop
MOVLW D'3'
MOVWF PORTB
movlw D'1'
movwf CounterD
movlw D'1'
movwf CounterC
movlw D'11'
movwf CounterB
movlw D'205'
movwf CounterA
loop1 decfsz CounterA,1
goto loop1
decfsz CounterB,1
goto loop1
decfsz CounterC,1
goto loop1
decfsz CounterD,1
goto loop1
goto abcd
END