TweetFollow Us on Twitter

basic Cons BASIC

Volume Number: 20 (2004)
Issue Number: 6
Column Tag: Programming

Programming Techniques

by F.C. Kuechmann

basic Cons BASIC

Using a Macintosh to program little control computers in BASIC

History Lesson

Back in the prehistoric days of desktop computerdom, the late 1970s and early 1980s, the BASIC interpreter seemed ubiquitous. The original Apple ][ came with a fast integer BASIC, which was displaced by the Microsoft variant, Applesoft. Commodore and Atari also shipped their 6502-based computers with Microsoft interpreter variants. On the IBM-Intel-Microsoft side of the tracks, MS-DOS shipped with GW-BASIC (eventually replaced by the QB interpreter, which copied its core technology from BASIC09 by Microware of Des Moines). Although differing in detail, these early interpreters had many things in common - including line numbers and all-global variables.

Although this type of language has long since been superceded for desktop programming, there is a significant market in small embedded controllers running BASIC11 (Motorola M68HC11 processors) and BASIC-52 (Intel 8052 family). Initial purchase costs are low and development rapid. . Controllers are available in a variety of configurations from companies like Micromint and New Micros. Using a USB-to-serial adapter or serial port PCI card, these boards are easy to program and run with modern Macintoshes under OS-X and offer an easy route to hardware fiddling.

While some folks may think interpreted BASIC is a toy language with no serious applications, that's far from the case. Micromint, for example, has been selling interpreted BASIC controllers in industrial markets for nearly two decades. Several years ago I implemented the control section of a gate and barrier system used in fish hatcheries -- based on Micromint 8052 boards programmed with ~25k of interpreted BASIC-52 code.

Figure 1 shows a typical small controller that runs BASIC, the Motorola M68HC11-based Micromint RTC-HC11. Figure 2 shows a member of the New Micros NMIT/X-020 family. It too runs the BASIC11 interpreter. Both boards are shown "bare", without the stacked I/O cards included in a typical installation. Details of these boards as well as the companies' other BASIC offerings can be obtained by contacting the companies at the addresses at the end of this article.

Now, before you check the cover to be sure you're reading a Macintosh magazine,, we'll get to where the Mac comes in shortly.

Short programs are easy to create in unstructured BASIC, but problems appear when line numbers and all-global variables are combined with large programs. In order to create maintainable programs I adopted some assembly language techniques in writing a desktop computer program to convert unnumbered source text to numbered BASIC. In the source text, variable names are managed via an equate table, making it easy to avoid global variable problems, and branch destinations are labels. The source text can use meaningful, i.e. long, variable names, while the final code uses one and two characters.


Figure 1. Micromint RTC-HC11

My first conversion program was written in structured Power BASIC under DOS in the 1980s. It was later translated to Borland Pascal before being ported to Mac Pascal. The most recent versions are in CodeWarrior Pascal and REALbasic 5.5, both carbonized and running under OS-X. In this article I'll focus on the REALbasic variant, hence the name basic Cons BASIC.


Figure 2. New Micros NMIT/X-020


Figure 3. Screenshot following conversion

Figure 3 is a screenshot taken following conversion of a short program called blinky, which will be discussed further below. Three black rectangles upper right are REALbasic EditField Controls that display the time conversion started in 24-hour format, the time it finished, and the elapsed time between, in this case three seconds. Below that are EditField Controls showing lines in and out for the most recent pass through the files. Since the final pass checks the bas file for unconverted labels, the out figure is zero.

The big black rectangle with the scrollbar is a REALbasic ListBox Control holding the output of basicConsBASIC's three read-write passes starting with the source file. From a source file named blinky.src, basicConsBASIC creates the files blinky.par, blinky.num, blinky.bas and blinky.dmp. The par and num files are scratch files, bas is the file you load into your controller, and the dmp file is the saved contents of the list box.

At the bottom is sixth EditField Control that functions as a message window.

A short example that follows illustrates the programming approach. Complete sourcefile instructions can be found in the file basicConsBASIC sourcefiles.doc.

The following program toggles the onboard L.E.D. on a Micromint RTC-HC11 once each second for an hour. Listing 1 shows the contents of the source file, created with an ordinary ASCII editor such as BBEdit or the CodeWarrior IDE's editor. The underlying syntax is that of BASIC11, and the hardware addresses specific to the RTC-HC11.

blinky.src
|rem
|rem blinky program
|rem
%bit5 .equ $20
%index .equ x
%limit .equ lm
%blinkaddr .equ $b009
poke(%blinkaddr,%bit5)
%limit=3600   : 'set to blink 3600 secs [1 hr]
%index=0
gosub &blinkit
end
|rem
|rem
      ' skip numbering to line 500
500:
|rem
         ' toggle the state of the l.e.d.
         ' each second using the time function
blinkit:
while %index<%limit
 portd=portd.eor.%bit5 : ' exclusive-or to toggle
 time=0
 while time<1
 endwh
 %index=%index+1
endwh
            ' skip to 900 to rts
900:
return
|rem
|rem

Listing 1. blinky.src

Listing 2 shows the contents of the file blinky.bas that is created from blinky.src by the program basicConsBASIC

blinky.bas
100 rem
110 rem blinky program
120 rem
130 poke($b009,$20)
140 lm=3600     
150 x=0
160 gosub 510
170 end
180 rem
190 rem
500 rem
510 while x<lm
520  portd=portd.eor.$20
530  time=0
540  while time<1
550  endwh
560  x=x+1
570 endwh
900 return
910 rem
920 rem

Listing 2. blinky.bas

The converted program is loaded into the controller using a terminal program like ZTerm. After testing and debugging , the BASIC program can, in many instances, be easily stored in EPROM or EEPROM or non-volatile (battery-backed) RAM. Micromint's BCC-52 series controllers can burn programs into EPROM, while some New Micros M68HC11 boards are easily fitted with EEPROM storage.

The Macintosh program

The program basicConsBASIC is a relatively simple text parser that uses the BASIC language's excellent string manipulation capabilities. On the initial pass through the source file the contents of the equate table are saved in two global string arrays. Array gEQlabel() holds the labels and gEQsub() holds the replacement strings. For branches (GOTO and GOSUB), the array gBranchLabl() holds the labels and gLineNumStr() stores the line numbers that replace the labels. On the first pass, through the src file, the appropriate strings are assigned to the arrays; on the next pass (par file) the BASIC program lines are searched for strings in the gEQlabel() and gBranchLabl () arrays. Any that are found are replaced by the corresponding (same array index) strings in gEQsub() and gLineNumStr().

Listing 3 shows the method that processes the equate table.

Listing 3.

ProcessEqu
Sub ProcessEqu(byref textline as string)
  dim tempProgLine, equLabel, equsub As string
  dim squotePos, equPos, howlong As integer
  
  squotePos = instr(textline, gkSquote)
  if squotePos > 0 then
      // chop off comment
    tempProgLine = Left(textline, squotePos - 1) 
  else
    tempProgLine = textline
  end if
  equPos = instr(tempProgLine, ".EQU") 
  Dec (equPos)
   // get left part of .equ line
  equLabel = Left(tempProgLine, equPos)  
  StripCon (equLabel)
  gEQlabel (gEqIx) = Trim (equLabel)
   // then get assignment text
  howlong = Len(tempProgLine)     
  howlong =  howlong - (equPos + 4)
  equsub = Right(tempProgLine, howlong)
  // strip control chars
  StripCon(equsub)            
   // assign to swap array
  gEQsub(gEqIx) = Trim (equsub) 
  Inc (gEqIx)
   // make line unnumbered
  textline = "~" + " " + textline 
End Sub

basicConsBASIC is derived from an earlier Pascal program called, oddly enough, PascalConsBASIC. The languages are syntactically and structurally so similar that converting Pascal to REALbasic consisted mainly of pasting the code from each Pascal procedure or function into a REALbasic method, then making relatively minor changes, most of which can be accomplished with global search and destroy sequences. All instances of ":=" change to "=". "end;" becomes "end", and "begin" is simply removed. "Case x of" mutates to "Select case x".

One of the biggest differences between the initial Pascal program and the REALbasic version lies in the main program loop. In Pascal the loop is visible and explicitly created by the programmer; in REALbasic the loop is implicit and hidden. To illustrate let's assume we're making a program whose actions are controlled by buttons labeled This, That and Quit. A Pascal main loop might book something like Listing 4.

Listing 4.

Pascal main loop
Repeat
   If ThisButtonWasClicked() then
      DoThis()
   Else if ThatButtonWasClicked() then
      DoThat()
   Else if QuitButtonWasClicked() then
      Exitflag:=true;
Until exitflag = true;

In REALbasic, the Action methods of the three buttons call the DoThis, DoThat and Quit methods, respectively. Like the Wizard of Oz, the little man behind the curtain keeps an eye on the buttons so the programmer doesn't have to. See Listings 5 through 7.

Listing 5

ThisButton.Action
Sub ThisButton.Action()
   DoThis()
End Sub

Listing 6

ThatButton.Action
Sub ThatButton.Action()
   DoThat()
End Sub

Listing 7

QuitButton.Action
Sub QuitButton.Action()
   Quit ()
End Sub

The program basicConsBASIC Convert button's Action method calls the method Main in Listing 8.

Listing 8

Main
Sub Main ()
   dim sourcefile As folderItem
  
   DoInit ()
  sourcefile = GetOpenFolderItem("TEXT")
  if sourcefile <> nil then
    ProcessSource (sourcefile)
  end if
end sub

If the folderItem returned by REALbasic's GetOpenFolderItem method is valid, the ProcessSource method is called.

Listing 9

wBASIC.ProcessSource
Sub ProcessSource(sourcefile As folderItem)
  dim fname, conbaspath, outpath, ext As string
  dim timeOut, dateStr, timeStr, lapstr As string
  dim btimeOut,bdateStr, btimeStr, mess As string
  dim infile, outfile, conbasFolder as FolderItem
  dim flag1, flag2 As boolean
  dim instrm As TextInputStream
  dim outstrm As TextOutputStream
  dim index, begsecs, finsecs, lapsecs As integer
  
  // where are  we? get current dir 
  conbasFolder = GetFolderItem("") 
  conbaspath = conbasFolder.AbsolutePath
  fname = sourcefile.Name
  //  get date/time
  btimeStr = CurrentTimeString( )
  bdateStr = CurrentDateString( )
  mess = "Converting sourcefile :  " + fname
  fname = StriptExtention(fname)
  // open the dmp file
   outpath = conbaspath + fname + ".dmp"
  flag1 = DumpFileOpen (outpath)
  flag1 = false
  index = 1 
  do
    select case index
    case 1
      infile = sourcefile
      outfile = nil
      instrm = infile.OpenAsTextFile
      if instrm <> nil then
        outpath = conbaspath + fname 
        ext = ".par"
        flag2 = MakeOutFile (outpath,ext,outstrm)
        if flag2 then
          // handle err
          exit
        end if
        flag1 = MakeParFile(instrm, outstrm)
        flag2 = CloseFiles (instrm, outstrm)
      else
        // handle err
        flag2 = true
      end if
    case 2
      infile = GetFolderItem (outpath + ext)
      if infile = nil then
        exit
      end if
      instrm = infile.OpenAsTextFile
      if instrm <> nil then
        outpath = conbaspath + fname 
        ext = ".num"
        flag2 = MakeOutFile (outpath,ext,outstrm)
        if flag2 then
          // handle err
          exit
        end if
        flag1 = MakeNumFile(instrm, outstrm)
        flag2 = CloseFiles (instrm, outstrm)
      else
        // handle err
        flag2 = true
      end if
    case 3
      infile = GetFolderItem (outpath + ext)
      if infile = nil then
        exit
      end if
      instrm = infile.OpenAsTextFile
      if instrm <> nil then
        outpath = conbaspath + fname 
        ext = ".bas"
        flag1 = MakeOutFile(outpath,ext,outstrm)
        if flag1 then
          exit
        end if
        flag1 = MakeBasFile(instrm, outstrm)
        flag2 = CloseFiles (instrm, outstrm)
      else
        flag2 = true
      end if
    case 4
      infile = GetFolderItem (outpath + ext)
      if infile = nil then
        exit
      end if
      instrm = infile.OpenAsTextFile
      if instrm <> nil then
        flag1 = CheckBasFile (instrm)
        instrm.Close
      end if
    end // select
    Inc (index)
  loop until (index  > 4) or flag1 or flag2
  
  
  timeStr = CurrentTimeString( )
  UpdateBegTime (btimestr)
  UpdateFinTime  (timeStr)
  begsecs = TimeStringToSecs (btimestr)
  finsecs = TimeStringToSecs (timeStr)
  lapsecs = finsecs - begsecs
  lapstr = SecsToTimeString (lapsecs)
  UpdateLapsedTime (lapstr)
  
  if gDumpFileOpenFlag then
    dateStr = CurrentDateString( )
    WriteLineToDumpFile (mess)
    mess = "Beg : " + bdateStr + " " + btimestr
    WriteLineToDumpFile (mess)
    mess = "Fin : " + datestr + " " + timestr
    WriteLineToDumpFile (mess)
    WriteLineToDumpFile ("")
    WriteLineToDumpFile ("")
    mess = "Elapsed Time :  " + lapstr
    WriteLineToDumpFile (mess)
    WriteLineToDumpFile ("")
    WriteLineToDumpFile ("")
    WriteLineToDumpFile ("")
    WriteLineToDumpFile ("")
    gDumpStream.close
    gDumpFileOpenFlag = false
  end if

End Sub

Listing 9 shows the case statement inside a four-pass do loop that creates a new file in each pass but the fourth, in each case but the first taking input from the output file of the previous pass.

Hooking up

Once your program is written, you need to get it into the controller. With modern Macs that means a serial port must be added either with a USB-to-serial converter or a PCI bus card with serial ports. Keyspan is one source for both types. The internet auction sites such as ebay commonly offer adapters from various sources. Additional suitable cables and/or adapters and software drivers may also be required, exact needs determined by the controller being used. The recent article by Tom Djajadiningrat in MacTech 20:2 has a very good discussion of Mac serial issues.

If you're using a Keyspan USA-28X USB-to-serial adapter or a Keyspan SX Pro PCI serial card and your controller is a Micromint BCC-52, you'll need an old style Mac modem cable with a DB-25 male connector at one end and a mini-DIN8 male at the other. TrippLite is one source for this type of cable. If your controller is a New Micros 68HC11-based model supplied with an RS-232 cable designed for the WinTel set, a bit of custom adapting may be needed. RS-232 interfacing is something of a black art whose practitioners require familiarity with breakout boxes, logic probes, soldering irons and strong coffee.

The shareware program ZTerm is probably the simplest software to use to download a converted program to the controller. Set the parms to 8N1 and 9600 Baud, then select local from the Dial menu. Hit "Enter" and you should get a prompt. BASIC11 uses a "splat" (#) prompt; BASIC-52 uses ">". Use the Settings : Text Pacing menu to set character and line delays and the BASIC prompt for smooth transfers. To initiate the transfer, select Send text from ZTerm's File menu, then choose the file, e.g. blinky.bas in the navigation dialog.

Sources

ZTerm - http://homepage.mac.com/dalverson/zterm/

New Micros Incorporated - http://www.newmicros.com/

Micromint - http://www.micromint.com/


F.C. Kuechmann is a programmer, hardware designer and coffee drinker who once lived in Chicago and has lived in Vancouver-NOT-CANADA Washington for many years. He can be contacted at bosedenage@earthlink.net

 
AAPL
$524.94
Apple Inc.
+5.93
MSFT
$40.01
Microsoft Corpora
-0.39
GOOG
$536.10
Google Inc.
-20.44

MacTech Search:
Community Search:

Software Updates via MacUpdate

VMware Fusion 6.0.3 - Run Windows apps a...
VMware Fusion allows you to create a Virtual Machine on your Mac and run Windows (including Windows 8.1) and Windows software on your Mac. Run your favorite Windows applications alongside Mac... Read more
Tweetbot 1.5.1 - Popular iOS twitter cli...
Tweetbot is a full-featured OS X Twitter client with a lot of personality. Whether it's the meticulously-crafted interface, sounds and animation, or features like multiple timelines and column views... Read more
Mac DVDRipper Pro 4.1.7 - Copy, backup,...
Mac DVDRipper Pro is the DVD backup solution that lets you protect your DVDs from scratches, save your batteries by reading your movies from your hard disk, manage your collection with just a few... Read more
PDFpenPro 6.2 - Advanced PDF toolkit for...
PDFpenPro allows users to edit PDF's easily. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Create... Read more
PDFpen 6.2 - Edit and annotate PDFs with...
PDFpen allows users to easily edit PDF's. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Features... Read more
Monolingual 1.5.9 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. It requires a 64-bit capable Intel-based Mac and at least... Read more
Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
Starcraft II: Wings of Liberty 1.1.1.180...
Download the patch by launching the Starcraft II game and downloading it through the Battle.net connection within the app. Starcraft II: Wings of Liberty is a strategy game played in real-time. You... Read more
Sibelius 7.5.0 - Music notation solution...
Sibelius is the world's best-selling music notation software for Mac. It is as intuitive to use as a pen, yet so powerful that it does most things in less than the blink of an eye. The demo includes... Read more
Typinator 5.9 - Speedy and reliable text...
Typinator turbo-charges your typing productivity. Type a little. Typinator does the rest. We've all faced projects that require repetitive typing tasks. With Typinator, you can store commonly used... Read more

Latest Forum Discussions

See All

Have a Special Dead Trigger 2 Easter Bas...
Have a Special Dead Trigger 2 Easter Basket Full of Goodies, Courtesy of Madfinger Games Posted by Rob Rich on April 18th, 2014 [ permalink ] Dead Trigger 2 | Read more »
Almost All of Playdek’s Library is on Sa...
Almost All of Playdek’s Library is on Sale Right Now, and You Should Check it Out Posted by Rob Rich on April 18th, 2014 [ permalink ] Playdek has released quite a few great iOS ports of board and card games over the years, and now most of them... | Read more »
Zynga Launches Brand New Farmville Exper...
Zynga Launches Brand New Farmville Experience with Farmville 2: Country Escape Posted by Tre Lawrence on April 18th, 2014 [ permalink ] | Read more »
David. Review
David. Review By Cata Modorcea on April 18th, 2014 Our Rating: :: MINIMALISTIC IN A DIFFERENT WAYUniversal App - Designed for iPhone and iPad David is a minimalistic game wrapped inside of a soothing atmosphere in which the hero... | Read more »
Eyefi Unveils New Eyefi Cloud Service Th...
Eyefi Unveils New Eyefi Cloud Service That Allows Users to Share Media Across Personal Devices Posted by Tre Lawrence on April 18th, 2014 [ permalink ] | Read more »
Tales from the Dragon Mountain: The Lair...
Tales from the Dragon Mountain: The Lair Review By Jennifer Allen on April 18th, 2014 Our Rating: :: STEADY ADVENTURINGiPad Only App - Designed for the iPad Treading a safe path, Tales from the Dragon Mountain: The Lair is a... | Read more »
Yahoo Updates Flickr App with Advanced E...
Yahoo Updates Flickr App with Advanced Editing Features and More Posted by Tre Lawrence on April 18th, 2014 [ permalink ] | Read more »
My Incredible Body - A Kid's App to...
My Incredible Body - A Kid's App to Learn about the Human Body 1.1.00 Device: iOS Universal Category: Education Price: $2.99, Version: 1.1.00 (iTunes) Description: Wouldn’t it be cool to look inside yourself and see what was going on... | Read more »
Trials Frontier Review
Trials Frontier Review By Carter Dotson on April 18th, 2014 Our Rating: :: A ROUGH LANDINGUniversal App - Designed for iPhone and iPad Trials Frontier finally brings the famed stunt racing franchise to mobile, but how much does its... | Read more »
Evernote Business Notebook by Moleskin I...
Evernote Business Notebook by Moleskin Introduced – Support Available in Evernote for iOS Posted by Tre Lawrence on April 18th, 2014 [ permalink ] | Read more »

Price Scanner via MacPrices.net

Free HopTo 2.2 Helps Enhance Your Productivit...
The HopTo app helps you do more on your iPad by providing more and easier adaccess to files and documents. Version 2.2 adds Egnyte and HopTo’s Mac OSX File Connector. If you already have the hopTo... Read more
National Distracted Driving Awareness Month:...
As the country recognizes National Distracted Driving Awareness Month, Sprint is reminding wireless consumers to focus on driving while behind the wheel, to not text or email while driving, and to... Read more
13-inch 2.4GHz Retina MacBook Pro available f...
Abt has the 13″ 2.4GHz 128GB Retina MacBook Pro available for $1229 including free shipping. Their price is $70 off MSRP. Read more
iMacs on sale for up to $160 off MSRP this we...
Best Buy has iMacs on sale for up to $160 off MSRP for a limited time. Choose free home shipping or free instant local store pickup (if available). Prices are valid for online orders only, in-store... Read more
iPad Airs on sale this weekend for up to $100...
Best Buy has WiFi iPad Airs on sale for $50 off MSRP and WiFi + Cellular iPad Airs on sale for $100 off MSRP on their online store for a limited time, with prices now starting at $449. Choose free... Read more
Apple restocks refurbished Mac minis starting...
The Apple Store has restocked Apple Certified Refurbished Mac minis for up to $150 off the cost of new models. Apple’s one-year warranty is included with each mini, and shipping is free: - 2.5GHz Mac... Read more
Hyundai Brings Apple CarPlay To The 2015 Sona...
Hyundai Motor America has announced it will bring Apple CarPlay functionality to the 2015 Sonata. CarPlay is pitched as a smarter, safer and easier way to use iPhone in the car and gives iPhone users... Read more
Updated iPads Coming Sooner Than We Had Thoug...
MacRumors, cites KGI securities analyst Ming Chi Kuo, well-respected as an Apple product prognisticator, saying that Apple will introduce an upgraded iPad Air and iPad mini in 2014/Q3, meaning the... Read more
Toshiba Unveils New High And Low End Laptop M...
Toshiba has announced new laptop models covering both the high-end and low-end of the notebook computer spectrum. Toshiba 4K Ultra HD Laptop Toshiba’s new Satellite P55t features one of the world’s... Read more
Save up to $270 with Apple refurbished 13-inc...
The Apple Store has Apple Certified Refurbished October 2013 13″ Retina MacBook Pros available starting at $1099, with models up to $270 off MSRP. Apple’s one-year warranty is standard, and shipping... Read more

Jobs Board

*Apple* Automotive Parts Department position...
Apple Automotive is one of the fastest growing dealer…and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive, we Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Retail - Manager - Holyoke - Apple I...
Job Summary Keeping an Apple Store thriving requires a diverse set of leadership skills, and as a Manager, you’re a master of them all. In the store’s fast-paced, Read more
*Apple* Retail - Manager - Apple (United Sta...
Job SummaryKeeping an Apple Store thriving requires a diverse set of leadership skills, and as a Manager, you're a master of them all. In the store's fast-paced, dynamic Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.