TweetFollow Us on Twitter

Time Retrieval
Volume Number:5
Issue Number:1
Column Tag:Basic School

Related Info: Time Manager

Time Retrieval and Storage Techniques

By Dave Kelly, MacTutor Editorial Board

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

Time Retrieval and Storage Techniques

It’s only a matter of time. Anybody see the ad for the MacTutor of the future in the November, 1988 MacTutor? The ad may sound like a joke about the 100th anniversary of MacTutor, but some of the “future” has already been invented. I did some thought on the subject of the Basic School column described in the ad, which is also the title of this column. There are two basic subjects implied by the title, time retrieval and time storage.

From a philosophical point of view you may ask, how can time be saved or retrieved? Looking at the answer from that perspective would lead us to a discussion of Einstein and his theory of relativity which is beyond the scope and intent of this column. Instead let’s look at some ways which we can use time to our advantage and see how storage and retrieval fits into the scheme of things.

From a user level on the Macintosh there is one time retrieval/storage mechanism that is accessible to all “the rest of us”. The example I refer to is the Alarm mechanism built into the clock chip. The date and time setting is copied (“retrieved”) at system startup from the clock chip into its own low-memory location. It’s stored there as the number of seconds since midnight, January 1, 1904, and is updated every second. The range of the clock chip is from January 1, 1904 through February 6, 2040 (does that mean that 51 years from now I’ll need to replace my clock chip?). The low-memory location can be access by your program. BASIC (every brand) includes its own time retrieval command. In True Basic the TIME and TIME$ functions are provided. TIME returns the number of seconds since midnight in tenths of seconds. The TIME$ function returns a string that contains the time as measured by the 24-hour clock with resolution in seconds. ZBasic and MS QuickBASIC uses the TIMER function which returns the seconds since midnight (similar to the True Basic TIME function) and TIME$ which works the same as in True Basic. The problem is that the TIMER function does not provide enough resolution. At least the True Basic TIME function provided tenths of seconds or better resolution. Since we know that other languages are able to access the time in greater resolution, we may use the same function (ROM) to retrieve the time in greater resolution. This is especially important for benchmark tests where two compiled programs are being timed and the difference is tenths of seconds or better. In benchmarks that have been done in the past, sometimes the TIME function was used and there was rounding off to either 0 or 1 second. A program running in 0 seconds is absurd, but that was the best we could do with MS Basic at the time. QuickBASIC and ZBasic both allow access to the TickCount call (Macintosh ROM). In QuickBASIC a typical benchmark might be implemented such as:

Figure 1. The Time Machine

First initialize the ToolBox routine:

TOOLBOX “I”

This must be used before any other ToolBox statement in the program. Now define a sub program or routine that can be called to replace the other time functions usually used in the benchmark.

SUB Tick (Count&) STATIC
TrapNo% = &HA975
Count& = 0&  : ‘Define the variable
ToolBox “L”, TrapNo%, Count&
END SUB

Now call Tick(Count&) whenever you need the time. A tick is one-sixtieth of a second, enough for the tenth of a second accuracy provided by True BASIC’s function. In ZBasic it is even easier to call TickCount. In ZBasic just use the function directly:

Count&=FN TICKCOUNT

As you can see, accessing real time is really the simple part of the job. Accessing stored time is another aspect. I’ll leave the subject of how the stored time became stored for later except to say that the Parameter RAM also stores the alarm setting. You can set the alarm with the Alarm Clock DA (included with your system software).

The Analog Alarm Clock program included here demonstrates how you can retrieve the stored alarm time from the low-memory area. The Alarm time is stored at $200. The getAlarm routine retrieves the time by peeking at memory directly. The result is then converted to date information via the secs2date toolbox routine. The Analog Clock program reveals some problems. The date conversion library routines are used to convert seconds to dates and dates to seconds. Secs2Date works fine, but there is a problem with the Date2Secs routine. This means that the Date2Secs routine must be called a different way. Fortunately, QuickBASIC provides the ToolBox call which allows you to make ROM calls yourself. The following lines replace the Date2Secs library routine:

ToolBox “I”

...   (Don’t forget to initialize the toolbox)


TrapNo%=&HA9C7
ToolBox “R”, TrapNo%, ReturnArray&(0),VARPTR(DtRec%(0))
Al&=ReturnArray&(2)

