[comp.sys.atari.st] auto clock that sets IKBD and bios time

RDROYA01@ULKYVX.BITNET.UUCP (02/24/87)

 
The following (short I promise) file is for the auto folder.  It does
the following:
    sets the bios time and date
    turns the verify flag off
    sets step rate to 2ms <--useless really
    checks for february and leap year (i.e. you can't have 29 Feb
     1987, but you can 29 Feb 1988)
    sets the IKBD time if it is less than the BIOS time.
 
The last point means that resets do not force you to re-enter the time
and date because the IKBD keeps track of these for you.  The original
came from a local BBS.  The executable file is 1343 bytes, proving
that the dev pack C can make small programs that do something.
 
PS. about the so-called uemail fiasco.  Could the problem be in a gate
somewhere.   I ask because I checked over my logs, and except for one
file none were sent from here more than once.  Also, the other,
non-atari subscribers, who received the same batch through bitnet did
not get multiples.  About uemail itself new versions will go to
compuserve only and to individuals who request the program directly.
I guess I just wanted to bring this group up to the Amiga set-up which
always seems to have source out the whazoo.  The new uemail has a full
cli with complete command line recall and editing, history, show and
environment variable passing to other processes, and a batch
processor.
 
------------------------------ cut here -------------------------------
 
table
 !"#$%&'()*+
