TweetFollow Us on Twitter

Forth Q and A
Volume Number:1
Issue Number:6


By Jörg Langowski

Q: How can I write text and numbers to a window and have automatic wrap- around?

A: For one thing, Forth does not define the simple “.” or type words so as to provide an automatic CR when the end of the window is reached. This makes sense in some applications, such as printing out tables, when the window size is not known beforehand. On the other hand, it is rather annoying if one wants to test a simple definition to see half of the printout disappear off the right edge.

You might have noticed that the built-in Forth word, WORDS, does an automatic word wrap. So it almost looks like there is some hidden word in MacForth that tests for the end of the ‘screen’ and prints out a CR when it is reached. Lets look at the definition of WORDS, using the decompiler from an earlier issue of this journal. (I converted the BRANCHes to IFs etc. to make the code more readable). Please refer to figure 1.

: words
  context @ ?dup 
   if @ ?dup
     if dup @ + ( stack now contains address of latest definition )
        begin dup dup 1+ c@ swap c@ or while ( token <> 0 )
            2+ count 31 and 2dup 16 {2c7c} ( aha! hidden definition )
            dup {2c58} ( another one ) type 2 spaces
            + ( add name length, get next token )
     drop then

Figure 1

The code is pretty sraightforward: The address of the CONTEXT vocabulary is put on the stack and the offset to the LATEST definition added to it. Then, after making sure it is not at the end of the list (token = 0), WORDS gets the name string of the definition and, after some manipulations, types it. The manipulations are done by two of those strange tokens that have no name associated with them, {2C7C} and {2C58}. They are defined as follows:

: {2c7c} col @ over wmod 1+ -
         dup {2c58} col @ if spaces else drop then ;

: {2c58} col @ +
         get.window +wbounds 6+ w@
         get.window +wline.height @ 7-
         w/ > if cr then ;

The first one, {2C7C} tabs to the next integer multiple of n, where n is the number on top of the stack, and wraps around if it would go beyond the limit of the window. The actual wraparound is done by {2C58}, which expects the number of characters to be output on top of the stack. It then compares the final cursor position to (right window edge)/(line height - 7), which is approximately the last column position in the window. If the string would print beyond this last position, a carriage return is output first. The ‘approximately’, by the way, is the reason why WORDS sometimes prints off the screen with non-standard text sizes. The remedy is to increase LINE.HEIGHT.

So you can very easily achieve automatic wrap when outputting text. For string output (with COUNT TYPE) you may redefine:

: wraptype dup 2c58 execute type ;

and any string you output using this word will automatically be confined to the window boundaries (more or less; in case of trouble change LINE.HEIGHT). For number output, you either have to know beforehand how many digits your number will have, or you write your number to string conversion routine and then use WRAPTYPE.

In the near future, we will solve the text output problem (and also the Cut/Paste problem) in a more elegant way by using the TextEdit functions. Stay tuned for an article on that.

Q: How can I get access to the toolbox routines that are not predefined in MacForth?

A: I hope your question has already been answered in one of my recent columns (there is this 3 months’ delay between writing the letter to us and getting the answer), but I’ll repeat that important point here.

MacForth provides defining words that support most of the toolbox routines. They are the following:

OS.TRAP - the address on top of stack (TOS) is an operating system trap, which is compiled into the definition of the following word. On execution, this word takes the 32-bit number on TOS, puts it into register A0 and executes the trap. The result is returned in the variable IO-RESULT.

MT - the address on TOS is a Pascal procedure type trap. All parameters to this procedure are 32-bit items. On execution, the trap is called with all the parameters passed through the stack. They have to be set up in the order given in the trap definition (in Inside Macintosh).

W>MT - the Pascal definition expects one 16-bit item on TOS. Therefore, the (32-bit) item on TOS is converted to a 16-bit item before the trap is called.

2W>MT - same as W>MT, the two topmost items on the stack are converted to 16 bits.

The third type of traps are Pascal function type traps. This means that you have to allocate space, either 16 or 32 bits, by pushing a zero before you push the arguments on the stack. This way, function type traps can be called through MT. For simple functions, MacForth provides four defining words that do this space allocation automatically:

FUNC>W - no argument, 16 bit result (converted to 32 bits)
FUNC>L - no argument, 32 bit result
W>FUNC>L - 16 bit argument, 32 bit result
L>FUNC>L - 32 bit argument, 32 bit result. 