It’s unfortunate that we have to go through that trouble, but that’s just the way it goes. I confess it took awhile before I realized that I wasn’t going to be able to get it to work without the ToolBox library call.

In the program, alarm time is taken from parameter RAM and then it’s updated when changed when the alarm is turned on. Be careful when poking around the parameter RAM. If the wrong parameter gets changed you may have to Zap the parameter RAM to get started. You can do this by removing your MacPlus battery for a few minutes when your power is off or by holding down command-option when opening the control panel on newer Mac systems.

Flashing the menu bar like the Alarm Clock DA does will be left for another day. Anybody know how to do that from Basic? What I’m not sure of is where the alarm status is stored. Happy New Year!

‘Analog Alarm Clock Program
‘©1989 MacTutor
‘by Dave Kelly

DIM DtRec%(6),CenterRect%(3),pattern%(3)
ToolBox “I”
DIM ReturnArray&(5)
GOSUB getAlarm
false=0:true=NOT false
PI=3.14159

‘Set up menus
MENU 1,0,1,”File”
MENU 1,1,1,”Turn Alarm On ”
MENU 1,2,0,”-”
MENU 1,3,1,”Quit”
CmdKey 1,3,”Q”

‘ Get Screen size
sheight=SYSTEM(6)
swidth=SYSTEM(5)
WINDOW 1,”Analog Alarm Clock”,(4,44)-(swidth-4,sheight-4),6

‘Find the center of the window, centerx%,centery%
‘ This should work with any size of screen
wheight%=WINDOW(3)
wwidth%=WINDOW(2)
centerx%=wwidth%/2
centery%=wheight%/2
circledia=centery%-25
GOSUB SetupClock
ON MENU GOSUB MenuEvent
ON DIALOG GOSUB DialogEvent
DIALOG ON:MENU ON

Loop:
forecolor 33:’ change color to black
t$=TIME$:’ Get the current time and separate into variables
hour$=LEFT$(t$,2)
Min$=MID$(t$,4,2)
Sec$=RIGHT$(t$,2)
H=VAL(hour$):M=VAL(Min$):S=VAL(Sec$)
IF H>12 THEN H=H-12
H=H+M/60

‘ Compute the angles for each hand of the clock
SecAngle=(360-S*6)*PI/180
MinAngle=(360-M*6)*PI/180
HAngle=(360-H*30)*PI/180

‘Draw the second hand
CALL MOVETO (centerx%,centery%)
ypoint=(circledia*COS(SecAngle))*.98
xpoint=(circledia*SIN(SecAngle))*.98
CALL LINE (-xpoint,-ypoint)
IF SecAngle<>OldSec THEN
    CALL MOVETO (centerx%,centery%)
    CALL PENMODE (11)
    ypoint=(circledia*COS(OldSec))*.98
    xpoint=(circledia*SIN(OldSec))*.98
    CALL LINE (-xpoint,-ypoint)
    CALL PENMODE(8)
END IF

‘Draw the minute hand
CALL PENSIZE(2,2)
CALL MOVETO (centerx%,centery%)
ypoint=(circledia*COS(MinAngle))*.9
xpoint=(circledia*SIN(MinAngle))*.9
CALL LINE (-xpoint,-ypoint)
IF MinAngle<>OldMin THEN
    CALL MOVETO (centerx%,centery%)
    CALL PENMODE (11)
    ypoint=(circledia*COS(OldMin))*.9
    xpoint=(circledia*SIN(OldMin))*.9
    CALL LINE (-xpoint,-ypoint)
    CALL PENMODE(8)
END IF

‘Draw the hour hand
CALL PENSIZE(4,4)
CALL MOVETO (centerx%,centery%)
ypoint=(circledia/2*COS(HAngle))
xpoint=(circledia/2*SIN(HAngle))
CALL LINE (-xpoint,-ypoint)
IF MinAngle<>OldMin THEN
    CALL MOVETO (centerx%,centery%)
    CALL PENMODE (11)
    ypoint=(circledia/2*COS(OldH))
    xpoint=(circledia/2*SIN(OldH))
    CALL LINE (-xpoint,-ypoint)
    CALL PENMODE(8)
END IF
CALL PENSIZE(1,1)

