TweetFollow Us on Twitter

Forth Updates
Volume Number:2
Issue Number:5
Column Tag:Threaded Code

Updates for Mach1 and Neon

By Jörg Langowski, EMBL, C/O I.L.L., Grenoble, Cedex, France, MacTutor Editorial Board

"In Our Mail"

This time, I have no specific subject to cover, but would rather like to address a few points that came up while browsing through my mail lately. Also, I want to inform you on updates of NEON and Mach1 that just came in. (Judging from the productivity of some of the developers, the next updates will probably be out even before this comes back from the printer's...)

We received a letter from Finland; Juri Munkki from Helsinki sent the following interesting note:

"I received my HD 20 yesterday and I found some problems with using it for Forth development using MacForth Level 3. The problems arise when trying to access files from directories outside the Forth folder [this seems to be one of the standard problems in HFS. J.L.]. I was very glad to see that my terminal program worked correctly with HFS and used that knowledge to add a new command to MacForth.

MacForth activates windows automatically when an activation event is received. This is not desirable when returning from a standard file-call because it interrupts the execution of the calling program. Before receiving Level 3, I used a special window for calling the standard file package and used two different activate procedures. Level 3 documentation explained the Event.Table and I was capable of simplifying the calling of these extremely important routines.

The main reason my program worked was that it used PBSetVol to change the default directory. This simple technique of calling SetVol after SFGetFile and PutFile allows me to use standard MacForth file commands without any modification of the internal structure FCBs.

The routine below [Listing 1] fits in one block (if left without comments) and is very helpful in using the HFS folders. "

Listing 1 : Select directory, by Juri Munkki

( Directory Mount utility)                     ( 011086 JAM)
create SFReply 76 allot
 SFReply 76 erase  ( standard file reply record)
create OurParams 32 allot
 OurParams 32 erase   ( our param block)
hex  A015  os.trap  SetVol   ( PBSetVol  OS  trap )
   A9EA  w>mt    Pack3    ( standard file package)
variable  act.ev.proc   ( standard action for activate )

: seldir ( lets the user choose a default directory )
 activate.event 2* event.table + w@ act.ev.proc !
 ( save old activate.event vector )
0 activate.event 2* event.table + w!
 ( disable vector temporarily )

 00400040 "  " 0 -1 0 wbury 0 0 sfreply 2 pack3
 ( call SFGetfile)
 act.ev.proc @ activate.event 2* event.table + w!
 ( reset activate vector)

 SFReply c@ if  ( file was selected)
 SFReply 6+ w@ OurParams 16 + w! 
 OurParams SetVol then
;

axe SetVol  axe Pack3  axe act.ev.proc  
axe SFReply  axe OurParams
decimal

"Just type SelDir and choose a file from the directory you want to work with. This directory is automatically vref 0 and can be shown by typing 0 dir. I thought that you might find this information useful to some MacTutor readers. "

Yes, we do, thank you for that contribution! I tested that routine - not using HFS, since I don't have 800K disks or a hard disk yet - but to change the default drive. After executing SelDir (e.g. on a file in the external drive), both 0 dir and 2 dir will display the external directory, and files without directory prefix will be looked for on the external drive. Saves a lot of hassle when one loads files from the external drive that include" files that are also on the external drive.

Indirect recursion and deferred execution

Another letter comes from Steve Pothier in Tucson, AZ, asking a question about recursion in NEON. I made a comment in the NEON article (MT V2#1) about the use of the forward declaration in recursion, which I did not further explain, so here goes:

As a matter of fact, simple recursion is generally allowed in NEON, while this is not the case in MacForth. As said in the mentioned article, one can circumvent this problem by resetting the smudge bit during compilation. Mach1 has the word recursive built in which does exactly this job, so the corresponding definition of the factorial would be:

: factorial   ( Mach 1 version )
 recursive
 dup if dup 1 - factorial * else drop 1 then ;

So we're pretty fine in any kind of Forth doing direct recursion, that is to say referencing a Forth word from within its own definition. However, indirect recursion is a different ballgame. If we want to reference word A from word B, which contains a reference to word A in its definition, we will have to reference one of the two words before it is actually defined. This is, of course, not possible in Forth. But the problem can be solved.

Lets assume we define routine A first, then routine B. Then the only way to refer to B from within A is to create a vector B.vect before defining A, referring from within A to B.vect instead of B, and setting the vector after having defined B. Lots of As and Bs here, an example will illustrate:

create B.vect ( and do something with it ...)
.... code to initialize the vector ....

: A .......
      .......   B.vect ( B is called here )
      .......  
;
: B .......
      .......  A  ( may be called in the normal way )
      .......  
;
.... code to setup B.vect so that it executes B when called ....

How do we do this in practice? NEON has the forward declaration built in. In case one needs to refer to a word that cannot be defined yet, one can 'pre-declare' this word by saying forward B and then using this definition of B in any other words following it. When one is ready to define B, the special defining word :F together with ;F is used to resolve the forward reference. As long as this has not been done, any attempt to execute B will result in an error message. The example from above then looks like the following in NEON:

forward B

: A .......
      .......   B ( B is called here just like any word )
      .......  
;

:F B ....... 
       .......  A  ( called in the normal way )
       .......  
;F 
( forward reference is resolved after this definition)

Standard Forth (-79 or -83) does not have a forward declaration built in. MacForth and Mach1 don't have it. MasterFORTH has defer, which does a similar thing as forward, defining a word whose action will be defined later. defer and related words are explained in the book 'Mastering Forth' that comes with the MasterFORTH package:

: undef.error ." not defined yet! " cr ;

: defer  create ['] undef.error ,
 does> @ execute ;

: is ' >body ! ;

defer is a compiling word whose runtime action is to execute the vector that it contains. Initially, this vector is set to the address of a warning message that is printed as long as the word has not been defined yet.

is stores the address on the stack into the body (Forth-83) of the word following it. This means if we define

defer my.vector
: test ." Hello world!" cr ;

and then say

' test is my.vector

execution of my.vector will result in "Hello world" being printed.

Now our indirect-recursion example from above would look like:

defer B.vect

: A .......   B.vect   ....... ;

: B .......  A  ....... ;

' B is B.vect 

Notice that these definitions are for MasterFORTH; Mach1 has a different structure (explained in my last column), and the definition of is has to be changed:

: is ( Mach1 version )  ' 4 + ! ;

MacForth has an even different structure; the corresponding definitions would look like:

: undef.error ." not defined yet!" cr ;                         
                                                                
: defer 
        create ' undef.error ,                                  
        does> @ >r ;                                            
                                                                
: is [compile] ' ! ;                                            

For MacForth, I have also given an example of Leo Brodie's DOER/MAKE vectored execution handler (V1#7). DOER/MAKE, of course, allows also for deferred execution, e.g.

doer B.vect

: A .......   B.vect    .......  ;

: B .......   A    .......  ;

make B.vect B

with the additional advantage that vectors can be made to execute other words from within definitions. I won't give the corresponding definitions of DOER/MAKE for Mach1 or MasterFORTH here; this is, as they say, left as an exercise for the reader.

Upgrades, improvements etc.

I just received updates of NEON (v 1.5) and Mach (Mach 1.1) in the mail. Many of the bugs that were still present in the first versions of these systems have been removed. Let me just give you an extract of the information that was sent to me together with the updates by Palo Alto Shipping and Kriya:

Mach 1.1

[excerpts from the letter by Palo Alto Shipping]

"MACH 1.1 SUPPORTS MACPLUS AND HFS

MACH 1.1 includes support for the new trap routines included in the new 128K roms and works under the Hierarchical File System. SWITCHER 4.6 is also included.

DEBUGGER REMOVED

A debugger is no longer included in MACH 1 for two reasons. One reason is that there is currently an abundance of inexpensive, high quality debuggers for the Macintosh. The second reason is that since the debugger was written in MACH 1, its performance was very dependent upon the integrity of the MACH 1 kernel. If the kernel ever became damaged, the debugger would often fail. The debugger chapter in the manual should be disregarded. [Too bad that this part of the system is gone. The single stepping mode with the ability to see Forth and machine code simultaneously was a nice feature. However, the debugger had its own bugs... Palo Alto Shipping is working on an improved version and planning to reinstall the debugger on future systems]

Note that the dissassembler is still included. [from which the addressing mode bugs mentioned in my last column have been removed / J.L.]

NEW WORDS

Six new words which run the default event-handling routines when executed have been added to the MACH 1 kernel. [to be used to stash into deferred execution vectors etc... / J.L.]

The following words which support the printing manager have been added to MACH1: [...]

PrCtlCall PrDrvrClose PrDrvrOpen

PrSetError PrError PrPicFile PrCloseDoc

PrClosePage PrOpenPage PrOpenDoc

PrJobMerge PrJobDialog PrStlDialog

PrValidate PrintDefault PrClose PrOpen

That's for the Mach1.1 update. It seems to me that with the extra printer support the spooler example form my last column could be upgraded into a real nice background spooler for Text and Paint files. The upgrade furthermore contains a second disk packed full of demos, some of which are rather sophisticated application examples (e.g. a TextEdit example and one that uses the printing routines). Also includes is a 3-d fractal demo that draws mountain shapes. Nice to look at.

NEON 1.5

The main additions to the new NEON 1.5 are listed below [words by Kriya Systems]:

"Here are the functional differences between Neon v1.0 and v1.5. [ ]

Features added:

• Floating Point support; use "neonFP.com"

• All source for rebuilding Neon up from the nucleus is released

• New classes have been included: LinkedList, 2dArray, Dictionary, etc

• New utilities have been included: Decompile, PrintAll, Words, etc

[The Decompiler supplied by Kriya works only on Colon definitions. One that gives also at least some informations about class definitions is still a project for this column. / J.L.]

• Neon™ v1.5 is compatible with the new Neon™ Assembler

• SORT is a new word which performs a shell sort

• $= is a new word which performs a relative compare on strings

• LAND, LOR & LXOR are new words which are the logical counterparts to the bitwise AND, OR & XOR

• PUSHPORT & POPPORT are new words for keeping graph port record pointers on the data stack

• PARAMTEXT is a new word for use with dialogs which sets text substitution strings for Static and Editable text items

• CALLER is a new pseudo-ivar, like SELF or SUPER, which late binds a message to the calling object. (This must be used inside a method.)

• The fill: method has been added to String

• A disp: method has been added to each of Picture, Alert, Rect & Icon

• The putText: & getText: methods of Dialog now work on control items

• The status of the cursor is now preserved during Neon functions

• You may now grow the Neon window to the full size of a MacXL screen

• Compile echo now functions for modules

• WORDS now formats it's output according to the width of the window

• The Install dialog now includes the "Max Heap" button

Bugs fixed:

• The name field for SIGN is fixed and is now findable

• The U* presicion bug has been fixed; (*/ & M* also)

• PURGE has been modified to work on megabyte Macs

• The fill: & new: methods of Array have been fixed

• The put: & click: methods of Mouse have been fixed

• The charOf: method of String has been fixed

• The print: method of Timer has been fixed

• The baud: method of Port cleans up the stack properly

Functions changed:

• FINFO returns a relative address

• STDGET takes a specification of up to four file types

• The words MLOCK, MUNLOCK & ?MLOCK now take the cfa of a module

• NULL & BYE are now defined above the nucleus so that they may be called from menu selections defined through the use of getMtxt.

[Before, it was very important when making stand-alone applications, to define 'calling words' for BYE and NULL, which were part of the nucleus, and use those 'super-definitions' in menu files. Otherwise, the menu handler would not find the NEON word corresponding to the menu item when the menu text was loaded at runtime, causing a crash. This was the reason for the crash of my text edit example in the Feb 86 issue; I forgot to include a new definition for NULL just like the CIAO definition for BYE]

• The word FF (form feed) has been renamed to NP (new page)

• QUIT now clears menu bar hilites

• The Grep utility now prints the file name only when a match occurs

• ASCII no longer shifts alphabetics to upper case

• The grow: method of Window does not clear the window

• The actions: method of vScroll has a clear: parts

• The Apple menu now accomodates up to 22 items".

[Other observations:

• Quitting NEON with the Editor still open and relaunching from the desktop no longer causes a crash.

• The bug in IC! (this word simply didn't work under NEON 1.0) is still there!. The Sieve example (see MT V1#8, p.18) still works only when IC! is replaced by I C!. -J.L.]

Since I have not upgraded my systems to the large drive, new ROMs and HFS yet (I'm reluctant to do so as long as there is no working version of Fortran available for HFS), I cannot judge whether NEON 1.5 will work correctly with the new system. Any comments on this by readers will be greatly appreciated.

The fix for IC!

Since Kriya Systems don't seem to have noticed, here's my fix for IC!, which makes this word work correctly (did this by disassembling the kernel and looking through the file with Fedit):

The code that has to be fixed starts at relative address $13B4 (absolute $E044 in my system) in both NEON 1.0 and NEON 1.5:

13B4: 2E16 MOVE.L (A6), D7

13B6: 568F ADDQ.L #3,A7

13B8: 179F 7800 MOVE.B (A7)+, 0(A3,D7)

13BC: 2C1C MOVE.L (A4)+, D6

13BE: 2E33 6800 MOVE.L 0(A3,D6), D7

13C2: 4EF3 JMP 0(A3,D7)

For some reason, the ADDQ in connection with the MOVE.B does not seem to do its intended job (Can anyone help me; 68000 machine code specialists, please). The code works if you change it to:

13B4: 2E16 MOVE.L (A6), D7

13B6: 201F MOVE.L (A7)+, D0

13B8: 1780 7800 MOVE.B D0, 0(A3,D7)

13BC: 2C1C MOVE.L (A4)+, D6

13BE: 2E33 6800 MOVE.L 0(A3,D6), D7

13C2: 4EF3 JMP 0(A3,D7)

The way to install this patch permanently is by using Fedit or some similar program. Open the NEON file and search for the hex sequence 568F179F. Verify by looking at the code around it that you have really found the correct piece of code. Then replace this sequence by 201F1780. Now rewrite the sector to your disk (HOLD IT! You did make a backup first, I suppose?). This should give you a working IC! in your NEON kernel.

Questions, comments etc. may now also be addressed to: LANGOWSKI@DHDEMBL5 on BITNET, or, if you are using BYTE's BIX system, you can leave mail under JLANGOWSKI for me or MACTUTOR for David Smith.

See you in a month.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

1Password 6.6.4 - Powerful password mana...
1Password is a password manager that uniquely brings you both security and convenience. It is the only program that provides anti-phishing protection and goes beyond password management by adding Web... Read more
Cocktail 10.3.1 - General maintenance an...
Cocktail is a general purpose utility for macOS that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Safari Technology Preview 10.2 - 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
Together 3.8 - Store and organize all of...
Together helps you organize your Mac, giving you the ability to store, edit and preview your files in a single clean, uncluttered interface. Features Smart storage. With simple drag-and-drop... Read more
GraphicConverter 10.4 - $39.95
GraphicConverter is an all-purpose image-editing program that can import 200 different graphic-based formats, edit the image, and export it to any of 80 available file formats. The high-end editing... Read more
beaTunes 4.6.13 - Organize your music co...
beaTunes is a full-featured music player and organizational tool for music collections. How well organized is your music library? Are your artists always spelled the same way? Any R.E.M. vs REM?... Read more
Vienna 3.1.9 :e81515b: - RSS and Atom ne...
Vienna is a freeware and Open-Source RSS/Atom newsreader with article storage and management via a SQLite database, written in Objective-C and Cocoa, for the OS X operating system. It provides... Read more
iExplorer 4.0.12.0 - View and transfer f...
iExplorer is an iPhone browser for Mac lets you view the files on your iOS device. By using a drag and drop interface, you can quickly copy files and folders between your Mac and your iPhone or... Read more
OpenEmu 2.0.5 - Open Source game-emulati...
OpenEmu is about to change the world of video game emulation, one console at a time... For the first time, the 'It just works' philosophy now extends to open source video game emulation on the Mac.... Read more
TextSoap 8.3.3 - Automate tedious text d...
TextSoap can automatically remove unwanted characters, fix up messed up carriage returns, and do pretty much anything else that we can think of to text. Save time and effort. Be more productive. Stop... Read more

Ticket to Earth beginner's guide: H...
Robot Circus launched Ticket to Earth as part of the App Store's indie games event last week. If you're not quite digging the space operatics Mass Effect: Andromeda is serving up, you'll be pleased to know that there's a surprising alternative on... | Read more »
Leap to victory in Nexx Studios new plat...
You’re always a hop, skip, and a jump away from a fiery death in Temple Jump, a new platformer-cum-endless runner from Nexx Studio. It’s out now on both iOS and Android if you’re an adventurer seeking treasure in a crumbling, pixel-laden temple. | Read more »
Failbetter Games details changes coming...
Sunless Sea, Failbetter Games' dark and gloomy sea explorer, sets sail for the iPad tomorrow. Ahead of the game's launch, Failbetter took to Twitter to discuss what will be different in the mobile version of the game. Many of the changes make... | Read more »
Splish, splash! The Pokémon GO Water Fes...
Niantic is back with a new festival for dedicated Pokémon GO collectors. The Water Festival officially kicks off today at 1 P.M. PDT and runs through March 29. Magikarp, Squirtle, Totodile, and their assorted evolved forms will be appearing at... | Read more »
Death Road to Canada (Games)
Death Road to Canada 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: Get it now at the low launch price! Price will go up a dollar every major update. Update news at the bottom of this... | Read more »
Bean's Quest Beginner's Guide:...
Bean's Quest is a new take on both the classic platformer and the endless runner, and it's free on the App Store for the time being. Instead of running constantly, you can't stop jumping. That adds a surprising new level of challenge to the game... | Read more »
How to rake in the cash in Bit City
Our last Bit City guide covered the basics. Now it's time to get into some of the more advanced techniques. In the later cities, cash flow becomes much more difficult, so you'll want to develop some strategies if you want to complete each level.... | Read more »
PixelTerra (Games)
PixelTerra 1.1.1 Device: iOS Universal Category: Games Price: $.99, Version: 1.1.1 (iTunes) Description: The world of PixelTerra is quite dangerous so you need to build a shelter, find some food supply and get ready to protect... | Read more »
Tokaido™ (Games)
Tokaido™ 1.0 Device: iOS Universal Category: Games Price: $6.99, Version: 1.0 (iTunes) Description: Discover the digital adaptation of Tokaido, the boardgame phenomenon that has already sold more than 250,000 copies worldwide, and... | Read more »
Card Thief (Games)
Card Thief 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Card Thief is a solitaire style stealth game played with a deck of cards. In Card Thief you move through a deck of cards as a... | Read more »

Price Scanner via MacPrices.net

Apple’s iPhone 6s Tops Best-Selling Smartphon...
In terms of shipments, the iPhone 6s from Apple bested all competitors for sales in 2016, according to new analysis from IHS Markit, a world leader in critical information, analytics and solutions.... Read more
Logitech Rugged Combo Protective iPad Case an...
Logitech has announced its Logitech Rugged Combo, Logitech Rugged Case, and Logitech Add-on Keyboard for Rugged Case for Apple’s new, more affordable $329 9.7-inch iPad, a complete solution designed... Read more
T-Mobile To Offer iPhone 7 and iPhone 7 Plus...
T-Mobile has announced it will offer iPhone 7 and iPhone 7 Plus (PRODUCT)RED Special Edition in a vibrant red aluminum finish. The introduction of this special edition iPhone celebrates Apple’s 10... Read more
9-inch 128GB iPad Pros on sale for $50-$70 of...
B&H Photo has 9.7″ 128GB Apple WiFi iPad Pros on sale for up to $70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 128GB WiFi iPad Pro: $649 $50... Read more
27-inch iMacs on sale for up to $200 off MSRP...
B&H Photo has 27″ Apple iMacs on sale for up to $200 off MSRP, each including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
Save $230 with Apple Certified Refurbished 13...
Apple is now offering Certified Refurbished 2016 13″ 2.0GHz non-Touch Bar MacBook Pros for $230 off original MSRP. An Apple one-year warranty is included with each model, and shipping is free: - 13″... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
13-inch Touch Bar MacBook Pros on sale for up...
B&H Photo has the Apple 13″ Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.9GHz/512GB Touch Bar... Read more
Today only! 15-inch 2.7GHz Space Gray Touch B...
B&H Photo has the new 2016 15″ 2.7GHz Space Gray Apple Touch Bar MacBook Pro in stock today and on sale for $300 off MSRP for today only. Shipping is free, and B&H charges NY sales tax only... 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
Director, *Apple* Program - ERP & Cloud...
Leading Pharmaceutical / Biotech Company is announcing a Director, Apple Program - ERP & Cloud Platform Architecture Lead opportunity in Northbrook, IL. Purpose & Read more
Fulltime aan de slag als shopmanager in een h...
Ben jij helemaal gek van Apple -producten en vind je het helemaal super om fulltime shopmanager te zijn in een jonge en hippe elektronicazaak? Wil jij werken in Read more
Starte Dein Karriere-Abenteuer in den Hauptst...
…mehrsprachigen Teams betreust Du Kunden von bekannten globale Marken wie Apple , Mercedes, Facebook, Expedia, und vielen anderen! Funktion Du wolltest schon 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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.