TweetFollow Us on Twitter

Jun 89 Letters
Volume Number:5
Issue Number:6
Column Tag:Letters

Letters

By David E. Smith, Editor & Publisher, MacTutor

Language Systems Plans

Rich Norling

Herndon, VA

In MacTutor’s April letters column, Bert Waggoner added his name to the list of those asking us to add a SELECT CASE statement to the Language Systems FORTRAN Compiler. We are now making plans for Version 2.0 and I want to let your readers know that SELECT CASE and NAMELIST are at the top of our list of new features to add. Both will be done according to the FORTRAN ’8X syntax, so no changes in FORTRAN source code will be needed when ’8X becomes a formal standard (let’s hope that happens before the proposed standard has to be renamed ’9X!).

Additional suggestions for new features in Language Systems FORTRAN are welcome. Please send them to us at the address listed in our ad (inside front cover).

Corrections

Don Koscheka

Arthur Young N0735

Joe,your article on adding windows to XCMDs was informative and, for the most part, well written. Your discussion of scroll bars needs clarification. You state that using ScrollRect to scroll a window is not the preferred approach because the window will not get redrawn until update time. This is not true. While Inside Macintosh does imply that you should pass the UpdateRgn of the current window to ScrollRect so that the vacated area gets accumulated into the window’s invalrgn, this is not strictly necessary. Consider the following code fragment:

 
Procedure TrackScroll( theControl : controlHandle; thePart : INTEGER 
);
VAR
    TempRgn     : Region;
    tempRect    : Rect;
    dh, dv      : INTEGER;
BEGIN
    {*** determine what part of the control we’re in... ***}
    {*** and set dh, dv accordingly                     ***}
    ...
 
    {*** now scroll the scrollable part of the window   ***}
    tempRect := theWindowsScrollablearea;
    TempRgn := newRgn;
 
    ScrollRect := ( tempRect, dh, dv, tempRgn );
    SetClip( tempRgn );
 
    {*** call whatever routine draws window contents    ***}
    Redraw_The_Window;
 
    DisposeRgn( tempRgn );
    ...
END;

This code has the advantage of requiring only enough extra memory to store the vacated region. Moreover, the novice programmer need not write any special screen drawing code. Whatever code is used to draw at update time can be called directly to redraw the window at scroll time. Since the window is clipped to only the vacated region, this approach results in fast, smooth scrolling.

The more experienced user can query the region to determine exactly which rectangle to update so that the application draws only what will be displayed in the vacated rectangle. This is useful in applications like word processors where much of the update time is spent calculating where things need to go on the screen.

Another interesting consideration is the possibility of creating universal scroll bars. We accomplished this by having track scroll operate on a “scroll record” that keeps track of all appropriate information relating to a given scroll bar. One of the fields passed to the scroll record is the address of the routine to call in lieu of “Redraw_the_Window” in the above example. The result is quite satisfactory: one pair of scroll bars can be made to behave consistently regardless of the number of window variations in a given application.

Thanks for the bent ear. Good luck at Apple (as a six-year veteran, I can tell you that it’s a great place to work...)

CDEF Corrections

Kirk Chase

Anaheim, CA

It was brought up to my attention of another way to include CDEFs for debugging purposes. James Plamondon, from Abacus Concepts, pointed out a better, more legal (?), way of setting the contrlDefProc field of the control record.

const
 JMP_Instruction = $4EF9;

type
 JumpRec = record
 instruction  :  integer;
 function : Ptr;
 end; {JumpRec}

 JumpPtr = ^JumpRec;
 JumpHdl = ^JumpPtr;

var
 cdefJump : JumpHdl;
 ctrlHdl : ControlHandle;

begin { Open_Example_Window}
 {allocate and initialize jump record}
 cdefJump := JumpHdl(NewHandle(sizeof(JumpRec)));
 cdefJump^^.instruction := JMP_Instruction;
 cdefJump^^.function := myCDEFProc;
 {this ends initializing the jump record}
 
 {get the control record}
 CtrlHdl := GetNewControl(ButtonID, MyWindow);
 
 {Set the contrlDefProc}
 CtrlHdl^^.contrlDefProc := Handle(cdefJump);
 
end;

After diving into the tech notes, I also found what James already knew. James also mentions that the control definition proc should be locked by keeping it in code segment 1.

I appreciate James Plamondon help. The method I gave was essentially for prototyping controls. This made development time faster since you could bypass the Compile, ResEdit, Compile, Frustration loop. I hope Abacus realizes the asset James Plamondon is. Thanks A Bunch.

MPW vs. LSC

Will Flor

Loves Park, IL

