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

Is there cross-platform play in slither....
So you've sunken plenty of hours into crawling around in slither.io on your iPhone or iPad. You've got your stories of tragedy and triumph, the times you coiled four snakes at one time balanced out by the others when you had a length of more than... | Read more »
Rodeo Stampede guide to running a better...
In Rodeo Stampede, honing your skills so you can jump from animal to animal and outrun the herd as long as possible is only half the fun. Once you've tamed a few animals, you can bring them home with you. [Read more] | Read more »
VoxSyn (Music)
VoxSyn 1.0 Device: iOS Universal Category: Music Price: $6.99, Version: 1.0 (iTunes) Description: VoxSyn turns your voice into the most flexible vocal sound generator ever. Instantly following even subtle modulations of pitch and... | Read more »
Catch Battleplans on Google Play from Ju...
Real-time strategy title Battleplans is due for release on Google Play on June 30th, following its release for iOS systems last month. With its simple interface and pretty graphics, the crowd-pleaser brings a formerly overlooked genre out for the... | Read more »
iDoyle: The interactive Adventures of Sh...
iDoyle: The interactive Adventures of Sherlock Holmes - A Scandal in Bohemia 1.0 Device: iOS Universal Category: Books Price: $1.99, Version: 1.0 (iTunes) Description: Special Release Price $1.99 (Normally $3.99) | Read more »
Five popular free apps to help you slim...
Thanks to retail and advertising, we're used to thinking one season ahead. Here we are just a week into the summer and we're conditioned to start thinking about the fall. [Read more] | Read more »
How to ride longer and tame more animals...
It's hard to accurately describe Rodeo Stampede to people who haven't seen it yet. It's like if someone took Crossy Roadand Disco Zoo and put them in a blender, yet with a unique game mechanic that's still simple and fun for anyone. [Read more] | Read more »
Teeny Titans - A Teen Titans Go! Figure...
Teeny Titans - A Teen Titans Go! Figure Battling Game 1.0.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.0 (iTunes) Description: Teeny Titans, GO! Join Robin for a figure battling RPG of epic proportions! TEENY... | Read more »
NinjAwesome: Tips and tricks to be a mor...
Sorry about that headline, but I'm going to go ahead and assume that GameResort would not have named its game NinjAwesome without expecting some of that. It is, in fact, pretty awesome the way it combines an endless runner and old school arcade... | Read more »
Into Mirror (Games)
Into Mirror 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: "Is all that we see or seem, but a dream within a dream?"- Edgar Allan Poe New game by Lemon Jam Studio, the team behind Pursuit... | Read more »

Price Scanner via MacPrices.net

13-inch Retina MacBook Pros on sale for up to...
B&H Photo has 13″ Retina MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1179 $120 off MSRP - 13″ 2.7GHz/... Read more
Apple refurbished Mac minis available for up...
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 on sale for $999,...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
15-inch Retina MacBook Pros on sale for $200-...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799.99 $200 off MSRP - 15″ 2.5GHz... Read more
Mac minis on sale for up to $100 off MSRP
B&H Photo has Mac minis on sale for up to $100 off MSRP including free shipping plus NY sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $649 $50 off MSRP - 2.8GHz Mac mini... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $300 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799.... Read more
Apple refurbished Mac minis available for up...
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
ABBYY TextGrabber: 1,000,000 Installs in 5 Da...
ABBYY, an international OCR technologies provider, has announced that their image-to-text application TextGrabber, got installed 1,000,000 times in just five days while being featured by the App... Read more
New SkinIt Waterproof Case For iPhone 6
With its impact and waterproof design, the Skinit Waterproof case provides security and protection to guarantee your phone will get you through even the most demanding outdoor conditions. The impact-... Read more

Jobs Board

*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
Music Marketing Lead, iTunes & *Apple*...
…Music Marketing Lead is responsible for developing robust marketing campaigns and programs for Apple Music and iTunes across the whole of Apple ecosystem. This Read more
*Apple* Valley Medical Clinic is Hiring - AP...
Apple Valley Medical Clinic is Hiring! Apple Valley Medical Clinic is an independently owned practice operating a Family Medicine Clinic, a 24/7 Urgent Care, Read more
*Apple* New Products Testers Needed - Apple...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.