TweetFollow Us on Twitter

Oct 89 Letters
Volume Number:5
Issue Number:10
Column Tag:Letters

Letters

By David E. Smith, Editor & Publisher, MacTutor

Any sympathetic souls

John Love, III

Springfield, VA

I’m having absolutely NO luck with MACDTS, or anyone else for that matter, trying to solve my following 2 separate & distinct problems. I KNOW this is an AWFUL lot, but I’m going crazy ?!*!?

; 1) Using _CopyBits to create a color PICT2 file:
entireScreenpointer; My globals
screenMap pointer; ...
pictBoundsrect   ; ...
picHdl  handle   ; ...

 clr.w  -(sp)
 bsr  TestForColor
 pop.w  d0
 beq.s  .bitMap
 ; ----------
.pixMap GetCWMgrPort !entireScreen
 move.l entireScreen,a0
 lea  portPixMap(a0),a1
 move.l a1,screenMap
 move.l portPixMap(a0),a1
 move.l (a1),a1  ; Handle -- Pointer.
 bra.s  .setBounds
 ;
.bitMap GetWMgrPort!entireScreen
 move.l entireScreen,a0
 lea  portBits(a0),a1
 move.l a1,.screenMap

 ; ~~~~~~~~~~

.setBoundsmove.l bounds+topLeft(a1),pictBounds+topLeft
 move.l bounds+botRight(a1),pictBounds+botRight
 ; ----------
.setPortSetPort  entireScreen
 ClipRect !pictBounds
 ; etc
 
.macDraw2 OpenPicture!pictBounds,=picHdl

 CopyBits screenMap,screenMap,!pictBounds,!pictBounds,#srcCopy,#0

 ClosePicture
 ; etc
 
; above code works in black-and-white mode, but NOT in color.
;
; I’ve tried : move.lentireScreen,a0
;move.l portPixMap(a0),screenMap
; Also :move.l entireScreen,a0
;move.l portPixMap(a0),a1
;move.l (a1),screenMap
;
; ... but neither permutation works --> an empty picHdl (10 bytes, obviously
; ... corresponding to just the picSize & picFrame fields).
; ... it doesn’t bomb, but the file comes up blank, that is, just
; ... the 512-byte header + those 10 bytes and nothing else.
; ... I think it’s kinda interesting that ONLY upon
;
;move.l portPixMap(a0),screenMap
;
; ... do I get a PICT2 file, albeit an empty one.
; ... In the other two cases, I get just a PICT file.
;
;SIGH !!
; ------------------------------

; 2) Switching color on & off on the fly, that is, changing the MODE:

; following was deduced from the “Cards and Drivers ...” book.
; This book is supposed to be official stuff from Apple, yet
; MacDTS fails to respond in other than purely qualitative prose.
;
; All my code does is turn video to a constant gray all over
; as if I had turned the video OFF.  All further execution ceases !!
; No bomb, but I must re-boot.
 
; My calling stuff:

origModeinteger  ; My globals
paramBlkRec byte ioFQElSize ; ...
VDPgInfobyteVDPageInfo  ; ...

 clr.w  -(sp)
 bsr  TestForColor
 pop.w  d0
 beq.s  .notColor
 
 ; ----------
 ; Save the current mode for reseting when done
 ; and then set to black-and-white:

.itsColor clr.w  -(sp)    ; result = Error code.
 push.l MainDevice
 pea  paramBlkRec; VARed ...
 pea  VDPgInfo
 bsr  GetMode
 lea  VDPgInfo,a1
 move.w csMode(a1),origMode ; ... for reseting later.
 pop.w  d0
 bsr  testError  ; Returns if d0 <> 0.
 ; ----------
 clr.w  -(sp)
 push.l MainDevice
 push.w #oneBitMode; ... for black-and-white.
 bsr  SetDeviceMode
 pop.w  d0
 bsr  testError
 
.notColor
 ; etc
 
.onExitingclr.w  -(sp)
 bsr  TestForColor
 pop.w  d0
 beq.s  .byeBye
 
 ; ----------
 ; Reset the mode to its original value:
 
.resetColor clr.w-(sp)
 push.l MainDevice
 push.w .origMode
 bsr  SetDeviceMode
 pop.w  d0
 bsr  .testError
 
.byeBye
 ; etc

; All my subroutine children:
; ======================================
; FUNCTION  TestForColor : BOOLEAN;
; Test for the presence of a Mac with Color QuickDraw AND a Color
; Monitor that the user has set to Color via the Control Panel
; or by using the “Switch-A-Roo” FKEY:

