TweetFollow Us on Twitter

Blanking
Volume Number:2
Issue Number:2
Column Tag:Basic School

Asm Utility Speeds Screen Blanking

By Dave Kelly, Engineer, General Dynamics, MacTutor Editorial Board

For those that remember Professor Mac's Screen Pokes presented in the April 1985 issue of MacTutor, we discussed the Macintosh screen and how to poke the screen to all blank. The method presented there was very slow. Until such time as someone comes out with a MS BASIC compiler most routines will be slow. MacTutor now has a call out to anyone that has a complier for MS BASIC to step forward and become famous. Please contact us if you have any information to give us about compiled BASIC.

This month we will provide the alternative screen poke method using a library written in 68000 code. These routines were designed to work with the 512K or 128K versions of the Macintosh, however, the code may be modified to be used with other memory sizes.

If you are unfamiliar with BASIC libraries then we recommend that you refer to the BASIC School article in the November 1985 MacTutor on Building a Machine Language Library routine. (Back issues are available). The listings that follow are assembled in the same manner as discussed in that column.

There are three code routines that you need to be concerned with. The LIBinit.asm (Listing 1) routine may be found on page 44 of the Nov. 85 MacTutor. The second routine stores $FFFFFFFF in all screen locations, thus blacking out the entire screen. The third routine inverts all of the screen locations. We thank Serge Rostan of Pontoise, France for contributing the main code for the invert routine.[If you have some good ideas on Basic, please write Dave care of MacTutor and see them in print. -Ed]

