TweetFollow Us on Twitter

Screen Pokes
Volume Number:1
Issue Number:5
Column Tag:BASIC

Professor Mac’s Screen Pokes

By Dave Kelly

Mike Steiner and Michael M. Boy contributed to this article and we acknowledge their valuable con- tributions.

Professor Mac’s Screen Pokes

One day, Professor Mac was poking around in his Mac’s memory when suddenly he fell in and got stuck. Then along came Mike Steiner with screen memory locations. Professor Mac was then able to write his own program to poke his head out of the Mac screen.

The upper left corner of the screen starts at 108288. The locations progress consecutively starting from the upper left corner of the screen to the bottom right corner moving left to right and down the screen. The bottom right corner of the screen is 130175. These locations are for a 128K Mac. Add (512-128)*1024 for a 512K Mac. Be careful to not poke locations before or after the start and end addresses... unpredictable things will happen.

There are 21888 locations mapping the Macintosh screen. Each line (342 lines) of the screen is represented by 64 memory locations. Thus the first line of the screen goes from 108288 to 108351, the second line starts at 108352 and so on.... (remember to add for 512K Mac)

Each memory location contains 1 sixteen bit word which is bit mapped on the Mac screen. From left to right on the screen, the sixteen bits are mapped from hi order bit to low. A typical memory location is shown in figure 1.

The program pokes zeros into the first 18 lines of the screen, hiding the BASIC menu bars. The menus are still active and can be used to trace or stop the program. The image of Professor Mac is read from data statements and poked into the screen memory locations. Most of the time, you probably won’t want to poke the screen directly, there are easier ways to print on the screen. But this method could be used to check status of a particular location of the screen. The FRE(0) command is used to check which Mac (128K or 512K) is being used because the start and ending screen locations are different and have to be adjusted for the 512K Mac.

Thanks and appreciation go to Mike Steiner of Sierra Vista, Az. and Michael M. Boy of Elgin, Az. for submitting the screen locations.

‘Professor Mac’s Screen Poke
‘By Dave Kelly

WINDOW CLOSE 1
start=108288!  ‘Starting address for 128K MAC
ending=130175! ‘Ending address for 128K 

mac512=(512-128)*1024  ‘address offset for 512K MAC
IF FRE(0)>100000! THEN  start=start+mac512: ending=ending+mac512
erase.top.of.screen:
    FOR i= start TO start +64*18
        POKE i,0
    NEXT i
WINDOW  1
TEXTFONT(2):TEXTSIZE(18)
LOCATE 8,10:PRINT “Prof. Mac says: Read MacTutor!”
TEXTSIZE(12):PRINT
PRINT TAB(22);”Hit mouse button to quit”
print.professor.mac:
a=start+64*100 ‘Start at line 100
b=67  ‘print 67 lines 
FOR j=a TO a+b*64 STEP 64
    FOR k= j+30 TO j+36
        READ value
        POKE k,value
    NEXT k
