TweetFollow Us on Twitter

Mar 89 Letters
Volume Number:5
Issue Number:3
Column Tag:Letters

Letters

By David E. Smith, Editor & Publisher, MacTutor

INIT29 & Hpat Virsus Wanted!

Steve Sequist is requesting an infected disk with the new INIT29 and Hpat (nVir type) virus so he can update last month's Security Patrol anit-virus program to detect and destroy them. If you have one or both, please send an infected disk, clearly marked with a skull and crossbones, to MacTutor, PO Box 400, Placentia, CA 92670, attn: Virus! -Ed

Watch Cursor Revisited

Jan Eugenides

Waterbury Center, VT

David Stoops’ Animated Cursors from the December issue was interesting, but it had two deficiencies:

1) It was hard-coded for eight cursors, instead of obtaining the real number of cursors from the ‘acur’ resource,

2) It used SetUpA5 and RestoreA5, which should no longer be used.

I recoded the example in MPW C 3.0b1, with the modifications, and here is the result. I also changed to an ‘acur’ resource with an ID of 128, so as not to conflict with any system resources. The Rez source code for the watch ‘acur’ and the associated cursors are as follows:

/* 1 */

#include <Types.h>
#include <Resources.h>
#include <QuickDraw.h>
#include <OSUtils.h>
#include <Retrace.h>
#include <Memory.h>
#include <ToolUtils.h>
#include <Strings.h>
#include <Errors.h>

typedef struct {
 short  numCurs; /*number of cursor “frames” */
 short  whichCur;/*used as “frame” counter*/
 CursHandle Curs[1]; /*can actually be any number of cursors here*/
 }acur;
typedef acur*acurPtr,**acurHandle;

static acurHandleCurList;
static VBLTask   VBL;

pascal void AnimateWatch()  /*the VBL routine*/
{
long    oldA5;

oldA5 = SetCurrentA5();
if((*CurList)->whichCur >= (*CurList)->numCurs-1 )
 (*CurList)->whichCur = 0;
else
 (*CurList)->whichCur ++;
SetCursor(*((*CurList)->Curs[(*CurList)->whichCur]));
VBL.vblCount = 10;
SetA5(oldA5);
}

InitWatch()
{
short   curCount;

CurList = (acurHandle)GetResource(‘acur’,128);
for(curCount = 0; curCount < (*CurList)->numCurs; curCount++)
 (*CurList)->Curs[curCount] = GetCursor(HiWord((long)(*CurList)->Curs[curCount]));
(*CurList)->whichCur = 0;
}
StartWatch()
{
OSErr   err;

VBL.qType = vType;
VBL.vblAddr = (VBLProcPtr)AnimateWatch;
VBL.vblCount = 10;
VBL.vblPhase = 0;
err = VInstall((QElemPtr)&VBL);
}

StopWatch()
{
OSErr err;

err = VRemove((QElemPtr)&VBL);
}
/* 2 */

#include “types.r”