I thought I might give my views on the MPW vs. LSC controversy raging in the March issue of your excellent journal, and also report a serious error in Jerry Sweet’s otherwise excellent article on Ada.

In my last job, I developed finite-element modeling software on the Mac, and the project was started in LSC. This type of software uses a lot of file I/O, and we had a large set of routines known to work properly in several other environments (hundreds of units shipped without a single bug report dealing with file I/O). Upon porting these routines to LSC, they did not work. An examination of the problem showed the LSC libraries to be bug-ridden and unmaintainable. The errors we were getting included undocumented error codes being returned, “file not found” error code returned when we tried to create a file, and more. After wasting nearly a day, we ported to MPW 2.0.2 and never had these problems. The Think technical support people were not knowledgeable about their product, but admitted the sorry state of their libraries after the erroneous source lines were pointed out to them. I have heard other similar stories from other software developers, too. For very simple programs, perhaps LSC works adequately; for true big-time software development it simply doesn’t do the job. The “one segment per source file” restriction is untenable as well. I do not use LSC and cannot recommend it to my clients.

Comparing MPW 3.0 to LSC is like comparing a turbo SAAB to a tricycle--they do basically the same thing, and MPW (and SAAB) is arguably harder to learn to use properly, but there’s an obvious difference in power and capability. MPW 3.0 is so different from MPW 2.0.2 that it definitely warrants the upgrade fee, since it’s really a totally different product--the C compiler is totally different, the Projector source code control system is great (although it suffers from a few problems as well), and everything is 25-40% faster. Perhaps a tricycle is more appropriate for some, but I’ll take MPW and the turbo SAAB any day.

Jerry Sweet’s otherwise excellent article on Ada did contain one serious factual error. He states that the MPW C “integer” data type is 16 bits wide--it is 32 bits wide. The MPW C integral type that is 16 bits wide is “short integer” or simply “short.” This is crucial to writing a correct interface subprogram since, as he correctly points out, there is no data type cross-checking available, and it is easy to pass the wrong parameter type.

Thank you, Mr. Smith, for editing such an excellent journal. Please keep up the good work.

More On Compare Strings

John S. Stokes III

San Diego, CA

In Steve Brecher’s letter published in the March 1989 MacTutor, page 11, he pointed out a bug in my “Compare Strings” routine in addition to suggesting some improvements. I confess that I wrote the letter off the top off my head in response to seeing some wasteful code. In looking at the actual code from programs I’ve written, I do use the

 Moveq  #0,D0
 Move.B (A0),D0

technique to load up the length for the compare loop.

I agree that using

;2


@0 Cmp.B(A0)+,(A1)+
 DBne D0, @0

is much better than using

@10Cmp.B(A0)+, (A1)+
 Bne.S  @900
 Dbra D1, @10

and I thank Steve for pointing that out.

There is an error in his code if the comment “Return D0.L=1 if equal, 0 if not equal” is to be taken seriously. Consider what happens to register D0 if the strings compare equally. Register D0 will have a $0000FFFF after falling out of the loop. Executing

 Seq  D0

will cause D0 to still contain $0000FFFF since the FF will replace the existing low order FF. Executing

 Neq.B  D0

will cause D0 to contain $0000FF01 instead of $00000001. Ooops.

If the strings are not equal, D0 will contain $000000?? before the Seq instruction and $00000000 after both the Seq and Neg.B instructions. This is OK.

The solution is to change the Neg.B to a Neg.W.

A re-corrected CompareString routine would look like this:

;3

;A0 -> Pascal String 1
;A1 -> Pascal String 2
;D0 Returns D0.L=1 if equal, 0 if not equal
;Alters A0-A1

CompareString:

;4

 Moveq  #0,D0
 Move.B (A0),D0  ;gross length - 1
@0 Cmp.B(A0)+,(A1)+;loop until 
 DBne D0,@0 ; not equal or end
 Seq  D0;$0000ffFF if equal, else 0
 Neg.W  D0;1 if equal, else 0
 Rts

Also, Steve did err in saying:

“Ext.W propagates the value in bit 15 of the register through bits 16 31. Therefore, it will not have the desired effect of clearing bits 8 15. Ext.B would not work either for cases in which the string length is greater than 127, i.e., negative considered as a signed byte; in such cases Ext.B would set bits 8 15, making the unsigned word value very large.”

There is no “Ext.B” instruction. Ext.W does what was ascribed to Ext.B; Ext.L does what was ascribed to Ext.W. So my Ext.W instruction did have the desired effect as long as the string length was less than 128.

Correction to Correction to CompareString

Steve Brecher

Sunnyvale, CA