TestForColorfunc boolean
 noParms
 
 locals
.theWorld byte sysEnv1Size; Mac II stuff.
 endLocals
 
 enter
 
 movem.ld1-d7/a0-a5,-(sp) ; Save all your pennies !!
 ; ==========
 
 clr.w  .result  ; Assume NO color = B&W.
 
 move.w #1,d0    ; Version #1.
 lea  .theWorld,a0
 _SysEnvirons
 tst.w  d0
 bne.s  .notColor
 ; ----------
.noErrortst.b  hasColorQD(a0) ; A0 --> theWorld.
 beq.s  .notColor
 ; ----------
 GetGDevice =a1  ; Handle -->
 move.l (a1),a1  ;   Pointer.
 move.l gdPMap(a1),a0; Ditto ...
 move.l (a0),a0
 cmpi.w #1,pmPixelSize(a0)
 beq.s  .notColor

.color  st.result
 ; ----------
.notColor

 ; ==========
.end  movem.l  (sp)+,d1-d7/a0-a5 ; Withdraw life savings !!
 
 exit

; ======================================
; FUNCTION  WhereIsTheDevice (whatDevice: GDHandle) : dceHandle;
; Slot #, Slot ID, etc ??
WhereIsTheDevice funchandle
.whatDevice handle
 endParms
 
 noLocals
 
.devRefNumrequ d1
 enter
 
 movem.ld1-d7/a0-a5,-(sp) ; Save your goodies !!
 ; ==========
 clr.l  .result  ; Assume nowhere !!
 
 move.l .whatDevice,a0
 move.l (a0),a0  ; Handle --> Pointer.
 move.w gdRefNum(a0),.devRefNum
 ; tst.w.devRefNum
 beq.s  .end; Nowhere !!
 ; ----------
 not.w  .devRefNum ; = Unit #
 lsl.w  #2,.devRefNum; 4 bytes per entry.
 move.l UTableBase,a1; --> DCE Table.
 move.l (a1,.devRefNum),.result  ; = dceHandle.
 
 ; ==========
.end  movem.l  (sp)+,d1-d7/a0-a5 ; Dig up your treasure !!
 exit

; ======================================
; FUNCTION  GetMode (whatDevice: GDHandle; VAR paramBlk: paramBlkRec;
;     VAR VDPgInfo: VDPgInfoRec) : INTEGER;
; csMode, csPage, etc ??

GetMode funcinteger; Error code.
.whatDevice handle
.paramBlk var
.VDPgInfo var
 endParms
 
 noLocals
.paramBlkPtrrequ a0
.dceHandlerequ a1
.dcePtr requa1
 
 enter
 
 movem.ld1-d7/a0-a5,-(sp) ; Save your goodies !!
 ; ==========
 move.w #-1,.result; Assume a problem.
 
 move.l .paramBlk,.paramBlkPtr; A Pointer.
 move.l #ioFQElSize-1,d0
.clearBlk1clr.b  (.paramBlkPtr)+
 dbra d0,.clearblk1
 ; ----------
 move.l .VDPgInfo,a2 ; Another Pointer.
 move.l #VDPageInfo-1,d2
.clearBlk2clr.b  (a2)+
 dbra d2,.clearBlk2
 
 clr.l  -(sp)    ; FUNCTIONal result.
 push.l .whatDevice
 bsr  WhereIsTheDevice
 pop.l  .dceHandle
 cmpi.l #0,.dceHandle
 beq.s  .end; Oh-Oh !!
 move.l (.dceHandle),.dcePtr
 ; ----------
 move.l .paramBlk,.paramBlkPtr; Reset.
 ; clr.lioCompletion(.paramBlkPtr)
 move.w dCtlRefNum(.dcePtr),ioRefNum(.paramBlkPtr)
 ; move.b #fsCurPerm,ioPermssn(.paramBlkPtr)   ; = 0
 ; clr.lioMix(.paramBlkPtr)
 ; clr.wioFlags(.paramBlkPtr)
 move.b dCtlSlot(.dcePtr),ioSlot(.paramBlkPtr)
 move.b dCtlSlotID(.dcePtr),ioID(.paramBlkPtr)
 
 move.w #cscGetMode,csCode(.paramBlkPtr)
 move.l .VDPgInfo,csParam(.paramBlkPtr)      ; VARed.
 _Status,immed
 move.w d0,.result
 ; ==========