For all other trap calls you have to write your custom stack set-up procedure, which is not too hard. The definition of NEW.CONTROL in the March issue gives an example for that. One important tool in writing such a toolbox trap definition is the routine PUSHW that changes TOS and the stack pointer in such a way that TOS is a 16-bit item:

: pushw s0 @ >r sp@ 2- s0 ! sp! r> s0 ! drop ;

Be cautious in using PUSHW; 16-bit pushes and calls that pull 16 bits have to match, otherwise the stack pointer may be 2 bytes out of frame.

Q: How do I use resources from MacForth?

A: The BLKS files contain no resources (as you might check using a resource editor - some of them are around now - or even a simple disk editor program). If you want to use the resource fork of a file, you have to generate the resources first with Rmaker (this program can also be found on several public domain disks). Rmaker, however, has the annoying habit of deleting the data fork of a file that is presented to him. Therefore, the correct procedure is to create a new file of the correct type and creator with Rmaker and put in the resources that you want. For example, the input to Rmaker might look like:




This will create the file MyFile with the correct type (BLKS) and creator (M4TH) and put the Apple menu (ID=1) and a test menu (ID=2) into the resource fork. Of course, this file does not contain a data fork yet, so you have to add some blocks to it by executing

 “ MyFile” 1 assign
1 open
1 10 append.blocks

and you can put your Forth program text into those blocks. MacForth provides the word OPEN.RSRC for opening the resource fork of a file; you will have to read the resources through the appropriate toolbox routines, since there are no predefined words for getting resources from a file.

Since Forth programs are usually distributed in source form, however, I do not consider resources as critical as in other applications. However, if you develop stand-alone applications in Forth (I have not used Level 3 yet, but any comments are welcome), you might want to add the resources with Rmaker. I will deal with using resources in one of my next columns.


Community Search:
MacTech Search:

Software Updates via MacUpdate

Paperless 2.3.7 - $49.95
Paperless is a digital documents manager. Remember when everyone talked about how we would soon be a paperless society? Now it seems like we use paper more than ever. Let's face it - we need and we... Read more
DEVONthink Pro 2.9.6 - Knowledge base, i...
DEVONthink Pro is your essential assistant for today's world, where almost everything is digital. From shopping receipts to important research papers, your life often fills your hard drive in the... Read more
Safari Technology Preview 10.1 - The new...
Safari Technology Preview contains the most recent additions and improvements to WebKit and the latest advances in Safari web technologies. And once installed, you will receive notifications of... Read more
VueScan 9.5.60 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
Civilization VI 1.0.0 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
Adobe Flash Player - Plug-in...
Adobe Flash Player is a cross-platform, browser-based application runtime that provides uncompromised viewing of expressive applications, content, and videos across browsers and operating systems.... Read more
RestoreMeNot 2.0.4 - Disable window rest...
RestoreMeNot provides a simple way to disable the window restoration for individual applications so that you can fine-tune this behavior to suit your needs. Please note that RestoreMeNot is designed... Read more
Persecond 1.0.7 - Timelapse video made e...
Persecond is the easy, fun way to create a beautiful timelapse video. Import an image sequence from any camera, trim the length of your video, adjust the speed and playback direction, and you’re done... Read more
iShowU Instant 1.1.0 - Full-featured scr...
iShowU Instant gives you real-time screen recording like you've never seen before! It is the fastest, most feature-filled real-time screen capture tool from shinywhitebox yet. All of the features you... Read more
Spotify - Stream music, creat...
Spotify is a streaming music service that gives you on-demand access to millions of songs. Whether you like driving rock, silky R&B, or grandiose classical music, Spotify's massive catalogue puts... Read more

Latest Forum Discussions

See All