NEXT j
ON MOUSE GOSUB quit
MOUSE ON:RESTORE
GOTO print.professor.mac
quit:
MENU RESET:END
prof.mac.plot.data:
1   DATA &H00,&H00,&H00,&HE0,&H00, &H00,&H00
2   DATA &H00,&H00,&H01,&HF8,&H00, &H00,&H00
3   DATA &H00,&H00,&H07,&HFC,&H00, &H00,&H00
4   DATA &H00,&H00,&H0F,&HFF,&H00, &H00,&H00
5   DATA &H00,&H00,&H3F,&HFF,&HC0, &H00,&H00
6   DATA &H00,&H00,&H7F,&HFF,&HE0, &H00,&H00
7   DATA &H00,&H01,&HFF,&HFF,&HF8, &H00,&H00
8   DATA &H00,&H03,&HFF,&HFF,&HFE, &H00,&H00
9   DATA &H00,&H07,&HFF,&HFF,&HFF, &H80,&H00
10 DATA &H00,&H1F,&HFF,&HFF,&HFF,  &HC0,&H00
11 DATA &H00,&H3F,&HFF,&HFF,&HFF,  &HF0,&H00
12 DATA &H00,&HFF,&HFF,&HFF,&HFF,  &HFC,&H00
13 DATA &H01,&HFF,&HFF,&HF3,&HFF,  &HFE,&H00
14 DATA &H03,&HFF,&HFF,&HE1,&HFF,  &HFF,&H80
15 DATA &H07,&HFF,&HFF,&HE1,&HFF,  &HFF,&HC0
16 DATA &H0F,&HFF,&HFF,&HF2,&H7F,  &HFF,&HC0
17 DATA &H1F,&HFF,&HFF,&HFF,&H9F,  &HFF,&H80
18 DATA &H0F,&HFF,&HFF,&HFF,&HE7,  &HFF,&H00
19 DATA &H07,&HFF,&HFF,&HFF,&HF9,  &HFE,&H00
20 DATA &H01,&HFF,&HFF,&HFF,&HFE,  &H7C,&H00
21 DATA &H03,&HFF,&HFF,&HFF,&HFF,  &H98,&H00
22 DATA &H03,&H3F,&HFF,&HFF,&HFF,  &HE8,&H00
23 DATA &H06,&H0F,&HFF,&HFF,&HFF,  &HFC,&H00
24 DATA &H06,&H07,&HFF,&HFF,&HFF,  &HFF,&HCC
25 DATA &H06,&H01,&HFF,&HFF,&HFF,  &H87,&H00
26 DATA &H06,&H00,&H7F,&HFF,&HFF,  &H0F,&H80
27 DATA &H06,&H00,&H1F,&HFF,&HFF,  &H0F,&H80
28 DATA &H06,&H00,&H0F,&HFF,&HFF,  &H0F,&H80
29 DATA  &H06,&H03,&H83,&HFF,&HFB, &H05,&H00
30 DATA &H06,&H07,&HC0,&HFF,&HF3,  &H00,&H00
31 DATA &H06,&H0F,&H60,&H3F,&HE3,  &H0A,&H80
32 DATA &H06,&H0E,&H30,&H1F,&HC3,  &H05,&H00
33 DATA &H06,&H0C,&H00,&H07,&H83,  &H02,&H00
34 DATA &H06,&H00,&H00,&H01,&H03,  &H08,&H80
35 DATA &H06,&H00,&H00,&H00,&H03,  &H05,&H00
36 DATA &H06,&H00,&H00,&H00,&H03,  &H00,&H00
37 DATA &H06,&H00,&H00,&H00,&H03,  &H0A,&H80
38 DATA &H06,&H80,&H70,&H70,&H0B,  &H05,&H00
39 DATA &H06,&H81,&HF8,&HFC,&H0B,  &H00,&H00
40 DATA &H06,&HC7,&HFD,&HFF,&H1B,  &H0A,&H80
41 DATA &H06,&H7F,&HFF,&HFF,&HF3,  &H00,&H00
42 DATA &H06,&H3F,&HFF,&HFF,&HE3,  &H1F,&H41
43 DATA &H03,&H07,&HFD,&HFF,&H06,  &H04,&H63
44 DATA &H03,&H81,&HF8,&HFB,&H0E,  &H04,&H55
45 DATA &H01,&HC0,&H00,&H00,&H1C,  &H04,&H49
46 DATA &H00,&HE0,&H00,&H00,&H38,  &H04,&H41
47 DATA &H00,&H7F,&HFF,&HFF,&HF0,  &H00,&H00
48 DATA &H00,&H1F,&HFF,&HFF,&HC0,  &H00,&H00
49 DATA &H00,&H08,&H00,&H00,&H40,  &H00,&H00
50 DATA &H00,&H08,&H00,&H00,&H40,  &H00,&H00
51 DATA &H00,&H0F,&HFF,&HFF,&HC0,  &H00,&H00
52 DATA &H00,&H1A,&HAA,&HAA,&HA0,  &H00,&H00
53 DATA &H00,&H35,&H55,&H55,&H50,  &H00,&H00
54 DATA &H00,&H6F,&HEA,&HFE,&HA8,  &H00,&H00
55 DATA &H00,&HD8,&H35,&H83,&H54,  &H00,&H00
56 DATA &H01,&HB0,&H1B,&H01,&HAA,  &H00,&H00
57 DATA &H03,&H50,&H15,&H01,&H55,  &H00,&H00
58 DATA &H06,&HA8,&H2A,&H82,&HAA,  &H80,&H00
59 DATA &H0D,&H57,&HD5,&H7D,&H7F,  &H40,&H00
60 DATA &H1A,&HFA,&HAF,&HAA,&HC1,  &HA0,&H00
61 DATA &H35,&H05,&H50,&H55,&H80,  &HD0,&H00
62 DATA &H6A,&H02,&HA0,&H2A,&H80,  &HA8,&H00
63 DATA &HD6,&H03,&H60,&H35,&H41,  &H54,&H00
64 DATA &HAB,&H06,&HB0,&H6A,&HBE,  &HAC,&H00
65 DATA &HD5,&HFD,&H5F,&HD5,&H55,  &H54,&H00
66 DATA &HAA,&HAA,&HAA,&HAA,&HAA,  &HAC,&H00
67 DATA &HD5,&H55,&H55,&H55,&H55,  &H54,&H00
68 DATA &HFF,&HFF,&HFF,&HFF,&HFF,  &HFC,&H00
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Airmail 3.3.2 - Powerful, minimal email...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
Numi 3.15.1 - Menu-bar calculator suppor...
Numi is a calculator that magically combines calculations with text, and allows you to freely share your computations. Numi combines text editor and calculator Support plain English. For example, '5... Read more
Airmail 3.3.2 - Powerful, minimal email...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
Numi 3.15.1 - Menu-bar calculator suppor...
Numi is a calculator that magically combines calculations with text, and allows you to freely share your computations. Numi combines text editor and calculator Support plain English. For example, '5... Read more
TextSoap 8.4.1 - Automate tedious text d...
TextSoap can automatically remove unwanted characters, fix up messed up carriage returns, and do pretty much anything else that we can think of to text. Save time and effort. Be more productive. Stop... Read more
TextSoap 8.4.1 - Automate tedious text d...
TextSoap can automatically remove unwanted characters, fix up messed up carriage returns, and do pretty much anything else that we can think of to text. Save time and effort. Be more productive. Stop... Read more
Backblaze 4.3.0.44 - Online backup servi...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Numi 3.15 - Menu-bar calculator supports...
Numi is a calculator that magically combines calculations with text, and allows you to freely share your computations. Numi combines text editor and calculator Support plain English. For example, '5... Read more
EtreCheck 3.3.3 - For troubleshooting yo...
EtreCheck is an app that displays the important details of your system configuration and allow you to copy that information to the Clipboard. It is meant to be used with Apple Support Communities to... Read more
BusyContacts 1.1.8 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more