.end  movem.l  (sp)+,d1-d7/a0-a5 ; Dig up your treasure !!
 
 exit

; ======================================
; FUNCTION  SetMode (whatDevice: GDHandle; paramBlk: paramBlkPtr;
;     VDPgInfo: VDPgInfoPtr) : INTEGER;
;
; csMode, csPage, etc !!

SetMode funcinteger; Error code.
.whatDevice handle
.paramBlk pointer
.VDPgInfo pointer
 endParms
 
 noLocals
 
.paramBlkPtrrequ a0
.dceHandlerequ a1
.dcePtr requa1
 
 enter
 
 movem.ld1-d7/a0-a5,-(sp)
 ; ==========
 
 clr.l  -(sp)    ; FUNCTIONal result.
 push.l .whatDevice
 bsr  WhereIsTheDevice
 pop.l  .dceHandle
 cmpi.l #0,.dceHandle
 bne.s  .setNewMode; Everything’s cool !!
.itsNowhere move.w #-1,d0
 bra.s  .ohOh
 ; ----------
.setNewMode move.l (.dceHandle),.dcePtr
 move.l .paramBlk,.paramBlkPtr
 move.w #cscSetMode,csCode(.paramBlkPtr)
 move.l .VDPgInfo,csParam(.paramBlkPtr)
 _Control,immed

.ohOh move.wd0,.result    
 ; ==========
.end  movem.l  (sp)+,d1-d7/a0-a5
 
 
 exit

; ======================================
; FUNCTION  SetDeviceMode (whatDevice: GDHandle; mode: INTEGER) : INTEGER;
;
; Set the specified Device to a particular color mode:

SetDeviceMode  funcinteger; Error code.
.whatDevice handle
.mode integer
 endParms
 
 locals
.paramBlkRecbyte ioFQElSize
.VDPgInfo byte VDPageInfo
 endLocals
 
.paramBlkPtrrequ a0
.dceHandlerequ a1
.dcePtr requa1
 enter
 
 movem.ld1-d7/a0-a5,-(sp)
 ; ==========
 
.getOldStuffclr.w-(sp)    ; result = Error code.
 push.l .whatDevice
 pea  .paramBlkRec ; VARed ...
 pea  .VDPgInfo
 bsr  GetMode
 pop.w  d0
 bne.s  .ohOh

.whereInThe?clr.l-(sp)    ; FUNCTIONal result.
 push.l .whatDevice
 bsr  WhereIsTheDevice
 pop.l  .dceHandle
 cmpi.l #0,.dceHandle
 bne.s  .setGray ; Everything’s cool !!
.itsNowhere move.w #-1,d0
 bra.s  .ohOh
 ; ----------
.setGraymove.l (.dceHandle),.dcePtr; Recommended middle step.
 lea  .paramBlkRec,.paramBlkPtr
 move.w #cscGrayPage,csCode(.paramBlkPtr)
 lea  .VDPgInfo,a2
 move.l a2,csParam(.paramBlkPtr)
 _Control,immed
 tst.w  d0
 ; bne.s.ohOh    ; This call is optional.

.setNewMode clr.w-(sp)    ; Error code.
 push.l .whatDevice
 pea  .paramBlkRec
 lea  .VDPgInfo,a1
 move.w .mode,csMode(a1)  ; Change the mode.
 pea  .VDPgInfo
 bsr  SetMode
 pop.w  d0
 
.ohOh move.wd0,.result    
 ; ==========
.end  movem.l  (sp)+,d1-d7/a0-a5
 
 exit

Onstad’s Answer

Flashpoint

San Francisco, CA

Paul Onstad’s question in the August 1989 issue of MacTutor on page 4: you must do a CreateResFile() after the Create to add the resource map data to the resource fork. [Note: you must Create FIRST, CreateResFile SECOND.]

Segmented XCMD Problem Solved

Peter B. Nagel

Denver, CO

With several gentle nudges from various helpful persons on CompuServe, I was able quite successfully to implement a solution in HyperTMON to the segmented XCMD problem that three individuals described in the Mousehole Report column in your August issue.

MPW’s -ss linker option will allow the creation of XCMD segments well in excess of the normal 32k limit on the intra-code segment addresses. Through a judicious resorting of my linked modules, I was able to create XCMDs approaching 38k. To enlarge an XCMD beyond that limit, however, I found that it was necessary, and certainly possible, to segment XCMDs through the use of separate code resources.

