IMD 1.18: 14/10/2014 21:17:11 mdos 2.0 mot basic 18b1 =5f mdos 0v2 s1,32  COBOL 0201141278BASTIER \lxLIST CMMDOSOV0 SY\rPPTCH2SA`PPTCH2LOlDIR CMXrMERGE CMrRLOAD CMST SA`ST LOdMDOSOV4 SYrCOBOL CMMDOS SYrMDOSOV6 SYrBASIC CMxrFREE CMrDUMP CMlrNAME CMrMDOSOV1 SYlrPPATCHSA`PPATCHLOlASM CMrEDITM CMRLOAD CMrMDOSOV3 SYrMDOSER SYeDEL CMPrBACKUP1 CMSUPPTCH5SA`SUPPTCH5LOTBACKUP CMrMDOSOV5 SYrSHORT5 SApCOPY CM8 SAXMDOSOV2 SYxrEXBUG CM2|uu+.HYHYwvz{67xS66~m? ~S@?@0201 CN0 LP0 DK0MDOSER SY p{'j?' &9&l =7 _HY?)=?#3 *57='>&ܽ03'_\'05533 }>&|>Pm'С&~o 3?m''?' |4&|3ih 5 * $! 95;799?;.;9?7;:597979566$|5:&99979:G88$|7 0 7~626 29DDDD09#90 138 "#$ % &  ' ( )*+,-.INVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs~/ ~1 ~3 ~5g0_\$uH6@?% 20 ~V S          6666666666 ~  >>>>>  FF {966~966&~A66+~I66-~Q229 N v M'  * /| x?%( x& z? ? z? v9V S  ~~66666666PO'н$~ RR?R  RWP '; YZ9R ]]?_]$~Y?'_g _ gUOT?_'~a&.%,_e[%& % [[  ~$~cab%'P &_~xaaR'$ a&~RS?&$ P&aRPm &m ' ' gc'~c_R[__[ [&OT?P &WƀO?ZWc?1?1U UOT?Wm+ ]cg'KR[_ $[\\?,RcY?)c\Y]] gR&~=] ][ & ]] a_R?&$SaaR?,Rc?(c[aY]~eWYgh&^gXXZe?'_bʀ]OT?P &UVP _9Pghef_` ۽XXe?'eY~F 9     POWP &~ɽtmkWii?P'~P]TTT-#~UVOT?]XXXXW?''~ƀWO?P UOT?Po o mm*~]UOT?]* OT?~R_%S__RZR&]] ?0?0[W]]*~ͽRS_R[\%R?.[\]][&ǽPʀ]]Wt?)]' ]oo OT?Y~{S\\_?(Y_\]]~_`$9 W?( 9TFVFVD6YYYO FZ,29__9[ab$ [aec9b|WW\7b?%39ZXX7b?%3O?*9]WX?-bm?)Y9н$11~UOT?Wm+ \: /11~'9 66~~~W~@~u~o~r90909S0op]''d*&ց.&PƂp]' *&ʍ:& 0?p 0?090 ;' ' 0 l&l9u #'zƀ ?6Bŀ& '@'?$ @?%?0]'Z0T?%0 ?')760' ?0 ?23*& B?$?$*1906?290?ƈp~6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%;'?/'; ~ ~~;'=;DK&~=J0 %Z=]' ?(Z ='=oo' 0=>=0  @ ? 09 0 =? $ ?(z?& ~6 @'' ?2oo?3oo  29'~ '~&~|'''~&'| &&o o  's$~?@}&~'~}*~%ml&l &}/%}& |&Ͻ 0}& }'7%"3&' &  ~$~~(~$6~&%}'  '!}, & '  $~%~}&| &P~9}. ~% ~% }.~9E}+ H}'D~$~O}+ ?.]'~ǁ$L}&| '~%B}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9X~~>>> _B@>@'~/&~1 &a$~<CI@}B&'''~8~}E>D'|D@ - Z.k$~<%_ F$~@}D'Z_& 'M&ZJ@C?%k$~<&~C&(%@G@G?/'Gk% L'S& &8@}D'}F& $~<}I'~@}C'~IU@o_96'&|I]*'G zG' ~$~@}B'H' 6' E&|I D' J}B&t@&iE%K&~Q}I'&}B'&zK' %ؽ %}J&̽% &@&'m&jj~; 0] 9 U  }B&   7>@39>@9@@> @9@ %%"$1111~QXXXX% % 90%% *% 9}E+99JJ97 &a39 k% k9@?/9@}E&M&ZJ97%3b@9C39>9   >>~~X~N'~B PQ&P NNo_9P'' N '~N''&?8'~:N@' D &'8&]'/?/')N!"?/%o N ?ߤ]'~:Noo&~, &QN'~FR VDDD-#~JTUS?RXXXXV?'?N S?N ?'?"%~,0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~ 0 ' & ?$~ӽ'M    '~&& ?_9 ?%~ '   ?' ?'??  @?%!?&~e 9   ??9HHHH?(VVV9"(ss~yFr&~#@ &~'tr''~Kt&.~+Wo_9t'r?'&~~| t &~/at&~r ?'?$' ? ?r&~~3r' '~Goo oowr yv?y*~7r y:m+Z&~7r~}'~W?6'~m ' ?'wry w?&rwr ?'yw?~r r?' ' ' t@&~/ar&t& r62''& t&~Kt&~r ?'?$&~;&~?&~C ? ?r~C' ''~K}'~rrr ?'?$r?%?'?$rW?7m&~~t&~+``&a~0] 9           r9tr$11~O9$XssF~y~:@T8vRASM NOL,FTNCOMM:1,LIS,GEN1:1,GEN2:1;RUXLN=120,-O N:1 120 ,LSO=RASM:0 sEND CHAINHHHHC'1~w? $0 |  ?' |? %@'C\&|0$ ']'Z 09)~w~||~9*'..'*WJ'tC'fL'_^S&~^T'%2 6~'? 2.&4? ? $~ #6?/  2~Ѷ~ |@L&W& Ҷ~ O 6?&%2M' ~&? ||xw_?9 &4'3~w+4 ?& ?&? ~y~?'||||62&~9 ? ???oo0+( # + . |7xy~Z&3Z&9&p~ !_?o_!Z?!]!0&%!] !3&!_!!a!_?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!*? =3O? ? _3!6!:!80CM!C!6?]&*!6!:?'''' ? ~ !S? ƀ?#~  MDOS . !f!WHAT?!f!cN  ( 0BCOMMANDSYNTAXERROR 05NAMEREQUIRED 06\0DOESNOTEXIST 08\0DUPLICATEFILENAME 1BFILENAMENOTFOUND 1ADUPLICATEFILENAME 0DOPTIONCONFLICT 30CHAINABORTED--BREAKKEY 31CHAINABORTED--SYSTEMERRORSTATUSWORD 1CFILEISDELETEPROTECTED 24DEVICENOTREADYAT\8 0EINVALIDTYPEOFOBJECTFILE 0FINVALIDLOADADDRESS 13INVALIDFILETYPE 1ECONFLICTINGFILETYPES 1F\0HASINVALIDFILETYPE 27INVALIDDATATRANSFERTYPEAT\8 22DEVICEALREADYRESERVEDAT\8 23DEVICENOTRESERVEDAT\8 25FILENOTOPENORALREADYOPENAT\8 26ENDOFFILEAT\8 29BUFFEROVERFLOWAT\8 2ACHECKSUMERRORAT\8 15LOGICALSECTORNUMBEROUTOFRANGE 07ILLEGALFILENAME 2BFILEISWRITEPROTECTEDAT\8 20\0ISWRITEPROTECTED 09NOSUCHDEVICE 04ILLEGALDRIVENUMBER 12INVALIDEXECUTIONADDRESS 0AINVALIDDEVICE 11INVALIDRIB 1DTOOMANYSOURCEFILES 16ILLEGALSTART/ENDSPECIFICATIONS 17ILLEGALPAGEFORMAT 14FILEEXHAUSTEDBEFORELINEFOUND 28ENDOFMEDIAAT\8 18ILLEGALLINENUMBERORRANGE 19LINENUMBERENTEREDBEFORESOURCEFILE 02DIRECTORYSPACEFULL 03DISKSPACEFULL 10NOTENOUGHSEGMENTDESCRIPTORSPACE 2CINVALIDDIRECTORYENTRYNO.AT\8 2DCANNOTDE-ALLOCATEALLSPACE-DIRECTORYENTRYEXISTSAT\8 2ERECORDLENGTHTOOLONGAT\8 0CINTERNALSYSTEMERRORAT\8 21INVALIDSCALL 2FCHAINOVERLAYCANNOTBEFOUNDORLOADED 32CHAINABORTED--ILLEGALOPERATOR 33CHAINABORTED--UNDEFINEDLABEL 34CHAINABORTED--PREMATUREENDOFFILE (,*0+ !0204CN0DK0 LX !#!$!$!tDK0 SA $ 33ٖ= >O?<3qo3?8 8%? $|)~'!$ Q?!? &3)'~'^~'і8'!$ '?%LE!$!FFE'%1F ?H?FG0 B!f-*&1)&~"^f42 '&^ !{!y.~" ' '< Z+- &   '$'?$ .'?% "& ͽ/---!T-ɖ;& >9  '@& &*E 'ս/9* :nͽ/9&!  .w_+ DCCD.~"37: '9 %%$~$/C3/043%& ]+ &]+н/49-[-\:&~$ &][A' B&S;@;!T-[-\[#'~$-:'*%/3:') S% $ҽ/S9̽/9ѽ/O34; 9T!%/3,&D-X&ֽ-%%Ɩ:@'Ȗ3'ҽ/ ;; 9X&[,'#&~$\ Ö[ 7&3& :' :';0 \A%Ö[A'B&+:&;; ;;!T:&~$7 ƣ9X&~$i~$J ' ' 943'&]+ 9/+-.-$0,',*'6--$$,' +'-'/'*&}.' ~/9'9-- ƽ-80-+'-'*'/1/r /21/0 /21 /1/ 12!z-*&C19'&{21t&'91$'O@'f%&~&f?%~& 6?26 G&&!6$'?$ ?$ .'̽/2 "'ݧ _*Eh19oo0|+ & H&A~-oo0-8* & O'Q& ooԁ0'1&Fii B& u&ؽ/񍴍j'}%&!x z!1H&~&(O'Q'B'x!?$ؽ/9-?%|XI| hihihihi95'' '&5}0z95}!9 *+,-/%&$ 6 $&%/3 #2 &*E.w~#v%/3н.w)'v.ƀ+('+}3!y!{A,6.#$20B2!y2!{2M.+@)ٖ*&! !!u?'?''_? '?''_? 9.|%+}|))!?~!-]! d\?%3-?$,'d! d!%]1&2'\ ̽/\- ']& ;.w!bd!- '& !{b!_+CC.z\'>?-}]']'0 &̽/ % & -;.w_+CC=&.z\&~"7?3%9.--,' 7%/33.w_+CC9=& .--,&=& 7%/3% $7ҽ/3;3.w_+CC98'-3 ' -[- -3&.w~#v-_N& S-O&5-O&B 1M&S? (L&@ G&= S&S( P&A ٽ/ - ',&- %/3C ~"@'9)'A&!y <\'\' !{<~.%/3.w/0DC~#r%/)'<'/' /3!y!{. 3qY  2 &Yn'*/ C   qrts%~++T '+I  &n'Kqo *&)' *K ܽ/ 9  &9q`sqo+h`s&  * *ν/+h h9oprq% ӽ/ y7 ㍥stml$n& ӽ/ y7sqo,qs ݽ/ qZ&q9 Wq42Z&W9W q2Z&qW9jqu!y!{qrts% !{u&-9q)'*G +A!{ //zu& !{!y &.+I !{+I )'hOVH&F*&BB&>-?H3f- NWf2fW-n-&NC-n-z!-!-RICJV*~-#OO&9 '}I&%6NI2o2&JL2L-nM-l2JL'W O0|HHHHO0|}?'#6JK"!% 2J& 6>&ڗ>/2-lJJLQ2'~,[~,[6I2Lm&D6gNC b !22U2!129}I'Ȗ*&B&N-314-NC(-!-!*&#B&!?$ }}_? ~'9Q6NN2/Q9S00B0000 S903 7_ 7`!]' '!`39`! !`9x0&& & 2&݆Ͻ/_39:z9%&)'k,&g@&c+A&B|<&=!y}!{Ɨ<&&&'30B 332!y3!{ }!y!{|!u?$|&_? ||? $~'9!xT$ C/ۖD/T$;/T$4/T$ 3/ۖ4/T$ 3/ۖ4/ۖ%'^!#2 '&^~/_T$f!- '&T$)T!9&--- ' '@& 6]'3T!]'(vvw33$--- '& !{!yx!9767640m + Lhi+&oo$  iidfj&111239766660XIhi$j&1111196DDDD20:%9d)& 'D'@'<?#|%##O2. 22!y߂!{߄2!y2!{.ނ!yބ!{d9`0r[%|[ 6b`[02`b0|&9'd 0+9/ A+ F.9}!9ABAADCԉADDԋANDԄASLJHASRJGBCC $BCS %BEQ 'BGE ,BGT .BHI "BITԅBLE /BLS #BLT -BMI +BNE &BPL *BRA BSR BVC (BVS )CBACLC CLICLRJOCLV CMPԁCOMJCCPXЌDAADECJJDES4DEX EORԈINCJLINS1INXJMPHnJSRHLDAԆLDSЎLDXLSRJDNEGJ@NOPORAԊPSH6PUL2ROLJIRORJFRTI;RTS9SBASBCԂSEC SEISEV STATSTSPSTXPSUBԀSWI?TABTAPTBATPATSTJMTSX0TXS5WAI>END'KEQU'FCB(FCC'FDB(MON'KNAM)@OPT)kORG)PAG)RMB*SPC*****ERROR TOTAL ERRORS COUN S1 --- PAGE12345  MDOS ASSEMBLER 2.04 COPYRIGHT MOTOROLA 1977 }!}?&]' ? ?}!}?LX!!?%?% ' _? ?,+#O?5z|\}}z|&nZ& ? ?\*&}=&!}?Ň'~3\,&}=#&}CN&!}}} LP!} 5 \ \S( \ׁ !u?$~4"?%*& !?%?%3js?$ ? ~'!?,l3? 9;4 4 4>-4G4L4O4`S4,4> 7 h! $0200 _"""g"")1#  "u_""" SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER  O? ' '$;&Y$С' $& :Y 11!+!a&!s. ? Y'?O)L1!.~$~& ? ~/!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-+'&|' " $z $:A$C$D$I$L$N$R${S$U$V$sY$Z$$&-97/QM??$HYIOPO}!*DVOPDVFNMST_?/"f!+. *,&(*,&(%>MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~/~/~/OPTFTF[\Y*,9HZ&;MC&6CC'|C #C,CC&|C CC|CŽQ9CJCW_M,SVVCCVCCCCC۽V]9CC޶C݁$#|CC,|C޶C_M,SCCCC 9CRMC&CCQC&V*Q9CCڽICCC&C. CCC&C'CC o9RQUVC,CV*Q9CVCC݁$#|CCCC_M,SCCCC 9SVCCJCW_M,SVVCCCC۽V]S9CݶCݱC$|CCCCCC 9CC߶C "&$CCCoC 9637C3 63D6706D& JVD DDD D2JJJ&D329770_F$VFj&119W}Wd~W1 DD*sDD9Wl>j~).<6ueD0_*F?$ ? ?DߔO *&~,x0nANތB'AN4(')(4($4('(O1100($ *,.,'*'AN+zAN& a'6~*[6? $~-^ HC]ޔ߈6*&~)}6'[}' "0j"["Y "Y]"Y" 4IHn4($$I~5Y ~*4%̽$]'ZU)C-$',-' U6)&e& ~*67e U4(zU+ (,& ($~*6~,xeu&~* e 0j ½"#w6)&[*>a~)"CZ"9C߈$(ވ5]2M'0"&}>_'>_ >_}>`'}C& }>_&,' 'Z& o40(>_>`96ވ' ' &2߈90n4&~*4("& &,&40V>h'>>?'~>'o>l߬ !߬42$P4ެ}&%i$,M'>h' >l"4~>0!˽"! ֽ(- "ٽ(,&߬4(,' @M&~3XI& T&D~B~*(J-' JOLMN/{]&^'($$ .&M 9 $%B0&}L& }M'zK L"&]'}N&Z HHHHsN&}M&|K" }M&.&M _E&-' +&6 1PK"]$"}J'& 9"7]oZ&K3"9$$~*0$% XXX0942$h4<.'>}' ('*"'- :<ޔ߈<&N% -| (.$ '~**'M&!& "٦,&<4(,' M&~34(#&3-9. 0>h?~3~>.<4~3"-ߦ'1 "9 #>h4(#&%','~24$$'-ߌ + .0>'>&(22~*>h9BߌߎHH𗑆ސ&&~*90n4(M&X ;'->h'"?2>j ?$>l>j>h?'22~>'?3 "@6~,x~* '6r"Ľ$Z@/#wZ&D &}&o 0V(,&@' #w ;&~0M' . O06}>c&}>h'AO>j>'>jAO "Y27@\ѓ# ђ$ &"_@39"T$OMm& }& "~#wm*-& .>-:M.Mm*)1z'l }M&1&j&}&R$1~2 1&1~#E1Z*-1POL *J 11~1֩$ 1&Z& }T&9"]7m&Z&  "39#% 94%~*(=' }& %M&" @&}&~&IM&޽-| -4%̽$04ז 4%̽$ % T )&~,x"4%,' )&4" 9%&4" 94#)%~*M*4c$$ _$4(,' ~3"&׆}'$$ F"FG9M&~*""6Q]'Z'Q$}'$J& 2$}'$J&942%~2}&4]$QRD0QR_'&& 67&'$ ߌD&~*_4(='~2%̽"ٽ):!&4%4_"˽$_4):! & 4%4 :g_"˽$_4(&6_67_~,x42%~2(&6$_D0'f_D0'[$$&&a"a$m*O"'o"˽$a"5$a_~,xo"a"a6  ~*4&IO}'-&}&~&I4- -ߟ(5 2M'& ([ %4J$~34)Cn(=&9<&=&9>&99>'~*=&9<'9'$6OHH5 !! 2 Mn' + + & '+* 9 96l"g"96l ]/' lZ o$'2$9c'J:g$}J*&9Lm* 4((&482z$$ il";"(p$&o$'2i"9$94%&493%~%2$7$RQQ34~3@L9ӽ$RQQ9"]/{ _d\$Zd&_ \$Z &$'2$"9G)'~%24-ߦ69OL]&J69ս.$'~*$9(,'~%7494&}&~&I9%&4$\7I$ ν3G$$H%%~*\7$H$J-J* 2J(5ވM+3J]& o(߈׆$9%&4$H$-7L]&J36*Oވ |>`6r$ވo 4%̽$גWW~33$~&Iތ"@6@8ߌ|>c1>c2@"ߌވ o~7ވ߈94('kF&gN&`$s%X((&Q(*~3#)@$'<RQ4c4()&'(=& 'R&$$ Q&ʀ ~3"~*4((&M".*'C!')( (&(#%"(($"%&"ٽ"$%̽$"49#~*6rZ;"'$5$;"(p'9S;"'$m+ ;"'9;$N$'99 (p"9]$]&~$"˽/{$98ύ<" E8􍿽$:g<. /,/{9A7"(pA"$'3Z&"(p9/{]$ m' P $'$o96r/{]$N/a%oN$;N'* 6"'2L 6"'2J "ˍ3'9S:''9E9d ;ڽ9$(p"'$95~*]/{$9]/{J 6r9S;"'$5$9S]* &$P $7;"(p';"(p"˽:g9d d3-9/~>>' '>'~ AO ?'>f0SA >d?]&]>d>dU' ZO'ZI&GAO 0 DK ?&?'A1 %&$>d'~=r~3( ) 0 1 _? 2 3~*AOA1 7@{&&??%?(@&39>l>@{@@> l>DK >?z>l>DK ?{?>l>DK ?@z4(#&83-29..0>h,&&?&?&>h~3~>~>'>&> >&> >&>9C'DKCC o?&?'_? ?~)&C ?.*&9A?2C ?&?3 ?3? 9AQBچ  AQAQ HIH &  AQ AO CAO9&9AO  AO C ?&m?&i'~>.C ?&Co߮+ &DC&:C ?&4?&0DKCC*CBCCB ?CC ?&?&9? ?B? ? N'Y&AUC&C>;C ???SAVE(Y/N)%9B? ~)PRINTER ERROR  7DDDD390:%9C0 SA MDOS BASIC 2.0 COPYRIGHT(C) - 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9pqpq#LZXVS9XAZ*$+-.,0B/CD@@@ ))QQ@@LL :DK0ZZZZZZZZLO@#~F~GnDK0COBOLIB SA""PDK0XXXXXXXXSA#$D0""PDK0XXXXXXXXSA$E$0t&.+80\0^&]E' C') ~'/^~'K[^OZ&MMH_M,S00highWW&9g^K' WhW~'WYM[MZ(Y'~(YM^$L~(gWh9g[H^H_M,S00hihh^h'hh&9~(chWM[MZ(W'~(kWM^$L~(|g9Mcd^cdg& dh cdhch^MoooM[MZ(cMZ(M^$L~(g9"0 a][Z/~) ,[]]J&JZ(J&Y  J@'&Y  J?]&Y  J&0aa&Y  JLK * *'*+@+8+CKX)zZ-n^K~)aa[a#*<<.>K&KZ(K&Y  JKLK )*)**)j)KX)׽Z-naa+U]J|^aa~)|^a 'a~)j[_9[$& ]t^[[9^/+U(?g.~*h]0&~) Z&S'w&+U'[a0, a['&'u'DK'~SA''v?&?&~+8'w +U]&^[J_) JZ(`96" 3/ ]`9 'Ķ# &]9_]K[KZ(0#_`HYHY`_HY_`#_`K^$L~+9-"a~) ]_M,S_` ]9L.+/6L.b# .Z.*.|&.{].&a0%) ~+) ~'* ERROR ,&/-'.M'M,|-~,a&A"&*M&,Öz,ʖy,9,Öz-%y-%-69M,Öy,ʖz,9|'/q+U|JHHHHMLM{y'M@MM,Öy-%{y'-%Y# - &# #s+Uz-%9| +++Z(}"ͽY zWz&%XW&&XMHHHHM,Öy,9MM,Öy,ʖz,9-69MM"ͽY MYY&Y-6NEY9@"NWMXEY~-ZY# # WXYNW-69,ʖN'p+U9W76ց/ .B.2M'@'X6ց/0.O2 & HHHH BB-' TTTTZ--2'ց/W.OWXBB ց/0.O24BB39L".R~/>JX/6:, /.~=. '?%&?CB#%HY$|%%%%%%?&f%#%%%%?&S%?&@%#u%ɧv%ʧw#xzoyo{%?&%%#?%_? ?SIZE: PROGRAM DATA ERRORS IN PROGRAM 0\0\#WBCB# $~'$ٌ' @@>Q>$$$$"NJ ?:?J?Q?q???@z@@?JX?Z-ny&9"h~N9ym9|yy& +U!%"%#%-$$7%.D ?M.. &m b E ˵ (&a b#C%c dD#efA#ghB#fu"˲!!x$x%$%y>z'U2Ҟ-)w*y++> ,E&k3.L/20l1S224Dr56s878t:9)ѳ<;wv=">d?E@fAvBtCiiucፐǜb󥖗CDf˚לӥҢӝXvYHL2{2pqcccf-734(56+-78,2)9>:::::1M(Hɀ)Fˀ1M MbԀnToT9V7VV2M3M-@(Hـ)F+C-D*A/Bۀ6706& JZ2JJJ&329770_F$VFj&119& 9Z$|9 DELOPSZ&."oJ&@o&z%#J[=' '* |%"%""?']-%? ?" /Q" #ZZ?&Z? '(;&QQQZ>"%' Z& Z?# Hcւ'=[OE~'[//6[C/6.9M6800 COBOL 1.00 COPYRIGHT 1978 BY MOTOROLA INC.  0201&+)]&-&+?'&~  &~$)^DK&~$)[)D)D)&-&+?'&  ')DK'))D)D&+_ '+;' &+ ' ')H&&+ m&~%)G)D &~$' & )&)')D'~" )&)]))&)f))&)^&)&&?PS)G'~%P)G' )T)T )y)y)S?'~$?&)G@'~!)j))k))l))f)%)y)y)x?&?'})&})'& )) %)S?'U &)j&C)d))S?&?&)'/))x?&,&&+'%&-&+ ?))x?& %!?)x?'~$&)'/))x%k%)S?'L '~$)x?'d &)j'~!)d))S?&)x?&&&+'%&-&+ ?' &)x?' '~$&0&+&&-&+ƀ?&~")d &+)&-&+))? Ɓ?#~! )&0))D&~$1)^&+)&-&+ ?)S?'~$?&)j''~%)G'~% ' @&HP)&'& ')jx))G'&dž)y)y |&/)G@&M)y)y)x?'~$?&)G '%)S?' &~!}&/& )W)U'|&/)U)~)x?& CN)&~$(:)|)C)~)G&|&/%k%)S?' &)x?' &~!)? ~"}&/&)U')x?' '~#I}&/& )z'|&/)W&+)|&-&+&-&)z& &+)U' &-&+)U'&+ CN)[&~$)G('~%')D')T)T)j |&/)^)D' )&SA))&+)^&-&+ ?)S& '?'~$?&)j' ''~%)jx))D&)^&+)&-&+ ?)G@'~#%~#<? %!?     ) ? $%!?9)S%L)y&)y&)')y)y)x%L9%i?''_? %i?''_? 9)x& '?& ?&)? 9~$)?'9)ŀ'~%)j' '~% &)D& ))j&)G'9)&+)&-&+?)))))? &? &Y'ƀ?#%!?H& R&)E)F @ o9*NCWH V@'0(9DK0 SA&0&'0(9DK &0&VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l*.*. #0m&jj*. Z&*.96dfJ&29  *` *r$ 0 011n**oo<*9**4< **+ *&z*& *9*<x 0200O"%" '%;& 'Y&|" S&|% ' 40" " ?" ""? _" '\J' " '? ?"!? ? $?" !?$~!!&!&%&" &׶"'Ɓ?#"˽!"? D!&$"& "!"? ? %C"? ? %8Y&" ?$ ? ?"!"? !J&~ y" ';'~ ;?!J''ƀ?#"!"? ? ?&~!O#$ " &z# % &!9 &# |#"'&"&z$  &$ |$"'&" """ "?!9#+" """"?&$*O J'"" ""9"" ""?."""9 """  DELETE ? IS PROTECTED DELETED  DOES NOT EXIST  0200O$%&#L- $$$j0$Y$Z ?%$Y%%? _%ئ '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !_$Y$z' \J'~#)$Y ' %$%%?$~#)$%$%%?$r$% $Y& '~" &&" "? $~#"$Y?$~##'#&"J& !&$f &|&#!&~"#$d%$%%ν&O$j'('%$%%ν&$Y$d%%E%%?$~#)$%E'+|$?''*$%$?)$$%$%%ν&!&~"%E*&"%$% %?~"00$ $?%E)(''?'%$%%ν&)(''%$%%ν&$$%$ '$$?$'$57&)+*@Ɓ?#&$% ))+? $~#~"$$%"'~#-~ _+, $Z&z+  &+ |+$b'&$b&z,  & |,$d'&|#$Z%%%% ?~ &ƀ@?#&-$% s' ? i&'!',$%&c%%ν&$%&h%%ν&&F$%&(''%&%%ν&'%&%%ν&&j$%!'-Z'$>?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9 $0200 !h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!!"0#*7#'>"1"""l"+""=""U" h h : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? !ˆB00/,)# ? c? + %,'~'*s 'ޗ *' *&~$"#*s!B'C'D&0') ')''}/&*  '*sB& & T" ' &N&F#ƀ~%#Ɓ |+'&,*'"G') &' ,&'ǽ*' &G)#n %*'/&H"(|,M~&#aƄ #-Ƃ,!?#? ~$)t(?%)~$)t *s0-9.6*s &)t2%70~$#ƀ~%!D&'&q("k?(')%"ƀ*3"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*s*s"&*s H & ƀ?7~$#ƀ~%-%)( ?('"ۖM& |M*s &~&.)%.'*mH*s &~&܁"&*s. ", *&"& *s"&*s  'Z|. -'H"""ہ,'-&J6 '*s &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&?#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*I" ""۽*I#&? ~$8(~&,~$@ @(!+&BB&~'C&~'D'"( /&"m"ƀ*33"51')7&~(8~(&C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*3"m')*?/$ /'֌&і0!A!()$~("*M"*M"`(? g9";"="*I9*I99 -z/.==;?L?&;M&? %'"(?&')''@&~(zA&(~(~$?1% ?1%}/' 9}@&? 9?2 '' BZ& 6#?52:B?3'?4 ?59}@' BJ'# 9K)t%Z!K"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*3!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*3 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7NG_*%G*HHZ&KP2PN]96ICEIC?29 6*k*l*i*i*29K% K%%K9 '9C%6F%L'17O%.Q%&R%dS',7U%;W%]'/l&l**ݦ #0m&jj*ݍ Z&*96dfJ&296hiJ&29A% 62% 0%62%900 1 !~!~"v~~>~~8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED 8 o&4n&U_GD:T15T1t5R1tV+5P1t8/B!" *'{''"U"U"U'{"U"U'"U"U"U"U1`1j"U"U"U'"U'X"7n5N1t 5L1t~"5J1t 5H1t!&~"~"|5P1t8 " *'{'''(%(;'{-",'0(('1`1j..('+G'X"7nEF;=><I45FbA#5pqrst#0&'95D$''95B$''95N1t~"A#55@$''' '9"5>5?de598p7-$b &b~#Wbf9# z#- 0"9#b"%\#"X$,6--2b9"*-.HYHY.-HY88_M,S88-.|$d57' bddbb~#$/!-8p5V$_M,Sgfbc -9#d'p8d5 '7&9'#$L~$'98b 8A#5p '8!*887!38Ӷ!6855853488b88!*78!38ʷ!68,8/ F'$~"^908!*78!3:!6.9%&$=&&8 &&8 88885185/885548&&8&!915-1~F'$~"l8' &&8&15+1tF'~%!98'&~"f&& 8&!915)1t~"l0#5p &IU&9&9p8|63p863-)b-&b0#5p863)--, F'$.~"^9|~ ߀߂9/'9D(D5'15%1(D 5#4Y'GB&;!*887!38Ӷ!688518߆55488'~2 |/~"l11!*887!38Ӷ!68~(,5!^58![7^\^&i58O7on{zMN. &$58O7NMMNM8!e5V!i88S6b151t9^78![7^78|7$~&~'\^\^^'787#^9& B$цA#5ApN&A5z9k z19m &9k/&~"v& $цB9k5z~0& 1D14|D1~(D'1D%&^' ('T~( ~"|^1t9$9k3B|/~"v.0#5--)%&^'>>^\^'T~(M~(s~"^>8!k5V5 1t.~"||;~(|=.%;&+I''D(D5 1(D 5#4Y&~(~"|b &b~(HLbG&bG^~)b,&!bA& b|H~)!0#5-'.Lb)b=') &~"^,~),;'~)b``)' &~)d`|,~)L```)' &~)`z,~)ibj&^& ;&.~"|KJ,,+3^78z77^`zd='H `+)b+~*b`+' &~*f`hbff ')'G' h'~**ffhh~*f'' &~*)'`dd``~)L' |KK'~*=;'(~*fbdl `+ld)b+H'jbh`J~)J h+ d,-"^dz` + d~*z{\^z^dzV'(/J' f+J~*'Tjb~)ffG'' 'fdG'd '9zn% *'3J.~"f9+M~"|b '+3/5!^^\^&~+78p7$~+`^78p7& ^\b &5 1t9p8z77zdbddbbd '~+\zz{\dz9.F!*807!38!6:$Ab('~-b%|8787b)'~-b,&b0#5-&~--8|5V|87&^' 78|7&51~^\^zj1\djk\d'$d\d78\77%51~$/~"v$~"^.0#5pN&(9k\\'oooo &\~-;~.v-& --8|5V587b,&#b0#5-& --85V9k\\&~.v&$787%|87&&\787%|87|8\77\& 886b8|7$ 51t.~"v8|7\\~-/.~"v|878798|7879|<./W%b,'.~"^bb|87870#5-&~.-85V8|7|87b,'-~/Tbb0#5-&~.-85V&`\^\X^ZW& ~/8|787|87#~/`&& `\^^&.~"|^X'Z&`~/<&^\` +3^`^\&W787<'&^fz^d f+ dz^X'Z&~0eZ[^_X8^77V'(<'87&~/^\886b~/l|E.0#5-& --8|5V587b,&#b0#5-& --85V|8p7~1.s886bp8 7 4  &.~"|4b+M~1#'U~"l#'V~"l 4$~"l &!* ' 9}D'}E&~ ~ 1}D'|TT:-B-T9T:'  B&_ \:&:T9d+'3eDK88448'%! 44*'3J+'3eF'$~"l+8d8Ķ88ċ8Ʒ8dž448'~2*@8ׄ'141~!F'$3J~"l448 &~3JM'~2 F'd8Ħ0% 8Ħ9#~2 887$~2887#~3J|887V'8Ľ1~8846b88Ād8 d388doo8z+388ċ8Ʒ8~288*448'~2 +448'~2 @&951~9A'=8b8`b8'` `b b~3b`8ooooo98Ħ0%9"8Ħ0% 8Ħ9"9@~3^@+'3eDK88448'~2 +8z8Ķ88ċ8Ʒ8dž448'~2 *448'~2 ^\^&C C\88Ʀ&8~4q888Ʀ '8~4448'~2 C&~4~4T~3J?94~4?6E'28 18% 2 8 y490001!88$!0010!!x!!k9m!V327670000000009k!!"!!M!9j888u p d 8 !E!8! ! 8678]*|8S88,@07238Z&*@ ,7p878%|8 68z88"88808827& }8' *-89867068& J6888882JJJ&8329770_F$VFj&11980'070'70'07011n888*0S8 88 88 8'87@S7|S 8 80 880 88 8Z&%8'88*S7*S  8*S8'J :& Z' l 988]*& 888&886h8' 987@7|~688&88888' 8 88 8Z&889z88iZ& l88898888&8Z&988888Z&9CS988Z.9'd & 9Z888$|889 MDOS BASIC 2.A1 COPYRIGHT(C)- 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9 ~dP 02000!!z!!|!z?!0,? ?3.""!!~?"""!H%|"&|"|"&#|" ?276"""?/$"23?3"" Z&z"&"""z"/"" """""z"/"" ""!""!~?"!'&|"?(z"&!'! "!z">!|!z#$"""!z"O!|!z#$"""!z"e!|!z#$""!""!~?!!z"'!|!z?"? ?!! "`"9"KDRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~# l&l# #"###!#"#o%#l #670 'Z&32#l&ll&lj ,# m&jj#l&lj&#"O9'd ]'/l&l#W#W #0m&jj#W Z&#W96dfJ&290 0200#$##?' '~"~"%B##?'+~"%M##?'*%C"%%N"%%C'}%N'%N&%O%P%D?/%# '{;'# ## 'd 'H&|%> L&|%= ݁N&|%? ԁF'~""'$~"%a#"%@# '.&"'%%a #c"%A#~ $#%t##?%}##?$%#?'~"?&'~"}%>'%? %d? ?'%}%=' L$(P$)$ ?'~"?&S%C&%D$ $8}%?'$@#$$}%?'$8?$<#%[##%#?': &/}%Z'}%='}%]' %A%]##?S%C'%N'~"~" '~"L%C&:%[%\%D?/$-? %%[%[}%N&~!qL%N& %O%P?/$~!$ }%]&3%q#%X#%X#%%d$$%$&#g&1#%]$8$$#$&%Z#g&|%]%]%A-%]~!? #?   ? ?     %Q%^%F_## '0-9.\# %F%F %^]'&%)}%`& 9O9'e#fL'S' 9m&%^%b_ '\L#f'. . %^]'цL#f'& &)%%`%a%b#fL&' 9$&$$$%?-_%@?/$ $$J?($&$$ ' #%?$$?/$?% ? $11~!$ ?9$ ###9#?''_? #?''_? 9%$$%$&$ 7?3Z&9$8$DK0 SA$%<CNPB PAGE XXX XXXXXXXX.XX:X %ENTER HEADING:  ]&~&l&l&&&&&&&o%&l &670 'Z&32&l&ll&lj ,& m&jj&l&lj&&O9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+'oo''l&l'!%'<Z&'9A% 62% 0%62%96hiJ&29 h 0200!a!i!c!a?'  ? ?X%|!` !a ' &~ !a;&!a '!a 'kM'V' P'"('*G' !^!^!_!_ dž ƀ  _\)' &~ !c Z'!a?!c !a!a !^&& ŀ&'}!`'A!_&<ŀ''4}!`'5!i?%?Z& !ZZ&!i Z& Z& Z& ? ?ŀ'6n'!]6!\644446n!'0LO!"P 0200%'*% '* '3%?''~$}&&~$~!%&|'O&~&|?*|&}&'&' &&-~$\&SA0 '3&'3'*&'*'*?'' ? ?}&&~$|'~!}&'~!C&&'7'' ''~$'7&'7''8''3&'*'' O%m'7&&x&&t'%)'&v' %+ &p' 'b?)'b&ZX&?''*';~ '7&'~$}&&7&' O%m&x'~ &t''?/%'%)''?/$' }'&A&'#ƀ'7'~$&' '*';&& }' '~$|' |' ' &-% 'h;' % 'XW&|' % '_'% -~$\ ]' %?+&|&|'%&~''?/$~$?$'?/%'' }'&B}' &=}'&8'+&|'j&~&|?'3's'*'v'j? &|? &|Y'ƀ?#?%'*&|'O&~&| ?' ''\&&~#('E?'~$?'}'b&}'c'&'b'c }'''X'V'*%%?|' ' &,%%%c' ?' &?&?'~$'E?& ޽$?'''?-&|?$&'&|?&|''b&|'d&'f'E?'~$?&6'''Z''O{$z'&2'#''? $?2%' O%m&t'&r ''?'&q?'''''?.''_x'IY'V'W%½%c' ?'~$'?'='='='b'b' ''&'b'f'g?/$ 'E?&Ƚ%'='A'B?/$ 'E?&' ?&?&|' ' &,~#'EO%m'&'&&&'&'&'E%m~##? $?? ?'*  '*    '* '* ' % 'F&'P''F'F'E% 9%'?''_? %'?''_? 9' v', %a%a?' u'J%b%b$|%a' x%a%b?)911~$? $$?96'' 2 ' 'M&?9?9'*%SA'30'*DK'(%?' ? $?' ?'~$?&9}'& ''?/$'E?'~$}'W&z'Vz'W'd'?''b'9   1DK0 %&{3DK0 SA%&{XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+'oo''l&l'%'٪Z&'9A% 62% 0%62%96hiJ&29X 0200#"##?#''~"h~"n*'& "&SA"""" ?"###?]''~"r" '|#""&### 'P;'# ## '9 '#m&~ !' Z,~ !7##3## #o#&~"h'!#&~"r#'" '" & "#' & z#&"' & z#&"#"### #?"### #?? $?""#5""#'?]'#' ? ?}#&~"v?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##6"#"##?]& #' ~!X' ? ?? ?  # " 0 #6#D@WS N XZ&MMH_M,S00highWW&9g^K' WhW~'WYM[MZ(Y'~(YM^$L~(gWh9g[H^H_M,S00hihh^h'hh&9~(chWM[MZ(W'~(kWM^$L~(|g9Mcd^cdg& dh cdhXXxY &0201LOA/LIB/OBJ($MAPAEXB.6IFO.OI=@EXI.INI./SRC+SKI,ASG-FIL'MOD'IDO(IF=@KMO=@xDEF,WSTR-IEND-VCUR-NSGE.BAS.  !" S#$  $ UNDEFINED SYMBOLS MAP NAME S SIZE STR END COMN COMMON MODULE NAME BSCT DSCT PSCT ERROR ERR- UDS COVPHSIORLOVISAIOLSOV MDS ICMISYUAEGAEBAESTR OLEUBORELOVEUIFMDOS LINKING LOADER REV 2.01 COPYRIGHT BY MOTOROLA 1977IAM- UOI$z%>#%i>&%>#Lx }    *9 } ~ ˀz9& } ~!"oo o 9? } {H?/$ OƍZ&4%Z&L$$$$$ @CN o ==  @ &  @  y{}߁!O! $&!%%%%C%%"! }  5;Ȏ$z< 'X;' 'PC<D<E C&D&E& G<Gn w&%B~'</< ';' &; %E~' 6  6$7% H %>#3$&?#9?#~=E&?$~'U&6$~'F&&~'N&"<R&&~'&~'N&'~'F'~'v'~'_./-A&. R& /}%'%`~'X&͗-$)<=&,'~=~' &K_KD*+E7! ' @! -'~)Y%&\&[',QR%" %%$%%\[%"% %#%%' &%&% $%H~'%%%%78&ƀ%8%XI$|%]'$|%Ƿ%%%%%/&1'%ǻ%%% %TDD%$|%Ƿ%  &L# < $L$O2}/'R }-'X$%%ȅ '\&l@$&}-&C6788 %{$z7&7)87? ~'.2#' > O#L, -&3%O@Z&778}/& %%ˀ%%җ787% }H%1&~+-'~JO%ڷ%ن` }I#%ߖYZnmxwBA }CO?C%%ZY%%C I#%S`&#CO֩I%%%%%ABC K%I}%&?I@ [AHA }C%AC`I#%MC ۤ%% %%%%%%%IK AHA ?%&~J.~IޣH/#//=/I/S/D//P// I/Kޣߡߟ -'0qI_?AB;*QeSgUiWkYm$$$$O%%C ~'~H'~'v<='~'!!"!?%~'P&۽<=&޽>FA'!!"!$:& <M&<_]&,&! ';!6&z$&~'~:'~' ' ' ' ;'< ~'  {&~5>F=&Ӷ@'$7 H>F-  H$0'7~='?A@'$$ H%2~= &? A'$$A ?  &H ~'?,&-<A%*'&%&?<S&<C& <T&9F\&,}?&h>FA'`$$GHIH$$~'~ >A'<$$} '}?& FFRQH}?&i'%&$~Fا~'~~'v~'A'M&\*+E7~'N& & '%f~'#~'F&#~'T&~&uU&<G&'<%=&6>FA'$ )$ H%~'&}/&@&& }.' ?$%M&]'?/$%H~'%?/$?%%< @ ' @ @}'' ?~dT&'~.D~'vN&3A~($E&<=&>F$A&~'?$?%4~'~67/"611111077444/>/G/J'S/U/TˀXI$|& $zƀm$|/&S/ 232/9D' ~'v! !<$%@A=' :&< (~'</& <O&J` #9  '%% {&%+~'$7 Hg9$8 ghא k9$8 klה  m9$8 mnז p0'H ޟG";!3'~0! ! !'! ? {&~5o'~6۽7͖?&o! !  V0''ޟ?%"ߥ֠  נ /ߧ 7ef  O'BA$ %4'CO_ef~7~70'! 7 H9! 7O ?'ֽH% &I0'Ɇ@  i '$  !'+''&" 0& '?'  g\"0&   3@ #3ܖ?'=%" ֦ O֐ ֨  ! 7 o o H9! H ~67! ! AB 9?HPO9 7%z>+z=*=! 9i%i%I K@ i% @G&(}/'|9DG&7%%֨7?I II/&9\:f! t%&(%%ֆ%ؼ%&7%L%%%%`~'3Z&9 '$&$9!@0'& '&@?' ! !'_LKH6 !}?'IAB}-&~I@#1K'LK%L _LLK;* #DEHABH^EABM_DBBAAzD+GIMM}?&IGH MCH !~<7I@M9!7!!7!!! /#!!ƀ &<>)!> \O!!!! !+!!M' '~>/ 9 9 @! 9 $DK ?N! 9 =9 ~= $&&~=-'~=t}%&~= $$ %%½J:OCJ?%7u$$9:9 HOCJ: %% /'` %%Ч %%ĽJ:%O%&%?AH% 67?@J:32?%'?Z&A چ9#O?%  A;* @$&$ 9+'~>/!!!!~> '" @ ,'O,! #;~'.&F9&? 9? ? & '?oo 9?9?9? ? ? ? 9? 9? 9? 9? 9? o~=6A@$$O}6&.'$] $$$$@$$J'}6&.'$'$0J}6'$ $' ս<_A%Z#90%9"\9O9&AA0$J<zJ'0%9"0K$$XILMXIXI%MLK$$ ʁ$&AO$$J<zJ+0%9"0 A%F"7K$$XIXIXIXIK$$ ?$7O @?9:9 H?$$ A=A=9RO$>@@& 9A":'C@&~'G:&>FA'$')$ '~@_$$H &N&C' DKH ?N9.&>&$ $>$ $<  9?@ G!!A }C ';0&,7 ??AHAzG& !C G!ACH ?'A!' !C?@$H^ $NO$$!$!C9A' B &~'v~'FB UAPCDSDAP$!$!CDOIC }? &C' J'~C9!AI|C ߦC' Z&&~Bp&~CL '?H I&RI$!$!C!!AEDG $ $7EHE$7EHEzG&߆ !CC AH^zD& !CD!A~BbI&5I$!$!C$!$! $ͽC!!A  C AH^A?D~BA!' !C9I&-$!$!C!!   I?7!H?OT!(H^? XW!-H^? ZY!2H^!C~Bb?7AHA?AE&PAA?9 &֬'DD>%<=z9D ?  & *&+E7? $$!$!C!!  A !/! }A ':&- !H^A !$H^A !)H^CAH !3!A|! '[\ efpo!H^A &?' QR!$H^AQR\[!)H^ yz!$H^A愦!)H^Apo!.H^!E&P!CA &9~DQSUWYGH+' G w[Copfe&}1'Lפ۠&;}1'6?@%%I%%@?%%%OI%%%%//[\yz&'/?@愗AB&'Bzy%[%"\$~Fا[\ %&'=AB\[$ *~F?@C\&['G$~Fؖ?@QRHGGxH&+'|Q '~E[GHI@HA BC C45ABxI%7OD$$KLA9K8 C?@\&['G%HGG?@QRtH&+'QS&^T$& & %H~'%K %N O?QRQRfe &֤XWפ%%ZY%% } &9< '&J<X@ A?}<'  ?BA # @&?QRBA  H ۤ [@?$ &]'~FABGJxJ$BQRA":%B$4\[?%(&@%"& ED'EA'ABC 9 & } ')&  A"%B$ ?%&@$H C 9! XIXI87XI87%%787978DDDD09#09#z8'7 9 9 9${$}742Z&19${$}9 7  H 9 } 9 & 9 79&97Z& p' 9 H XF78XF879H '`&|&9 9%}@'7F_x7IY}0'%%GH%&s% G%'R $$ %%½J:GHGVTTO%ι%NMH'DZ M' GHJ? Oƀ$?G%$$FEF$F%KL%$ P%LOKL KL%%?'!EZ& I7EHE9IK' GGF~I{9~>~>  !"9<:'~'~'v>F/&A'$&$! 'K_$%'"%۷%ڽKD201 &%PJ%%|%%8%} & `Jޡߟ9%߼ '%ۦ%%%%`I#%9%c~'  {&~5 O %%%۽H 9<R& </& K_~KDO&~J`~'2'2 &%ݦ ۢע90'D0 &=֠Т% %ݡ "% # XI$\%%%%96'~4V#'5M~4؀ 0010************************************************************ 0020* 0030*PATCHINMDOSTOSERVICEKEYBOARDINPUT 0040*DURINGSHORTSTATUSINTERRUPTAND/OR 0050*S.D.BASICLINEROUTINE. 0060* 0070************************************************************* 0080* 0090BUFFEQU$FFA0 0100ACIAEQU$FCF4 0110* 0120ORG$8D00 0130* 0140PATCHLDAABUFF+3 0150CMPA#$A5 0160BEQPATCH1 0170JSRINIT 0180PATCH1LDAABUFF 0190BEQJPF015 0200PSHA 0210LDAABUFF+1 0220STAABUFF 0230LDAABUFF+2 0240STAABUFF+1 0250PULA 0260CLRBUFF+2 0270RTS 0280* 0290JPF015JMP$F015 0300* 0310INITCLRBUFF 0320CLRBUFF+1 0330CLRBUFF+2 0340LDAB#$A5 0350STABBUFF+3 0360RTS 0370* 0380* 0390* 0400************************************************ 0410* 0420*THENEXTROUTINESHOULDBECALLEDSEVERALTIMES 0430*FROMSHORT. 0440* 0450************************************************ 0460* 0470ORG$8D40 0480* 0490KEYBRDPSHA 0500PSHB 0510LDABACIA 0520RORB 0530BCCOUTK 0540LDAAACIA+1 0550KEYTSTBUFF 0560BNEB1 0570STAABUFF 0580BRAECHO 0590B1TSTBUFF+1 0600BNEB2 0610STAABUFF+1 0620BRAECHO 0630B2STAABUFF+2 0640ECHOSTAAACIA+1 0650OUTKPULB 0660PULA 0670RTS 0680* 0690END ۀh7'''3~3~ƥ967V$}& }& 329|`0005NAMSSTAT 0010* 0015OPTREL,LLEN=120 0020* 0025*SHORTSTATUSDISPLAYANDBACKUPRESTOREROUTINES 0030* 0035*THISPROGRAMTIMESLICESTHESHORTANDLONGSTATUSREQUESTAND 0040*DISPLAYSIT 0045*SLICE00:TAKELONGSTATUS(EACH4CYCLES) 0050*SLICE01:TAKERECIPENAME 0055*SLICE02:TAKESHORTSTATUS 0060*SLICE03:DISPLAYTUBE1 0065*SLICE04:"""" 2 0070*SLICE05:"""3 0075*SLICE06:"""4 0080*SLICE07:"""5 0085*SLICE08:"""6 0090*SLICE09:"""7 0095*SLICE10:"""8 0100*SLICE11:MAKETHEBACKUPIFNEEDED 0105* 0110* 0115*MACROTOSETREGISTERS 0120* 0125GPARMACR 0130LDAA\0 0135LDAB\1 0140LDX\2 0145ENDM 0150* 0155SCALLMACR 0160SWI 0165FCB\0 0170ENDM 0175* 0180* 0185XDEFFTUBE1,NAME1,LINE,NAME1,NAME8 0190XDEFFULSCR,TUBE1,TUBE2,TUBE3,TUBE4,TUBE5,TUBE6,TUBE7,TUBE8 0195XDEFSTART,DCOUNT,PRCNT,TUBCNT,RECEIV,RDATAI,OPTBCK 0200XDEFOLDACT,NEWACT,OLDSTP,NEWSTP 0205XDEFBTUBE1,FLGPTR,STRPTR 0210*RDATAIISLOCATIONWHEREJSRRDATACANBEINSERTED 0215*OPTBCKLOCATIONSHOULDBESETTO0IFBACKUPOPTIONISINSTALLED 0220* 0225XREFPDATA,OUTCH,AXA,AXB,SSXBA,BUFBUF 0230XREFPATCH,SOURCE,DESTIN,LENGTH 0235PAGE 0240ASCT 0245* 0250* 0255ACBASEEQU$ECA0FIRSTACIALOCATION 0260IMTC1EQU8BASEOFTHERMOCOUPLESINNEWSTATUSD.D.19/10/81 0265TCSTATEQUIMTC1+(2*12)TCSTATUS 0270TIMEIEQUTCSTAT+4STEPTIME 0275CURSTPEQUTIMEI+3CURRENTSTEP 0280RCPTR1EQUCURSTP+2 0285RCPTR2EQURCPTR1+3 0290RCPTR3EQURCPTR2+3 0295ACTIVEQUCURSTP+11ACTIVITYFLAGS 0300* 0305FULLENEQU$D1LENGTHOFFULLSTATUSBUFFER 0310SHOLENEQU$3BLENGTHOFSHORTSTATUSBUFFER 0315RCPLENEQU$9LENGTHOFRECIPENAMEBUFFER 0320FULSTTEQU$AFLENGTHOFBYTESTRINGFULLSTATUS 0325SHOSTTEQU$33LENGTHOFBYTESTRINGSHORTSATUS 0330RCPNAMEQU$8LENGTHOFRECIPYNAMESTRING 0335SPARE1EQU8 0340SPAR1AEQU18 0345SPAR1BEQU16 0350* 0355TUBEEQU0OFFSETSFROMTUBE1;USEDWITHFLGPTR 0360TBIDEQU8 0365TBRNEQU16 0370TCNTEQU24 0375BADCEQU32 0380*SCALLEQUATES 0385RESERVEQU0 0390RELESEQU1 0395OPENEQU2 0400CLOSEEQU3 0405GETLSEQU7 0410PUTLSEQU8 0415MDERREQU$20 0420SPC3 0425ORG$C020ORIGINFORRAMLOCATIONS 0430*THEFOLLOWINGDATALOCATIONSUNTILTIMESHOULDBEKEPTONTHESE 0435*ADDRESSES;THEYAREUSEDBYSUPERVISORBASICPROGRAMS 0440FULSCRRMB1SETWHENANOTHERPROGRAMUSESTHEFULLSCREEN 0445RECEIVRMB1THISFLAGISSETBYTHESUPERVISORWHENITIS 0450*RECEIVINGDATAFROMATUBE 0455*THISFLAGINHIBITSTHETUBESTATUSREQUEST 0460* 0465TUBE1RMB1WHENTHEFLAGIS<>0THETUBECANNOTBEREQUESTED 0470TUBE2RMB1SAMEASTUBE1IFFLAGIS80FLAGCANNOTBERESETTED 0475TUBE3RMB1SAMEASTUBE1 0480TUBE4RMB1SAMEASTUBE1 0485TUBE5RMB1SAMEASTUBE1 0490TUBE6RMB1SAMEASTUBE1 0495TUBE7RMB1SAMEASTUBE1 0500TUBE8RMB1SAMEASTUBE1 0505SPC1 0510TBID1RMB1TUBEIDLEFLAGS 0515TBID2RMB1 0520TBID3RMB1 0525TBID4RMB1 0530TBID5RMB1 0535TBID6RMB1 0540TBID7RMB1 0545TBID8RMB1 0550* 0555TBRN1RMB1TUBERUNFLAGS 0560TBRN2RMB1 0565TBRN3RMB1 0570TBRN4RMB1 0575TBRN5RMB1 0580TBRN6RMB1 0585TBRN7RMB1 0590TBRN8RMB1 0595* 0600TCNT1RMB1TUBESTRINGBYTECOUNT 0605TCNT2RMB1SAMEFORTUBE2 0610TCNT3RMB1SAMEFORTUBE3 0615TCNT4RMB1SAMEFORTUBE4 0620TCNT5RMB1SAMEFORTUBE5 0625TCNT6RMB1SAMEFORTUBE6 0630TCNT7RMB1SAMEFORTUBE7 0635TCNT8RMB1SAMEFORTUBE8 0640* 0645BADC1RMB1BADCOUNT 0650BADC2RMB1 0655BADC3RMB1 0660BADC4RMB1 0665BADC5RMB1 0670BADC6RMB1 0675BADC7RMB1 0680BADC8RMB1 0685* 06# 90*ENDOFFIXEDADDRESSLOCATIONS 0695* 0700TPTR1RMB2TUBESTRINGPTR 0705TPTR2RMB2SAMEFORTUBE2 0710TPTR3RMB2SAMEFORTUBE3 0715TPTR4RMB2SAMEFORTUBE4 0720TPTR5RMB2SAMEFORTUBE5 0725TPTR6RMB2SAMEFORTUBE6 0730TPTR7RMB2SAMEFORTUBE7 0735TPTR8RMB2SAMEFORTUBE8 0740PAGE 0745* 0750STRPTRRMB2CURRENTPOINTERTOTHETUBEBUFFERS 0755FULPTRRMB2POINTERTOTHETUBEFULLSTATUSBUFFERS 0760SHOPTRRMB2POINTERTOTHETUBESHORTSTATUSBUFFERS 0765NAMPTRRMB2RECIPENAMEPOINTER 0770ACPTRRMB2ACIAPOINTER 0775FLGPTRRMB2FLAGPOINTER 0780RECPTRRMB2 0785DCOUNTRMB1TIMESLICECOUNTER 0790TUBCNTRMB1NROFTUBEFORRECIPENAMEUPDATE 0795PRCNTRMB1PRECOUNTFORFULLSTATUS;AT1TAKEAFULLSTATUS 0800BYTCNTRMB1NROFBYTESTOBERECEIVEDFROMATUBE 0805COUNTRMB1 0810CHKCNTRMB1COUNTERFORACIACHECK 0815FLAGRMB1ANYFLAG 0820COFLAGRMB1IF0THENBASE10ELSETIMECONVERSION 0825FULFLGRMB1SETTOFFFORFULLSTATUSREQUEST 0830BKFLGRMB1BACKUPDONEFLAG 0835LINERMB1LOGICALDISPLAYLINE 0840COLUMNRMB1LOGICALDISPLAYCOLUMN 0845TEMP1RMB2TEMPORARYSTORAGE 0850PARMRMB2 0855* 0860TIMERMB3TIMEPROCESSINGLOC 0865H1RMB3 0870M1RMB3 0875S1RMB3 0880* 0885SETPRMB2SETPOINTOFATUBE 0890TDIFFRMB2TUBEVALUE 0895SIGNRMB1SIGNBIT;0=+,1=- 0900OFFSETRMB1TEMPZONEOFFSET 0905SECBUFRMB$80SECTORBUFFER 0910IOCRAMRMB40IOCBINRAM 0915MSGRAMRMB15MESSAGEINRAM 0920* 0925STACKRMB127 0930STKENDRMB1 0935SAVSPRMB2SAVSTACKPOINTER 0940OLDACTRMB8PREVIOUSSAVEDACTIVBYTE 0945NEWACTRMB8 0950OLDSTPRMB8PREVIOUSSAVEDCURRENTSTEP 0955NEWSTPRMB8 0960PAGE 0965*TUBEBUFFERSTHESPARESARERESERVEDFORFUTUREUSE,WHENTHEYGET 0970ORG$C200ALLOCATEDINTHESTATUS 0975* 0980BTUBE1RMBSHOLENSHORTBUFFERTUBE1 0985BTUBE2RMBSHOLENSHORTBUFFERTUBE2 0990BTUBE3RMBSHOLENSHORTBUFFERTUBE3 0995BTUBE4RMBSHOLENSHORTBUFFERTUBE4 1000BTUBE5RMBSHOLENSHORTBUFFERTUBE5 1005BTUBE6RMBSHOLENSHORTBUFFERTUBE6 1010BTUBE7RMBSHOLENSHORTBUFFERTUBE7 1015BTUBE8RMBSHOLENSHORTBUFFERTUBE8 1020* 1025FTUBE1RMBFULLENFULLBUFFERTUBE1 1030FTUBE2RMBFULLENFULLBUFFERTUBE2 1035FTUBE3RMBFULLENFULLBUFFERTUBE3 1040FTUBE4RMBFULLENFULLBUFFERTUBE4 1045FTUBE5RMBFULLENFULLBUFFERTUBE5 1050FTUBE6RMBFULLENFULLBUFFERTUBE6 1055FTUBE7RMBFULLENFULLBUFFERTUBE7 1060FTUBE8RMBFULLENFULLBUFFERTUBE8 1065* 1070NAME1RMBRCPLENRECIPENAMETUBE1+BYTEFOREOF 1075NAME2RMBRCPLEN 1080NAME3RMBRCPLEN 1085NAME4RMBRCPLEN 1090NAME5RMBRCPLEN 1095NAME6RMBRCPLEN 1100NAME7RMBRCPLEN 1105NAME8RMBRCPLEN 1110PAGE 1115PSCT 1120OPTBCKFCB$FFIFOPTBCKISNOTFFBACKUPOPTIONISINSTALLED 1125NOP 1130NOP 1135RTS 1140SPC3 1145STARTSTSSAVSP 1150LDS#STKENDSWAPSTACKS 1155BSRTIMSL 1160START1LDSSAVSP 1165RTS 1170SPC3 1175TIMSLEQU*JUMPSTOCORRECTROUTINEFOREACHTIMESLICE 1180*INCREMENTSANDRESETSTHECOUNTER 1185TIMSL0LDAADCOUNT 1190BNETIMSL1 1195DECPRCNTTAKELONGSTATUSWHENPRCNTIS1 1200BLETIMSLAPRCNTISINITIATEDAT0INRTIME 1205INCDCOUNTSKIPFULLSTATUS;EXECUTENEXTSLICE 1210BRATIMSL 1215TIMSLALDAA#2RESETFLAG;INDICATEFU$ LLSTATUS 1220STAAPRCNT 1225JSRFULLSTTAKEFULLSTATUS 1230BRATIMSL6 1235TIMSL1DECA 1240BNETIMSL2 1245JSRNAME 1250BRATIMSL6 1255TIMSL2DECA 1260BNETIMSL3 1265JSRSHORT 1270BRATIMSL6 1275TIMSL3LDAADCOUNT 1280CMPA#11 1285BEQTIMS11 1290JSRDISPEXECUTEDINSLICES3-10 1295BRATIMSL6 1300TIMS11TSTOPTBCK 1305BNETIMSL6BRANCHIFNOBACKUPOPTIONINSTALLED 1310*RETURNHEREAFTERTIMESLICEROUTINEISEXECUTED 1315TIMSL6LDAADCOUNT 1320INCA 1325CMPA#12 1330BNETIMSL7 1335CLRARESETDCOUNT 1340TIMSL7STAADCOUNT 1345RTS 1350PAGE 1355FULLSTEQU*TAKEFULLSTATUSOFALLCONNECTEDTUBES 1360JSRCHECK 1365LDAA#$FF 1370STAAFULFLG 1375STAARECEIV 1380LDX#LNGMESADDRESSOFMESSAGEFORTUBECONTROLLER 1385JSRSETST 1390CLRFULFLGENDOFFULLSTATUSREQUEST 1395CLRRECEIV 1400RTS 1405SPC3 1410SHORTEQU*TAKESHORTSTATUSOFALLCONNECTEDTUBES 1415JSRCHECKCHECKTUBECOMMUNICATION 1420LDX#SHRMESADDRESSOFMESSAGEFORTUBECONTROLLER 1425JSRSETST 1430*CHECKFORBACKSTARTANDSETIDLEANDRUNFLAGS 1435LDX#TUBE1 1440STXFLGPTR 1445LDX#BTUBE1+SPARE1 1450SHRT04STXSTRPTR 1455LDXFLGPTR 1460TSTX 1465BNESHRT06 1470LDXSTRPTR 1475CLRB 1480LDAAACTIV,XXTESTIFIDLE 1485BPLSHRT05 1490DECB 1495TSTRCPTR1,X 1500BEQSHRT05IFRECIPENOTLOADEDANDIDLE,RESTART 1505LDXFLGPTR 1510CLRTBRN,XIDLEBUTRECIPELOADED,NORESTART 1515SHRT05LDXFLGPTR 1520STABTBID,X 1525BNESHRT06 1530BITA#$40 1535BEQSHRT06 1540LDAB#$FF 1545STABTBRN,XSETRUNFLAG 1550SHRT06INX 1555CPX#TUBE8+1 1560BEQSHRT07 1565STXFLGPTR 1570LDXSTRPTR 1575LDAA#SHOLEN 1580JSRAXA 1585BRASHRT04 1590SHRT07RTSEXITSHORTSTATUS 1595PAGE 1600NAMEEQU*RETRIEVESTHESELECTEDRECIPENAMEFOREACH 1605*TUBE;EACHTIMECYCLEONLYONERECIPENAMEISUPDATED 1610*COMPUTETUBEFULLSTATUSPOINTR 1615LDABTUBCNT 1620LDX#BTUBE1+SPARE1 1625LDAA#SHOLEN 1630JSRADDRPT(B-1)*A+X 1635LDABACTIV,XGETTUBEACTIVITYSTATUS 1640ANDB#$03EXTRACTRECIPENR 1645BNENAM04BRANCHIFRECIPESELECTED 1650JMPNAM05EXIT 1655NAM04LDAA#3OFFSETBETWEENRECIPEPOINTERS 1660JSRADDRPT 1665LDAA#RCPTR1+1INITIALOFFSET 1670JSRAXAXPOINTSTORECIPEADDRESS 1675LDX0,X 1680STXTEMP1KEEPADDRESS 1685*MOVERECIPENAMECALLINMSGRAM 1690LDX#RECMES 1695STXSOURCE 1700LDX#MSGRAM 1705STXDESTIN 1710LDX#12 1715STXLENGTH 1720JSRBUFBUF 1725*CHANGEADDRESSOFRECIPENAMETOASCII 1730LDX#MSGRAM+5 1735LDAATEMP1FIRSTTWOHEXCHARACTERS 1740JSRHEXASC 1745LDAATEMP1+12NDTWO 1750JSRHEXASC 1755*FINDPOINTERTORECIPENAMEBUFFER 1760LDX#NAME1 1765LDABTUBCNT 1770LDAA#RCPLEN 1775JSRADDRPT 1780STXPARMTEMP.STORAGE 1785LDX#TPTR1 1790LDAA#2 1795JSRADDRPT 1800LDAAPARM 1805STAA0,X 1810LDAAPARM+1 1815STAA1,XFILLPOINTER 1820JSRCLRCNTCLEARALLBYTECOUNTS 1825LDX#TUBE1 1830LDAA#1 1835LDABTUBCNT 1840JSRADDRPT 1845STXFLGPTRFLGPTR=TUBE1+(TUBCNT-1) 1850LDAA#RCPNAMLENGTHOFDATASTRING 1855STAATCNT,X 1860LDX#MSGRAMSTARTOFDATA 1865STXSTRPTR 1870JSRTRNSFRSENDMESSAGEANDGETANSWERS 1875NAM05LDABTUBCNT 1880INCB 1885CMPB#9AREALLTUBESDONE 1890BNENAM06BRANCHIFNOTDONE 1895LDAB#1INITIATEPOINTERAT1 1900NAM06STABTUBCNTUPDATECOUNTER 1905RTS%  1910PAGE 1915* 1920*ROUTINETOSENDACHARACTERTOALLACIA'SNOTFLAGGED 1925*IFACCB=0SENDTOALLTUBES;ELSEBISTUBENUMBER 1930*CHARACTERISINACCA 1935*THISROUTINESTARTSWITHTHEFIRSTACIA 1940* 1945SENDEQU* 1950PSHB 1955JSRINITPTEXITWITHFLGPTRINX 1960SEND0TSTXISTHEFLAGOK 1965BNESEND2 1970SEND00LDXACPTRTESTTHEACIA 1975LDAB#$10CHECKFORFRAMINGERROR 1980BITBX 1985BEQSEND01 1990LDAB#3 1995STABX 2000LDAB#$11RESETACIA 2005STABX 2010LDXFLGPTRSETACIABAD 2015LDAB#$FF 2020STABX 2025BRASEND2 2030SEND01LDAB#2TESTTDRE 2035BITBX 2040BEQSEND01 2045STAA1,X 2050SEND2TSTFLAG 2055BNESENDEXIFONLYONETUBEEXIT 2060JSRNXACIA 2065BCCSEND0 2070SENDEXPULB 2075RTS 2080* 2085SPC3 2090RECVEQU* 2095*RECEIVESACHARACTERFROMALLACIA'SNOTFLAGGED 2100*CHARACTERISSTOREDAT(STRPTR) 2105*TUBESWITHTCNT=0DON'THAVETOSENDANYRESPONSE 2110*THISROUTINESTARTSWITHTHEFIRSTACIA 2115* 2120CLRB 2125LDX#TPTR1INITTUBEPOINTRS 2130STXSTRPTR 2135JSRINITPTSETACIAPTRANDFLAGPTR 2140RECV1TSTTUBE,XISTHEFLAGOK 2145BEQRECV2BRANCHIFOK 2150CLRTCNT,XNOMESSAGEEXPECTEDFROMBADOROCCUPIEDTUBE 2155BRARECV5 2160RECV2LDABTCNT,XTESTIFTHISCOUNTIS0 2165BEQRECV5BRANCHIFALLCHARACTERSRECEIVED 2170DECBADC,X 2175BNERECV3BRANCHIFOK 2180*BADCOMMUNICATIONSWITHATUBE 2185RECLRCLRTCNT,X 2190LDAA#$FF 2195STAATUBE,X 2200BRARECV5 2205RECV3LDXACPTRTESTTHEACIA 2210LDAB#1TESTRDRF 2215LDAA0,XSTATUSACIA 2220BITA#$10ISAFRAMINGERRORTHERE 2225BEQRECV4BRANCHIFNOERROR 2230LDXFLGPTR 2235CLRBADC,XRESETCOUNT 2240BRARECLR 2245RECV4BITB0,X 2250BEQRECV5 2255LDAA1,XGETCHARACTERFROMACIA 2260LDXSTRPTRTAKETHESTRINGPOINTER;POINTSTOTUBEPOINTER 2265LDX0,XTAKETHETUBEPOINTER;POINTSTOMESSAGEBUFFER 2270STAA0,XSTORECHARACTER 2275LDXFLGPTR 2280DECTCNT,XDECREMENTBYTECOUNT 2285LDAA#$FFINITIATECOUNTERFORNEXTCHARACTER 2290STAABADC,X 2295LDXSTRPTRTAKETHESTRINGPOINTER 2300LDAB0,XTUBEMESSAGEBUFFERPOINTER 2305LDAA1,X 2310ADDA#1ADD1TOMESSAGEBUFFERADDRESS 2315ADCB#0 2320STABX 2325STAA1,X 2330RECV5LDXSTRPTR 2335INX 2340INX 2345STXSTRPTRUPDATESTRINGPOINTERFORNEXTTUBE 2350JSRNXACIA 2355BCSRECV6 2360BRARECV1 2365RECV6RTS 2370SPC3 2375INITPTEQU* 2380PSHASAVEAREGISTER 2385STABFLAG 2390LDX#ACBASECALCULATEDSTATUSPOINTER(S) 2395LDAA#2 2400JSRADDRPTX=(B-1)*A+XIFBNOT0;FORB=0X=X 2405STXACPTR 2410LDX#TUBE1 2415LDAA#1 2420JSRADDRPT 2425STXFLGPTRINITTHEFLAGPOINTER 2430PULA 2435RTS 2440PAGE 2445NXACIAEQU*UPDATESPOINTERSFORNEXTACIA 2450*CARRYISSETWHENDONE 2455LDXACPTR 2460CPX#ACBASE+(2*7) 2465BEQNXAC1BRANCHIFDONE 2470INX 2475INX 2480STXACPTR 2485LDXFLGPTRUPDATEFLAGPTR 2490INX 2495STXFLGPTR 2500CLC 2505RTS 2510NXAC1SEC 2515RTS 2520SPC3 2525DELAYPSHB0.5MILISECONDDELAY 2530DELA1LDAB#166 2535DELA2DECB 2540BNEDELA2 2545DEX 2550BNEDELA1 2555PULB 2560RTS 2565SPC3 2570CLRCNTEQU*CLEARSTHETUBECOUNTBUFFERS 2575LDX#TCNT1 2580CLR00CLRX 2585INX 2590CPX#TCNT8+1 2595BNECLR00 2600RTS 2605SPC3 2610* 2615*SENDASTRINGTOTUBES 2620*REGBHASTUBEN& RORIS0TOINDICATEALLTUBES 2625STRINGLDXSTRPTRTAKETHESTRINGPOINTER 2630LDAAX 2635CMPA#$4 2640BEQSTREXIF4EXITWITHOUTTRANSMITIT 2645JSRSEND 2650LDXSTRPTR 2655INX 2660STXSTRPTRUPDATESTRINGPOINTER 2665BRASTRING 2670STREXRTS 2675PAGE 2680SETSTEQU*INITIATESALLPOINTERSANDCOUNTERSFORSTATUS 2685*REQUEST 2690STXSTRPTRMESSAGEPOINTER 2695LDAA#78TUBES,COUNTDECREMENTEDTO0 2700STAACOUNT 2705LDAA#SHOSTTTAKETEMPAOTHROUGHACTIVEINSTATUS 2710LDAB#SHOLENLENGTHOFRECEIVEBUFFERFORSHORTSTATUS/TUBE 2715LDX#BTUBE1+SPARE1 2720TSTFULFLG 2725BEQSETST1BRANCHFORSHORTSTATUS 2730LDAA#FULSTT 2735LDAB#FULLEN 2740LDX#FTUBE1+SPAR1A 2745SETST1STAABYTCNT 2750CLRTEMP1 2755STABTEMP1+1SAVEINCREMENT 2760STXTPTR1INITIATETUBEPOINTER 2765LDX#TPTR1 2770LDAB0,X 2775LDAA1,X 2780SETST3ADDATEMP1+1 2785ADCBTEMP1 2790INX 2795INX 2800STABXPUTBUFFERADDRESSFORRETURNMESSAGEINTUBE 2805STAA1,XSTRINGPOINTERS 2810DECCOUNT 2815BNESETST3 2820SET2LDX#TUBE1 2825SET3STXFLGPTRTESTIFFLAGISZERO 2830TSTTUBE,X 2835BNESET5BRANCHIFTUBEISBADORBUSYWITHSUPERVISOR 2840SET4LDAABYTCNTSETBYTECOUNTONLYIFTUBEISONLINE 2845STAATCNT,X 2850SET5INXINCREMENTFLAGBUFFERPOINTER 2855CPX#TUBE8+1 2860BNESET3 2865CLRB 2870BSRTRNSFR 2875RTS 2880SPC3 2885TRNSFREQU*SENDSAMESSAGETOONEORALLTUBECONTROLLERS 2890*ANDCOLLECTSTHERETURNINGDATAFORTUBESWHEREDATAISEXPECTED 2895*(BYTCNTNOTEQUALTO0);B=0ALLTUBES,ELSEB=TUBENR 2900JSRSTRINGSENDTHEMESSAGEREQUEST 2905LDAA#$D 2910JSRSENDSENDTHECARRIAGERETURN 2915LDX#TUBE1 2920LDAA#$FFSETBADCOUNTSTOMAXIMUMNR.OFCOUNTS 2925TRNS1STAABADC,X 2930INX 2935CPX#TUBE8+1 2940BNETRNS1 2945TRNS2JSRRECVRECEIVETHESTRING 2950* 2955JSRKEYBRDSERVICEKEYBOARDDURINGCOMMUNICATION 2960* 2965CLRA 2970LDX#TUBE1 2975TRNS3ORAATCNT,X 2980INX 2985CPX#TUBE8+1 2990BNETRNS3TESTIFALLCOUNTARE0 2995TSTA 3000BNETRNS2IFNOTGETNEXTCHARACTER 3005RTS 3010PAGE 3015*SUBROUTINETOCHECKIFCOMMUNICATIONISOK 3020* 3025*IFFLAGIS80ITWILLNEVERBEAFFECTED;BASICISBUSYWITHTHISTUBE 3030*IFFLAGIS0ANDCOMMISLOSTITBECOMESFF 3035*IFFLAGISFFANDCOMMISTHEREITWILLBEPUTTO0 3040*SETFLAGTO8FIFACIAISNOTTHERE;CHECKEVERYTIME 3045* 3050CHECKEQU* 3055CLRB 3060JSRINITPTSETACPTR,FLGPTR 3065CHCK00LDAATUBE,X 3070CMPA#$80 3075BEQCHCK01 3080CLRTUBE,X 3085LDXACPTRTESTIFACIAISTHERE 3090TST1,XREADDATABUFFER 3095LDX0,XREADSTATUSANDDATABUFFER 3100BNECHCK01 3105LDXFLGPTR 3110LDAA#$8FSETACIANOTTHERE 3115STAATUBE,X 3120CHCK01JSRNXACIA 3125BCCCHCK00BRANCHFORNEXTACIA 3130*INITIATETUBEBYTECOUNTSAT2;ISSEND,WHICHISANINCORRECT 3135*COMMANDFORTHETUBECONTROLLER;THETUBERESPONDSWITH07(BELL), 3140*04(EOF);INCASEOFOVERRUN,DUETOTHE30MSECDELAYBETWEEN 3145*SUCCESSIVEACIAREADINGS,07ISRECEIVEDTWICE 3150CLRB 3155JSRCLRCNTSETALLBYTECOUNTERSTO0 3160JSRINITPTINITIATEPOINTERS 3165RTS 3170LDAA#2 3175CHECK1TSTTUBE,X 3180BNECHECK2BRANCHIFTUBENOTTHERE;SKIPNEXTTEST 3185STAATCNT,XINITIATEBYTECOUNTAT2 3190CHECK2INX 3195CPX#TUBE8+1 3200' BNECHECK1 3205LDAA#10 3210STAACHKCNTTUBESGET10*30MSECTORESPOND 3215CLRBSENDMESSAGETOALLTUBES 3220LDAA#$D 3225JSRSEND 3230CHECK3LDX#30 3235JSRDELAYWAIT30MSEC 3240CLRB 3245JSRINITPT 3250CHECK4TSTTCNT,X 3255BEQCHECK5BRANCHIFNO(MORE)CHARACTERSARETOBERECEIVED 3260LDXACPTR 3265LDAA1,X 3270ANDA#$F407OR04RECEIVED? 3275CMPA#4 3280BNECHECK5NOCHARACTERRECEIVED 3285LDXFLGPTR 3290DECTCNT,XDECREMENTTUBECOUNTER 3295CHECK5JSRNXACIA 3300BCCCHECK4NEXTACIA 3305*CHECKIFALLCOUNTSARE0 3310CLRA 3315LDX#TUBE1 3320CHECK6ORAATCNT,X 3325INX 3330CPX#TUBE8+1 3335BNECHECK6BRANCHFORNEXTTUBE 3340TSTA 3345BEQCHECK9EXIT;ALLTUBESAREDONE 3350DECCHKCNT 3355BNECHECK3WAITANOTHER30MSECANDCHECKAGAIN 3360*SOMETUBESDIDNOTRESPONDAFTER300MSEC;SETTUBEFLAG 3365LDX#TUBE1 3370LDAA#$FF 3375CHECK7TSTTCNT,X 3380BEQCHECK8BRANCHIFTHISTUBEOK 3385STAATUBE,XSETTOFF 3390CHECK8INX 3395CPX#TUBE8+1 3400BNECHECK7 3405CHECK9RTS 3410PAGE 3415*DISPLAYROUTINESFORSHORTSTATUS 3420* 3425*DISPLAYINGTHETUBESTATUS 3430* 3435DISPLDAADCOUNT 3440SUBA#3ADJUSTFORLINE 3445STAALINE 3450LDX#TUBE1INITFLAGPOINTER 3455JSRAXA 3460STXFLGPTR 3465TSTX 3470BNEDISP0IFTUBEOFFLINE,NORUNDATA 3475RDATAINOP 3480NOP 3485NOP 3490DISP0LDAAFULSCR 3495CMPA#$FFISTHEFULLSCREENTHERE 3500BNEDISP1 3505JMPDISPEXIFFULLSCREENDISPLAYNOTHING 3510DISP1LDABLINE 3515INCBGETTUBENR 3520LDX#BTUBE1+SPARE1 3525LDAA#SHOLEN 3530JSRADDRPT 3535STXSTRPTR 3540LDX#NAME1 3545LDAA#RCPLEN 3550JSRADDRPT 3555DISP1CSTXNAMPTRSETTHENAMEPOINTER 3560DISP10LDXFLGPTR 3565TSTXISTHETUBEALREADYBUSYORNOTTHERE 3570BEQDISP2IFNOT,DISPLAYIT 3575LDAA#$FF 3580DISPC1INCA 3585STAACOLUMN 3590CLRASETZTO0 3595JSRSETSQRRESETALLCOLUMN 3600LDAACOLUMN 3605CMPA#5ISALLCOLUMNSCLEARED 3610BNEDISPC1 3615GPAR#26,LINE,#FILLER-2 3620JSRDIGRIDBLANKSTEP 3625GPAR#31,LINE,#FILLER-8 3630JSRDIGRID 3635GPAR#42,LINE,#FILLER-4 3640JSRDIGRIDBLANKTEMPERATURE 3645GPAR#49,LINE,#FILLER-4 3650JSRDIGRID 3655GPAR#56,LINE,#FILLER-4 3660JSRDIGRID 3665GPAR#63,LINE,#FILLER-1 3670JSRDIGRIDBLANKRECIPENUMBER 3675DISPC2GPAR#66,LINE,#FILLER-12 3680JSRDIGRID 3685JMPDISPEX 3690DISP2LDXSTRPTRPOINTONTHETUBEBUFFER 3695LDAAACTIV,XTAKEACTIV 3700STAAPARMSAVEITINPARAMETERLOCATION 3705LDAB#2TAKEALARMCOLUMN 3710STABCOLUMN 3715BITA#$10ISANALARM 3720JSRSETSQRUPDATETHEMARKER 3725CLRCOLUMNSETIDLECOLUMN 3730BITA#$80TESTIFIDLE 3735JSRSETSQRUPDATESTATUS 3740LDAB#$3SETABORTCOLUMN 3745STABCOLUMN 3750BITA#$8TESTIFABORT 3755JSRSETSQR 3760LDAB#$1 3765STABCOLUMN 3770BITA#$40TESTIFRUN 3775JSRSETSQR 3780LDAB#$4 3785STABCOLUMN 3790BITA#$4TESTIFHOLD 3795JSRSETSQR 3800LDAB#$5 3805STABCOLUMNTESTIFFINISHED 3810BITA#$20 3815JSRSETSQR 3820* 3825DISP3LDXSTRPTRDISPLAYTHETIME 3830TSTCURSTP,XTESTIFSTEPIS0 3835BEQDISP30 3840LDAA#$80 3845BITAACTIV,XTESTIFIDLE 3850BEQDISP31 3855DISP30GPAR#31,LINE,#MSGIGN 3860BRADISP32 3865DISP31LDAATIMEI,X 3870STAATIME 3875LDAATIMEI+1,X 3880STAATIME+1 3885LDAATIMEI+2,X 3890STAATIME+2 38( 95LDAA#$FF 3900STAACOFLAGSETSEXADECCONVERT 3905JSRDISTIM 3910GPAR#31,LINE,#H1 3915DISP32JSRDIGRIDDISPLAYTIME 3920DISP4LDXSTRPTRDISPLAYSTEPNUMBER 3925CLRTIME 3930CLRTIME+1 3935LDAACURSTP,XTAKESTEPPOINTER 3940STAATIME+2 3945JSRDISTIM 3950GPAR#26,LINE,#S1 3955JSRDIGRID 3960DISP5LDXSTRPTRDISPLAYRECIPENUMBER 3965LDAAACTIV,X 3970ANDA#$3 3975ADDA#'0SETASCII 3980STAAS1+1 3985GPAR#63,LINE,#S1+1 3990JSRDIGRID 3995JSRCALTMPDISPLAYTEMPERATUREDEVIATION 4000LDXNAMPTRDISPLAYRECIPENAME 4005LDAA#4 4010STAARCPNAM,X 4015LDXSTRPTR 4020LDAAACTIV,X 4025ANDA#$3CHECKIFRECIPESELECTED 4030BNEDISP6 4035LDAARCPTR1,X 4040ORAARCPTR2,X 4045ORAARCPTR3,XCHECKIFRECIPELOADED 4050BNEDISP6 4055GPAR#66,LINE,#NOLOAD 4060BRADISP60 4065DISP6GPAR#67,LINE,NAMPTR 4070JSRDIGRID 4075GPAR#75,LINE,#FILLER-3 4080DISP60JSRDIGRID 4085DISPEXLDAA#$80 4090JSROUTCHPURGEACIA 4095RTS 4100PAGE 4105*ROUTINETOSETSQUAREINLINEANDCOLUMN 4110* 4115SETSQRPSHA 4120PSHB 4125BNESETSQU 4130CLRFLAG 4135BRASETSQC 4140SETSQULDAA#$FF 4145STAAFLAG 4150SETSQCLDAA#$CEWRITEABSOLUTECODE 4155JSROUTCH 4160LDAA#$DDSTARTDATA 4165JSROUTCH 4170LDAA#$2F 4175ADDALINESETTHELINE 4180JSROUTCHSENDIT 4185CLRB 4190LDAACOLUMNMAKETHECOLUMN 4195BEQSETSQ1 4200SETSQ0ADDB#3 4205DECA 4210BNESETSQ0 4215SETSQ1ADDB#$26 4220TBA 4225JSROUTCH 4230LDAALINE 4235CMPA#$7 4240BNESETQ11 4245LDAA#$E6 4250JSROUTCH 4255SETQ11LDAA#$E3 4260TSTFLAG 4265BEQSETSQ2 4270LDAA#$E2 4275SETSQ2JSROUTCH 4280CLRB 4285LDAA#$F9 4290JSROUTCH 4295PULB 4300PULA 4305RTS 4310SPC2 4315*ROUTINETODISPLAYA(X)STRING;COLUMNINA,LINEINB 4320* 4325DIGRIDPSHAACCAHOLDCOLUMN 4330PSHBACCBHOLDLINENUMBER 4335LDAA#$CE 4340JSROUTCH 4345LDAA#$DD 4350JSROUTCH 4355PULA 4360ADDA#$2FBEGINATLINE16 4365JSROUTCH 4370PULA 4375ADDA#$1F 4380JSROUTCHSETCOLUMN 4385JSRPDATA 4390LDAA#$F9 4395JSROUTCH 4400RTS 4405PAGE 4410*TIMEORDECIMALCONVERSION 4415* 4420DISTIMLDX#H1 4425LDAA#8 4430DISCL1CLRX 4435INX 4440DECA 4445BNEDISCL1 4450TSTCOFLAG 4455BEQDIST3 4460LDAATIME 4465BEQDIST2ISFIRSTBYTEIS0EXIT 4470CMPA#5 4475BLSDIST1ISLESSTHANFIVEPROCESS 4480GPAR#$20,#8,#H1 4485DIST0STAAX 4490INX 4495DECB 4500BNEDIST0MORETHAN99HOURSISBADCLEARTIME 4505LDAA#4 4510STAAX 4515CLRCOFLAG 4520RTS 4525DIST1GPARTIME+2,TIME+1,0 4530SUBA#$A0 4535SBCB#$8C 4540STAATIME+2 4545STABTIME+1 4550LDABTIME 4555SBCB#0 4560STABTIME 4565INCH1 4570TSTTIME 4575BNEDIST1 4580DIST2GPAR#$A0,#$8C,#H1 4585JSRDISTC 4590DIST3GPAR#$10,#$E,#H1+1 4595TSTCOFLAG 4600BNEDIST31 4605LDAA#$10 4610LDAB#$27 4615DIST31JSRDISTC 4620DIST4GPAR#$58,#$2,#M1 4625TSTCOFLAG 4630BNEDIST41 4635LDAA#$E8 4640LDAB#$3 4645DIST41JSRDISTC 4650DIST5GPAR#$3C,#0,#M1+1 4655TSTCOFLAG 4660BNEDIST51 4665LDAA#100 4670CLRB 4675DIST51JSRDISTC 4680DIST6GPAR#$A,#0,#S1 4685JSRDISTC 4690LDAATIME+2 4695STAAS1+1 4700DIST7GPAR#3,#$30,#H1 4705STAATIME 4710DIST8LDAB#$30 4715ADDBX 4720STABX 4725INX 4730LDAB#$30 4735ADDBX 4740STABX 4745INX 4750DECTIME 4755BEQDIST9 4760LDAA#'. 4765STAAX 477) 0INX 4775BRADIST8 4780DIST9TSTCOFLAG 4785BNEDIST90 4790LDXM1 4795STXM1+1 4800LDXH1 4805STXH1+2 4810LDX#S1+2 4815DIST90LDAA#4SETEOT 4820STAAX 4825CLRCOFLAGSETDEFAULTCONVERSION 4830RTS 4835* 4840DISTCSTAATEMP1 4845STABTEMP1+1 4850CMPBTIME+1 4855BHIDISTCX 4860BLTDISTC0 4865CMPATIME+2 4870BHIDISTCX 4875DISTC0LDAATIME+2 4880SUBATEMP1 4885STAATIME+2 4890LDABTIME+1 4895SBCBTEMP1+1 4900STABTIME+1 4905LDAATEMP1 4910LDABTEMP1+1 4915INCX 4920BRADISTC 4925DISTCXRTS 4930PAGE 4935* 4940*TEMPERATUREDEVIATIONCOMPUTATION 4945* 4950CALTMPCLROFFSETTAKETHESETPOINT 4955CALT00LDXSTRPTRCOMPUTEPOINTERFORTEMPAOENTRIES 4960LDABOFFSETOFFSETIS0,1,2FORTHEZONES 4965LDAA#2 4970INCBINCREMENTFORADDRPTROUTINE 4975JSRADDRPT 4980LDAB0,XGETVALUETEMPERATURESETPOINTS 4985STABSETP 4990LDAB1,X 4995STABSETP+1 5000LDXSTRPTRCOMPUTEOFFSETFORTCSTAT,IMTC'S 5005LDAAOFFSETOFFSETIS0,1,2FORTHEZONES 5010JSRAXA 5015ASLA 5020ASLA 5025LDAB#1 5030BITBTCSTAT,XTESTIFBACKUP 5035BEQCALT02 5040ADDA#2POINTONBACKUP 5045CALT02LDXSTRPTR 5050LDAB#IMTC1ADDINITIALOFFSET 5055JSRAXBADDINITIALOFFSET 5060JSRAXACALCULVALUEADDRESS 5065LDAB0,XTAKETHEVALUE 5070LDAA1,X 5075LDXSETPTAKETHESETPOINT 5080JSRSSXBACALCULATESIGNEDDIFFERENCE 5085CLRSIGN 5090ASLBPUTSIGNINCARRY 5095ROLSIGNKEEPSIGN 5100LSRBREMOVESIGN 5105STABTDIFF 5110ADDA#4CORRECTFORROUNDOFFERRORS 5115ADCB#0 5120STAATDIFF+1DIFFERENCEINBITCOUNTSINTDIFF 5125*TEMPERATUREDIFFERENCECOMPUTATION 5130JSRSHFTRDIVIDEBY8 5135STABTDIFF 5140STAATDIFF+1DIFFERENCEINDEGREESCELCIUS 5145JSRSHFTRDIVIDEBY8AGAIN(\64) 5150STABTEMP1 5155STAATEMP1+1 5160*CHECKSETPOINTVALUE 5165LDABSETP 5170CMPB#$FTEMP<600CELCIUS 5175BLECALT03BRANCHIFLESS 5180JSRSUB641/8-1/64=1/9 5185LDABSETP 5190CMPB#$1ETEMP<1000CELCIUS 5195BLECALT03BRANCHIFLESS 5200JSRSUB641/8-2/64=1/10 5205CALT03LDABTDIFF 5210LDAATDIFF+1 5215STAATIME+2 5220STABTIME+1 5225CLRTIME 5230JSRDISTIMMAKEBINARYTOASCIICONVERT 5235LDAAM1+1CHECKHIGHESTDIGITFOR0 5240CMPA#$30 5245BEQCALT04 5250LDX#$2A2ADISPLAY***IFNUMBEREXCEEDS999 5255STXM1+1 5260STXM1+3 5265CALT04LDAA#'+ 5270TSTSIGN 5275BEQCALT05 5280LDAA#'-NEGATIVEDIFFERENCE 5285CALT05STAAM1+1 5290LDABOFFSETTAKEOFFSET 5295LDAA#42-7 5300INCB 5305CALT20ADDA#7COMPUTECOLUMN 5310DECB 5315BNECALT20 5320STAACOLUMN 5325LDXSTRPTRCHECKIFBACKUP 5330LDAAOFFSET 5335JSRAXA 5340LDAB#1 5345BITBTCSTAT,X 5350BEQCALT21 5355LDAA#'? 5360FCB$8C 5365CALT21LDAA#$20 5370STAAM1 5375DECCOLUMN 5380GPARCOLUMN,LINE,#M1 5385JSRDIGRID 5390LDABOFFSET 5395INCB 5400STABOFFSET 5405CMPB#3 5410BEQCALTEX 5415JMPCALT00 5420CALTEXRTS 5425SPC1 5430SHFTREQU*SUBROUTINEWHICHSHIFTSB:A3TIMESRIGHT 5435LSRB 5440RORA 5445LSRB 5450RORA 5455LSRB 5460RORA 5465RTS 5470SPC1 5475SUB64EQU*SUBTRACTSTEMP1FROMTDIFF;RESULTINTEMP 5480LDXTEMP1 5485LDABTDIFF 5490LDAATDIFF+1 5495JSRSSXBA 5500STABTDIFF 5505STAATDIFF+1 5510RTS 5515PAGE 5520* 5525ADDRPTEQU*IFBNOT0THENX=X+(B-1)*A 5530*IFB=0X=X 5535PSHB 5540TSTB 5545BEQADD* 2BRANCHIF0 5550ADD1DECB 5555BEQADD2 5560JSRAXA 5565BRAADD1 5570ADD2PULB 5575RTS 5580* 5585*ROUTINEFORPUTTINGANHEXNUMBERINTWOASCIINUMBER 5590* 5595*ACCACONTAINSTHENUMBER 5600*XPOINTONTHELOCATION 5605* 5610HEXASCPSHA 5615PSHB 5620TAB 5625LSRAPUTFIRSTTHELEFTDIGIT 5630LSRA 5635LSRA 5640LSRA 5645ADDA#'0ADDTHEASCIICODE 5650CMPA#'9 5655BLSHEXA0 5660ADDA#7ROUNDTOHEXA 5665HEXA0STAAXPUTINTHEFIRSTLOCATION 5670INX 5675ANDB#$0FKEEPONLYTHERIGHTDIGIT 5680ADDB#'0MAKEITASCII 5685CMPB#'9 5690BLSHEXA1 5695ADDB#7 5700HEXA1STABX 5705INX 5710PULB 5715PULARESTOREREGISTERS 5720RTS 5725PAGE 5730* 5735* 5740*MESSAGES 5745* 5750MSGIGNFCC"ignored" 5755FCB$4 5760FCC14, 5765FILLERFCB$4 5770NOLOADFCC"notloaded" 5775FCB$4 5780MSGBKFCB$D8,$E0,$C4 5785FCC8, 5790FCB$E0 5795FCC"AUTOMATICRESTARTINPROGRESSATTUBE" 5800FCB$4 5805SHRMESFCC"GIM11233" 5810FCB$4 5815LNGMESFCC"GIM112AF" 5820FCB$4 5825BCKMESFCC"SIM112AF" 5830FCB$D,$4 5835SBACKFCC"BACK" 5840FCB$D,$4 5845RECMESFCC"GIM06008" 5850FCB$4 5855* 5860*DISKIOCB 5865* 5870IOCB1FCB0,$31 5875FDB0,0,0 5880FCC3,DK0 5885FCC8,SCRATCH 5890FCC2,SF 5895FDB0,0,0,0,0,SECBUF,SECBUF+$7F,0 5900* 5905*MESSAGEFORSETTINGRECIPE 5910* 5915MSGROMFCC"SIM050080" 5920FCB$D,4 5925* 5930* 5935* 5940ACIAEQU$FCF4 5945BUFFEQU$FFA0 5950* 5955KEYBRDPSHA 5960PSHB 5965LDABACIA 5970RORB 5975BCCOUTK 5980LDAAACIA+1 5985TSTBUFF 5990BNEB1 5995STAABUFF 6000BRAOUTK 6005B1TSTBUFF+1 6010BNEB2 6015STAABUFF+1 6020BRAOUTK 6025B2STAABUFF+2 6030OUTKPULB 6035PULA 6040RTS 6045* 6050END h'$'629~ƥ967V$}& }& 3290005PRINT"GEEFEENGETAL:"; 0006INPUTN 0008IFN=0THENGOTO40 0010FORI=1TO10 0020PRINTI;"x";N;"=";I*N 0030NEXTI 0035GOTO5 0040STOP + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L