Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10 beta 3/9/83; site utecfa.UUCP Path: utzoo!utcsri!utai!utecfa!mugc From: mugc@utecfa.UUCP (ModemUserGroupChairman) Newsgroups: net.micro.atari16 Subject: Clock program binary and some comments. Message-ID: <1902@utecfa.UUCP> Date: Sun, 12-Oct-86 12:41:25 EDT Article-I.D.: utecfa.1902 Posted: Sun Oct 12 12:41:25 1986 Date-Received: Sun, 12-Oct-86 13:32:32 EDT Organization: Engineering Computing Facility, University of Toronto Lines: 250 I have had a number of requests for the binary of the clock program I posted sometime ago. (One that will set the keyboard and system clock and have the time surivive resets). Because of the demand, I'm posting the program here. I have used the standard (berkely) Unix uuencode. Also, in response to some questions: Yes, I did build the hardware battery back up gizmo. It works, but the backup charge does not last very long, so if you leave your machine idle for a few days between short spans of usage, the charge runs out and the time goes out. Now, if you use cells with larger A-h ratings, this problem should disappear, but that will increase the weight of the machine, and may not fit on inside the case of a standard 520ST. Hence, you might be better off getting the Dallas Semiconductor chip being sold as "No Solder Required" or whatever. I myself might go for such a thing. Anyway, here is the program, and I hope you find it useful. -anees -- Anees Munshi @ University of Toronto Engineering Comp. Facility :A {allegra,ihnp4,linus,decvax}!utzoo!utcsri!utecfa!mugc {allegra,ihnp4,linus,decvax}!utzoo!utcsri!utecfb!munshi Disclaimer: Not affiliated with any company mentioned above. -------------------------CUT------------------------------------- begin 600 clock.prg M8!H !GZ #5@ & "IO 0@;0 8T>T '"1M "Q" M@")((HHF2B192AIF_"**2A)G/ P; $%F[ P; %)FY@P; $=FX P; %9FV@P; M #UF"DH39P8CRP '0)"F2 )(HHF2B192AIF_"**2A)F\D*9)@!F,B )(OP M !TD1>T @!0:2()",B X "! 02( $ M0 P/4#__# N__K!_ *T&[__#U __I2;O_^8+HP+O_Z3EY.=4Y6_[AP 3U M_[@,;@ " AO,B\\ :W"\\ +SP !MB8%8O M/ &VM@3B\\ ;=6!&+SP !M\8#XO/ &X-@-B\\ ;B& N+SP !N. M8"8O/ &Y1@'B\\ ;G& 6+SP !NG8 XO/ &[!@!B\\ ;NDZY ' M7%A/,"[_R 9 !VP_ #\N_\0O/ &\1.N0 !UQ03R\\ "!.T.[_^$(H_]!(;O_03KD &>6$\]0/_^0F[_^%)N_[HP+O^Z M4T ,0 "8DKE2#! T?P !HN(%!.T& Z#&X '__^;C)*;O_^;RP];O_^_\1@ M) QN S__FX<2F[__F\6/6[__O_&8 X,;@!0__YM!CUN__[_R%)N__I@ /]" M,"[_S@* #__X#\ H&0 P'4#_Y# N_\X"@ __^ _ *2$ &0 P'4#_ MY7 Z'4#_YC N_\P"@ __^ _ *!D ,!U _^<" ]0/_P&8(, <"0/_?/@ @#B\ ,#P 7DC D9<@'RU __0J M0# '('P !I.,CP #F "6$BP6%?)__H@4$[08 !3B!N__Q4KO_\,! ]0/_B M2F[_XFP.,"[_XD1 /4#_XG M&L!P"C\ /R[_XB\-3KD LV4$\J0& 11P M"C\ (&[__%2N__P_$&#@< A@[G 08.H@;O_\(! M0/_B6*[__$JN_^)L#B N M_^)$@"U _^)P+1K < H_ "\N_^(O#4ZY +I$_O I@JG */P @;O_\+Q O M#4ZY +I$_O HJ0%BN__Q@ "D< A@WG 08-H@;O_\(! B* $+4#_XBU! M_^90KO_\+PT_+O_N+R[_YB\N_^(_!TZY 2L$_O !!@ /]0(&[__" 0+4#_ M^&8(+7P !I&__A8KO_\("[_^"U __0J0$H=9Q)*;O_N;?8@#9"N__BP;O_N M;^I3C6 J(&[__%2N__PP$!U _^(:[O_B8!8@;O_\+Q O+@ (3KD ?*4$]@ M /]8("[_]"\ ,"[_[$C T9<@'Y"-/4#_ZFP$0F[_ZDIN__)F'C N_^I3;O_J M2D!G$B\N @_+O_P3KD P67$]@XB N__2PC60<+RX ""!N__12KO_T$!!( M@#\ 3KD P67$]@W$IN__)G /S:,"[_ZE-N_^I*0&< _,PO+@ (/R[_\$ZY M ,%EQ/8.!,[C" _Y9.7DYU3E;_ZDC7(, ^+@ ,*DY")3 ' H /__@.X M#CP 9R(P!P* #__X#N Y(0$A 0D!(0"! T?P !JH&Q ^!F#./P="9R!? MT?P !JH&Q!*%6<,(&X "%*N @0G6#P("X "$SN(,#_ZDY>3G5.5O_B2-

[__T(D0H P!R\ +RX #$ZY 6_E!/+4#_[F3G5.5O_X2-<@@#XN @J;@ *#$< "F8:$"T %DB M D "&<.+PUP#3\ 3KD P67$]3;0 ,; XO#3\'(&T $DZ07$]@""!54I4P M!Q" 3.X@@/_X3EY.=4Y6__Q(UR *FX #B N @J@"M @K? $-P #C N M Q$0#M P,;8 ! QL$#M\?_\ #"M\ ,W 28 @K? #, $B -3.X@ M /_\3EY.=4Y6__Q(UR *FX "D)M QP_TSN( #__$Y>3G5.5O_\2-<@ "IN M H[?'__ P@55*5,"X "!" 3.X@ /_\3EY.=4Y6__A(UR" *FX "$JM AF M3! M !9(@ ) )F+A M !=(@#\ 3KD !0.5$\^ &<(N_P !R&9A(_/ ( M3KD !CD5$\K0 (9A(K? $%@ #BM\ 11 28%X0+0 62( "0 "9B)* M1V<>N_P !R&9A8K? #Y( #BM\ 1P 2("T "& F*WP ^2 XK? M$/@ $A M !=(@#\ 3KD W(5$](P-"M @J@"M 1";0 ,3.X@@/_X3EY. M=4Y6__Q(UP" < $_ $*G/RX "$ZY 4+E!/+@ ,@/____]F!$) 8 XP!P* M #__X#\ @!(0$SN (#__$Y>3G5.5O_\2-<@ "IN @O#4ZY - EA/+PT@ M;0 .3I!83TSN( #__$Y>3G5.5O_X2-<@@#XN @J;@ *+PU.N0 #0)83R\- M/P<@;0 23I!<3TSN((#_^$Y>3G5.5O_\2-<@ "I\ <:+O\ <'&422I5G M"B\53KD Z46$]9C6#F3.X@ /_\3EY.=4Y6__A(UR" *FX "! M !9(@ ) M %F!'#_8$ O#4ZY .^EA//@ 0+0 72( _ $ZY 3!%1/2JT "&<8$"T M%DB D F8,+RT "$ZY 8_%A/0BT %C '3.X@@/_X3EY.=4Y6__A(UR" M*FX "$)M Q">0 &M 0+0 62( "0 " 9FH@%9"M 0^ &\N/PP06<0,#D !K02, ,@ "!F+$I';20@+0 ( M+P P/ ( 2,#1ER ?L)5F#" M @J@"M 1@!"M5 1"0& ( "T @ 63G5.5O_V2-<@ M@#XN @J;@ *'4?__D)M Q">0 &M 0+0 62( "0 " 9D8O#4ZY 2(EA/ M2D!F.' !/P!(;O_^$"T %TB /P!.N0 %7I03PQ %F!# '8!@P.0 &M!( MP R (&<& "T @ 63G5.5O_\2-<@ "IN M @0+0 62( "0 $9PHO#2!M Y.D%A/("T !+"58@PO#4ZY .^EA/8#1P M 3\ (!60K0 $2, O ! M !=(@#\ 3KD !0N4$\,@/____]F!'#_8 HK50 $ M0FT #$) 3.X@ /_\3EY.=4Y6 !.N0 #F(_+@ (3KD !+L5$].7DYU3E8 M "\\ 3G5.5O_\2-< @#\N AP13\ 3KD M !;(6$\^ &P0, =(P"\ 3KD !:F6$]@(C\N A.N0 %:I43SU AM#C\N M @_!TZY 6!%A/, =,[@" __Q.7DYU3E;__$C7 ( _+@ (/RX "G)&/P%. MN0 %LA<3SX 2D!F*#\N A.N0 %:I43SU AM%C\N @_+@ *3KD !8$ M6$\P+@ *8 XP!TC +P!.N0 %J983TSN (#__$Y>3G5.5@ /RX "$ZY 5 MJE1/#$ 0V8$< %@ D) 3EY.=4Y6 _+@ ./RX ""\N IP0C\ 3KD !;( M3^\ "B\ 3KD !:F6$].7DYU3E;_\$C7(. _+@ (3KD !6J5$\,0 !#9@ MU$)&$#D !U12( ^ ! Y =4$B 2, &@ '5 J0%-N YM "64T=L;'!1 M$\ !U00CD !U1+SP !U0< H_ $ZY 6R%Q//@!L"# '2,!@ "<< H_ M ' "/P!P S\ 3KD !;87$]P A/ =4! Y =44B /@ 0.0 '5!(@$C M!H !U0*D P1]'-< H0@! =2( Z Q% !IF!$)'8!0@;@ *4JX "A"%4D8, M10 *9@#_9B -!( !U0$\ !U0$\< !U1, 9@*"\N HP+@ .2, O #\N M AP/S\ 3KD !;(3^\ #"\ 3KD !:F6$],[B#@__!.7DYU3E8 "\N HP M+@ .2, O #\N AP0#\ 3KD !;(3^\ #"\ 3KD !:F6$].7DYU3E;_^$C7 M(( ^+@ (, =60 Q )B'.5(,$#1_ &K@@4$[08"IP4& F<$%@(G!#8!Y* M1VT.*GD !T"4T=M"$H=9OAP_V (2A5G^! 52(!,[B" __A.7DYU3E;_^$C7 M(( ^+@ (2D=M#BIY = E-';0A*'6;X0 ':Q.T")O A@!$/O A(YS (B\ #"010?H "$[Y 9T$S? M Q.=2)O A@!$/O A(YS )!$B+P ,0?H "$[Y 9T" !3-\ #$YU3E;_ M\$C7.( N+@ (4(<,AP#__^!B "&#(< @ 9 8N/ " O!TZY 98EA/ M*D ,@/____]G8DJY =3&82)DT@"R/ =+B/ =*F H(#D !U,L(UF M"E&-4(0 '4Q1C"!,("@ !"9 *4T !" '48 0 !*H @!]"- M(\ !U,*$!1C"!,0I I2P $3.XX@/_P3EY.=4Y6__!(US# 0H<@+@ (7(!3 M@ ) __XL +RN AD!D* 8 T)G,*GD !TJ( UG?" 5+@ "@ %G4B , M9PX@!P) __[1E" 4+@ J3"A-O(=D/)Z&( <,@ 1D"B 5 D#__BJ 8!0J MAB &T(TCP '2H@>0 '2H@AR -+P P/ $2,#1ER ?8&29S$J'9PP@!P) M__[0C2I 8 0J;0 $N_D !TJ9H0@#&<&(\P !TJ4GD !TR,#D !TR#$ M F4*4WD !TR8 #_3B\&3KD !="6$\O+@ (3KD !?H6$\J0%-Y =,B - M3.XPP/_P3EY.=4Y6 !"@# N @O $ZY 7Z%A/3EY.=4Y6__A(UR" ("X M""\ ,#P !$C D9<@'RI 2I5F.$)',$?1_ '31*$& %@ H" &, IV &0 M E4 &4 H& &8 H& &< H& &\ F> '( J* ', HZ '4 F. M '@ FB $0 ?V,#$R,S0U-C2 1F5B7DI.B 5&AE(&-U# @(" @(" @(" @(" 86!@@&$ 8(!@P,:"3H!@P&" 80!@@&# QH M)+80$#8&&!P2#CX!/DA2&$(:3D(D*$H21A@*%$1$( I\# P."!H(" X($#0\ M+B8&#C02'B@J$%P2! @&""@47 0(!@P6&E16%!P22!Y*("P*$ 8&" 8&#!@< M%A *(!(.%"@2%A0:+ P8$@H*%@8&"B *!@H*-@8&'@PJ#"8<-$ *'@@R$@@( M" @(("0V$@P&"!0B0DH&+@P&!@P,# H>+A 4"C(8$!XT! 0$! 0$! 0$! 0$ M! 0$! 0$#@8&!@8&!@8&!@8&!@8&% 0$! 0$ 5($!%8$%@06!% B F5? M !0 #6&F)I;W-? 0 V!9?9V5T9FAT>7!E M7P $ *H5&ET7P $ )827W-E=&9H='EP95\ M ! $%F1U<#)? 0 K!-F8VQO