Piclist Jal Biptest.jal

-- 
-- Program: biptest.jal
--
-- Date: 13 July 2000
--
-- Author: G. Shearer
--         Vanderbilt University
--         Nashville, TN
--
-- Purpose: Demo program for bipolib.jal
--          ( bipolar stepper motor library)
-- 
-- Copyright (C) 2000 G. Shearer
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Library General Public
-- License as published by the Free Software Foundation; either
-- version 2 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-- Library General Public License for more details.
--
-- You should have received a copy of the GNU Library General Public
-- License along with this library; if not, write to the
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-- Boston, MA  02111-1307, USA.
--


-- includes
include 16f84_4
include jlib
include bipolib

-- configure ports
port_a_direction = all_output

-- initialize variables
var byte speed = 3
var bit direction = true
var byte seq = 0

-- here da program
forever loop
direction = true
	for 100 loop
	fullstep ( direction, speed )
	end loop
direction = false
	for 100 loop
	fullstep ( direction, speed )
	end loop
direction = true
	for 200 loop
	halfstep ( direction, seq, speed )
	end loop
direction = false
	for 200 loop
	halfstep ( direction, seq, speed )
	end loop
end loop

  .