forecolor 205:’ Change color to red
LOCATE 1,1:PRINT “AlarmTime: “;AlarmTime$
forecolor 33:’ Change color to black
LOCATE 2,1:PRINT “Current Time: “;t$
CALL TEXTMODE(0)
OldT$=t$:OldSec=SecAngle:OldMin=MinAngle:OldH=HAngle
CALL FILLOVAL(VARPTR(CenterRect%(0)),VARPTR(pattern%(0)))
IF Alrm=false THEN
    forecolor 273
    LOCATE 3,1:PRINT “Alarm is off”:GOTO Loop
END IF
forecolor 341:’Change color to Green
LOCATE 3,1:PRINT “Alarm is on “
‘Sound the alarm if time is up!
IF t$=AlarmTime$ THEN
    BEEP:BEEP:BEEP
    LOCATE 4,1:PRINT “Alarm event occurred”
END IF
GOTO Loop
DIALOG OFF

SetupClock:’ Set up the face of the clock
activewindow=WINDOW(0)
WINDOW OUTPUT 1
CALL TEXTSIZE(14)
CALL MOVETO(centerx%-8,centery%-circledia-4):PRINT “12”;
CALL MOVETO(centerx%-8,centery%+circledia+20):PRINT “ 6”;
CALL MOVETO(centerx%-circledia-20,centery%+7):PRINT “9”;
CALL MOVETO(centerx%+circledia+10,centery%+7):PRINT “3”;
PSET (centerx%,centery%)
forecolor 205:’ Change color to red
CALL PENSIZE(2,2)
CIRCLE (centerx%,centery%),circledia
CALL PENSIZE(1,1)
SetRect CenterRect%(0),centerx%-5,centery%-5,centerx%+5,centery%+5
forecolor 33:’ Change color to black
SetRect pattern%(0),&HFFFF,&HFFFF,&HFFFF,&HFFFF
CALL FILLOVAL(VARPTR(CenterRect%(0)),VARPTR(pattern%(0)))
WINDOW OUTPUT activewindow
RETURN

DialogEvent:
d=DIALOG(0)
SELECT CASE d
    CASE 1
        IF DIALOG(1)=1 THEN editwindow=true
    CASE 4
        GOTO Quit
    CASE 5
        IF DIALOG(5)=1 THEN GOSUB SetupClock
    CASE ELSE
END SELECT
RETURN

MenuEvent:
menunumber=MENU(0)
menuitem=MENU(1)
MENU
IF menunumber=1 THEN
    IF menuitem=1 THEN GOSUB SetAlarm
    IF menuitem=3 THEN Quit
END IF
RETURN

SetAlarm:’ Set the alarm
Alrm=NOT Alrm
DoSet:
IF Alrm THEN
    MENU 1,1,1,”Turn Alarm Off”
    WINDOW 2,””,(50,50)-(250,150),2
    LOCATE 2,1:PRINT “Alarm Time:”
    IF AlarmTime$=”” THEN AlarmTime$=TIME$
    EDIT FIELD 1,AlarmTime$,(100,17)-(165,32),1
    BUTTON 1,1,”OK”,(40,45)-(170,75),1
    editwindow=false
    WHILE editwindow=false
    WEND
    AlarmTime$=EDIT$(1)
    a$=””:i=1
    WHILE MID$(AlarmTime$,i,1)<>”:”
        a$=a$+MID$(AlarmTime$,i,1)
        i=i+1
    WEND
    Ahour=VAL(a$)
    IF Ahour>24 OR Ahour<0 THEN GOTO DoSet
    a$=””
    i=i+1
    WHILE MID$(AlarmTime$,i,1)<>”:”
        a$=a$+MID$(AlarmTime$,i,1)
        i=i+1
    WEND
    Amin=VAL(a$)
    IF Amin>59 OR Amin<0 THEN GOTO DoSet
    a$=””
    i=i+1
WHILE i<=LEN(AlarmTime$)
        a$=a$+MID$(AlarmTime$,i,1)
        i=i+1
WEND
Asec=VAL(a$)
IF Asec>59 OR Asec<0 THEN GOTO DoSet
a$=””
IF Ahour<10 THEN a$=”0"+STR$(Ahour) ELSE a$=STR$(Ahour)
a$=a$+”:”
IF Amin<10 THEN a$=a$+”0"+STR$(Amin) ELSE a$=a$+STR$(Amin)
a$=a$+”:”
IF Asec<10 THEN a$=a$+”0"+STR$(Asec) ELSE a$=a$+STR$(Asec)
AlarmTime$=””
FOR i=1 TO LEN(a$)
    IF MID$(a$,i,1)<>” “ THEN AlarmTime$=AlarmTime$+MID$(a$,i,1)
