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]

 
AAPL
$102.06
Apple Inc.
+0.48
MSFT
$46.58
Microsoft Corpora
+0.06
GOOG
$588.08
Google Inc.
+3.31

MacTech Search:
Community Search:

Software Updates via MacUpdate

Delivery Status 6.1.2 - Check delivery s...
Delivery Status displays delivery status of packages for a variety of shipment services. Can't wait for your packages to arrive? Don't waste your time checking the site constantly, just open this all... Read more
Mavericks Cache Cleaner 8.0.9 - Clear ca...
Mavericks Cache Cleaner is an award-winning general purpose tool for OS X. MCC makes system maintenance simple with an easy point-and-click interface to many OS X functions. Novice and expert users... Read more
OneNote 15.2.2 - Free digital notebook f...
OneNote is your very own digital notebook. With OneNote, you can capture that flash of genius, that moment of inspiration, or that list of errands that's too important to forget. Whether you're at... Read more
Apple Configurator 1.6 - Configure and d...
Apple Configurator makes it easy for anyone to mass configure and deploy iPhone, iPad, and iPod touch in a school, business, or institution. Three simple workflows let you prepare new iOS devices... Read more
SpamSieve 2.9.16 - Robust spam filter fo...
SpamSieve is a robust spam filter for major email clients that uses powerful Bayesian spam filtering. SpamSieve understands what your spam looks like in order to block it all, but also learns what... Read more
OS X Server 3.2.1 - For OS X 10.9.5 Mave...
OS X Server is the next generation of Apple's award winning server software. Designed for OS X and iOS devices, OS X Server makes it easy to share files, schedule meetings, synchronize contacts, host... Read more
Apple Security Update 2014-004 - For OS...
Apple Security Update is recommended for all users and improves the security of Mac OS X. For information on the security content of this update, please visit this website: http://support.apple.com/... Read more
OS X Mavericks 10.9.5 - The latest versi...
Apple OS X Mavericks is the latest release of the world's most advanced desktop operating system. Now free! With more than 200 new features, OS X Mavericks brings Maps and iBooks to the Mac,... Read more
iExplorer 3.5.0.0 - View and transfer al...
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
BusyCal 2.6 - Powerful calendar app with...
BusyCal is an award-winning desktop calendar that combines personal productivity features for individuals with powerful calendar sharing capabilities for families and workgroups. BusyCal's unique... Read more

Latest Forum Discussions

See All

Scope Review
Scope Review By Jennifer Allen on September 18th, 2014 Our Rating: :: LOCATION AWAREiPhone App - Designed for the iPhone, compatible with the iPad Want to easily find photos from around the world based on their location? Scope is a... | Read more »
HipstaFox Review
HipstaFox Review By Jordan Minor on September 18th, 2014 Our Rating: :: FANTASTIC MR. FOXUniversal App - Designed for iPhone and iPad HipstaFox is a great single that makes players long for the whole album.   | Read more »
Ninja Raft (Games)
Ninja Raft 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: ** Special Launch Price ** "Ninja Raft is definitely the game to play if you’re into Tower Defense games and want to play something... | Read more »
Paste+ | Clipboard Action Widget (Produ...
Paste+ | Clipboard Action Widget 1.0.0 Device: iOS iPhone Category: Productivity Price: $3.99, Version: 1.0.0 (iTunes) Description: Powerful clipboard widget for iOS 8. Reimagine what you can do with your clipboard! Paste+ is a... | Read more »
Agenda+ | Calendar & Reminder Widget...
Agenda+ | Calendar & Reminder Widget 1.0.0 Device: iOS iPhone Category: Productivity Price: $1.99, Version: 1.0.0 (iTunes) Description: Best Calendar and Reminder Widget Ever for iOS 8 | Read more »
Leg·end·ar·y (Games)
Leg·end·ar·y 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Simple and yet complex. Leg•end•dar•y is a grid-based puzzle game based on numbers. Discover the adventure of Leg•end•dar•y and... | Read more »
KuaiBoard (formerly QuickBoard) (Utilit...
KuaiBoard (formerly QuickBoard) 1.0 Device: iOS Universal Category: Utilities Price: $1.99, Version: 1.0 (iTunes) Description: KuaiBoard is currently 50% off for launch! Billing info. Signatures. Locations. KuaiBoard allows you to... | Read more »
Treasure Fetch - Adventure Time (Games)
Treasure Fetch - Adventure Time 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: Adventure Time Treasure Fetch is a fresh take on the classic Snake game! STRETCHY JAKE Snake your way... | Read more »
Light in the Dark (Games)
Light in the Dark 1.1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.1.0 (iTunes) Description: Be enlightened by this delightful puzzle game that has never before seen the light of day! "A physics and color-blending... | Read more »
Transmit iOS (Utilities)
Transmit iOS 1.0 Device: iOS Universal Category: Utilities Price: $9.99, Version: 1.0 (iTunes) Description: >> LAUNCH SPECIAL: Transmit iOS is ONLY $10 for a LIMITED TIME. << THE #1 FILE TRANSFER CLIENT FOR THE MAC NOW... | Read more »

Price Scanner via MacPrices.net

Save up to $300 on the price of a new Mac wit...
Purchase a new Mac or iPad at The Apple Store for Education and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free,... Read more
13-inch 2.8GHz Retina MacBook Pro available f...
B&H Photo has the new 2014 13″ 2.8GHz Retina MacBook Pro on sale for $1699.99 including free shipping plus NY sales tax only. They’ll also include free copies of Parallels Desktop and LoJack for... Read more
16GB iPad Air on sale for $449, save $50
Walmart has the 16GB iPad Air WiFi on sale for $449 on their online store for a limited time. Choose free home shipping or free local store pickup. Their price represents a $50 savings over standard... Read more
13-inch 256GB MacBook Air on sale for $1099,...
B&H Photo has the 2014 13″ 1.4GHz 256GB MacBook Air on sale for $1099.99. Shipping is free, and B&H charges NY sales tax only. Their price is $100 off MSRP. Read more
Toshiba Introduces TransMemory ID High-Speed...
Toshiba’s Digital Products Division (DPD), a division of Toshiba America Information Systems, Inc., today introduced the TransMemory ID USB 3.0 Flash Drive, a simpler storage solution for people who... Read more
New iPads and OS X Yosemite Release Coming Oc...
The DailyDot’s Micah Singleton reports that Apple is planning to hold its next product announcement event on Oct. 21, at which it will unveil the iPad Air 2 and iPad mini 3 and release a final build... Read more
Logitech Bluetooth Multi-Device Cross-Platfor...
Logitech has an enviable track record of making some of the best computer keyboards and mice. At least in my estimation, the best freestanding keyboards I’ve ever used have been Logitech units,... Read more
Roundup of Apple refurbished iPad Airs and iP...
Apple is offering Certified Refurbished iPad Airs for up to $140 off MSRP. Apple’s one-year warranty is included with each model, and shipping is free. Stock tends to come and go with some of these... Read more
Sprint offers 16GB iPad mini for $199.99 with...
Sprint is offering 1st generation 16GB iPad minis for $199.99 with a 2-year service agreement. Standard MSRP for this iPad is $429. Their price is the lowest available for this model. Read more
2.5GHz Mac mini remains on sale for $549, sav...
B&H Photo has the 2.5GHz Mac mini on sale for $549.99 including free shipping. That’s $50 off MSRP, and B&H will also include a free copy of Parallels Desktop software. NY sales tax only. Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.