John F. Reisor’s letter (Apr. 1989) correcting John Stokes’s original (Jan. 1989) made me realize that my own correction (Mar. 1989) was incorrect! Reisor’s code contains an error also.

My submission omitted an Ext.B D0 instruction just before the final Rts. Reisor uses Ext.W D0 where there should be an Ext.B D0.

Since this issue of conditioning bits 8..15 of a register has tripped up three of us, perhaps a review is in order. Ext.B sets each of bits 8 through 15 of a register to be equal to bit 7; it does not affect bits 0..7 or bits 16..31. Ext.W sets each of bits 16..31 to be equal to bit 15; it does not affect bits 0..15. In other words, Ext.B extends the sign of the low order byte through the high order byte of the low order word. Ext.W extends the sign of the low order word through the high order word.

Note that where I wrote

 Seq  D0
 Neg.B  D0

Reisor wrote instead

 Sne  D0
 AddQ.B #1,D0

which is equivalent.

My routine and Reisor’s, after correction, are both the same length. But any Macintosh assembly language programmer should be able to come up with a version that is one word shorter--left as an exercise for the reader. For those who wish to try, here is the final “long” version:

;5

; A0 points to a Pascal string
; A1 points to a Pascal string
; Returns D0.L = 1 if strings equal, else 0

 MoveQ  #0,D0
 Move.B (A0),D0
@0 Cmp.B(A0)+,(A1)+
 Dbne D0,@0
 Seq  D0
 Neg.B  D0
 Ext.B  D0
 Rts

Claris CAD

Kirk Chase

Anaheim, CA

Claris has added another fine product to their line, Claris CAD. This is a fine CAD product, specifically designed to take advantage of the Mac and its graphic capability. This high-end product follows the trend of others by including a videotape for learning the program’s capabilities rapidly. It has a complete set of two-dimensional tools for design and drafting professionals. It also allows for changing dimensions and units.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

CleanMyMac 3.9.0 - $39.95
CleanMyMac makes space for the things you love. Sporting a range of ingenious new features, CleanMyMac lets you safely and intelligently scan and clean your entire system, delete large, unused files... Read more
Apple High Sierra 10.13 - The latest OS...
macOS High Sierra introduces new core technologies that improve the most important functions of your Mac. From rearchitecting how it stores your data to improving the efficiency of video streaming to... Read more
OmniGraffle Pro 7.4.3 - 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
OmniGraffle 7.4.3 - Create diagrams, flo...
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
VueScan 9.5.86 - 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
ExpanDrive 6.1.0 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
Yojimbo 4.1 - Data information organizer...
Yojimbo empowers Mac users to manage, effortlessly and securely, the onslaught of information encountered every day at work and at home, even across multiple computers. Yojimbo stores different data... Read more
Airmail 3.5 - Powerful, minimal email cl...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
Cocktail 11.0 - General maintenance and...
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
Numi 3.17.2 - Menu-bar calculator suppor...
Numi is a calculator that magically combines calculations with text, and allows you to freely share your computations. Numi combines text editor and calculator Support plain English. For example, '5... Read more