NEXT i
DtRec%(3)=Ahour
DtRec%(4)=Amin
DtRec%(5)=Asec
‘Call Date2secs routine (QuickBASIC Date2secs does not work right)
TrapNo%=&HA9C7
ToolBox “R”, TrapNo%, ReturnArray&(0),VARPTR(DtRec%(0))
Al&=ReturnArray&(2)
POKEL &H200, Al&
    WINDOW CLOSE 2
ELSE
    TEXTMODE (0):LOCATE 2,1:PRINT”                                   
     “
    MENU 1,1,1,”Turn Alarm On ”
END IF
RETURN

getAlarm:’ Retrieve
Al&= PEEKL(&H200)
secs2Date Al&,DtRec%(0)
a$=””
IF DtRec%(3)<10 THEN a$=”0"+STR$(DtRec%(3)) ELSE a$=STR$(DtRec%(3))
a$=a$+”:”
IF DtRec%(4)<10 THEN a$=a$+”0"+STR$(DtRec%(4)) ELSE a$=a$+STR$(DtRec%(4))
a$=a$+”:”
IF DtRec%(5)<10 THEN a$=a$+”0"+STR$(DtRec%(5)) ELSE a$=a$+STR$(DtRec%(5))
AlarmTime$=””
FOR i=1 TO LEN(a$)
    IF MID$(a$,i,1)<>” “ THEN AlarmTime$=AlarmTime$+MID$(a$,i,1)
NEXT i
RETURN

Quit:
WINDOW CLOSE 1
END

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

calibre 2.17 - Complete e-library manage...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
OmniGraffle Pro 6.1.2 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 6.1.2 - Create diagrams, flo...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
RoboForm 2.0.2 - Password manager; syncs...
RoboForm is a password manager that offers one-click login, mobile syncing, easy form filling, and reliable security. Password Manager. RoboForm remembers your passwords so you don't have to! Just... Read more
Apple MainStage 3.1 - Live performance t...
Love the sound you got on your recording? MainStage 3 makes it easy to bring all the same instruments and effects to the stage. Everything from the Sound Library and Smart Controls you're familiar... Read more
Freeway Pro 7.0.2 - Drag-and-drop Web de...
Freeway Pro lets you build websites with speed and precision... without writing a line of code! With its user-oriented drag-and-drop interface, Freeway Pro helps you piece together the website of... Read more
A Better Finder Rename 9.44 - File, phot...
A Better Finder Rename is the most complete renaming solution available on the market today. That's why, since 1996, tens of thousands of hobbyists, professionals and businesses depend on A Better... Read more
Stacks 2.6.9 - New way to create pages i...
Stacks is a new way to create pages in RapidWeaver. It's a plugin designed to combine drag-and-drop simplicity with the power of fluid layout. Features: Fluid Layout: Stacks lets you build pages... Read more
Sid Meier's Civilization: Beyond Ea...
Sid Meier's Civilization: Beyond Earth is a new science-fiction-themed entry into the award-winning Civilization series. Set in the future, global events have destabilized the world leading to a... Read more
Logic Pro X 10.1 - Music creation and au...
Apple Logic Pro X is the most advanced version of Logic ever. Sophisticated new tools for professional songwriting, editing, and mixing are built around a modern interface that's designed to get... Read more