To do this, create and link a separate code resource whose entry point jumps to a case statement that branches to the appropriate procedures and functions in the resource. Then define a parameter block with sufficient fields to hold all the possible parameters that could be passed to all the procedures and functions in that code resource. From within the XCMD, then, you can include the following code (minus appropriate error checking) to retrieve the separate code resource, initialize the parameter block, and jump to you external code:

Procedure JumpToNewCode(paramBlkHndl: paramHndl; procAddress: Ptr);
InLine  $205F, { MOVE.L (A7)+, A0; address of procedure}
 $4E90, { JSR (A0); jump to procedure}

Procedure CallNewCode(selector: integer; param1: integer; param2: longint; 
param3: Ptr; Var param4: Handle; Var param5: Boolean);
Var
 paramBlkHndl : paramHndl;
 codeAddr : Handle;
Begin {Procedure CallNewCode}
 codeAddr := GetResource(‘CODE’, 1234);
 MoveHHi(codeAddr);
 HLock(codeAddr);
 paramBlkHndl := NewHandle(sizeof(paramHndl));
 with paramBlkHndl^^ do
 begin
 {fill in parameters}
 end;
 JumpToNewCode(paramBlkHndl, StripAddress(codeAddr^));
 HUnlock(codeAddr);
 HPurge(codeAddr);
 with paramBlkHndl^^ do
 begin
 {return Var values}
 end;
 DisposHandle(paramBlkHndl);
end; {Procedure CallNewCode}

At one time, it appeared that, when memory became really tight, HyperCard may have been unceremoniously disposing of my code resources, and so I ended up calling BlockMove to place them in nonrelocatable blocks, since I needed them around at all times. I am still not sure that it wasn’t my own fault, but I would be interested in knowing if any of your readers have had a similar problem.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Google Earth 7.1.7.2602 - View and contr...
Google Earth gives you a wealth of imagery and geographic information. Explore destinations like Maui and Paris, or browse content from Wikipedia, National Geographic, and more. Google Earth combines... Read more
ClamXav 2.10 - Virus checker based on Cl...
ClamXav is a popular virus checker for OS X. I have been working on ClamXav for more than 10 years now, and over those years, I have invested a huge amount of my own time and energy into bringing... Read more
Tweetbot 2.4.4 - 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
Sierra Cache Cleaner 11.0.1 - Clear cach...
Sierra Cache Cleaner is an award-winning general purpose tool for macOS X. SCC makes system maintenance simple with an easy point-and-click interface to many macOS X functions. Novice and expert... Read more
Things 2.8.8 - Elegant personal task man...
Things is a task management solution that helps to organize your tasks in an elegant and intuitive way. Things combines powerful features with simplicity through the use of tags and its intelligent... Read more
Remotix 4.1 - Access all your computers...
Remotix is a fast and powerful application to easily access multiple Macs (and PCs) from your own Mac. Features Complete Apple Screen Sharing support - including Mac OS X login, clipboard... Read more
Airfoil 5.1.2 - Send audio from any app...
Airfoil allows you to send any audio to AirPort Express units, Apple TVs, and even other Macs and PCs, all in sync! It's your audio - everywhere. With Airfoil you can take audio from any... Read more
Firefox 49.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
Default Folder X 5.0.7 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more
Safari Technology Preview 10.1 - The new...
Safari Technology Preview contains the most recent additions and improvements to WebKit and the latest advances in Safari web technologies. And once installed, you will receive notifications of... Read more

