;*********************************************
;*           Code Produced by the            *
;* PICBASIC PLUS LITE Compiler. Version 1.10 *
;*********************************************

	#include "PWM.pbp" 

LOOP		Equ 59
INF	R@B
;	Loop = 0						' Start the loop at 0
	Clr@F LOOP
;Repeat							' Beginning of the loop
Rpt@Lb2 R@B
;PWM PortB.0,Loop,20			' Output the value in loop for 20ms
	Mov@fw LOOP
	Mov@wf PP1
	Movlw 20
	Mov@wf PP0
	Clr@F PP0H
	Movlw 6
	Mov@wf FSR
	Movlw 1
	F@C PWM
;Inc Loop					' Increment the loop counter
	Incf@F LOOP
;Until Loop = 255				' Loop until 255 revolutions
	Clrwdt
	Mov@fw LOOP
	Sublw 255
	T@G 0,STATUS,2,Rpt@Lb2
;Repeat							' Loop still contains 255
Rpt@Lb3 R@B
;PWM PortB.0,Loop,20			' Output the value in loop for 20ms
	Mov@fw LOOP
	Mov@wf PP1
	Movlw 20
	Mov@wf PP0
	Clr@F PP0H
	Movlw 6
	Mov@wf FSR
	Movlw 1
	F@C PWM
;Dec Loop					' Decrement the loop counter
	Decf@F LOOP
;Until Loop = 0        			' Loop until 255 revolutions
	Clrwdt
	Mov@fw LOOP
	Sublw 0
	T@G 0,STATUS,2,Rpt@Lb3
;Goto Inf						' Do it forever
	F@G INF
	END