#820-2 INClBB2 IQC CKP-SP5 IQC"5KP/L-CLKIQCW- KP/Z-CLKIQC$NORTC IQC-READ ME ^)RTC820-2INClSIO IQC%OTKSBC-I IQC, H { ROSMAC.INC - Remote Operating System Machine Dependent Routines } {** Time and date routines - Xerox 820-II code by Steve Fox } function find_clock: integer; external $F039; { Find the address of the 820's clock buffer which stores system time in the following order: day, month, year, hour, minute, second. } procedure GetTAD(var t: tad_array); { Return a 6 element byte array of the current system time in seconds, minutes, hours, day, month, and year. } var clock: integer; begin clock := find_clock; t[0] := mem[clock + 5]; t[1] := mem[clock + 4]; t[2] := mem[clock + 3]; move(clock, t[3], 3) end; procedure SetTAD(var t: tad_array); { Set the system time using a 6 element byte array which contains seconds, minutes, hours, day, month, and year. } var clock: integer; begin clock := find_clock; mem[clock + 5] := t[0]; mem[clock + 4] := t[1]; mem[clock + 3] := t[2]; move(t[3], clock, 3) end; v¹BB2.INCX o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW-f>z>`Aʑ7F8OWa,bƶ o8Ӣ^{>f@lAp-5B1(7x*qF;oH5b6Oт4}fk{^ "{ûR j.v^jAamiHym]iO?}d[jA>d=/0w̽M,hA޿kDDG e >੟3т4 \[ٛ8,p D7Z [CSixiCf7 |ڕZ` ufWjAfUP7M,h91c~>t )FRK@A>3slÈN)7£!MЂ4 \[ٛ8,p D7Z [CSixiJ V *qKͮԂ4⸥fWjAf7 dvZ6Ԣ^{>3"Wl"ywZҢ*֎5-ґ;YE%X:r"tZ9**Bs$-f"tZ#>YE)ґrUءibFpPۜ-2^q$-&g iƗ ҽs_"I Ł ~˳3ҽǾ/C7/dHyb gtZ-ҽǫs$-c~N-~N ~<87yE֠.?x+҂4+xC ΄G8:XOт4 V .gR =p& z-HF ҫ'hA*Z*`K-H1V G-HD-HyX ҫ'hA*Z*`K-H1V [-HD-XjR)[s,#ǃ3*̤mN 0-H*ZQNVR Ҵ3rTU-SQ,)O >ӂ4dmj?COzNay=^vEf3B`K-Z[k+ ٙRKoA~)YTBxieg'hUe6~RjAX;UŪvZ™*ZQNVflbE˾05yk7kLՁ[.@TalF3:-o MsRqUv'dmv N &Z S9zS0K--ޙ 8 #b6rG>PdP`7Z9zSaՠKGdmlbEKlͱPmAaaD+xPPU1"yBaϡ:-o MWH Ҵ0n_p&3rTU7R ҴKGdmj0hRJٚc9EZZ\l#gk߂,*Ł a(O,mf:-o Ms<83)*-Xjb[&S+`K桬w1<]џC_v`KP-SP5.INCd o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcc]y ?bmȻD\G1ιbֶ#8ad6爭wq Y n|j8DܺDJ`wTq>Gn]"(aD pn\XMJGn]"(aD `! Մg &JS.gǨ&9q9!o|@Gi MD H#LKfx=1&Jimq H{bL*%V(  %W3c?Y62V%J7+ZO8S䉴w H[̆yx1i(\WQ;LܺDJ8.]XMmQ&JoK<n3CsbB>2q`}t8\?Cx[g2B&Jѫm}!L1 5L_WgoK<2)vm%)NO3cxel΢2%C%dHvASn1Q_"<.Y cDҰn[ҧ|dLD p A`Ą%cP.&$2%&'L(Οpă~dh31mØ(AVA!K'v\TD p~upă6C1!hY#2qN(.Zg2Fe Xk1Q!ă>C1=ֺs`D %զnjLG5^QiZwEl)[%J8FSa#М %J%O2c\٢0.pG<4`N(>=>{ēI`+g9m0Q_<}pē'1-™s∉ճ@'gO2qeDƈ(5·ONdo8jxqu(>=N%\>:ƕڳFd`Iߣ&J6HL- bDY#<.q!V %ޖx!c8{UDmr֡qچ˔q5dȍ֞5|B9#LN PYM҅4G]b}t8\?˔E̍ΏQX.ϯa\De5dKV|J )Q\N:ѻJMچ˔q5[ »#l-P&JhF!ΔN X?ETV@ta5W+A҈-/Spf2ԥ iĐ)AX0.f2ԥ i^ Јw-/S𺲚f2ԥ iO-.QYMsCjgJ^ѻJ q8R]T $Ftܠ.q#%E%SnU:nPxÑv1Sd۹u(wUvC)ㅫ:A!V\'# ?aR l%-/Sѻ uj2V\ )QRis4e[2%cuTuvC (l?xB7l%-/Shؐs,q4;.]XMwf̅4G]U.fJT;(w2%cpi?4b$os1~ ' '}ܺDJ;O5f3޼5ݢr}ttGNwv^v8z}lίw2%V/XgJ"{CP#n1;gJ"{"zWVJ$Fw %>p]̔(9vQđqʔ۸EW L3Z x:S؏[F"bv:ϔ-!|n3%-/Shؐie5dKVu A dH{bh^Dqie5dKVuÇ1ztɻF- %ȍ,O_eJ4;.]XMs%.3%jP.9뻧ߢ4b~ HȸO]dJdk5< *Ax;%[B]<*S𺈶eK+%L Dnf9\*S [Q@V »)AxVeȸWE-[Z)Ax.fJ%%˫*S E-[Z)A.fJΑo,-%9N3h\ʔq9ĄIBb£G(lƥG9Yǘ(g޸5iymd5љ#ܯuh [vC)iy@sņ#ߠU:n2%@KKѻ*S.'`k5< *AN P:.XKf~ʔ <.hJ ”]̔-.au\^WeKL bCJΑoPD*7 QGzYDU[62J\=}ztu=))Ax;%+i6VuIgJkCD?_fJGnfyL P(wU~KKѻJ cv1S-r%>=>{%SSwJWVlm/9>Sp_b%7Y~l}ʔ o u"zWeJD MaH{eUaʒ_Io]̔(pqtt~Cn&F>QFBdUn{\DJۜciw2%-/STVQ3%@e5LNuF>˔4395s%L PYM3S3G]yɩ.q)*if!3G]ϔ4ksjK6YYS3G]ϔ4ksjK<ϔ4ksjKeJjѐ.gJjѐ.)a3&{C1j؎0Q0ɩ.rMq|ddDL L+iFCfD*C>FsB>*L L+iFCfD VG:C1I i41F~1D ´fm4dK$2cЈZ0Qa:l"hĈ &J4395s% ,C8Fbŋ;E />aaZYM3S3G]Aa}%j93cxGȭ#mL L+ifrjKe?δ cۘ&J4k!3G]"Qcn m|bh6,0Q0ujh3c, xGmݲD ´fm4dK$2c4kЈD0Q0Y 9.O1"'n8'#_aD 1>t b8tr4ZO.n1NмX%5(q Sp_g%4{qIID 1>tM SV>kb"%nA#vJkrL&w40. 3%Jk6q76?F]BgL#3fyccL(yعui%F+A/xHH[̆yaa~ =PX7; ;D ;%h6{?b>ad;~tv( i|wHn3%J)AnG]b&d)Anu5/a)A =k6q76?^*S0-PX*S0f3K}xyʔ L K}x|)AF1k6q76?^\eJ#4K}xyʔ LGi@]b&UaZx7K}xyʔ L %l>ol~ol~W%bd;7N%zЈw| }(AlУ.1dJ#4.q)LD>ˑtzv%rd;v%nqn H>»78]F #L=npzGz8pn H>º NoWQ H/ v%2+(A|lv%rF=npzGzav%2nqUDɑƸcDImαӌWLΗ FkYeJX3u%$p5fy5;B$ wJĹu1PxFih6;h"6lL(aJ\TÎNvEu#.qQ]NsB 3%|Hi%@ L}"ĵ/8S0g2'ҳ9njG\TNsZeJL\Dzv6 }"=;vEuӜV=,> s 'ҳjG\Tg;ͩkh)A3rٯ9nW;:iN]CL i|HϞq|HnqQ]4Uaz4eOg0 }"=NqQiN]CL)9E5dJ4KIaJ9Eu)AlqQfJ4;.A\T).KL]̔(9vq`~vg47Z*S2Ɓ 4bM".@`tɻ`p5fG#[GƻH[wqad;vfCav0.bFDwJ>.A~)A\<||͆yaZp1{94;gJ>8G]fgL ´b~Niv{;Q?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aK o7x87 9Ybܖ yf'|3;;X)Q7sjìKm1m/0'>1#}Ea}#MF~d컫gx4-4' /h?π ɣ#u:pJmMpΌFY':'N9Zk+%JJm;fc:yt?6TL6Z *YbTk'va6k-hjuN@>1SY9w5q>:#:a\~Ftt7y5ĩΉSfNʳ9q*/ĩ| /XG%N1Uhmٳnw QI l*Ѐ,;-/SUG%P8F%JVt@(Un(U&*PZM z(U=}>]E%Jit:AU@O˜ ޕ5!+%Jit:AU|D%Jit7AUF%Jit7AU|(U]Xj6Y) VtηQ cXO' iTv!*Q<63N] w3c`N\s^hͨf7ƌo&Ϯϻ1`N\s^hͨf7ƌ/&Ϛn{clj0'N\s^hͨf7ƌ&Ϯϻ1㗓gW9q*zDxlF}7ӽ1fj& CO *t/&J؅D%u9)Yf1;:r2r( K @,"% VVJ K Λ,!CujJ 04ėVMG !FߖՄ%KlP_ZMlJƅ+%J~sx}UD&KhΙ͌sm"2YBsPcx3M/p4,،jYҞdysb)VJ7 ӈLB)=L;bo3d EdsL-zYF{Zc8:#{_UD&KҰr+%ٓG,Hú9zʿfFA?iG<a}xAMМ3aD2TVr2TH&cD p'dwΛiD&KC#ӎ+%Od?8o"2YqynYSIkG#dwΛL :ga#X|DdDi5XkR},pk"2Y>fkj{d 5,&ykm5VJp&"%J=簏Y6ɻXkRdM2 9GαRǣ?8n#KlJ<,Xksۇignmcxx8"лrpfqJ p{x489>.q0Z{ٜ`5?fR! Gdkm5CgS2.&oVJp25 _Gd8=k&05 2J%9y@gS2.X)Q|8idO \Ddiet4x}Zbke%uC #6.*Y0+"gߢ3Z{9J9;JI 4ސ:& ɣH3@`\@i57d/f]Jlkב)xW갮Z;b㢒%3bk54YxWք NX)yl 8*iyo= VxCj h ;;%ȞN joP_ZMTQ ;Ea\@i57d/F 2;%>N ϥ4ސ:& >xD%>@i5 Ki wkT} .(A&<)xWFUddO%Ny3Ra/v!*Q]G:]Y]G%KpeM0hjl,^O &MXcwJ+Q(!si5M QRێC)ؚB&D%KTvM H6poxeN -*`u'D%>`k[(A]JIYӋD%dk5<SUS V>t=3n1ATs d؅ա? Q 2IԷ4P]JڑYS QRێC)G%K1qG0. gBΉBb«fH6pq+Pάc<6Z B6. 9iITt60Q Ux:*ZBcvMN dCJڑ!JQ )xWF%@ ڸǏNG%jxT i {V>tm\j'ٓlM}K%Nمh UC [S *4lH P;#]:*:Un+Q l`8><'](AvJ3vJ=iydw4Kiidw*/Gf.'%Ns2T#iL#_9`k5uN:J ӑz#{R`wF1CifwJ8٣?9󗃨ዓ}x=w/s87ዓ}x=w/s8D8~r0Aěዓ}x=w/sW8D%N#'F%N_iO4JO>JȬE "x;J8~r0x " _a{9p<;Jv!*Or( K @,"% VVJ K Λ,!CujJ 04ėVMG !FߖՄ%KlP_ZMlJƅ+%J~sxvKP/Z-CLK.INCd o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcn?xwyqĸX{2n$Nɏ1cf'T?`66V~i ~~>ZK \Z..g4aDȺL-cƌ0$Tȓ?x(3DȓGg5aؒCq!+!f:Z`8:>BP<ec6xD*NOx Q&6km5J9E(Gֺw`T }"C 6'`T p2!^xRd2A絡5#k;x>7km5JLM^S40KL(nzċ}~cwzWp%J˓]Q9 ^kGO+ ]`E}~qsf GS%ld }~ca- V#k,뀩d6!~>C|?V8lJw,0U8%=)zGfxvxYM<7(2%@g5GԠ*a2%J:mGzH8C 9CƯdb В_pm 0S%#JR>g/ŋ_ 1rf'/q~oglva5N>]GLɣJS89L BzDJC)RHOBq|h2%@KWhę)6Và1,~EJםToS_ZM OM!^L`!W Z2n1Zzx-ySA,C]Zh<̗*:ޒ<T9ƳL BzDU}H!=gUIOla{ΰ=gg'>T9 >)@KƳaEa Ίb!eb-N(hX T Udq@J-ύSxV] 4 ϓ#-N Ph}JR=Z+A\ %T9>S`{ڵϔW~ݡ(}+o%^x1UlAcYV qJZBK!=g6>C8CƯd$8M ^`{ڵWf2%@KrXvdz}Hki)ZB# /V5[hl_B7/1U*G uJ؅LMFdC ڸy{)u2a6%[Z0%qs*iynlq %kZC ڸ9ٻ1Z] u5JF ڸ9o~=Q.dJtڎ8һyeJ&ѻy! S%^+ E3%@ iJ&S}vA)iyn@sǞ ;ޒ<T92D5Aw WCܔg*A\wVS%O}yj55rg_gV5Ƴk|_7һyaqxCQL ⺳-ySA,SzKjjP8n/3%kA #G/ ^ђċ)Aһ97L lAcY!X%ZkKrXv'3%_S=Z+A.dJ%/vYQ3%Udq` ~jynį-auإk3%_S=Z+A.dJ%T9>S()؞v- ^ wdVpv)+a2%J:mGzH2S2L(%qYhO Ox4% ]5tKS%^+RHOޕP$mܼk2%FXa:Sċ YgJ.3%-ύShؓwdVHNEh U2%@ ɻ7L Udq` [%T9ғw4L U ]K{%kv!S*awk{|P &q}dJT ckC7ɔ c~Jhc~֠16g 4rP=4H6`(2%I\5rP=4C)A\MACd"SY*ՇklPdJcM?O1 :7xT)!9Phr!oW+(7i[X!Vb0y»{y÷/x(n2]3ogx/M`bjqS 1?):7`1aMp:6䑤&SHF@4 h6)L#[1PIC&7[%$L;GBF`*fB&;vH?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abc̮ov/_ 3.WFX3qw?XFr.#lMq˘]f%䥭 ):x7&V<b V112fv9g,W*6p.@SĠ%.~S;P+э1hب-X3>s{֩D1vKάl;<6*'.?~]'ݗ.-5#F:2<"UFX3qA⠞zEtƿzց,Fa݀zd+5&FG؅ʈNCLcAqV3:dTgLcxL:8Ob~``]&#H1L\S11t:1Cg?g4:uevEg% 2y4:^WFNwS=SīL[K/?WL}it6 #H߾ \cg|61bd`]&#F8Jځh]Ĉ`ɟY%-߼d'*abX:Y%x|sS! TgtV #Y%-J(>Θ1lotqd8͔11̶?~x>d RrlX9&FntqB1'WL< LgHZ<y4ZpuŰB1=j#C- +$cD7Zp8!]xcX!H{V ب/эV11bdEJ.P03&FWsB0Ζ]AM4΂UfLp8ߟWHyȊ'\h`-e Fq#f6{q8B0ΫFVLm&X{V,kp8]͐~8v^!}P*]AM:Lb8D'҇1v^5"0 M11bd'FfFR #FCgTH2ƫ|N `-Żz8DzhxS!!.cbx_ HZB1!.cbȦv֡S22nɃ ̌FVČN9#L4<YyU:FbvXTF^ѷX- т<*?c6.TFlj7hJ0X;e*#c;?f÷\lv?9`vպ2r{DGJ[+#Hdq` }mx oa5 },ִjhm+PAS?_ l"oYs{֩D1vKάl;<v@TTKSBC-I.INCa  !"#$%&o'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`c.磓?_^4b7L,~5hY;؝U?c?b.ޠЎ4Sۖ*!#jC#%Zެۖf]1e+]Md㒒JvBrGͽdG+nc L#Lqȃ7 X|7!^N46d J m\8 zF:gDmht5S&J[$"2o[=v^8?[A(İeMN*)Y%7M1bSDWmp~~i|v_3LʼmY,U_W' c}9\>?]}( ѕy۲XV}}\1|%G?{o( ѕy۲XנeJM1ʼmY4bl#c$PDWmbyB_UR(+e|XA˳UR(+eB_竤$PDWmbn-VIIۖf-oVII|s۽:>^m/Xz6\> x>^y|0Qxy{1_߼uXm'G/_ⱺyG~>o/9֗ۉl\RRN].CDžknMMQ [MJ1 4<:.mPr`[{ɒ( %7GmDvE#6贠գȮ N Z_q\SKJ*YhH1m1:.| &J* -S-@JkK@pqKY:-%%>Ղ8'dr% a)Eal>|@}B&P1`$0٧ǻL!80ѫ@򀉒laSJ$<1HCb&J?gsdj29{«bdزaL~f>8~xHo!Pz:htVxb$.}q}B&p$Am1QXgȮkϏ29#mxSxU8~->@P6( \^^ ȮkW &J*9@p!< &`5]B&p,-DI`?[GG!!c&DO(eM1QXq|V%dr gɢBxpL\&Jsd_k彩LYi B L.Ⱦ8>29g!rB LȾ8~29F+lfB L5U }B8Fo`!DI%!ov0QRIGߑqW%d_81Zȉ<`4X-&J'yU5vw 1NK8*]DI`v{wgw 1f, blv;qw~} Yс ߳p( g?j=%d_ǘ AcƁq%ˋ~wVUqws} Y1qAYU&J*9#07 :Fk\DIzwgUxKJ|^UjKJUYB1Ϋ e0QxޝUO5=$dcwVU(JvBrr di@b MJqA40qL0 E ]c( RU KyxȮj`i0@R0QUc}lad5n?B CB0LJ^x$߾ov7MJ":i\7IIdW/X'%]= O MJ"ޱNJ"Ifw@c}l᭒T` Ft:M٣oc\rJ ҈qox [7Dɒ( ؒ@n7lwXiAˁ,T Zm񗿢&%N Z-S-hF$TMA^DMף'%Ǹ5]N(hqo0O~ ! غ)&JR<=ǤJ%(Iɒ( F-זJJyӡqqyz45%)%%T` Ft@@b @ǭ!^&%8X:Fk o 1v '3XัSLBI#x") L@9%NJFI}H $ഒ@ oDvUZM $~MJ"N)i$%%mNfۤ$iS6) 8ntsVU6)%%T` FtxJJqkk:-h9 $]aE}f}5RN+l\RRI%; v`D7fwI1>[;D8bJ@@@.)Y%[RU-S-hMBLyx> `$N Zd)Z }~vh  oY;LDv帱YUUۤ$N Zd)Z }$N Zd)Z }~vyDv[DWXQ(7J"{] $(FbsW1؜oFظMt18o25Ƃ Q; ym0Qb suD6ma1F,wF0&J"f㒒@n70]aEFI6.)d't. I1L\qL@AF!jք'ЍaLBI H1%%B;FG1") 8)Y%[R y 7MJ%7]R.k@tD6) ؒ@n7ΛNiR(c5DMMJEd;*ЈȮJ^x$N Z,B_zwgUDviA˙%>ՂVk^Ϊ*)ZXb5n$kǍnnjDv]y%%]FttJ"b㒒oQhǨqryq1?ٟWhFIdW%/Qu-gT Zz=UDviA˙%>ՂVk^WURٵkUURٵN77UMJ". }钒ȮKB_#:o:%]qII(cԸ<9n3Ј Y;%ٸ\04ǏxJJ1LqDg"o7m-ym@%iЦ`lFl0zDI7Jl\RRI%.]iRr}Èqn[~62S0ixSm%P.聁7*)Y%b .a oQ;mo@ (0E cL l&HII6.)ٟ?v^8?[A(İeMN*)Y%7M1bSDWm