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
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Cocktail 8.4 - General maintenance and o...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
PDFKey Pro 4.3 - Edit and print password...
PDFKey Pro can unlock PDF documents protected for printing and copying when you've forgotten your password. It can now also protect your PDF files with a password to prevent unauthorized access and/... Read more
Kodi 15.0.beta1 - Powerful media center...
Kodi (was XBMC) is an award-winning free and open-source (GPL) software media player and entertainment hub that can be installed on Linux, OS X, Windows, iOS, and Android, featuring a 10-foot user... Read more
DiskCatalogMaker 6.4.12 - Catalog your d...
DiskCatalogMaker is a simple disk management tool which catalogs disks. Simple, light-weight, and fast. Finder-like intuitive look and feel. Super-fast search algorithm. Can compress catalog data... Read more
Macs Fan Control 1.3.0.0 - Monitor and c...
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
Lyn 1.5.11 - Lightweight image browser a...
Lyn is a lightweight and fast image browser and viewer designed for photographers, graphic artists and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it... Read more
NeoOffice 2014.11 - Mac-tailored, OpenOf...
NeoOffice is a complete office suite for OS X. With NeoOffice, users can view, edit, and save OpenOffice documents, PDF files, and most Microsoft Word, Excel, and PowerPoint documents. NeoOffice 3.x... Read more
LaunchBar 6.4 - Powerful file/URL/email...
LaunchBar is an award-winning productivity utility that offers an amazingly intuitive and efficient way to search and access any kind of information stored on your computer or on the Web. It provides... Read more
Remotix 3.1.4 - Access all your computer...
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
DesktopLyrics 2.6.6 - Displays current i...
DesktopLyrics is an application that displays the lyrics of the song currently playing in "iTunes" right on your desktop. The lyrics for the song have to be set in iTunes; DesktopLyrics does nothing... Read more

What the Apple Watch Gets Right, and Wha...
| Read more »
Celebrate PAC-MAN's 35th Birthday W...
BANDAI NAMCO Entertainment America is celebrating PAC-MAN's 35th anniversary by releasing updates for PAC-MAN and PAC-MAN Lite for iOS. [Read more] | Read more »
Strike Wing Episode 2 has Landed on the...
Strike Wing: Raptor Rising is an exciting space combat simulator by Crescent Moon Games, which was recently updated to continue the story with Episode 2. [Read more] | Read more »
This Week at 148Apps: May 18-22, 2015
May Days at 148Apps How do you know what apps are worth your time and money? Just look to the review team at 148Apps. We sort through the chaos and find the apps you're looking for. The ones we love become Editor’s Choice, standing out above the... | Read more »
Biz Builder Delux (Games)
Biz Builder Delux 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Ah, there's nothing like the rhythmic bustle of a burgeoning business burg... especially when you're the one building it... | Read more »
Auroch Digital is Bringing Back Games Wo...
| Read more »
Blades of Brim is a New Endless Runner f...
SYBO Games, the minds behind the ever-popular Subway Surfers, have announced their latest project: Blades of Brim. [Read more] | Read more »
Carbo - Handwriting in the Digital Age...
Carbo - Handwriting in the Digital Age 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Draggy Dead (Games)
Draggy Dead 1.1 Device: iOS Universal Category: Games Price: $.99, Version: 1.1 (iTunes) Description: Ditch your dead end job and take up a rewarding career in Grave Robbing today!Guide the recently deceased to a fun filled life of... | Read more »
Bad Dinos (Games)
Bad Dinos 1.0.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.0 (iTunes) Description: | Read more »

Price Scanner via MacPrices.net

New 13-inch 2.9GHz Retina MacBook Pro on sale...
B&H Photo has the 13″ 2.9GHz/512GB Retina MacBook Pro on sale for $1699.99 including free shipping plus NY tax only. Their price is $100 off MSRP, and it’s the lowest price for this model from... Read more
12-inch MacBook stock status for Monday, May...
The new 12″ Retina MacBooks are still on backorder at The Apple Store with a 3-5 week waiting period. However, a few models are in stock today at Apple resellers. Stock is limited, so act now if you’... Read more
New 27-inch 3.3GHz 5K iMac in stock with free...
Adorama has the new 27″ 3.3GHz 5K iMac in stock today for $1999 including free shipping plus NY & NJ sales tax only. Adorama will include a free copy of Apple’s 3-year AppleCare Protection Plan. Read more
Memorial Day Weekend Sale: New 27-inch 3.3GHz...
Best Buy has the new 27″ 3.3GHz 5K iMac on sale for $1899.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary... Read more
OtterBox Maximizes Portability, Productivity...
From the kitchen recipe book to the boarsroom presentation, the OtterBox Agility Tablet System turns tablets into one of the most versatile pieces of handheld technology available. Available now, the... Read more
Launch of New Car App Gallery and Open Develo...
Automatic, a company on a mission to bring the power of the Internet into every car, has announced the launch of the Automatic App Gallery, an app store for nearly every car or truck on the road... Read more
Memorial Day Weekend Sale: 13-inch 1.6GHz Mac...
Best Buy has the new 13″ 1.6GHz/128GB MacBook Air on sale for $849 on their online store this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders... Read more
Memorial Day Weekend Sale: 27-inch 3.5GHz 5K...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2099.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary.... Read more
Sale! 16GB iPad mini 3 for $349, save $50
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $349 including free shipping plus NY sales tax only. Their price is $50 off MSRP, and it’s the lowest price available for this model. Read more
Price drop on 2014 15-inch Retina MacBook Pro...
B&H Photo has dropped prices on 2014 15″ Retina MacBook Pros by $200. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799.99 save $200 - 15″ 2.5GHz... Read more

Jobs Board

Architect / Senior Software Engineer, *Apple...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
*Apple* Pay Support Readiness Project Manage...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
Hardware Design Validation Engineer - *Apple...
**Job Summary** The Apple Watch team is looking for a Hardware Design Validation Engineer. This person will be part of the Apple Watch hardware team with Read more
Sr. Payment Program Manager, *Apple* Pay -...
**Job Summary** Apple Pay is an exciting environment and a…devices in a simple, private and secure way. The Apple Pay Team is looking for an experienced Senior Read more
Project Manager / Business Analyst, WW *Appl...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.