The Forgotten Room (Games)
The Forgotten Room 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: Play as paranormal investigator John “Buster of Ghosts” Murr as he explores yet another mysteriously creepy house. This... | Read more »
5 Halloween mobile games for wimps
If you're anything like me, horror games are a great way to have nightly nightmares for the next decade or three. They're off limits, but perhaps you want to get in on the Halloween celebrations in some way. Fortunately not all Halloween themed... | Read more »
The 5 scariest mobile games
It's the most wonderful time of the year for people who enjoy scaring themselves silly with haunted houses, movies, video games, and what have you. Mobile might not be the first platform you'd turn to for quality scares, but rest assured there are... | Read more »
Lifeline: Flatline (Games)
Lifeline: Flatline 1.0.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.0 (iTunes) Description: The Lifeline series takes a terrifying turn in this interactive horror experience. Every decision you make could help... | Read more »
Game of Dice is now available on Faceboo...
After celebrating its anniversary in style with a brand new update, there’s even more excitement in store for Game of Dice has after just being launched on Facebook Gameroom. A relatively new platform, Facebook Gameroom has been designed for PC... | Read more »
4 addictive clicker games like Best Fien...
Clickers are passive games that take advantage of basic human psychology to suck you in, and they're totally unashamed of that. As long as you're aware that this game has been created to take hold of your brain and leave you perfectly content to... | Read more »
Smile Inc. Guide: How not to die on the...
As if Mondays weren't bad enough, at Smile Inc. you have to deal with giant killer donuts, massive hungry staplers, and blasting zones. It's not exactly a happy, thriving work environment. In fact, you'll be lucky to survive the nine to five.... | Read more »
Oh...Sir! The Insult Simulator (Games)
Oh...Sir! The Insult Simulator 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: | Read more »
WitchSpring2 (Games)
WitchSpring2 1.27 Device: iOS Universal Category: Games Price: $3.99, Version: 1.27 (iTunes) Description: This is the story of Luna, the Moonlight Witch as she sets out into the world. This is a sequel to Witch Spring. Witch Spring 2... | Read more »
4 popular apps getting a Halloween makeo...
'Tis the season for all things spooky. So much, so, in fact, that even apps are getting into the spirt of things, dressing up in costume and spreading jack o' lanterns all about the place. These updates bring frightening new character skins, scary... | Read more »

Price Scanner via

Apple reveals new next-generation 15″ and 13″...
Apple today revealed their next-generation 15″ and 13″ MacBook Pros. The new models are thinner and lighter than before with a new aluminum design featuring an enhanced keyboard with retina, multi-... Read more
Worldwide Smartphone Shipments Up 1.0% Year o...
According to preliminary results from the International Data Corporation (IDC) Worldwide Quarterly Mobile Phone Tracker, vendors shipped a total of 362.9 million smartphones worldwide in the third... Read more
TuneBand Arm Band For iPhone 7 and 7 Plus Rel...
Grantwood Technology has added the TuneBand for iPhone 7 and 7 Plus to its smartphone armband series. The TuneBand provides a lightweight and comfortable way to wear the iPhone while running,... Read more
1.4GHz Mac mini on sale for $449, save $50
Adorama has the 1.4GHz Mac mini on sale for $50 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini (Apple sku# MGEM2LL/A): $449 $50 off MSRP To purchase a mini at... Read more
21-inch 1.6GHz iMac on sale for $999, save $1...
B&H has the 21″ 1.6GHz Apple iMac on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more
Macs’ Superior Enterprise Deployment Cost Eco...
IBM’s debunking of conventional wisdom and popular mythology about the relative cost of using Apple Mac computers as opposed to PCs running Microsoft Windows at the sixth annual Jamf Nation User... Read more
12-inch WiFi Apple iPad Pros on sale for $50-...
B&H Photo has 12″ WiFi Apple iPad Pros on sale for $50-$70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP -... Read more
Apple refurbished 12-inch 128GB iPad Pros ava...
Apple has Certified Refurbished 12″ Apple iPad Pros available for up to $160 off the cost of new iPads. An Apple one-year warranty is included with each model, and shipping is free: - 32GB 12″ iPad... Read more
Apple refurbished iPad minis and iPad Air 2s...
Apple recently dropped prices on several Certified Refurbished iPad mini 4s and 2s as well as iPad Air 2s. An Apple one-year warranty is included with each model, and shipping is free: - 16GB iPad... Read more
MacHTTP-js Preview Full-featured Web Server f...
MacHTTP.Org has released MacHTTP-js Preview for macOS, a full-featured Web server for 21st Century desktops and servers. MacHTTP-js is a modern take on the classic stand-alone, desktop computer Web... Read more

Jobs Board

*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
Software Engineering Intern: UI Applications...
Job Summary Apple is currently seeking enthusiastic interns who can work full-time for a minimum of 12-weeks between Fall 2015 and Summer 2016. Our software 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 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
*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 52812872 Houston, Texas, United States Posted: Oct. 18, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Solutions Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.