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

Sketch 44.1 - Design app for UX/UI for i...
Sketch is an innovative and fresh look at vector drawing. Its intentionally minimalist design is based upon a drawing space of unlimited size and layers, free of palettes, panels, menus, windows, and... Read more
BetterTouchTool 2.260 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Chromium 59.0.3071.115 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 59.0.3071.115: This update has no Flash plug... Read more
SyncTwoFolders 2.2.3 - Syncs two user-sp...
SyncTwoFolders simply synchronizes two folders. It supports synchronization across mounted network drives and it is a possibility to run a simulation showing in a log what will be done. Please visit... Read more
Myriad 4.1 - $79.00
Myriad is, simply put, one of the best audio batch processors. Totally redesigned, it looks beautiful and delivers incredible performance. Let Myriad do the heavy lifting while you get back to doing... Read more
Suitcase Fusion 7 18.2.4 - Font manageme...
Suitcase Fusion 7 is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization... Read more
SoftRAID 5.6.1 - High-quality RAID manag...
SoftRAID allows you to create and manage disk arrays to increase performance and reliability. SoftRAID allows the user to create and manage RAID 4 and 5 volumes, RAID 1+0, and RAID 1 (Mirror) and... Read more
BetterTouchTool 2.25 - Customize Multi-T...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Google Chrome 59.0.3071.115 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more
Google Chrome 59.0.3071.115 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more

Latest Forum Discussions

See All

Ravenscroft 275 Piano (Music)
Ravenscroft 275 Piano 1.0.0 Device: iOS Universal Category: Music Price: $35.99, Version: 1.0.0 (iTunes) Description: Experience the splendor of a Ravenscroft Grand with the most realistic sounding piano ever created for iOS. Launch... | Read more »
This War of Mine gets a new ending and m...
This War of Mine just got a big new update, featuring free DLC that adds a new ending to the game, among other exciting changes. The update is celebrating the game's two-year release anniversary. Apart from the new ending, which will be quite... | Read more »
Summon eight new heroes in Fire Emblem H...
Nintendo keeps coming at us with Fire Emblem Heroes updates, and it doesn't look like that trend is stopping anytime soon. The folks behind the game have just announced the new War of the Clerics Voting Gauntlet, expected to start next Tuesday. [... | Read more »
The best deals on the App Store this wee...
iOS publishers are pulling out all the stops this week -- there's a huge number of seriously great games at discounted prices this week. Let's not waste any time and get right down to business. [Read more] | Read more »
The House of da Vinci (Games)
The House of da Vinci 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Enter The House of Da Vinci, a new must-try 3D puzzle adventure game. Solve mechanical puzzles, discover hidden... | Read more »
Solve the disappearance of history’s gre...
Blue Brain Games invites you to indulge in an immersive hands-on 3D puzzle adventure in similar vein to The Room series, with its debut release The House of Da Vinci. Set during the historic period of the Italian Renaissance (when Leonardo himself... | Read more »
Age of Rivals (Games)
Age of Rivals 3.3 Device: iOS Universal Category: Games Price: $.99, Version: 3.3 (iTunes) Description: Deep civilization-building strategy in a fast-paced card game! | Read more »
Panthera Frontier (Games)
Panthera Frontier 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
Angry Birds Evolution beginner's gu...
Angry Birds changes things up a fair bit in its latest iteration, Angry Birds Evolution. The familiar sling-shot physics mechanics are still there, but the game now features team-based gameplay, RPG elements, and a new top-down view. With all of... | Read more »
Sega Forever is for the retro game fans
Sega is launching a new retro games service titled Sega Forever, in a move that's sure to delight games enthusiasts with a bit of nostalgia. Sega's releasing five classic games for free. The titles include Sonic the Hedgehog, Phantasy Star II,... | Read more »

Price Scanner via MacPrices.net

Apple Releases iOS 11 Public Beta; How To Get...
The official release of Apple’s latest mobile operating system iOS 11 is vaguely slated for the fall, but as of June 26, ordinary users can download an iOS 11 public beta. To download the iOS 11... Read more
Extend Life of MacBook Pro Retina 2.0TB With...
MacSales.com/Other World Computing has announced availability of the new OWC 2.0TB Aura Pro Solid State Drive for mid-2012 to early 2013 Apple MacBook Pro with Retina display. One of the fastest... Read more
BBEdit SummerFest 2017 Discount Ends Friday,...
You can get 20% off BBEdit for a limited time in Bare Bones Software’s http://www.eastgate.com/Tinderbox/Specials/SummerFest.html?mc_cid=f2101ca260&mc_eid=[UNIQID]SummerFest 2017 sale and... Read more
Use Apple’s Education discount to save up to...
Purchase a new Mac using Apple’s Education discount, and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: - 15″ 2... Read more
Clearance 27-inch 3.3GHz 5K iMac available fo...
Amazon clearance 27″ 3.3GHz 5K iMacs (MK482LL/A) available for $1799.90 including free shipping. Their price is $500 off original MSRP, and it’s the lowest price available for this model from any... Read more
13-inch 1.8GHz/256GB MacBook Air on sale for...
B&H Photo has the updated 2017 13″ 1.8GHz/256GB MacBook Air (MQD42LL/A) in stock and on sale for $1129 including free shipping plus NY & NJ tax only. Their price is $70 off MSRP. Read more
27-inch 3.4GHz iMac on sale for $1699, save $...
B&H Photo has the new 2017 27″ 3.4GHz iMac (MNE92LL/A) in stock and on sale for $1699 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
21-inch 2.3GHz iMac on sale for $1049, save $...
B&H Photo has the new 2017 21″ 2.3GHz iMac (MMQA2LL/A) in stock and on sale for $1049 including free shipping plus NY & NJ tax only. Their price is $50 off MSRP. Read more
ABBYY TextGrabber 6 for iOS Implements Instan...
ABBYY has announced the release of TextGrabber 6.0.0, an important feature update to the company’s productivity app developed for iOS and Android devices. TextGrabber 6.0 now offers Real-Time... Read more
vPhone, First Smartphone That Can’t Be Lost,...
Austin, Texas based Hypori has introduced the vPhone, a virtual smartphone that affords every business user the benefits of separate work and personal phones, conveniently delivered on a single... Read more

Jobs Board

*Apple* News Product Marketing Mgr., Publish...
…organizational consensus on strategy and vision for publisher tools, authoring, and Apple News Format.Carries this strategy and vision across the organization to Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Security Data Analyst - *Apple* Information...
…data sources need to be collected to allow Information Security to better protect Apple employees and customers from a wide range of threats.Act as the subject matter Read more
Lead *Apple* Solutions Consultant - Apple I...
…integrity, and trust.Success Metrics/Key Performance Indicators:Quantitative* Year over Year growth in Apple Product and Beyond the Box sales in the assigned Point of Read more
*Apple* Solutions Consultant till v%u00E5r...
…ethics, integrity, and trust.Success Metrics/Key Performance Indicators:QuantitativeYear over Year growth in Apple Product and Beyond the Box sales in the assigned Point Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.