home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / apple2 / 27316 < prev    next >
Encoding:
Text File  |  1993-01-21  |  1.2 KB  |  35 lines
  1. Newsgroups: comp.sys.apple2
  2. Path: sparky!uunet!munnari.oz.au!metro!cs.uow.edu.au!david
  3. From: david@cs.uow.edu.au (David E A Wilson)
  4. Subject: Re: Apple Pascal 1.3 - how does the Filer Date command work?
  5. Message-ID: <1993Jan21.221755.29815@cs.uow.edu.au>
  6. Organization: Dept of Computer Science, Wollongong University, Australia
  7. References: <1993Jan16.054739.21612@cs.uow.edu.au>
  8. Date: Thu, 21 Jan 1993 22:17:55 GMT
  9. Lines: 24
  10.  
  11. david@cs.uow.edu.au (David E A Wilson) writes:
  12. >I have a Smartwatch in my //e and would like to add a startup program to my
  13. >Pascal system to set the date. Can anyone explain exactly what the Date command
  14. >does (in detail). I assume it writes to the system disk but it should, I think,
  15. >keep it in memory somewhere (but where?)
  16.  
  17. Well, I wrote a little program to search memory and it managed to find where
  18. Pascal v1.3 (128k) keeps the current date. It is in $B85A..$B85B in the
  19. following format:
  20.  
  21.     |  B85B      |    B85A |
  22.     | Year | Day | Month |
  23.       7bits  5bits 4bits
  24.  
  25. This is the format the following Pascal definition gives:
  26.  
  27.     daterec = packed record of
  28.         month : 0..12;
  29.         day   : 0..31;
  30.         year  : 0..100    (* 100 is for temp files *)
  31.     end;
  32. -- 
  33. David Wilson                +61 42 213802 voice, +61 42 213262 fax
  34. Dept Comp Sci, Uni of Wollongong    david@cs.uow.edu.au
  35.