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

Macs Fan Control 1.5.14 - Monitor and co...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
VueScan 9.7.96 - 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
FileMaker Pro 19.6.1 - Quickly build cus...
FileMaker Pro is the tool you use to create a custom app. You also use FileMaker Pro to access your app on a computer. Start by importing data from a spreadsheet or using a built-in Starter app to... Read more
Duet 3.1.0.0 - Use your iPad as an exter...
Duet is the first app that allows you to use your iDevice as an extra display for your Mac using the Lightning or 30-pin cable. Note: This app requires a iOS companion app. Release notes were... Read more
Firefox 107.0.1 - Fast, safe Web browser...
Firefox offers a fast, safe Web browsing experience. Browse quickly, securely, and effortlessly. With its industry-leading features, Firefox is the choice of Web development professionals and casual... Read more
War Thunder 2.21.1.91 - Multiplayer war...
In War Thunder, aircraft, attack helicopters, ground forces and naval ships collaborate in realistic competitive battles. You can choose from over 1,500 vehicles and an extensive variety of combat... Read more
Numbers 12.2.1 - Apple's spreadshee...
With Apple Numbers, sophisticated spreadsheets are just the start. The whole sheet is your canvas. Just add dramatic interactive charts, tables, and images that paint a revealing picture of your data... Read more
DEVONthink Pro 3.8.7 - Knowledge base, i...
DEVONthink is DEVONtechnologies' document and information management solution. It supports a large variety of file formats and stores them in a database enhanced by artificial intelligence (AI). Many... Read more
Drive Genius 6.2.3 - $79.00
Drive Genius features a comprehensive Malware Scan. Automate your malware protection. Protect your investment from any threat. The Malware Scan is part of the automated DrivePulse utility. DrivePulse... Read more
VLC Media Player 3.0.18 - Popular multim...
VLC Media Player is a highly portable multimedia player for various audio and video formats (MPEG-1, MPEG-2, MPEG-4, DivX, MP3, OGG, ...) as well as DVDs, VCDs, and various streaming protocols. It... Read more

Latest Forum Discussions

See All