Latest Forum Discussions

See All

The best new games we played this week
We were quite busy this week. A bunch of big mobile games launched over the past few days, alongside a few teeny surprises. There're lots of quality games to load your phone with. We've gone and picked out five of our favorites for the week. [... | Read more »
Magikarp Jump beginner's guide
Magikarp Jump is a mystifying little game. Part Tamagotchi, part idle clicker, there's not a whole lot of video game there, per se, but for some reason we can't help coming back to it again and again. Your goal is to train up a little Magikarp to... | Read more »
Goat Simulator PAYDAY (Games)
Goat Simulator PAYDAY 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICES **iPhone 4S, iPad 2, iPod Touch 5 or better Goat Simulator: Payday is the most... | Read more »
GRID Autosport delayed until autumn
Sorry mobile racing fans -- GRID Autosport has been delayed a few months. The game is now expected to launch this fall on iOS. Feral Interactive announced that they wanted more time to work on the game's UI and overall performance before launching... | Read more »
Zombie Gunship Survival Beginner's...
The much anticipated Zombie Gunship Survival is here. In this latest entry in the Zombie Gunship franchise, you're tasked with supporting ground troops and protecting your base from the zombie horde. There's a lot of rich base building fun, and... | Read more »
Mordheim: Warband Skirmish (Games)
Mordheim: Warband Skirmish 1.2.2 Device: iOS Universal Category: Games Price: $3.99, Version: 1.2.2 (iTunes) Description: Explore the ruins of the City of Mordheim, clash with other scavenging warbands and collect Wyrdstone -... | Read more »
Mordheim: Warband Skirmish brings tablet...
Legendary Games has just launched Mordheim: Warband Skirmish, a new turn-based action game for iOS and Android. | Read more »
Magikarp Jump splashes onto Android worl...
If you're tired ofPokémon GObut still want something to satisfy your mobilePokémon fix,Magikarp Jumpmay just do the trick. It's out now on Android devices the world over. While it looks like a simple arcade jumper, there's quite a bit more to it... | Read more »
Purrfectly charming open-world RPG Cat Q...
Cat Quest, an expansive open-world RPG from former Koei-Tecmo developers, got a new gameplay trailer today. The video showcases the combat and exploration features of this feline-themed RPG. Cat puns abound as you travel across a large map in a... | Read more »
Jaipur: A Card Game of Duels (Games)
Jaipur: A Card Game of Duels 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: ** WARNING: iPad 2, iPad Mini 1 & iPhone 4S are NOT compatible. ** *** Special Launch Price for a limited... | Read more »

Price Scanner via MacPrices.net

Memorial Day savings: 13-inch Touch Bar MacBo...
B&H Photo has the 2016 Apple 13″ Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: - 13″ 2.9GHz/512GB... Read more
Apple refurbished 13-inch MacBook Airs availa...
Apple has Certified Refurbished 2016 13″ MacBook Airs available starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: - 13″ 1.6GHz/8GB/128GB MacBook Air: $... Read more
Apple restocks refurbished 11-inch MacBook Ai...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models recently discontinued by Apple), available for up to $170 off original MSRP. An Apple one-year warranty is included with each... Read more
12-inch 1.2GHz Retina MacBooks on sale for up...
B&H has 12″ 1.2GHz Retina MacBooks on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: - 12″ 1.2GHz Space Gray Retina MacBook: $1449.99 $150 off... Read more
15-inch 2.7GHz Silver Touch Bar MacBook Pro o...
MacMall has the 15-inch 2.7GHz Silver Touch Bar MacBook Pro (MLW82LL/A) on sale for $2569 as part of their Memorial Day sale. Shipping is free. Their price is $230 off MSRP. Read more
Free Tread Wisely Mobile App Endorsed By Fath...
Just in time for the summer driving season, Cooper Tire & Rubber Company has announced the launch of a new Tread Wisely mobile app. Designed to promote tire and vehicle safety among teens and... Read more
Commercial Notebooks And Detachable Tablets W...
Worldwide shipments of personal computing devices (PCDs), comprised of traditional PCs (a combination of desktop, notebook, and workstations) and tablets (slates and detachables), are forecast to... Read more
Best value this Memorial Day weekend: Touch B...
Apple has Certified Refurbished 2016 15″ and 13″ MacBook Pros available for $230 to $420 off original MSRP. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2.6GHz... Read more
13-inch MacBook Airs on sale for up to $130 o...
Overstock.com has 13″ MacBook Airs on sale for up to $130 off MSRP including free shipping: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $869.99 $130 off MSRP - 13″ 1.6GHz/256GB MacBook Air (sku... Read more
2.8GHz Mac mini available for $973 with free...
Adorama has the 2.8GHz Mac mini available for $973, $16 off MSRP, including a free copy of Apple’s 3-Year AppleCare Protection Plan. Shipping is free, and Adorama charges sales tax in NY & NJ... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Media Products - Commerce Engineerin...
Apple Media Products - Commerce Engineering Manager Job Number: 57037480 Santa Clara Valley, California, United States Posted: Apr. 18, 2017 Weekly Hours: 40.00 Job Read more
*Apple* Media Products - Commerce Engineerin...
Apple Media Products - Commerce Engineering Manager Job Number: 57037480 Santa Clara Valley, California, United States Posted: Apr. 18, 2017 Weekly Hours: 40.00 Job Read more
Best Buy *Apple* Computing Master - Best Bu...
**509643BR** **Job Title:** Best Buy Apple Computing Master **Location Number:** 001482- Apple Valley-Store **Job Description:** **What does a Best Buy Apple Read more
*Apple* Media Products - Commerce Engineerin...
Apple Media Products - Commerce Engineering Manager Job Number: 57037480 Santa Clara Valley, California, United States Posted: Apr. 18, 2017 Weekly Hours: 40.00 Job Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.