The best visual novels on mobile
Narrative games have been around for ages, but only now have they been creeping into the mainstream spotlight. These games tell some of the industry's finest stories, and they break new ground in terms of gameplay and mechanics regularly. Here are... | Read more »
The best new games we played this week -...
It's pretty much been one big release after another. We were privy to a bunch of surprises this week, with a lot of games we'd been waiting for quite some time dropping unexpectedly. We hope you're free this weekend, because there is a lot for... | Read more »
Stormbound: Kingdom Wars guide - how to...
Stormbound: Kingdom Wars is an excellent new RTS turned card battler out now on iOS and Android. Lovers of strategy will get a lot of enjoyment out of Stormbound's chess-like mechanics, and it's cardbased units are perfect for anyone who loves the... | Read more »
The best AR apps and games on iOS right...
iOS 11 has officially launched, and with it comes Apple's ARKit, a helpful framework that makes it easier than ever for developers to create mobile AR experiences. To celebrate the occassion, we're featuring some of the best AR apps and games on... | Read more »
Phoenix Wright: Ace Attorney - Spirit of...
Phoenix Wright: Ace Attorney - Spirit of Justice 1.00.00 Device: iOS Universal Category: Games Price: $.99, Version: 1.00.00 (iTunes) Description: ************************************************※IMPORTANT※・Please read the “When... | Read more »
Kpressor (Utilities)
Kpressor 1.0.0 Device: iOS Universal Category: Utilities Price: $4.99, Version: 1.0.0 (iTunes) Description: The ultimate ZIP compression application for iPhone and iPad. - Full integration of iOS 11 with support for multitasking.-... | Read more »
Find out how you can save £35 and win a...
Nothing raises excitement like a good competition, and we’re thrilled to announce our latest contest. We’ll be sending one lucky reader and a friend to the Summoners War World Arena Championship at Le Comedia in Paris on October 7th. It’s the... | Read more »
Another Lost Phone: Laura's Story...
Another Lost Phone: Laura's Story 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Another Lost Phone is a game about exploring the social life of a young woman whose phone you have just... | Read more »
The Witness (Games)
The Witness 1.0 Device: iOS Universal Category: Games Price: $9.99, Version: 1.0 (iTunes) Description: You wake up, alone, on a strange island full of puzzles that will challenge and surprise you. You don't remember who you are, and... | Read more »
Egg, Inc. guide - how to build your gold...
Egg, Inc.'s been around for some time now, but don't you believe for one second that this quirky clicker game has gone out of style. The game keeps popping up on Reddit and other community forums thanks to the outlandish gameplay (plus, the... | Read more »

Price Scanner via MacPrices.net

Snag a Certified Refurbished Apple Pencil for...
Apple has Certified Refurbished Apple Pencils available for $85 including free shipping. Their price is $14 off MSRP, and it’s the lowest price available for a Pencil. Read more
12-inch 64GB iPad Pro on sale for $749, save...
Adorama has 12″ 64GB iPad Pros on sale today for $749 including free shipping plus NY & NJ sales tax only. Their price is $50 off MSRP. Read more
Apple Certified Refurbished iPad minis availa...
Apple has Certified Refurbished 128GB iPad minis available today for $339 including free shipping. Apple’s standard one-year warranty is included. Their price is $60 off MSRP. Read more
12-inch 1.2GHz Retina MacBook Pros on sale fo...
B&H Photo has 2017 12″ 1.2GHz Retina MacBooks on sale for $100 off MSRP. Shipping is free, and B&H charges sales tax in NY & NJ only: 12″ 1.2GHz Space Gray MacBook: $1199 $100 off MSRP 12... Read more
Sunday sale: 13-inch 3.1GHz MacBook Pros for...
Amazon has 2017 13″ 3.1GHz MacBook Pros on sale today for up to $150 off MSRP, each including free shipping: – 13″ 3.1GHz/256GB Space Gray MacBook Pro (MPXV2LL/A): $1649.99 $150 off MSRP – 13″ 3.1GHz... Read more
Looking for a 2017 12″ Retina MacBook? Save $...
Apple has Certified Refurbished 2017 12″ Retina MacBooks available for $200-$240 off the cost of new models. Apple will include a standard one-year warranty with each MacBook, and shipping is free.... Read more
Apple Offering Up To $455 Credit Toward iPhon...
iPhone 8 and 8 Plus are now available at the Apple Store, and you can receive up to $375 credit toward a new iPhone purchase when you trade in your eligible smartphone. Photo Courtesy Apple Just... Read more
AnyTrans Offers iOS Users Three Ways For Movi...
iMobie Inc. today announceed AnyTrans v6.0.1, which now can help iOS users move all data to iPhone 8/8 Plus seamlessly. The software is available both on Mac and Windows and fully able to move all... Read more
Snag a 13-inch 2.3GHz MacBook Pro for $100 of...
B&H Photo has 2017 13″ 2.3GHz MacBook Pros in stock today and on sale for $100 off MSRP, each including free shipping plus NY & NJ sales tax only: – 13-inch 2.3GHz/128GB Space Gray MacBook... Read more
Verizon offers new iPhone 8 for $100-$300 off...
Verizon is offering the new iPhone 8 for up to $300 off MSRP with an eligible trade-in: • $300 off: iPhone 6S/6S Plus/7/7 Plus, Google Pixel XL, LG G6, Moto Z2 Force, Samsung Galaxy S7/S7 edge/S8/S8... Read more

Jobs Board

Data Engineer - *Apple* Media Products - Ap...
Job Summary Apple is seeking a highly skilled data engineer to join the Data Engineering team within Apple Media Products. AMP (home to Apple Music, App Read more
Development Operations and Site Reliability E...
Development Operations and Site Reliability Engineer, Apple Payment Gateway Job Number: 57572631 Santa Clara Valley, California, United States Posted: Jul. 27, 2017 Read more
Development Operations and Site Reliability E...
Development Operations and Site Reliability Engineer, Apple Payment Gateway Job Number: 57572631 Santa Clara Valley, California, United States Posted: Jul. 27, 2017 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
Instructional Designer, *Apple* Product Doc...
Job Summary The Apple Product Documentation team is looking for an instructional designer or a video editor to write user documentation for its professional video Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.