TweetFollow Us on Twitter

ADB Count
Volume Number:6
Issue Number:5
Column Tag:XCMD Corner

Related Info: ADB Manager

CountADBs and Reality

By Donald Koscheka, , Mark Armstrong

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

This column strives to present interesting insights into enhancing Hypercard through XCMDs. When I started writing this column almost two years ago, I was apprehensive; how would I come up with a new idea each month year in and year out. The answer to this question was something of a revelation to me -- once I decided to keep coming up with new ideas, I began looking in new places for those ideas. No part of Macintosh programming is off-limits, I explore everything. Of course there are limits to what one person can do and I find myself very often writing a column in response to some question asked by a colleague or a reader.

I’ve decided that it’s time to go one step further. Beginning this month, intermittently offer this space for “guest XCMDs” such as Mark Armstrong’s following ADB externals. The guest columnist idea appeals to me for two reasons: (1) it broadens the column’s “reach” by discussing areas that I may have not explored myself and (2) it provides you with different perspectives and coding styles so that you can see how others have solved specific problems in an XCMD. This is an open invitation. If you would like to have your XCMD published, send it to me via AppleLink (N0735) or America OnLine (AFC Donald) or to the Editor. Use Macwrite or TEXT only. I will respond as quickly as possible to inform you as to whether I can use the article or not. A few rules: If I can use the material, I will edit it and return it to you for approval. I edit for style and grammar, expect to have some work done to your prose. Don’t submit anything that you don’t want in the public domain and don’t submit any article without source code. You may use whatever language you like. Give yourself a “short plug” at the beginning of the column so that other readers get to know you better.

This month, I would like to introduce Mark Armstrong, Vice President of Research and Development at Pharos Technologies, Inc, a software development and systems integration company in Cincinnati, Ohio. Mark has written one commercial engineering application on the Macintosh called “UNITize” and has contributed to the arcade-style game “Marble Madness”. With his physics degree firmly in hand, he still wonders how he got mixed up in all this.

CountADBs and Reality

In some circumstances (such as on the factory floor), there is a need to monitor the Macintosh to determine whether the mouse or keyboard devices become detached from ADB. Some software may modify their behavior if certain input devices are available, hiding or showing functionality based on that result. Below are two simple XFCN’s, developed in Think C 4.0, that tell you if the mouse and keyboard are connected.

According to Inside Macintosh Volume 5, the function CountADBs() “returns a value representing the number of devices connected to the Apple Desktop Bus (ADB) by counting the number of entries in the device table....” The important word is representing. It does not really tell you what is connected out there on the bus. Consequently, even if you have no devices hooked up to ADB, CountADBs() will return a value of 2. This happens because the system always installs the keyboard and mouse drivers regardless of whether they are physically resident. To find out what is really connected to ADB you can poll devices that you believe are connected to the ADB. Connected devices will respond to the poll.

Before going too far, you must determine whether the host machine is equipped for ADB. The following call to SysEnvirons() determines whether ADB is installed.

/* 1 */

Boolean ADBExists()
 {
 SysEnvRectheWorld;
 OSErr  err;
 
 err = SysEnvirons(1,&theWorld);
 if (err) return (FALSE);
 else
 {
if ((theWorld.machineType >= 0) && (theWorld.machineType < 3)) 
 return (FALSE);
 else return (TRUE);
 }
 }

Once you have determined that ADB exists on your machine, you check to see what devices are actually there by looping from 1 to the maximum allowable number of ADB devices (16). Inside the loop, you call ADBIndAvail() which returns TRUE if the specified device is physically connected and functional or FALSE otherwise. ADBIndAvail() takes a device specified by the index and sends a command via ADBOp() to that device to see if it is responding. If the device receives the operation, it will signal that it has done so by executing a completion routine. If the completion routine ADBOp() doesn’t execute, then the device did not receive the message, and we can assume that the device is dysfunctional or disconnected. The completion routine ADBComplete() sets a global variable to TRUE. If completion does not occur, then the operation times out and the global variable remains FALSE. In the following code, we use the first byte of Scratch8 as the global variable. We chose to use Scratch8 because this code was developed for a Think C 4.0 XCMD where A4 had already been pushed using SetUpA4(). In most cases, a regular global variable will do the trick.

/* 2 */

#define ADB_TIMEOUT10000

extern char Scratch8[]  : 0x9FA;

ADBComplete(){
 *(char *)Scratch8 = TRUE;
}

ADBIndAvail(index)
 short  index;
 {
 ADBAddress addrs;
 ADBDataBlock  devBlock;
 OSErr  err;
 short  cmdNum;
 Str255 ADBData;
 
 addrs = GetIndADB(&devBlock,index);
 cmdNum = ((addrs*16)+0xF);
 ADBData[0] = 0;
 ADBData[1] = 0;
 ADBData[2] = 0;
 
 *(char *)Scratch8 = FALSE;
 err = ADBOp(NIL,ADBComplete,&ADBData,cmdNum);
 if (!err){
 short I= 0;
 do
 if (++I > ADB_TIMEOUT) *(char *)Scratch8 = TRUE; 
 while (!*(char *)Scratch8);
 if (ADBData[0] != 0) return (TRUE);
 }
 return (FALSE);
}