The BlankScreen routine (Listing 2) is accessed by the statement: CALL BlankScreen (memory%) where memory% is the memory of your particular system (i. e. use memory%=512 or memory%=128). This routine works fine for 512K or 128K Macs, but you will have to change the equates for Screen512 and/or Screen128 (see listing 2) in order to accomodate other memory sizes. The equates 'GetNextLibArg', 'IntegerArg' and 'BasicError' are BASIC routines defined in BMLL (Microsoft's Building Machine Language Libraries) which library routines may call. The BlankScreen routine reads the memory% parameter and determines the screen location. Then each location is loaded with $FFFFFFFF and the screen is blank. The routine then returns back to the calling program.

The InvertScreen routine (Listing 3) works much the same as the BlankScreen routine. You may call the routine with the statement: CALL InvertScreen (memory%). The passed integer variable memory% is the same as in the BlankScreen routine. The only difference in this routine is that each memory location is exclusive-ored with the value $FFFFFFFF.

Listing 4 and 5 are the Linker and Resource complier files needed by the MDS system to create the library resource file. See Nov 1985 MacTutor for details on how to us these files.

The Screen Demo program in listing 6 demonstrates the use of the BlankScreen and InvertScreen routines. It is advisable but not mandatory that you hide the cursor using HIDECURSOR before blanking or inverting the screen. The cursor may be turned on again with the SHOWCURSOR statement. If the cursor is not disabled then the 16 X 16 cursor location will not be blanked or inverted properly. These libraries may be used to create special effects in your program such as flashing the screen.

Expanding BASIC using library routines greatly improves the capabilities of your programs. If you have a favorite library routine, please send it to us. We would like to share more libraries with other useful purposes.


LISTING 1
;LIBinit routine (See MacTutor Nov. 1985 pg. 44 for comments)
;save as LIBinit.asm

LIBVER_Result  EQU 6
LIBinit:
 CLR.W  LIBVER_Result(a0)
LIBinitExit:
 MOVEQ  #0,d0
 RTS


LISTING 2
; BASIC BlankScreen Library Source Code
; By Dave Kelly
; MacTutor 1985

;Synopsis:
;CALL BlankScreen (memory%)
;Output:

GetNextLibArg  EQU $2A
IntegerArgEQU  $32
BasicErrorEQU  $42
Screen512 EQU  ((512-128)*1024)+108288
Screen128 EQU  108288

 
 JSR  GetNextLibArg(a5) ;Get the next argument
 JSR  IntegerArg(a5) ;[d3:w] = integer error if arg
 ;can't be forced into an 
 ;integer.
 CMP.W  #128,d3
 BEQ  Do128 ;branch if 128K memory
 CMP.W  #512,d3
 BEQ  Do512 ;branch if 512K memory
Device_Unavailable:
 MOVEQ  #68,d2   ;Device Unavailable error
 JSR  BasicError(a5)
Do512:
 LEA  Screen512,A0
 BRA  Blank
Do128:
 LEA  Screen128,A0
Blank:
 MOVE.W #5472-1,d1 ;setup high screen address
 MOVE.L #$FFFFFFFF,d0;move to d0
Loop:
 MOVE.L d0,(A0)+ ;set screen address to d0
 DBRA d1,Loop
 RTS
GetIntegerVar:
 JSR  GetNextLibArg(a5) ;Get the next argument
 JSR  IntegerArg(a5) ;[d3:w] = integer error if arg
 ;can't be forced into an 
 ;integer
 RTS    
LISTING 3
; BASIC InvertScreen Library Source Code
; By Dave Kelly
; MacTutor 1985
;save InvertScreen.asm

;Synopsis:
;CALL InvertScreen ( memory%)
;Output:

GetNextLibArg  EQU $2A
IntegerArgEQU  $32
BasicErrorEQU  $42
Screen512 EQU  ((512-128)*1024)+108288
Screen128 EQU  108288

 
 BSR  GetIntegerVar;integer arg in [d3:w]
 CMP.W  #128,d3
 BEQ  Do128 ;branch if 128K memory
 CMP.W  #512,d3
 BEQ  Do512 ;branch if 512K memory
Device_Unavailable:
 MOVEQ  #68,d2   ;Device Unavailable error
 JSR  BasicError(a5)
Do512:
 LEA  Screen512,A0
 BRA  Invert
Do128:
 LEA  Screen128,A0
Invert:
 MOVE.W #5472-1,D1
 MOVE.L #$FFFFFFFF,D0
Loop:
 EOR.L  D0,(A0)+
 DBRA D1,Loop
 RTS
GetIntegerVar:
 JSR  GetNextLibArg(a5) ;Get the next argument
 JSR  IntegerArg(a5) ;[d3:w] = integer (error if arg
 ;can't be forced into an 
 ;integer
 RTS    
LISTING 4
;Screen Library Link
;MacTutor 1986

/OUTPUT ScreenLib
LIBinit.Rel
<
InvertScreen.Rel
<
BlankScreen.Rel
$

LISTING 5
ScreenLib.Rsrc
BLIB
TYPE CODE = GNRL
LIBinit,1
.R
ScreenLib CODE 1

TYPE CODE = GNRL
InvertScreen,2
.R
ScreenLib CODE 2

TYPE CODE = GNRL
BlankScreen,3
.R
ScreenLib CODE 3
LISTING 6
'Screen Demo
'By Dave Kelly
'©MacTutor 1986

LIBRARY "Screen Demo"
mem%=128:IF FRE(0)>75000! THEN mem%=512
GOSUB Setmenubar
MENU ON
ON MENU GOSUB menucheck
loop: GOTO loop
menucheck:
    menunumber=MENU(0):IF menunumber<>6 THEN RETURN
    menuitem=MENU(1):MENU
    ON menuitem GOSUB Blank,invert,Flash,Demo,Quit
    Setmenubar:
        MENU RESET  ' Re-do menu bar
        MENU 6,0,1,"Program Menu"
        MENU 6,1,1,"Blank Screen"
        MENU 6,2,1,"Invert Screen"
        MENU 6,3,1,"Flash Screen"
        MENU 6,4,1,"Demo"
        MENU 6,5,1,"Quit"
RETURN
Blank:
HIDECURSOR
CALL BlankScreen(mem%)
SHOWCURSOR
RETURN

invert:
HIDECURSOR
CALL invertScreen(mem%)
SHOWCURSOR
RETURN

Flash:
HIDECURSOR
FOR i=0 TO 100
CALL invertScreen(mem%)
NEXT
SHOWCURSOR
RETURN

Demo:
WINDOW CLOSE 1
GOSUB Blank
WINDOW 1,"",(42,90)-(475,300),3
PRINT "Click here"
WHILE MOUSE(0)<>1:WEND
GOSUB invert
WHILE MOUSE(0)<>1:WEND
GOSUB invert:CLS:GOSUB invert
WINDOW 2,"",(102,140)-(410,240),3
PRINT "Click here"
WHILE MOUSE(0)<>1:WEND
GOSUB invert
WHILE MOUSE(0)<>1:WEND
GOSUB invert:CLS:GOSUB invert
WINDOW 3,"",(152,165)-(360,215),3
PRINT "Click here"
WHILE MOUSE(0)<>1:WEND
GOSUB invert
WHILE MOUSE(0)<>1:WEND
GOSUB invert:CLS:GOSUB invert
GOSUB invert
PRINT SPC(4);"Please make selection":PRINT SPC(5);"from menus above!"
RETURN

Quit:
FOR i=1 TO 4
    WINDOW CLOSE i
NEXT i
MENU RESET:LIBRARY CLOSE
CLS:END
 
AAPL
$95.79
Apple Inc.
-2.36
MSFT
$43.28
Microsoft Corpora
-0.30
GOOG
$572.85
Google Inc.
-14.57

MacTech Search:
Community Search:

Software Updates via MacUpdate

Ember 1.8 - Versatile digital scrapbook....
Ember (formerly LittleSnapper) is your digital scrapbook of things that inspire you: websites, photos, apps or other things. Just drag in images that you want to keep, organize them into relevant... Read more
OmniPlan 2.3.6 - Robust project manageme...
With OmniPlan, you can create logical, manageable project plans with Gantt charts, schedules, summaries, milestones, and critical paths. Break down the tasks needed to make your project a success,... Read more
Command-C 1.1.1 - Clipboard sharing tool...
Command-C is a revolutionary app which makes easy to share your clipboard between iOS and OS X using your local WiFi network, even if the app is not currently opened. Copy anything (text, pictures,... Read more
Knock 1.1.7 - Unlock your Mac by knockin...
Knock is a faster, safer way to sign in. You keep your iPhone with you all the time. Now you can use it as a password. You never have to open the app -- just knock on your phone twice, even when it's... Read more
Mellel 3.3.6 - Powerful word processor w...
Mellel is the leading word processor for OS X and has been widely considered the industry standard since its inception. Mellel focuses on writers and scholars for technical writing and multilingual... Read more
LibreOffice 4.3.0.4 - Free Open Source o...
LibreOffice is an office suite (word processor, spreadsheet, presentations, drawing tool) compatible with other major office suites. The Document Foundation is coordinating development and... Read more
Freeway Pro 7.0 - Drag-and-drop Web desi...
Freeway Pro lets you build websites with speed and precision... without writing a line of code! With it's user-oriented drag-and-drop interface, Freeway Pro helps you piece together the website of... Read more
Drive Genius 3.2.4 - Powerful system uti...
Drive Genius is an OS X utility designed to provide unsurpassed storage management. Featuring an easy-to-use interface, Drive Genius is packed with powerful tools such as a drive optimizer, a... Read more
Vitamin-R 2.15 - Personal productivity t...
Vitamin-R creates the optimal conditions for your brain to work at its best by structuring your work into short bursts of distraction-free, highly focused activity alternating with opportunities for... Read more
Toast Titanium 12.0 - The ultimate media...
Toast Titanium goes way beyond the very basic burning in the Mac OS and iLife software, and sets the standard for burning CDs, DVDs, and now Blu-ray discs on the Mac. Create superior sounding audio... Read more

Latest Forum Discussions

See All

Dawn of the Immortals Review
Dawn of the Immortals Review By Jennifer Allen on July 31st, 2014 Our Rating: :: RESPECTABLE EXPLORATIONUniversal App - Designed for iPhone and iPad Dawn of the Immortals might not re-invent the wheel, but it does tweak it a little... | Read more »
80 Days Review
80 Days Review By Jennifer Allen on July 31st, 2014 Our Rating: :: EPIC ADVENTUREUniversal App - Designed for iPhone and iPad A fantastic and fascinating re-envisioning of the classic novel by Jules Verne, 80 Days is a delightful... | Read more »
Battleheart Legacy Guide
The world of Battleheart Legacy is fun and deep; full of wizards, warriors, and witches. Here are some tips and tactics to help you get the most enjoyment out of this great game. | Read more »
Puzzle Roo Review
Puzzle Roo Review By Jennifer Allen on July 31st, 2014 Our Rating: :: PUZZLE-BASED TWISTUniversal App - Designed for iPhone and iPad A different take on the usual block dropping puzzle game, Puzzle Roo is quite pleasant.   | Read more »
Super Crossfire Re-Release Super Crossfi...
Super Crossfire Re-Release Super Crossfighter Coming Soon, Other Radiangames Titles Go 50% Off Posted by Ellis Spice on July 31st, 2014 [ | Read more »
Hexiled Review
Hexiled Review By Rob Thomas on July 31st, 2014 Our Rating: :: HEX SELLSUniversal App - Designed for iPhone and iPad In space, no one can hear you… spell? Hexiled is a neat concept for a word scramble puzzle, but it doesn’t go too... | Read more »
Summoners War: Sky Arena Passes 10 Milli...
Summoners War: Sky Arena Passes 10 Million Installs! Posted by Jessica Fisher on July 31st, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Deep Loot Review
Deep Loot Review By Jennifer Allen on July 31st, 2014 Our Rating: :: DIVE DEEPUniversal App - Designed for iPhone and iPad Dive deep in this fun explore-em-up that’s a little grind heavy but ultimately quite entertaining.   | Read more »
Despicable Me: Minion Rush is One Year O...
Despicable Me: Minion Rush is One Year Old, Gets its Biggest Update Yet Posted by Jennifer Allen on July 31st, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Fish & Shark Review
Fish & Shark Review By Jordan Minor on July 31st, 2014 Our Rating: :: FLAPPY FISHUniversal App - Designed for iPhone and iPad Fish & Shark’s beauty is only scale deep.   | Read more »

Price Scanner via MacPrices.net

Save up to $130 on an iPad mini with Apple re...
The Apple Store has Certified Refurbished 2nd generation iPad minis with Retina Displays available for up to $130 off the cost of new models, starting at $339. Apple’s one-year warranty is included... Read more
iPad Cannibalization Threat “Overblown”
Seeking Alpha’s Kevin Greenhalgh observes that while many commentators think Apple’s forthcoming 5.5-inch panel iPhone 6 will cannibalize iPad sales, in his estimation, these concerns are being... Read more
Primate Labs Releases July 2014 MacBook Pro P...
Primate Labs’ John Poole has posted Geekbench 3 results for most of the new MacBook Pro models that Apple released on Tuesday. Poole observes that overall performance improvements for the new MacBook... Read more
Apple Re-Releases Bugfixed MacBook Air EFI Fi...
Apple has posted a bugfixed version EFI Firmware Update 2.9 a for MacBook Air (Mid 2011) models. The update addresses an issue where systems may take longer to wake from sleep than expected, and... Read more
Save $50 on the 2.5GHz Mac mini, plus free sh...
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
Save up to $140 on an iPad Air with Apple ref...
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
$250 price drop on leftover 15-inch Retina Ma...
B&H Photo has dropped prices on 2013 15″ Retina MacBook Pros by $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.3GHz Retina MacBook Pro: $2249, $250 off... Read more
More iPad Upgrade Musings – The ‘Book Mystiqu...
Much discussed recently, what with Apple reporting iPad sales shrinkage over two consecutive quarters, is that it had apparently been widely assumed that tablet users would follow a two-year hardware... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
Best Buy has the 13″ 2.5GHz MacBook Pro available for $999.99 on their online store. Choose free shipping or free instant local store pickup (if available). Their price is $100 off MSRP. Price is... Read more
Save up to $300 on an iMac with Apple refurbi...
The Apple Store has Apple Certified Refurbished iMacs available for up to $300 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free. These are the best prices on... 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
Sr. Product Leader, *Apple* Store Apps - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full Read more
Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.