‘Genshin Impact’ Version 3.3 Pre-Install...
Following the reveal of the release date and more for Genshin Impact (Free) version 3.3 ‘All Senses Clear, All Existence Void’, HoYoverse showcased the Genius Invokation TCG that arrives this week in the update. | Read more »
TouchArcade Game of the Week: ‘Sling Min...
The world of PC games has always blown my mind because there’s just SO MUCH stuff out there that it’s not uncommon at all for there to be a game that’s well-liked and well-reviewed, and seemingly quite popular with a solid fanbase, and have it be... | Read more »
SwitchArcade Round-Up: Reviews Featuring...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for December 2nd, 2022. So, today turned out a little quieter than the usual Friday. It was so quiet, in fact, that I decided to pen a few reviews. The Knight Witch, Railbound, and Donut... | Read more »
Blue Archive reveals its latest event st...
Nexon has announced the new update for Blue Archive, under the name of An Unconcealed Heart. Featuring a battle between two academies, the story will follow a group struggling to gain recognition, and will bring three new students to recruit. [... | Read more »
Dead Cells+ Is Out Now on Apple Arcade a...
Following the major update for Dead Cells on iOS and Android a few days ago, Playdigious has brought Dead Cells+ () to Apple Arcade. As an App Store Great, Dead Cells+ includes all prior paid DLC and content updates. It also has exclusive mobile... | Read more »
SwitchArcade Round-Up: ‘Romancing SaGa’,...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for December 1st, 2022. Wow, December. We’re already at the last month of the year? Phew. I have a lot of work to finish in the next few weeks. As for today, we’ve got a little news, a... | Read more »
‘Railbound’ Update Now Available Adding...
One of our favorite puzzlers released this year is Railbound from Afterburn Games, which hit in early September and earned our Game of the Week recognition for being an absolutely ace logic puzzler. The goal is to place rail pieces down in order to... | Read more »
The Seven Deadly Sins: Grand Cross celeb...
Netmarble Corporation has pulled out all the stops to celebrate the 3 and a half year anniversary of The Seven Deadly Sins: Grand Cross. The Grand Cross 3.5th Year Anniversary the Ultimate One, a rather wordy title, brings with it a brand new... | Read more »
‘Skullgirls Mobile’ Major Update 5.2 Out...
Developer Hidden Variable pushed out a major update for Skullgirls Mobile (Free) a few hours ago. The version 5.2 update brings in Black Dahlia (before the console and PC game), Retakes, XP Treats, free gifts, and more. Since launch, Skullgirls... | Read more »
Out Now: ‘Disgaea 4’, ‘Romancing SaGa: M...
Each and every day new mobile games are hitting the App Store, and so each week we put together a big old list of all the best new releases of the past seven days. Back in the day the App Store would showcase the same games for a week, and then... | Read more »

Price Scanner via MacPrices.net

Holiday Sale: Apple AirPods Pro for only $199...
Amazon has new 2022 AirPods Pro in stock and on sale for $199.99 shipped as part of their Holiday sale. Their price is $50 off Apple’s MSRP, equaling their Black Friday price, and it’s the lowest... Read more
New Holiday Sale: Apple retailers are offerin...
Several Apple retailers lowered prices on 10.9″ iPad Airs overnight to lows of $100 off MSRP starting at $499. Their prices are the lowest available for iPad Airs anywhere this Holiday season right... Read more
New Holiday sale at Amazon: Take $50 off Appl...
Amazon has Apple’s new 10th-generation iPads in stock and on sale, for the first time, for $50 off MSRP starting at only $399. Their discount applies to all models and all colors. With the discount,... Read more
Holiday Sale: Get an 8.3″ Apple iPad mini for...
Sams Club has 10.9″ 64GB iPad minis on Holiday sale for $80-$100 off MSRP through December 7, 2022. With their discount, prices start at $399 — the cheapest price for a new iPad mini from any of the... Read more
Sams Club Holiday December Event sale: Apple...
Apple AirPods Max headphones are on sale at Sams Club for $110 off MSRP ($439) as part of their December Event sale, ending on December 7, 2022, valid for all colors. Sale price for online orders... Read more
Apple’s 10.2″ 64GB 9th-generation iPads are o...
Sams Club has 9th-generation 64GB iPads on Holiday sale for $60 off MSRP through December 7, 2022. With their discount, prices start at $259 — the cheapest price for a new iPad from any of the Apple... Read more
11″ 128GB WiFi M2 iPad Pro on sale for $749,...
B&H Photo has the new 11″ 128GB WiFi M2-powered iPad Pro (in Space Gray or Silver) on Holiday sale for $749 including free 1-2 day shipping to most US addresses. Their price is $50 off MSRP and... Read more
Find the best Holiday sale price on an iPad u...
We’ve updated our iPad Price Trackers with the latest information on the new 10th-generation iPads, M2-powered iPad Pros, M1 iPad Airs, iPad minis, and 9th generation iPads from Apple’s authorized... Read more
Apple retailers are offering $100-$150 Holida...
Apple retailers have posted their most-recent Holiday sale prices on 13″ MacBook Airs. Take up to $150 off MSRP on M2-powered Airs with these sales with prices starting at only $1099. Free shipping... Read more
Holiday Sale: Apple’s 14″ MacBook Pros with M...
B&H Photo is offering $200-$300 discounts on Apple’s 14″ MacBook Pros with M1 Pro CPUs as part of their Holiday 2022 sale, with prices starting at $1799. Free 1-2 day shipping is available to... Read more

Jobs Board

Support Technician II - *Apple* Support - O...
…problems and acting as a liaison between customers and resolving groups. As an Apple Technical Specialist, you will be supporting many of our popular Apple Read more
*Apple* Electronic Repair Technician - PlanI...
…a highly motivated individual to join our Production Department as an Apple Electronic Repair Technician. The computer repair technician will diagnose, assemble, Read more
Lead Developer - *Apple* tvOS - Rumble (Uni...
…earnings, and positive sentiment About the role: We are looking for a Lead Apple tvOS Developer to join our application engineering team to expand our video centric Read more
Tier 1 Endpoint Engineer - *Apple* - Red Ri...
…Desk on site, at our Client's location, with a focus on support to Apple products. This position will handle technical support requests directly from customers and Read more
Product Manager II - *Apple* - DISH (United...
…you will be doing We seek an ambitious, data-driven thinker to assist the Apple Product Development team as our new Retail Wireless division continues to grow and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.