Choice Provisions is Set to Launch Destr...
Choice Provisions is Set to Launch Destructamundo on iOS This Month Posted by Tre Lawrence on January 23rd, 2015 [ permalink ] Choice Provisions – home stable to | Read more »
King of Thieves – An Interview With Zept...
Ahead of the release of ZeptoLab’s King of Thieves, we were able to ask ZeptoLab’s co-founder, Semyon Voinov, a few questions about the inspiration behind the game and what that means for the Cut the Rope franchise. | Read more »
Handle Review
Handle Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: SPEEDY ORGANIZINGUniversal App - Designed for iPhone and iPad Handle is a very convenient way of juggling your emails, To Do list, and Calendar all through one... | Read more »
The New Disney Inquizitive App Offers a...
The New Disney Inquizitive App Offers a Place for Fans to Take Disney Quizzes Posted by Tre Lawrence on January 23rd, 2015 [ permalink ] | Read more »
Hands-On With Cut the Rope Developer Zep...
Marking quite a departure from ZeptoLab’s past successes, namely the Cut The Rope series, King of Thieves is shaping up to be quite promising. Due for release in February, we were lucky enough to have some time with a preview build to see exactly... | Read more »
Fast Fishing Review
Fast Fishing Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: LIVES UP TO ITS NAMEUniversal App - Designed for iPhone and iPad Fishing is far from relaxing in Fast Fishing, but it is fun.   | Read more »
The LEGO Movie Video Game is Available N...
The LEGO Movie Video Game is Available Now for iOS Posted by Ellis Spice on January 23rd, 2015 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Satellina Review
Satellina Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: TWITCHY BUT TACTICALUniversal App - Designed for iPhone and iPad Satellina requires quick thinking and twitchy fingers, and it’s pretty fun.   | Read more »
Tail Drift, the Crazy 360 Degree Flyer,...
Tail Drift, the Crazy 360 Degree Flyer, Has Gone Free-to-Play in a New Update Posted by Jessica Fisher on January 22nd, 2015 [ permalink ] | Read more »
PureSkate 2 Review
PureSkate 2 Review By Tre Lawrence on January 22nd, 2015 Our Rating: :: ALMOST ALL AIRUniversal App - Designed for iPhone and iPad PureSkate 2 lets one’s fingers do the skateboarding.   | Read more »

Price Scanner via MacPrices.net

College Student Deals are back, additional $5...
Take an additional $50 off all MacBooks and iMacs at Best Buy Online with their College Students Deals Savings, valid through April 11, 2015. Anyone with a valid .EDU email address can take advantage... Read more
iPhone 6 and 6 Plus GIve Apple Half Of US Mob...
Chicago-based Consumer Intelligence Research Partners, LLC (CIRP) have released analysis of the results of its research on mobile phone manufacturers for the calendar quarter that ended December 31,... Read more
Save $100 on MacBook Airs with 256GB of stora...
B&H Photo has 256GB MacBook Airs on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.4GHz/256GB MacBook Air: $999 $100 off MSRP - 13″ 1.4GHz/256GB MacBook... Read more
21-inch 2.7GHz iMac on sale for $1179, save $...
B&H Photo has the 21″ 2.7GHz iMac on sale for $1179 including free shipping plus NY sales tax only. Their price is $120 off MSRP, and it’s the lowest price available for this model from any... Read more
iPhone Usage Rates by State Correlate With Ed...
Chitika Insights notes that despite iPhones being the largest source of smartphone Internet traffic in North America, their latest study finds a relatively high degree of variation of iPhone usage... Read more
ProGearX Extendable Pole “Pov/Selfie Stick” M...
There’s something inescapably narcissistic about the concept of selfies as they’ve developed as a smartphone-driven social (particularly social media) phenomenon that rubs me the wrong way. However,... Read more
iPad Air 2 on sale for up to $100 off MSRP, 2...
 Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for the next two days. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
Roundup of Apple refurbished MacBook Pros and...
The Apple Store has Apple Certified Refurbished 2014 MacBook Pros and MacBook Airs available for up to $400 off the cost of new models. An Apple one-year warranty is included with each model, and... Read more
Sale! 13-inch 2.8GHz Retina MacBook Pro for $...
 B&H Photo has the 13″ 2.8GHz Retina MacBook Pro on sale for $1599 including free shipping plus NY sales tax only. Their price is $200 off MSRP, and it’s the lowest price available for this model... Read more
Next OS X/iOS Version Upgrades Should Concent...
On stage at Apple’s World Wide Developers’ Conference in June 2009, Bertrand Serlet, the company’s Senior Vice President of Software Engineering at the time, announced that the forthcoming OS X... Read more

Jobs Board

*Apple* Solutions Consultant (ASC)- Retail S...
**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
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Lead Operator, GSOC - Apple (United...
**Job Summary** Apple is seeking an exceptional, customer service oriented and experienced persons to fulfill the role of Apple Lead Operator (ALO) as part of the Read more
Order Support Supervisor- *Apple* Online Sto...
**Job Summary** The Apple Online Store (AOS) Order Administration team is looking for an Order Support Supervisor to manage and lead a team of Specialists through the Read more
Senior Program Manager, *Apple* Online Supp...
**Job Summary** The Apple Online Support Planning team is looking for an experienced Senior Project Manager to lead key Quality program initiatives across the Online Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.