In both cases below, the first portion of the code checks to see if the first and only argument is a question mark (?) or an exclamation point (!). If so, the XFCN responds appropriately as suggested by MacDTS.

The XFCN checks first to see if ADB exists on this machine and returns an error code if it does not. Next, it loops through all the devices to see if any one of them is a responding mouse. If it finds one, it returns TRUE, otherwise it completes the loop and returns FALSE. Each time through the loop, we call GetIndADB(), as directed in Inside Mac, to determine if the device in question is, indeed, a mouse.

/* 3 */

#include “MacTypes.h”
#include “HyperXCmd.h”
#include “DeskBus.h”
#include “SetUpA4.h”

#define ADB_KEYBOARD 2
#define ADB_MOUSE3

#define STANDARD_KBD 1
#define EXTENDED_KBD 2

#define MAX_ADB_DEVICES 16

pascal main(paramPtr)
   XCmdBlockPtr  paramPtr;
   {
   Str255 str;
   shortix;
   
   RememberA0();
   SetUpA4();
   
   if(paramPtr->paramCount == 1){
   ZeroToPas(paramPtr,*((unsigned char **)paramPtr->params[0]),str);
      if (str[0] == 1){
        if (str[1] == ‘?’) 
 pstrcpy(str,”\pKBDAvail()”);
        else if (str[1] == ‘!’) 
 pstrcpy(str,”\pv1.0; © Pharos Technologies, Inc. 1989");
      }
      goto Done;
   }
   
   if (!ADBExists()){ 
 pstrcpy(str,”\p0\rnoADB”); 
 goto Done; 
 }
   
 for ( ix  =1; ix <=MAX_ADB_DEVICES; ix ++){
 ADBDataBlock    ADBinfo;
 ADBAddress ADBaddr;
 
 if (!ADBIndAvail( ix )) continue;
 ADBaddr = GetIndADB(&ADBinfo,I);
 if (ADBaddr <= 0) continue;
 if (ADBinfo.origADBAddr == ADB_MOUSE){ 
 pstrcpy(str,”\ptrue”); 
 goto Done; 
 }
 }
 pstrcpy(str,”\pfalse”);
Done:
   paramPtr->returnValue = PasToZero(paramPtr,(StringPtr)str);
   RestoreA4();
}

A similar routine checks for keyboard devices. This routine not only checks to see if it is a keyboard, but also returns the type of keyboard by examining the devType field of ADBInfo.

/* 4 */

#include “MacTypes.h”
#include “HyperXCmd.h”
#include “DeskBus.h”
#include “SetUpA4.h”

#define ADB_KEYBOARD 2
#define ADB_MOUSE3
#define STANDARD_KBD 1
#define EXTENDED_KBD 2
#define MAX_ADB_DEVICES 16

pascal main(paramPtr)
   XCmdBlockPtr  paramPtr;
   {
   Str255 str;
   shortI;
   
   RememberA0();
   SetUpA4();
   
   if (paramPtr->paramCount == 1){
   ZeroToPas(paramPtr,*((unsigned char **)paramPtr->params[0]),str);
      if (str[0] == 1){
        if (str[1] == ‘?’) 
 pstrcpy(str,”\pKBDAvail()”);
        else if (str[1] == ‘!’) 
 pstrcpy(str,”\pv1.0; © Pharos Technologies, Inc. 1989");
      }
      goto Done;
    }
   
   if (!ADBExists()){ 
 pstrcpy(str,”\p0\rnoADB”); 
 goto Done; 
 }
   
 for (I=1;I<=MAX_ADB_DEVICES;I++){
 ADBDataBlock    ADBinfo;
 ADBAddress ADBaddr;
 
 if (!ADBIndAvail(I)) continue;
 ADBaddr = GetIndADB(&ADBinfo,I);
 if (ADBaddr <= 0) continue;

 if (ADBinfo.origADBAddr == ADB_KEYBOARD){
 if (ADBinfo.devType == STANDARD_KBD){ 
 pstrcpy(str,”\ptrue,standard”); 
 goto Done; 
 }
 else if (ADBinfo.devType == EXTENDED_KBD){ 
 pstrcpy(str,”\ptrue,extended”); 
 goto Done; 
 }
 else{ 
 pstrcpy(str,”\ptrue,unknown”); 
 goto Done; 
 }
 }
 }
 pstrcpy(str,”\pfalse”);
Done:
   paramPtr->returnValue = PasToZero(paramPtr,(StringPtr)str);
   RestoreA4();
   }

Once you know how to identify a particular device, it is easy to check to see if it is present on ADB. If you don’t know how to identify a given device, then the code above can be easily modified to return all devices found on ADB. By the way, I would like to give special thanks and credit to Cameron Birse. If you don’t recognize the name from any number of “sources”, then never mind.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

How to get started with Prisma
If there's one thing people like to do more than taking pictures with their smartphones, it's tinkering with those photos in some way. Numerous apps have sprung up over the last several years that allow you to use filters and special effects to... | Read more »
6 Pokemon GO updates you can expect, acc...
Pokemon GO had a scheduled appearance at this year's San Diego Comic-Con for a while, but it was only relatively close to the show that it was upgraded to a spot in Hall H. That's the biggest venue at SDCC, one usually reserved for the largest... | Read more »
How to evolve Eevee in Pokemon GO
By now, almost everyone should be hip to how to evolve Pokemon in Pokemon GO (and if not, there's a guide for that). Just gather enough candy of the appropriate type, feed them all to the Pokemon, and evolution happens. It's a miracle that would... | Read more »
CSR Racing 2: Guide to all game modes
It might not seem like there are all that many ways to go fast in a straight line, but CSR Racing 2 begs to differ. [Read more] | Read more »
Bulb Boy (Games)
Bulb Boy 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Multi-award winning 2D point & click horror adventure about a boy with a glowing head. | Read more »
5 top free emoji keyboard apps
If we're not at peak emoji yet as a society, it feels like we definitely should be. The emoji concept has gone far beyond what anyone in Japan could have envisioned when the people there unleashed it on an unsuspecting world, but the West has... | Read more »
How to unlock more characters in Disney...
One of the big charms of Disney Emoji Blitz is seeing a wide variety of beloved Disney and Pixar characters transformed into smiling emojis. Even someone like the sneaky Randall from Monsters Inc., who probably never cracked a smile on film, is... | Read more »
Cubway (Games)
Cubway 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Cubway is a journey with an abstract story of lifecycle of rebirth, called Samsara. Guide the cube through the long way full of dangers... | Read more »
Colorcube (Games)
Colorcube 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Turn pieces and blend colours in this minimal yet visually stunning puzzler.Over 200 handcrafted and challenging levels. Features... | Read more »
Doodle God Griddlers (Games)
Doodle God Griddlers 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »

Price Scanner via MacPrices.net

13-inch 1.6GHz/128GB MacBook Air on sale for...
Amazon has the 13″ 1.6GHz/128GB MacBook Air on sale for $200 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $799.99 $200 off MSRP Their price is the... Read more
13-inch 1.6GHz/256GB MacBook Air on sale for...
Amazon has the 13″ 1.6GHz/256GB MacBook Air on sale for $200 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/256GB MacBook Air (sku MMGG2LL/A): $999.99 $200 off MSRP Their price is the... Read more
Free iOS Business App notably* Helps Service...
PayStudio Inc. has introduced their new business app notably* 1.0, developed for iPhone and iPod touch. notably* was specifically developed to help service and trade professionals go digital and... Read more
27-inch iMacs on sale for $200 off MSRP
Amazon has 27″ iMacs on sale for $200 off MSRP including free shipping: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1799.99 $200 off MSRP - 27″ 3.2GHz/1TB HD iMac 5K... Read more
Mac Pros on sale for $200 off MSRP
B&H Photo has Mac Pros on sale for $200 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3799, $200... 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
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 2.5GHz MacBook Pro (Apple refurbished...
Apple has Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros... Read more
21-inch iMacs on sale for up to $120 off MSRP
B&H Photo has 21″ iMacs on sale for up to $120 off MSRP including free shipping plus NY sales tax only: - 21″ 3.1GHz iMac 4K: $1379 $120 off MSRP - 21″ 2.8GHz iMac: $1199.99 $100 off MSRP - 21″ 1... Read more
Charitybuzz Set to Auction Unique Apple-1 Com...
Offering an opportunity to own the computer that sparked a revolution, on Monday, July 25, leading online charity auction platform Charitybuzz will auction what is claimed to be the world’s most... Read more

Jobs Board

*Apple* Retail - Multiple Positions, Willow...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Evangelist - JAMF Software (United S...
The Apple Evangelist is responsible for building and cultivating strategic relationships with Apple 's small and mid-market business development field teams. This Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Professional Learning Specialist - A...
Job Summary The Apple Professional Learning Specialist is a full-time position for one year with Apple in the Phoenix, AZ area. This position requires a high Read more
*Apple* Picker - Apple Hill Orchard (United...
Apple Hill Orchard, Co. Rte. 21,Whitehall, NY 9/7/16-10/228/16. Pick fresh market or processing apples Productivity of 60 boxes and 80 boxes processing fruit per Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.