' @(#) $Header: /home/abrown/public_html/first/first2002chs/software2002/simulator/RCS/pbtest1.bsx,v 1.3 2006/12/14 21:19:03 abrown Exp $
' Allen Brown  date="20061214 13:17:29"
' -----------------------------------------------------------------
' menace.tcl is a TCL program designed to exercise the CHS bsx
' code.  It is in no way essential to the pb2c translator.
' Rather it is an example of how to use the result of the
' translation.
'
' Copyright (C) 2002  Allen Brown
' 
' This program is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License version 2 as
' published by the Free Software Foundation.
' 
' This program 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 General Public License for more details.
' 
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the
'   Free Software Foundation, Inc.
'   59 Temple Place, Suite 330
'   Boston, MA  02111-1307  USA
' 
' To contact the author of this software:
'   Allen Brown
'   PO Box J
'   Corvallis, OR
' 
'   http://brown.armoredpenguin.com/~abrown/contact.html
' -----------------------------------------------------------------

vara	var	byte
varb	var	byte

  vara = 3 + 1
  varb = 2

loop:
  vara = vara + varb
  varb = varb + 1
  %printf( "vara=%x,%d.\n", vara );
  %printf( "varb=%x,%d.\n", varb );
  if vara > 1000 then exitprog:
goto loop:
exitprog: