; bw 15 aug 2000
; first attempt at pic programming

        LIST P=16F84, R=DEC
	INCLUDE "P16f84.inc"
        __CONFIG 3FF9H   ; disable pwr-up timer, disable watchdog, crystal osc

                ORG     0       
                GOTO    Start

		org 0x50
Start
		CLRF	STATUS
		MOVLW	0
		MOVWF	PORTA
		MOVLW	0
		TRIS	PORTA
Loop
		BSF	PORTA,2  ; wiggle pin 1 of chip
		BCF	PORTA,2
		BSF	PORTA,1  ; wiggle pin 18 of chip
		BCF	PORTA,1
		GOTO	Loop

                END