atari-sources-request@imagen.UUCP (05/05/87)
Submitted by: sun!hplabs!polyslo!sgstree (Samuel Streeper)
comp.binaries.atari.st: Volume 0, Issue 58
Archive-name: timester
+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
[Editor's Note]
The following note from Sam describes the program nicely, it is the
kind of program that you can stick into your AUTO folder if you
don't have a real time clock (card). The cksm for the prg is:
bytes = 3539( 3748) cksm = 2247 timester.prg
+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
James,
here is a time setting utility for the ST. This program is
under 4K, and takes the time from the keyboard clock or from
it's time stamp, so the system time survives reset and after
power down time will be last time you used the machine. Also,
you set time with the arrow keys so you don't have to type
anything.
Again, I will send sources if you think they are useful.
This one is about 20K of assembly code, as I recall.
------------------------ cut here ---------------------------
table
!"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 timester.prg
M8!H TL $_Y -*C\\ O/ "N0_a
M/ !.3D%0CTI 9S(_/ +SP KQ/SP 3DY!4(]*0&9B,_S__P "N _/ "a
M+SP KQ/SP /4Y!4(]@&C/\__\ K@/SP B\\ *Y#\\ #U.05"/,\ a
M K</SP #\ +SP K,/SP 5TY!W_P **CD K,2$4CQ0 "LP@/ a
M"P9A @<-CP !&$ " (@/ "XUA @*80 ']" \ +D&$ !_QA ?F(#P a
M N-80 '[F$ !]@@/ "ZIA ?@/SP (DY.5(]!^0 !#^0 "E0CP a
M"M@C\ @4 *U"&)"!0S_ *Q$AY +!#\\ _/ 93DY0CS8\)Q!3a
M0V]:#'D "L1G\F$ !Y9!^0 "L1A ?.! 4!0 Z8)A ?"U #K@F$ a
M![K4 .N"80 'LM0 [8)A >JU #K@F$ !Z+B"-0 (\( K0+P(_/ 63DY<a
MCV $80 '1C\\ !=.3E2/#(!@ 9@8@.0 "LPD .J*< 0 @( #^ _ *a
M$\ K 2$ 3P "L'LBG $ (" ?$\ K#@/P "A/ *ODA $\ a
M J_ZHIP ! " @ 'Q/ *PH#\ H3P "KQ(0!/ *O>J*$ (" /a
M$\ J[Z(IP ! " @ ?P8 % " !_$\ JZ/#S__W8 82AA $$=@%Aa
M(&$ :)V V$880 #-G8%81!A 2<=@=A"&$ !>!\ '8#0?D JL$_ P a
M"K<&.0 ? *MR \ *M&$ !DP,1O__9@).=0Q# !G4 Q# %G #D#$, a
M F< 80,0P #9P ",@Q# 1G ,F#$, !6< [@,0P &9P $@@Q# =G 4$a
M(#P IF80 %_#\\ !.05)#8(930V""/SP C\\ ).35B/#( 30 9^0,a
M@ !( !G+ R % &=D#$ #6< !D ,0 !F9P %? Q &=G 5^#( 8@ a
M9P %?F"X4CD JZ##D 8P "KIO" 0Y &0 JZ> 8.0 "KJ(_ *, 1Aa
M 6R2$0P!&$ !:IA 6@#$;__V8 _WQ.=5,Y *NFS0!CD 9 "KI@QC\\a
M (_/ "3DU8CPR $L &< _TX,@ !- !G /] #( 2 9RP,@ !0 !Ga
M9@Q UG 6:#$ 9F< !-8,0 !G9P $V R &( &< !-A@K%(Y *NPPYa
M P J[;P@$.0 , *NW@ &#D J[4P3E3" \ *;M"$80 $T&$ !/QAa
M 3F#$;__V8 _VY.=5,Y *NV[.!CD # "KM@Q#\\ (_/ "3DU8CPR a
M $L &< _J8,@ !- !G /Z8#( 2 9RP,@ !0 !G: Q UG 3R#$ a
M9F< !"X,0 !G9P $, R &( &< !#!@K 8Y H K"0D08.0 "KM!^0 a
M"IX:.0 "L*Z,$ ;PH$.0 * *PF &4CD J\$#D J\80 $4F$ !#9@a
M /]J!#D "@ "L)N# 8Y H K"8 #_5%,Y *O�/SP C\\ ).35B/a
M#( 2P 9P#]\ R $T &< _>(,@ !( !G0@R % &< * ,0 -9P $a
M.@Q &9G -V#$ 9V< W@,@ !B !G -X#$ 96<"8*0_/ $/SP (4Y.a
M6(]@ED)$&#D J[0?D J>&CD K"NC! &P _WQ2.0 "KU2.0 "L(,a
M.0 ) *O6\.!#D "@ "KU2.0 "KQA -F$#D J\80 #=! Y *O6$ a
M VIA -.#$;__V8 _S1.=0PY $ K";@1@ /\D4SD K"4SD J];+X&a
M.0 * *O5,Y *O&"N/SP C\\ ).35B/#( 2P 9P#\] R $T &< a
M_.8,@ !( !G+ R % &=.#$ #6< T ,0 !F9P "? Q &=G )^#( a
M8@ 9P "?F"L##D #0 "L-NH@8Y H K#4CD J^$#D J^80 "NF$ a
M IY@ /^$##D "@ "L-M /]X4SD J^!#D "@ "L-@TC\\ (_/ "3DU8a
MCPR $L &< _%H,@ !- !G /Q,#( 2 9RP,@ !0 !G> Q UG *Fa
M#$ 9F< >(,0 !G9P !Y R &( &< >1@K PY !< K#;*)2.0 "K]2a
M.0 "L,,.0 ) *OV\.!#D "@ "K]2.0 "KYA 'X$#D J^80 "!A Ya
M *OV$ ?QA '@#$;__V8 _UQ.=0PY K#;P#_3E,Y *PU,Y *a
MOVS !CD "@ "K]3.0 "KY@L#\\ (_/ "3DU8CPR $L &< ^X@,@ !-a
M !G /MZ#( 2 9RP,@ !0 !G1@Q UG '4#$ 9F< 1 ,0 !G9P !a
M$@R &( &< 1)@K PY 4 K ;*)2.0 "L 0.0 "L!A %680 !.F a
M_XP,.0 ! *P&T _X!3.0 "L!@VC\\ (_/ "3DU8CPR $L &< ^OX,a
M@ !( !G+ R % &=R#$ #6< 50,0 !F9P D Q &=G "2#( 8@ a
M9P DF"V##D "0 "L%M& PY 4 K ;*)2.0 "L $.0 * *P5(Y *a
MP6$ *P0.0 "L!A "Z$#D K!80 L&$ )0,1O__9@#_;$YU##D a
M"L%N&@PY K ;P#_5%,Y *P 8Y H K!4SD K!8*X@.0 "LQ@a
M /D4(#D K08 #Y"@QY K@9P GC/\__\ KB8 DC\#/SP !3\\a
M -.35R/4T-.=2\ /SP "4Y!7(].=2!Y *V" Y *U"% !1.=3\\ @_a
M/ "/SP TY-7(].=6'L8>I.=0) /\&0 P/P _/ "/SP TY-7(].=7 a
M$!#H".,($@#E - !$A@"00 /T$%.=7( =@J0 VL$4@%@^ 8 KI = !$0!.a
M=7@ &CD JZ! 4 4 P% !L! 8% &3IC1@Y *NXH$0@3KC1@Y *PHH$a
M0@3KC1@Y *PXH$0@3MC1@Y *P,C\ K8.0 "L$"1 _B@3KC2\%/SP a
M%DY.7(\_!3\\ "U.05B/2$4_!3\\ "M.05B/2$5!^0 "LLD!2 " @ '^, a
M80#_8.J*$ (" _80#_5.R*$ (" ?80#_2.J*$ (" ?80#_/.J*$ ("a
M /80#_,.B*$ (" !_80#_) 80 ( 3_ ; *Q"\\ *Q"\\ !C\\a
M !E.3M_\ " QY__\ KB9@#XBDA%(\4 K,/SP 3\Y *W"\\ *a
MS#\\ %=.0=_\ "F ^&(0/ '0_D K$$MA3 &;Z3G4*#1M*&V8 &IAa
M;@!F96( ;6%R &%P<@!M87D :G5N &IU; !A=6< <V5P &]C= !N;W8 9&5Ca
M ?'1\>'QX?'QX?'A\ $14:&Q\@(B,;624 a
M .(6 !T:6UE<W1E<BYP<F< 7&%U=&]<a
M=&EM97-T97(N<')G !P &T4;92HJ*BH@(%1I;65S=&5R(" J("!31U,@<V]Fa
M='=O<FMS(" J*BHJ"@UV97(@,2XP,R @('-E=',@1V5M(&%N9"!K97EB;V%Ra
M9"!T:6UE<PH*#1M9(S ;<'ER("!M;R @(&1A>2 @=&EM92 ;<0H*#71I;64@a
M(#H;625 .@H*"@T@&W (" &W$@('1O('-E;&5C="!F:65L9 H*#2 ;< ;a
M<2 @=&\@;6]D:69Y('9A;'5E"@H-(!MP4D54(!MQ("!T;R!U<&1A=&4@=&EMa
M90H*#2 ;<"!F(" ;<2 @=&\@=7-E(&9I;&5S=&%M<"!T:6UE"@H-(!MP(&<@a
M(!MQ("!T;R!U<V4@8VQO8VL@=&EM90H*#2 ;<$A%3% ;<2 @=&\@=7!D871Ea
M(&9I;&5S=&%M<"!A;F0@97AI= H*"@T@4V%M(%-T<F5E<&5R"@T@,3,S,R!7a
M96YA=&-H964@079E+@H-($5L($-A:F]N+"!#82X@(#DR,#(Q &-O<'ER:6=Ha
M=" Q.3@W(%-A;75E;"!3=')E97!E<B M(&UA>2!B92!D:7-T<FEB=71E9"!Wa
M:71H;W5T(&-H87)G92!O<B!I;F-L=61E9"!I;B!P<F]G<F%M<R!F;W(@<V%La
M92!S;R!L;VYG(&%S(&ET(&ES(&YO="!M;V1I9FEE9"!N;W(@;65N=&EO;F5Da
M(&%S(&%N(&EN8VQU9&5D('!R;V1U8W3__P (*%A0*$@H.#!((!A(.#@X8a
M!@@,!AP,.B86"! *"! *" X8-@@(!E!@" H()@I<" H("AX*7@@&!@X(!A0*a
M"G0&!@X&" H&"@H:# 8*!EX*!@84"@A>" 8("@8*"AH*!@H&7@@&% I4"@@(a
=!@H*&@H*" 8("@P,* 9N%@P,# HP5@8:# H&&@ *a
a
end