,-./0123456
789:;<=>?@A
BCDEFGHIJKL
MNOPQRSTUVW
XYZ[\]^_
begin 777 CLOCK.PRG
M8!H   2H    1     P                  $*%(&\ !"/(   $\")H !C3a
MZ  <3KD   #N3OD    @2I\_/ !,3D$@;P $,B\ "# O  I(P%. ;P  "!#!a
M4<C__$* 3G4@;P $,"\ "$H09@  !D* 3G6P&&;R( A3@$YU(]\   3L3D$Oa
M.0  !.Q.=2/?   $[$Y-+SD   3L3G4CWP  !.Q.3B\Y   $[$YU3E8  $CGa
M 0PJ;@ (*&X #$)48   %# 4P?P "A(=2('00=!\_] X@ P5 #!L   (0D!@a
M   $< $,%0 Y;P  "$)!8   !'(!P$%FRB -8    DJ?3-\P $Y>3G5.5O^@a
M2.<#!!U\ $;_I'X!+KP   24/SP )DZY    @E2/+KP   2>/SP )DZY    a
M@E2//KP  2\\_____R\\_____S\\  5.N0   (+?_     H^O < /SP  3\\a
M  =.N0   ()8CT)7/SP  S\\  =.N0   ()8CSZ\ C0_/  "/SP !TZY    a
M@EB//KP'=T)G/SP !TZY    @EB/0E<_/  !/SP %4ZY    @EB//KP %3\\a
M  0_/  53KD   ""6(]@  $P+KP   2H/SP "4ZY    8E2/+KP   2\/SP a
M"4ZY    8E2/+HX&E____Z0_/  *3KD   !B5(]*+O^E9P  ]DON_Z8NCEV7a
M+PU.N0   ))8CRI #!T +V8  -0NCEF7+PU.N0   ))8CRI #!T +V8  +PNa
MCE67+PU.N0   ))8CRI #&X  O_\9@  9CU\ !S_H# N__Y(P('\  1(0$I a
M9@  %# N__Y(P('\ &1(0$I 9@  &C N__Y(P('\ 9!(0$I 9P  "$) 8   a
M!' !/4#_HC N_Z+1;O^@,"[_^K!N_Z!O   */B[_H&   #X,;@!6__YM   Pa
M#&X  ?_\;0  )@QN  S__&X  !P,;@ !__IM   2#&X '__Z;@  "$) 8   a
M!' !/@!*1V8 _LXP+O_^T'S_L'()XV R+O_\ZT& 08!N__HSP   !/1*+O^Ea
M9@  $CZ\ !=.N0   ((CP   !/0^N0  !/0_/  K3KD   !B5(]"+O^E?@%@a
M  #$+KP   34/SP "4ZY    8E2/+HX&E____Z0_/  *3KD   !B5(]*+O^Ea
M9P  G$ON_Z8NCE&7+PU.N0   ))8CRI #!T .F8  'HNC@:7____]B\-3KD a
M  "26(\J0 P= #IF   :+HX&E_____0O#4ZY    DEB/*D!@   &0F[_]$INa
M__AM   V#&X &/_X;@  +$IN__9M   D#&X .__V;@  &DIN__1M   2#&X a
M.__T;@  "$) 8   !' !/@!*1V8 _SHP+O_X<@OC8#(N__;K08!!,B[_].)!a
M@$$SP   !/9*+O^E9@  %CZ\ !=.N0   ((CP   !/1@   .3KD   2"(\  a
M  3T/KD   3V/SP +4ZY    8E2/+KD   3T/SP %DZY    @E2/0E=.N0  a
M "!*GTS?((!.7DYU0H P.0  !/1(0# Y   $]DYU,'P$0#"\  ).=3!\!$0Pa
MO   3G4-"BA>0R!T;R!#86YC96PI#0H*  T*16YT97(@9&%T92!D9"]M;2]Ya
M>3H@  T*16YT97(@=&EM92!H:#IM;3IS<SH@      @.!D@(" @("'0*" H<a
F&!(4$A(4# H("A0:&!C2$@8&"A(*%!H<'' 2!@H&!@H("@H2"  (a
 a
end

braner@batcomputer.UUCP (02/26/87)

[]

Whoever recently posted the correction to Settime was right.
The faulty version sets the IKBD clock one day back if the time
is after 4pm.  The correction to the source is in one line,
which now reads:

	datime = ((long)Tgetdate()<<16) + ((long)Tgettime()&0xffffL);

The reason Tgettime() gets sign-extended to a long, though,
is because osbind.h defines it as "(int)gemdos(44)".  If they
left it alone, there would have been no problem since gemdos()
is of type 'long' already...

Here is the corrected binary for AUTODISK (copies the whole floppy
disk to the ('Eternal' type) RAMdisk, and also sets the time.
Put it in the 'auto' folder).

- Moshe Braner

~~~~~~~~~~~~~~~~~~~ cut here ~~~~~~~~~~~~~~~
begin 644 autodisk.arc
M&@A!551/1$E32RY04D< < L  %D.3+;9/GX/   ,8#0  -" V\  @ 8>0 ( 
MD@,G^1H.8 !Q8 ,S*IZH: .  (@6 !A :P6 PD@ '*#Q&A@"@ @ TAH)X_4/
MT@!_+H*\ /"B@9 S/W@ 4.(DR#=^$AF X(A!!--I[5!^+#D%T!L#$T!$0?:/
MWU( $*9RJ"H$P]:N*#A"R!:50XHF73<"0."$I $0;+HB00, D!-=!S!@>?2"
MQ3][/PSK^RL #Y='00?^/6 E<I#( HH.=E+'B96!/PX(.0)FH  8!Z0< >%F
M+C1@$""8 ?!/'NHI0$H#$.#C@Q,OG#T/?.%B;N0$?Q7 >(R$#6BAR'4I$/$X
M<H#D&*@\^OG7@#OMOX-_!H#DW ,()EHC>+'@;TT @WV$/-*1(P )#.@7.#-0
M07X !KPQD &Z </!!$@8P@D? ,#0#%(*2+ "  $@$8@D#,+ 31 :3"@ $H5H
MDN$R$$H(P  68MB@-D'\9\!L (" P80$($$()ADF4^*$!:28(39!Z$: $$0P
M8,1 ]JE@)  7M.82 T4@.9 &4 *P@Y/X$2$E /YIN8.  .HF PP&G -$.$#(
M4, Z04 3A P$B-/F90!$UL)?";@P& ,)04( C,H)!8!N&#1WWW%X.O 8#$(%
MH)L 3'R# #SA=39>>>>E-Q=[?_DC2'SS <A?F /)@@&"-^:X(X4^-@@DC@! 
MP8&'"2[8X(-<FHCBA1ENV&%'((K8((FY\M@J#"PRH"4 22H+P!U.BK!D /91
M>20#6%9);7]5?@ F@0.Y  ,!XYR9I@%LN@E-$3_4*=0*?R'@PYY]_MD?HP,1
M:B@0B.J"@ >+-OIHI)-6ZED_QI1W  1!L . &RT@T0\TAA+2[P'P5"?4!9,I
MHUT+0/1##0@NB P.("?W ,0_[) L,C KT?:/RO^H X,++ /#X <, #'0J$C<
MS+(Z0.@,P ,]_SR0#3_@S$YD\ *&";T-V0N !TW7;.=D@%#M)XS@PM0!@P?T
MPXVAIESL!7-NF!V9 I-!\1@$)7>#!"!!N-./-Z\)P;#>W("  !6 [/17/RH,
MI@00L_TCC*'&7 SP(TBTS<W;DT$P=]UWY[UWWW^;+3CAANO2#SZ*,TZ;,)&I
MT)TXVB$!3#B T+Y39"QT!XUV+X'P 1+!S#30/_] $PC((A,G<F06=$<)<\Z1
MTZ\!HF@,0 ;=8:(=S?!D#<]/UE7>CSG@"T5 =T)X@Y0#?%8]*@.&HO,7/R8,
M)@,/ 8!5LCQW&_W/,+ I63SZQZ#B!8%F_J!;/^9!0-K0C!\\P-]]2E8/"PFC
M@,T(1@^,@# .E(P>"6)& ;G1-F,HT!X-G-G*]'&__"D0'RD$H +OD4(WT0P?
M+=1?/_01PP#V(Q\U/.#*[)%#!?:CAPKD1Q!I1H\BENP?2"R9/Y:X,GDXT1\5
M H3_9.@"?Y!'BP6TX<K<H0.A@& 9[O@'/F#0(V $(HW^T $ A'"*R(#@+SUZ
M#/*P 0(&=<0%)H""\K!A1SRZX#$@6 #(_F$.UC 2!A" A1O^X8_W-2< Y].%
M/J0Q&$>:@P%H" (1 N /&,&/#0$@P5_TH8M.3M(<,>"#*$GIR1A,$BFGP9D_
M@I%&K[PR!C[SR"^C=)=?3I(><Q$:/:!AA%KZ+%"[X>4_Z.%):/#% ,QT9D@N
M28-^$8 1C[D&4G;3(%T&(V' N 8PA*8/:=)#&_S"6?<,\(,"L*=\'?D+ 4B@
M/@"PKU[O4QXT5HF P7"C"#X0R@!D@#-[2,((SP@&OA:ZD& ,HI? &P0NW22?
M1TWA"*@!P1)>$YN[P<*/_/F'.X2VRV+(3IT,[<HP<(F:8 1#/CI82#$6@90!
ML#&F#C4"+(( )@3HH*&:,(+W?D!/>RX GYD< "+Z^4_W#80! OU+/M@PF$LB
MH5\#X,1CA. *D>G& %(H*S48X(J!# ,*(N-(;0@&#H-9"C3%H8LN!."Q1V!K
M$ -!@!L,@*]!82VOD?'!7P8 A<'D  CYH,<9",L#XH&! (4UV'B:9ARA,&&Q
MB7N$9BG)GH;I0P@F0 (8+ "#"2G : ,XPWK:HPL A-8:2*% (DTK!!$@0!HQ
M*P M8!&(-A RK^YQA79,\ 7-#F<!FIKM7P! A-1-EE&6A4%KN60T")Q! 2^8
MD '^$@#4;6<-7/K!A"BBBW^P0#N+NVYE_W'9PC+7N>0Y1P#0HY[MOI9! S #
M K!+WX%@P@43\,0J .1?HP'B#%9H,(,$8 ;*6M8.$N[(&2" &3JJ-R3310,4
M('. \ +HP^P5 #I&W#/B59C 8 "" -;PCS]P"36RB\:"'0 &$C  O39AP!LX
M8)WM$H (0)#=[=8[70Z,^ 0^<X )%FP (: 7LX(BF%^ 8ZG:8$LB"&"# D!0
M63_IQA^<=0!GUU,<!41&".0U13\5L$A^M,]/;4  R;JB&VE89\T>%@J<=1$ 
M/LQYD?C #*#K*&CRBN'0*Z/'E_/G #,X8,_X@$9;Z?S,'G]9 /ZT])Z7N6F0
M<0D,#KB9/V5+YIH0  QB(!F78.&*:;[! Y6KC:P5  D U)H>MT.L4( P77[T
MDP'@RRMQTMOHVIICSG<F0!> 8;0 /#:RWVVUF14 !@0(@0V1W35^EXV R"1A
MNJIXS&C](81)^@,,)F!I.?#&#GP0XS60E.1<+"UO>MN[;U"0@KN_S 1*MD$:
MZPZ-#_+: SX$  :4;)B]18 $:<#1%U"8+!:0, MDF,$>,$#!;GI3J10D 1_ 
M2($2\,&+%'P!'[AP0A-$P :4DZ#FO"@,S#EC<I2KG.4NW[D3:&YSG.L\YG7H
M><I7WO*7QSP(1 ?&S5E^=/'DBP:LF4M) 7%2+EDZ,@W C'N,X<JYI%7K$+A;
MN\3>7E<,1M4,F$)K&+ X,P #OV# 0-81<'8$;'WMYG-/UQX!=[F'I.[<P+O>
MU=/WO[L+  5PCQ3>7IRXSQWQH^7?.1JD*0608 D-*W3$#O/7P)K! FGF5'MI
M\)@>M,8!E"Q- )B +4'\8]^H+XX#5$_?UK\^]A1R0>V]B(#3IYZV_X"#[_T)
M_/VV8 G_.*V[U]PI+<!7=0 PA6XH 0$)F)1!"H"1(4# :U]'O^L > ,0R-_K
M6O,0&(N4!W&B/W]YK#DRQ-:%/PR-% 9<&X3 0&NU(5LP-A"H  ,L$%G1X&[S
M9P\O(!0V(0#W-VR=8@3']G])(P#R95ET('"4) 6*0'Z+I ]@(  @R'X L CZ
MY@!E0!MD  9AL0 VH'O&$#/$ PV#0 +K5W[N)SOQ-W_Z4'\3" #YUP_D<(&0
M!8 "* \;2%\0@( *Z&[?%EDL%2D,  "5,@3L<%HB@!1^(@/CU(55 X8 D !@
M"%AB^(5AZ(4$0(8NP89@&  "<(9O.(;\ &IIV(9K:(=R2(=Y"(:@)@W\4 !X
MD -\ &KZ0&QUT  *H  )@ 1I0 <@$ 9ND <@L 9E8(D6H0!)P 9L4 9G$ 9L
M  )TD 9M4 8@@ )B$ 9D  )F\ 9RT 9A((FP" )O4 >T: 8@( >4> 9ED *,
M2!"<Z(F@*(H@0 :SB(JJR(JN"(NR2(MR8(NX:(NZR(MNX(O J !<4@1R( >U
M* =EP(II<(W'F 9SL 8M 0 ;4 2,Z(A!4 54\ 1$D 13L 0)( :6V 1O, =H
M@(I"8(UE( ?M*(P)4 1N0 <!28K]2(JFJ(QH@ 9MT 9;, =ST 4IH ,@L(D%
M>9 )20<+B8P(F8IYD <1209D<)$9*8S]P8W>&(W@*([D* 9O\ :2. =E, 9T
M (LMH0!$8(YK,(ENT(I2$ 1-0 8^"0+C. 9OT 9P,(MI( :?N),)\ 1L()1$
M68[G*)5#\ 9PD ?C> ;'.(MAX (V$8SN"(_R2(]+X(KC:([]2 8LP!IO  (!
BV9)S$(P , 1/X 1R! #OB 5]&7!4T)?!" D%(  &   :    
 
end