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

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Box Sync 4.0.6567 - Online synchronizati...
Box Sync gives you a hard-drive in the Cloud for online storage. Note: You must first sign up to use Box. What if the files you need are on your laptop -- but you're on the road with your iPhone? No... Read more
Carbon Copy Cloner 4.1.4 - Easy-to-use b...
Carbon Copy Cloner backups are better than ordinary backups. Suppose the unthinkable happens while you're under deadline to finish a project: your Mac is unresponsive and all you hear is an ominous,... Read more
OmniGraffle Pro 6.3.1 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
Monosnap 3.1.2 - Versatile screenshot ut...
Monosnap lets you capture screenshots, share files, and record video and .gifs! Capture: Capture full screen, just part of the screen, or a selected window Make your crop area pixel perfect with... Read more
Alfred 2.7.2 - Quick launcher for apps a...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
Microsoft Remote Desktop 8.0.19 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more
OmniGraffle 6.3 - Create diagrams, flow...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
PDFKey Pro 4.3.2 - Edit and print passwo...
PDFKey Pro can unlock PDF documents protected for printing and copying when you've forgotten your password. It can now also protect your PDF files with a password to prevent unauthorized access and/... Read more
Ableton Live 9.2.2 - Record music using...
Ableton Live lets you create and record music on your Mac. Use digital instruments, pre-recorded sounds, and sampled loops to arrange, produce, and perform your music like never before. Ableton Live... Read more
Macs Fan Control 1.3.1.0 - Monitor and c...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more

ReBoard: Revolutionary Keyboard (Utilit...
ReBoard: Revolutionary Keyboard 1.0 Device: iOS Universal Category: Utilities Price: $1.99, Version: 1.0 (iTunes) Description: Do everything within the keyboard without switching apps! If you are in WhatsApp, how do you schedule a... | Read more »
Tiny Empire (Games)
Tiny Empire 1.1.3 Device: iOS Universal Category: Games Price: $2.99, Version: 1.1.3 (iTunes) Description: Launch cannonballs and blow tiny orcs into thousands of pieces in this intuitive fantasy-themed puzzle shooter! Embark on an... | Read more »
Astropad Mini (Productivity)
Astropad Mini 1.0 Device: iOS iPhone Category: Productivity Price: $4.99, Version: 1.0 (iTunes) Description: *** 50% off introductory price! ​*** Get the high-end experience of a Wacom tablet at a fraction of the price with Astropad... | Read more »
Emo Chorus (Music)
Emo Chorus 1.0.0 Device: iOS Universal Category: Music Price: $1.99, Version: 1.0.0 (iTunes) Description: Realistic Choir simulator ranging from simple Chorus emulation to full ensemble Choir with 128 members. ### introductory offer... | Read more »
Forest Spirit (Games)
Forest Spirit 1.0.5 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.5 (iTunes) Description: | Read more »
Ski Safari 2 (Games)
Ski Safari 2 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: The world's most fantastical, fun, family-friendly skiing game is back and better than ever! Play as Sven's sister Evana, share... | Read more »
Lara Croft GO (Games)
Lara Croft GO 1.0.47768 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.47768 (iTunes) Description: Lara Croft GO is a turn based puzzle-adventure set in a long-forgotten world. Explore the ruins of an ancient... | Read more »
Whispering Willows (Games)
Whispering Willows 1.23 Device: iOS Universal Category: Games Price: $4.99, Version: 1.23 (iTunes) Description: **LAUNCH SALE 50% OFF** - Whispering Willows is on sale for 50% off ($4.99) until September 9th. | Read more »
Calvino Noir (Games)
Calvino Noir 1.1 Device: iOS iPhone Category: Games Price: $3.99, Version: 1.1 (iTunes) Description: The film noir stealth game. Calvino Noir is the exploratory, sneaking adventure through the 1930s European criminal underworld.... | Read more »
Angel Sword (Games)
Angel Sword 1.0 Device: iOS Universal Category: Games Price: $6.99, Version: 1.0 (iTunes) Description: Prepare to adventure in the most epic full scale multiplayer 3D RPG for mobile! Experience amazing detailed graphics in full HD.... | Read more »

Price Scanner via MacPrices.net

Apple and Cisco Partner to Deliver Fast-Lane...
Apple and Cisco have announced a partnership to create a “fast lane” for iOS business users by optimizing Cisco networks for iOS devices and apps. The alliance integrates iPhone with Cisco enterprise... Read more
Apple offering refurbished 2015 13-inch Retin...
The Apple Store is offering Apple Certified Refurbished 2015 13″ Retina MacBook Pros for up to $270 (15%) off the cost of new models. An Apple one-year warranty is included with each model, and... Read more
Apple refurbished 2015 MacBook Airs available...
The Apple Store has Apple Certified Refurbished 2015 11″ and 13″ MacBook Airs (the latest models), available for up to $180 off the cost of new models. An Apple one-year warranty is included with... Read more
21-inch iMacs on sale for up to $120 off MSRP
B&H Photo has 21″ iMacs on sale for up to $120 off MSRP including free shipping plus NY sales tax only: - 21″ 1.4GHz iMac: $999.99 $100 off - 21″ 2.7GHz iMac: $1199.99 $100 off - 21″ 2.9GHz iMac... Read more
5K iMacs on sale for up to $150 off MSRP, fre...
B&H Photo has the 27″ 3.3GHz 5K iMac on sale for $1899.99 including free shipping plus NY tax only. Their price is $100 off MSRP. They have the 27″ 3.5GHz 5K iMac on sale for $2149.99 $2199.99, $... Read more
1.4GHz Mac mini, refurbished, available for $...
The Apple Store has Apple Certified Refurbished 1.4GHz Mac minis available for $419. Apple’s one-year warranty is included, and shipping is free. Their price is $80 off MSRP, and it’s the lowest... Read more
iPad Air 2 on sale for up to $100 off MSRP
Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for a limited time. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
MacBook Airs on sale for $100 off MSRP
Best Buy has MacBook Airs on sale for $100 off MSRP on their online store. Choose free shipping or free local store pickup (if available). Sale prices for online orders only, in-store prices may vary... Read more
Big Grips Lift Handle For iPad Air and iPad A...
KEM Ventures, Inc. which pioneered the extra-large, super-protective iPad case market with the introduction of Big Grips Frame and Stand in 2011, is launching Big Grips Lift featuring a new super-... Read more
Samsung Launches Galaxy Tab S2, Its Most Powe...
Samsung Electronics America, Inc. has announced the U.S. release of the Galaxy Tab S2, its thinnest, lightest, ultra-fast tablet. Blending form and function, elegant design and multitasking power,... Read more

Jobs Board

*Apple* Evangelist - JAMF Software (United S...
The Apple Evangelist is responsible for building and cultivating strategic relationships with Apple 's small and mid-market business development field teams. This Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Desktop Analyst - KDS Staffing (Unit...
…field and consistent professional recruiting achievement. Job Description: Title: Apple Desktop AnalystPosition Type: Full-time PermanentLocation: White Plains, NYHot Read more
*Apple* Systems Engineer (Mclean, VA and NYC...
Title: Apple Systems Engineer (Mclean, VA and NYC) Location: United States-New York-New York-200 Park Ave (22005) Other Locations: United States-Virginia-Vienna-Towers Read more
*Apple* Systems Engineer (Mclean, VA and NYC...
…Assist in providing strategic direction and technical leadership within the Apple portfolio, including desktops, laptops, and printing environment. This person will Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.