IMD 1.16: 16/08/2007 16:37:14 032479-5 updates3  UPDATES30300032579GREG \l|MPLSLIB ROXcMDOSOV0 SY\rFORT CMRDIR CMrMDOSOV4 SYrCOBOL CM(RFMSDSK CMRMPLNEWS SAEMDOS SYrMPL CMLrMDOSOV6 SYrBACK CMxRMDOSOV1 SYlrRUNTIME LORFORTNEWSSAERUN CMRDEBUG CM4MDOSOV3 SYrMDOSER SYeMPLULIB ROcASM1000 CMrASM3870 CMrBACKUP CMrFMS CMRREPAIR CMrMDOSOV5 SYrMDOSOV2 SY|r|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM @?@#0300 \CN0 LP0 DK0MDOSER SY }O'0&'L/&04315X%;$*IZ062Y06336;!1~nWn " '6-9bdkt# ( y|1sv aqwFI$3!0-}*26'}O&/7606 Z&nn#Z&9 &Z&900l&l90l&l9 Z&9A%6290%62%9$l9@%j96hiJ&296dfJ&29$&P+O?'& ?% ?.' 9 '? ?6 ' 29'' 9O'9**  $ && ?$~ 09 I &KE?$~09   9090~_0 h0629_?&?.062 C06 0&9  & 90gf90hi9 440J&0 6290   J&110 ކ@Oi @Oc@'0670$1'T4'P8'L9'H 320$&663'6' 22'90? ?0j'} +&?.Y$u Vx~S?*} +?/%?$ 629~/' '  k uS~DKrLPCRCPCNr  1 Q Se b _ \ Y0 O Q*!' $#$%4l&l '&  Ol&l$#$I011nA Oo'  ''  9? Q 1111 9*+"! $# H&YI76 67m*$#+& +|$~e 66?240?31111 O6L6*$ O+O32oo ?(?! O% ~~S|_?3?*67 O*#l&ll&l&&11~Q O |?3?+?$ O~6@6 HYHY027 O 7*" R6& |$L16| R20_$Fo76} Q+?< ?;} R'11 /_;0OTF32111 O~} Q+?< ?;1111111_~^ O67m+ 7 3+ 23m* TF$#$#9    0* |S6]3&011n~~ ~~~~~~    $0 011n&~ " V$]& # "!' m& Ԇ \  ߋHHH0 0'l >0 "!' ]'~ ]&& "'~ } #&~ ~ ,_ HHHH?( && # $ m&~  "& & 0  ? "'B_9 & ?'0 && ~  0  ?'~  "D'~ & '~ ?0  &0?"$? ? & '~ "!'~ &\0 #'  $ &0 "@'o o ooo?!]''?'; ? ?_B  &  ?0* "'~  9       DDD   } &? ? 9'u09 ! _  %*_  Yz !&VFFFF# "GY9' V$]'~ &Ġ''P& &' '00@&?$ &~  ? ? &~ ԗ'u0 & $x&l&'(?)% (&$~ (Š& '?(%*7%'*  ?/%?/$,''G &C&7Iŀ&* ' 7}n76./76~m I '2m '%''0n&'0,-0&_9 90  9    $"#0!?9S$z,9?$&?/$11 (?&?/%9  &ŀ' ?-9Š&   ?.9 900"$uv&9$v'# ((? $u'J))$|(911~ oc' 9Š'9& SS90}629,&*ŀ'Š&9S  #Mnp{' {j?' &&l  ; 7_HY?) ?# * '>&0'Z\'+ } &| J"?(~> m''?' |&|76   $! 9 ? . ? :9$|&99G$| 0 ~626 29DDDD09#90 T138 "#$ %&'()*+,-.5TtINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs 6 6 6 66*0$j_\$8HGD6@?% 20 229V S ~   '  / /·| ?$~k &_ ?9S ? ?:S 9   ss~~' ?   '; Z9 ?_$~?'  ?'~r.&.%,]%.& %  l l~]$~.%' &~4']$ &~?&$ &m &m ' ' '~. &? &ƀO?Z?1?1 ?m+ 'K_ $?,?) &~  &  _?&$?,?(~&^XXZ?'gʀ? & _9 ۽XX?'~ 9      &~t?'~vTTT-#~?XXXX?''~o o m*~K?* ?~K.%SZ& ?0?0*~%R?.&ǽʀt?)' oo ?~?(~$9 ?( 9TFVFVD6YYYO FZ,299$ 9g|WW\7g?%39ZXX7g?%3O?*9?-g?)9?m+ \:/11~'9   p ss~~~~~ ~~ 9~~~~~1~N~N~0909X0o8]''d*&ց.&PƂ8]' *&ʍ:& 0?8 0?090 ;' ' 0 l&l9u #'zƀ ?6 ŀ& '@'?$ @?%?0]'Z0Y?%0 ?')760' ?0 ?23*&  ?$?$*1906?290?ƈ8~'6'-  ?-?&0 )?&?)  ?/%?/$ 0_2W9 @&- $*?%$ ?%'?/' ~~~'DK&~ߦJ0 %A]' ?(Z '0  @ ? 09 0 ߦ $ ?(z& ~6 @''  oo  29'~Z '~]&~]|'''~`&'| &&o o  's$~c?@}&~'~}*~9%xl&l&' &}/%}& |&ĽG 0}& }'7G3%!&' &  $~T~$6~T&%}'  '!}, & '  $~T%~i}&| &P9 %}. %9E}+ H}'D$~TO}+ ?.]'~f$L}&| '%C}*~r~}'7TTTT3% 90:%9ʀ  ' 73]' 9z&}* VM7K$>0 1 ' G$ 9 9W}*7 _ 011n~϶?}& W & }*] &9 |b}*0 b}*9OZ& 2OZ&  `~~ _'~͆&~ц &$~}&'''~~'| - Z.$~ܽ%_ %$~}'Z& 'M&ZJ?%$~&~&(%?/'% '& &8}'}& $~}'~}'~o_9'&|]*' z' ~4%$~}'H' ' E&| D' }&t&ip%}&~}'&}'&z' p%} p%}}&̽%% &&'m&jj~ن 0] 9  0 &}&   7399@  9冀 %%%"$1111~XXXX[%% %[ 90%% *% 9}+%90997 &39 % 9?/9}&M&ZJ97%3g9399 !8~~~'~  & o_9''  '~v''&?8'~@'X &'L&]'C?/'=ƀ?'?$?/?&% ?$#$?/%o  ?ߤ]'~oo&~ &Q'~ DDD-#~   ? XXXX?'?  ? ?'?"%~0] 9   &0o_90?&ZTTT-P"L ?0XXXX?'''0 ?'6 ?20?90 9  &~0' &?$~'M  Ƅ'~&&ǶƧ ?_9?%~' Ƨ  ?'?'??@?%!?dž&~ 9   ??9̈́HHHH?(VVV9#H  ~.&~dž@ &~O0.''~0&.~Ͻo_90'.?'&~~|O 0 &~ӽ0&~B. ?'?$' ? ?.&~~.' '~oo oo!"#$3. 52?5*~ۦ. 5:m+Z&~.~P}O'~P?6'~m ' ?'3.5 3?&.3. ?'53?~P. .?' ' ' 0@&~ӽ.&0& .62'& 0&~0&~6. ?'?$&~&~&~ ? ?.~' ''~}O'~P.K.M. ?'?$.?%?'?$.?7KLMNm&~S~0&~φ``&~0] 9            !" H&911 .90.$11~9%X  ~~+hAs@&LOAD=MDOSMAPR:0,CMDI:1;MO=#LP;MAPF;EXIT OBJA=MDOSOV6:1 00;LOAD=RLOAD:1 D:1  END CHAINHHHHC'1~? $0 9- - ?' 9? %A@'C\&0$ ']'Z 09)~9*'..'*J'tC'fL'_S&~dT'%2 6'A? 2.&4(? ? $~C #6-?/  ~2~k |~A@L&A& Ҷ O 6?&%2M' &A? _?A9 &4'3~+4 '?& ?&? ~~a?'6(2&9 ? ???oo0+( # + . 7xyZ&3Z&9 'x~ !j?o_!e?!h!;&%!h !>&!j!!l!j?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!5? =3O? ? _3!A!E!C0CM!N!A?]&5!E0-.3.*!A!E?'''' ? ~ !^? ƀ?#~  MDOS . !q!WHAT?!q!n ) 0B01COMMANDSYNTAXERROR 0502NAMEREQUIRED 0603\0DOESNOTEXIST 1B04FILENAMENOTFOUND 0805\0DUPLICATEFILENAME 1A06DUPLICATEFILENAME 0D07OPTIONCONFLICT 3008CHAINABORTEDBYBREAKKEY 3109CHAINABORTEDBYSYSTEMERRORSTATUSWORD 1C10FILEISDELETEPROTECTED 2411DEVICENOTREADY 0E12INVALIDTYPEOFOBJECTFILE 0F13INVALIDLOADADDRESS 1314INVALIDFILETYPE 1F15\0HASINVALIDFILETYPE 1E16CONFLICTINGFILETYPES 2717INVALIDDATATRANSFERTYPE 2218DEVICEALREADYRESERVED 2319DEVICENOTRESERVED 2520INVALIDOPEN/CLOSEDFLAG 2621ENDOFFILE 2922BUFFEROVERFLOW 2A23CHECKSUMERROR 1524LOGICALSECTORNUMBEROUTOFRANGE 0725INVALIDFILENAME 2B26FILEISWRITEPROTECTED 2027\0ISWRITEPROTECTED 0928DEVICENAMENOTFOUND 0429INVALIDLOGICALUNITNUMBER 1230INVALIDEXECUTIONADDRESS 0A31INVALIDDEVICE 1132INVALIDRIB 1D33TOOMANYSOURCEFILES 1634INVALIDSTART/ENDSPECIFICATIONS 1735INVALIDPAGEFORMAT 1436FILEEXHAUSTEDBEFORELINEFOUND 2837ENDOFMEDIA 1838INVALIDLINENUMBERORRANGE 1939LINENUMBERENTEREDBEFORESOURCEFILE 0240DIRECTORYSPACEFULL 0341INSUFFICIENTDISKSPACE 1042SEGMENTDESCRIPTORSPACEFULL 2C43INVALIDDIRECTORYENTRYNO.AT\8 2D44CANNOTDEALLOCATEALLSPACE,DIRECTORYENTRYEXISTSAT\8 2E45RECORDLENGTHTOOLARGE 0C46INTERNALSYSTEMERRORAT\8 2147INVALIDSCALL 2F48CHAINOVERLAYDOESNOTEXIST 3249CHAINABORTEDBYILLEGALOPERATOR 3350CHAINABORTEDBYUNDEFINEDLABEL 3451CHAINABORTEDBYPREMATUREENDOFFILE 3552SECTORBUFFERSIZEERROR 3653INSUFFICIENTMEMORY d-dpe L0200   --- PAGE00 00000 INST-- (kTOTAL ERRORS 00000****ERROR 00000 PAGE NO. NO. OF INSTRUCTIONS  00000TOTAL NO. OF INSTRUCTIONS =00000 OPCODE COUNT 00000INSTRUCTION COUNT OPCODE USAGE STATISTICS SYMBOL TABLE **** UNDEFINED SYMBOLSNARG b?O&Lߒߐ9߇߉ߋߍLɆ7֏'81&!?&?'~,)D I?O&"І&&!//&۽I`_no'~: ~:D ?'/!ؽIDK!!?&?&~*~,!?&?&~*eLOk'l,, '~*+lqI*' &~,; '.' A-Z/~+/$~+I'6?2\'0I0%0 D]& &}'lIl sl]'~DՆ~+q & }@' ~+} &D'n/j}&Ƥ 0o~&7~OWIWIWIWIx3k'~- ~*w'I`w9yyyz&I9֏&|vLv@&#|wvu|uu'x& LU?'9zuv~*I`_no~}Ƅ~+ &5&9 f'~E9,e9' (K&9&~*Dq4'2 '5& !&- ~*? $~,!?' &\9"D& &&ƀ?!?'~,D?(&&& &Oƀ ? & ?!?&9!8!?&98&|8_? ? $ ,&7Z' - ? !??!??!???-p%= 2& ? %Ƚ-,9K%,&7/7P99%,&7Z'@7-|79k/2'(&?2! ?3? 9-,92&*- f'!'  9 9& Z& !&,9,'9z7'9D37}(K&%uLU?(O(\I-(\(]u(YIE (Y!F(!(L,F!D9P P&9uQS&/>Sŀ'uv&I@ &S'E}J& J& J& \~]1'x]%0 ' 'z\&}' S'no' I@ ' k'~/ 'NsLS@'/D5N2 '5' &2 ' 'LDN DN D5'@ 'XP&VN NO/<" &/="'& N5'DL42 '5&DN 'D'2 '5&D N '!S&&- 9'&1&''#?u@?@OH6723"?)v?(~9q '2{' u' ܽI`  @&@  9uv95UII6lM&A&0C&*R&$ '% '! I&N&S&T& ܖU5{ND'IזU & 9 9FLUDID'Q'&3J'&+J'1'&!J'''&J''& J''&J' F?' F?'}~_99slI0޽0%H}&o?"9n"3o (n&)&o"OWIWIWIWI o" OWIWI~~9I`Ƅ~9 ' & 9 9p03n3o339-&_7777 2?+'-' 064{J2~26I2?H0J4{N_-&IDLN4{RDPDRM' 7 7 7J&LDDM'N I7 7 7J&D7P DL FNPJQ_P&Q'_ EQ'/DF"%&5 FD D}I'@'66\zPzQ D66\zP D F}I'@66 F\zQ 7NJ}I' 76RH+' -'77D5J 7 D&+'-'9~13[*'/'!&AI3($I6! 26I3[603(0211111*'/' !& I3(%6 ϗH04_Hn0H90H90 'DFGD D'0?'FGH O9? 98 91 90'XI ''DV 'GIYI ' ' VF 090 93=' 3[& 9 9*2/2^2.2+2X2<2>2L3R3 (&~4?3H3ILJ.'DA-Z/<0-9/6$'@'%'&'''[*'aĽI`~424 _4 Z4 U4 P Yl0-9/A-F. I6|JH'O'Q'B' B'J _77I67 _77v6u6 J'IHn5ڗL @' ' &p_7766 |p_7777L~4 I0L04_L)&InI`Ln4{FG D D&11F9DOXEDDEDOX\EDFGF9b5p%BmcDE][ED$5=G$5=l ٍ9z%L /5a%E $5%> F'6I`2011_77E7D7nDF9XI%9)9GDE9   ߍGDEFF97FF39I0-9/ A- F.  9 9I0-7. 9I0-9. 9I0-ف1.Մ 9NIA-Z/0-9/.' _'='$&T'T&ІI` ˌT' T' 96f'-R &'NN&!OA&PR&QG& ))~6ސD'3N&O&P&Q& R&S'gO EDDED +'2FO4+'666666z7y7766666S6 M&FD29Oۓ"& ш#ݽI`~:ϗד9' `&ӽI` 'I`+'Ė&D ?'' NR'0J&FNlNޒPR FPPNy yD @&l RD29&99OHIސN'KH& `&| *8 8YNO9'N ۖH&HI'K' P !&-+'-#|HO47HJ %''-#zHO47HJ *K' P !&-9 I&(-#)!)-|IO48HJ&PJKK'NDPI׆ PzK& !&-9K& JK&PN76DPI׆ 23I@ PzK& !&-9,N `&U& 'M&&I@ND&IN M I ?'RLJK'PzL&M'RMRLR&':RPIP?'PzI& *L'zK&P !&-, zKKJ' P !&-9F +'I֓Б9HJKM& "'9+&JKDVJKXIDEXIXIEDۑ9'lLސNLPHN42"#&92"&22"&+2"&$2"&2#N4ID271zD&HFNO"NPQ'P H&J&K'~9C9 DED' "D 9`-&~:Ԗ1&,yij(I(!(-|(K(U?)];(!(̽--#(˶(ˁ.G(IE (LU(?'O)1)0)0)1O) I  ) ) ) |()!(- )0)1)+I )+)/!)-'';ސ' );7# ~,7#uLU?'|!??~*,& -p%7Z'-9&(j&&? (-59)p;)G!)2--#ZKkVIXV'>&)J&Z&?XZ?'XO)XI )X)Y)\!)H-XX 9sTSIN& IO&|S TlN<$Z&Z+'Z'!~<*=RQ=@<1%=kQ=R<1%=Q=k<1$?],S&nL>gk&- ' &>V,T.+.vރu~*>L>g 'Ƅ-֏'Ӗv&?(o ƆI`~>I>T]9u 'u9I`9n&o~}*' ' ' 9ҽI`&Жv?( _,'0޽0%_9,'9OnoU&II60%|UI69& ((k'~*(UTO4UTTU<(j? TUD$T ('Vs -~*I 'Z&9&~*I '0޽0% o' n& -# ߆،ҽI`_- Ζ'-5~*w'w u'(& LU?'uLuxv_-:7~*I`_- I0޽0%cp&eOtnvoFZ&DD}n&Tono"J?"Fu%<&v%6p-wnu'&LUu?':7nuux~*񌆸I`- 薏&~*I6'?2\'_I,&0 &N&J?,&U'?&I@$0%)0 '"&?K}&'&&?`-~*I` 0-9/A- Z.|U 9 9| /jI0޽0%^n"Xo?"RnOWIWIWIWI~'|J}h,+' ֏'|J/ ֏'|J&o~}kƄAg+~*'|J'|J/ |J&I`~A`+,kƄ +~*+-9+,-9Il T1--4.)}I,&!I0}n&}&$0% o~ EҽI`?~}Ƅ h,&o~&' ց&' ?&ȽIl sl0o+Ts}c'.,'b'Es(Vb ''s|!kƤ-! -+~*''}&!VD'l'cH6 Z&DV ?'9}e'~B}c'~B|d~B}e&|ef' &ZIC&I0%|Z`  '7CW$ I`_-~*3-'Dމ?+TVI׽, 'I`~*'lT[I*&Z'|[ 'I T߇C$&k,+_-[&HA9&I`nF{&T߇߉ߋ}d'dߍVֈC~* L9'+?+NPL2&Z&PN 9PN 9ֈГ%9ݽI`~:ϖ[' މF ߉މ D\,-'(J& F\' &]\D['F߉C9GF.& FD]&~DeD]'I` 0 -Iމ?+JI-2I' ?+zI ]' A\YA\G(J'FZ&GY\G~CY\~C6މ?+2' & %`a ߇`(DGHD%~CއGIG.?'G~C?@?9_0- 9/A-Z.9\9/j'CW%~+Df-~B֍?.$|c!-#.#!|b֊އ އ߉ DEEFY|fb'EM[Ck'l,~*͖'!!&?.L'n&'o&&?9'o'&&&'n މ?+W ߇OTUV[I &19I &'YVLއWUއYZY߇T&9~B(')'#,'*;'. &T'|U T\T' T'ZT' T&ލ1 T&)=|['lf'C ,e'I`~*lqY~E|VYWUUYW Y9['qs,+` #& b'-9}c'zc-!.#bfJ,~Bfމ߇ ߉~*?\ \?9=n'6+4\ 12n++\ ()n'"* \ n'*\ n& \ n'\ ~Gz LT T'_I '4,'\ UV]'lXs_I&\U&I & _T B I0޽0%_9I`_-~*_J+_"' f& y y `-~* O   TU^_L/~GN_"' f&y y T' 'T - p-U'~*|^f& ,e'I`~*[CHAZ&_L/~GN_|^ 7GX&+_J*~GN_z^&!"&,f&+`k-~*9&n&',f&+k_- 'lI*'0 ' I '% &I'6?2Z+I0%Z+'"_90 ]+_'I& 'F&990 I`_-~*767640m+ Lhi+&oo$  iidfj&111239766660XIhi$j&1111197_ 7?l]' 'l?39?l l?9 7DDDD390:%9}'37g6@?#2kiiO(ƽI (Ʒ((!(- g39'9?IC%|C 6A?C02?AI&9'd AD42Z&A9A6AAC A8AAC A10AACALEC pALEM )AMAAC %BR CALL CLA /CLO  COMX CPAIZ -DAN DMAN *DYN ,IA IMAC (IYC +KNEZ  LDP LDX <MNEZ &RBIT 4RETN RSTR  SAMAN 'SBIT 0SETR  TAM TAMIY  TAMZA TAY $TBIT1 8TCMIY `TCY @TDO  TKA TMA !TMY "TYA #XMA .YNEA YNEC PBL @CALLL @DEF @ EJECT ?QENCODEAqEND 9ENDC GXENDM F{EQU =FAIL HIFC FIFEQ FIFGE FIFGT FIFLE FIFLT FIFNC  FIFNE FINST B^MACR BxOPLA =OPTION;ORG ?PAGE ?[SPACE ?TITLE >L Q. Q1Q? O?:3H4!/2RQuR0QuQv?SAQ~M]'&.\& /!&H Qu0QuQu? ~,Q' /R"& ?(/QuR R?R &~PJ;'~LR; ' &R -&; RQF' Qs& ~M;QsQt?/#IIo;&l~MnR?]''9Qu?9;' 2!!~M!'<2R=' LP<=~N#&RCN' LP' ~M;;'|1~MR='!R!R R?AO! UR!R!0!! ?R?]' ~M;!0.! '|) AO!R & R ,&DK!"!!! ! !!!~MR;'|, $=&P %)_ R?/"?/%R3~M~M;R=&P %)_2R?/"x?/%R4~M~M;R_ & ,'\ RRR9Q? (j& |>R R~O(2& }('% XLP!&!!?&@?&<!Ϸ!'!(J!DK!!!!!&4?(5?$ ? ~,_ 91&!?Z' !0!~M; R)RR ?~*ENTER HEADING MOTOROLA 141000 CROSS ASSEMBLER . COPYRIGHT 1977 #$E!"G M(T'S%U&X+LMONPONOHP,Qd0 SAQQQu]'GRiRkoo RiHY%5HY%1%+HY%'Ril&l?%_%zRk&O9 30FDBNMISR-EXFIX+$FF80 7640*NMISERVICEVECTOR...SECONDPULLON 7650*NMIISNECESSARYBECAUSER/WGOES 7660*TRI-STATEDURINGTSC 7670ORGEXFIX+126 7680RSTAAFDB0 7690PAGE 7700ORGSUBS 7710SPC2 7720*SUBROUTINELISTING 7730SPC3 7740*THISSUBRXGXHY F0101   --- PAGE00000 . : #S1TOTAL ERRORS 00000****ERROR 00000**** UNDEFINED SYMBOLS b `NARG b/L/R/(&~1F3E3FIG.'lA-Z/>0-9/^*&~0ԆĽCv~191 1 1}A'Cv0o 1 1~0h'&|GhB'C'PD'H'O' T' jGh0-9/A-F. }G&CL '&B'D'H&~01O&~06C16C1'2'~0)_7767 _77r6q6 G'C1En2IKD' I' S& & $I I2ݗI @' ' &l_7766 |l_7777I~0C1-I01fI)&C1nCvIn1CD A A&11C9AOXBAABAOX\BACDC9b2w%BmcAB][BA$2DD$2Dl ٍ9z%L /2h%E $2%> C'6Cv2011_77B7A7nAC9XI%9)9DAB9   ߍDABCC97CC39C10-9/ A- F.  9 9C10-7. 9C10-9. 9C10-ف1.Մ 9KC1A-Z/0-9/ .'_'$&Q'Q&ԆCv όQ' Q' 96L &KD'I'S& ޽Cv$~3_'-O &'KN&!LA&MR&NG&ޅ $$~3ފA'3K&L&M&N& O&P'gO BAABA *'2CO4*'666666u7t7766666P6 J&CA29Oۍ"& ф#ݽCv~7n׍9' `&ӽCv 'Cv*'Ė&A ?'' KO'0J&CKlKތMO CMMKt tA @&l OA29&6?9OEFފK'HE& `&| *57 5yKL7 'K E&HF'H' M !"н'*''|EO14߽BG %'''zEO14BG *H' M !"н'9 F&('$!$m'|FO155BG"MGHH'KAMC MzH& !"н'9H& GH"MK76AMC 23CV MzH& !"н'9&K `&U" 'M 'S"Ц"ӽCVKA"CK J F ?'OIGH"MzI&J'OJOIO&':OMCM?'MzF& *I'zH&M !"н'& zHHG' M !"н'9C *'F֍Ћ7 BȗGHM& "'9*&GHDVGHXIABXIXIBAۋ7'lIފKIMEK42"#&92"&22"&+2"&$2"&2#K4FA271zA&ECKL"KMN'M E&G&H'~6k9 ABA' "A 9ohC1 &_jk --`$ Cvjh(Z'!*Lef$YC$]!$L'4C~'p4C|!??~%+&'&'%4Z''9oQPC1N& C1O&|P QhK9$Z&Z+'Z'!~8;9ZN9N8B%9iN9Z8B%9yN9i8B$:],P&n9'8y&'noP&C1-`$ ,&hQ~7`(Z~%ٽCv ަK&$& L&& M&  9N'J& 9P+'~8 Qh9$=&1-`$ ,'Cv ݽCL2M& 2 -0 ͆Cv Qh9$==&1-`$ ,'Cv &CL2M&32-x.1"23232 Cv~8 C1-`%CL 9,' 9' P'z) |)~8 & ތ&|*~83*&Cv }%&|%~83MEX!LLE8CL"MD$MC#G U&L9P8y9w ։&@& @ 9  j&h(Z~%ܽCv 9w ։&@& D 9~9'9~9 ~9 &$ ߽C1--`%l&9Cv9jk9*hWC1 '2":WhR:'I;/ơ(U #Jv&&ϖQ. 'Cv~%:'@;/ 'Ɓ(Z ։'kqN) ĽC1''́ 'ɗkơ  (U #Jv&&ϽC1'' ' ' Ɓk(Z ։'qN) QC1-`$;Q+~:L~:DhWC1C&C1''Wh97' 'C&+''&#''& >>?"?M%>SC5h o9C1 '29C1;Q],9-l9*RC1;Q+B(Z #Jv&&ϖQ.~%C1;]+Q 'Ƃ(Z ։'qNj) ȆCv~%_,'--`%_9,'9OjkR&C1CL-`%|RCL9*C1 '1--`%/l&(j'*(Z։'jQ@qNO)Qj<"~%،ŽCvj(Z~%j&9*C1 '--`%l&(Z<"~%ؽCvj 㖉& $#'~%#QO1RQQR<#ҽ $&g&Ͻ&_(ZX&B]7%&Cvn@&Q߃߅߇Sք> ~% I6'+?+KMI2&Z&MK 9MK 9քЍ%9ݽCv~7nX' ޅC ߅ޅ AY&#J#& @\' &ZYAX'C߅> 9D@.& @½?T]&~>?T]'Cv 0 -Fޅ?+JF-2F' ?+zF ]' >YV>YD#'@§Z&DVYD~>]VY~>W6ޅ?+2' & %]^ ߃]#DE?M%~>WރDCD.?'D~>]<=<9_0- 9/A-Z.9\9*"=%~&A_-~=Kֆރ ރ߅ AB?@|_X>3g#Jh&~%ޅ?+T ߃OQRSXC1 &19C1 &'VSLރTRރVWVQ&9~=K(')'#,'*;'. &Q'|R Q\Q' Q'ZQ' Q&ލ1 Q&)=|X#Jh_'>3 '$'Cv~%hmV~?|SVTRRVT V9X'mo&Ͻ&` #&(Z9_J,~=K_ޅ߃ ߅~%3B]Z&\L/~Aj\|[ 7At&+\J*~Aj\z[&!"&&ϖ_&&`g(Z~%7%&n&'&ϖ_&&g_(Z #JhC1*'* ' C1 ' &C5"Z+C1-`%Z+'"_9+]+_"I& "F&9z9+ Cv_(Z~%767640m+ Lhi+&oo$  iidfj&111239766660XIhi$j&1111197_ 7<@02<>C&9'd >A42Z&>9DDDEdEdEEEEEAI$AMASBCBF BMBPBRBT BZCI%CMDIDS0EIIN&LI LMLRNI!NMNSOI"OMPI(PK SLSRSTXI#XMXSDA;?DC:ADCAMDASDBNCBNOBNZBR7CLRpCOMDCI*INCINSJMP)LISpLNKNOP+OUT'POPXDC,BSZ;END7%EQU9yIFCAOPT7ORGB&9BFBVNXB#&"MJB+&BDBWRaBHB|B BFR9BV'L#|B# [BVB& BBF'IQBFW{B VB=B>B=ZBi0'|B+ BVBBFB9BFB@BF/ -|B BBF'JBY_M,SWtWsBDBE WqBDBDBF'|BBD,|B9B LBVB &;BV'62XX  BVBF&B@C2YX  BV[%|B zBV 9BV'L" BW'BD#|B#9BFSdMB'7B&2BD&BPBTBUO NBVB(Q,B-B.&P)SR9BDBXBD' $l oBD'~OBF&QB+& TWoBH WmBHB+'~OB5B*B5L%~OB*'~O|B5BH&~O3'~O|B*B5BDBFBBHBF&TB5BVMJB7W{BHB7B8 "&$B7B7BHoBH ~OB_BIBHBHBI~O B*B+&|B.BDBR9B5B?WmBJB5L$&B?&!|B5BJ&|B? B_BKBJBJBK ӶB?&|B. +B5BRBSBFBJB@BLBJBNBB4WE9BP&BRBSBD ,BPBVMJB#B+&BDBQRaBRBSBH|B BRBVMJB#B+&IBDBSRaB@BLB_BIBHBNBOBDBB4WEBTBUBHBFBH|B 9B5BDB6B)W{BHB5B6$6B)&1|B5BH&B)B(BRB5BS BD_BIBHBHBI ¶B)BT&O B)&N9B(& BDBT BTBUBPB)B)B-&FBTBVMJB#B+&3BDBURaBF-BH/^CB@[&|B- Q B)'B(BV'B'N P9B@CBH^[$|B) BTBPBHBTBT&|B)9B ':BBB=M,sB=B>W{B=Z聖0'|B+B 9BFSdMB')B&$BTBUNBXBPB.B+& P)BF'SR9B:B;W{W|BHBIzB;B5B5B;$B:_BIBHBHBI|B5 9B%'BFB&'BFB'BFB-'BFB.'BFB&BFB#' BFB+' BFB<' BFB' BFB' BFB'BFB'BFB/'BFB1'BFB0'BFB2'BF9BFoB#B!B%BB&B+B-B.B<BB/B1B0B2BBBB9W}聖0'|B+9BFSdMB'zB&uBDooooBF'WmWnBHBI QB+&TB+& WoWpBHBIB+&4B5B5L$|B5BHXBBD&BHX BF&T SR9W}um0'|B+ BB V޶2*'|B29BW{W|BBm0'|B+9W{聖0'|B+9BFSd2&TLQB+B2'~UBF ^C2[& |BBF oTB+&gBF ^CBB[&WqBH,|B BFo|BU 6WsBDVB6&|BTL BB*'|B WqBD-|B |BB'>MB&6BFBD'|B0 #BF,BDB&|B1 BDB|BR9BFJBY_M,SWlWkBHBIWqBJBHBB5B5B$|B5BHBJBJBHBH 9B5B6B5$#|B5BD,|B6B_M,SBEBDBDBE 9BFSdMB&BDBQBF&WR9BFB3JBFB@BF&B3. BVBWBF&B3'BVBW o9SdQVWqBJ,BWR9B5WsBDB5$#|B5BDBB_M,SBEBDBDBE 9TWqBLBFJBY_M,SWlWkBNBOBB4WET9B5B5B4$|B5BLBNBNBLBL 952X5\B2 52C6706C& JX=CCCCC2JJJ&C329770_F$VFj&119ZcZJ~Z CC*sCC9Z"ZJ6C2*]9CCC*] *]9HYh i$j&9Coo*@ *P9 CCCC&CZ&9CCCCCZ&9CS9& 9ZCCC$|CC9JH______? 9__E_z___`A`b```aWaabb@bVblbubbb FMS DATA DISKETTE BACKUP AND REORGANIZE FACILITY ENTER ONE CHAR SEQUENCE # [0-9] FOR NEW DATA DISKETTE: ENTER DATE(MMDDYY):  REMOVE SYSTEM DISKETTE FROM DRIVE 0 AND INSERT SCRATCH DISKETTE IN DRIVE 0 WHEN SWITCH IS COMPLETE, REPLY WITH 'Y': DATA ON DISKETTE 1 IS IN ERROR UNABLE TO WRITE TO DRIVE 0 DATA DISKETTE IN DRIVE 0 IS FULL SPECIFY FEWER OVERFLOW RECORDS PER TRACK AND RETRY DISKETTE BACKUP IS COMPLETE  REMOVE DATA DISKETTE IN DRIVE 0 AND INSERT SYSTEM DISKETTE WHEN SWITCH COMPLETE, REPLY WITH 'Y': DRIVE 1 IS NOT LOADED WITH A VALID FMS DATA DISKETTE INSERT VALID DATA DISKETTE. WHEN COMPLETE, REPLY WITH 'Y': DRIVE 1 IS NOT READY WHEN READY, REPLY WITH 'Y': UNABLE TO READ FROM DRIVE 1 CLEARING NEW DISKETTE ON DRIVE # 0 COPYING DATA FILES DRIVE 1 DISKETTE ID:  DATE:  SEQ #: CONTINUE [Y/N]: BACKUP TERMINATED DRIVE 0 DISKETTE ID: $#($ $0300 _"""g"")1#5  "_""# SYNTAX ERRORSYSTEM SECTOR COPY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEBACKUP FROM DRIVE X TO Y? APPEND FROM DRIVE X TO Y? DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINVALID TO COPY/VERIFY FROM DOUBLE TO SINGLE SIDEDENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DRX- DRY-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER   O?w.#).#1) & & 110) 1 &1 10&~$ݖ)'!l!"!q!")1ׂw ' '$;&`Y%A' %k& JY 11!+!Z&!u0$ ? Y'?)u 1u !.~%k~' ? ~1>? ~1>!&J!9!&L !&߆   9 |%9|#(9|&9|"9|$9'&z'#- ~.S'&|' #" $ $A$C$D%I%L% N%R$S%U%V$Y%Z%3+*~1$&/97/QM??$HYIOPO}!*DVOPDVFNMST_?/"m!+/) *,&*,&%EMQ|-7&3%5Z&$'4*O,+,-?-$?),Y&Y&~1.~1$~1OPTFTF[\Y*,9HZ&;~+}, ~*+}`_G |` . .w 'y "/|_ I&̖_&!~0$!Ƚ0$cC? ab Ub.'XX`"[}b'c%Rd cd|b-'6a'!_cHY?%?1?1?*G?)dcLƪ ?'J&2,' &a&|aC C &9,~* '~+hS'D&e_C SA  .{|&f]*'_6 2&V6_'yT$ 7 +m3T$ ' v`Ga c cca'*&!aZ& eS'  ?f|` ?'aI&`& ."/2,&~* & _&|_~*~), &*?9Z&9f'Gƪ I' m + ?( 9w  E0y w? .&&"/E?%{ *,4K/=02%e_-A' _`?)_j E_`0 lm?%~,'~,̖!D% ""'+/ 0$"'+7' 9ƀ!~1)Cc? N'Y', ý,!? Coc? &E?%B,?%A c E .{]&Ł & w Eyw ? .E,~,!=Ƃ~1)Ɓ!~1)jklm 9 Ž0$Ɔ?#9 6I/7E *2)02%K+ 6I+ 22&Ku?'wI?'y w?0Y%)E 2K=-??A A-A_`?/%- OP?/%- _-- ڽ-A&4'0Y9,?$A?-A?*?)?_?-_4?)402,-TFV72/?)/90Y4O_I/9A=/ $9? / %n&?'nA?'A== >?(>oJ&9 y w? '~$ֱ &  ' 0,~$3.9rwyrw?9r{}r{?9   ?9.S.yyw?9 6....1@29 7rW%1%W1XXZ&t2tr]9uU uUUu9 '97HYHY?%2|I9?]&91*2,402$~/%&~/ؽ,!/'# .{]& &7y ww? ,!e'&?%Z& &7 ?'yw? ,!8'0_ ' -z.\ "77?(yw?3'y?0Y%9? w? ]91$#'2? %9?2 '' (Z& 6 ?52:(?3'?4 ?5 ? %? ? %9~1.n .Si$0&*,-?)*tn9n .S$0%&245?)2tn 91>1'4'7-9#Mk1>o'6 p&0zo&3 '4&]*7 T$7* <n3Y 9o p 9  ƀ?' ?.?)960? 296? !ƃ Ƅ  ƅ?#0$#' z(' ?5 ?]'/l&l1s1s #0m&jj1s Z&1s96dfJ&296hiJ&29A% 62% 0%62%9$& &$&D)3$$LTnooooo&P[HP6H2PT&,&R&'4P+HP76H23o|SP& ~3\N&~31 ŀ'*H JTNS6J2 L'$H `JTN6J2 $'%H8JTNRSJ0RRNOB'~23`4$L%9 HJJH9HHHJSJH9T#7T&$&D)$LT3Tpp@q#LZzVS9XAZ*$+-.,0B/CD@@@ ))QQ@@LL :DK0ZZZZZZZZLODK0COBOLIB SA""PDK0XXXXXXXXSA#$D0""PDK0XXXXXXXXSA$E$0t&.+80\0^&]E' C') ~'/^~'K[^OZ&MMH_M,S00highWW&9g^K' WhW~'WYM[MZJY'~(YM^$L~(gWh9g[H^H_M,S00hihh^h'hh&9~(chWM[MZJW'~(kWM^$L~(|g9Mcd^cdg& dh cdhch^MoooM[MZJcMZJM^$L~(g9"0 a][Z/~) ,[]]J&JZJJ&Y  J@'&Y  J?]&Y  J&0aa&Y  JLK * *'*+@+8+CKX)zZOn^K~)aa[a#*<<.>K&KZJK&Y  JKLK )*)**)j)KX)׽ZOnaa+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_)JZJ`96" 3/ ]`9 'Ķ# &]9_]K[KZJ0#_`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| +++ZJ}"ͽY zWz&%XW&&XMHHHHM,Öy,9MM,Öy,ʖz,9-69M M"ͽY MYY&Y-6NE+Y9@"NWMXE+Y~-ZY# # WXYNW-69,ʖN'p+U9W76ց/ .B.2M'@'X6ց/0.O;2 & HHHH BB-' TTTTZO-2'ց/W.O;WXBB ց/0.O;24BB39L".R~/>JX=cQ.QH'yK &"S#.&#$ €CB 5Q@&+&%|.JQJZJ.JK$L~=}?.K_M,SRQQR~=/@&5.?$/6CB##QR?".? /8A@€@A?.' ..?/6:, /.~=. '?%&?CB#%HY$|%%%%%%?&f%#%%%%?&S%?&@%#u%ɧv%ʧw#xzoyo{%?&%%#?%_? ?SIZE: PROGRAM DATA ERRORS IN PROGRAM 0\0\#WBCB# $~'$ٌ' @<Ԇr$9>@>Q>$$$$"NJ ?W?g?n????@@@?JX?2ZOny&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& JZ62JJJ&329770_F$VFj&119& 9Z$|9 DELOPSZ&."oJ&@o&z%#J[A=' '* |%"%""?']-%? ?" /Q" #ZZ?&Z? '(;&QQQZ`"%' Z& Za# Hcւ'=[AOg~'[Q/6[e/6.9M6800 COBOL 1.02 COPYRIGHT 1978 BY MOTOROLA INC.  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&902A092A037E19FACB018900976C S11E1930A5D7A6DEA9E6C02604A6BF27FEA6BFDBA699A525E397A7D7A8BD1AD5 S11E194B8024037E19FA96A5D6A6A7B7D7A8BD1A8025D896AE9AAD97AD96A5D6A6A7B5E7B6D9 S11E19D2DEA97400AE8C00022615969B27037F00B596B78100261C96C29BB83A S11E19ED24022$#H$ $~, 0 0`SEQIDX 255 DUP NDPL LIST C CREATED DELETEM MODIFYE END  H HELP $q#-L#'~$ņ-s##'~$ -F$Ƕ#'~$#~$-s~$&~$?######~$##c#1|#~$Ԇ#########~&##'~&#'~%|#C#1#&~%o#C#1#&~%g#C#1#c#1|#~%l#~%y##~&#C#1#&~%#C#1#&~%#C#1#c#1|#~%Æ#~&#'~%Ն##'~%##'~%##'~& ##'~& #|#|#~%#'~&####~&##'~&#e#1#'~&#d#1#e#1#c#1#d#1 ##c#1~&#~&9|###~&,9#c$r#1]&~&#c$r#1]'~&Խ)N~'#c$r#1]&~&#c$r#1]'~''~'#c$r#1]&~'&#c$r#1]'~',,!~'#c$r#1]&~'R#c$r#1]'~'X+q~'#c$r#1]&~'~#c$r#1]'~'#~'#c$r$1]&~'$$r#c1]'~',~'-s9##i$r#1]"~'ֆ#~'-q/###'~'#,##'~)##x#~#l$r#1]"~(!#~(--o/###'~)#%~(I#x~(N##qS'~(e#x#~(#qI'~(#x##u$r#1]'~(#x~(##x## #0j#x#'~)#r$r#1]"~(چ#~(-m/###'~)##x%~)~)##&~)2-s## #~)2#x#1o|#~)#&~)?-s##'~)M-/9#-s-s###~) #1##1|#~)`# -s-s###~) #1##1|#~)# -s ##-s -s-s#>####~* ##1|#~)-s-s#~#~#~+^,#'~+X##~$r#/2#x1$r#/2#x&~*y1$r#/2~*#$r#1x#x##}#'~*#$r#41x#$r#?1x#}#'~*#$r#41x#x&~*#$r#?1x#L##|###~+% X/  ###}#~'~+|#||#~*#|&~+@#|$r#)/2~+N#$r#)1x -s-s|#~~*-s#'~+p -s9#-q/###'~,#,#'~,#'~,-o/###'~+˶##x%~+Ƨ~+ˆ##o$r#1]'~+#x#o$r#1]'~,#x#'~, -s#&~,-s-/9#-q/###'~,#,#'~,#'~,##L#~, X/  ###'~, X/  #|#~,U## #~,#x#1o|#~,#'~, -s#&~,Ɔ-s-/9 -s9-ki9###,~-)/~-)J 0a_M,S-j-i#x#y#x&~-&#~-.#9-k9#C? 9-s,ж *&~-h -s#9  #r#l#iJH_-----? 9------..(.m#.o......FILE MANAGEMENT SYSTEM REV 1.0 ?SYNTAX ERROR INVALID COMMAND NAME PARAMETER VALUE ERROR FILE ALREADY EXISTS NAME RECORD SIZE OVF RECS/TRACK # TRACKS FILE TYPE ATTRIBUTES  FUNCTION NOT YET IMPLEMENTED DISKETTE IN DRIVE 1 IS NOT A VALID DATA DISKETTE FILE DOES NOT EXIST NO FILES EXIST DISK ID:  DATE:  SEQ #: 0-( .$0- .XXX0- . XXXXXX_996/b$y$t J&$v0M2$v' $t$rm* M*$t-9$t6${]*|${S$y$z,@013$x*P$rZ& *}$x*@ * }$x*1p${1$x%|$x 6$zz$z$y"$v$t$x0$t$v21& }${' *-$t9$x6706$t& J09$y$x$x$y$t2JJJ&$x329770_F$VFj&119 0& z$y& 91A1(~0 0 00˽10$z${~0m+ Lhi+& oo $  i idfj&9$r$s*s$r$r9$r$t$u$r$s$t9 $r$s*s$r$r911(6$v2*19$v$x$r*1 *19HYh i$j&9$roo*@ *P9$t$r$r$t&$tZ&9$t$r$r$t$tZ&9CS9$t$tZ.9'd & 9Z$x$y$y$|$x$x9 x FATAL DISK ERROR*  " ? ? ]' Y' "? !? xoZ&  Z&"A? ? A-Z. Z&"Y? ? Z&"? ? * !"p? {0&~! 聖0' ? ? 9"?  ? "? ? "?  ? 9 DISKETTE INITIALIZATION PROGRAM IS DISK 1 SCRATCH?  ENTER DISKETTE NAME: ENTER DATE (MMDDYY):  CLEARING DISKETTE  DISKETTE INITIALIZATION COMPLETE ENTER ONE CHARACTER DISKETTE SEQUENCE #: DISKETTE ID:  DATE:  SEQ #: hhPi O0220:P%AGO BTO CIF DSTOP EEND FDO GCONTINUE HCALL ISUBROUTINE JFUNCTION KRETURN LREAD MWRITE NDIMENSION OCOMMON PDATA QFORMAT RNOT SAND TOR UEQ VNE WLE XGE YLT ZGT 0REWIND :GOTO MPRINT @!2***ERROR UNDEFINED SYMBOLS:SYMBOL S ADDR ERRORS "LP#$mDK$n$&' DK$%m --- PAGE MDOS FORTRAN VERSION 02.20 COPYRIGHT BY MOTOROLA 1979 * OBJECT FILE DELETED ** RUN ABORTED * 30 3$MAIN 3Gv(_ ~  D X K)@=1E$AB!("#,),:F !S"=#$,%&,'P)/*/+0,,-+/.,)*-+702C4(5L6)7Q<8R,9:R,;R ۊ>=?ELAGaMGbCc,DjLEFF,D(BHjI,JKc)D(MeLON,MP,QMd=RTS,TU,WVW)hHYZ*[*(\j],^\)Q`q(acb)zddr/ecsXfgsPggs,hc(kitcj)tuElmxFpmxnv.otwIqrxAsrxtwty,uc/csIxw-y%Jy.z%({&|',}{)(ON1(,),-712[4(56+-78,)9::.<-@RM(H)F=E M+C-D/B*A*IO"T!!!FHV*X ]S!u.!sD!/!rO! ߲ O ?@/!w?( ' !@G|@ z@O?, Ko@/L&C#|"-|! M nN"FQ1 3J !@OZ&H ?(K88'CJ@3' 8K8 `'8?(:_ !?':&:\@&J8K93J&!!K !!K!K@3O`' ?(!"'@"3_ !?'!!\@&!?% & $9~/U~/UC&0K}!'~2xC@ "_CG!? $;?Z#~/U")GL/"dF  /@'??+'|C"eF  /DDDDL0-~2{...--L0 1_CG!*")G0"gF  /0L0.E~2{.U.Z.w.Z.w-.~/U@O$#|@_CG !@G|C0%~-~/U`CGA$/~-0 !A9O,J&K?R- !R' ?9,! &?J& K@'?9A#O+0 !?(!BAHYy#%DHYy#%=BA6+#η#%.2HYy#%&!$|#'AB#Η+0L@&A !@91 & |"1d""O1G  %t"%r &? N|TN1&'}? ~N}"O~,Y45ν:B4238Gj62+ F@%D:3'o 'V 'Q"  27"M(2M(:"M%87"M(22Z'M("M:6' _29d'2dC'"X'Y'i ' '1d ci9$c9 '1d }!&FVVVW^G U"d:} '? $~Nu&Q? ]&|!9M' M$|!9&   M' ': &>}U& i' Uּ' 0%9#|":' & "&39i&|Ud&ˁC'Ł&'X' Y' | } '~0} '~0׍~/UDEYM%X & & &c6 cM2c9"ߴ "݆"޽2@*%޴"ާߴ"' ""ߦ" ن~/U?'."ݦ' "&0޴"' ߴ"ݦ"ލ@"&׆~/UF-|""ߦ"ށ&޴"' ߴ"ަ"' ޴"&9"J_HYHY)8?)"9'TTTTX2h?'n92x7:@CDE2H?(n2223I3j4d44505=5\7z777,J."K+6D/A#9 ~/U,!u!v!rK>9/9J/K '@  ~/UP,1KO @2HQ&2KHI K2@CM'6967KF 16:;67|19:K &;!u!v!r'FG QF&L#>6#> @F#KF} & :6: $FF:6::F:FF/KF /#K &> ,} &#: :#::F:FF/$L K &Q769#F9! &! 5\ '%n '   %%??'_? ?9?K+N6K@'y 6 s ~/UNm*/} & #: :#::6:66/&.} & #: :#::6:66#~@8,J.29#'޲#& C #1d9!r'!r?%'&// & ~61#M#pM"' 7#' ' ?3Z&' "M#M"߶O/H ?(4&~6p&~6k6'X xP&P *C D2`'?'401&޶"M"߶1|1_\0" 44  ޶߶%2 ߶6޶M% Z&߶6~5ϖ/$L~5Ŗ1' ޶"M"߶UO/H ?(4'q+g &c|TU*|"#M#nM""߶ U &޶"߶|"M"U|U4޶߸G ߶޸0&&4 /$L~6U/޶|""M"#MOT'#G |"#M#M׽N"LMA)-IN)/ )1! + ! ~+HQ9/9N'\ &\@'L:9 '(' ' " J''|' "M97~2{7888>89c9i9999:L:: 2x:K:n:9##9###' 2xK#9~/UN@'"4:N&\4:Φ: N4ζ:N&\4:D?(4:4:#GƗ޶::/:J:/:: :::n:#4:4#' 9@2 !/E~:!s :!tE!vJ/K+ ~/U0,FGK}!!*:F:G9/9J/~/U0,FGKF:F ?(F9:99:9 ,J.+,S&~/UK|S6K26/KO## KL9~/U_##'#NK' '@##N]'K' } & KL# } '~@89#4νD4-4#'%4ϗ޸&4B&4 9B 2 2_~/A B !!?19 :~2{::; ;;3;;;];= >=<,?9 F4F4?45Nϧ~9?19?1#N#4K# 6ߺ9_O#F #0##GzB|1|###F #::;}#'CS76769HYxByA$;: &]+9 ~/U?NO@'L_#F #N##G|##~@8|#9| <#&1&# &67N9~/U /76Һ676:# &\0#B1:}!! MH ޺:#FߺF޺:#@/#F /6#/GB6:/L#%9K@'2#&+ ''*1#####A '~;9~/U# &J&J9AzCO?A#CJ#ɽ>V.'#'O_#####9#A_.`.9A####˽>V% >:>Ez# E&O>V% HHH }#'@#ʷ#oooo'}dfffffffJ&|#˦&#/ #Ѝz#z# 'G#ѽ> oooo>>>>>>>Z&&z#hiiiZ&|#&#˄#'#ж#ɗC####N9\DBg>9$ l&l&l9#_ '-& ]E&|# ##0-9.09 9hiii9tvvv999N!u!v!r N*!r& !u!v ##9O!r!J?'!"!r?'##!r!r('9D߼!uD!r6!r!r!J?'+6o!r!"?'3: DD!r!r(&޼D2M'&!r,?'߼~:޼:DE'!u޼D93M 'L|MNNooo3'7@C3+.J/0KNK`'N@K*N9~/U,Nm*3Q::;NK_3;:QH&KN9zMN N9O?'' !I%N#9  #Ձ.~A0@~2{A@@@@@A P§9&#>#† P#Ձ 'M#Ձ') q414N&&4& 1#ս@8 K|144N'= ζ !R ###Ձ& C^?'*'@p#?'@pP?'/#՗P¶#է9@\P?'A]~2{AtAgAuA¦ ¦P9¦=<  ¦<= ¦& #Ձ&> qF >1 E<>'?=>'9O?N}!!+o##0 FGFGϊM>–> qF < qF =DD0 qF >Ġ''DDDD PO/B_޸/ qF <' & B/ qF  =' & d0 qF >' & G1B/ rF </B0 rF =/B1 rF >/¦P~ADDDD@9C~2{C CpCCCD6CDkDCC~!r(%?%/N:>&M> qF >B1 rF >:D߰:9 2xK~:ް6D~/޲ ?(߲ ' AB92~/UK &4N޲N@'޲NB޲N+94~/U3~/U޲D:NB&/:N@':DE޲:޲: N޲NB޲ ON@'޲~C޲&RA : :~C/޲& &:޲:޲:M nN޲ ?,߲9D~2{DDDEDEEEEEE1919!r(&?%/1:1/0KN'\'\'Z70& 3: 2xK:~Eφ/N'q& '|׼޼:NB1ֽ'KN & 1:~@8DACDD9D6 C6D9/9C C9119| 9/XPIAFEE~2{EFFF'F,F1F7FhFF"~:D6:##9B#9O#&L## # ֖B#9#'B##HHHHB##'#:#: # #E?'?'$\ 9#@##:/ ?':/@$\ ~F :D/"9-6706+& J770_F$VFj&11.--.+2JJJ&-329 ?'9 G;"%|" 6& "02 &GE& 9'd ''''(''5(%4''9)6'DDDD'`)56''6 D F)'&D)52'!)%MC)#) )"M )%)'))9 )-)/)1)-MC|'9_~K1')6)5- )6''ʀH9(&(((')5)*)6)7()5(q%JKֶ('B((')*''ʀ(((&̽K('9%$")'&I%''"K)"I)# '')$I%ŀ')%''''K'9'&JN'&J`'''>''E''Q&'&# &&'& '&'& -&'& "'&'@ '&'ƀ ''J ''*'&'t#W'#GK&*' "3''|'z'&&'"'&'z'|' /J~H|'K~H' "'#OKYz&& '#ז'KY9|''')''''v'9&('''&'' K֍'('''z'9'''|'')"') M9|'{''(&'9' "9' 'ƀ'O'''''')*'' ?''|'9K֍|'99~KG'''''''聀&tK'O'#L'''L''''' ''LM' O 3' '''&'''' g''''''''96'' '&=''''z'|''&z'|''2HYHY'L'&''9''+'''''XXL&'''|''9J1''J'|''(%) )"M96''''''')"') MNņ2'')-' '' ' ?OB' '.' ' -' '''' '' ' ?2)"') M3'O'?'L'H'L'F'&d?'F''D'0'RU'N$' ')"') M )+G'&.4''DΎ:F :~:!s:KֽNԽNGE97DDDD390:%9' )6' ' ?9 &> & 9' ?' %' ' ?DK%%?&?&% ?' '9~+%?&?'~Nz? %'%?' &\9)") ?( %) %%?&9~Nu~Nz &"/? 9%r _ '\&Z / Z%r?'%t|' 'G' &<%r %t O''G ''H%t'%r|'' %r %t|'%n?&? %9_? &? %?& 7 _? %??%n???9GjO _?#%& ??'e? 9 %% %9 %  %9O% %& %%%?ߴ%%9  O'-? 'H#&C&N& | TE~PYTESTG0SSASP]'.\&M S? ~N}S' S3# ' && Ԇ ?( S' ' ?TE &~S;'~OTE  ' &TE -&  TES' S& ~PS?/#IIo &l nTE?]'+ 9S?9 %'9 ' ~Pl| %o'kTE=&j#&TECN' LP' ~P%vTE . TESTG%ݷSALS]+ &S~PDK%vTE & ,' ~PTE%vDK&S' %x' ' ?"%r%n?&?&~Pl~P|  ' ~PlTE='%' %' ' ?RO% ETE%TG%ݷ%% ?TE?]' ~P% &RO%TE & TE ,&~PlTE ' $=&Q%)_ TC?/"H?/% TD ~Pl~PTE=&"%)_2TC?/"x?/% TD ~Pl~PTA_ ','\ TETA]'GRRoo RHY%5HY%1%+HY%'Rl&l?%_%zR&O9 Sr? ''? ?'O P?~Pl & | TE TE~Q?$ ~N} '%?Z'~P &  '%?& ?&GEN ~Nz9Gj '% ~MRENTER HEADING A B C E R S X Y HRLPNRVOQPR0 SAST@S||565  >~#~#~#~#~#~#~#~!!~ ~ ~"~ ~#H~#~$~&[~#~)d~(+~)a+bz N2"& zAo&~iznl >o &z'~# C~#+@#&@; (- 011+ 'nnn0T11TjDETD$ D'- D~iE$Tn0T11H*TJ'Z&nn#0T11m'ZT'XT@'VF'~+!k}m+W~l~!~!~!~!~"J~!~!~"~!~!S TX NX H XZTnCS9X X}m*M']mD$' 'CX$ O_"7DE2*}m&9XE*IJD*OP9mX+' 'XVӍX I 'OWVE }O+ LxPyO+&GJIIJPO$PO  yJyItOvPzG&IJ~!tIvJ$POI' xPyOO&90j\H$ cb`axb$ jj\^xb$ Ijj6D2$ 'O^&ba`+\*11jn#4#j~#SUBSCRIPT ERROR AT 0V0ZX &X@''V'VVX 11Z[0Vn ##~# $~#9?9~!~$~'~~~~#0߲11޲ҁ-޲߲ ')޲>(&'޲n0߲11޲HH$ߴ&: 4$ߴ޴ߴ$m޴ߴ'ߴ뜴'~$M޲nӦLJ& DDDDֱ&~&ѐ?%&jL&% &j$%&j&j&j&j&j&&&>ְX$(n $$%%%%%%&&&>ְX$̽(n ӽ&j~$mֱІ Z&~$Ж,0L&޴%}' ,!%|$6z"/9#2m*}'7 0- & ' *- 'd _M,SЗ9޴ֱ&|' ޴~%0<~%ֱӦЧZ&~$(&A#%Ӗ~$z' ~$'$m9М>' '>! >9&~#&~#M'~)F~#߷ &&''''B&22&&&>ְX&(nӜ' ӽ'~$m Ӗ,~2~'B'~$OֶXII޴ֱ&oJ߮'ޮ& J'yz. 񖱍qJ&~$u$A-D7xyJ&۸׸ Z%%׹ַHYHYٷHY_M,S׷ ,'&ϖ'ַCS׷ַ޴~%'9ֻ+&'z' '-&| 0- 9.09 9>І /~)\'*+#?>#߮#ޮ'' ' 9 >'҆\ & 9Z$|9*+`+`+` &*_*^*++`=' 'M )*F)0**J* *))?' ]-&)_? ~#)?&**+_*)?&|*_}+'L+`)*F)Ն0)*H))))?']-%) )?&*)*))?&|*^9)Ѷ))ы)))?' '~(??)+`*^(}*^&|)φ9)' ))?&990' &*^ *_' *_)?&?011nM.'96_O#$]&*L#\# 29 ''O9*^'9*_'9DK0XXXXXXXXSADK0ZZZZZZZZSA+b*`*ksp|6=*`*`**DKSASAPRINTER NOT READY||465 LLLRRRe&e@@0@+N *`I3?HXƶRd  +^;O ~-WLEGELTGTNEEQIEOR&IANDIOR %SHIFT NOT AND ORADDRDECLARE DCL BASED SIGNEDBYINITIAL INITMAINGOGOTOTOIFTHENELSEDOEND CALLRETURNCONSTANTCONST EXT OPTSOPTIONS DEFINED DEF PROCEDURE PROCWHILE BIT LABEL SSEXTERNALGLOBALSHORT LONGBSCTCSCTDSCTPSCTGIVING @-NLSM+b:.T~2~4g 2~WG*~5(j~/~H-l-f-f-f-d-f-f-h|-i+&~.x+'~--h|-i-Z&-f-j-^&-j-b&-j-`&-j+&-j-\&-j-Z'-d-j +. +2 .22+~- *. 0~.MDOS MPL COMPILER 2.1 COPYRIGHT BY MOTOROLA 1978 -n+ *-p.ٽ 0~/* MADE BY MPL 2.1 OPT REL-rR-tT-vP-x -|  -+ON&~/P '.~/ !`+P D  -+/R-x -|  ! + D N ~/;-F-- 3 ' @XƶRd  4 *~DXJK/?.WFܷ@0&~0+. *0 0½ - +ڽ !"/ڽ -@$ "+0N 0 . 2 .22+~0ؽ0 *0½ - +ڽ !!/ڽ -@" "+0 0~0***** K +ڽ ! /ڽ D 0 +0۽ ! /ܽ D 0 +. *01 -@+ڽ !"/ڽ -@$ +1# 0 . 2 .22+~10 *1 -@+ڽ !!/ڽ -@" +1z 0~1*ERROR P @HXƶRd  Ċ K01@ *+*9 '20. @~)G~eR HXƶRd P+.  .2, ! 2, D D.. D020+ !!1 T.". ! 1 2@ 2 P+2.2 @. ? .+. !!1-" 2Ĉ Ĉ+.+~3ĈĆĈ &9  ,. .2$Ą ! 1 @ ,. !c1 @&Ĉ2 .22+~3 D00 D. . !a1"  " ~3 Ĉ. !c1Ą @&Ć2 .22+~3d  2&Ă+ Ă+Ă ! 1Ă !!2 P ".+~3d ,+3ͽ D0 0 D.Ą.9 'Ā~|z 2(+xĀ 4A4W4 ! 1} D 2( ~4l !`1} D 2( ! 12( D ,  !`12( T z !`12( D 2(2*x+ x+x ! 1x !!2 T " ,+4 DĀ2(Ā x+~ P~|x x2,.+~5!- 9x2(9 @  ê5m7 8~?=@AACEGFEHJKLMNPQQ~~STUVWXY[]_`~a~~bc~efgkhijkmnorrpqsuvxz{}~~̖̙̔~9{@`a #!=Q?>ABUVVVVVCDEFGHIJOPSKLMMMTNNR[e]\i""%b$^hhgg"ccf_dfyz{|}~J5Z+v+t+@H0v+&5^ !!5Bv"rrr&~: ! 5:t D v t+tt5b&~<. !!5Bv"vv~9 !!5Bv"rrsrrN&~: !!5Jv"vvwvv5d&~;v/~9 t+tt&~<7 !!5:t"v~::5fè5Rvè'~;\@'5Z @ ~_~ET~b ~s5~hHXƶ):æ $@;9+@ !!5Jv"vvv:'~9 t+t !!5:t"v5fè5Rvè'~;bt+'~;~9+æ  è:ä  ä:. è.F F+.  .:D  D:. F.B D+D $ä;;;;;;<<:F:&9~;:~;:~;-~;:~;:Ƚ $@<9{ $æ:;N- .~9{ F:â-â~9{- ~9{- ~9{ 3 @Rd  <=@ !$=#0:<>A-/~=     ~=      @*()Lc~EC K K~΁c'~EWEN=&9<^à à=Þ à=Ü à=ÚØ+ÖJ'~@:J5^ .= .'~?+~>ܽ *=>+Ô !!:Ô -@" =+> 0~> K  > ~? *>? - +Ô !!:Ô -@" >+> 0~? K .> .+~??>"#+ "> ""/~?^ N+"> <nƶ~AAJÒÒÒ.Ø_ÙJHáàØÙØNN&ÒNØÜ'~AAJÐNNNNN# <|'~@>NÐN~A6Ð<~'~AA>N~A6N<~'~@>NÐ N~A6 Ò<. Ð<~2 .22+~A >"N~A6 Ò<. Ð=2 .22+~AAÞØ J>$JPLØÔ $ÔCA`Ø(Ô $ÔBBAwB @~|G  .~2:@ URN [ JAzJJÒ.>Ò  .A|2 2ØÎÎ<Ô $ ÔBBAwCuCCBBBaCCR- ~>j JA~JJÐ Ò=. Ð<2 .22+~AŽ JAJ~@JÐÒÐ&~B ÒjÒ='~C Ê+ÊÊ+&~Aw~BÒ='~B Ê+ÊÊ BCB JAJØ<Ô $ÔD[CD[D[@>j-x ÈÆ ÈÄ.+~D\-x ÈÆ ÈÄ. !c:Æ @&2 .22+~D-x ÈÆÈ/~DÒt~Fr&~FpF@nl+jhr9r'9jpl& !#Fj D&\&h'9+h vv.+ FB  ZF8'~Gj+&$ !eE\ !&E\5^  s@*@,x9 ! EX *9FFxZF6'~Gj+&$ !eE\ !&E\5^  t@*@, !aE\ !"E\FB @"@$ nFJ.+~Hcj+'~H$V&5^  l T9 V. R2 .22+9^P !aEL"N~H~JP !aEL @"HN !bEP !#EP5^  l@$@&N9r'~L+j~IILjj+&~I jFL. jFN2 .22+-  jpFF II I D9l'- 6F+'- B'- 09p&~L6 jp.+~Lk @~U$dd~W$~UM$~U" d d pIL\@ p+p@> !!E>"< @<. .IP@ pn. nIR2 .22+ !eE@ !fE@ D,:*  :IT. !cE@  .&.  .IV:R': !!E@"88.~J !"E8 !cE> !dE8.IX<@$@&@(.+~J p+ppn&@6jp&@48@@/~I jn. nI\2 .22+~K.I^6.2 20.+~K- 9+@jn&~KO.I^4.2 ! Fj !aE4 D"2 !!Fj"$V.~K FIb. R2 nj6 266 .66+~K !"Fj 2$8 ! EX *~K8 KKK- 7+@~K5^  m 8IdFIh'~LIjvNIl'FFF:9 jn.+Innj+'~LZ$RDF"ZT+VBD&R: ! Fj D l-x \L\.~L j+. !#EL @&2 .22+~M- 9-|\L   ! EL D !`EL D + !`EL D $ !`EL D !`EL D F2 j+'~MmLX9 ! EL !aFj$  T " 9 !`EL D L 9 l+l lIp.+~Mý- 59 !!E\ @"Ir2-| P2 +8 8+> P> \> ! E !!E T " 2+M ! EL D P l+'9 ! Fj D P j+& P22 2ItX9+9IvIx: !`EL D F0 +B9++B+L RDR !`EL D F0 RIz&RR' !cEL !dEL D(+&~OILRF*&9F,&~OCF.&~OL- 49F2~OW F( !`EL D  9'~OL  I|:9LD I~R. .D88/~O- 19+  8I. I.. .L:9 !aEL" F(. F42 .22 LI6 266+-  :L:9F" ILV/~PO- 895^ nI. 2 .22+~G)- 9&~S`F$ 9 !aEL" F(. F42 .22+~Q F$& LLL+'~Q.2 L .LI~QbI'~S` @nd~| ~U0~U6~Vi6ddUP?48,$00Q5^  L~SPQ'~S` F"&~Q߽ P+PP> >+.+~Qٽ ! E> !aE> T " >+>~Q R5^  nEP ~SP  Q . :. Q" P.+~S` !aEL"8 8F(. 8F42 .22+~S> NQ&. NQ(2 .22+~S` P8F4& +*~S` !`EP D P&~S>> 8 >.+~S ! E> !!E8 T " >+> 8+8~R+8 ! E8 D F& +S5^  oEP8IdF" 9- 9LTQ*V9Q*RZZF6&9VQ.9 nQ2.+~S- :+@-x J@.Q4\.>.Q4J.8 ! E> !!E8 P ".+~T- S+@jnn+&Q8V.I^8.0 !aE@"$ !`EL D $ $H9RxxF,&Q.9Q*+r9 P+.  .Q:. .Q<-|  !`E\ D Q> ! EL D N !`EL D L !`EL D P + ! E !aEL2@ @" P+T9+> ! F> !!F> D"8 j+U%9 ' !aE  @"Q@. !dE  .(9j+'- 89v+- R9B'9+QB:RD+BF0'F* !`EL D  9 '~V ?SCT Uv+~VDUQL&9UQL+ *QNV5 -U 0~VCSCT9t+9+tQPQL5^  uQD  9 ' !!E"< <. .QR !!E".~V !"E !cE !dE.IX<@$@&@(.+~V D9 ' DQT P+9X?'9 D+9 @HXƶRd  †d ql347 @W.X.:- ~h?3~ ~g  ~W  ~X. FW.+~Z FW $Z XXyXZYW.W2+W†9W.W2+WHH+&~[ H+„++‚ !0WR‚ !1WR‚H P ".+~X W+X H+H~[ „+X~[ ! W| +'~X !QWRH"€€'~YW !PWR H !QWR H T"" ~Y !PWRH W'~X !"WJ€ €$. .W~ !`WJ€ !aWJ~A@ @" ! WdP D W WW€P !PWRH D € W !aW|" +~XF~ZNW&~[ ! W !!W P ". >ZIW'~[W'~ZȽW : + ! W| @ W. % (2 .22 6 266+~[FB < (<(~[|W'~[W&<( @ ~_v3 ~_6* ~ASd~rNH3840 28 Z. <2 .22+Zv >+>9 @XƶRd  Td.SBsn $F`f`f__``4`;FB _PH09FB  "+t5^  Ƹt J9L_9r'9_rFB  5^  <_  9FB  ,.~as !"[, ,$. ._p_n !`[p a`a<`_n ,_lFB l !a[p"j j_. j_2 .22+~a< !b[, !#[, !d[p5^  o@$@&@(~a` !b[, !#[,5^ n@$@& !![p",~`r5^  .+~b *_a - 0~aT$ COMM DSCT .T RMB r' *_a -_½ 0~bDSCTRMB .S EQU *-1 +rh5^h r r '- V*&~bGƀ?# .+~bk0 *bz -* 0 *bz -* 0~b TOTAL ERRORS @:HXƶRd  cC  b.+~b0 *b 0~b~b 6b9 @0,BTd~42~ǵ ~1dHXET~cO:Y;Z=\ $DcZcu $ Fccceerf@faftfer $Bggg ggFB > >+f5^  f 9-x dbd/- 5^  8bP 9 !bH @ . !SbH @&2 .22+~e !Pb H /~e !PbH c '~d !PbH c '~e !QbH"`ZfFB > !bb` !#b` !TbH5^  ;@$@&@(5^   5^  =f Zfc ` 5^  = 5^  8 9- 9- 9- 9P^ ^c.+c^+\ ! c\ !!b\ T " ^+e/c c.,[ c 9,'~f(.&5^  > Fc&~e !bH @ +. !SbH @&2 .22+~e !Pb H /~e 4c nH !PbH D !PbH D c +.94 !b,c@ H9.*~g.&9ZfFB f 95^  R 9c"*,9,'~f-x (&(/~f-|(&   ! b& ** !`b& ** *c$*9- 9 !Qb,5^ @"bP 95^  nbP 9,&9~g,,+H ,+, !PbH D c !PbH D c& ,c(. ggug !PbH&  D c* 9- 95^  9c^ .94c =H5^  8 9 '$ @ƶRd  PHXƶGWg"@$$* !cc, T&$&9 '-x@@ /9-|@  ! c, D ,  !`c, T  !`c, T  @g',9 @Rd  h*i PBDGOT!*/~i:=%*47Y\ @.~p d~pC~p=~ dd~q35dd $Di_iz $ FijjPjjlm,mnnw $Bnjii/~i >+FB  <(Z:iFiDiB-9i*i / i"i$: i$~ji$: W : <' FB < (' FB ( H9i'~jZi$ i(FB  9i&~jv- 9Zi,Ni.'~k[ . i2 .22+~j- U~l+P ! hP !!hP T " +j&~k.i0i(~k@5^  thP FB  c ~lJh&~lh'~k h. h2 .22+~k h. h2 .22+~lh&~l i2 h. h2 .22+~ka i4h&~l h. h2 .22+~l/ i6~ka-  9i8N@  +  i:.+~l  !Hh D i< i$9 !QhH  @"i>fHdi@d+ !(h !1hH T " iD+m9i@H@iF&9 !PhH !Qhd P ".+~m4 ! hfc@ H >+~jv- "9i@H@iH&9 !PhH !Qhd P ".+~m+ !hh !1hH T " iJ+m !Hh$ D  !PhH D iL 9i@H@iN&9 !PhH iP'~np+ !hh !1hH T " iR+nB9- !94 !`h fc@ dH9ib @dd d ~r+J2( (HXONbn&9bn&~jvb.~p}` bn.+~o%+` bnbb '~j  + ++ !0h !9hb T " n+oDn !0h D n+ot n+o>  ^nf4`' !#hfc@& 4x' !chfc@& nf+'nn>ǐ&~p@f+&~p.4c ; c ` ~p\4c  ~p\ !ahf5^ @" i(ZFB  `'~j9i(~j '^n @^9 '\Z n.+~p + ! n T \ ! n T Z 9- 9 '.~q, !!n T" !!n T" +9- 9 ' @ƶRd  BTHXƶ !Pn  /~r$ !n @ +. !Sn @&2 .22+~r$ !Qn" !Pn @ q`. q\2 q^6 266 .66+- 9- #9 ' @Rd  ry8HXƶ43~r +~rrV' !drN5^ @( rX5^ @ 9 ' @Rd  ~sN d HXƶSEs+ !0rbH D s+s2 !PrbH D + !PrbH D . !PrbH  Ds !PrbH T !PrbH D s .. ..+.9 Hs.+~s H+H9-  9 @Rd   09B:TX dd~d@ $ Ft[vGw.wxx{||&|zs-x .~v9 !sH'  D !PsH D !PsH !as T " !PsH !as T " !PsH !as T " t& !0sH D t(+u !`s @ +.+~u !PsH !QsH T " !PsH !Qs H T "  !Ps H !as  D"t* +t,&~v@ ! s vuuʽ !!s" !"s $. .t.~u' !PsH D ~v0 !PsH !!s T " '~v[9-  9-  9-x .~w' !sH D + !PsH D  ! s /-  !`s +'-  !`s t0'-  !`s t"'-  ! s &9 !sH D !PsH !!s T " 9-  9 !Qs H @"+ !PsH !QsH L+. !us H  .*. D". !ps H !qsH T " +w +9-x .~x !Qs H"t2&- 9 !psH D !Ps H + ! s '-  !`s +'-  !`s t4'-  !`s t"'- +9- 9- 9P+&tTH&~x !QsH".t6 .  t: !QsH".2 h .t'~y1Pt$~z @~4dHXƶ JCC=Ny4&~zy6~zNy8'~yy:&~z~zNy<'~y˽ P.+~z޽ zzz&~{Ny>'~z . y@2 .22+~{~z yB.+~z/~z9tܽQ"t &At Pڽ zzzPP+ ؿڿֽ ! tֽ !!tؽ T " +ؽ P+zY+ ! t D +zP yD.+~zPW~{^- 9RLyF&2yHL  2TL~{X.2 L .Խ . +2 .22+~{X/~zyLs !sH D yN !PsH D !PsH D !PsH  yP. . !PsH D !Ps H D !Ps H D L 9 !Rs H $'- 9yR9  LL !Qs H" !PsH !QsH !ss H  L&. D". 9~td ' P+P ! tP T 9 ' @Rd  0.~}6}(0AN|'~}+Ƚ ! | |&~}: +~} P. ʿ2 .22+~} ! |Ƚ !a|Ƚ T " +Ƚ +~}: +P ʿ.+9A|н +~} 3 'ƿĿ¿~} ENDRETURNRK = 1UN+ @  HXƶRd TOKEN ~ '~+ ! |ڿ D +~~ ! |ڿ !1|꿼 T " ~+~_ +   ! |ڿ !!|ڿ  . .. D". ! |ڿ P .+~N ! |ڿ !!|ڿ T" !`| !a| D"+ '~~+ ! |ڿ ' ~+_ ~. @~2 .22+~ǽ + ! |ڿ D ~ !!|ڿ" ~.  |. .~~ | D+½ !| D +'~9 ' @ , *.~q HXƶRd'5^  lb  $@8ǁ9  @^+5fAV&~) `. d2 .22+9 + ! N D +9+f !V" !V"|N 9 '(  @  ~ l x(xx~=11212`12`12PPPPPPQRPPPPPPP@PPPPP`12PPP`12S1`12P312`12P3P@P`12`12P12PP12`12`12PP112PPP!"P#12@2P11PPP3P@P@P@@@@@@PP@12@ D $&UY+ @~c~09~ ! D !` D ^+X`~ ! | D !`| D b&f&9h&5f@  jz.2 .| $zN؂UL @l.+~+x ! | P . !#| P&2 .22+nx+j !`| P . !c| P&2 .22+pj+ . jr2 xt6 266 .66+~| !"h !1| h".+vx !qx| h".+xj +~ x+. j+2 .22+~M !`| D ! | T ! | T + !0| ! T "  +གb~4+ !px| ! T " + !`| T !`| T |z'~++v !1v"t. @t2 t+6 @66 266 .66+ !v D,+, ~+{ |+u~+|&~\+v. !2v P$2 .22+ !v D(+( + ++v !Qv"t.  @t2 t+6 @66 266 .66+ !NPv D,+, +h+ ! @ +. !Sx @&+2 .22+ !% D*+* +|' !#| D&+&9 D+9&~z +..'~U+ ! .~ ! D !` D +}~|'9++v !v"t t. t2 .22+ !v D** +ؽ ! @ . !Sx @&2 .22+ !% D*+* +9r 'p !1ov P".+~+n n.+~ !n !9nov P ".+~ n+n~ Dr+r9 Drr9l 'j5f@j.2  Dl.l9 'hfdb` @HXƶRd  Z @d, #*+,SCT:.X~A~ABA ADCAADCBADDAADDBASL ASLAASLBASR ASRAASRBBCC BCS BEQ BGE BGT BHI BITABITBBLE BLS BLT BMI BNE BPL BRA BSR BVC BVS CBA CLC CLI CLR CLRACLRBCLV CMPACMPBCOM COMACOMBCPX DAA DEC DECADECBDES DEX EORAEORBINC INCAINCBINS INX JMP JSR LDAALDABLDS LDX LSR LSRALSRBNEG NEGANEGBNOP ORAAORABPSHAPSHBPULAPULBROL ROLAROLBROR RORARORBRTI RTS SBA SBCASBCBSEC SEI SEV STAASTABSTS STX SUBASUBBSWI TAB TAP TBA TPA TST TSTATSTBTSX TXS WAI NAM ORG EQU RMB FDB FCC FCB END XREFXDEFCOMMANDAANDB ~ h^\^'~"$&9$ .+. * - +Z !$VZ -@( "+ 09~"* K X^&~&~^&+Z ! nZ@ +D X.+~^Z+V Z+Z !e5fT@"ZT&~T&~T +} X.+~^+&~^'~󽉾 @ HXƶRd "^'~M^'~p|@`vX ~^'~@`~b iν !|@ vX ~-+&Z  @bX+V Z+Z5fTAZT&~TT'X +X`&~x ^. ^2 .22+~X\|@`vX ^') ~\ !`vX D ^&~XZ\'\Z ZZh@fZ@` $@f+( *5+Z !"vZ -@$ X+ 0~@ W 9 ' X+X ! vX T 9 ' @ m,,  ,',"~ @VXX X   9~ ~++-.K2~' 3,! @BTX:.T1d ~%$~  ~vE]%1~wFU&2~ ~~~$ ~S~ ~ ((kkkk||||kkkkppppvvvvkkkk||~dF6S>8620&4 4 !!" 6.+~ !Q 6" !P6 '8 $"+ !!"9 !!" :08&~[+ ! * D > <+68 !!~"*&~ !!"'~ !!ֽ"' n89. !P8 @ *. !S8 @&@2 .22+*BD.t6 . . ,2 .22+~ +.H .+ !6 @ L. N2 .22 6 : 6:: 2::+~K.t6 d  .P  !P 6.H2H .2 R&~YT'~RV'~+X !P 6 !R 6 Z$ ~+- +9- ,9 \.+~R^&~++'~K !a作"~+`&~60'~+ *. ,2 .22 !& ,6 266+~+ !!"b& !$(8686D .Z. +. d2 .22+~ f.+~s h. @~'d2~  ~4Hdd~ ,  2 .22+~s80&~0'&~  2.  82 .22  6 266 : 6:~+ !!潚 ~".+~ ! c@ 29 +Uc :8 !@ 209'~l+ *. ,2 .22+.& *. ,2 .22+ .&  !!޽"||&~l0&~ !P0 '~ *. ,2 .22+ !U0 D**8 5^  \2  6   5^  : 5^  ; c| |'9 !Q8"  .  .. .5^  p 9- (9 ! &~ . 2 .22+~'~& *. ,2 .22 6 266 @   70 ddd, : 6::+~ 08. 02 .22+ . 2 .22+~'~ .  2 .22+~h !P8 &~ !6 @ +. !S6 @&2 .22 !V 6 @,6 266+~ . 2 .22+~yc =8~ý !P* 6 '~ !2 @ +. !S2 @&2 .22+~ !P2 @ . 2 .22+~ !P 2 '~ !Q 6".Z. .+~c =8 . 2 .22+~* ~ &"~+ .+~ý5^ ~ +~$' c \2&& c *649('~ !8 @ +. !S8 @&2 .22 !V 8 @,6 266+~c =6c *849 0. 02 .22+~ !½@ 209 !! ". !S8 !T6 P&(2 .22+~*& !$(8686 08. 02 .22+Dzxv   ,tt  .rr  0pp0& +0& +n0& +.t6z .l.t6x .j.t6v .h 2. *2 ,6 266 .66+~ *. ,2 .22+~`- '9fd.&~ 4. 62 .22+~ . zx2 .22+~ n. zv2 .22+~ t+ffd~ lb j b` b.+bl j.+j bb jl^8'~ . zx2 .22+~`+~ ``d`^*^8d5^  \2  0'~$:&~<'~&~zx&~ d5^  ; >. @ _(:(xy ~5x 22 .22+~24' 2f5^  \2  46' 6f !̽@ 209 '\Z P\\ @Z0. @Z*2 .22+62 D\6\9 !Q8" !Q6" !Q2"n !Q8" !Q6" !Q2"9 'X~\Bx/Yv{E}; .Bx`x:Sx x x:;(x)xzz/;:2xMx+ZY xOx2. :; :;  B; :; N I7P pJ;|ZJZ_ W? p];|_:|`:x  p ;::;.t!!f.f&  ;:= .:Y!;:.:m;:z/:(x)xn:Y:Y:w;:= .:~ ;  ;  p -xxzMxaxOx4x#xex)xi:Yex!xex'x~ #$00#$0F#$20#$30T A B * ++ XV*&+V.&ZV . 02 .22+\V5fT@XVT&~:R !4T"P !Q4T"NP'~AR&9 !!HR"T R+R~- '9 T+T5f8P 5f6P 5f4N 422& !$~(42^& !$(45f0N  0`. !!~",.& b0+../" !>.(( !V>.,* 8d.+~- $ 8U֩XϪ&:< 8fP $ P2N Ahv 0. 802 .22+~+ & $6$$&h48&~$~+$~ !P2 l&~& $6 $&h42&~$~+$~& $6IC+4=$~C$~C+$$&h46&~"6/6" 0n.+5^ 4P "~5^ 4, "~0&~ƽ R+R ! HR D T 6T~ !6 p'~ !Q 6".Z. &~/~~ƽ- $9- %9  + &~~46'~ @@ @  HXƶ  0L. 4.,& N,& Pc ~  0R. 6.c ~ !P8 !Q6 P ".+~~ZPFB P ~ >6. .T 0+ $B`޽ !!~"4V&~: !a作" X.+ Z !!~"4*' !d佚(4+~B \.+~ <. ^2 .22 `6 266+~<<(Z<<n4~t r.+r $6xͬJx b 0. 6+2 .22+62 65^ 4 ~ r5^ 4 ~.2 ` .`.2 ^ .^5^  p b5^  p `5^  p ^~ t..' dtt r..' frr p..' hpp5^  p t5^  p l5^  p r5^  p j5^  p p5^  p  h~'~~ *. 02 .22+~~ !P8 !Q2 P ".+~~n'~~ $0 !P8 @ j.+~~ !P2 @ l.+~~60+&8 !P '~ƽ !P 2'~~..+&~~ 3 @Rd  BT~HXƶ !Pv0 8'9 !Qv0" 4. 62 .22+9 !Pv0 :&~Ƚc Y09h Z0 h Y0 9 '5^  g 5^  = 5^  = @9 'h@@ 9 ' @Rd  ~ܟHXƶ !QH P" !H " !QH "+&~*~ !PH &~ 4.+Z@5^ @ 9*~; !b@ !#@5^ @@$@& 9&~a ^ 5^ @ @ 9 !QH ".@.`&~ɽ !PH b'~ &2yH 2.2  .5^ @ 9 ' @Rd  HXƶRd !l /~ !Pl +~j !Ql P""<~ !Ql" !Ql" !!d" !bd5^  =@$~ !Ql" !bd !#d5^  =@$@& !Pl  &~+ !Pl  @ +. !Sl  @&+2 .22+~ !Ql" !bd !#d5^  ;@$@& c ~+c  !Ql "  . .5^   + !tl 5^  p @( !ql" !bd !#d5^  n@$@& +49 ' @  drddP( ! +&~ !P  +~ǽ !Q  P""<~ ! &~ !P  /~a !Q   @"P !Q " !Q "A+&RW !P  D W !Q  @"R5^  =,  @~ !Q " !Q " !!"  !b5^  =@$~l !Q " !b !#5^  =@$@& !P  P ..&~l !Q  P"5^  ; c ` !P &~ !P @ +. !S @&+2 .22+~ !Q " !b !#5^  ;@$@& c ~c  !Q "  T. .V5^   +޽ !t ޼5^  p @( !q ޼" !b !#5^  n@$@& +B49 'ܼPP+ֽ ! Xֽ !!ֽ T " ! ֽ5f@ A`ֽ P+9+ֽ ! ֽ !!Xֽ T " P+P9 'pn @ppl+j jh.+~ !!hj Pp".+~ٽ j+j~NFB  5^  sl hr.+~- W~ٽ h+h ! hh T p 5^  9l n/5^  @n  9 '  P  . D.+9 T9 ' T +9 T 9 ' 9 ' T dfL&9hiJ&9 'J9 'oolJ&9hi~9 'J' o9 'J' 9?. zx2 .22+~`+~ ``d`9> '<: T><>:88 9>dfL&99>hiJ&96 '4J692 '002oolJ&9hi~9 '.,**,J' .o9 '(&$$(&J' 9?. 1!2x3 ,N0300 x "% T U  (')'*'''(( U `5)6)K)J)I*"x!&..&'*K'*[=*A*?*" ID SECTOR READ ERROR WRITE TO DISK TO ATTEMPT TO CLEAR ERROR? ID SECTOR CANNOT BE CHECKEDDISK ID: VERSION: REVISION: DATE: USER: VERSION AND REVISION NUMBERS IN ID SECTOR AND RESIDENT MDOS FILE ARE DIFFE- RENT. THE NUMBERS IN THE ID SECTOR ARE CHANGED TO: . RESIDENT MDOS CANNOT BE LOADED -- SECTOR READ ERROR.ID SECTOR UNUSED AREA NOT ZERO. ZERO IT? LOCKOUT C.A.T. READ ERRORC.A.T. READ ERRORDISK IS NOT FIXABLELOCKOUT C.A.T. IN ERROR - RECONSTRUCT? Y(YES) OR N(NO): WHICH SECTOR RANGE IS TO BE LOCKED OUT? C.A.T. IN ERROR - RECONSTRUCT?  .   DIRECTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE? POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE? HASH OR NAME DUPLICATION ERROR. DELETE? RIB READ ERRORRIB IN ERROR. DELETE FILE? FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED C.A.T. TO DISK? RECONSTRUCTED C.A.T. MATCHES DISKINVALID RIBS RESULTED IN RECONSTRUCTED C.A.T. NOT MATCHING DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE? MDOS.SY DOES NOT START AT SECTOR $18  .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 $0%s%n%s%p%n? %t&%|' %s0-3/? ? u" x71$&7XX x z"7.$ %7~."%~7%74%$7ѽ--% ^7 %ٽ7I-76'H-$A Z7 ? ]'-26M/ '?'? 2376-%|IZ% %723-$ x#& z#' x&# z&#&67|I#2&#x& &7% #ZO?|II'74~."7?2M..-?%Z& ?339 % T%%?] &%7 ަ7%Z& - Z?'." 'Z 9%%"%%#%&#&&#&&!# /2%~.'Z7$~.dž"" *= |67O?32?'P?.'7'F X8'-&VI7o%8'ށ &V7o%IJ?/"678"7 ?3V'?$ 74%/2$'7$'F7?~/  * o$81' 8'9'4&(6?) ?-24& ?$8"7 &9? ?"#67.2$'4&'7%7%>74%9"&, *>?(' }?(&&#w& 9 9'F7?"7.$ +7 K+7%7%74%8%n"%p%nx?'#"ƀO?8%n"%p%nx?+׽7 "7.$(!7%7$'F7?74%"&#ƠO?5,%.&&Z&~1G(=6f~1G&S&~1G'7(a7(7'SA ] % T%%?]&ށ &%, 7#x7;$~05 , 7o$( &, &'+)~0H _,%0%0 7 _?$(~0H p+&DDD)&SY h&D+%l%n `%p%n?&%nl?++& j'+V7 %l ?'%lm*½5%~0/+%n+{%p%n?%nm&+{7%n%nm*O675z$~3, "I7.$#+(۽7%7%74$(6f$|7~3"8g%I')7 S"I8g%Y7MS?'SM7o3% Z?'O7u$) "KI'%8gQZ?'MN?/"QOP?/%)+ K I#l' I@& S ?/%)N~1, ' "I8g?'KII8g% K')e ISTI#x& , &u~3'?$"?.t# , ')~ #m'J$FUzU&=#n'8ST?/%0O?/%)#p#r#s?/%#n#oDVFU?*%#r?/$) &|65%~1%47%87)7" 71$'7?!xƀO?I5z%D$6I=>?)I5$I&~5@IK5z. D$ _6='|KIJ?)I& |L5$%<7%@7%D7)75z&~5_6%Hƀ7%L7'7%X 7%\7%d7*r75$~4'_6A''ݽ7%`7%d7*l7%T 7!I"xKMR ? OQIIKKH$*6M8|O  A& 7 ?'O2RRM} * ' zQ& &O '  7*(7 &1'4'3'2&66u33&~37%P7("#x71$(!7?3]'6u5%~3" 71$'7?5z% D$65$"7.$'4 %hƀ?'}%r&*7% 7;?*ǽ7?* 5 5%&' 9#&* !&&,?',+L&-|*(& 9("? $?#x71$(!7?#x,O+% 7%7%7,% ?'%% %$%8 %7% 7%$7,%((%*7%(7%(%(%*%*3Z&( '7$ % ( '& 9?2'7?37% &o,?("#x7;$ 'F7?|%r9H=O?"xƀO?, "7.$(۽7?"C8g%WEG?$8"xJ??}H* D'!x4 /!x3'==!''AAEEGG&C 9?(739?(9"O " $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$ * ?/9 97? 7? ? %39?#z" 9 97 c? 9Y ' N '' 9 98\^8\?9 688888|297.^^\?9 78V%8%V8WWZ&:2:8]9;X ;XX;9 '97HYHY?%2|I9]'/l&l88 #0m&jj8 Z&896dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM .P]ERROR TRYING TO LOAD- RUNTIME.LO / P? ? PP]`P_PPo ^P^P0"~\H~\؆PP'~\Z~\Ё'~\d~\Q'P^&~\w~\P P'~\ &~\~\9PPPPP%~\L~\J'~\P&~\~\&P 9P 9P 9P ^P0"~]~\^PuvP &~](P ~]=PxPxyP Pz{P P0"~]_~\9 P _%*_YzP&VFFFF# "GY9Q&PP '~]P~]P~PP33'~]iPmP~]PP^P^Q'P^LOP o o \ P &~^ \\~+.147:@C=33'~^P'~^Z)~^_)i,m/{258;PAu>"D~^),/258;A>9DP PPnRUNTIME PPQ)Q'Q'Q)&Q)Z&9Q)Q'Q'Q)Q)Z&9}6~0SASTOP FKEY** LOMOTOROLA COBOL RUN TIME VERS 5.19 COPYRIGHT 1978 BY MOTOROLA INC. READY - 7 FILE DOES NOT EXIST6 6 6 LOAD SYSTEM DISK & REPLY N1 0 4243?17 6!PRINTER NOT READY - RETRY (Y/N) ? 6!6!INSERT DISK ******** INTO DRIVE * (Y/N) `37 ** ERROR ?? ** AT ****UNDEFINED ERRORINVALID FILE NAMEKEY OR LINK CHANGEDDISKETTE FULLFILE NOT OPENCURRENT RECORD UNDEFINEDINTERNAL FILE ERRORDISK ERRORILLEGAL REQUEST THIS FILE TYPEONLY ONE FILE CAN BE OPEN ON #0DUPLICATES NOT ALLOWED ON THIS FILERECORD LENGTHS DON'T AGREEDRIVE ONE HAS NON-DATA DISKILLEGAL I-O 0 CALLVERSIONS DON'T MATCHl}     #?Yt]1 `  &+.M.. $Z&$1$#9 8$!-~- ''S% 6~>~c$ecce& eZ&~>$8%'C0' ~$Ķ! ~.N1"'~$Ć~~8#.~$Q~,Q~.8"9~%F%i'Y198" .~&tS&9.$1'M&S91Y' &y'Y196H2>߀ހ&9$E$?!Q$r$$&"_9]Ā0\+x7qsTkm3]&m@'+x&m sm+rem&7k"kmx3 \ -k&m'Tz}r'@kz}q'@mz}s'@ ~\'' '~;u~;~c+ea*+ghix`$  jiijx`$%+Tz{el|}ijije' ~ef cghij~9'4'';76666ހ߂ހ ڽ23ׁ2239+T9Z9ހ߀9ހ߀9ހ߀ ' 9Z&67u32XXe<>9ZZV5X vE677&RPPR0#T TT[RPPRDDDD00Rz[&T3' ?&329 ZVUX9'9@&&119& P967~329Z'L&Xď*pXVVTZ[X* a*[[HHHHXVVzZ&ז[9@&_9TTTT9]_O^_ .HYHY_^HY0z]&9_O9tzv{$}|z' x}y||&9]\+`Tk^nR_& zkn^q+av\'e l}\&'~B&~`@&Okcda@&Olef]+aH&lk\&4 e'>c&]+ e'e&9c',&e& ]* ]c']'9e']+ &e&9\& be_'~ 6z6^AnB+n3^/^]*_@\'=q+4z6?|6?q*-:& |3z39q9A>@/B2q*a'eb~2 Z&9 0]'"+Z&b9'|b\&9' Z&k4'av'Ϧ'v` i&z^* zkL&`0aOcegg&vvz\gh X<>^zg_b^xb$q*-. - +' xb$Ae&6c&9g&h -+&vv zlk'`&0'|cƀbixb$ixb$|cxb$|exb$$k'`'z`a 0'|czk}c&xb$zlC-.Tzl/~99XA $*$$D+-.0,0 / CDzlo_k<9 qk& Z&k )&Z&+'-&@qZk.'Z&nk_'73]'~n'Jo6]' ~3~e%@96@39}&Խ.9]&}+57 Z&351#"~9c72.3c]@&&z3.9Hn56$|56 zn+ƀ5 F#P+]tTf&~ -~" #p7tDD DP'#f2#ν<>77 .t9'Z./ŷӆԽ+T׽+T.96,~"y'K}/ }' .9"y7&9Z/"yZ&93<97< "9 p8&<7& ͆7+TnR&zn+m*-8n&.0,Z&9 ! 87</ 7"O79:%|89567(.41.4Y'~}*.325 oo 689& Otp5 F B]'5 7 77 0. +.h &+ !, +t/ +t3 +t-t~'#m' ' n~$M9~90*D 1*tu 8,.4414Y'~t68~#A#d#d#d#d #m #y""""""""# $# # # $# #$$##$$# # #/"w#%#%$$#9#9~$76+߀ #7DDDD $/6  O]*ہׁ239DDDDL`+T]&J`#`Xހ<>`' T߀9]+Tck+T^+Tc^']&9].zk&9+c+Tdc9@O% A.' @' .Y>?~7&2#U.~0 +l J+l 96DDDD29 -09  ߶ބ޶ޅ&*{ 9Cފފ߅&*{ 9+?&7 &) &%   .9 $L +&~&B $L +?  (0&)c o911~@Ԧ' *{J& 9))C)ބ޽*h+o $L +++*& ߶9~&ƶ& ފ9z9݁ &9&ފ޶ޅ'~'݁''&4&9  z"ފ +(9݁''&;+( $L ފ9݁'& ݶޅ'>݁ ' ''&~(C'ޅ&+(ݧ|݁%#' &(݁ &+(ބ޶ߊ߶ބ9&ބ9'$L 9+[_+++0#9&~)^&~)+?'~)+ & '~)+9$L &'~(҆9 ++0#9+uv '   xxy z{      .9'&&''ֶ' 9֧9Ԧ'Ԧݶߊ119Ԧ'~+ޅ&~*9Ԧ'~*9&~*݄'&ضݧ~*'"ޅ&~*9Ԧ' ߊ @' ߊ  'ߊئݽ'C߅&~*9  _%*_Yz&V3 FFFF# "GY9%A%=%Cy889~4/;U&~,`V'~,`/W& | +.ѶZb& 8|q,X&YXZb&PYZ\f&B&|f 6.ѶZb&+|3[,|[,oY\& YX'-r39[Z&2x@?$|\ @x?&|Y9q":X&5/@x?&|X |_| 9~4/;U';V&6~& | ~XZ]&&|] .ѽ-B X'-r39Zb&'|3,&|ZM/|X9~ ~88Pk8P_x|Pk89~4/;U'.V&)~/߶Z&.ѶZb&|3ý.39@x?&H~&:&6yx8888| k8|D l9~+~& G|D9~4/;U'<V&7~/߶Z&".Ѷb&|3G|D l39'L#|Z [E& F~'I3H~8uvu?[E+0'|b E~F9~x~/ -|V B~'JL?R_M,S88|} 8||~'|V|,|U9WLW&;'6?  ~&x?  ?%|W z 9'L" '|#|Z9~4/;U'7V&2|&1 /_2de&1439||' $l o|'~1~&3Hb& 58 8b'~1mamL%~1a'~1|m&~0'~0|am|~G~&6m.88~1N_~0ab&|e|9mw8mL$&w&!|m&|w N_ Ӷw&|e +m~xOk89&| ,.ѶZb&|3|D.ѶZb&I|3xP_|Pk8~|D9m|n`8mn$6`&1|m&`_m |_ ¶`&1 `&0A9_& | ``d&F.ѶZb&3|3~-/@x?&|d 3 `'_'E'0A 2&9x@?$|` &|`9D':FEuM,suv8u?[40'|bD9~4/;U')V&$0Aeb& 1~'439rs88zsmms$r_|m 9\'l]'lV'ld'le'lU&lZ' lb' lt' lQ' lR' lS'lT'lf'lh'lg'li'll~9~olZX\V]bdetUfhgiQRST9840'|b9~4/;U&~5V'~5|oooo~'8۶8 3Hb&5b& 8ݶ8b&DmmL$+|mI|&N_ ~&6 4398=.0'|b ED8#F*'|i9E88z.0'|b9840'|b9~4F&53Hbi'~7'~ @7?& |U~ o5b&g~ @z?&8,|T ~o|U7+ 68|7bn&|R+ z*'|Q 8|-|Q |SU'>/;V&6~|'|g #~,|M&|h |G|U39~JL?R_M,S888HLk89mnm$#|m|,|nL_M,S}||} 9~4/;V&|H3H~&8W39~j+~x~&j. ~&j' o943H8#8,H8W39m8|m$#|m|HL_M,S}||} 958~JL?R_M,S88L4 k869mmk$|m 9oop "&$ooo 9 K ;G  ;7Z&9&Z&9>:* ?:*?|:e&:G &:G:e 0 0  Z&$>'O'96:2' ' :e:G9]& :e:G9>]9999: }*9]+P9 9O:e9j i:- 'jZ&9> *P9:79!3:]97:39O0' +: :'9 &0' *: :011-&n0& Z&0_911 P0&Z& ;~9!*?|>~+P;t;s' 0'>*P8}'}* ~>';~:l~; 0Z&08..;';'9*P7P38_*?\]9& 9Z$|9=h== Lz'>2  z&0>~~==h==0>~_7>W0-3\ .1 >230z&~=>~>'>0=Z&09*P97PO38*?|9' 0'>*P' 8011]n  9# lZ&9@  0, jZ&9376M&239. Z?0'>Z&02L~>}6Z7OZ32& ]*5-l Z:- ]' l]&0 12J~>}6]]296]]296706& J?>2JJJ&329770_F$VFj&119??~?r *s9?}?62*@9*@ *@9HYh i$j&9oo*@ *P9&Z&9Z&9CS9& 9Z$|9MVMD 2.F02 OB D3300.F00 $.F02 0.F08 T$  D746 J&2' m* M*-9 D(5 D@@@ D6 D 2.F00 OB D:3$.F00 0.F07 0.F073 0.K10K T$ D46 ]*| S,@03*PZ& *}*@ * }*p %| 6z"02 & } ' *-9` Dc5 AA" @@@EH @KN @@D@D@ @@ D6 D 2.F01 OB D33$.F01 0.F07 0.K10K T$ D4 6M*C/ J|&| J'  0' z& ' 3*p]*-&  J' 9t DS5D D@@ DV`@@z}DD@ D6 D 2.F03 OB D:3$.F03 0.F071 0.F072 0.F08 T$ D4u*SuM*0' |.z//|0' '011nZ/ 9  z/Z.911~Vi DU5 )DL@LD@:= @D@TW A^5 a @@D D6 D 2.F04 OB D%3Q$.F04 T$ DX46706& J=2JJJ&329770_F$VFj&119 D5@@ DD@e D6 D 2.F08 OB D%3$.F08 T$ 7 D4 0& z& 9 D 5 @ D6 D 2.F0F OB D330.F073 0.F0A1 $.F0F T$ W D4' 9r D"5D @ D6 D 2.F10 OB D,30.F0B $.F10 T$  D#4& &J&9 D5D D D6 D 2.F11 OB D33/0.F073 0.F0A1 $.F11 T$ T D640'00'0'0011nQ D5@ # D6 D 2.F12 OB D53s0.F0B1 $.F12 $.F13 T$ ) Dz4O0' +G `'&0' *` G011-&n0& Z&0_911 P0&Z& D15D+@@@@@S D6 D 2.F15 OB D:30.F0D 0.F145 $.F15 0.F16 T$ ( D476~ D5 D   D6 D 2.F14 OB DL3S0.F0A1 0.F0C $.F14 $.F145 0.F16 A$ T$ T DZ476320*S:- l *011n D:5 D  H(+ @@@D D6 D 2.F16 OB D<30.F073 0.F0A1 $.F16 A$ T$ D400*S*C+6$| P6$|3/@$|6s'0 02+ 2+ 9 DN5 H@ H@@#@@@@_b D@D @ D6 D 2.F1C OB D:3 $.F1C $.F9C 0.FDIV 0.FFS 0.FSS1  D4729 D5   D6 D 2.F2C OB D:3 $.F2C $.FBC 0.FDIV 0.FFS 0.FSU1  D4729 D5   D6 D 2.F3C OB D:3 $.F3C $.FAC 0.FDIV 0.FFS 0.FUS1  D4729 D5   D6 D 2.F4C OB D:3 $.F4C $.FCC 0.FDIV 0.FFS 0.FUU1 D4729 D5   D6 D 2.F1A OB D13 $.F1A 0.FFS 0.FMUL 0.FSS1 t D49G D5 D6 D 2.F2A OB D13 $.F2A 0.FFS 0.FMUL 0.FSU1 q D49G D5 D6 D 2.F3A OB D13 $.F3A 0.FFS 0.FMUL 0.FUS1 p D49G D5 D6 D 2.F4A OB D13 $.F4A 0.FFS 0.FMUL 0.FUU1 m D49G D5 D6 D 2.F19 OB DZ3$.F19 $.F59 $.F99 0.FASX $.FD9 0.FDIV 0.FFS 0.FSS2 0.FSWAP D4 9 D 5   0 D6 D 2.F29 OB Da3$.F29 $.F69 0.FASX $.FB9 0.FDIV $.FF9 0.FFS 0.FLSX 0.FSU2 0.FSWAP D4 9 D 5     , D6 D 2.F39 OB Da3$.F39 $.F79 $.FA9 0.FASX 0.FDIV $.FE9 0.FFS 0.FLSX 0.FSWAP0.FUS2 D4 9 D 5   + D6 D 2.F49 OB DZ3$.6 1009 $.F49 $.F89 $.FC9 0.FDIV 0.FFS 0.FLSX 0.FSWAP0.FUU2 D4 9 D 5    , D6 D 2.F18 OB D13 $.F18 0.FFS 0.FMUL 0.FSS2 | D49G D5 D6 D 2.F28 OB D13 $.F28 0.FFS 0.FMUL 0.FSU2 y D49G D5 D6 D 2.F38 OB D13 $.F38 0.FFS 0.FMUL 0.FUS2 x D49G D5 D6 D 2.F48 OB D13 $.F48 0.FFS 0.FMUL 0.FUU2 u D49G D5 D6 D 2.FASX OB D%3$.FASX T$ D4*s9\ D5 D@ D6 D 2.FLSX OB D%3 $.FLSX T$ D49 D5D@ D6 D 2.FSWAPOB D%3$.FSWAPT$ D49 D5 DDD] D6 D 2.FSS1 OB D#3$.FSS1 0.FXX1 T D4*@ *P9 D5 D6 D 2.FSU1 OB D#3 $.FSU1 0.FXX1 ] D4*@ 9 D5 D6 D 2.FUS1 OB D#3 $.FUS1 0.FXX1 ] D4 *P9 D5 D6 D 2.FUU1 OB D#3 $.FUU1 0.FXX1 ^ D4 o9 D5 D6 D 2.FXX1 OB D%3$.FXX1 T$ D4oo9 D 5@ D6 D 2.FSS2 OB D,3(0.F07 $.FSS2 T$  D/4* *9 D5D@n D6 D 2.FSU2 OB D,30.F07 $.FSU2 T$ D4* 9/ D5D  D6 D 2.FUS2 OB D,30.F07 $.FUS2 T$ D"4 *9 D5D@ D6 D 2.FUU2 OB D%3 $.FUU2 T$ D4 o9 D 5D D6 D 2.FMUL OB D3$.FMUL D 4HYh i$j&9 D6 D 2.FDIV OB D3:$.FDIV DA4m+ Lhi+& oo $  i idfj& 9y D6 D 2.FFS OB D#3 0.F07 $.FFS D462*9 D5 D6 D 2.F0C OB DL3$.F0C $.F0C0 ;$.F0C2 0.F0DA 0.F0DC 0.F0DD T$ D4*0S   'SS  0 0  Z&%'*S*S  *S'J :& Z' l 9 DE5 D@A@-1 7 @DDs @ D6 D 2.F0D OB DN30.F0C0 0.F0C2 $.F0D $.F0DA ;$.F0DC w$.F0DD }T$ 5 D4]*& & ' 9;w~&'   Z&9ziZ& l9i DF5 D D@D!$ @L9< DDD@@AD@ D6 D 2.F5A OB Da3$.F5A 0.FMD 0.FMDA 0.FMDC 0.FMDE 0.FMDL 0.FMDR A$ =M$ T$ D4 <  Lz'   z&0'-J L .011n Dm5  H  H" !HH LRW  A ~  H Q D6 D 2.F5C OB Dh3$.F5C 0.FMD 0.FMDA 0.FMDC 0.7 FMDD 0.FMDE 0.FMDL 0.FMDR A$ =M$ T$ D4 .0M'-J L . _7 0-3\ .4  30  z&011n} Dx5 H H" H8 @ F HHd u H @@@  D6 D 2.FMD OB Dt3^0.F0A $.FMD $.FMDA L$.FMDC $.FMDD 8$.FMDE h$.FMDL $.FMDR A$ =M$ T$ D40=Z&0 ///9  *S97PO39   *;*&|*&| '-7 396ZZ&0296Z7OZ3 Z&0" D_5 HH@ D&BeiDD!@@@ D Dm429OS-9  9# lZ&9@  0, jZ&9 D5@DD@D@@D@j D6 D 2.F0C OB  DL3$.F0C $.F0C0 ;$.F0C2 0.F0DA 0.F0DC 0.F0DD T$ D4*0S   'SS  0 0  Z&%'*S*S  *S'J :& Z' l 9 DE5 D@A@-1 7 @DDs @ D6 D 2.F0B OB D.3$.F0B $.F0B1 T$  D"4&Z&9 D5D@ D6 D 2.F0A OB D.3$.F0A $.F0A1 T$  D 4Z&9 D5D D6 D 2.F07 OB D%3$.F07 T$ I D4CS9 D6 D 2.F071 OB D.3$.F071 $.F072 T$  D4_ Z.9 D5@ D6 D 2.F073 OB D%3 $.F073 T$ 0 D4Z.9O D5@ D6 D 2.K10K OB D3 $.K10K 4 D4'd & D6 D 2.F1F OB D.3$.F1F $.F5F T$  D4]& 9Z$|9 D5 D@DZ D6 jD 2MDOS OB D%3$MDOS T$ D 4?9, D6 D 2DSPLY OB D%3$DSPLY T$  D 4? 9< D6 D 2KEYIN OB D%3$KEYIN T$ D 4? 9= D6 D 2PRINT OB D%3$PRINT T$ D 4?49 D6 D 2PUSH2 OB D%3$PUSH2 T$ D401167n D 5  T D6 D 2PULL2 OB D%3 $PULL2 T$ D403211679* D6 8 }l}]^NEWS--INFORMATIONONCHANGES,ADDITIONSTOMANUAL,ANDTIPS FORTHEMOTOROLAMDOSFORTRAN2.20USER... FIXESMADETOMDOSFORTRAN2.1ANDINCORPORATEDINTO02.20 --------------------------------------------------------------------------- A.DISKIO 1."DISKSPACEFULL"messagewould,onoccasion,bedisplayedafter closingonefileandopeninganotherforoutputorupdate.  2.Afileopenforupdatecannowhavedataappended. 3.TheCALLEOFTST(N,M)hasbeencorrectedsothatitworksproperly. Howeveritsdescriptionischangedslightlyfromtherelease2.1 NEWSfilewriteup.Hereisthereviseddescription: ThissubroutineisusedtotestforEnd-Of-Fileconditionson MDOSdiskfiles.Normally,areadencounteringanEOFterminates theruninanerror. GeneralForm: CALLEOFTST(N,M) where:Nisanunsignedintegerconstantoranintegervariable intherange1<=N<=255,andrepresentsafilereference number(FORTRANunitnumber)tobetestedforanEOF condition.Thenumbers99through103arereserved. Misanintegervariablewhichissettoavalueof2if anEOFhasbeenencountered;otherwise,itissettoa valueof1. WhenusingEOFTST,anEOFstatusismaintainedforeachfile.Thus thetestcanbeperformedonasmanydifferentfilesasdesiredduring oneprogram. ThefirstCALLofEOFTST,whichmustoccurafterthefileisopened, setstheEOFindicatorforthisfiletopreventtherunfromterminating inanerrorwhenanEOFconditionisencounteredonaREAD.IfEOF isencounteredbeforethefirstCALLofEOFTST,therunterminatesin anerror. UponreturnfromthesecondandsubsequentcallstoEOFTST,Misset toa1ifEOFhasnotbeenencounteredfromthelastREADofthefile, ortoa2iftheEOFwasencounteredfromthelastREAD. IfanadditionalREADisperformedonthefileaftertheEOFis encounteredthefirsttime,thenanerrorwillterminatetherun. EXAMPLEPROGRAM: DIMENSIONIN(7),IOUT(7) DATAIN/'DI','SK','DA','TA','.S','A:','1'/ DATAIOUT/'DO','UT',':1','','','',''/ CALLOPENF(1,IN,1) CALLOPENF(2,IOUT,2) CALLEOFTST(1,KK) 40READ(1,900)I,J,K,L 900FORMAT(4I3) CALLEOFTST(1,KK) GOTO(50,60),KK 50WRITE(101,901)I,J,K,L 901FORMAT(1X,4(I3,2X)) WRITE(2,900)I,J,K,L GOTO40 60CALLDELF(1) CALLCLOSEF(2) STOP END TheaboveprogramreadsafilecalledDISKDATA.SA:1anddisplays thedataontheconsoleandwritesittoasecondfilecalled DOUT.SA:1.Theprogram,uponencounteringtheEOF,willdelete thefirstfileandclosethesecondbeforeterminatingnormally. B.OPTIONS 1.The"-L","-P",and"H"optionbugshavebeencorrected. C.COMPILER 1.Whendirectingcompilerlistingtoan"AL"file,andsubsequentlythe COPYcommandisusedtolistittotheconsoleorlineprinter, itwillpageupproperlyattheconclusionofeachprogramlisting. 2.TheuseoftheBREAKkeytoabortacompilerlistingwillnow pageupthelistingtoanewpage. 3.TheMDOSsystemerrorstatuswordwillnowbesettoanerror indicationwheneveranykindoferrorisencounteredbythe compiler. 4.ENDprocessingisdoneifEOFisre9 achedwithouttheENDstatement beingpresent.Thiseliminatescompilerhang-upora runawaycondition.However,noerrorwillberecognizedonthe laststatementcompiled. 5.Error#20willnowappearforacomputedGOTOhavinggreaterthan 10statementnumbers.Thischeckwasnotbeingmade. 6.Thecompilationwillabortafterthefirsterror#02 isencountered(SYMBOLTABLEOVERFLOW)andthemessage "RUNABORTED"isdisplayedbeforere-enteringMDOS. Previously,onecouldgetmultiplepagesofthesameerror message,everytimeanewsymbolwasencountered. 7.ThelogicaloperatorsGT,LT,GE,andLEwillnowwork withintegervaluesresultingina2'scomplement overflowuponasubtractionoftheintegervaluesinvolved. 8.ThemessageERROR#31wasrepeatedonalllinesduringcompile containingnon-subscriptedvariablesafterencounteringthe firstrealerror#31untilanothersubscriptedvariablewas found.Thishasbeencorrected. 9.Morethanonevariablesubscriptedarraymaynowbepassedin asubroutineCALLargumentlist. 10.Thesubscriptofanarraybeingpassedasasubroutineargument cannowbeadummyvariable. 11.Theproblemswithsomemixed-mode(mixtureofrealandinteger variablesandconstants)arithmetichasbeenfixed. 12.EvaluationoflogicalIFstatementshasbeencorrectedto produceproperresultsinallcasestested. 13.Thecompilernowchecksformissingrightparenthesisinthecaseof theIFstatement.Previously,havingonemoreleftparenthesisthan rightwouldresultinthelogicalIFstatementalwaysbeingtrue. D.FUNCTIONS 1.TheABSfunctionnowreturnsthecorrectanswerwiththeargument minuszero(-0.000). 2.TheISHFTfunctionhasbeenrevisedsothatthenumberof bitpositionstobeshiftedmayexceed255.Previously,the actualshiftwasmodulo256. 3.Theuseofafunctioninanarithmeticexpressionwillnowgive thecorrectresults.Example:Z=A*B*POWER(X,Y)formerlyassigned onlytheresultsofPOWER(X,Y)toZ.Inaddition,thereareno restrictionsastouseofmorethanonefunctiontogetherinan expression. 4.TheSQRT,POWER,andALOGfunctionsnowreturncorrectanswers whenverylargeorsmallvalueswereused.Thesefunctionsnow executeupto6ormoretimesfasterthanpreviously. E.FORMAT 1.ExhaustionofaFORMATstatementonaREADnowcausesanew recordtoberead. *********************************************************************** THESEITEMSHAVENOTBEENCHANGEDANDTHEUSERSHOULDBEAWARE OFTHEM: a.Thecompilerdoesnotproduceasyntaxerrorfromstatementslike PRINT100,10,N L=M=4 X=A**B(Bisrealandmustbeaninteger) READ(101,23)(device#101iswriteonly!) b.Thecompilerdoesnotacceptthesestatements: N=+1 IF(C.GT.1E-04)STOP c.Theform123.0E+5isnotpermittedinaPROGRAM.The"+"signcannot beusedinthiscase.Nosyntaxerrorisgiven,buterroneousresults willbeproduced.READstatementdataatruntimemayusethe+sign. d.ThecompilerdoesnotacceptasubscriptedvariableintheDATAstatement. e.TheintegerarraycontaininganMDOSfilenameshouldalwaysbe DIMENSIONedat7sincenosubscriptboundsarecheckedintheCALLOPENF routine.Failuretodothismay: resultinafilenotbeingfoundor afilenamebeingcreatedlongerthanintended. f.Thecompilerdoesnotcheckforthewidthbeinggreaterthanorequal tothecolumnstotherightofthedecimalinaFORMATspecification. Example:F1.2willnotbeflaggedasanerrorandwillproduceoutput whichis17columnsinwidth. g.Withthe-Loption,anyerrormessagewillbeprintedontheconsole device.Howeverthesourcelineprintedalongwiththeerrornumber maynotbetheexactlineinwhichtheerroroccurred,butmaybethe linefollowing. h.Nocheckismadeatcompiletimeforamissingendingquotemarkin aquotedstringwithinaFORMATstatement.Resultsatexecutiontime willbeunpredictable. **************************************************************************** ENHANCEMENTSANDCHANGESMADETOFORTRAN2.20: A.DISKI/O 1.Acheckhasbeenaddedbothatcompiletimeandatruntimeto ascertainonlydiskdrivenumbers0through3arespecifiedin preparationfortheEXORdiskIIIsystemwhichwillsupport4 dual-sideddrives. 2.TheoptionisnowavailabletoaMDOSFORTRANusertohaveupto 9filesopenatanyonetimeduringexecutionofaFORTRANprogram andtousemulti-sectorI/OtospeedupdiskI/Ooperationswith fewerdiskaccesses.AdifferentversionoftheFORTRANRUN-TIME LIBRARYmodule(regularlycalledFORLB.RO)isprovidedalongwith anassemblylanguagesourcetoallowtheusertospecify1through 9filesmaximum,and1ormoresectorsinthesectorbuffer.These optionalmodulesarecalled:FRLBX.ROandDISBUF.SAwithinstructions providedinthebeginningofDISBUF.SA.Notethatthemulti-sector featurecanONLYbeusedwithMDOS3.00orhigher. B.USINGTHELINKINGLOADER(RLOAD)WITHFORTRAN 1.TheROfilenowcontainsidentificationinformation: VER.REV-HEADERLINE whereVER.REVistheversionandrevisionnumber(02.20)and HEADERLINEiseither"MDOSFORTRANVERSION02.20"or theactualheaderenteredwith"H"optiononcompile. Theusercanseethisidentificationinformationbyusingthe IDONcommandinRLOAD. 2.TheCURD=\2andCURP=\2arenolongernecessarywithRLOAD2.03or later.RLOADdetectsthattheROfilewasgeneratedbyFORTRAN andcausesloadingonevenaddressboundaries. C.COMPILEROPTIONS 1.The"L=#LP"optionisnowvalidandisidenticaltojust"L". 2.NewAandBoptionshavebeenaddedtocontroltheamountof informationprintedonthecompilerlisting.TheAoption givesALLofthepreviousFORTRANreleasesinformation: RelativeAddress,LineSequenceNumber,andanimage ofthesourcestatement.TheBoption(default)omitsthe RelativeAddressinformation,butprintstherest.Optionsof both-A(default)and-Bgiveonlythesourcestatementimage. 3.AnewCoptionhasbeenaddedtoallowthesourcefileto beintheconventionalFORTRANcardimageformat.Anynon-blank characterincolumn6willbeacceptableforcontinuationof astatementfromonelinetoanother.Ifthisoptionisused, ALLlinesofthesourcefile(s)MUSTbeincardimageformat. XandYcontinuestoberecognizedincolumn1forde-bug. 4.OptionR(default-R)hasbeenaddedtoallowgenerationof RAM/ROMdichotomycodebythecompilerfortheDATA; statement anddummyDIMENSIONstatements.TheDATAstatementsmustappear beforeanyotherexecutablestatementsinaprogramunit.The relocatablecodeforaprogramusingDATA/dummyDIMENSION statementscompiledwiththeRoptionwillbelongerthan thesameprogramcompiledunderthedefault-Roption.[6bytes perDATAinteger,12bytesperDATArealnumber;12bytesper dummyDIMENSIONplus6or12bytesforthe2ndor3rddimension] 5.OptionYhasbeenaddedandactsinthesamemannerasX exceptthatstatementsbeginningwith"Y"incolumn1willbe compiledifoptionYisspecified,otherwisetreatedascomments. Aprogrammaycontainboth"X"and"Y"statements,andeither, both,orneitherXandYoptionsmaybespecifiedintheoption listonthecommandline. 6.TheusermayeasilyPATCHacopyofthecompilertodefault toaconsolelistingratherthanlineprinter. =PATCHFORT.CM >0O >2576/43,4E >Q Iftheabovepatchismade,L=#LPwillstilldirectthelisting tothelineprinter.Thecopymayberestoredbypatchingas above,exceptsubstitute2576/4C,50forthe3rdline. D.COMPILERCHANGES 1.Theasteriskinprintcolumn1hasbeeneliminatedoncompiler listing. 2.Ifthelineprinterorotherlistingdevicebecomes"notready", themessagewillbedisplayedandcompilerwillwaitforthe devicetobecomereadyinsteadofaborting.TheBREAKkeyis activeduringthewaitloop. 3.TheobjectfilewillbeautomaticallydeletediftheBREAKkey isdepressedduringcompilationoranerroroccurs.The message"*OBJECTFILEDELETED*"isdisplayedontheconsole aftertheBREAKkey(beforereturntoMDOS)orafterthe firsterrorisdetectedinthecompiledprogram. 4.Error#14hasbeenadded...NAMETOOLONG(6MAXCHAR).Previously, error05wasusedforthis(thegeneralsyntaxerrornumber). 5.WithsourcestatementsusingtheXorY(debug)optionsincolumn1, thestatementnumberoracontinuation"&"mayappearincolumn2 ...previously,thiswasnotallowed. 6.ThekeywordGOTO(withoutaspacebetweenGOandTO)isnow permitted. 7.Error#01isnowusedfor"NON-NUMERICSTATEMENTNUMBER". 8.Thecompilersymboltablenowshowswhichsectiontheaddress valuerefersto:C,D,P,orX(forexternalsubroutine/function). 9.Error#07willresultfromanencounterinasourceprogramof arealnumbertoolargeforthecompilertohandlecorrectly. Previously,noerrormessageandincorrectvaluesresulted.Use theEformatofalargerealnumberiferror07isencountered. E.RUNTIMECHANGES 1.Atruntime,ControlDnowactsthesamewayasMDOSonconsole input--printsouttheinputbuffer. 2.Atruntime,theESCkeymaynowbeusedtoaborttherunningof aprogramiftheprogramiswaitingforconsoleinput. 3.Executiontimeerror#3Dwaschangedto#41. 4.Executiontimeerror#B0waschangedto#50. 5.Executiontimeerror#51hasbeenaddedandnowdetectsoverflow resultingfrom+,-,*,andassignmentsfromrealexpressions toanintegervariable.[INTEGEROVERFLOW] 6.Executiontimeerror#52hasbeenaddedforcasesofREAL calculationoverflow.Theexecution-timeroutinewilldetect overflowresultingfromanEformatwithgreaterthanE< +99 exponent. 7.Executiontimeerror#49hasbeenaddedtomean"FATALMDOSERROR" andwillnormallyoccuraftertheMDOSerrormessageandbefore returningtoMDOS.Thiswasaddedtofacilitatetrappingofthese errorsthroughthe.ADDRCOMMPSCTvectortable. 8.IncasesofanEformatwithexponentE-99orsmaller(E-100 asexample),theexponentwillprintasE-99.  F.FORMATCONTROL 1.Carriagecontrolcharactershavebeenimplementedonthisversion. (blank)-NormalCR,LFpriortoprintingtheline. 0-CR,LF,LF(doublespacing) 1-FF(Formfeed),CR,LF +-suppressionofCRandLF(continuesonsameline) (other)-normalCR,LFsequencepriortoprintingcomplete lineincludingthecharacterincontrolposition. Note:Thecompleteline,includingthefirstcharacter,willbe outputtoadiskdatafile.Thecontrolcharactersmentioned abovehavenoeffectwhenwritingtodisk. 2.I/Obufferhasbeenenlargedtoaccomodatea132characterline and132characterdiskfilerecord. 3.Theimplied"+"signonEandFformatnolongerrequiresone columnreservedforit.Example:F5.2withthenumber123.4 willoccupy5columnsonprintout,not6. 4.Blanks(spaces)willnolongerbeignoredonformattednumeric input.Theywillbeinterpretedaszeros. G.FORTRANRUNTIMELIBRARY(FORLB) 1.Libraryfunctionerrorswillnowgothroughthesameprocessing asanyotherExecutionTimeerrorandwillprintasEXECUTION TIMEERROR#nn(wherenn=01through04).Thisallowstheuser totraptheseerrorsthroughthe.ADDRCOMMPSCTtablewhere previouslytheywereprintedontheconsoledeviceandthe programstopped.Uponenteringthe.ADDRjumptable,accumulators AandBwillcontaintheerrornumberinASCII(AcontainsMSdigit). 2.Alibrarysubroutinehasbeenaddedwhichspacesthelineprinter up6linesinpreparationforprintingonthetopofapage. CALLLPINIT(noarguments). 3.AlibrarysubroutinehasbeenaddedwhichsendstheASCIIformfeed charactertothelineprinter.CALLPAGE(noarguments). 4.CALLLPQ(LUW)-Queriestheuseronconsoleprinter: LINEPRINTER-Y/N? anduponreceivinga"Y"willreturnthevalue102inLUW, otherwisereturnsthevalue101.LUWisanynon-subscripted, non-array,non-common,integervariablename. 5.CALLFILTST(IFN,ICODE)-Searchesthediskdirectoryfora designatedfilename.IFNisanintegerarraydimensionedat 7andcontainsthedesiredMDOSfilenameincludinganysuffix anddrive(defaultSAand0).ICODEisanintegervariableand willreturn: -1filenotfound 0drivenotready +1filewasfound 6.CALLKEYIN-overlaysthenon-MDOSconsoleinputroutinewith anMDOSdependentroutineutilizingtheSCALL.KEYIN.This allowsuseofaFORTRANprograminachainfile. Thiscallmaybeplacedanywhereintheprogram,evenifnot executed,justtoloadintheoverlayaddress.Ifexecuted,it merelyreturns.TheESCisimplementedlikethenormalconsole inputtostoparun,howeverMDOSSCALL.KEYINrequiresa carriagereturnaftertheESCforthisroutinetorecognizeit. 7.IABS(N)-Functionwhichreturnstheabsolutevalueofan integer.AnerrorwillresultifIABS(-32768)isused. 8.CALLIRAND(N)-Thisisasubroutin= etoproducearandominteger number.ItwilltakethevalueofNandperformanalgorithm andreturnadifferentnumberinN.Adaptedfromthe6800 UserGroupLibraryprogram#27. 9.CALLERR(N)-ThisisreallytheExecution-Timefunctionerror routine,buthasbeenrewritteninassemblylanguage. Nmaybeeitheranintegerconstantorvariablewithavalue 0<=N<=99.Thetext"***EXECUTIONTIMEERROR#nn"willbesent totheconsoleandtherunwillstopunlessthe.ADDRCOMMPSCT jumpaddressesarealteredtoauser-suppliederrorhandling routine. 10.CALLSETEOF(N)-hasbeenaddedtotheDISKIOmoduleanditsuse willpositionthefilepointerstotheendoffiletomakeit easytoappendtotheendofanexistingfilewithoutthechore ofreadingthroughthefile,recordbyrecord.Nmustbethe logicalunitnumberofthedesiredfile.Thefilemusthave beenopenedpriortothiscall. 11.CALLDELF(N)-isusedtodelteafilefromthediskette.Caution shouldbeusedwiththisstatementsoasnottodeletewantedfiles. CALLDELF(N) Where:Nisanunsignedintegerconstantorintegervariable intherange1<=N<=255,andrepresentsthefilereference number(FORTRANunitnumber)tobedeleted.Thefilemust beopenforthisCALLtobemade. ************************************************************************** COMMANDDESCRIPTION COMMANDNAME:FORT PURPOSE: TheFORTcommandprocessessourceprogramstatementswrittenin MDOSFORTRANlanguage.TheFORTRANcompiler,FORT,compiles thesesourcestatementsintoobjectprograms.Underoption control,asourcelistingisalsoproduced. FORMAT: i=20 FORT[{.][:]][;] i=1 whereisavalidcommandlinedelimeter,may beoneormoresourceprogramfiles,isthefilename suffix(".SA"ifnotspecified),isthelogicaldrive numberof(":0"ifnotspecified)andmaybe oneormoreofthefollowingcompileroptions.Certainoptions aredefaultedtobeingautomaticallyspecifiedorturnedon. Theseoptionsmaybedisabledorturnedoffbyprecedingthe optionletterwithaminussign(-). OPTION LETTERATTRIBUTECONTROLLEDBYOPTIONDEFAULT ------------------------------------------- AListingcontainsrelativeaddress-A BListingcontainslinesequencenumberB CSourceinputisincardimageformat-C HInputinitialheadingfromconsole-H LPrintlistingonlineprinter-L L=#LPPrintlistingonlineprinter(sameasL)-L L=#CNPrintlistingonsystemconsole-L L=,Printlistingondiskfilewithname"filen"-L (suffix".AL"unlessspecifiedotherwise) N=nnn,nnn=Numberofcolumns/line.Min=50,Max=120N=80 OProduceobjectoutputinO O=,ProduceobjectoutputinO P=nn,nn=Lines/page.Min=10,Max=72P=58 -Pwillinhibitpaging RCompileforRAM/ROMdichotomy-R SSymboltablelisting-S XConditionalcompilationof"X"statements-X YConditionalcompilationof"Y"statements-Y ************************************************************************** LINKINGUSINGMDOSFORTRANRELEASE2.20 ThefollowingisanexampleofthelinkingprocessusingRLOAD. Othervariationsarepossible,butthisexampleshould befol> loweduntiltheuserbecomesmoreacquaintedwithRLOAD. !RLOAD MDOSLINKINGLOADERREV3.00 COPYRIGHTBYMOTOROLA1977 ?IF=TEMP(thiscreatesatemporaryscratchfile) ?BASE(thisisrequiredifusingMDOSordiskI/O) ?IDON(thisidentifieseachmoduleasread) ?LOAD=TEST(the.ROfileproducedbycompiler) ?LIB=FORLB(theRuntimeLibrary--required) ?OBJA=TEST(the.LOfileRLOADwillproduce) ?MAPF(printsloadmapfordiagnosticpurposes) ?EXIT(returnstoMDOS) Thefollowingexampleshowstheloadingofamainprogramand severalsubroutines.Mapoutputisdirectedtothelineprinter viatheMOcommand.Theintermediatefile(IF)isNOTusedinthis example. !RLOAD MDOSLINKINGLOADERREV3.00 COPYRIGHTBYMOTOROLA1977 ?BASE(thisisrequiredifusingMDOSordiskI/O) ?IDON(identifieseachmoduleasread) ?LOAD=TEST,SUBR1,SUBR2,ASMSUB(namesofvarious.ROmodules) ?LIB=FORLB(Runtimelibrary-required) ?OBJA=TEST(Nameof.LOfileproducedbyRLOAD) ?LOAD=TEST,SUBR1,SUBR2,ASMSUB(2ndpass,samenamesagain) ?LIB=FORLB(2ndpass-Runtimelibrary) ?MO=#LP(directsloadmaptolineprinter) ?MAPF(printsloadmapfordiagnosticpurposes) ?EXIT ************************************************************************** CHANGINGRUNTIMEI/OADDRESSES InplaceofpageH-4oftheFORTRANmanual,listedbelowis ajumptablethatmustbemodifiedwhenusingnon-resident I/O. XREFBUF$(bufferinFTNRUNmodule) .ADDRCOMMPSCT(.ADDRmustbeusedasname) JMP$nnnnCONSOLEINPUT JMP$nnnnCONSOLEOUTPUT JMP$nnnnLINEPRINTEROUTPUT JMP$nnnnRETURNTOOPERATINGSYSTEM JMP$nnnnERRORROUTINE PSCT (insertanyroutineshere) END NOTE:$nnnnwillbetheaddressofyourI/Oroutine fortheparticularoperation.Oninput,thedata mustbeputintotheexternalreferenceBUF$(a bufferinFTNRUN).ThedatamustbeASCIIandmust beterminatedwithan"EOT"(hexadecimal04).On output,thedatawillbeinBUF$inASCII,term- inatedwithan"EOT".Replaceanyjumpsinthe abovetablewithRMB3iftheyarenotused. Assembletheaboveintoarelocatableobjectmoduleandload usingthelinkingloaderAFTERtheFORLBlibraryisloaded. InformationconcerningthebufferanduseoftheI/Oroutines: BUF$identifiesthestartinglocationofa134bytebuffer. Returntotheoperatingsystemisusednormallyafteran errorisencounteredoraftertheSTOPstatementisfound. TheoperatingsystemwillbeMDOSifthe.LOprogramfile isproducedusingtheBASEcommandinRLOADandisloaded withonlytheGoptionatexecutiontime. Theerrorroutineprocessestheerrornumberinformationand normallyprintsitontheconsoledevice.TheINDEXREGISTER willcontaintheerrornumberinASCIIatthetime controlispassedthroughthistable.(NOTE:Thisischanged fromreleasepreviousreleases!) ************************************************************************** MANUALCHANGESANDADDITIONS Subroutinecalls:amaximumof6argumentsispermittedona subroutinecall.AspaceisNOTpermittedbetweenthe subroutinenameandthebeginningoftheargumentlist. Names(variable,array,function,subroutine,etc.)arelimited toamaximumof6characters,thefirstofwhichmustbe alpha,andmustnotbe"keywords"suchas"DO? ","CALL",etc. Functions:Amaximumof6argumentsispermitted.Subscripted variablesarenotpermitted. Linkingloader:Useofthe"BASE"commandismandatoryifMDOS diskI/Oisused.TheprogramcannotbeloadedbyMDOSwith theVoption. FORMATcodesE,F,andI:ifthecolumnsrequiredonaWRITE exceedsthespecifiednumberofcolumnsintheFORMATstatement, MDOSFORTRAN2.20willallowwritingofthefullnumber,altering theformattofitthenumber.ThuswithaFORMATofF5.2,the value1234.567wouldbeprintedas1234.56(normallyrequiring aFORMATofF7.2).Digitsarenolongertruncated. Compilererrors:OnpageB-1oftheFORTRANmanual,the"COLUMN" areaisnotprinted.Forerror#30,10operandsisthemaximum. EXECUTIONTIMEERRORS:onpageC-1,MDOSFORTRAN2.20printsthe message"***EXECUTIONTIMEERROR#nn"insteadoftheBKPTERROR messageshown.nnistheerrorcode. Functionlibrary:RefertopageD-1oftheFORTRANmanual.The notethat"ARGUMENTSMUSTBEASIMPLEVARIABLEORCONSTANT"is stillvalid.Expressionsorsubscriptedvariablesarenot allowed.Deletetheremainderoftherestrictionsonthis page,astheynolongerapplytorelease2.20. LinkingFORTRANandAssemblyLanguageprograms:pageF-3oftheFORTRAN manualreferstotheexternalsymbol"RUN".Referencesto thissymbolshouldbechangedfrom"RUN"to"RUN$"forMDOS FORTRAN2.20.Integersarestoredasa16-bit2'scomplement number.Realnumbersarestoredin4bytesof8bitseach.The firstbyte(LOWESTaddress)containsthesignofthemantissa itbit7,andthe2'scomplementrepresentationoftheexponent inbits0-6.Theremaining3bytescontainthemantissain unsignedbinaryform(24bits).Theexponentisapowerof16. SeeM6800USERGROUPLIBRARYprogram#26forreferenceonfloating pointrepresentation. Stoppingprogramduringexecutiontime:WheneveraFORTRAN programiswaitingforconsoleinput,executionmaybe terminatedbypressingtheESCkeyonthekeyboard.  Rereadcapability:Sometimesitisdesiredtohaverecordsin adatafilewhicharenotuniforminformat.Thisfeature allowsare-readoftheI/Orecordbufferwithoutreading inanewrecord.Usefilenumber99toaccomplishthis. EXAMPLE:READ(7,900)A,B,J READ(99,901)C,K,L allowsreadingfromfilenumber7underFORMATnumber900 andrereadingthesamerecordunderFORMATnumber901. ENCODE/DECODEfunctionsmaybesimulatedbytheabovere-read inconjunctionwithaformattedWRITEtofilenumber99. Leftjustifyingnumericvaluesonprintout:by"underformatting" itispossibletoleftjustifynumericvaluesduetothe expandingformatwidthfeaturementionedabove.This couldbequiteusefulinoutputsuchas: THEREARE3ITEMSININVENTORY.(oldstyle,I5FORMAT) THEREARE3ITEMSININVENTORY.(useofI1FORMAT) THEREARE59712ITEMSININVENTORY.(useofI1FORMAT) ************************************************************************** EXAMPLEFORTRANPROGRAM: ThefollowingwilltakethenoviceMDOSFORTRANuserthroughthe completestepsoforiginating,compiling,linking,andexecuting asmallprogram. 1.UsingtheEDITOR,enterthefollowingprogramintoadiskfile namedCIRCLE.SA: C-THISPROGRAMCALCULATESTHEDIAMETER@ ,CIRCUMFERENCE, CANDAREAOFACIRCLE,GIVENITSRADIUS. 10WRITE(101,900) 900FORMAT('RADIUS') READ(100,901)RADIUS 901FORMAT();UNFORMATTEDREAD DIAM=2*RADIUS CIRCUM=3.14159*DIAM AREA=2*3.14159*RADIUS**2 WRITE(101,902)RADIUS,DIAM,CIRCUM,AREA 902FORMAT('ACIRCLEWITHRADIUSOF',F3.2,'HASADIAMETER', &'OF',F3.2,',ACIRCUMFERENCE'/'OF',F3.2,',ANDANAREAOF', &F3.2//) GOTO10 END Notethatthereshouldnotbeanynulllinesfollowingthelastone, thatallstatementnumbers(labels)beginincolumn1,andthereare nolinenumbersonthesourcefile. 2.Atthistime,thesourceprograminfileCIRCLE.SAisreadyfor thecompiler.Thefollowinglineistypedasacommandline (the=istheMODSpromptatthebeginning): =FORTCIRCLE;LS Asaresultoftheabovecommandline,thefollowingwasdisplayed onthesystemconsole: MDOSFORTRANVERSION02.20 COPYRIGHTBYMOTOROLA1979 3.Thefollowinglistingwasthenobtainedonthelineprinter: (useL=#CN,SinplaceofLSinaboveiflistingisdesired onconsoleinstead) --- PAGE001MDOSFORTRANVERSION02.20 00001C-THISPROGRAMCALCULATESTHEDIAMETER,CIRCUMFERENCE, 00002CANDAREAOFACIRCLE,GIVENITSRADIUS. 0000310WRITE(101,900) 00004900FORMAT('RADIUS') 00005READ(100,901)RADIUS 00006901FORMAT();UNFORMATTEDREAD 00007DIAM=2*RADIUS 00008CIRCUM=3.14159*DIAM 00009AREA=2*3.14159*RADIUS**2 00010WRITE(101,902)RADIUS,DIAM,CIRCUM,AREA 00011902FORMAT('ACIRCLEWITHRADIUSOF',F3.2,'HASADIAMETER', 00012&'OF',F3.2,',ACIRCUMFERENCE'/'OF',F3.2,',ANDANAREAOF', 00013&F3.2//) 00014GOTO10 00015END DEFINEDSYMBOLS: SYMBOLSADDRSYMBOLSADDRSYMBOLSADDRSYMBOLSADDR CIRCUMD0008RADIUSD0000AREAD000CDIAMD0004 4.Sincewehadnoerrorsonthecompile(anddidnotspecify"-O" option),thereisnowafilenamedCIRCLE.ROonthediskette whichwillbelinkedtogetherwiththeFORTRANRuntimeLibrary (FORLB.RO)usingthelinkingloader,RLOAD. 5.Typingthefollowingcommandinvokesthelinkingloader: =RLOAD 6.Thefollowingisthesessionwiththelinkingloader,showing thecompleteoutputontheconsoleincludingcommandstypedin. Thecommandstypedinfollowthe"?"promptofRLOAD: MDOSLINKINGLOADERREV3.00 COPYRIGHTBYMOTOROLA1977 ?IF=T ?BASE ?IDON ?LOAD=CIRCLE MAIN02.20-MDOSFORTRANVERSION02.20 ?LIB=FORLB FTNRUN02.20-MDOSFORTRANLIBRARY DISKIO02.20-MDOSFORTRANLIBRARY POWER02.20-MDOSFORTRANLIBRARY ALOG02.20-MDOSFORTRANLIBRARY EXP02.20-MDOSFORTRANLIBRARY SINCOS02.20-MDOSFORTRANLIBRARY ATAN02.20-MDOSFORTRANLIBRARY SQRT02.20-MDOSFORTRANLIBRARY MOD02.20-MDOSFORTRANLIBRARY ABS02.20-MDOSFORTRANLIBRARY IBIT02.20-MDOSFORTRANLIBRARY IAND02.20-MDOSFORTRANLIBRARY IOR02.20-MDOSFORTRANLIBRARY IEOR02.20-MDOSFORTRANLIBRARY ISHFT02.20-MDOSFORTRANLIBRARY IABS02.20-MDOSFORTRANLIBRARY LPINIT02.20-MDOSFORTRANLIBRARY PAGE02.20-MDOSFORTRANLIBRARY LPQ02.20-MDOSFORTRANLIBRARY FILTST02.20-MDOSFORTRANLIBRARY KEYIN02.20-MDOSFORTRANLIBRARY IRAND02.20-MDOSFORTRANLIBRARY ERR02.20-MDOSFORTRANLIBRARY ?OBJA=CIRCLE MAIN02.20-MDOSFORTRANVERSION02.20 FTNRUN02.20-MDOSFORTRANLIBRARY DISKIO02.20-MDOSFOA RTRANLIBRARY POWER02.20-MDOSFORTRANLIBRARY ALOG02.20-MDOSFORTRANLIBRARY EXP02.20-MDOSFORTRANLIBRARY SINCOS02.20-MDOSFORTRANLIBRARY ATAN02.20-MDOSFORTRANLIBRARY SQRT02.20-MDOSFORTRANLIBRARY MOD02.20-MDOSFORTRANLIBRARY ABS02.20-MDOSFORTRANLIBRARY IBIT02.20-MDOSFORTRANLIBRARY IAND02.20-MDOSFORTRANLIBRARY IOR02.20-MDOSFORTRANLIBRARY IEOR02.20-MDOSFORTRANLIBRARY ISHFT02.20-MDOSFORTRANLIBRARY IABS02.20-MDOSFORTRANLIBRARY LPINIT02.20-MDOSFORTRANLIBRARY PAGE02.20-MDOSFORTRANLIBRARY LPQ02.20-MDOSFORTRANLIBRARY FILTST02.20-MDOSFORTRANLIBRARY KEYIN02.20-MDOSFORTRANLIBRARY IRAND02.20-MDOSFORTRANLIBRARY ERR02.20-MDOSFORTRANLIBRARY ?MAPF NOUNDEFINEDSYMBOLS MEMORYMAP SSIZESTRENDCOMN B0000004000400000 C0000200020000000 D017E2000217D0002 P13B1217E352E000F MODULENAMEBSCTDSCTPSCT MAIN00402000217E FTNRUN0040207422B0 COMMONSECTIONS NAMESSIZESTR .ADDRP000F3520 .ADRDCD0002217C DEFINEDSYMBOLS MODULENAME:MAIN MAINP217E MODULENAME:FTNRUN BUF$D20CCCOMBAP24C7EBUF$D2151FILE$D20C9 LPUSE$D20A5RUN$P22B0X1$D20A7XDKIN$P2C41 XDKOT$P2C44XRWND$P2C47 ?EXIT = 7.Nowthereare3filesonthediskette,allnamedCIRCLE,butwith suffixesof.SA,.RO,andfinally.LO.Weloadandexecutethe programwiththecommandline: =LOADCIRCLE;G 8.Thefollowingisashortsessionwiththeprogram.Escapefrom theprogramwasbypressingthe"ESC"keywhenitwasaskingfor anotherradius: RADIUS?2 ACIRCLEWITHRADIUSOF2.00HASADIAMETEROF4.00,ACIRCUMFERENCE OF12.56,ANDANAREAOF25.13 RADIUS?22.73 ACIRCLEWITHRADIUSOF22.72HASADIAMETEROF45.45,ACIRCUMFERENCE OF142.81,ANDANAREAOF3246.21 RADIUS? STOP = 9.ItshouldbenotedthatthisversionofFORTRANdoesNOTroundoff floatingpoint(real)values,andthereforemayappearslightly differentasapparentintheaboveexample.Roundingcouldbe accomplishedbyadding0.005beforeprintingthevaluesabove. Alsokeepinmindthatrealnumbersareaccurateonlytoabout 6decimaldigits.[Yes,thereisaslighterrorinformatting ontheaboveprogram,correctionofwhichwouldrequireuseof theeditor,re-compiling,re-linking,andexecutingagain.] ************************************************************************** SUMMARYOFCOMPILERERRORMESSAGES: ERROR#MEANING -------------- 00Illegalcharacter 01Non-numericstatementnumber 02Symboltableoverflow(notsufficientmemory) 03Statementtoocomplex 04Stringtoolong 05Syntaxerror 06Toomanyarguments(maximumof6permitted) 07Numericvaluetoolarge(useEformat) 10Duplicatestatementlabel 11Namealreadydefined 12Arraydimensiontoolarge 13DATAstatementcannotinitializeaCOMMONvariable 14Nameistoolong(6charactersmaximum) 20ToomanystatementlabelswithcomputedGOTO(10maximum) 21FunctionorSubroutinenamealreadyused 22Dummyargumentnamealreadyused 23Toomanyexternalreferences 30Toomanyoperands(10maximum) 31Numberofsubscriptsdoesn'tagreewithnumberofdimensions orsubscriptmissing. 50ToomanynestedDO's(maximumof10) 51DOargumentisnotaninteger B 52Indexcannotbeadummyvariable ************************************************************************** SUMMARYOFEXECUTIONTIMEERRORMESSAGES: ERROR#MEANING -------------- 01POWERfunctioncannotbecalledwitha-X 02Cannottakelogofnegativenumber 03CannottakeSINorCOSofanegativenumber 04CannottakeSQRTofanegativenumber 40ToomanynestedrepeatsinFORMAT(6maximum) 41OPENF/CLOSEFargumentsmustbeinteger 42Invalidopenmodeondiskfile 44Attempttoaccessdiskfilenotopen 45Maximumnumberoffilesalreadyopen 46AttempttoperformEOFTSTorSETEOFonfilenotopen 47Attempttorewindfileopenforoutput 48Filenumberalreadyopen 49FatalMDOSerror 50Subscripterror(useofnegative,zero,ortoolarge asubscript) 51Integeroverflow(integervaluemustbebetween -32768and+32767inclusive) 52Realoverflow(greaterthanE+99) ************************************************************************** LINKINGFORTRANMAINPROGRAMSWITHASSEMBLYLANGUAGESUBROUTINES ---------------------------------------------------------------- Thereareseveralwaystopassarguments(data)betweenaFORTRAN programandanassemblylanguagesubroutine.Theeasiestisprobably usingCOMMONinFORTRANandCSCTintheassemblylanguageprogram. Keepinmindthatintegerstakes2bytes,whilerealnumberstake4bytes ofstorage. AnotherwayistocallanassemblylanguagesubroutinefromFORTRAN justlikeanyothersubroutine.ThereisnodifferenceintheFORTRAN program(keepinmindthelimitationof6argumentsmaximum).The linkageisaccomplishedintheassemblylanguagesubroutineasfollows: 1.UseanXDEFfollowedbythesubroutinename.Avoidthe'$'and '.'(period)charactersinthenamesinceFORTRANwillnotallow themintheCALLstatement. 2.UseanXREFRUN$inthesubroutine.Let'sassumethat wewillhaveasubroutinenamedSUB23.Thefirstoftheassembly languageprogrammightlooklike: NAMSUB23(thisdoesn'thavetobethesamename) XDEFSUB23 XREFRUN$ 3.SetupanareainDSCTofthesubroutineforreceivingthe addressesofthearguments.Supposetherewere4argumentsto bepassed.Thisishowitmightlook: DSCT ARG1RMB2ADDRESSOF1STARGUMENT ARG2RMB2ADDRESSOF2NDARGUMENT ARG3RMB2ADDRESSOF3RDARGUMENT ARG4RMB2ADDRESSOF4THARGUMENT 4.UsethesubroutinenameasalabelatitsentrypointinPSCT. 5.Aftertheentrypointofthesubroutine,makeacalltoRUN$+15 todotheworkofpassingtheargumentaddresses.Itshouldtake thisforminourexample: PSCT SUB23JSRRUN$+15 FDBARG1 FDBARG2 FDBARG3 FDBARG4 FDB0(thistellstheroutinetherewereonly4arguments) 6.Youwillnodoubtmakeuseoftheindexedaddressingmodetofetch theactualdata.KeepinmindthatthedoublebytesinDSCTarea containtheADDRESSofthevariableorconstant,NOTtheactualdata. 7.AftertheFDB0intheaboveexample,continuetheinstructionsin thesubroutine.TheRUN$+15routinewillfinditswaytothereafter itdoesitsworkofargumentaddresspassing. 8.EndthelogicalconclusionofthesubroutinewithRTSandtheassembly languageprogramwiththeENDassemblerdirective. 9.UsetheRelocatableMacroAssemblertoassemble(C RASMwith"R"option). ThereisnocheckbetweentheCALLandthesubroutinetodeterminethat thereisanequalnumberofargumentsbeingsentandreceived.The abovesubroutinewouldbecalledlikethis: CALLSUB23(A1,A2,A3,KK) ************************************************************************** LINKINGFORTRANMAINPROGRAMSWITHASSEMBLYLANGUAGEFUNCTIONS -------------------------------------------------------------- ThemaindifferencebetweenthesubroutineandfunctioninMDOSFORTRAN isthatasingleresultispassedbacktothecallingprogrambythe function. Uponentrytothefunction,theindexregister(X)containstheaddress ofwheretheresultshouldbeplaced.Therefore,theususalprocedure willbetosavethevalueoftheindexregisterfirstbeforeobtaining theargumentaddressesviaJSRRUN$+15.Then,afterthenecessary calculationsaremade,theresultisstoredinmemoryasaddressedby thesavedvalueoftheindexregister.Theresultwillbeeither2or 4bytes,dependinguponthefunctionnameasbeingintegerorreal. ***************************************************************************** LINKINGASSEMBLYLANGUAGEPROGRAMSANDFORTRANSUBROUTINES ---------------------------------------------------------- OftenitisnicetobeabletocalluponFORTRANtodocertaincalculations andI/Otoaprinterfromanassemblylanguageprogram.Again,arguments maybepassedinCOMMON/CSCTorwithanargumentlist. Twoprecautions:(1)BeforecallinguponFORTRANtodoI/O,aparticular FORTRANlibraryroutinemustbecalledtodosomeinitialization.This isdonebyJSRRUN$+$21.Ofcourse,anXREFRUN$mustbeusedinthe assemblylanguageprogramandalsoXREFtoanyFORTRANsubroutinename used.(2)Don'tforgettoinitializethestackpointerinyourassembly languageprogram!!!FORTRANdoesitforyouinthecaseofamainFORTRAN program,buttheprogrammermusttaketheresponsibilityincaseswhere heisdealingwithonlyFORTRANsubroutinesandfunctions. TocallasubroutinewrittenandcompiledbyFORTRAN,use: JSRSUBFwhereSUBFisthesubroutinenamedesired. Topassarguments,usethiscombinationimmediatelyfollowing theJSRforeachargument: FCBxx FDByyyy wherexxiseither$00or$40andyyyyisthedirectorindirect addressoftheargument.xx=$00ifyyyyistheactualaddressof theargument,andxx=$40ifyyyyisanaddresswheretheactualaddress isstored(indirect). ************************************************************************** LINKINGASSEMBLYLANGUAGEPROGRAMSANDFORTRANFUNCTIONS -------------------------------------------------------- ThisprocessisslightlydifferentfromlinkingwithFORTRANsubroutines. TheonlyactualdifferenceisthatpriortousingtheJSRtothe FORTRANfunction,theindexregister(X)mustbeloadedwithan addressofa2or4byteRAMareawherethevalueofthefunctionwill bereturned.The2or4dependsuponwhetherthefunctionisinteger orreal. Thefollowingisanexampleofaprogramusingbothafunctionand subroutine: NAMTEST XREFRUN$,SQRT,PRNT DSCT NUMBFDB$0140,$0000REALNUMBER4.0 ANSWERRMB4 RMB100STACKAREA STACKEQU*-1 PSCT STARTLDS#STACKDON'TFORGETTHIS!!! JSRRUN$+$21INITIALIZEI/O LDX#ANSWER JSRSQD RTSQRTISAFORTRANFUNCTION FCB00 FDBNUMB *ANSWERNOWCONTAINSTHESQRTOF4.0 JSRPRNT FCB00 FDBANSWER *ANSWERWASPRINTED SWI FCB$1ASCALL.MDENTRE-ENTERMDOS ENDSTART TheaccompanyingFORTRANsubroutine"PRNT"mightlooklikethis: SUBROUTINEPRNT(VALUE) WRITE(101,900)VALUE 900FORMAT('THEANSWERIS',F5.3//) RETURN END ************************************************************************* ARRAYTABLEINFORMATION ----------------------- Everydimensionedvariablehasanarraytableconsistingof10bytes ofinformation.Theaddressgiveninthesymboltableattheendof acompilation(Soption)istheaddressofthistable,NOTthevariables themselves. Thefirsttwobytesofthearraytablegivesthestartingaddressof theactualvariablestorage.Therefore,thesymboltableaddressis anindirectaddresstothevariables.Theremaining8bytesofthe tablegivesuchinformationsuchasthetotalbytesused,thesizeof eachelement(2or4bytes),andvariousdimensioninformation. ThistableisnormallyinPSCTunlessthearraywaspassedtoasubroutine asanargument(thisisthencalledaDUMMYarray),wherethetable informationmustbeinDSCTsinceitisvariabledependinguponthe callingstatement'sargumentlistforinformation.The"R"optionon acompilecausesthisDSCTinformationtogeneratecodesuchasLDX andSTXforactualinitializationofthetableatexecutiontime,rather thaninitializingDSCTduringcompile(foruserswhowishtoputPSCT codeinPROM). ************************************************************************** STACKINFORMATION ----------------- WithinaMAINFORTRANprogram,the6800stackpointerwillbepositioned (loaded)tothehighestaddressinthatmodule'sDSCT.Thisisdoneas thefirstexecutableinstructionofthemodule.100bytes(decimal)are reservedforthestackandshouldbesufficientforallpracticalprograms. ************************************************************************* DEBUGGINGFORTRANPROGRAMS -------------------------- HerearesomehintsondebuggingMDOSFORTRANprograms: 1.MakeuseoftheXandYoptionstodoconditionalcompilations, placingappropriateprintstatementsthroughouttheprogram. 2.Setbreakpointsatthebeginningofvariousstatementsby usingthe"A"optiononcompile,CURP=\$100duringRLOAD,and omittingthe"G"optiononLOAD.Afterloadingintomemory, setappropriatebreakpoints.RefertotheRLOADmapforsection offsets. 3.Ifyouaresureyourprogramconformstothesyntaxandrules ofMDOSFORTRANandtheprogramstillmis-functions,tryto reducethesizeofyourprogramdowntothefeweststatements possibleandstillhavethetrouble. 4.Ifallelsefailsin#3above,aphonecallto602-962-3935 maybringsomeadditionalhelporinformation.Bepreparedto sendadiskettecontainingthesmallestprogrampossiblewith thetrouble,includingsource,ROfile,andLOmoduleto MotorolaMicrosystems,M/SM318,2200W.Broadway,Mesa,AZ85202. Achainfilecontainingthelinkinginstructionswouldbehelpful. 5.Ifcompileorexecutioniserratic,lookforpossiblememory problemsinyoursystem.Anotherpossiblecauseisnoise. **********************************************************E **************** PLEASENOTIFYMOTOROLAOFANYADDRESSCHANGEORCORRECTION.YOUR REGISTRATIONISOURONLYLINKTOSOFTWAREUSERS.IFYOUHAVEOTHER MOTOROLASOFTWAREWHICHISNOTREGISTERED,PLEASESENDINTHEFORM. ************************************************************************* MISC.INFO--- 1.RLOAD3.00orlatershouldbeused.Thishasbeensuppliedonthis diskette.MinortroubleswithpreviousversionsofRLOADmaycause difficultieswhenlinkingFORTRANprograms.Inaddition,this latestversionofRLOADreserves$0020to$003FinBSCTforFORTRAN touseasscratchpad,unlessoverriddenbyaSTRBcommand. 2.Theusershouldbeawarethattheexecution-timeroutinesinFORTRAN douseanareaofmemoryinBSCT($20-$3F)forscratchpadandtemporary data.Therefore:(1)theremustbeRAMmemorythere,and(2)the usershouldnotplanonstoringanyvariablesinthatareabyan assemblylanguageprogram. 3.Sinceminorchangesweremadeinsomecompilercodegeneration/runtime routines,ALLrelocatablemodules(.ROfiles)compiledunderprevious versionsofFORTRANshouldbere-compiledunderFORTRAN02.20ifthe new2.20library(FORLB.RO)isused. 4.MDOS3.00anditscommandshavebeensuppliedonthisdiskette.DoNOT mixolderMDOScommandswiththenewoperatingsystem,orvice-versa. UserswithpreviousversionsofMDOShavebeennotifiedoftheupdate toversion3.00.Ifyouhavenotbeennotified,pleasecontact JeannineMiddleton,602-962-3935.WiththeMDOSupdate,thereis availablethenewMDOSUSER'SMANUAL ************************************************************************* eof !Ā MPL2.1 ------- MPL2.1differsfromMPL2.0inthefollowingways: 1.Unsignedbinarymultiplicationanddivisionareallowed. Example: DCLB2BIN(2),B1AINIT(100),B1BINIT(100) B2=B1A*B1B /*B2becomes10000*/ 2.Integer,decimal,hexadecimal,string,andaddressconstantsmaybe givensymbolicnamescalled"compile-timeconstants".Theprocessis called"declaringacompile-timeconstant"andisdoneasfollows: DCLnameCONST(constant) orDCLnameCONSTANT(constant) Whereveranamesodeclaredappearsintheprogramafterits declaration,theeffectisexactlythesameasiftheassociated constanthadappearedinitsplace. Compile-timeconstantsmaynotbedeclaredwithinstructures. Example: DCLB1,D5DEC(5),ZEROCONST(0) B1=ZERO/*assignsBIN(1)0*/ D5=ZERO/*assignsDEC(5)0*/ 3.Variablesmaybedeclaredtobeinalabelledcommonblockby labellingtheirDCLstatementwiththenameoftheblock.For example,todeclareSAMtobeaBIN(2)variableinaBSCTlabelled commonblockBBL1,thestatement BBL1:DCLBSCTSAMBIN(2) maybeused. Variablesdeclaredinlabelledcommonblocksmaynothavethe EXTERNALorCSCTattributes. 4.Localproceduresmaybedefined.(Alocalprocedureisonewhich maybecalledonlyfromprocedureswithinthesamecompilation.)A procedureisdefinedtobelocalbynestF ingitwithinanother procedure.Forexample,in P:PROCOPTIONS(MAIN) DCLI . . . I=1 Q:PROC . . . RETURN END I=2 . . . END Qisalocalprocedure. Controlflowsaroundlocalprocedures.Thismeans,forexample,that thenextstatementtobeexecutedafter"I=1"abovewillbe"I=2". 5.Thefollowingsynonymsareprovided: =forEQ #or<>forNE <=forLE >=forGE EXTforEXTERNAL OPTSforOPTIONS 6.VariablesdeclaredinBSCTwiththeEXTERNALattributewillbe addressedwithsingle-byteaddressing. 7.DeclaringastructurewiththeEXTERNALorGLOBALattributesresults inonlythe(level-1)nameofthestructurebeingknownglobally.The level-ncomponentsofthestructure(n>1)areknownonlywithinthe compilation. Example: (separatecompilations) DCL1SGLOBAL,DCL1SEXTERNAL, 2B1A,2B2BIN(2) 2B1B 8.Whenavariableisdeclaredwiththe"DEFINEDvariable"attribute,its size(thenumberofbytesrequiredtostoreitsvalue)maybeless thanorequaltothesizeofthevariabletowhichitisDEFINED. Example: DCL1S, 2BIT4ABIT(4), 2BIT4BBIT(4), 2F/*Sis2byteslong*/ DCLSBDEFS/*BIN(1)versionofthe"BIT"byte*/ 9.Nameslongerthansixcharactersaretruncatedtosixcharacters beforebeingusedinthelabelfieldsofstatementsintheAIfile. 10.Outputformatchanges: a.Sourcelistingsincludeapageheadingandanerrorcount. b.Embeddedassemblylanguagestatements,likeallothers,are includedascommentsintheAIfileiftheSoptionisspecified. c.ThefirstrecordintheAIfilehastheform *MADEBYMPLrevisionnumber 11.Errormessagechanges: 511:UnsignedvariabledeclaredwithanINITIALattributecontaining aconstantprecededbyaminussign. 536:Morethan3parametersspecifiedinCALLp<...>,GIVING<...>, p:PROC<...>,orRETURN<...>. 537:a.DecimalconstantspecifiedinCALLp(...). b.Two-bytehexadecimalconstantusedinCHAR(1)context.  c.Integerordecimalconstantwithtoomanyinteger-part digitsusedinDEC(m,n)orSIGNEDDEC(m,n)context. d.Integerordecimalconstantwithtoomanydigitsusedin CHAR(m)context. e.IntegerordecimalconstantusedinCHAR(m)context,m>30. f.Character-stringconstantwithtoomanycharactersforits contextused(waserror511). 568:Compile-timeconstantdeclaredwithinstructure. 569:OnevariablehasbeenDEFINEDtoanother.Thesizeofthefirst exceedsthesizeofthesecond. 570:"DEFINEDvariable"attributesarenested. 594:VariabledeclaredinlabelledcommonblockhasEXTERNALorCSCT attributes. 596:(Nolongerissued.) =̀=>AA~A~A~~~?@co@&G@؆~@׷@G?@ކ9@܆@[@@@_@Π@@<@=@?@|@~A? G @?@?@@?`@9?@@@@Y5BBLc&~A@@@@C%@@@@s&~EJAF$F'A&@ 4& @')|@ $& @'z@ &@{ &@}@&@@DM&~IT@'  &J&E@@H@' @'#}@&~D@u @u&@w@uYB@C&~AY @'@#Y @'@# YB@@Ն@ԽG9@@~GZ @շ@@@A'A 'A '@@?@@Kw@'@ԽH}@&~F@'#&}@&~NV}@'}@&'&~NQ~H'&@' J@"~N;@@$@@$@@$ @@}@'@ԁ;% ?"Y~E>K@ԁ7"2%3" 6%Vö@@@?&=@@{' @{&~H:@' @&~H}@'9@@@%"@ @@@@Զ@%& @ 'P~GXX'J&n@@@@@6@2~@6@2@@@@@9V@ @&_@ջ@@@@}@*z@9@Է@ڶ@~@ڿ@@@6@6@@|@97V3'n'@ @@@9@ @@@ V@ @@@2@2@@@z@9w@%-Vÿ@@@6@6@6@6@6@6@6@@9@@9A@9@}@@'~FA@9@y@{A 덉@9Vÿ@@2@2@2@2@2@2@2@@@9Y~E>_@HYHY@@ҷ@@@Ħ@@_0' 0' ' \\\@9@@ ~A@'@#BYA4@C)YD)@C)YH@C)YL@C&YP@C& ~BYT@C&YX@C)}@' Y\@C)}@' Y`@C&~JC ~A @m*m& &QM $j '@$j~D@'M@&s@]*m )XWWWW7Z'Z&3"O @& &}@'~D}@'@@'HѶ@'@@'@@' @@@ ' @l&l@& ' @~DB@'~A@H@C&IO@A Z&IO@''& B AA IOIOp'&"#A @$A @'C& [@C) S '߁0&@@^_@]@]BYB 1@'`&)@_6@@@@@2M*z@$A @ @@Z&@9@@@@? T&Y @?&ZB@C&~AK%W@@}@*@@?@&Z Ҷ@Ѝ&3Z& @@?`@'%"%' "%"O9 ݆9@p#>P$:@@ѷ@@@' '@@л@ѷ@$|@  O@@ 9 9B@Lc'C%;@@@E@@@ @&HѽA ' &@ ~A1&C%9~A΍$&C%9@@u@w'|@ ԍն@^@ @h=9@h 9&ǽCa_O&Ca_N9YB@C& ŽB@gLc' C%>@^@g@=&? z@g&@a@BJC@a?&=@&B~A~AνC%.@c@eCC%C%@e9Ca_X'W')M'4S'~A@ƌ? '<@@ +@Ȍ?@'-1@ @ʌ?`'"@ @̌?'@̽CaLc& (ZD~Aɶ@c@d@e@f9L*@^"@~A~AνLc&BUB`BkB6 .BCa_S'X'W'M'~A΍ # / ;Lc&ҽB~AZhY@@? .ZYI@@? ZS9@@?@ Za)@@?`B@'BIMC&-A C& ~CaBZq~BZ} Li'@ 6@ /Z Z~E>Lc&*}@'ZB@@^@]@]C&H ~AZB ~AνLc'LݽB@c@BJC@@@e"%@f#@@B L*@^@ L]& C%@s Lc'C% @@aB@aC&IO@aC)IO@a@]@^A ' '$ ' C%CA @a@^'~A A @a Lc'<=%8&L7@a@^ L7@a@]@^@&@@Lc&~A~AνCa%6Ca2$_Ym''\ @a 9 9@Lc''@&@ Ca@'Ql%@@ @QM~AνC%@@@DM@=&ZýB@QM~AoZ&@@@@Lc'1Ca>'<' @P @P @C%@@]+@^@@&D-@@ & @&&E~PLc'~O~A@?&~P@@@@Ca ' ?&~P@ ƽC%@]@^@ @@h!&\Ca=&9~OLc'Ca_I&Ca_F&C~Ca$$&ڽC%սPʀ O%XXXX@CaP@C%@]@^@ J@'@' @@$z@9Y$m' ' 9 9Q& '(_B B~AB@c @eLc'L;@9BIOC&ZB@9@D-@@'  &@O99@c %@e"O9&9Q&QY$@gV$A z@g& ~QQ&QM@@$z@ ~AQQ&oo @ @@Lc'C%@~D~AYB@C&C& L*@^@ Li&@ @ L*@}@ ׽L*@y@{ @Y8BB