data ‘acur’ (128, locked, preload) {
 $”00 08 00 00 01 00 00 00 01 01 00 00 01 02 00 00"
 $”01 03 00 00 01 04 00 00 01 05 00 00 01 06 00 00"
 $”01 07 00 00"
};
resource ‘CURS’ (263, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 90 40 88 60"
 $”9C 60 80 40 80 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (262, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 80 40 80 60"
 $”BC 60 80 40 80 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (261, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 80 40 80 60"
 $”9C 60 88 40 90 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (260, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 80 40 80 60"
 $”9C 60 84 40 84 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (259, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 80 40 80 60"
 $”9C 60 82 40 80 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (258, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 80 40 80 60"
 $”9F 60 80 40 80 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (257, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 80 40 81 40 82 60"
 $”9C 60 80 40 80 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};
resource ‘CURS’ (256, locked, preload) {
 $”3F 00 3F 00 3F 00 3F 00 40 80 84 40 84 40 84 60"
 $”9C 60 80 40 80 40 40 80 3F 00 3F 00 3F 00 3F”,
 $”3F 00 3F 00 3F 00 3F 00 7F 80 FF C0 FF C0 FF C0"
 $”FF C0 FF C0 FF C0 7F 80 3F 00 3F 00 3F 00 3F”,
 {8, 8}
};

Animated Cursors Again

Erny Tontlinger

Steinfort, Luxembourg

Here are some comments to David Stoops’ Animated Cursors from the December 1988 Letters Column.

There is an error in the procedure InitWatch. The cursor id should be replaced by the cursor handle in the loop this:

/* 3 */

Watch[watchcount] := GetCursor(HiWord(longint(Watch[watchcount])));

The correct structure of a ‘acur’ resource is:

/* 4 */

acur = record
 frames: integer; {Number of frames(cursors) }
 whichWatch : integer;
 Watch : array[1..99] of CursHandle
 { size depends on frames }
end;

Then instead of using a fixed number of eight cursors, use Watch^^.frames, which happens to be eight for the Finder.

The ‘acur’ and ‘CURS’ resources should be locked, otherwise the VBL task runs into troubles with the memory Manager. The Finder uses the ‘CURS’ id 4 (classic watch cursor), which in the System file is not locked. This cursor is also in ROM, from the Mac Plus machines on, so it would be good to set RomMapInsert to mapTrue before calling GetCursor.

SetUpA5 and RestoreA5 might not work as expected under MultiFinder. The value of A5 should be placed in a position, other than CurrentA5 in low memory globals, where the application can find it from within the VBL task. See “Programmer’s Guide to MultiFinder” (APDA# KMB017) the chapter “The A5 world/VBL tasks”.

Now something different. Why is it so difficult to print READABLE program listing in MacTutor? Your desktop publishing program seems to have problems with regular spaced tab positions. Anyhow I appreciate MacTutor very much. [Basically, we convert the source into WriteNow in a 3 1/2" width single column with tabs set at every eighth of an inch. Then we place it into PageMaker. Here is where a number of problems occur as you surmised. PageMaker doesn't exactly import tab information correctly and we have to manually fix it. -Ed]

More Animated Watch Cursors

Rob Terrell

Chapel Hill, NC

In the December issue, you printed a letter that showed how to animate the watch cursor as a VBL task, which I thought was strange since a few issues back you printed another letter that gave a very good reason not to: a VBL task can go on and on while the application has crashed, and the poor user will be stuck thinking everything is okay.

A better way to implement the animated watch is through a unit that just takes a single call to increment the cursor. Support for this exists in TML Pascal II; for those not fortunate as to own TML, here’s a unit that does essentially the same thing:

{5}

Unit WatchItSpin;
(*Make sure you have copied the ‘acur’ and ‘CURS’ *)
(* resources from the Finder into your application *)
(* ResEdit is quite handy for this *)

Interface

Uses MemTypes, QuickDraw, OSintf, Toolintf;

type
 aCur = record
 whichWatch : longint;
 watch : array[1..8] of CursHandle;
 end;
 acurPtr = ^ acur;
 acurHandle = ^acurPtr;
var
 currentWatch : integer;
 WatchList : acurHandle;

Procedure InitSpinner;
Procedure SpinWatch;

Implementation

Procedure InitSpinner;
var
 count : integer;
begin
 watchList := acurHandle(GetResource(‘acur’,0));
 with watchList^^ do begin
 for count := 1 to 8 do
 Watch[count] := GetCursor(HiWord(longint( Watch[count])));
 whichWatch := 0;
 end;
end; (* InitSpinner *)

Procedure SpinWatch;
begin
 with WatchList^^ do begin
 if whichWatch >= 8 then whichWatch := 1
 else whichWatch := whichWatch + 1;
 SetCursor(Watch[whichWatch]^^);
 end;
end; (* SpinWatch *)
end.

Most of this code was simply taken from David Stoops’ letter. However, to use this, you call InitSpinner when you initialize everything else at the beginning of your program; then you call SpinWatch each time through a loop or time-consuming process to increment it. Not quite as nice as having a VBL take care of it, but this way, if you crash, the hands will stop.

Correction to CompareString

Steve Brecher

Sunnyvale, CA

In John S. Stokes III's CompareString routine (Jan 89 Letters), use of the Ext.W instruction introduces an error:

 Move.B (A0),D1  ; length of the first string
 Ext..W D1; dbra uses word

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. To convert an unsigned byte value to a word in a register, first clear the word and then move the byte into it:

;6

 Clr.W  D1
 Move.B (A0),D1

Often programmers will write MoveQ #0,Dn instead of Clr.W Dn when the value in the upper word of the register either needs to be cleared also or is not of concern. MoveQ is always a longword operation.

A corrected CompareString would look like this:

;7

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

CompareString:
 MoveQ  #0,D0
 Move.B (A0),D0  ;gross len - 1
@0 Cmp.B(A0)+,(A1)+ ;loop until...
 DBne D0,@0 ;...not equal or end
 Seq  D0;D0 := $FF if equal, else 0
 Neg.B  D0;D0 := 1 if equal, else 0
 Rts

The Move.B instruction puts the length byte of string 1 into D0. We want to compare the entire string structures, including their length bytes. The length of the entire structure--the gross length--of a string is the the number of text bytes, plus one for the length byte. For a DBxx instruction, we want the gross length - 1, which is just the value of the length byte.

We use the DBne instruction to control the loop. DBxx will branch to the start of the loop if either the test condition (in this case, “ne”) is false or the loop count is exhausted. Thus DBxx should be read as “branch until xx or counter expired.” When control falls through the DBne, we use the Seq instruction to condition D0 to the result of the last Cmp.B; DBxx instructions do not alter the condition codes. If the strings (including their lengths) are equal, the result of the last Cmp.B will be “eq” and the DBne will have not branched because the D1 counter expired. If the length bytes or contents of the strings are not equal, the last Cmp.B result will have been “ne” and the DBne will have not branched because its “until” condition was met.

[Steve Brecher is a long time friend of MacTutor. We welcome his comments and hope to hear more from him in the coming months. -Ed]

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

pwSafe 4.1 - Secure password management...
pwSafe provides simple and secure password management across devices and computers. pwSafe uses iCloud to keep your password databases backed-up and synced between Macs and iOS devices. It is... Read more
Kodi 15.0.rc1 - Powerful media center to...
Kodi (was XBMC) is an award-winning free and open-source (GPL) software media player and entertainment hub that can be installed on Linux, OS X, Windows, iOS, and Android, featuring a 10-foot user... Read more
Coda 2.5.11 - One-window Web development...
Coda is a powerful Web editor that puts everything in one place. An editor. Terminal. CSS. Files. With Coda 2, we went beyond expectations. With loads of new, much-requested features, a few surprises... Read more
Bookends 12.5.7 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Access the power of Bookends directly from Mellel, Nisus Writer Pro, or MS Word (... Read more
Maya 2016 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
RapidWeaver 6.2.3 - Create template-base...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
MacFamilyTree 7.5.2 - Create and explore...
MacFamilyTree gives genealogy a facelift: it's modern, interactive, incredibly fast, and easy to use. We're convinced that generations of chroniclers would have loved to trade in their genealogy... Read more
Paragraphs 1.0.1 - Writing tool just for...
Paragraphs is an app just for writers. It was built for one thing and one thing only: writing. It gives you everything you need to create brilliant prose and does away with the rest. Everything in... Read more
BlueStacks App Player 0.9.21 - Run Andro...
BlueStacks App Player lets you run your Android apps fast and fullscreen on your Mac. Version 0.9.21: Note: Now requires OS X 10.8 or later running on a 64-bit Intel processor. Initial stable... Read more
Tweetbot 2.0.2 - Popular Twitter client....
Tweetbot is a full-featured OS X Twitter client with a lot of personality. Whether it's the meticulously-crafted interface, sounds and animation, or features like multiple timelines and column views... Read more

Rage of Bahamut is Giving Almost All of...
The App Store isn't what it used to be back in 2012, so it's not unexpected to see some games changing their structures with the times. Now we can add Rage of Bahamut to that list with the recent announcement that the game is severely cutting back... | Read more »
Adventures of Pip (Games)
Adventures of Pip 1.0 Device: iOS iPhone Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: ** ONE WEEK ONLY — 66% OFF! *** “Adventures of Pip is a delightful little platformer full of charm, challenge and impeccable... | Read more »
Divide By Sheep - Tips, Tricks, and Stre...
Who would have thought splitting up sheep could be so involved? Anyone who’s played Divide by Sheep, that’s who! While we’re not about to give you complete solutions to everything (because that’s just cheating), we will happily give you some... | Read more »
NaturalMotion and Zynga Have Started Tea...
An official sequel to 2012's CSR Racing is officially on the way, with Zynga and NaturalMotion releasing a short teaser trailer to get everyone excited. Well, as excited as one can get from a trailer with no gameplay footage, anyway. [Read more] | Read more »
Grab a Friend and Pick up Overkill 3, Be...
Overkill 3 is a pretty enjoyable third-person shooter that was sort of begging for some online multiplayer. Fortunately the begging can stop, because its newest update has added an online co-op mode. [Read more] | Read more »
Scanner Pro's Newest Update Adds Au...
Scanner Pro is one of the most popular document scanning apps on iOS, thanks in no small part to its near-constant updates, I'm sure. Now we're up to update number six, and it adds some pretty handy new features. [Read more] | Read more »
Heroki (Games)
Heroki 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: CLEAR THE SKIES FOR A NEW HERO!The peaceful sky village of Levantia is in danger! The dastardly Dr. N. Forchin and his accomplice,... | Read more »
Wars of the Roses (Games)
Wars of the Roses 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
TapMon Battle (Games)
TapMon Battle 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: It's time to battle!Tap! Tap! Tap! Try tap a egg to hatch a Tapmon!Do a battle with another tapmons using your hatched tapmons! *... | Read more »
Alchemic Dungeons (Games)
Alchemic Dungeons 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: ### Release Event! ### 2.99$->0.99$ for limited time! ### Roguelike Role Playing Game! ### Alchemic Dungeons is roguelike... | Read more »

Price Scanner via MacPrices.net

Canon PIXMA MG3620 Wireless Inkjet All-in-One...
Canon U.S.A., Inc. has announced the PIXMA MG3620 Wireless (1) Inkjet All-in-One (AIO) printer for high-quality photo and document printing. Built with convenience in mind for the everyday home user... Read more
July 4th Holiday Weekend 13-inch MacBook Pro...
Save up to $150 on the purchase of a new 2015 13″ Retina MacBook Pro at the following resellers this weekend. Shipping is free with each model: 2.7GHz/128GB MSRP $1299 2.7GHz/... Read more
27-inch 3.5GHz 5K iMac on sale for $2149, sav...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2149.99. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary. Their price is $... Read more
Apple now offering refurbished 2015 11-inch...
The Apple Store is now offering Apple Certified Refurbished 2015 11″ MacBook Airs as well as 13″ MacBook Airs (the latest models), available for up to $180 off the cost of new models. An Apple one-... Read more
15-inch 2.5GHz Retina MacBook Pro on sale for...
Amazon.com has the 15″ 2.5GHz Retina MacBook Pro on sale for $2274 including free shipping. Their price is $225 off MSRP, and it’s the lowest price available for this model. Read more
Finally Safe To Upgrade To Yosemite’?
The reason I’ve held back from upgrading my MacBook Air from OS X 10.9 Mavericks to 10.10 Yosemite for nearly a year isn’t just procrastination. Among other bugs reported, there have been persistent... Read more
Logo Pop Free Vector Logo Design App For OS X...
128bit Technologies has released of Logo Pop Free 1.2 for Mac OS X, a vector based, full-fledged, logo design app available exclusively on the Mac App Store for the agreeable price of absolutely free... Read more
21-inch 1.4GHz iMac on sale for $999, save $1...
B&H Photo has new 21″ 1.4GHz iMac on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Best Buy has the 21″ 1.4GHz iMac on sale for $999.99 on their... Read more
16GB iPad mini 3 on sale for $339, save $60
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $339 including free shipping plus NY tax only. Their price is $60 off MSRP. Read more
Save up to $40 on iPad Air 2, NY tax only, fr...
B&H Photo has iPad Air 2s on sale for up to $40 off MSRP including free shipping plus NY sales tax only: - 16GB iPad Air 2 WiFi: $489 $10 off - 64GB iPad Air 2 WiFi: $559 $40 off - 128GB iPad Air... Read more

Jobs Board

*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
Program Manger, WW *Apple* Direct Fulfillme...
**Job Summary** We are seeking a business analyst to work within our Worldwide Apple Direct Fulfillment Operations team. This role will work closely with related program Read more
Project Manager, *Apple* Retail New Store O...
**Job Summary** An Apple Retail New Store Openings & Remodels Project Manager is responsible for successfully managing the openings, remodels, and small works of Read more
Technical Project Manager - *Apple* Pay - A...
**Job Summary** Apple Pay is seeking an experienced technical PM to…manage the on boarding of new merchants for the Apple Pay platform in the US Within this role you Read more
*Apple* Pay- Automation Test Engineer - Appl...
**Job Summary** At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring passion and dedication to your job Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.