4 games like Burly Men at Sea to inspire...
Burly Men at Sea is out today and it looks a treat. It tells the tale of three Scandinavian fishermen who leave the humdrum of their daily lives to go exploring. It’s a beautiful folksy story that unfurls as you interact with the environment... | Read more »
3 reasons you need to play Kingdom: New...
Developed by a tag team of indie developers - Thomas "Noio" van den Berg and Marco "Licorice" Bancale - Kingdom is a vibrant medieval fantasy adventure that casts players as a king or queen who must expand their empire by exploring the vasts lands... | Read more »
JoyCity have launched a brand new King o...
Great news for all of you Game of Dice fans out there - JoyCity have just released a brand new limited edition pack with a really cool twist. The premise of Game of Dice is fairly straightforward, asking you to roll dice to navigate your way around... | Read more »
Burly Men at Sea (Games)
Burly Men at Sea 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Burly Men at Sea is a folktale about a trio of large, bearded fishermen who step away from the ordinary to seek adventure. | Read more »
3 tips for catching the gnarliest waves...
Like a wave breaking on the shore, Tidal Rider swept its way onto the App Store charts this week settling firmly in the top 10. It’s a one-touch high score-chaser in which you pull surfing stunts while dodging seagulls and collecting coins. The... | Read more »
The beginner's guide to destroying...
Age of Heroes: Conquest is 5th Planet Games’ all new turn-based multiplayer RPG, full of fantasy exploration, guild building, and treasure hunting. It’s pretty user-friendly as far as these games go, but when you really get down to it, you’ll find... | Read more »
Infinite Tanks (Games)
Infinite Tanks 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: | Read more »
Agatha Christie - The ABC Murders (FULL)...
Agatha Christie - The ABC Murders (FULL) 1.0 Device: iOS Universal Category: Games Price: $6.99, Version: 1.0 (iTunes) Description: Agatha Christie: The ABC Murders Your weapon is your knowledge. Your wits will be put to the ultimate... | Read more »
HeadlessD (Games)
HeadlessD 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: HeadlessD is hand-painted dungeon crawler with intuitive touch controls and NO in-app purchases. | Read more »
Leaf for Twitter (Social Networking)
Leaf for Twitter 1.0.1 Device: iOS iPhone Category: Social Networking Price: $4.99, Version: 1.0.1 (iTunes) Description: | Read more »

Price Scanner via MacPrices.net

Apple refurbished 2015 13-inch MacBook Airs a...
Apple has Certified Refurbished 2015 13″ MacBook Airs available starting at $759. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2015 13″ 1.6GHz/4GB/128GB MacBook... Read more
MacBook Airs on sale for up to $100 off MSRP
B&H Photo has 13″ and 11″ MacBook Airs on sale for up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.6GHz/128GB MacBook Air: $799 $100 MSRP - 11″ 1.6GHz/256GB... Read more
Apple refurbished 12-inch 128GB iPad Pros ava...
Apple has Certified Refurbished 12″ Apple iPad Pros available for up to $160 off the cost of new iPads. An Apple one-year warranty is included with each model, and shipping is free: - 32GB 12″ iPad... Read more
Phone2Action Unveils New Voter Turnout Techno...
Phone2Action, a leading digital advocacy platform, today launched its Tech to Vote Civic Action Center digital advocacy and communications platform on National Voter Registration Day September 27.... Read more
Apple & Deloitte Team Up to Help Business...
Apple and international professional services firm Deloitte have announced a partnership to help companies quickly and easily transform their workflow dynamics by maximizing the power, ease-of-use,... Read more
Chop Commute – See Traffic and Drive Times on...
Shrewsbury, Massachusetts based Indie developer, InchWest has released Chop Commute 1.61, a Mac app that takes the guesswork out of daily commute by showing real-time traffic and drive times right on... Read more
12-inch 32GB WiFi iPad Pros on sale for $50 o...
B&H Photo has 12″ 32GB WiFi Apple iPad Pros on sale for $50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP -... Read more
Recent price drops on refurbished iPad minis...
Apple recently dropped prices on several Certified Refurbished iPad mini 4s and 2s as well as iPad Air 2s. An Apple one-year warranty is included with each model, and shipping is free: - 16GB iPad... Read more
Apple refurbished Mac minis available startin...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
13-inch 2.5GHz MacBook Pro available for $928...
Overstock has the 13″ 2.5GHz MacBook Pro available for $927.99 including free shipping. Their price is $171 off MSRP. 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
Restaurant Manager (Neighborhood Captain) - A...
…in every aspect of daily operation. WHY YOU'LL LIKE IT: You'll be the Big Apple . You'll solve problems. You'll get to show your ability to handle the stress and Read more
*Apple* Wireless Lead - T-ROC - The Retail O...
…wealth of knowledge in wireless sales and activations to the Beautiful and NEW APPLE Experience store within MACYS.. THIS role, APPLE Wireless Lead, isbrandnewas Read more
Lead *Apple* Advocate - T-ROC - The Retail...
…Company, is proud of its unprecedented relationship with our partner and client, APPLE ,in bringing amazing" APPLE ADVOCATES"to "non" Apple store locations. Read more
*Apple* Advocate - T-ROC - The Retail Outsou...
…Company, is proud of its unprecedented relationship with our partner and client, APPLE ,in bringing amazing" APPLE ADVOCATES"to "non" Apple store locations. Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.