IMD 1.16: 15/08/2007 11:37:52 mdos 02.20 master1-20-79  MDOS02200220062678JIM \lxBINEX CMLIST CM8MDOSOV0 SY\DIR CMhMERGE CMhRLOAD CMxMDOSOV4 SYMCA LOTEXTONE SA0MDOS SYMDOSOV6 SYREVASM CMrRASM CMFREE CM,ROLLOUT CMMEMLOC LOrEQU SADUMP CMEXBIN CMNAME CM|MDOSOV1 SYlPROMPROGCMPATCH CMASM CMBLOKEDITCM ECHO CMEDIT CMEDITM CMLOAD CMLMDOSOV3 SYMDOSER SYDEL CM\CHAIN CM BACKUP CMREPAIR CMDMDOSOV5 SYDOSGEN CM|EMCOPY CMMECOPY CMTCOPY CM@FORMAT CM$SCRIBE CMMDOSOV2 SYxEXBUG CM EDITINFOSA |uu+XHYHYwvz{67xHY & M& &S66~m? ~SM @?@0220 CN0 LP0 DK0MDOSER SY }O'0&'L/&04315X%;$*IZ062Y06336;!~nWnceg !*-9bdkt  _a[]aqwFIik'llll}*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 ON670$1'24'.8'*9'& 320$'90? ?0j'&?.Y$u Vx~>?*?/% 629~/' '  k "uS~DK8LPECRRCP_CNlHRyr 1 )Qze W T  Q NS*"' "!$%3l&l && l&l"!$E011n0~Ao'  ''   9? "! '  9&' ++& +|$~( 66?240?311116L6*5i+`32P@$Z73$O_ ?(?!I% ~B~*|_?3?*67)*0l&ll&l&&11~%0 09 |?3?+?$~B?26 HYHY01674 0+??31111  +  l&l 9    }* |S6]3&l f09~~  U Rz (&}* V (H7F $9ц 1 ' G$ 9 9W (}*7 _ 011n~϶?}& W~ J~ d~ ~ ~ & }*] &9 |b}*0 b}*9OZ& 2OZ&     $0 011n&~  V$]&u0  !' m& Y ˋHHH0 0'l >0 !' ]'~ ]&& '~ } &~ ~ #_ HHHH?( &   m&~  &  0 ? 'B_9 & ?'0 && ~ 0 ?'~ D'~  '~ ?0  0?"$ ? ?  ~ !'~ &\0 '   0 @'o o ooo?!]''?'; ? ?_B   ?0* '~  9       DDD   } &? ? 9 _  %*_  Yz &VFFFF# "GY9' V$]'~ &Ġ''P& &' '0@& ?$ &~ ? ? &~ & x9?)%  $~ Š& '?(%%' _?]&' 'G &C&7vŀ& ' 7}n7676~m  '2m '%''0n00&_9 90 9    ?z9?$?/$11 ?&?/%9  &ŀ' ?-9Š&   ?.9 90uv9v'# ?u'J$|911~ oc' 9Š' h9& SS90}629ŀ'hvŠ&9S#Mٽnp{' {j?' &&l ) #_HY?)?# *'>&~0Ӧ'_\'0է }&|ަm'С&~  Ӧm''?' |&|  Ն ) $! 9?ۆ.?ۆ:9ַ$|ն&ٽ99צٷGط$| 0 ~f626 29DDDD09#90 &1f38 "#$ % &  ' ( )*+,-.5BbINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYo6 6 6 660_\$ H/,6@?% 20 229V S          ؽؽؽؽؽؽؽؽؽ ~m       | M'  / /| ~?%( ~& ? ? ? |9V S   oo~~ؽؽؽؽؽؽؽ'н$~y ?   '; Z9 ?_$~w?'  ?'~b&.%,M%& %  \ \~M$~%' &~$'M$ &~}?&$ &m &m ' ' '~} &? &ƀO?Z?1?1 ?m+ 'K_ $?,?) &~ w &  _?&$?,?(~y&^wXXZ?'gʀ? & _9 ۽wXX?'~ 9      &~ut?'~fTTT-#~?XXXX?''~o o m*~;?* ?~;w%SZ& ?0?0*~yw%R?.&ǽʀt?)' oo ?~?(~$9 ?( 9TFVFVD6YYYO FZ,299$ 9g|WW\7g?%39ZXX7g?%3O?*9?-g?)9н$11~u?m+ \:/11~u'9  ( ooؽ~~~~~!~~90909X0o]''d*&ց.&PƂ]' *&ʍ:& 0? 0?090 ;' ' 0 l&l9u #'zƀ ?6ŀ& '@'?$ @?%?0]'Z0Y?%0 ?')760' ?0 ?23*& ?$?$*1906?290?ƈ~ 6'-  ?-?&0 5?&?)   ?/%(?/$! 0m& _2W9 @&- $*?%$ ?%'?/' ~~~'DK&~J0 %Z]' ?(Z 'oo' 00  @ ? 09 0  $ ?(z& ~q6 @'' ?2oo?3oo  29'~n '~q&~q|'''~t&'| &&o o  's$~w?@}&~ʶ'~}*~M%xl&l&' &}/%}& |&Ľ[ 0}& }'7[3%!&' &  0$~h~0$6~h&%}'  '!}, & '  $~h%~}}&| &P09 0%}. 0%09E}+ H}'D0$~hO}+ ?.]'~z$L}&| '0%C}*~~}'7TTTT3% 90:%9ʀ  ' 73]' 9`~~ _'~ۆ&~߆ &$~}&'''~~)'| - Z.$~%_ 3$~}'Z& 'M&ZJ?%$~&~&(%?/'% '& &8}'}& $~}'~}'~o_9'&|]*' z' ~B3$~}'H' ' E&| D' }&t&i~%&~}'&}'&z' ~% ~%}&̽3% &&'m&jj~ 0] 9  0 &}&   7399@ 9󆀪 3%%"$1111~XXXXi3% %i 90%% *% 9}+39>997 &39 % 9?/9}&M&ZJ97%3g9399   ~~~'~ & o_9''  '~p''&?8'~@' D &'8&]'/?/')!"?/%o  ?ߤ]'~oo&~ &Q'~ DDD-#~?XXXX?'? ? ?'?"%~0] 9   &0o_90?&\TTT-R# L ?0XXXX?'''0 ?'6 ?20?90 9  &~{0' &?$~'M  '~&& ?_9?%~'   ?'?'??@?%!?&~ 9   ??9ÄHHHH?(VVV9"(~%&~φ@ &~? ''~ &.~׽o_9 '?'&~~|?  &~۽  &~I ?'?$' ? ?&~~' '~oo oo# %"?%*~ %:m+Z&~~b}?'~b?6'~m ' ?'#% #?&# ?'%#?~b ?' ' '  @&~۽ & & 62''&  &~ &~> ?'?$&~&~&~ ? ?~' ''~}?'~b;= ?'?$?%?'?$?7;<=>m&~e~ &~׆``& ~0] 9           9 $11~9$X~%~= jS9@1"COPY RLOAD.LO:1,.CM:0;V D MANUALLY FROM 0 TO 1 UP;A END CHAINHHHHC'1~#? $0 K(? ?. ?' (K? %S@'C\&(0$ ']'Z 09)~#*((*9*'..'*J'tC'fL'_, S&~v. T'%2 6*'S? 2.&4:? ? $~U #6+?,-.?/  2~}+* .|+S@L&S.&+ Ҷ,-*+ O 6.?&%2M' *&S? ((,$#_?S9 &4+'3~#+4 //9.?& ?&0? ~%~s?'((((6:2&*9 ? .???oo0+( # + . (7x+y*Z&++3Z&9&~ !q?o_!l?!o!B&%!o !E&!q!!s!q?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!~$ ' ' 932'&]+ 9.+,--L$0,',*'6-e-H$$,' +'-'/'*&}-' ~/8'9,-H ƽ-e8/,+'-'*'.0/ .10./ .10 .0/] 01!|-H*&E09'&{10t&'90$'O@'f%&~&;?%~&6?26 G&&!6$'?$ ?$ .'̽/2'ݧ _)j09oo+ & H&A~-Hoo0-8* & O'Q& ooԁ0'1&Fii B& l&ؽ/a'}%&!z |!0H&~%O'Q'B'z!9-H?%Ɨ~XI~ hihihihi94&ߡ' &&4}0 94}!9 *+,-/%&$6&$.22 &).~#K$.2н.)'Y-ƀ+('+"2!Y![C+6-#$26/2)!Y2;![2M-)*&!z??!??!U???-|%+"|))!?~!̽-L_! f^?%3-H?$,'f! f!%}_0&1'^ ̽/^-H '_& :.!df!ɽ-H '& ![d!_+EE-z^'>?-H}_'_'0 &̽/ % & -e:._+EE?&-z^&~!7?3%9--e-H,' 7$.23._+EE9?& --e-H,&?& 7$.2$$7ҽ/3:3._+EE97'-L2 ' -[- -H2&.~#K-L_N& S-HO&5-HO&D 1M&SA (L&B G&? S&S( P&C ٽ/ -H ',&-H $.2E ~!B'9)'C&!Y ;\'\' ![;~-$.2../FE~#G$.)';'.' .2!Y![- 3s[2&[p'*. Eߎstvu%~**'* &p'Gsq*#)'*Gܽ/ 7&9sbusq+ bu& ** ν/+ ޖj9qrts% ӽ/ y6 䍨uvon$p& ӽ/ y6usq,su ݽ/ sZ&s9Ys42Z&Y9Ys2Z&sY9lsw!Y![stvu% ![w&-9s)'*G +A![ //zw& ![!Y &-* ![* )'hQXJ&F*&BD&>-*?J2h-* PYh2hY--:&PC--"!~-o2~&LN2@N-O-2LN'Z QHHHHQ}A'&6LM"!%2L&@ 6@&ڗ@/2-LLNS2z'~,~,6K2@Lm&D6gPC b !22>U2END'EQU&FCB(FCC'FDB(xMON'NAM(OPT)ORG)vPAG)RMB)SPC)****ERROR TOTAL ERRORS COUN S1 --- PAGE12345  MDOS ASSEMBLER 2.0 COPYRIGHT MOTOROLA 1977 !߁?&]' ? ?!߁?LX!!?%?% ' _? ?+#O?4|~^|~&nZ& ? ?^*&=&!߁?Ň'~3}^+&=#&CN&!] LP!] 4 ^ ^S( ^׃ !U?$~3?%*& !z?%?%34lu?$ ? ~'e!?,n34? 9;46 4P 3-4=G4JL4 O3S4C,3 7!" $0204 _"""g"")1#  "u_""" SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER  O? ' '$;&Y$С' $& :Y 11!+!a&!s/ ? Y'?O)L1!.~$~& ? ~0!&J!9!&L !&  9 |%9|#(9|&9|"9|$9'&z'# ~-4'&|' " $z $:A$C$D$I$L$N$R${S$U$V$sY$Z$$&-97/QM??$HYIOPO}!*DVOPDVFNMST_?/"f!+. *,&(*,&(%>MQ|-7&(3%.Z&$'-*O,,-?-$?),Y&(Y&~0 ~/~/OPTFTF[\Y*,9HZ&;o%(>l (>670 'Z&32(>l&ll&lj ,(> m&jj(>l&lj&(HO9'd ]'G((oo (HY%5HY%1%+HY%'(l&l?  %_%z(&O9 H &0203 MDOSOV5 SY!!!!"=DKCF">" "#2DKCHAIN SY#3# } }"HM" !! ! "" ILLEGAL NESTING OF CHAIN COMMANDSCHAIN.SY DOES NOT EXISTLABEL TABLE OVERFLOW ON LINE :SOURCE SYNTAX ERRORILLEGAL OPERATORINVALID CONDITIONAL EXPRESSIONILLEGAL NESTING OF CONDITIONALSEXECUTION OPERATOR OPERAND ERRORVALUE TOO LARGE FOR FIELDEND FILE REACHED BEFORE LAST XIF FOUNDUNDEFINED LABELS FOUNDOUTPUT RECORD BUFFER OVERFLOW$!?'/~.!! 'O, ,? &NN!PN?]&~&~&<'B!' N&/!Ձ &("?%$!')N&?$C~-~.$e ~.O, ,?&A ' RR' R ?&( ! ! $3,! ! _!? ~. &N[ 'J;' &=N O+$0'. '/,'%&"_N-? '%'\ &N -?%& ~.!?&| ?&| "?'~.| ?&|  "? !?)$*(+;? $~-((!?' &\~+f!["]-?*&/&ѽ--K*'[AB' @'/&--K \'%'= 'T\&-? ' --? ~.$? (N$PN.$? !? ~-φ+$'ԁ%&]'Ŧ-Z& -"@'#/' "?&~'"*'( @"? "] & [-K[ [".'Á*'" ' ,' '~((7$$-3'7$?'3(') &$~(=nELSE)!IFC ) IFS ) XIF )-XIF )-ABOR)5CMD)JMP)LBL)SET* TST*(O*')]*"~'"I&0** ** ~-;;';9;+' ;Ā9$~("[-K[ [N+$ ')"C' "S'N.' ',& N& &9$~([O&N ' FF& +I~(L%~(O+$' &]'+ *l O+$'؁ &]'+ *l~)½*%-R &P+E "*~)~)Ƚ*%+%E '-R &*%ޖS*N@'T?SRN+ET+ER~) LH?'" JH.L9_",&<-?6-? ' &;-K[ [2W'S'T'M&  RNPsNsO 9 9|REFzR' HY$%'~(P&Q&?%T9-?-?+-&' +E& 9S-? ',& 9EQ'NE>"LT%GE$LE#BSBC  6H$#-J-Z&2~-;+'%A~- "',l*  ,l %h !??,"?'&,? """"  $'&-$;,~&~.G H"LJ_&?*$?/%$}~-͗G H&LJ }_-?,r' '\ _ 9]'6HJ'&$$-'0$ 0. G&$$-Co?$L_2M 9=2 9L?(9 '.' ,'%' 96_!?! ! ! ! ! ! !P !! ! $+,2M& ?2 ?&?3 9. 99VVVV9Y]#3' "]Y9%~-Y[ Y[[Y9 '9 7VEݽ.%E.FFZ&ɗX2XV]9VACVA?9 6----.29V=?V=?9? '"J'J'J' "?'_? "?!?!??_? ]&~.l&l.......o%.l .670 'Z&32.l&ll&lj ,. m&jj.l&lj&.O9'd ]'/l&l..ܦ #0m&jj.܍ Z&.96dfJ&296hiJ&29A% 62% 0%62%9P8 0204'*U''?'&~! &~%*VDK&~%*S*4*4*z''?'&  '*{DK'*x*4*4'_ 'W;' ' 'G '*<&3'D&=&**''7?''_~%3 ',& ' m&~%*7UDŀ'*4'*V'''*{'~%&*4'*V' '*{' &~%' & *z&*'*4'~# *z&*U*z*&*^**{&*V'*{''?PS*7'~%P*7' *L*L *q*q*K?'~%?&*7@'~"S*b**c**d**^*&d*q*q*p?&?'}*&}*'&** %*K?'U &*b&C*\**K?&?'*(**p?&,''('' ?**p?& %?*p?'~%'*(**p&E%*K?'L '~%*p?'d &*b'~"D*\**K?&*p?&''('' ?' &*p?' '~%' ''''ƀ?&~"e*\}*K& '+ ''+ *? Ɓ?#~"D*7ŀ'S*:*?*:$&~%&~%&~%~%*7'*96*8644446n *z&0*z*4&~$*V'*{'' ?*K?'~%?&*b''~%޶*7'~%օ ' @&HP*x&'& '*bx**7'&dž*q*q |'*7@&R*q*q*p&'?'~%?&*7 '%*K?' &~"D}'& *O*M'|'*M*v*p?& CN*x&~%)**t*3*v*7&|'&E%*K?' &*p?' &~"D*? ~#}'&*M'*p?' '~$}'& *r'|'*O'*t'''&*r& '*M' ''*M'' CN*S&~%*7('~%'*4'*L*L*b |'*V*4' *&SA**{'*V'' ?*K&'?'~%?&*b' ''~%*bx**4&*V'*{'' ?*7@'~$N&d~#? %? *      *z ? $%?9*K&&*q&*q&*{'*q*q*p&&9&C?''_? &C?''_? 9*p&'?& ?&*? 9~%*z?'9*ŀ'~%*b' '~%&*4& **b&*7'9*{'*''?***z**? '? 'Y'ƀ?#%?H& R&*5*6 @ o9U& D&**   +#bNCWH V@DM( ))DK0 SA' '( ))DK  ' '0 LO' 'VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&l+?+? #0m&jj+? Z&+?96dfJ&29  +q +$ 0 011n++oo<+9++Ǧ4< ++Φ+ +&z+& %0& +9+MW8 0203O"%&" '.;' '|&  'Y&|" S&|% ' : "?"@ ?"?""? _"? ''\J' "? ''? ?& "?&}&& "?&"?"P!j ? $?"?!?$~!C!&!&%&"L &׶"L'Ɓ?##"#? D!&$"& """? ? %C"? ? %8Y&"??$ ? ?#"#? !J&~ " ';'~ F?!J''ƀ?##4"#4? ? ?&~!1O#$ "@&z# % &!9 &# |#"H'&"H&z$  &$ |$"H'&"@""" "?!9#+"@""""?&$*O J'"H" "H"9""@""?."ܧ"H"I:"?09 "X" DELETE  ? IS PROTECTED DELETED DOES NOT EXIST Z 0200O$%&#L- $$$j0$Y$Z ?%$Y%%? _%ئ '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !_$Y$z' \J'~#)$Y ' %$%%?$~#)$%$%%?$r$% $Y& '~" &&" "? $~#"$Y?$~##'#&"J& !&$f &|&#!&~"#$d%$%%ν&O$j'('%$%%ν&$Y$d%%E%% ?$~#)$%E'+|$?''*$%$?)$$%$%%ν&!&~"%E*&"%$% %?~"00$ $?%E)(''?'%$%%ν&)(''%$%%ν&$$%$ '$$?$'$57&)+*@Ɓ?#&$% ))+? $~#~"$$%"'~#-~ _+, $Z&z+  &+ |+$b'&$b&z,  & |,$d'&|#$Z%%%% ?~ &ƀ@?#&-$% s' ? i&'!',$%&c%%ν&$%&h%%ν&&F$%&(''%&%%ν&'%&%%ν&&j$%!'-Z'$>?$Z%$%%?.$$b$9++$Z%%%%?&,*O J'$b% $b%9%%$%%?.$f$H%$&$f9!&? 9z-&<-?49?2% Z' %?5?390 $%DDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l&& #0m&jj& Z&&96dfJ&29]&~'l&l'''''''o%'l '670 'Z&32'l&ll&lj ,' m&jj'l&lj&'O9'd $0 Z&9_( 0203(u'|''~1''|?].e_'| ';& ' 'U& T&? %'1' .O"L! & &'? $Y& '? $Y'? ? ( ? &?&? ]'$%/&'l&'n'l?(? &?&? ]'%%/&'l&'n'l?(%? &?&? ]'/'l&'n'l?&&'h%'j!'g?%'h&'j!'g?$~!ƀO&?%&~" !' r%~"1'8' ? ? &|  ?* ?.)&?( &~$~!'p(:'r'p)*(0? Ɓ?#'&~!(H? $N&~"Y&(d? &'t? ]''t)k%'w& 'v_?/# (? @ƀ?# (? &'x? ]''x)k%ٶ'{&'z?/#'v'w?/#~"D'w'v)&?('v?'z'v'w?/#(? ~"&>>&GA?'h&'j!'g?%'h&'j!'g?$~!&Oƀ?%$~!DK&&&&&&" !o?'? ~$DK&&–! "&?'? ~$|('))+<'l ?()& ?('n 'l? &?(?% ~Z&C60? 2 7%'~$O(& &  ?(&&'f&&?$ ' ? ~$&&&&'))+'l ?()&'n 'l?' &oo&'l&'n'l?&'l('n'l?&((? &?'? {&?'? U(/"'(? ?&??&??? (&?' &&'%< &?'? &?'? &?&? %('~#^~#? &?'? &?'? ?&? 97 ?$ '?%Z& 397 '?%Z&39##'h&'j!'g?$9#& 9&'h&'j'g&?&'h'j'g&?&}'lu?('n 'l?'g&?9|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM  (:&&' MDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYIS DRIVE 1 SCRATCH? ARE YOU SURE? DISK NAME: DATE (MMDDYY): USER NAME: SECTOR 0000 LOCKED OUT LOCKOUT ADDITIONAL SECTORS? ENTER STARTING SECTOR (HHH): ENTER ENDING SECTOR (HHH): ABOVE SECTORS HAVE BEEN LOCKED OUT INVALID SECTOR NO. COPYING FILE . MDOS.SY DOES NOT START AT SECTOR 18 TFTFTFVFVD6YYYO FZ,29]'/l&l)])] #0m&jj)] Z&)]96dfJ&29]'+)oo))l&l)%)Z&)9A% 62% 0%62%96hiJ&29e $0201!h DK h UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!!"0#*7#'>"1"""l"+""=""U" h h : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? !ˆC00/,)# ? c? + %,'~'#*y 'ޗ *' *&~$"#*y!B'C'D&0') ')''}/&*  '*yB& & T" ' &N&F#ƀ~%#Ɓ |+'&,* '"H') &' ,&'ǽ* ' &H)#n %*'/&I"(|,N~&#aƄ #-Ƃ,!?#? ~$)zA@(?%)~$)z *y0-9.6*y &)z2%70~$#ƀ~%!D&'&q("k?(' )%"ƀ*9"3157~$#ƀ~%!+&B''D')7'-3/'5 D&'&(" ?(')~$#ƀ~%#<ƃ *&"&$*y*y"&*y I & ƀ?7~$#ƀ~%-%)( ?('"ۖN& |N*y &~&.)%.'*sI*y &~&"&*y. ", *&"& *y"&*y  'Z|. -'I"""ہ,'-&J6 '*y &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&C#ƀ~%#-Ƃ /'7^& "!ζ!?-?$8"߽*O" ""۽*O#&? ~$8(~&,~$@ @A(!+&BB&~'C&~'D'"(dž /&"m"ƀ*93"51')7&~(>~(,C&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%" "*9"m')*?/$ /'֌&і0!B!(ǽ)$~("*S"*S"`(? g9";"="*O9*O99 -z/.==;?L?&;M&? %'"(ǖ?&')''@&~($zB&(~(~$?1% ?1%}/' 9}@&? 9?2 '' CZ& 6#?52:C?3'?4 ?59}@' CJ'# 9L)z%Z!L"!"Ֆ0! !"?&9 &5!ڗ0ŀ&,"*9!"9 !DK!!?&?&\/7 9#S? 9~)/'!?& O/7?& 9!_? 9"ƀ*9 O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7OH_*%H*IIZ&KQ2QO]96JDFJD?29 6*q*r*o*o*29L% L%%L9 '9C%:F%L'57O%2Q%&R%hS'07U%?W%]'/l&l** #0m&jj* Z&*96dfJ&296hiJ&29A% 62% 0%62%9k( 0200H& O? ? '&;' ' ? ƀ?#? ' 'N&2?2 n?5?ECHO NOT AVAILABLE WITH EXBUG 1lP $0200"""CN0"""DK0 SA  ""# DK0SCRATCH SA!!SCRATCH SA] &*]?$ _? |\~$b9]$l&l9_'2&.$'? &9$5,_l&l%o97aƀ## $ $2%3a9# $ '$7& 9   O & '67a@## $ 32a9]??_'j??\&b] ?(]c #caa ?_SA ?(_caa?_?$? ?]ca?]a_ca?$? ?+&,? +%"$&(O/L.&O,-' +'-&&-','$7"$@,$@+? ,H_%JZ[Z[ZZn(d((()$%%)H%)))*"%*`%%**%%%%%+XZ[Z[ZZ9$7@$@0 *5$4&~$'&'0 &$7 !4&$4$@  l& &'& &$@ &$7  !% 4}&44&$$@ 4$@ !%44&5&~$745~%*+! $%-*+%A+[%a%{$-0+9.-* *,9,-&/ +&.-&,.HH.H.&O~&/'.&.9$< <~$I&O6I_%,' I*|I 2G'GH#"GH 9 9+? 6I' $@Z&"$@~$7GGH#"%'0RGH#"R%T6R_%T&' |R G9T'GG "&()%$% $%%6&'%2$$&& & &&'%0 N*+! % *+%6NO%2N N* * N 0 *9"J/&.&8J J|..'JK%L& JJ9JJ9L &z.J J Ж.&9JK%L&9 &z.JJ ݍ X.&'! $6#,'-&'%,&&, &&'! $ |..2&&'%9"~$&GH"#I$%~)H/'"#.$_"#' "#.NO'&%&$ N$ N& ZZ[ON%NO%#mNN &(h& &~$b&O,'Z}'V"$&>'&N $(NO#"% NO%6$%%2N N$ $ $$"#%,"" '~$'J$$%#"$ "N$"N$' ۽'J" Җ/'$" ZZ[.%"#."# " "#.NO'&$N" &" ٽ&$x 2'&"(h"&&& &'~)E? %`& җ."&(  G/.&9'J$"N$ ZZ[ON%NO%#mNN ~'&GHI"#~$~$'JN"'J"#ON$ NO%N"#%N',$@? % "#%PNO%P' $@? % &" " ???? CAN'T FIND "\#?%/?%+a##ca?&]' ? ?###H#?$_? ?#?$;&]+ca?&+&R+&]oo?%"#_9' _#Hca?&]+|\#>?%?%]9#?##? ?+$X?0$ ? _~$b2"&9 MDOS EDITOR 2.0 COPYRIGHT MOTOROLA 19770s0 1 !~!~"v~~>~~8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED 8 o&4n&U_GD:T15T1t5R1tV+5P1t8/B!" *'{''"U"U"U'{"U"U'"U"U"U"U1`1j"U"U"U'"U'X"7n5N1t 5L1t~"5J1t 5H1t!&~"~"|5P1t8" *'{'''(%(;'{-",'0(('1`1j..('+G'X"7nEF;=><I45FbA#5pqrst#0&'95D$''95B$''95N1t~"A#55@$''' '9"5>5?de598p7-$b &b~#Wbf9# z#- 0"9 #b"%\#"X$,6--2b9"*-.HYHY.-HY88_M,S88-.|$d57' bddbb~#$/!-8p5V$_M,Sgfbc -9#d'p8d5 '7&9'#$L~$'98b 8A#5p '8!*887!38Ӷ!6855853488b88!*78!38ʷ!68,8/ F'$~"^908!*78!3:!6.9%&$=&&8 &&8 88885185/885548&&8&!915-1~F'$~"l8' &&8&15+1tF'~%!98'&~"f&& 8&!915)1t~"l0#5p &IU&9&9p8|63p863-)b-&b0#5p863)--, F'$.~"^9|~ ߀߂9/'9D(D5'15%1(D 5#4Y'GB&;!*887!38Ӷ!688518߆55488'~2 |/~"l11!*887!38Ӷ!68~(,5!^58![7^\^&i58O7on{zMN. &$58O7NMMNM8!e5V!i88S6b151t9^78![7^78|7$~&~'\^\^^'787#^9& B$цA#5ApN&A5z9k z19m &9k/&~"v& $цB9k5z~0& 1D14|D1~(D'1D%&^' ('T~( ~"|^1t9$9k3B|/~"v.0#5--)%&^'>>^\^'T~(M~(s~"^>8!k5V5 1t.~"||;~(|=.%;&+I''D(D5 1(D 5#4Y&~(~"|b &b~(HLbG&bG^~)b,&!bA& b|H~)!0#5-'.Lb)b=') &~"^,~),;'~)b``)' &~)d`|,~)L```)' &~)`z,~)ibj&^& ;&.~"|KJ,,+3^78z77^`zd='H `+)b+~*b`+' &~*f`hbff ')'G' h'~**ffhh~*f'' &~*)'`dd``~)L' |KK'~*=;'(~*fbdl `+ld)b+H'jbh`J~)J h+ d,-"^dz` + d~*z{\^z^dzV'(/J' f+J~*'Tjb~)ffG'' 'fdG'd '9zn% *'3J.~"f9+M~"|b '+3/5!^^\^&~+78p7$~+`^78p7& ^\b &5 1t9p8z77zdbddbbd '~+\zz{\dz9.F!*807!38!6:$Ab('~-b%|8787b)'~-b,&b0#5-&~--8|5V|87&^' 78|7&51~^\^zj1\djk\d'$d\d78\77%51~$/~"v$~"^.0#5pN&(9k\\'oooo &\~-;~.v-& --8|5V587b,&#b0#5-& --85V9k\\&~.v&$787%|87&&\787%|87|8\77\& 886b8|7$ 51t.~"v8|7\\~-/.~"v|878798|7879|<./W%b,'.~"^bb|87870#5-&~.-85V8|7|87b,'-~/Tbb0#5-&~.-85V&`\^\X^ZW&~/8|787|87#~/`&& `\^^&.~"|^X'Z&`~/<&^\` +3^`^\&W787<'&^fz^d f+ dz^X'Z&~0eZ[^_X8^77V'(< '87&~/^\886b~/l|E.0#5-& --8|5V587b,&#b0#5-& --85V|8p7~1.s886bp8 7 4  &.~"|4b+M~1#'U~"l#'V~"l 4$~"l &!* ' 9}D'}E&~ ~ 1}D'|TT:-B-T9T:'  B&_ \:&:T9d+'3eDK88448'%! 44*'3J+'3eF'$~"l+8d8Ķ88ċ8Ʒ8dž448'~2*@8ׄ'141~!F'$3J~"l448 &~3JM'~2 F'd8Ħ0% 8Ħ9#~2 887$~2887#~3J|887V'8Ľ1~8846b88Ād8 d388doo8z+388ċ8Ʒ8~288*448'~2 +448'~2 @&951~9A'=8b8`b8'` `b b~3b`8ooooo98Ħ0%9"8Ħ0% 8Ħ9"9@~3^@+'3eDK88448'~2 +8z8Ķ88ċ8Ʒ8dž448'~2 *448'~2 ^\^&C C\88Ʀ&8~4q888Ʀ '8~4448'~2 C&~4~4T~3J?94~4?6E'28 18% 2 8 y490001!88$!0010!!x!!k9m!V327670000000009k!!"!!M!9j888u p d 8 !E!8! ! 8678]*|8S88,@07238Z&*@ ,7p878%|8 68z88"88808827& }8' *-89867068& J6888882JJJ&8329770_F$VFj&11980'070'70'07011n888*0S8 88 88 8'87@S7|S 8 80 880 88 8Z&%8'88*S7*S  8*S8'J :& Z' l 988]*& 888&886h8' 987@7|~688&88888' 8 88 8Z&889z88iZ& l88898888&8Z&988888Z&9CS988Z.9'd & 9Z888$|889  0200u%%%%?&N%%%%ED %?&1"' *% ';' # $ 7"3% ]' # )? ?% & "$ %? !%[??#{' %[? ~ q#? %#$ #+%? %%% %?%#$%%? ? ~ #* %%%%%?%? !$~ %%%%%?%? ? $?"Y'~ %? %? ]'%#%Z& %% ED%%%? %? %# %]&~!% % %f?% '% %%%f%%?%%n"%Z&@%r$[%z$%|%x"'%%x)"'|)%[?'~"|%&'z%$=%?(Z'?'%L&'?O%$[%%%?$ ? %[? 9)&$|)% %&ƀ(?#%? ?%[?' % %&%[? 9%[&? 9& & ? 9##$9%%%%?& %%%% ? 9%%%&J9%? 9%[& DK "?'? 9 9O"6S'4E'ED&@ $C& B  R& A&(62&4 3M&-') ' ' 37 ' & &"3 93 9 % &%97  '0%62$ 'A% 62%Z& 39$%I 9 ? %T' & 9 9$L$'$=?(J%%$%%%?%$ ? %[%%%%e?$%u?(% %?%%e?9     $[$%%1 0 EDCOPYING FILE: NO MORE FILES COPY ? SUFFIX? ATTRIBUTES? FILE IS NOT BINARY &?)9&/&._F$&/VFz&.&9 X #0203!"' !DK0LX!!cDK0LO!"' !! SOURCE FILE NOT ASCIIRECORD FORMAT ERRORSTART ADDRESS OUT OF RANGECHECKSUM ERROR "("(?]&H6", ?2;') 'M!"*"(?&0 ':;' &)"( "( & ' ' & ~&c + "0 ? ?'!~&c ?&| ?&|  ' "4ƀ~&:~&b&%&% "# ?/$ ?/# '~% & ?$ ?/% ?/#"^Ƃ~&: ?--?$&6-?-5!!?&| ?'~&b| !!?&5"2" "" " !!?&64 !5!{$z4&2'$('~&c2? $~% ?'~$5&%&%: "#?.6HYI?%& '% !!?&!2?($ ~&b &% ~&L!~&>?2 ' !!?&?39~&b&&l ?'~%? $~% '& 'rS&%0'ҁ1'9&_6 ''&g%O*%%G&'&g%;)%*%) "29'1'&g%*$%%""z&&- 9 '~&b 9"JƁ~&: &) && ~%*"yƃ '&g%Ԗ*C%&2 2  29 '9 7/+ݽ&%+&,,Z&ɗ121/]9?#? 'J'J' J'!?!? ? ??_? ]'+&oo&&l&l&%&Z&&96hiJ&29A% 62% 0%62%9676&Ӷ&&?%2329 H~   0203'E& ? %?_C'$"? "? "Y'?L - "J'J@'3 D"/O*_Z&Lm*\K\$)T*"Ou$# ,,? %?)%$ "*!! "J*x%$DDDD"+#"/#p|Ƃ$& "O2~ '*J&*΂"a΃z΁΂''p|z"a΃~@'"_'#_''''΁ƭ#L#$~!l*||Gr$~ |"!"%~ ? 9+%"6>J9<>%+9'*J&Z&΁'*J&Z&9'"5~ DRIVE 1 SCRATCH? ( 02020!!!!!? !&,!&'!0, ? ƀ?#?3.!Ц ' ;' ' ަ ' 'L&|! "~!!?"j"n"!H%|"i&|"h|"k&#|"j ?276"h"d"e?/$"d23?3"h"iZ&z"&"ܶ"j"kz"/"k"j "j"k"ܶ"d"ez"/"e"d "d"e!"~!?"!'&|"o?(z"&!Ռ'! "j!"!!#"j""n!"!!#"n""d!"!!#"d"!"~!?!!"!!?}!&"x? ?"r?59!'"?5z! !! """ DRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~#il&l#|#~#j#y#}#~#to%#tl #t670 'Z&32#tl&ll&lj ,#t m&jj#tl&lj&#~O9'd ]'/l&l## #0m&jj# Z 6dfJ&290 0200#$##?' '~"~"%B##?'+~"%M##?'*%C"%%N"%%C'}%N'%N&%O%P%D?/%# '{;'# ## 'd 'H&|%> L&|%= ݁N&|%? ԁF'~""'$~"%a#"%@# '.&"'%%a #c"%A#~ $#%t##?%}##?$%#?'~"?&'~"}%>'%? %d? ?'%}%=' L$(P$)$ ?'~"?&S%C&%D$ $8}%?'$@# $$}%?'$8?$<#%[##%#?': &/}%Z'}%='}%]' %A%]##?S%C'%N'~"~" '~"L%C&:%[%\%D?/$-? %%[%[}%N&~!qL%N& %O%P?/$~!$ }%]&3%q#%X#%X#%%d$$%$&#g&1#%]$8$$#$&%Z#g&|%]%]%A-%]~!? #?   ? ?     %Q%^%F_## '0-9.\# %F%F %^]'&%)}%`& 9O9'e#fL'S' 9m&%^%b_ '\L#f'. . %^]'цL#f'& &)%%`%a%b#fL&' 9$&$$$%?-_%@?/$ $$J?($&$$ ' #%?$$?/$?% ? $11~!$ ?9$ ###9#?''_? #?''_? 9%$$%$&$ 7?3Z&9$8$DK0 SA$%<CNPB PAGE XXX XXXXXXXX.XX:X %ENTER HEADING:  ]&~&l&l&&&&&&&o%&l &670 'Z&32&l&ll&lj ,& m&jj&l&lj&&O9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+'oo''l&l'!%'<Z&'9A% 62% 0%62%96hiJ&29x 0203!p!x!r!p?'  ? ?X%|!o !p ' &~ !p;&!p '!p 'vM'V'*P',('4G'*U' Ɛ !m!m!n!n 0 ƀ  _\)' &~ !r Z'!p?!r !p!p~ I!m&& Š&'}!o'A!n&<ŀ''4}!o'5!x?%? $Z'ZZ&!x Z& Z& Z& ? ? &ŀ'6n'߶!l6!k644446n!20LO!"0 #0100*****L     !"DK0 SA !DK1   !! z U"#E&9#~&4 K#&*? %( p#&%% %%? $ p&& K&'? ?""?]&#"" V" {""?"?&9X% U0& z1&9 ?%?% &_9  D'~$K'~$&~$'-'~$$'~$ o o _9$&~$'~$ L_j &&M&~$    ?(  ?  n&&&l'0ƀO?      ? & ~#  ~#        %l 'C'   ?'  ?'-  n&'  L& _     9O76 " 0?(J&~ "23M&?9? ! O" Q K?' '?  9 M Q O M K%$~&X p6&2'~&S & &'~&S&'~&S % $ $l&l 9 $ $l&l"!%'M'$&  &_&  _9 _ $9LL'& &\M'6O296 ?26_HY67HYHY67HY011111?39?&?9O6 &  + , 7 (32M'%i %l &9 /'~'&~''~'!"'O? /&l &l #$&?* /  o /n&&'3l&  &% /#$&_& /&_ /9  8 0203%'% ' '%?''~$}&&~$~!%&h';&j&h?*|&}&'&' &&-~$\&SA0 '&''&''?'' ? ?}&&~$|&~!}&'~!>&&'#'' ''~$'#&'#''$''&''' O%Y'#&&`&%&&b& %+ &\' 'N?)'N&ZX&l?''''~ '#&'~$}&&/&' O%Y&`&&?/%&%&&?/$& }&&A&'#ƀ'#'~$&l&'''&& }&'~$|& |&&&-% 'h;' % 'XW&|&% '_'% -~$\ ]' %?+&h&h'y%&j&&?/$~$?$&?/%&& }&&B}&&=}&&8'&h'V&j&h?''_''b'V? &h? &hY'ƀ?#?%'&h';&j&h ?&''H&&~#'1?'~$?'}'N&}'O'&'N'O }&''D'B'%%?|&&&,%%x%O' ?' &?&?'~$'1?& ޽$?&&&?-&h?$&&&h?&h&'N&h'P&'R'1?'~$?&6' ''F&'; {$z' &2' #' ' ? $?2%x' O%Y&`&&^ ' ' ?' &]?''&'&?.' '_x' IY'B'C%%O' ?'~$'+')')')'N'N' ''&'N'R'S?/$ '1?&Ƚ%')'-'.?/$ '1?&' ?&?&|&&&,~#'1O%Y&&&&&&&&'1%Y~#? $?? ?'  '    ' ' ' $'2&'<''2'2'1$9%?''_? %?''_? 9&v'. %M%M?&u'J%N%N$|%M&x%M%N?)%911~$? $$?96&&2 &&M&?9?9'%SA'0'DK'%?' ? $?' ?'~$?&9}'& ''?/$'1?'~$}'C&z'Bz'C'P'?''N'9 1DK0 %&g3DK0 SA%&gXXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+'oo''l&l'%'ŪZ&'9A% 62% 0%62%96hiJ&29X 0200#"##?#''~"h~"n*'& "&SA"""" ?"###?]''~"r" '|#""&### 'P;'# ## '9 '#m&~ !' Z,~ !7##3## #o#&~"h'!#&~"r#'" '" & "#' & z#&"' & z#&"#"### #?"### #?? $?""#5""#'?]'#' ? ?}#&~"v?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##6"#"##?]& #' ~!X' ? ?? ?  # " 0 #6#D@WS N X $0204  DK0LO j j D !y."2"'"#E# #D#E#!!E!=>WHAT? SYNTAX ERROR ILLEGAL OP CODE ILLEGAL OPERAND INITIALIZATION ERROR ILLEGAL ADDRESS OFFSET=  REL ADDR=EXEC ADDR= "f"g"g?]&9 &1!o?&I?&E!&- j,t%%O !l+02~%t &   "ƀ? ?#?_? ?"6&?  hc? 6'~'.)-,& .& %1 U'x- '(,&),& .&7%1 U)-W%x- - &. .'.&"Ɓ ;"Ƃ 4&E-']*,Ӂ &'()?)+02En- 20~$i6"f? ?# 0./?-~,t-$"k-/"? ~%"t-$' +. " $2 +w-$-2"o-/2+%, %7 "w"w-+ #"? ~%"ƅ~%%+,0?.EF"{-/#? ~%"-F%++%  ~%""-/#? "ƅ~%%O 5 hFOEH+2H'/,Ӂ '{"&H, GV,Ӂ"' h h, H, ,& "&"|H 2E&+%E 6, 2%9V!k ',& 25& E& LF h~%54~%"Ƃ~%%~%""ƅ -''7 ')9~%",%w #', %hE&S":8&S' EN&A"-+ .', %>FE9:7& 8&&W' &X&"-/"s-/"? ')''? $~%""ƅ~%%,%'(!! .!!&!&"-/!./?-E"-/!!!!G!+%, %JE!-+ - z.!!)&|G!!!!!!&!? ? %G&~'D~%"|6+ 02,)&~);,ӗ<,ӗ=,ӗ>)'A' B'"ƃ~%%,ӽ)&-O;& <&=' ?'.& ??'0>)&& #B&@& &  @@'~)B&,́ &8 '~),#'FA,'X')%)'R,&,ӁX&,ӽ)'"Ƅ~%%?@'A&@ @ dŀ',ӽ)%ؽ)&?& IA&ņ AA& ?' 0@@ ',)%)&2AB?.M+]& &B6&BA2+%J?(+$"ƅ~%%@EE6E2, 23%!k22Z7&14~%6 ' ')&691%.A+'-&#FFFEC,Ӎ%6CAB}E*?) ?-2A 9A,́''D$'5O'*'%'?$E 9.A, 92 Q%A?BBA% ,'UA ٽ,Ӂ %Ɂ$ŗBA, ėKA?1?$?1?1?)K?(A,?% ,Ӂ0'1& 9 9''"Ƃ~%%"ƃ~%% >!!("V?"(2& A'\>+q%ͽ+( &~+O~+eon'O+q%A(0'&\>6+2 'v.N~+e'&  # +q%ÆA?' (@'L>+('30&?ŀ&~*v6& 0 '. HS!!S9R ,X # ܆ !? ~%"-O' ?'.& 9Z&? 9> ' ,T ' j,|!o???_64O !,T%' II? J?IJ ?*$%".0 967$%?/% "#?/"  329%C"#?-?$6IYI! }!l'!m&!n',T%!m!n ,t%|!l!k 3?' 93967!l'!k' !m!n,|%!l329?& 9 ?& 9_? 9!!!?'!!o9 7IU&/`%U/;VVZ&K2KI]9S h S h hS9 '9)./?))'?)'+%)&W'X&+% '()?/" 9 92}4&  29 6-M-N-K-K.29ABAADCԉADDԋANDԄASLJHASRJGBCC $BCS %BEQ 'BGE  ,BGT .BHI "BITԅBLE /BLS #BLT -BMI +BNE &BPL *BRA BSR BVC (BVS )CBACLC CLICLRJOCLV CMPԁCOMJCCPXЌDAADECJJDES4DEX EORԈINCJLINS1INXJMPHnJSRHLDAԆLDSЎLDXLSRJDNEGJ@NOPORAԊPSH6PUL2ROLJIRORJFRTI;RTS9SBASBCԂSEC SEISEV STATSTSPSTXPSUBԀSWI?TABTAPTBATPATSTJMTSX0TXS5WAI>G%H%bI*jL%^M&N&O%Z$_"$ '7$+k A8#$ &:&A ʽ#!'# " N8o<49#!$' <\'+> "P " " 'ׁ&' & "'"&' & 6 '$&&& ]&' ]& 9 O~ " ( '  9D$H' ('9"@9 (" $9_ (G%*Z& 9 (G$ 9ooo ' ,'$ 9 hiZ& ԁG$ A$ :$0$ 99DDDD0:%~ " ! 9'&+w 87#3%Z& '+"T 9%:&.8=&0;@&6><;98?>$+ ʐ&%$>6E:'8.=';0/.32BA1032DC 9$%,:&48=&6;&%<;%98%84G;6E9CHCK'DISK%.EXIT %FILE%$+9#$%G' #*FFHHGG>J'8ĀL)]+44' "c+}~$9#*F& #!E$)'+C$*V%HHHH$A6#+=&$$+q>~"T$S_T&$'Z%>*&> 9M$'+T&B "0:F&'&$ 0% Z&L%˞>EEG G E$0~$ 8'8+ҍ#T&"W#!J9z9'#T&Aҽ$ ~  F'* @&EGNE8L98oR*ON]9862ڽ*(d*Z&4'+9$>%BAHG#( $(+"T Y&L6E'*~*'&IA$*\'DDDDMI&tI$*&6E$# "~( K J)):'+-I!N % I !P9OQ {IoNoZ&0o4)CMI&.zJ&zK'"c + &)Z~)+$7"T19(9~)EEAA C97M' +Z*J&394@' J J%'o:p6C2H !$ ) #90u6$ q$ o$ &$ &D)9~21&:.&7S0$ $ H_ OO#Ħ#&CH !$ )|$ 92$ #F$ STOB$&' &F$ST& &$ &D)3$ $ JRnooooo& N[FN6F2NSQ&%&P& '4N+FN76F23o|QN& ~2޸L&~2 ŀ'*F HSTLQ6H2 L'$F `HSTL6H2 $'%F8HSTLPQH0PPLMA'~124$ L% 9 FHHF9FFFHRHF9R#7R&$ &D)$ JR3RRJCSQJC9VfOl#Jm4x4'~(&|#J0-9.4  <'7:+L:4R:?(&~;3J3KNL.'DA-Z/<0-9/6$'@'%'&'''[*'aؽR~; H'6R2011_77G7F7nFH9XI%9)9IFG9   ߍIFGHH97HH39Rf0-9/ A- F.  9 9Rf0-7. 9Rf0-9. 9Rf0-ف1.Մ 9PRfA-Z/0-9/ .'_'$&V'V&ԆR όV' V' 96Q &PA'B'X& ޽R'K~>Id'-T &'PN&!QA&RR&SG&޲ '\'U~>I޸F'3P&Q&R&S& T&U'gO GFFGF +'2HO4+'666666֋7֊7766666U6 O&HF29Oۻ"& ѱ#ݽR~BQ׻9' `&ӽR 'R+'Ė&F SQ' PT'0J&HPlP޺RT HRRP F @&l TF29&A 9OJK޸P'MJ& `&| *? @ PQA'P ۖJ&HK'M' R !"н)m+')|JO4?QL %'')zJO4?QL *M' R !"н)m9 K&()'J!'5)m|KO4?ܽQL"RLMM'PFRST RzM& !"н)m9M& LM"RP76FRST 23R RzM& !"н)m94xPS&"N&"S;S&"P ŀ'3 ; `&U" .'M 'D 'R" 'S"Ц"ӽRPF"STP O K SQTNLM"RzN&O'TOTNT&';TRRRSQRzK& *N'zM&R !"н)m4x zMML' R !"н)m9H +'KֻйAQLMM& "'9+&LMDVLMXIFGXIXIGF۹A'lN޸PNRJ P42"#&92"&22"&+2"&$2"&2#P4KF271zF&JHPQ"PRS'R J&L&M'~AL9 FGF' "F 9'L}mRf & _opq 77c$ Roh*50jk'!R'%!')m>~)OK>|!??~(<-& )%9Z')9}VURfN& RfO&|U VmPDQ$Z&Z+'Z'!~C"DSDC)%DSDC)%DSDC)$?],U&nC`' Dd'C&'noU&Rf7c$ ,&mV~B`*5~2ٽR ަP&$& Q&& R&  9S'J& 91&U'|1~C)' .'R '|) .+)&薄&ށ&|.&ޖ'&چ!RO! ͆P&ߵ9U-'~CVmDQ$=&ENDBEQUDFCBFFCCEFDBGwNAMHOPTB}ORGJhPAGILRMBHiSPCISETE/BSZHTTLHIFCP.IDNTIVXDEFIgXREFICOMMJASCTKfBSCTKkCSCTKqDSCTKwPSCTK}PAGEILMACRL!ENDMOIFGTOIFGEOIFLTPIFLEP IFEQPIFNEP IFNCP3ENDCPFAILQZ? !O?:3H4!/L2[[[0[[?SA[Wq]'&.\& /!&H [0[[? ~)O["' /["& ?(/[[ [?[ &~Z;'~V[= ' &[ -&= [Z' [& ~V[[?/#IIo=&l~Wn[?]''9[0[[?9=' 2!!~W!'>2[=' LP>?~X>#&[CN' LP' ~V>[ ? [[[!0[[?AL[Wq]+'*[0[[~VDK>[ & ,' ~V[!!>!DK&[[![ [? ! !"!!!?&?&~W~V|@='|1~W[='"![![ [?LX.'RO! _[![!0!! ?[?]' ~Vȶ!0!.! '|' LX.'RO![ & [ ,&DK!!!.'!$ ! !!!~W[='|- $=&Y%)_ [?/"?/%[3~W~V[=&Y%)_2[?/"x?/%[4~W~V[_ & ,'\ [[[9=&z.'&LX.'!RO!|)~WZ? #?)I4$I&~4}IK4D$ _5='|KIJ?)I& |L4$%P7%T7%X7)-6½4&~4N_5%\ƀ7%`7'56%l 7%p7%x7)6½4$~4*'_5A''/6%t7%x7)6%h 7" I"KMR ? OQIIKKH$*6M7O  A& 6 ?'O2RRM'zQ& O '  6)u6 &1'4'3'2&6533&~3E7%d7("#6n$'s6?3]'54%~3 "! 6n$&l6?4% D$5ֽ4$"6k$& %|ƀ?'}%&)6%! 6x?*6?*= 4 4%&' 9$ &* !&&,?',+L&-|*(& 9("? $?#6n$'s6?#,O+% 7%$7%(7,%, ?'%0%4%8%,7<%07%47%87,%<'a%>7%<7%<%<%>%>3Z&'\'@6$ % '\'K& 9?2'56?36% &o,?("#6x$ &6?|%9H=O?"ƀO?, "6k$()6?# C7%WEG?$8"J??}H*! D'!4! /!3'==" ''AAEEGG&C 9?(739?(9# O # $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$?/9 97? 7? ? %39?#z" 9 96 c? 9Y ' N '&  9 98\^8\?9 67:7;78787297.^^\?9 78V%7%V7WWZ&:2:8]" 9;X ;XX;9 '97HYHY?%2|I9]'/l&l77 #0m&jj7 Z&796dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM XހXxY &0201LOA/LIB/OBJ($MAPAEXB.6IFO.OI=@EXI.INI./SRC+SKI,ASG-FIL'MOD'IDO(IF=@KMO=@xDEF,WSTR-IEND-VCUR-NSGE.BAS.  !"S#$  $ UNDEFINED SYMBOLS MAP NAME S SIZE STR END COMN COMMON MODULE NAME BSCT DSCT PSCT ERROR ERR- UDS COVPHSIORLOVISAIOLSOV MDS ICMISYUAEGAEBAESTR OLEUBORELOVEUIFMDOS LINKING LOADER REV 2.01 COPYRIGHT BY MOTOROLA 1977IAM- UOI$z%>#%i>&%>#Lx }    *9 } ~ ˀz9& } ~!"oo o 9? } {H?/$ OƍZ&4%Z&L$$$$$ @CN o ==  @ &  @  y{}߁!O! $&!%%%%C%%"! }  5;Ȏ$z< 'X;' 'PC<D<E C&D&E& G<Gn w&%B~'</< ';' &; %E~' 6  6$7% H %>#3$&?#9?#~=E&?$~'U&6$~'F&&~'N&"<R&&~'&~'N&'~'F'~'v'~'_./-A&. R& /}%'%`~'X&͗-$)<=&,'~=~' &K_KD*+E7! ' @! -'~)Y%&\&[',QR%" %%$%%\[%"% %#%%' &%&% $%H~'%%%%78&ƀ%8%XI$|%]'$|%Ƿ%%%%%/&1'%ǻ%%% %TDD%$|%Ƿ%  &L# < $L$O2}/'R }-'X$%%ȅ '\&l@$&}-&C6788 %{$z7&7)87? ~'.2#' > O#L, -&3%O@Z&778}/& %%ˀ%%җ787% }H%1&~+-'~JO%ڷ%ن` }I#%ߖYZ# nmxwBA }CO?C%%ZY%%C I#%S`&#CO֩I%%%%%ABC K%I}%&?I@ [AHA }C%AC`I#%MC ۤ%% %%%%%%%IK AHA ?%&~J.~IޣH/#//=/I/S/D//P// I/Kޣߡߟ -'0qI_?AB;*QeSgUiWkYm$$$$O%%C ~'~H'~'v<='~'!!"!?%~'P&۽<=&޽>FA'!!"!$:& <M&<_]&,&! ';!6&z$&~'~:'~' ' ' ' ;'< ~'  {&~5>F=&Ӷ@'$7 H>F-  H$0'7~='?A@'$$ H%2~= &? A'$$A ?  &H ~'?,&-<A%*'&%&?<S&<C& <T&9F\&,}?&h>FA'`$$GHIH$$~'~ >A'<$$} '}?& FFRQH}?&i'%&$~Fا~'~~'v~'A'M&\*+E7~'N& & '%f~'#~'F&#~'T&~&uU&<G&'<%=&6>FA'$ )$ H%~'&}/&@&& }.' ?$%M&]'?/$%H~'%?/$?%%< @ ' @ @}'' ?~dT&'~.D~'vN&3A~($E&<=&>F$A&~'?$?%4~'~67/"611111077444/>/G/J'S/U/TˀXI$|& $zƀm$|/&S/ 232/9D' ~'v! !<$%@A=' :&< (~'</& <O&J` #9  '%% {&%+~'$7 Hg9$8 ghא k9$8 klה  m9$8 mnז p0'H ޟG";!3'~0! ! !'! ? {&~5o'~6۽7͖?&o! !  V0''ޟ?%"ߥ֠  נ /ߧ 7ef  O'BA$ %4'CO_ef~7~70'! 7 H9! 7O ?'ֽH% &I0'Ɇ@  i '$  !'+''&" 0& '?'  g\"0&   3@ #3ܖ?$ '=%" ֦ O֐ ֨  ! 7 o o H9! H ~67! ! AB 9?HPO9 7%z>+z=*=! 9i%i%I K@ i% @G&(}/'|9DG&7%%֨7?I II/&9\:f! t%&(%%ֆ%ؼ%&7%L%%%%`~'3Z&9 '$&$9!@0'& '&@?' ! !'_LKH6 !}?'IAB}-&~I@#1K'LK%L _LLK;* #DEHABH^EABM_DBBAAzD+GIMM}?&IGH MCH !~<7I@M9!7!!7!!! /#!!ƀ &<>)!> \O!!!! !+!!M' '~>/ 9 9 @! 9 $DK ?N! 9 =9 ~= $&&~=-'~=t}%&~= $$ %%½J:OCJ?%7u$$9:9 HOCJ: %% /'` %%Ч %%ĽJ:%O%&%?AH% 67?@J:32?%'?Z&A چ9#O?%A;* @$&$ 9+'~>/!!!!~> '" @ ,'O,! #;~'.&F9&? 9? ? & '?oo 9?9?9? ? ? ? 9? 9? 9? 9? 9? o~=6A@$$O}6&.'$] $$$$@$$J'}6&.'$'$0J}6'$ $' ս<_A%Z#90%9"\9O9&AA0$J<zJ'0%9"0K$$XILMXIXI%MLK$$ ʁ$&AO$$J<zJ+0%9"0 A%F"7K$$XIXIXIXIK$$ ?$7O @?9:9 H?$$ A=A=9RO$>@@& 9A":'C@&~'G:&>FA'$')$ '~@_$$H &N&C' DKH ?N9.&>&$ $>$ $<  9?@ G!!A }C ';0&,7 ??AHAzG& !C G!ACH ?'A!' !C?@$H^ $NO$$!$!C9A' B &~'v~'FB UAPCDSDAP$!$!CDOIC }? &C' J'~C9!AI|C ߦC' Z&&~Bp&~CL '?H I&RI$!$!C!!AEDG $ $7EHE$7EHEzG&߆ !CC AH^zD& !CD!A~BbI&5I$!$!C$!$! $ͽC!!A  C AH^A?D~BA!' !C9I&-$!$!C!!   I?7!H?OT!(H^? XW!-H^? ZY!2H^!C~Bb?7AHA?AE&PAA?9 &֬'DD>%<=z9D ?  & *&+E7? $$!$!C!!  A !/! }A ':&- !H^% A !$H^A !)H^CAH !3!A|! '[\ efpo!H^A &?' QR!$H^AQR\[!)H^ yz!$H^A愦!)H^Apo!.H^!E&P!CA &9~DQSUWYGH+' G w[Copfe&}1'Lפ۠&;}1'6?@%%I%%@?%%%OI%%%%//[\yz&'/?@愗AB&'Bzy%[%"\$~Fا[\ %&'=AB\[$ *~F?@C\&['G$~Fؖ?@QRHGGxH&+'|Q '~E[GHI@HA BC C45ABxI%7OD$$KLA9K8 C?@\&['G%HGG?@QRtH&+'QS&^T$& & %H~'%K %N O?QRQRfe &֤XWפ%%ZY%% } &9< '&J<X@ A?}<'  ?BA # @&?QRBA  H ۤ [@?$ &]'~FABGJxJ$BQRA":%B$4\[?%(&@%"& ED'EA'ABC 9 & } ')&  A"%B$ ?%&@$H C 9! XIXI87XI87%%787978DDDD09#09#z8'7 9 9 9${$}742Z&19${$}9 7  H 9 } 9 & 9 79&97Z& p' 9 H XF78XF879H '`&|&9 9%}@'7F_x7IY}0'%%GH%&s% G%'R $$ %%½J:GHGVTTO%ι%NMH'DZ M' GHJ? Oƀ$?G%$$FEF$F%KL%$ P%LOKL KL%%?'!EZ& I7EHE9IK' GGF~I{9~>~>  !"9<:'~'~'v>F/&A'$&$'K_$%'"%۷%ڽKD201 &%PJ%%|%%8%} & `Jޡߟ9%߼ '%ۦ%%%%`I#%9%c~'  {&~5 O %%%۽H 9<R& </& K_~KDO&~J`~'2'2 &%ݦ ۢע90'D0 &=֠Т% %ݡ "% # XI$\%%%%96'~4V#'5M~4 "0200 ADDRESS MUST BE GREATER THAN $ START LOADLOAD ADDRESS:INSUFFICIENT MEMORY USER MEMORY MAP NOT CONFIGURED DOES DRIVE 1 CONTAIN A MEMORY ROLLOUT? INVALID DISKETTE IN DRIVE 1   ,00! ׆0 LO *! *r* %շ Ʀ '~"E~" Ɓ;&~"S~"3 Ʀ '~"o  ~"S '~"y~"   '~"~"y '~"~" %ؽ%޶ M'~"ֶ U'~"~#D'~"~$ '~"~#c %ؽ%~# M&~"~# V'~"~#U'~"~# D'~#~# %ؽ%%ؽ%%ؽ%޽&&B M&~#:* %%޽))Ӷ ۄ &w2% '/%޽&' #~#'~# #& ~#*! .! *r!}*&>*%~#c'ķ '~#~#c N'~#~#cY&~#ݽ%޽)Ӷ ۄ &w%'/%*' #~$D'~$ #~$D*! 3! *r!}*&>*%~# * ¦ ħ Ħ ¡&~$i~$  ¼)&~$~$M%)%%޶ ہ1'~$%ؽ%޽&)%)% ȁY&~$%) % !)*W&~$)%%޶ Η &w Ռ'~%~%[ † )% )% ¼ &~%[~% ) Η% Ջ)'~%~%_)) ķ Ŷ))싀 o &~%~%%%?9? 9?9?9? 9? 9脽%9m%9i%90&~&!)%ؽ%9)% M'~&0)%ض &~&=~%9*9&]&S&]S'_  0}6299!u!v!y!x!{ )% '~&%ض '~&%ض '~&)%ض M&~&ݽ% )% !m!o!y!k!x!j)%!y!x!u!{9'~';~')%)_)) ķ Ŷ))싀  o &~'~'%9$  8 &]&   9'ֽ(9'ֽ((90 DRIVE 1 SCRATCH? START ADDRESS:END ADDRESS:INVALID ADDRESS RANGEARE YOU SURE (Y, N, Q)? RLLOUT T獗Z疦.$9 9, & 9: Ձ &9 : "% $ F9[ &  9 J ]' IyFYIVx]&ƀ  xvw9'Y'N'~d &Y'~d}& }&v t u脽S0Lw脽S~d'ֽ((('N'Y'~%9'ֽ(}& }&9 ! RLLOUT y F)' 8 !} , Z ]'/l&l*I*I #0m&jj*I Z&*I96dfJ&29!!!!&!Z&9!!!!!Z&9$&8' '0208A1'A2'AL'AR'AS(2BH(BBL(mCM(CN(D1)D2)EM(EX(F1(F2(FL(wFR)8HL(rIS)SKY)LJ)hLM'LP)pLT)NE*(NL*2NP*  !PCN0 SA !PLP0 SACOURTESY OF SCRIBE TEXT PROCESSOR 00.00 ** COMMAND ERROR --!!--INVALID NUMBER OF C' OPIESCANNOT USE MULTIPLE COPIES AND SECOND FILE SPECIFICATION&+ $N $Q$8? -.%,%'% /1? $8'*2ފ"'Խ'*}E&3 zE&3~*Dwh"yj h?"o).) l:-0 Z&9 %$9% !Q9Ƅ?9 @'9S "o "'&(2"o') 9) ~+!9% &K $G 9 (%&:!$ 4#%&+"$' " %&#$ \,'9$M'\_ ~+Ɇ88 88 9'!Q.1%+&1t  '..|9!& 92 A B\,%& M' l$\O9\2&~+Ɇ 988ϔ88 9ވ? ވ)O9 8888 9 9"o "\ވ o߂\?? ?(j߄lhh ??]&ވ\KD /% )9X%? ފ"'+ 9ކ"o'"& '&߈)_9~+ɽ,% & M'K$CO9~+Ɇ͔88 9#ߊ}D& |D612J&9"ߊ "߈9"o "'&A߈'߆&]'67&]' ?&ߤ32 22_? ~+# "\,%!& G$H?(\"'"$ #% 9~+ɽ/1T09/1Y09 9?"o" ""ލ#??9!ܽ-v% &88 9~+Ɇ88 9/-' 9,%'1t$ +C#+n9~+!-v%&88 9~+ɖ3'+32' ,% &3#3'+ 9, ~+"o "'&?&9_? ~+Ɇݔ8888 9,%)&.M'+l$'6*23}3'Z'3%3' 71z33Z& 9, ~+ɽ,%&M'$ /}0 9~+ɽ,%&M'$ ?(,&09~+ɆGHO? 9,%&M'$G" H?(|G 9~+ɽ,%&G$ H?(+n9~+f'$h'$i*2*2ފ"'$U? $Uh&jh?j$*2*2 92r8'!h!jh?&88239<=&h!j2|=hh ' z='=|"/ "޽/ #/ DeEF0lSAu߂"y߄h?]&Zwjh ?"o/)"߄?]&"/ނ ');&?% 6?%2/Y62E' "' )9$m? ?$E ))+~8'C #F" !F /-!0?1!!0?'623AB1$ƄO?%CƄ?9?%?%9_? 9%' &$*(&#?$"?*!?( ?&,9H`HH`9}3&, 23&-$c1z396694 49 46'o4 9> |>2'D}:'?}>&t:'51&:?:?'j!?$'& ?.ihh  'h2h?9-,$?/"./$U' J'/8& ,&& 'ӄ,, 8&!1% &,&'& & ,&1p 1m 92}:',1}<&~0:L<*F$A&~'?$?%4~'~67/"611111077444/>/G/J'S/U/TˀXI$|& Xy&=&3&}' ~~' ύԽ9ƥ&}&ȍԽ9}' RAM MEMORY PRESENT IN THIS SYSTEM: START - END (IN HEX)   - A }C%AC`I#%MC ۤ%% %%%%%%%IK AHA ?%&~J.~IޣH/#//=/I/S/D/ywOPERATINGINSTRUCTIONSFOR"EDITM"REVISION2.9A ENVOKINGTHEEDITOR---ENTER"EDITM"(RETURN)ONTHECONSOLE THISEDITORISKEYORIENTEDANDEXPECTSALLINPUTFILESTOHAVE FOURDIGITASCIIRECORDKEYSFOLLOWEDBYABLANKATTHESTART OFEACHRECORD.ITUSESTHEFIRSTBYTEOFTHEALLRECORDSTOCHECK FORTHEEXISTANCEOFTHEKEYS(THISBYTEISANACSII0-9INKEYED FILES)IFTHEINPUTFILEDOESNOTHAVEKEYSANADDITIONAL FIVEBYTESARERESERVEDINEACHINPUTRECORDSOTHATTHEKEYS MAYBEADDEDUSINGTHERESEQUENCECOMMAND. THEEDITCOMMANDSMAYBEEITHERUPPERORLOWERCASEBUTALL FILENAMESSHOULDBEUPPERCASEFOR"MDOS"COMPATIBILITY. ALLEDITORCOMMANDSMAYBECONTAINEDINACHAINFILEIFTHEUSER SHOULDSODESIRE. THEREARETWOLEVELSOFEDITFEATURESAVAILABLE.ABASICSET,WHICH THEUSERMAYMASTERINARELATIVELYSHORTPERIOD,ANDANADVANCEDSET. THEADVANCEDSETGIVESTHEUSERMUCHGREATERFLEXIBILITYINEDITING, ANDMAYBEMASTEREDASNEEDED. THEBASICCOMMANDSETINCLUDESTHEBUILD,LOAD,LIST,SAVEANDEND COMMANDSALONGWITHTHEELEMENTARYEDITFEATURE.ADESCRIPTIONOF THESECOMMANDSFOLL) OWS. NOTE:INTHEFOLLOWINGEXAMPLESTHEINDICATESTHATTHERETURN KEYWASUSED. BUILD--TOCREATEANEWFILEINTHEFILEUSETHE"BUILD"COMMAND. SYNTAX:BUILDFFFF BUILDFFFF.SS BUILDFFFF.SS:L ALIAS:BLD,NEW WHERE:FFFFISTHEFILEBEINGCREATED(8CHARACTERMAX) SSISTHESUFFIX(DEFAULT=.SA) LISTHELOGICALDRIVENO.(DEFAULT=0) NOTE:THESYSTEMWILLPROMPTTHEUSERWITHRECORDNUMBERS AFTERWITCHDATAFORTHERECORDMAYBEENTERED. NOTE:ASHOULDBEPLACEDATTHEENDOFEACHRECORD TOINFORMTHESYSTEMTHATTHERECORDHASBEENCOMPLETED. NOTE:TOLEAVETHEBUILDMODEASHOULDBEENTERED IMMEDIATELYFOLLOWINGTHEPROMPT. EXAMPLE:?BUILDTEST TEST.SA:0CREATED 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) 0040STOP 0050END 0060 ? LOAD--TOLOADANEXISTINGFILEINTOMEMORYUSETHE"LOAD"COMMAND. SYNTAX:LOADFFFF LOADFFFF.SS LOADFFFF.SS:L LOADFFFF.SS:LNLN ALIAS:OLD,LD WHERE:FFFFISTHEFILENAME(8CHARACTERMAX) SSISTHEFILESUFFIX(DEFAULT=.SA) LISTHELOGICALDRIVENO.(DEFAULT=0) NOTE:IFNLNFOLLOWSTHEFILENAMETHENTHEFILEISASSUMED NOTTOHAVERECORDKEYS NOTE:IFSPECIFIED,THESUFFIX&LOGICALDRIVEBECOMENEW DEFAULTVALUESFORTHESEPARAMETERS EXAMPLE:?LOADTEST READY ? LIST--USE"LIST"TODISPLAYONEORMORERECORDSATTHECONSOLE. SYNTAX:LIST LISTNN LISTNN-MM ALIAS:L DEFAULT:ENTIREFILEORBLOCK WHERE:NNISTHEFIRSTRECORDNO. MMISTHELASTRECORDNO. NOTE:L9999WILLDISPLAYTHECURRENTFILENAME,THELAST RECORDKEYINTHEFILEANDTHEREMAININGMEMORY. EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ? SAVE----USE"SAVE"TOWRITETHECURRENTFILEBACKTOTHEDISK. SYNTAX:SAVE SAVEFFFF SAVEFFFF.SS SAVEFFFF.SS:L ALIAS:SAV WHERE:FFFFISTHEFILENAME SSISTHEFILESUFFIX LISTHELOGICALDRIVENO. NOTE:IFAFILENAME,SUFFIXORDRIVEISNOTSPECIFIED THEDATAFROMTHELAST"LOAD"OR"BUILD"COMMAND ISUSEDAGAIN NOTE:THEDISKFILEISNOTMODIFIEDUNTILTHESAVE COMMANDISEXECUTED EXAMPLE:?SAVE READY ? ELEMENTARYEDITINGHASTHREEEDITINGMODES,INSERT,MODIFYANDDELETE. INSERT--TOADDARECORDTOTHEWORKSPACE SYNTAX:NNNN-----STRING-----(RETURN) WHERE:NNNNISAFOURDIGITRECORDKEY -----STRING------ISTHECONTENTOFTHENEWRECORD (RETURN)ISTHERETURNKEYATTHEENDOFTHERECORD NOTE:ABLANKSHOULDIMMEDIATELYFOLLOWTHERECORDKEY EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ?22D=TEST-1 ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ? MODIFY--TOCHANGEARECORDINTHEWORKSPACE SYNTAX:(SAMEASINSERTBUTUSESANEXISTINGRECORDKEY) EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ?22TEST=TEST-1 ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ? DELETE--TOREMOVEARECORDFROMTHEWORKSPACE SYNTAX:NNNN(RETURN) WHERE:NNNNISTHERECORDKEYOFTHERECORDTOBEREMOVED EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ?22 DELETED ?LIST10-30 0010TEST=A* +B 0020PRINT100,TEST 0030100FORMAT(I6) ? END---USE"END"TOLEAVETHEEDITOR. SYNTAX:END ALIAS:QUIT,Q NOTE:IFTHECURRENTWORKSPACEHASBEENMODIFIEDANDNOTSAVED THE"SAVE(Y/N)?"PROMPTWILLAPPEARASAREMINDEROFTHE CURRENTLYUNSAVEDSTATUS.A"Y"RESPONSEWILLCAUSETHE CURRENTWORKSPACETOBEWRITTENBACKTOTHELASTFILE SPECIFIED.A"N"RESPONSEWILLCAUSETHEFILETOBE LOST. EXAMPLE:?END = THEFOLLOWINGADVANCEDEDITINGCOMMANDSAREALSOAVAILABLETOTHEUSER, CHANGE,APPEND,FIND,PRINT,DELETE,MOVE,DUPLICATE,BLOCK,VERIFY,NUMBER, MERGEANDRESEQUENCE.ADESCRIPTIONOFEACHFOLLOWS. CHANGE--USE"CHANGE"TOCHANGEASTRINGWITHINONEORMORERECORDS. SYNTAX:CHANGE/XXX/YYY/ CHANGENN/XXX/YYY/ CHANGENN-MM/XXX/YYY/ CHANGENN-MM,KK/XXX/YYY/ ALIAS:C WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBECHECKED MMISTHELASTRECORDTOBECHECKED KKISTHEOCCURRANCEOFTHESTRINGINEACHRECORD XXXISTHESTRINGTOBECHANGED YYYISTHESTRINGTOBESUBSTITUTED NOTE:IFNN-MMORNNISOMITTEDTHEENTIREWORKSPACE ORBLOCKISSEARCHEDANDMODIFIED NOTE:THEOCCURRANCEFEILDDEFAULTSTOTHEFIRSTOCCURRANCE OFTHESTRINGINEACHRECORD NOTE:IF"A"ISUSEDINTHEOCCURRANCEFIELDALLOCCURRANCES OFTHEXXXSTRINGAREREPLACEDBYTHEYYYSTRING NOTE:THEUNDERLINEISUSEDASANIGNORECHARACTERAND IFPRESENTINTHEXXXSTRINGTHECHARACTERPOSITIONS CORRESPONDINGTOTHOSEWHEREAUNDERLINEISPLACEDWILL BEIGNOREDWHENSEARCHINGFORAMATCH.IFTHEUNDERLINE ISUSEDINTHEYYYSTRINGTHEOLDCHARACTERSWILL BEKEPTASPARTOFTHENEWSTRING NOTE:THEIGNORECHARACTERMAYBECHANGEDBYUSINGTHEFOLLOWING COMMANDSEQUENCE C0XY WHERE:XISTHEOLDIGNORECHARACTER YISTHENEWIGNORECHARACTER EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?CHANGE10-30/TEST/NEW/ 0010NEW=A+B 0020PRINT100,NEW 0022NEW=TEST-1 ? APPEND--USE"APPEND"TOADDTOTHEENDOFONEORMORERECORDS. SYNTAX:APPEND/XXX/ APPENDNN/XXX/ APPENDNN-MM/XXX/ ALIAS:APP WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBEADDEDTO MMISTHELASTRECORDTOBEADDEDTO XXXISTHESTRINGTOBEADDED NOTE:IFNNORNN-MMISOMITTEDTHEENTIREWORKSPACEOR BLOCKISSEARCHED EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?APPEND10-20/;COMMENTS/ 0010TEST=A+B;COMMENTS 0020PRINT100,TEST;COMMENTS ? FIND--USE"FIND"TOSEARCHTHEFILEFORASTRINGOFDATA. SYNTAX:FIND/XXX/ FINDNN/XXX/ FINDNN-MM/XXX/ FINDNN-MM,KK/XXX/ ALIAS:F WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBESEARCHED MMISTHELASTRECORDTOBESEARCHED KKISTHEOCCURRANCEOFTHESTRINGINEACHRECORD XXXISTHESTRINGTOBEFOUND NOTE:IFKKISOMITTEDALLRECORDSWHICHCONTAINTHESTRINGARE FOUNDBUTIFKKISSPECIFIEDTHENONLYTHOSERECORDS WHICHCONTAINTHEKKOCCURANCEAREFOUND NOTE:IFNNORNN-MMISSPECIFIEDANDTHEEDITORISINBLOCK MODETHENNNORNN-MMWILLREDEFINETHEBLOCKRANGE NOTE:IFNNORNN-MMISOMITTEDTHEENTIREWORKSPACEOR BLOCKISSEARCHED NOTE:THEUNDERLINEISUSEDASANIGNO+ RECHARACTERAND IFPRESENTINTHEXXXSTRINGTHECHARACTERPOSITIONS CORRESPONDINGTOTHOSEWHEREAUNDERLINEISPLACEDWILL BEIGNOREDWHENSEARCHINGFORAMATCH. EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?FIND/TEST/ 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 ? PRINT--USE"PRINT"TODISPLAYONEORMORERECORDSONTHEPRINTERAND ROUTEALLFURTHEROUTPUTTOTHEPRINTER. SYNTAX:PRINT PRINTNN PRINTNN-MM ALIAS:P DEFAULT:ENTIREFILEORBLOCK WHERE:NNISTHEFIRSTRECORDNO. MMISTHELASTRECORDNO. NOTE:P9999WILLDISPLAYTHECURRENTFILENAME,THELAST RECORDKEYINTHEFILEANDTHEREMAININGMEMORY. EXAMPLE:?PRINT10-30 NOTE:ALLFURTHEROUTPUTISDIRECTEDTOTHEPRINTERUNTILA LISTCOMMANDISEXECUTEDTOREDIRECTOUTPUTTOTHECONSOLE. NOTE:USE"L0"TOPAGEUPTHEPRINTERANDRETURNTOTHECONSOLE RESEQUENCE--USE"RESEQUENCE"TOUPDATETHERECORDKEYS. SYNTAX:RESEQUENCE RESEQUENCEMM RESEQUENCEMM,NN RESEQUENCENLN(THISWILLREMOVEALLRECORDKEYS) ALIAS:RSQ WHERE:MMISTHENEWSTARTINGKEY NNISTHENEWINCREMENT DEFAULT:MM=10,NN=10 NOTE:WHENRECORDKEYSAREBEINGREMOVEDTHEASSUMPTION ISMADETHATABLANKFOLLOWSTHERECORDKEYAND, THISBLANKISALSOREMOVED NOTE:WHENINBLOCKMODE,THEBLOCKRANGEISUPDATEDTO REFLECTTHENEWRECORDKEYS EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?RESEQUENCE100,1 READY ?LIST 0100TEST=A+B 0101PRINT100,TEST 0102TEST=TEST-1 0103100FORMAT(I6) 0104STOP 0105END ? MOVE--USE"MOVE"TORELOCATEONEORMORERECORDSELSWHEREINTHE FILE. SYNTAX:MOVENN,MM MOVENN-MM,LL MOVENN-MM,LL,KK ALIAS:M WHERE:NNISTHEKEYOFTHEFIRSTRECORDTOBEMOVED MMISTHEKEYOFTHELASTRECORDTOBEMOVED LLISTHENEWKEYLOCATIONOFTHEFIRSTRECORD KKISTHEKEYINCREMENT(DEFAULT=1) NOTE:IFTHELLKEYALREADYEXISTSTHEMOVED RECORDWILLBEPLACEDBEFOREIT NOTE:THEMOVECOMMANDMAYBEUSEDTORESEQUENCE ABLOCKOFRECORDSBYMAKINGNNANDLLEQUAL NOTE:UNLESSLLISEQUALTONNRECORDSCANNOTBEMOVED INTOTHENN-MMRANGEORRECORDSEQUENCEERRORSWILL RESULT NOTE:DUPLICATERECORDKEYSMAYBEREMOVEDBYUSINGTHEMOVE COMMANDTORESEQUENCETHEDUPLICATEBLOCK EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0040STOP 0050END ?MOVE20-22,32 0032PRINT100,TEST 0033TEST=TEST-1 ?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ? DELETE--USE"DELETE"TOREMOVEBLOCKSOFRECORDSFROMTHEFILE. SYNTAX:DELETENN DELETENN-MM ALIAS:DEL WHERE:NNISTHEFIRSTRECORDTOBEREMOVED MMISTHELASTRECORDTOBEREMOVED EXAMPLE:?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ?DELETE30-33 0003RECORDSDELETED ?LIST 0010TEST=A+B 0040STOP ? DUPLICATE---USE"DUPLICATE"TOCOPYRECORDSORBLOCKSOFRECORDS ELSEWHEREINTHEFILE. SYNTAX:DUPLICATENN,MM DUPLICATENN-MM,LL DUPLICATENN-MM,LL,KK ALIAS:DUP WHERE:NNISTHEKEYOFTHEFIRSTRECORDTOBEDUPLICATED MMISTHEKEYOFTHELASTRECORDTOBEDUPLICATED L, LISTHENEWKEYLOCATIONOFTHEFIRSTRECORD KKISTHEKEYINCREMENT(DEFAULT=1) EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0040STOP ?DUPLICATE20-22,32 0032PRINT100,TEST 0033TEST=TEST-1 ?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ? BLOCK---USE"BLOCK"TOCHANGETHEEDITMODEFROMWHOLEFILETOA BLOCKOFRECORDSORRETURNTOTHEWHOLEFILEMODE. SYNTAX:BLOCK BLOCKOFF ALIAS:B WHERE:IN,IORNOOPERATORARETHEINEFFECTOPERATORS OFF,OUT,OARETHEOUTOFEFFECTOPERATORS NOTE:WHENINTHEBLOCKMODETHERANGEOFRECORDSBEING OPERATEDONBYTHELIST,PRINT,APPEND,FIND&CHANGECOMMANDS DEFAULTSTOTHELASTRANGESPECIFIEDBYLISTORFIND NOTE:THEBLOCKMODEISNOTAPPLICABLEWITHUNKEYEDRECORDS EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ?BLOCK ?FIND20-32 ?LIST 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST ?  VERIFY---THE"VERIFY"COMMANDMAYBEUSEDTOTURNONOROFF THEVERIFICATIONPRINTOUTAFTERASUCCESSFUL CHANGE,APPEND,MOVE,MERGEORDUPLICATECOMMANDEXECUTION. SYNTAX:VERIFY VERIFYOFF VERIFYIN VERIFYOUT ALIAS:V WHERE:IN,IORNOOPERATORENVOKETHEVERIFY(DEFAULT) OFF,OUT,ODISABLETHEVERIFY EXAMPLE:?VERIFYOFF ?CHANGE10-50/TEST/QRTZ/ ?VERIFY ? NUMBER--USE"NUMBER"TOBEPROMPTEDWITHRECORDKEYSFORNEWRECORDS ORTOREPLACEEXISTINGRECORDS. SYNTAX:NUMBER NUMBERMM,NN ALIAS:N WHERE:MMISTHESTARTINGKEYNUMBER NNISTHEINCREMENT DEFAULT:MM=10,NN=10 NOTE:ABLANKISAUTOMATICLYINSERTEDAFTERTHERECORDKEY. NOTE:TOEXITTHEAUTOMATICNUMBERMODEENTERAAFTER THENEXTNEWRECORDKEYISDISPLAYED. EXAMPLE:?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ?NUMBER34,1 0034IF(TEST.GT.A)GOTO200 0035TEST=A 0036200A=0 0037 ?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0034IF(TEST.GT.A)GOTO200 0035TEST=A 0036200A=0 0040STOP 0050END ? MERGE--USE"MERGE"TOGETRECORDSFROMANOTHERFILEANDADDTHEM TOTHECURRENTFILEBEINGEDITED. SYNTAX:MERGEXXXX(NN-MM),LL MERGEXXXX.SS(NN-MM),LL MERGEXXXX.SS:L(NN-MM),LL ALIAS:MRG WHERE:XXXX--DISKFILETOBESEARCHED SS--DISKFILESUFFIX(DEFAULT=CURRENTFILESUFFIX) L--DISKDRIVE(DEFAULT=CURRENTFILEDRIVE) NN--RECORDKEYOFTHEFIRSTLINETOBECOPIED MM--RECORDKEYOFTHELASTLINETOBECOPIED (MAYBEOMITTEDIFONLYONERECORDISCOPIED) LL--RECORDKEYINTHEWORKSPACEAFTERWHICHTHE COPIEDRECORDSWILLBEINSERTED NOTE:SHOULDTHE"RESEQUENCENEEDED"MESSAGEAPPEARAFTERTHE RESEQUENCEORMOVECOMMANDSHOULDBEUSEDTOADJUSTTHE RECORDKEYSBEFOREANYFURTHEREDITINGISATTEMPTED. NOTE:THELLKEYNEEDNOTBEPRESENTINTHEWORKSPACE ANDIFNOTITWILLBECREATED. EXAMPLE:?LIST 0010TEST=A+B 0020100FORMAT(I6) 0030PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ?MERGEOLDTST(100-140),11 0011IF(B.EQ.0)A=-1 0012B=B-25 0013PRINT50- ,B 001450FORMAT(I4) 0015B=0 READY ?LIST 0010TEST=A+B 0011IF(B.EQ.0)A=-1 0012B=B-25 0013PRINT50,B 001450FORMAT(I4) 0015B=0 0020100FORMAT(I6) 0030PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ? THEFOLLOWINGKEYBOARDFUNCTIONSAREALSOAVAILABLE ASAIDSTOTHEUSER. DEL-----DISPLAYSTHECHARACTERTOBEREMOVEDANDDELETESTHE LASTCHARACTEROFTHEINPUTSTREAM CNTL+X--GIVESACARRAGERETURNATTHEPRINTERANDDELETES THECURRENTINPUTLINE CNTL+D--DISPLAYSTHECURRENTLINEOFINPUTBACKTOTHEDISPLAY FORVERIFICATION CNTL+W--STOPSTHEDISPLAYUNTILANOTHERCHARACTERISENTERED RETURN--TERMINATESINPUTANDSIGNALSTHESYSTEMTOPROCESSTHE CURRENTINPUTBUFFER BREAK---TERMINATESTHECURRENTOUTPUTANDRETURNSCONTROL TOTHEREADYLEVEL u'uPAGE * *MDOSVERSION02.20--SYSTEMEQUATEFILE--FEB.24,1978 * SPC3 * *DEFINEMULTI-SECTOR/SINGLESECTORI/O--RESIDENTMDOSONLY * MULTSEQU0.0=>SINGLESECTOR,1=>MULTIPLESECTOR * *DEFINETYPEOFMDOS--RESIDENTMDOSONLY * MDOSF$EQU0.0=>MDOS,1=>OEMMDOS SPC3 * *SKIP2MACRO * *THEGENERATEDBYTEISA"COMPAREINDEXIMMEDIATE". *THEEXECUTIONOFTHEBYTEWILLCHANGETHECONDITIONCODESONLY. *NOREGISTERSAREAFFECTED.THUS,AONEBYTEINSTRUCTION *ISFORMEDTHATSKIPSFORWARDTWOBYTES. * SKIP2MACR FCB$8C. ENDM * *SKIP1MACRO * *THESAMECONCEPTASTHE"SKIP2"MACROISUSED,EXCEPTTHAT *A"BITTESTACCUMULATORAIMMEDIATE"OPCODEISGENERATED. * SKIP1MACR FCB$85 ENDM * *SCALLMACRO(SYSTEMFUNCTIONCALL) * SCALLMACR IFEQNARG-1 SWI FCB\0!.%01111111 ENDC * IFNENARG-1 FAIL*UNDEFINEDSWICALLARGUMENT* ENDC ENDM * *UCALLMACRO(USERFUNCTIONCALL) * UCALLMACR IFEQNARG-1 SWI FCB\0!+%10000000 ENDC * IFNENARG-1 SCALL ENDC ENDM * *SEQMACRO(NUMBERINGSEQUENTIALEQUATES) * SEQMACR IFNENARG \0EQU*. ENDC ORG*+1. ENDM PAGE * *SYSTEMFUNCTIONDEFINITIONS * * *SETLOCATIONCOUNTTO0FORTHEEQUATEDEFINITIONS * .$SAVSET*.SAVEOLDLOCATIONCOUNT ORG$0. * * * SEQ.RESRV.RESERVEADEVICE SEQ.RELES.RELEASEADEVICE SEQ.OPEN.OPENAFILE SEQ.CLOSE.CLOSEAFILE SEQ.GETRC.READARECORD SEQ.PUTRC.WRITEARECORD SEQ.REWND.POSITIONTOBEGINNINGOFFILE SEQ.GETLS.READLOGICALSECTOR SEQ.PUTLS.WRITELOGICALSECTOR SEQ.KEYIN.CONSOLEINPUT SEQ.DSPLY.CONSOLEOUTPUT(TERMW/CR) SEQ.DSPLX.CONSOLEOUTPUT(TERMW/EOT) SEQ.DSPLZ.CONSOLEOUTPUT(TERMW/EOT,NOCR/LFATEND) SEQ.CKBRK.CHECKCONSOLEFORBREAKKEY SEQ.DREAD.EROMDISKREAD SEQ.DWRIT.EROMDISKWRITE SEQ.MOVE.MOVEASTRING SEQ.CMPAR.. COMPARESTRINGS SEQ.STCHB.STOREBLANKS SEQ.STCHR.STORECHARACTERS SEQ.ALPHA.CHECKALPHABETICCHARACTER SEQ.NUMD.CHECKDECIMALDIGIT SEQ.ADDAM.INCREMENTMEMORY(DOUBLEBYTE)BYA SEQ.SUBAM.DECREMENTMEMORY(DOUBLEBYTE)BYA SEQ.MMA.MULTIPLY(SHIFTLEFT)MEMORYBYA(COUNT) SEQ.DMA.DIVIDE(SHIFTRIGHT)MEMORYBYA(COUNT) SEQ.MDENT.ENTERMDOSWITHOUTRELOADING SEQ.LOAD.LOADAFILEFROMDISK SEQ.DIRSM.DIRECTORYSEARCHANDMODIFY SEQ.PFNAM.PROCESSFILENAME SEQ.ALUSM.ALLOCATEUSERMEMORY SEQ.CHANG.CHANGENAME/ATTRIBUTES SEQ.MDERR.MDOSERRORMESSAGEHANDLER SEQ.ALLOC.ALLOCATEDISKSPACE SEQ.DEALC.RETURNDISKSPACE SEQ.EWORD.SETERRORSTATUSWORDFORCHAIN SEQ.TXBA.TRANSFERXTOB,A SEQ.TBAX.TRANSFERB,ATOX SEQ.XBAX.EXCHANGEB,AANDX SEQ.ADBX.ADDBTOX SEQ.ADAX.ADDATOX SEQ.ADBAX.ADDB,ATOX SEQ.ADXBA.ADDXTOB,A SEQ.SUBX.SUBTRACTBFROMX SEQ.SUAX.SUBTRACTAFROMX SEQ.SUBAX.SUBTRACTB,AFROMX SEQ.SUXBA.SUBTRACTXFROMB,A SEQ.CPBAX.COMPAREB,ATOX SEQ.ASRX.SHIFTXRIGHT(ARITHMETIC) SEQ.ASLX.SHIFTXLEFT(ARITHMETIC/LOGICAL) SEQ.PSHX.PUSHXONSTACK SEQ.PULX.PULLXFROMSTACK SEQ.PRINT.PRINT-TERMINATEWITHCR SEQ.PRINX.PRINT-TERMINATEWITHEOT SEQ.GETFD.READFDR(RESIDENTMDOSONLY) SEQ.PUTFD.WRITEFDR(RESIDENTMDOSONLY) SEQ.PUTEF.WRITEEOF(RESIDENTMDOSONLY) SEQ.EREAD.DISKREADW/ERRRETN SEQ.EWRIT.DISKWRITEW/ERRRETN IFNEMULTS SEQ.MREAD.MULTIPLESECTORREAD SEQ.MWRIT.MULTIPLESECTORWRITE SEQ.MERED.MULTIPLESECTORREADW/ERRRETURN SEQ.MEWRT.MULTIPLESECTORWRITEW/ERRRETURN ENDC IFEQMULTS SEQ SEQ SEQ SEQ ENDC SEQ.BOOT.RELOADMDOS * ORG.$SAV.RESTORELOCATIONCOUNTER PAGE * *ASCIICONTROLCHARACATERS * NULLEQU0.NULL SOHEQU1.STARTOFHEADING STXEQU2.STARTOFTEXT ETXEQU3.ENDOFTEXT EOTEQU4.ENDOFTRANSMISSION ENQEQU5.ENQUIRY(WRU-WHOAREYOU) ACKEQU6.ACKNOWLEDGE BELEQU7.BELL BSEQU8.BACKSPACE HTEQU9.HORIZONTALTAB LFEQU$A.LINEFEED VTEQU$B.VERTICALTAB FFEQU$C.FORMFEED CREQU$D.CARRIAGERETURN SOEQU$E.SHIFTOUT SIEQU$F.SHIFTIN DLEEQU$10.DATALINKESCAPE DC1EQU$11.DEVICECONTROL1 DC2EQU$12.DEVICECONTROL2 DC3EQU$13.DEVICECONTROL4 DC4EQU$14.DEVICECONTROL4 NAKEQU$15.NEGATIVEACKNOWLEDGE SYNEQU$16.SYNCHRONOUSIDLE ETBEQU$17.ENDOFTRANSMISSIONBLOCK CANEQU$18.CANCEL EMEQU$19.ENDOFMEDIUM SUBEQU$1A.SUBSTITUTE ESCEQU$1B.ESCAPE FSEQU$1C.FILESEPARATOR GSEQU$1D.GROUPSEPARATOR RSEQU$1E.RECORDSEPARATOR USEQU$1F.UNITSEPARATOR SPACEEQU$20.SPACE(WORDSEPARATOR) RUBOUTEQU$7F.DELETE(RUBOUT) * *SPECIALCHARACTEREQUATES * SUFDLMEQU'..SUFFIXDELIMETER OPTDLMEQU';.OPTIONSDELIMETER DRVDLMEQU':.LOGICALDRIVERDELIMETER DEVDLMEQU'#.GENERICDEVICENAMEDELIMETER FAMDLMEQU'*.FAMILYNAME/SUFFIXDELIMETER E$FATLEQU1!<7.FATALERRORBIT PAGE * *MDOSSECTOREQUATES * SC$DIDEQU0.DISKIDPHYSICALSECTORNUMBER SC$CATEQU1.CLUSTERALLOCATIONTABLEPHSYICALSECTORNUMBER SC$LOKEQU2.LOCKOUTCLUSTERTABLEPHYSICALSECTORNUMBER SC$DIREQU3.DI/ RECTORYSTARTPHYSICALSECTORNUMBER SC$DREEQU$16.DIRECTORYENDPHYSICALSECTORNUMBER SC$BBEQU$17.BOOTBLOCKPHYSICALSECTORNUMBER SC$DOSEQU$18.OPERATINGSYSTEMPHSYICALSECTORNUMBER(RIBADDRESS) SC$SIZEQU128.SECTORSIZEINBYTES SC$TRKEQU26.NUMBEROFSECTORS/TRACK SC$CLSEQU4.NUMBEROFSECTORS/CLUSTER SC$MAXEQU2000.MAXIMUMNO.OFUSABLESECTORS DFCLS$EQU32.DEFAULTNO.OFCLUSTERS * *DISKIDSECTOROFFSETS * DID$IDEQU0.OFFSETTODISKID(8BYTES) DID$VNEQU8.OFFSETTOVERSIONNUMBER(2BYTES) DID$RNEQU10.OFFSETTOREVISIONNUMBER(2BYTES) DID$DTEQU12.OFFSETTODATE(6BYTES) DID$NMEQU18.OFFSETTOUSERNAME(20BYTES) DID$RBEQU38.OFFSETTORIBADDRS.(20BYTES) * *DIRECTORYENTRYOFFSETS * DIR$NMEQU0.OFFSETTONAME(8BYTES) DIR$SXEQU8.OFFSETTOSUFFIX(2BYTES) DIR$RBEQU10.OFFSETTORIBADDRESS(2BYTES) DIR$ATEQU12.OFFSETOFATTRIBUTES(2BYTES) DIR$NUEQU14.OFFSETTONOTUSEDAREA(2BYTES) * *R.I.B.BINARYFILEOFFSETS * RIB$LBEQU117.NUMBEROFBYTESINLASTSECTOR RIB$SLEQU118.NUMBEROFSECTORSTOLOAD RIB$LAEQU120.MEMORYLOADADDRESS RIB$SAEQU122.STARTEXECUTIONADDRESS PAGE * *UNIFIEDI/OCONTROLBLOCK * *OFFSETS * * IOCSTAEQU0.ERRORSTATUS IOCDTTEQU1.DATATRANSFERTYPE IOCDBPEQU2.DATABUFFERPOINTER IOCDBSEQU4.DATABUFFERSTARTADDRESS IOCDBEEQU6.DATABUFFERENDADDRESS IOCGDWEQU8.GENERICDEVICETYPE/CONTROLDESCRIPTORADDRESS IOCLUNEQU10.LOGICALUNITNUMBER IOCNAMEQU11.FILENAME IOCMLSEQU11.MAXIMUMREFERENCEDLOGICALSECTORNUMBER IOCSDWEQU13.CURRENTSEGMENTDESCRIPTORWORD IOCSLSEQU15.1STLOGICALSECTOROFCURRENTSEGMENT IOCLSNEQU17.CURRENTLOGICALSECTORNUMBER IOCSUFEQU19.FILENAMESUFFIX IOCEOFEQU19.LOGICALENDOFFILE IOCRIBEQU21.PHYSICALDISKADDRESSOFR.I.B. IOCFDFEQU23.FILEDESCRIPTORFLAGS IOCDENEQU27.DIRECTORYENTRYNUMBER IOCSBPEQU29.SECTORBUFFERPOINTER/INITIALALLOCATION IOCSBSEQU31.SECTORBUFFERSTARTADDRESS IOCSBEEQU33.SECTORBUFFERENDADDRESS IOCSBIEQU35.SECTORBUFFERINTERNALPTR IOCBLNEQUIOCSBI+2-IOCSTA.IOCBLENGTH * *UNIFIEDI/OERRORSTATUSES * .$SAVSET*.REMEMBERTHECURRENTLOCATIONCOUNTER ORG$0.RESETITTOZEROTOUSETHESEQMACRO * SEQI$NOER.NOERRORS,NORMALRETURN SEQI$NODV.NOSUCHDEVICE SEQI$RESV.DEVICERESERVEDALREADY SEQI$NORV.DEVICENOTRESERVED SEQI$NRDY.DEVICENOTREADY SEQI$IVDV.INVALIDDEVICE SEQI$DUPE.DUPLICATEFILENAME SEQI$NONM.FILENAMENOTFOUND SEQI$CLOS.FILENAMENOTOPEN/ORFILENOTCLOSED SEQI$EOF.ENDOFFILE SEQI$FTYP.INVALIDFILETYPE SEQI$DTYP.INVALIDDATATRANSFERTYPE SEQI$EOM.ENDOFMEDIA SEQI$BUFO.BUFFEROVERFLOW SEQI$CKSM.CHECKSUMERROR SEQI$WRIT.FILEISWRITEPROTECTED SEQI$DELT.FILEISDELETEPROTECTED SEQI$RANG.LOGICALSECTORNUMBEROUTOFRANGE SEQI$FSPC.NODISKFILESPACEAVAILABLE SEQI$DSPC.NODIRECTORYSPACEAVAILABLE SEQI$SSPC.NOSEGMENTDESCRIPTORSPACEAVAILABLE SEQI$IDEN.INVALIDDIR.ENTRYNO. SEQI$RIB.INVALIDRIB SEQI$DEAL.CAN'TDEALLOCATEALLSPACE SEQI$RECL.BINARYRECORDLENGTHTOOLRGE SEQI$SEC0 B.SECTORBUFFERSIZEERROR * ORG.$SAV.RESTORETHELOCATIONCOUNTER * PAGE * *MDOSINTERNALVARIABLE * *ANDLOCATIONEQUATES * MDOS$EQU$100.STARTOFMDOSASECT CBUFL$EQU80.COMMANDBUFFERLENGTH CBUFF$EQUMDOS$-CBUFL$-2.COMMANDBUFFERLOCATION CBUFP$EQUCBUFF$+CBUFL$.COMMANDBUFFERSCANPOINTER VERS$$EQUMDOS$.VERSION# REVS$$EQUVERS$$+2.REVISION# KYI$SVEQUREVS$$+2.SAVEAREAFORKEYIN$VECTOR ENDOS$EQUKYI$SV+2.ENDOFMDOS ENDUS$EQUENDOS$+2.ENDOFUSERPROGRAMAREA ENDSY$EQUENDUS$+2.ENDOFSYSTEM(MDOS)RAM RIBBA$EQUENDSY$+4.RIBBUFFERADDRESS ENDRV$EQURIBBA$+2.ENDOFMDOSROMVARIABLES GDBA$EQUENDRV$+2.GENERICDEVICETABLEADDRESS SYERR$EQUGDBA$+2.SYSTEMERRORSTATUSWORD SWI$SVEQUSYERR$+2.SWIVECTORSAVEAREA SWI$UVEQUSWI$SV+2.SWIUSERVECTOR IRQ$UVEQUSWI$UV+2.IRQUSERVECTOR IRQ$SVEQUIRQ$UV+2.IRQVECTORSAVEAREA CHFLG$EQUIRQ$SV+2.CHAINFUNCTIONFLAGWORD SYIOCBEQUCHFLG$+2.SYSTEMCONSOLEIOCB SYPOCBEQUSYIOCB+IOCBLN.SYSTEMPRINTERIOCB SYEOCBEQUSYPOCB+IOCBLN.ERRMSGFILE PAGE * *LOGICALUNITNUMBER--BITDEFINITION * LU$RESEQU%01000000.IOCBRESERVEDFLAG * *IOCDTT--BITDEFINITIONS * DT$OPPEQU%00000000.OPENUPDATE/INPUT DT$OPIEQU%00000001.OPENINPUTMODE DT$OPOEQU%00000010.OPENOUTPUTMODE DT$OPUEQU%00000011.OPENUPDATEMODE DT$NFFEQU%00000100.NON-FILEFORMATI/OFLAG DT$TRUEQU%00001000.TRUNCATEFLAG DT$CLSEQU%00010000.FILEOPEN/CLOSEFLAG DT$SIOEQU%00100000.SECTORI/OFLAG DT$OUTEQU%01000000.OUTPUTTRANSFERTYPE DT$INPEQU%10000000.INPUTTRANSFERTYPE * *IOCFDF--BITDEFINITIONS * FD$FMUEQU%00000000.USERDEFINEDFORMAT(SECTORI/OONLY) FD$FMDEQU%00000001.DEFAULTOBJECTREC'DFORMAT(DEVICEDEPENDENT) FD$FMLEQU%00000010.BINARYLOADFORMAT--ABSOLUTEMEMORYIMAGE FD$FMBEQU%00000011.BINARYRECORDFORMAT--RASMOUTPUT,RLOADINPUT FD$FMREQU%00000100.BINARYLOADFORMAT--RELOCATABLEMEMORYIMAGE FD$FMAEQU%00000101.ASCIIRECORDFORMAT--INCLUDESEXORCISORLOADF FD$FMCEQU%00000111.ASCI-CONVERTED-BINARYRECORDFORMAT FD$CMPEQU%00001000.SPACECOMPRESSIONFLAG FD$CONEQU%00010000.CONTIGUOUSALLOCATIONFLAG FD$SYSEQU%00100000.SYSTEMFILEATTRIBUTE FD$DELEQU%01000000.DELETEPROTECTIONATTRIBUTE FD$WRTEQU%10000000.WRITEPROTECTIONATTRIBUTE * *UNIFIEDI/OCONTROLDESCRIPTOR * *BLOCKOFFSETS * CDBIOCEQU0.ADDRESSOFIOCB CDBSDAEQU2.SOFTWAREDRIVERADDRESS CDBHADEQU4.HARDWAREADDRESS CDBDDFEQU6.DEVICEDESCRIPTORFLAGS CDBVDTEQU7.VALIDDATATYPE CDBDDAEQU8.DEVICEDEPENDENTAREA CDBWSTEQU10.WORKINGSTORAGE * *CDBDDF--BITDEFINITIONS * DD$FMCEQU%00000001.ASCII-CONVERTED-BINARYISDEFAULTOBJECTRECORD DD$LOGEQU%00000010.LOGICALSECTORI/OFLAG DD$CNSEQU%00000100.CONSOLEFLAG DD$RWDEQU%00001000.REWINDFLAG DD$OCFEQU%00010000.OPEN/CLOSEFLAG DD$INPEQU%00100000.INPUTDEVICEFLAG DD$OUTEQU%01000000.OUTPUTDEVICEFLAG DD$RESEQU%10000000.RESERVABLEDEVICEFLAG * *CDBVDT--BITDEFINITIONS * VD$BINEQU%00000100.BINARYOBJECTFLAG VD$GDBEQU%00001000.TEMPGDBPOINTERFLAG 1 VD$SDAEQU%00010000.TEMPSDAPOINTERFLAG VD$NFFEQU%10000000.NON-FILEFORMATFLAG * *DEVICEDRIVERENTRYOFFSETS * DV$ONEQU0.DEVICEONOFFSET DV$OFFEQU3.DEVICEOFFOFFSET DV$INTEQU6.DEVICEINTIALIZATIONOFFSET DV$TRMEQU9.DEVICETERMINATIONOFFSET DV$IOEQU12.DEVICECHARACTERINPUT/OUTPUTOFFSET PAGE * *DISKEROMEQUATES * CURDRVEQU0.CURRENTDRIVENUMBER STRSCTEQU1.STARTINGPHYSICALSECTORNUMBER NUMSCTEQU3.NUMBEROFSECTORSTOOPERATEUPON LSCTLNEQU5.NUMBEROFBYTESTOBEREADFROMLASTSECTOR CURADREQU6.MEMORYADDRESSFORDISKTRANSFER FDSTATEQU8.DISKTRANSFERSTATUS SCTCNTEQU11.SECTORCOUNTUSEDINDETERMININGERRORS PGMDRVEQU$1D.DRIVEFROMWHICHLASTPROGRAMWASLOADED-NOTUSED PGMPSNEQU$1E.PHYSICALSECTORNUMBEROFRIBOFLASTLOADPGM-NOTUSED * *EROMENTRYPOINTS * OSLOADEQU$E800.BOOTSTRAPTHEOPERATINGSYSTEM FDINITEQU$E822.INITIALIZETHEDISK'SPIAANDSSDA CHKERREQU$E853.CHECKANDPRINTERRORFROMFDSTAT PRNTEREQU$E85A.PRINTERRORFROMFDSTAT READSCEQU$E869.READSECTOR(S) READPSEQU$E86D.READPARTIALSECTOR RDCRCEQU$E86F.READANDCHECKFORCRC RWTESTEQU$E872.WRITE/READTEST RESTOREQU$E875.MOVEHEADTOTRACK0 SEEKEQU$E878.POSITIONHEADTOTRACKOF"STRSCT" WRTESTEQU$E87B.WRITETEST WRDDAMEQU$E87E.WRITEDELETEDDATAMARK WRVERFEQU$E881.WRITEANDVERIFYCRC WRITSCEQU$E884.WRITESECTOR(S) * *EROMERROREQUATES * ER$CRCEQU'1.DATACRCERROR ER$WRTEQU'2.WRITEPROTECTEDDISK ER$RDYEQU'3.DISKNOTREADY ER$MRKEQU'4.DELETEDDATAMARKENCOUNTERED ER$TIMEQU'5.TIMEOUT ER$DADEQU'6.INVALIDDISKADDRESS ER$SEKEQU'7.SEEKERROR ER$DMAEQU'8.DATAADDRESSMARKERROR ER$ACREQU'9.ADDRESSMARKCRCERROR * *MISCELLANEOUSEROMEQUATES * RETRY$EQU5.RETRYCOUNTFORDISKREAD/WRITEERRORS * *LINEPRINTEREROMEQUATES * LPINITEQU$EBC0.INITPRINTERPIA LISTEQU$EBCC.PRINTCONTENTSOF'A' LDATAEQU$EBE4.PRINTSTRING,CR/LF LDATA1EQU$EBF2.PRINTSTRING,NOCR/LF PAGE * *EXBUGEQUATESFORMDOS *(PARTIALLISTONLY) INCHNPEQU$F015.INPUTCHARACTER(NOPARITY) OUTCHEQU$F018.OUTPUTONECHARACTER PCRLFEQU$F021.PRINTLF/CR PDATAEQU$F024.PRINTSTRING SBIT$EQU$FCFD.BIT7INDICATESIRQOCCURRED(IFCLEARED) BRKPT$EQU$FF1F.MAID'SBREAKPOINTTABLE(8FDB'S) BKPIN$EQU$FF4F.EXBUGBREAKPOINTSINMEMORY(FROMCONTINUECMD) AECHOEQU$FF53.INPUTCHARACTERECHOFLAG(0=>ECHO) IRQ$VCEQU$FFF8.IRQVECTOR SWI$VCEQU$FFFA.SWIVECTOR NMI$VCEQU$FFFC.NMIVECTOR XSTAK$EQU$FF8A.EXBUGSTACK MAID$EQU$F0F3.MAIDENTRYPOINT XREG$PEQU$FF16.MAIDP-REG. XREG$XEQU$FF18.MAIDX-REG. XREG$AEQU$FF1A.MAIDA-REG. XREG$BEQU$FF1B.MAIDB-REG. XREG$CEQU$FF1C.MAIDC-REG. XREG$SEQU$FF1D.MAIDS-REG. BRKPE$EQU$FF63.ENDOFMAIDBREAKPOINTTABLE CNACI$EQU$FCF4.CONSOLEACIA * *SPECIALMACROFORTHECENTRONIXPRINTERSTOPRINTTITLES *(NOLONGERUSED) TITLEMACR TTL\0 ENDM 2 Ep``~`~'~~~~_fIcd"D~^),/258;A>9DP PPnRUNTIME PPQ)Q'Q'Q)&Q)Z&9Q)Q'Q'Q)Q)Z&9%P&8' '0208A1'A2'AL'AR'AS(2BH(BBL(mCM(CN(D1)D2)EM(EX(F1(F2(FL(wFR)8HL(rIS)SKY)LJ)hLM'LP)pLT)NE*(NL*2NP*  !PCN0 SA !PLP0 SA4 COURTESY OF SCRIBE TEXT PROCESSOR 00.00 ** COMMAND ERROR --!!--INVALID NUMBER OF COPIESCANNOT USE MULTIPLE COPIES AND SECOND FILE SPECIFICATION&+ $N $Q$8? -.%,%'% /1? $8'*2ފ"'Խ'*}E&3 zE&3~*Dwh"yj h?"o).) l:-0 Z&9 %$9% !Q9Ƅ?9 @'9S "o "'&(2"o') 9) ~+!9% &K $G 9 (%&:!$ 4#%&+"$' " %&#$ \,'9$M'\_ ~+Ɇ88 88 9'!Q.1%+&1t  '..|9!& 92 A B\,%& M' l$\O9\2&~+Ɇ 988ϔ88 9ވ? ވ)O9 8888 9 9"o "\ވ o߂\?? ?(j߄lhh ??]&ވ\KD /% )9X%? ފ"'+ 9ކ"o'"& '&߈)_9~+ɽ,% & M'K$CO9~+Ɇ͔88 9#ߊ}D& |D612J&9"ߊ "߈9"o "'&A߈'߆&]'67&]' ?&ߤ32 22_? ~+# "\,%!& G$H?(\"'"$ #% 9~+ɽ/1T09/1Y09 9?"o" ""ލ#??9!ܽ-v% &88 9~+Ɇ88 9/-' 9,%'1t$ +C#+n9~+!-v%&88 9~+ɖ3'+32' ,% &3#3'+ 9, ~+"o "'&?&9_? ~+Ɇݔ8888 9,%)&.M'+l$'6*23}3'Z'3%3' 71z33Z& 9, ~+ɽ,%&M'$ /}0 9~+ɽ,%&M'$ ?(,&09~+ɆGHO? 9,%&M'$G" H?(|G 9~+ɽ,%&G$ H?(+n9~+f'$h'$i*2*2ފ"'$U? $Uh&jh?j$*2*2 92r8'!h!jh?&88239<=&h!j2|=hh ' z='=|"/ "޽/ #/ DeEF0lSAu߂"y߄h?]&Zwjh ?"o/)"߄?]&"/ނ ');&?% 6?%2/Y62E' "' )9$m? ?$E ))+~8'C #F" !F /-!0?1!!0?'623AB1$ƄO?%CƄ?9?%?%9_? 9%' &$*(&#?$"?*!?( ?&,9H`HH`9}3&, 23&-$c1z396694 49 46'o4 9> |>2'D}:'?}>&t:'51&:?:?'j!?$'& ?.ihh  'h2h?9-,$?/"./$U' J'/8& ,&& 'ӄ,, 8&!1% &,&'& & ,&1p 1m 92}:',1}<&~0:L<*~#~#~#~#~#~#~#~!!~ ~ ~"~ ~#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*}6 '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*`*;DK0ZZZZZZZZCMDKSASAPRINTER NOT READY#VKIƀHlXQO NY,,|m+m~lIO&LR&JP' KQJPF (O+P'IXxOO}I*mD$' 'C fF&8]*|!ooo_'dffffJ&\ 薺XFVo/29~,~-I~,~-~/~.A~.A~-~,~,OC-cM+~-IIO IO OO~-IdfOhMS9N_HYGG׺ooG/ J&Z&}'!~!hiiii9IO\KQ^Xߺ&J .XX*  X'-\I^K 喺* -qI,K/F&~,ʖQRZOP~!-qOQR9}h*5|g&0|f&+|e&&vevfvgvh J&xdvD|d|d)yDwddOfQm&9_vJvKvL '$RfQfePevevfVvh gIOĀDHxOO) Fdd/2}D'|d~-s*6e2& &?D Ā?|E _Oefghd~-s IHOX '7'8.   tJvKvLvM9tPvQvRvS9.dލI*I/fO*O/fm&lMShLRgKQfJP('eve wevfvgvhJ&|d|d( yeV~.&e}e *dr )vdyhygyfyee&d!~-sMShLRgKQfJP% ''hY& j)j lVf9hiiiJ&9o9ccccl& l& l&l)9 9 ffffJ&ll9O&~.&tJvKvLvMJ&tPvQvRvSMXyLyKyJxhygyfyeSLRLKQKJPJ$SLRLKQKJPJ |h &xhygyfyeJ&IOĀDHxOO(*~.&~-)~.1 DDDD'|޴_HYGG׺&ȗɗʗJ×G IG. 1'dffffJ&|G z -.Ȅ# Ƚ1|G &_L]&\// zJ&G'o,J&Z& }'-־Z& }/ 0@'|,}'NJ0./A '!E+*@-_\ ,/:9ЧJ&.JЗ9ǍW?=b99Loooo1-+)E%AZ&&zGhiiiZ&9hiii9tvvv9̦ͦΦ9ϫΩ̩ͩ9Ц.'',&' DDDD_׮Gޮ''%12 .&'% 12z E&O'% HHH 7 }'@×oooo'>dfffffffJ&|G&/ 1z ' Ƚ1|&Gֺ'޴ǧȧɧʧ~%$ l&l&l9+_ !ω ( & z&~3Ȗ#" \HY$|\]\\*> {V*+XV?*!?&Y*`*@**B*!?&F*!?&9*`u\v]w xzoyo{*!?&*!\  *!_? ~#* &4#&$4~ F@*? ~#&$+w4#*?*N&@i$%'&#""*i""4 6$&1&i*4*&'V2M'-'/'6 '`%00'Ľ&2%?"*2 23J. 23*3J. 4#i~ THE FORTRAN PROGRAM IS IN MEMORY AT LOCATION MOVE CODE TO COMPILE COMPLETE}g} ~SASTOP FKEY** LOMOTOROLA COBOL RUN TIME VERS 5.17 COPYRIGHT 1978 BY MOTOROLA INC. READY - 7 FILE DOES NOT EXIST6 6 6 LOAD SYSTEM DISK & REPLY N1 0 4243=15 6!PRINTER NOT READY - RETRY (Y/N) ? 6!6!INSERT DISK ******** INTO DRIVE * (Y/N) `17 ** 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 CALLVERSIONS DON'T MATCHj{     #=Wr[8 `  & +,M,, $Z&$/$#9 8`$!-~- ''S$ 6~<~c$ecce& eZ9 &~<$8`%'C0' ~$7! ~,N1!'~$7~~8`#,~$O~*O~,7w!v9~$$܅'Y197w!v ,~%S&9,$/&M&S91Y' %'Y196H2<߀ހ&9l##= #$!#&"_9]Ā0\$x7qsMkm3]&m@'$x&m sm$r]m&7k"kmx3 \ -k&m'T!}r'@k!}q'@m!}s'@ ~ږ\'' '~:~:w~;~c&]+ e'e&9c',&e& ]* ]c']'9e']+ &e&9\& be_'~!6^n+n3^/^]*_\'q+ q*-:9q9΍>/ύ2q*a'eb~Z&9 0]'"+Z&b9'|b\&9' Z&k2'av'v` i&!^* zkL&`0aOcegg&vv!\ghX;^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 / CD!lo_k; qk& Z&k )&Z&+'-&@qZk.'Z&nk_'73]'n'Jo6]' 3~%@96@39}&ҽ,9]&}+37 Z&33/#"~9c70,3c]@&&!1,9Hn34$|34 1zn+ƀ3 F#P$]tMf&~ B-~!|#p7tDD DP'"2#A;77 .t9'Z./ŷцҽ$M)ս$M),96,~!'K}/ }' ,9!5&9)Z/!Z&91:95: "9 p6&:5& ͆5$MnR&!n+m*-8n&.0,Z&9 ! 65:/ 5!O59:%|69367(,2/,2Y'~}*,323 oo 59& Otp4~ F B]'4~7 77/ 0- +- &+ !,` $t/k $t2 $t-8t~'#.m' ' n~$7M9~90(D 1(tu 8`,,22/2Y'~t5~""""" " ""]!"n"n"r!v"r"r"}#"}"}"#""##""##"""!""##""~$776$߀ #7DDDD #6  O]*ہׁ239DDDDL`$M)]&J`#`Xހ;`' M߀9]$Mck$M^$Mc^']&9].zk&9$c$M)dc9>M$?,' >' ,W<=~7&2#S,~: 0 +l J+l 96DDDD29 -09  ߆ݶ܄ܶ܅&) 9߽C܊܊݅&) 9+?M&7 &) &%   .9 $L +&~% $L +?h  (00&( o911~@Ҧ' )J& 9))C)l܄ܽ)+o $L +++*& ݶ9~&9& ܊9z9ہ &9&܊ܶ܅'~'qہ''&4&9  z޶ޱ"܊ +(9ہ''&;+ ( $L ߶܊9ہ'& ۶܅'>ہ ' ''&~''܅&+ (ۧ|޶ہ%#' &(ہ &+ (܄ܶ݊ݶ܄9ޱ&܄9'$L 9*η_+++0#9&~(с&~(?M'~( & '~(9$L &'~(E9 ++0#9+uv '   xxy z{      .9'&&''Զ' 9ԧ9Ҧ'۶݊119Ҧ'~*܅&~*'9Ҧ'~*49&~*pۄ'&ֶۧ~*'&܅&~*?9Ҧ' ݊ @' ݊  '֦݊۽&݅&~*9  _%*_Yz&VFFFF# "GY9$$$w8^~8#9|4.S&~+ӶT'~+ӽ/ U& z +.DX`& 8\~zo,V&WVX`&PWXZd&B&|d 6.DX`&+z36Y~,|Y+WZ&~ WV',3l9YX&2v~??M$|Z ~?v?M&|W9o":V&5~/?v?M&|V z_~~| 9|4.S';T&6|& z |VX[&&|[ .D, V',3l9X`&'z36~,~&|XM/|V9| ~}|8[8ZNi7N_~vzNi79|4.S'.T&)|/RX&.DX`&z36-x3l9~?v?M&H~|&:&6wv8Y8X~8W8Vz i7|B j9|+|& ~E|B9|4.S'<T&7|/RX&".D`&z36~E|B j3l9'L#|X [C& D|'I2|8\sts>C+0'|` C|D9|v|/ -|T B|'JJ>_M,S8U8Tz{ 8Rzz|'|Tz,|S9ULU&;'6>t  |&v>t  ?M%|U z 9'L" 'z#|X9|4.S'7T&2z&0 / ]2bc&04^3l9zz' $l oz'~0|&2`& 5\8P~ 8N~`'~0k_kL%~0{_'~0{|k~&~0-'~0h|_kz|E~|&5k.D8\~8#~0xL_~~~0_`&|cz9ku8NkL$&u&!|k&|u L_ Ӷu&|c +k|vMi79&z ,.DX`&z36~|B.DX`&Iz36vN_~zNi7; ~|~|B9kzl^8\~kl$6^&1|k~&^]k z_~~ ¶^&0 ^&/9]& z ^^b&F.DX`&3z36|-~/?v?M&|b 2 ^']'C'/ 19v~??M$|^ ~&|^9B':DCsM,sst8\s>40'|`B9|4.S')T&$/c`& 0|'4^3l9pq8\8]~zqkkq$p_~~|k 9Z'j['jT'jb'jc'jS&jX' j`' jr' jO' jP' jQ'jR'jd'jf'je'jg'jj|9|ojXVZT[`bcrSdfegOPQR98^40'|`9|4.S&~5T'~5zoooo|'8N8O~ 2`&5\`& 8P8Q~`&DkkL$+|k~Gz&~L_~~ |&5 4^3l98^=.0'|` CB7D*'|g9C8\8]x.0'|`98\40'|`9|4D&5 2`g'~6| ?5?M& |S| o5\`&g| ?x?M&8R~,|R |o|S6 68Tz6նl&|P+ x*'|O 8Rz-|O |QS'>.T&6|z'|e #|,zK&|f zE|S3l9|JJ>_M,S8M8L8RFJi79klk$#|kz,|lJ_M,S{zz{ 9|4.T&zF2|&7ʽ3l9|h+|v|&h. |&h' o94278R,F7ʽ3l9k8Tzk$#|kzFJ_M,S{zz{ 95\8R|JJ>_M,S8M8LJi759kki$|k 9mmn "&$mm~o~ 9 I 9E  95Z&9&Z&9>k9t* ?9t*?|9ض&9 &99 0 0  Z&$>b'O'9692' ' 9ؽ99l]& 9ؽ99g>k]99l9l9g9 }*9]+P9 9O99j i:- 'jZ&9>b *P997839]979w39O0' +:K :d'8|&0' *:d :K011-&n0& Z&0_911 P0&Z& :8*?|=+P::' 0'>b*P8`}'}* ~=:9~:}0Z&08`..;o';o'9*P7P38c_*?\]9& 9Z$|9<=*=* Lz'=  z&0=~=W<=*=*0=_7=ʦ0-3\ .1 =30z&~=W>b~=>k0=Z&09*P97PO38`*?|9' 0'>b*P' 8`011]n  9# lZ&9@  0, jZ&9376M&239. Z?0'>bZ&02L~=6Z7OZ32& ]*5-l Z:- ]' l]&0 12J~=6]]296]]296706< & J>2JJJ&329770_F$VFj&119?1?~> *s9>?62*?9*? *?9HYh i$j&9oo*@ *P9&Z&9Z&9CS9& 9Z$|9IID 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" @@@EJ @MP @@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^a @@D D6 D 2.F04 OB D%3Q$.F04 T$ DX46706& J=2JJJ&329770_F$VFj&119 D5@@ DD@e D6 D 2.F05 OB D%3$.F05 $.F06  D 499M D6 D 2.F08 OB D%3$.F08 T$ 7 D4 0& z& 9 D 5 @ D6 D 2.F09 OB D3$.F09 e D49 D6 D 2.F0E OB D3$.F0E Y D49 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.F17 OB D3$.F17 f D49 D6 D 2.F1C OB DC30.F187 0.F18A 0.F190 $.F1C $.F9C T$ D4 72 ~V D5  D D6 D 2.F1A OB D13 0.F184 0.F187 0.F18A $.F1A D4~ D5 D6 D 2.F19 OB DW3t0.F180 0.F18A $.F19 $.F190 $.F59 $.F99 $.FD9 T$ p D{4 R Ra ~m+ Lhi+& oo $  i idfj&9*s99 D.5 @S DA D6 D 2.F18 OB DY30.F07 $.F18 $.F180 "$.F184 J$.F187 c$.F18A $.F58 T$ D4 *s9"J62*9* *9HYh i$j&9oo*@ *P9 D75 DC0@# D@0=d @ D6 D 2.F1B OB D3$.F1B [ D49 D6 D 2.F1D OB D%3$.F1D $.F1E  D 499M 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.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@D[ D6 D 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 ywOPERATINGINSTRUCTIONSFOR"EDITM"REVISION2.9A ENVOKINGTHEEDITOR---ENTER"EDITM"(RETURN)ONTHECONSOLE THISEDITORISKEYORIENTEDANDEXPECTSALLINPUTFILESTOHAVE FOURDIGITASCIIRECORDKEYSFOLLOWEDBYABLANKATTHESTART OFEACHRECORD.ITUSESTHEFIRSTBYTEOFTHEALLRECORDSTOCHECK FORTHEEXISTANCEOFTHEKEYS(THISBYTEISANACSII0-9INKEYED FILES)IFTHEINPUTFILEDOESNOTHAVEKEYSANADDITIONAL FIVEBYTESARERESERVEDINEACHINPUTRECORDSOTHATTHEKEYS MAYBEADDEDUSINGTHERESEQUENCECOMMAND. THEEDITCOMMANDSMAYBEEITHERUPPERORLOWERCASEBUTALL FILENAMESSHOULDBEUPPERCASEFOR"MDOS"COMPATIBILITY. ALLEDITORCOMMANDSMAYBECONTAINEDINACHAINFILEIFTHEUSER SHOULDSODESIRE. THEREARETWOLEVELSOFEDITFEATURESAVAILABLE.ABASICSET,WHICH THEUSERMAYMASTERINARELATIVELYSHORTPERIOD,ANDANADVANCEDSET. THEADVANCEDSETGIVESTHEUSERMUCHGREATERFLEXIBILITYINEDITING, ANDMAYBEMASTEREDASNEEDED. THEBASICCOMMANDSETINCLUDESTHEBUILD,LOAD,LIST,SAVEANDEND COMMANDSALONGWITHTHEELEMENTARYEDITFEATURE.ADESCRIPTIONOF THESECOMMANDSFOLLOWS. NOTE:INTHEFOLLOWINGEXAMPLESTHEINDICATESTHATTHERETURN KEYWASUSED. BUILD--TOCREATEANEWFILEINTHEFILEUSETHE"BUILD"COMMAND. SYNTAX:BUILDFFFF BUILDFFFF.SS BUILDFFFF.SS:L ALIAS:BLD,NEW WHERE:FFFFISTHEFILEBEINGCREATED(8CHARACTERMAX) SSISTHESUFFIX(DEFAULT=.SA) LISTHELOGICALDRIVENO.(DEFAULT=0) NOTE:THESYSTEMWILLPROMPTTHEUSERWITHRECORDNUMBERS AFTERWITCHDATAFORTHERECORDMAYBEENTERED. NOTE:ASHOULDBEPLACEDATTHEENDOFEACHRECORD TOINFORMTHESYSTEMTHATTHERECORDHASBEENCOMPLETED. NOTE:TOLEAVETHEBUILDMODEASHOULDBEENTERED IMMEDIATELYFOLLOWINGTHEPROMPT. EXAMPLE:?BUILDTEST TEST.SA:0CREATED 0010TEST=A+B 0020PRINT100,TEST 0030@ 100FORMAT(I6) 0040STOP 0050END 0060 ? LOAD--TOLOADANEXISTINGFILEINTOMEMORYUSETHE"LOAD"COMMAND. SYNTAX:LOADFFFF LOADFFFF.SS LOADFFFF.SS:L LOADFFFF.SS:LNLN ALIAS:OLD,LD WHERE:FFFFISTHEFILENAME(8CHARACTERMAX) SSISTHEFILESUFFIX(DEFAULT=.SA) LISTHELOGICALDRIVENO.(DEFAULT=0) NOTE:IFNLNFOLLOWSTHEFILENAMETHENTHEFILEISASSUMED NOTTOHAVERECORDKEYS NOTE:IFSPECIFIED,THESUFFIX&LOGICALDRIVEBECOMENEW DEFAULTVALUESFORTHESEPARAMETERS EXAMPLE:?LOADTEST READY ? LIST--USE"LIST"TODISPLAYONEORMORERECORDSATTHECONSOLE. SYNTAX:LIST LISTNN LISTNN-MM ALIAS:L DEFAULT:ENTIREFILEORBLOCK WHERE:NNISTHEFIRSTRECORDNO. MMISTHELASTRECORDNO. NOTE:L9999WILLDISPLAYTHECURRENTFILENAME,THELAST RECORDKEYINTHEFILEANDTHEREMAININGMEMORY. EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ? SAVE----USE"SAVE"TOWRITETHECURRENTFILEBACKTOTHEDISK. SYNTAX:SAVE SAVEFFFF SAVEFFFF.SS SAVEFFFF.SS:L ALIAS:SAV WHERE:FFFFISTHEFILENAME SSISTHEFILESUFFIX LISTHELOGICALDRIVENO. NOTE:IFAFILENAME,SUFFIXORDRIVEISNOTSPECIFIED THEDATAFROMTHELAST"LOAD"OR"BUILD"COMMAND ISUSEDAGAIN NOTE:THEDISKFILEISNOTMODIFIEDUNTILTHESAVE COMMANDISEXECUTED EXAMPLE:?SAVE READY ? ELEMENTARYEDITINGHASTHREEEDITINGMODES,INSERT,MODIFYANDDELETE. INSERT--TOADDARECORDTOTHEWORKSPACE SYNTAX:NNNN-----STRING-----(RETURN) WHERE:NNNNISAFOURDIGITRECORDKEY -----STRING------ISTHECONTENTOFTHENEWRECORD (RETURN)ISTHERETURNKEYATTHEENDOFTHERECORD NOTE:ABLANKSHOULDIMMEDIATELYFOLLOWTHERECORDKEY EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ?22D=TEST-1 ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ? MODIFY--TOCHANGEARECORDINTHEWORKSPACE SYNTAX:(SAMEASINSERTBUTUSESANEXISTINGRECORDKEY) EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ?22TEST=TEST-1 ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ? DELETE--TOREMOVEARECORDFROMTHEWORKSPACE SYNTAX:NNNN(RETURN) WHERE:NNNNISTHERECORDKEYOFTHERECORDTOBEREMOVED EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022D=TEST-1 0030100FORMAT(I6) ?22 DELETED ?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0030100FORMAT(I6) ? END---USE"END"TOLEAVETHEEDITOR. SYNTAX:END ALIAS:QUIT,Q NOTE:IFTHECURRENTWORKSPACEHASBEENMODIFIEDANDNOTSAVED THE"SAVE(Y/N)?"PROMPTWILLAPPEARASAREMINDEROFTHE CURRENTLYUNSAVEDSTATUS.A"Y"RESPONSEWILLCAUSETHE CURRENTWORKSPACETOBEWRITTENBACKTOTHELASTFILE SPECIFIED.A"N"RESPONSEWILLCAUSETHEFILETOBE LOST. EXAMPLE:?END = THEFOLLOWINGADVANCEDEDITINGCOMMANDSAREALSOAVAILABLETOTHEUSER, CHANGE,APPEND,FIND,PRINT,DELETE,MOVE,DUPLICATE,BLOCK,VERIFY,NUMBER, MERGEANDRESEQUENCE.ADESCRIPTIONOFEACHFOLLOWS. CHANGE--USE"CHANGE"TOCHANGEASTRINGWITHINONEORMORERECORDS. SYNTAX:CHANGE/XXX/YYY/ CHANGENN/XXX/YYY/ CHANGENN-MM/XXX/A YYY/ CHANGENN-MM,KK/XXX/YYY/ ALIAS:C WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBECHECKED MMISTHELASTRECORDTOBECHECKED KKISTHEOCCURRANCEOFTHESTRINGINEACHRECORD XXXISTHESTRINGTOBECHANGED YYYISTHESTRINGTOBESUBSTITUTED NOTE:IFNN-MMORNNISOMITTEDTHEENTIREWORKSPACE ORBLOCKISSEARCHEDANDMODIFIED NOTE:THEOCCURRANCEFEILDDEFAULTSTOTHEFIRSTOCCURRANCE OFTHESTRINGINEACHRECORD NOTE:IF"A"ISUSEDINTHEOCCURRANCEFIELDALLOCCURRANCES OFTHEXXXSTRINGAREREPLACEDBYTHEYYYSTRING NOTE:THEUNDERLINEISUSEDASANIGNORECHARACTERAND IFPRESENTINTHEXXXSTRINGTHECHARACTERPOSITIONS CORRESPONDINGTOTHOSEWHEREAUNDERLINEISPLACEDWILL BEIGNOREDWHENSEARCHINGFORAMATCH.IFTHEUNDERLINE ISUSEDINTHEYYYSTRINGTHEOLDCHARACTERSWILL BEKEPTASPARTOFTHENEWSTRING NOTE:THEIGNORECHARACTERMAYBECHANGEDBYUSINGTHEFOLLOWING COMMANDSEQUENCE C0XY WHERE:XISTHEOLDIGNORECHARACTER YISTHENEWIGNORECHARACTER EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?CHANGE10-30/TEST/NEW/ 0010NEW=A+B 0020PRINT100,NEW 0022NEW=TEST-1 ? APPEND--USE"APPEND"TOADDTOTHEENDOFONEORMORERECORDS. SYNTAX:APPEND/XXX/ APPENDNN/XXX/ APPENDNN-MM/XXX/ ALIAS:APP WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBEADDEDTO MMISTHELASTRECORDTOBEADDEDTO XXXISTHESTRINGTOBEADDED NOTE:IFNNORNN-MMISOMITTEDTHEENTIREWORKSPACEOR BLOCKISSEARCHED EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?APPEND10-20/;COMMENTS/ 0010TEST=A+B;COMMENTS 0020PRINT100,TEST;COMMENTS ? FIND--USE"FIND"TOSEARCHTHEFILEFORASTRINGOFDATA. SYNTAX:FIND/XXX/ FINDNN/XXX/ FINDNN-MM/XXX/ FINDNN-MM,KK/XXX/ ALIAS:F WHERE:"/"ISADELIMITER(MAYBEANYASCIICHARACTER) NNISTHEFIRSTRECORDTOBESEARCHED MMISTHELASTRECORDTOBESEARCHED KKISTHEOCCURRANCEOFTHESTRINGINEACHRECORD XXXISTHESTRINGTOBEFOUND NOTE:IFKKISOMITTEDALLRECORDSWHICHCONTAINTHESTRINGARE FOUNDBUTIFKKISSPECIFIEDTHENONLYTHOSERECORDS WHICHCONTAINTHEKKOCCURANCEAREFOUND NOTE:IFNNORNN-MMISSPECIFIEDANDTHEEDITORISINBLOCK MODETHENNNORNN-MMWILLREDEFINETHEBLOCKRANGE NOTE:IFNNORNN-MMISOMITTEDTHEENTIREWORKSPACEOR BLOCKISSEARCHED NOTE:THEUNDERLINEISUSEDASANIGNORECHARACTERAND IFPRESENTINTHEXXXSTRINGTHECHARACTERPOSITIONS CORRESPONDINGTOTHOSEWHEREAUNDERLINEISPLACEDWILL BEIGNOREDWHENSEARCHINGFORAMATCH. EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?FIND/TEST/ 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 ? PRINT--USE"PRINT"TODISPLAYONEORMORERECORDSONTHEPRINTERAND ROUTEALLFURTHEROUTPUTTOTHEPRINTER. SYNTAX:PRINT PRINTNN PRINTNN-MM ALIAS:P DEFAULT:ENTIREFILEORBLOCK WHERE:NNISTHEFIRSTRECORDNO. MMISTHELASTRECORDNO. NOTE:P9999WILLDISPLAYTHECURRENTFILENAME,THELAST RECORDKEYINTHEFILEANDTHEREMAININGMEMORY. EXAMPLE:?PRINT10-30 NOTE:ALLFURTHEROUTPUTIB SDIRECTEDTOTHEPRINTERUNTILA LISTCOMMANDISEXECUTEDTOREDIRECTOUTPUTTOTHECONSOLE. NOTE:USE"L0"TOPAGEUPTHEPRINTERANDRETURNTOTHECONSOLE RESEQUENCE--USE"RESEQUENCE"TOUPDATETHERECORDKEYS. SYNTAX:RESEQUENCE RESEQUENCEMM RESEQUENCEMM,NN RESEQUENCENLN(THISWILLREMOVEALLRECORDKEYS) ALIAS:RSQ WHERE:MMISTHENEWSTARTINGKEY NNISTHENEWINCREMENT DEFAULT:MM=10,NN=10 NOTE:WHENRECORDKEYSAREBEINGREMOVEDTHEASSUMPTION ISMADETHATABLANKFOLLOWSTHERECORDKEYAND, THISBLANKISALSOREMOVED NOTE:WHENINBLOCKMODE,THEBLOCKRANGEISUPDATEDTO REFLECTTHENEWRECORDKEYS EXAMPLE:?LIST10-30 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) ?RESEQUENCE100,1 READY ?LIST 0100TEST=A+B 0101PRINT100,TEST 0102TEST=TEST-1 0103100FORMAT(I6) 0104STOP 0105END ? MOVE--USE"MOVE"TORELOCATEONEORMORERECORDSELSWHEREINTHE FILE. SYNTAX:MOVENN,MM MOVENN-MM,LL MOVENN-MM,LL,KK ALIAS:M WHERE:NNISTHEKEYOFTHEFIRSTRECORDTOBEMOVED MMISTHEKEYOFTHELASTRECORDTOBEMOVED LLISTHENEWKEYLOCATIONOFTHEFIRSTRECORD KKISTHEKEYINCREMENT(DEFAULT=1) NOTE:IFTHELLKEYALREADYEXISTSTHEMOVED RECORDWILLBEPLACEDBEFOREIT NOTE:THEMOVECOMMANDMAYBEUSEDTORESEQUENCE ABLOCKOFRECORDSBYMAKINGNNANDLLEQUAL NOTE:UNLESSLLISEQUALTONNRECORDSCANNOTBEMOVED INTOTHENN-MMRANGEORRECORDSEQUENCEERRORSWILL RESULT NOTE:DUPLICATERECORDKEYSMAYBEREMOVEDBYUSINGTHEMOVE COMMANDTORESEQUENCETHEDUPLICATEBLOCK EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0040STOP 0050END ?MOVE20-22,32 0032PRINT100,TEST 0033TEST=TEST-1 ?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ? DELETE--USE"DELETE"TOREMOVEBLOCKSOFRECORDSFROMTHEFILE. SYNTAX:DELETENN DELETENN-MM ALIAS:DEL WHERE:NNISTHEFIRSTRECORDTOBEREMOVED MMISTHELASTRECORDTOBEREMOVED EXAMPLE:?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ?DELETE30-33 0003RECORDSDELETED ?LIST 0010TEST=A+B 0040STOP ? DUPLICATE---USE"DUPLICATE"TOCOPYRECORDSORBLOCKSOFRECORDS ELSEWHEREINTHEFILE. SYNTAX:DUPLICATENN,MM DUPLICATENN-MM,LL DUPLICATENN-MM,LL,KK ALIAS:DUP WHERE:NNISTHEKEYOFTHEFIRSTRECORDTOBEDUPLICATED MMISTHEKEYOFTHELASTRECORDTOBEDUPLICATED LLISTHENEWKEYLOCATIONOFTHEFIRSTRECORD KKISTHEKEYINCREMENT(DEFAULT=1) EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0040STOP ?DUPLICATE20-22,32 0032PRINT100,TEST 0033TEST=TEST-1 ?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ? BLOCK---USE"BLOCK"TOCHANGETHEEDITMODEFROMWHOLEFILETOA BLOCKOFRECORDSORRETURNTOTHEWHOLEFILEMODE. SYNTAX:BLOCK BLOCKOFF ALIAS:B WHERE:IN,IORNOOPERATORARETHEINEFFECTOPERATORS OFF,OUT,OARETHEOUTOFEFFECTOPERATORS NOTE:WHENINTHEBLOCKMODETHERANGEOFRECORDSBEING OPERATEDONBYTHELIST,PRINT,APPEND,FIND&CHANGECOMMANDS DC EFAULTSTOTHELASTRANGESPECIFIEDBYLISTORFIND NOTE:THEBLOCKMODEISNOTAPPLICABLEWITHUNKEYEDRECORDS EXAMPLE:?LIST 0010TEST=A+B 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP ?BLOCK ?FIND20-32 ?LIST 0020PRINT100,TEST 0022TEST=TEST-1 0030100FORMAT(I6) 0032PRINT100,TEST ?  VERIFY---THE"VERIFY"COMMANDMAYBEUSEDTOTURNONOROFF THEVERIFICATIONPRINTOUTAFTERASUCCESSFUL CHANGE,APPEND,MOVE,MERGEORDUPLICATECOMMANDEXECUTION. SYNTAX:VERIFY VERIFYOFF VERIFYIN VERIFYOUT ALIAS:V WHERE:IN,IORNOOPERATORENVOKETHEVERIFY(DEFAULT) OFF,OUT,ODISABLETHEVERIFY EXAMPLE:?VERIFYOFF ?CHANGE10-50/TEST/QRTZ/ ?VERIFY ? NUMBER--USE"NUMBER"TOBEPROMPTEDWITHRECORDKEYSFORNEWRECORDS ORTOREPLACEEXISTINGRECORDS. SYNTAX:NUMBER NUMBERMM,NN ALIAS:N WHERE:MMISTHESTARTINGKEYNUMBER NNISTHEINCREMENT DEFAULT:MM=10,NN=10 NOTE:ABLANKISAUTOMATICLYINSERTEDAFTERTHERECORDKEY. NOTE:TOEXITTHEAUTOMATICNUMBERMODEENTERAAFTER THENEXTNEWRECORDKEYISDISPLAYED. EXAMPLE:?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ?NUMBER34,1 0034IF(TEST.GT.A)GOTO200 0035TEST=A 0036200A=0 0037 ?LIST 0010TEST=A+B 0030100FORMAT(I6) 0032PRINT100,TEST 0033TEST=TEST-1 0034IF(TEST.GT.A)GOTO200 0035TEST=A 0036200A=0 0040STOP 0050END ? MERGE--USE"MERGE"TOGETRECORDSFROMANOTHERFILEANDADDTHEM TOTHECURRENTFILEBEINGEDITED. SYNTAX:MERGEXXXX(NN-MM),LL MERGEXXXX.SS(NN-MM),LL MERGEXXXX.SS:L(NN-MM),LL ALIAS:MRG WHERE:XXXX--DISKFILETOBESEARCHED SS--DISKFILESUFFIX(DEFAULT=CURRENTFILESUFFIX) L--DISKDRIVE(DEFAULT=CURRENTFILEDRIVE) NN--RECORDKEYOFTHEFIRSTLINETOBECOPIED MM--RECORDKEYOFTHELASTLINETOBECOPIED (MAYBEOMITTEDIFONLYONERECORDISCOPIED) LL--RECORDKEYINTHEWORKSPACEAFTERWHICHTHE COPIEDRECORDSWILLBEINSERTED NOTE:SHOULDTHE"RESEQUENCENEEDED"MESSAGEAPPEARAFTERTHE RESEQUENCEORMOVECOMMANDSHOULDBEUSEDTOADJUSTTHE RECORDKEYSBEFOREANYFURTHEREDITINGISATTEMPTED. NOTE:THELLKEYNEEDNOTBEPRESENTINTHEWORKSPACE ANDIFNOTITWILLBECREATED. EXAMPLE:?LIST 0010TEST=A+B 0020100FORMAT(I6) 0030PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ?MERGEOLDTST(100-140),11 0011IF(B.EQ.0)A=-1 0012B=B-25 0013PRINT50,B 001450FORMAT(I4) 0015B=0 READY ?LIST 0010TEST=A+B 0011IF(B.EQ.0)A=-1 0012B=B-25 0013PRINT50,B 001450FORMAT(I4) 0015B=0 0020100FORMAT(I6) 0030PRINT100,TEST 0033TEST=TEST-1 0040STOP 0050END ? THEFOLLOWINGKEYBOARDFUNCTIONSAREALSOAVAILABLE ASAIDSTOTHEUSER. DEL-----DISPLAYSTHECHARACTERTOBEREMOVEDANDDELETESTHE LASTCHARACTEROFTHEINPUTSTREAM CNTL+X--GIVESACARRAGERETURNATTHEPRINTERANDDELETES THECURRENTINPUTLINE CNTL+D--DISPLAYSTHECURRENTLINEOFINPUTBACKTOTHEDISPLAY FORVERIFICATION CNTL+W--STOPSTHEDISPLAYUNTILANOTHERCHARACTERISENTERED RETURN--TERMINATESINPUTANDSIGNALSTHESYSTEMTOPROCESSTHE CURRENTINPUTBUFFER BREAK---TERMINATESTHECURRENTD OUTPUTANDRETURNSCONTROL TOTHEREADYLEVEL  IFTHEERRORRESULTSINARETURNTOTHECOMMANDINTERPRETEROF "MDOS"(THE"="PROMPT),THEEDITORNEEDSTOBERELOADEDAND ENTEREDASFOLLOWS: =LOADEDITM.CM *2003;G READY ? THEEDITORSHOULDNOWBEBACKINEXECUTIONANDTHEONLYDATA THATNEEDBERESPECIFIEDISTHECURRENTFILENAMEBEINGEDITED. THISDATAISSPECIFIEDBYADDINGTHEFILENAMEATTHEENDOFTHE "SAV H~ALSOAVAILABLE ASAIDSTOTHEUSER. DEL-----DISPLAYSTHECHARACTERTOBEREMOVEDANDDELETESTHE LASTCHARACTEROFTHEINPUTSTREAM CNTL+X--GIVESACARRAGERETURNATTHEPRINTERANDDELETES THECURRENTINPUTLINE CNTL+D--DISPLAYSTHECURRENTLXy&=&3&}' ~~' ύԽ9ƥ&}&ȍԽ9}' RAM MEMORY PRESENT IN THIS SYSTEM: START - END (IN HEX)   - uuPAGE * *MDOSVERSION02.20--SYSTEMEQUATEFILE--FEB.24,1978 * SPC3 * *DEFINEMULTI-SECTOR/SINGLESECTORI/O--RESIDENTMDOSONLY * MULTSEQU0.0=>SINGLESECTOR,1=>MULTIPLESECTOR * *DEFINETYPEOFMDOS--RESIDENTMDOSONLY * MDOSF$EQU0.0=>MDOS,1=>OEMMDOS SPC3 * *SKIP2MACRO * *THEGENERATEDBYTEISA"COMPAREINDEXIMMEDIATE". *THEEXECUTIONOFTHEBYTEWILLCHANGETHECONDITIONCODESONLY. *NOREGISTERSAREAFFECTED.THUS,AONEBYTEINSTRUCTION *ISFORMEDTHATSKIPSFORWARDTWOBYTES. * SKIP2MACR FCB$8C. ENDM * *SKIP1MACRO * *THESAMECONCEPTASTHE"SKIP2"MACROISUSED,EXCEPTTHAT *A"BITTESTACCUMULATORAIMMEDIATE"OPCODEISGENERATED. * SKIP1MACR FCB$85 ENDM * *SCALLMACRO(SYSTEMFUNCTIONCALL) * SCALLMACR IFEQNARG-1 SWI FCB\0!.%01111111 ENDC * IFNENARG-1 FAIL*UNDEFINEDSWICALLARGUMENT* ENDC ENDM * *UCALLMACRO(USERFUNCTIONCALL) * UCALLMACR IFEQNARG-1 SWI FCB\0!+%10000000 ENDC * IFNENARG-1 SCALL ENDC ENDM * *SEQMACRO(NUMBERINGSEQUENTIALEQUATES) * SEQMACR IFNENARG \0EQU*. ENDC ORG*+1. ENDM PAGE * *SYSTEMFUNCTIONDEFINITIONS * * *SETLOCATIONCOUNTTO0FORTHEEQUATEDEFINITIONS * .$SAVSET*.SAVEOLDLOCATIONCOUNT ORG$0. * * * SEQ.RESRV.RESERVEADEVICE SEQ.RELES.RELEASEADEVICE SEQ.OPEN.OPENAFILE SEQ.CLOSE.CLOSEAFILE SEQ.GETRC.READARECORD SEQ.PUTRC.WRITEARECORD SEQ.REWND.POSITIONTOBEGINNINGOFFILE SEQ.GETLS.READLOGICALSECTOR SEQ.PUTLS.WRITELOGICALSECTOR SEQ.KEYIN.CONSOLEINPUT SEQ.DSPLY.CONSOLEOUTPUT(TE ERMW/CR) SEQ.DSPLX.CONSOLEOUTPUT(TERMW/EOT) SEQ.DSPLZ.CONSOLEOUTPUT(TERMW/EOT,NOCR/LFATEND) SEQ.CKBRK.CHECKCONSOLEFORBREAKKEY SEQ.DREAD.EROMDISKREAD SEQ.DWRIT.EROMDISKWRITE SEQ.MOVE.MOVEASTRING SEQ.CMPAR.COMPARESTRINGS SEQ.STCHB.STOREBLANKS SEQ.STCHR.STORECHARACTERS SEQ.ALPHA.CHECKALPHABETICCHARACTER SEQ.NUMD.CHECKDECIMALDIGIT SEQ.ADDAM.INCREMENTMEMORY(DOUBLEBYTE)BYA SEQ.SUBAM.DECREMENTMEMORY(DOUBLEBYTE)BYA SEQ.MMA.MULTIPLY(SHIFTLEFT)MEMORYBYA(COUNT) SEQ.DMA.DIVIDE(SHIFTRIGHT)MEMORYBYA(COUNT) SEQ.MDENT.ENTERMDOSWITHOUTRELOADING SEQ.LOAD.LOADAFILEFROMDISK SEQ.DIRSM.DIRECTORYSEARCHANDMODIFY SEQ.PFNAM.PROCESSFILENAME SEQ.ALUSM.ALLOCATEUSERMEMORY SEQ.CHANG.CHANGENAME/ATTRIBUTES SEQ.MDERR.MDOSERRORMESSAGEHANDLER SEQ.ALLOC.ALLOCATEDISKSPACE SEQ.DEALC.RETURNDISKSPACE SEQ.EWORD.SETERRORSTATUSWORDFORCHAIN SEQ.TXBA.TRANSFERXTOB,A SEQ.TBAX.TRANSFERB,ATOX SEQ.XBAX.EXCHANGEB,AANDX SEQ.ADBX.ADDBTOX SEQ.ADAX.ADDATOX SEQ.ADBAX.ADDB,ATOX SEQ.ADXBA.ADDXTOB,A SEQ.SUBX.SUBTRACTBFROMX SEQ.SUAX.SUBTRACTAFROMX SEQ.SUBAX.SUBTRACTB,AFROMX SEQ.SUXBA.SUBTRACTXFROMB,A SEQ.CPBAX.COMPAREB,ATOX SEQ.ASRX.SHIFTXRIGHT(ARITHMETIC) SEQ.ASLX.SHIFTXLEFT(ARITHMETIC/LOGICAL) SEQ.PSHX.PUSHXONSTACK SEQ.PULX.PULLXFROMSTACK SEQ.PRINT.PRINT-TERMINATEWITHCR SEQ.PRINX.PRINT-TERMINATEWITHEOT SEQ.GETFD.READFDR(RESIDENTMDOSONLY) SEQ.PUTFD.WRITEFDR(RESIDENTMDOSONLY) SEQ.PUTEF.WRITEEOF(RESIDENTMDOSONLY) SEQ.EREAD.DISKREADW/ERRRETN SEQ.EWRIT.DISKWRITEW/ERRRETN IFNEMULTS SEQ.MREAD.MULTIPLESECTORREAD SEQ.MWRIT.MULTIPLESECTORWRITE SEQ.MERED.MULTIPLESECTORREADW/ERRRETURN SEQ.MEWRT.MULTIPLESECTORWRITEW/ERRRETURN ENDC IFEQMULTS SEQ SEQ SEQ SEQ ENDC SEQ.BOOT.RELOADMDOS * ORG.$SAV.RESTORELOCATIONCOUNTER PAGE * *ASCIICONTROLCHARACATERS * NULLEQU0.NULL SOHEQU1.STARTOFHEADING STXEQU2.STARTOFTEXT ETXEQU3.ENDOFTEXT EOTEQU4.ENDOFTRANSMISSION ENQEQU5.ENQUIRY(WRU-WHOAREYOU) ACKEQU6.ACKNOWLEDGE BELEQU7.BELL BSEQU8.BACKSPACE HTEQU9.HORIZONTALTAB LFEQU$A.LINEFEED VTEQU$B.VERTICALTAB FFEQU$C.FORMFEED CREQU$D.CARRIAGERETURN SOEQU$E.SHIFTOUT SIEQU$F.SHIFTIN DLEEQU$10.DATALINKESCAPE DC1EQU$11.DEVICECONTROL1 DC2EQU$12.DEVICECONTROL2 DC3EQU$13.DEVICECONTROL4 DC4EQU$14.DEVICECONTROL4 NAKEQU$15.NEGATIVEACKNOWLEDGE SYNEQU$16.SYNCHRONOUSIDLE ETBEQU$17.ENDOFTRANSMISSIONBLOCK CANEQU$18.CANCEL EMEQU$19.ENDOFMEDIUM SUBEQU$1A.SUBSTITUTE ESCEQU$1B.ESCAPE FSEQU$1C.FILESEPARATOR GSEQU$1D.GROUPSEPARATOR RSEQU$1E.RECORDSEPARATOR USEQU$1F.UNITSEPARATOR SPACEEQU$20.SPACE(WORDSEPARATOR) RUBOUTEQU$7F.DELETE(RUBOUT) * *SPECIALCHARACTEREQUATES * SUFDLMEQU'..SUFFIXDELIMETER OPTDLMEQU';.OPTIONSDELIMETER DRVDLMEQU':.LOGICALDRIVERDELIMETER DEVDLMEQU'#.GENERICDEVICENAMEDELIMETER FAMDLMEQU'*.FAMILYNAME/SUFFIXDELIMETER E$FATLEQUF 1!<7.FATALERRORBIT PAGE * *MDOSSECTOREQUATES * SC$DIDEQU0.DISKIDPHYSICALSECTORNUMBER SC$CATEQU1.CLUSTERALLOCATIONTABLEPHSYICALSECTORNUMBER SC$LOKEQU2.LOCKOUTCLUSTERTABLEPHYSICALSECTORNUMBER SC$DIREQU3.DIRECTORYSTARTPHYSICALSECTORNUMBER SC$DREEQU$16.DIRECTORYENDPHYSICALSECTORNUMBER SC$BBEQU$17.BOOTBLOCKPHYSICALSECTORNUMBER SC$DOSEQU$18.OPERATINGSYSTEMPHSYICALSECTORNUMBER(RIBADDRESS) SC$SIZEQU128.SECTORSIZEINBYTES SC$TRKEQU26.NUMBEROFSECTORS/TRACK SC$CLSEQU4.NUMBEROFSECTORS/CLUSTER SC$MAXEQU2000.MAXIMUMNO.OFUSABLESECTORS DFCLS$EQU32.DEFAULTNO.OFCLUSTERS * *DISKIDSECTOROFFSETS * DID$IDEQU0.OFFSETTODISKID(8BYTES) DID$VNEQU8.OFFSETTOVERSIONNUMBER(2BYTES) DID$RNEQU10.OFFSETTOREVISIONNUMBER(2BYTES) DID$DTEQU12.OFFSETTODATE(6BYTES) DID$NMEQU18.OFFSETTOUSERNAME(20BYTES) DID$RBEQU38.OFFSETTORIBADDRS.(20BYTES) * *DIRECTORYENTRYOFFSETS * DIR$NMEQU0.OFFSETTONAME(8BYTES) DIR$SXEQU8.OFFSETTOSUFFIX(2BYTES) DIR$RBEQU10.OFFSETTORIBADDRESS(2BYTES) DIR$ATEQU12.OFFSETOFATTRIBUTES(2BYTES) DIR$NUEQU14.OFFSETTONOTUSEDAREA(2BYTES) * *R.I.B.BINARYFILEOFFSETS * RIB$LBEQU117.NUMBEROFBYTESINLASTSECTOR RIB$SLEQU118.NUMBEROFSECTORSTOLOAD RIB$LAEQU120.MEMORYLOADADDRESS RIB$SAEQU122.STARTEXECUTIONADDRESS PAGE * *UNIFIEDI/OCONTROLBLOCK * *OFFSETS * * IOCSTAEQU0.ERRORSTATUS IOCDTTEQU1.DATATRANSFERTYPE IOCDBPEQU2.DATABUFFERPOINTER IOCDBSEQU4.DATABUFFERSTARTADDRESS IOCDBEEQU6.DATABUFFERENDADDRESS IOCGDWEQU8.GENERICDEVICETYPE/CONTROLDESCRIPTORADDRESS IOCLUNEQU10.LOGICALUNITNUMBER IOCNAMEQU11.FILENAME IOCMLSEQU11.MAXIMUMREFERENCEDLOGICALSECTORNUMBER IOCSDWEQU13.CURRENTSEGMENTDESCRIPTORWORD IOCSLSEQU15.1STLOGICALSECTOROFCURRENTSEGMENT IOCLSNEQU17.CURRENTLOGICALSECTORNUMBER IOCSUFEQU19.FILENAMESUFFIX IOCEOFEQU19.LOGICALENDOFFILE IOCRIBEQU21.PHYSICALDISKADDRESSOFR.I.B. IOCFDFEQU23.FILEDESCRIPTORFLAGS IOCDENEQU27.DIRECTORYENTRYNUMBER IOCSBPEQU29.SECTORBUFFERPOINTER/INITIALALLOCATION IOCSBSEQU31.SECTORBUFFERSTARTADDRESS IOCSBEEQU33.SECTORBUFFERENDADDRESS IOCSBIEQU35.SECTORBUFFERINTERNALPTR IOCBLNEQUIOCSBI+2-IOCSTA.IOCBLENGTH * *UNIFIEDI/OERRORSTATUSES * .$SAVSET*.REMEMBERTHECURRENTLOCATIONCOUNTER ORG$0.RESETITTOZEROTOUSETHESEQMACRO * SEQI$NOER.NOERRORS,NORMALRETURN SEQI$NODV.NOSUCHDEVICE SEQI$RESV.DEVICERESERVEDALREADY SEQI$NORV.DEVICENOTRESERVED SEQI$NRDY.DEVICENOTREADY SEQI$IVDV.INVALIDDEVICE SEQI$DUPE.DUPLICATEFILENAME SEQI$NONM.FILENAMENOTFOUND SEQI$CLOS.FILENAMENOTOPEN/ORFILENOTCLOSED SEQI$EOF.ENDOFFILE SEQI$FTYP.INVALIDFILETYPE SEQI$DTYP.INVALIDDATATRANSFERTYPE SEQI$EOM.ENDOFMEDIA SEQI$BUFO.BUFFEROVERFLOW SEQI$CKSM.CHECKSUMERROR SEQI$WRIT.FILEISWRITEPROTECTED SEQI$DELT.FILEISDELETEPROTECTED SEQI$RANG.LOGICALSECTORNUMBEROUTOFRANGE SEQI$FSPC.NODISKFILESPACEAVAILAG BLE SEQI$DSPC.NODIRECTORYSPACEAVAILABLE SEQI$SSPC.NOSEGMENTDESCRIPTORSPACEAVAILABLE SEQI$IDEN.INVALIDDIR.ENTRYNO. SEQI$RIB.INVALIDRIB SEQI$DEAL.CAN'TDEALLOCATEALLSPACE SEQI$RECL.BINARYRECORDLENGTHTOOLRGE SEQI$SECB.SECTORBUFFERSIZEERROR * ORG.$SAV.RESTORETHELOCATIONCOUNTER * PAGE * *MDOSINTERNALVARIABLE * *ANDLOCATIONEQUATES * MDOS$EQU$100.STARTOFMDOSASECT CBUFL$EQU80.COMMANDBUFFERLENGTH CBUFF$EQUMDOS$-CBUFL$-2.COMMANDBUFFERLOCATION CBUFP$EQUCBUFF$+CBUFL$.COMMANDBUFFERSCANPOINTER VERS$$EQUMDOS$.VERSION# REVS$$EQUVERS$$+2.REVISION# KYI$SVEQUREVS$$+2.SAVEAREAFORKEYIN$VECTOR ENDOS$EQUKYI$SV+2.ENDOFMDOS ENDUS$EQUENDOS$+2.ENDOFUSERPROGRAMAREA ENDSY$EQUENDUS$+2.ENDOFSYSTEM(MDOS)RAM RIBBA$EQUENDSY$+4.RIBBUFFERADDRESS ENDRV$EQURIBBA$+2.ENDOFMDOSROMVARIABLES GDBA$EQUENDRV$+2.GENERICDEVICETABLEADDRESS SYERR$EQUGDBA$+2.SYSTEMERRORSTATUSWORD SWI$SVEQUSYERR$+2.SWIVECTORSAVEAREA SWI$UVEQUSWI$SV+2.SWIUSERVECTOR IRQ$UVEQUSWI$UV+2.IRQUSERVECTOR IRQ$SVEQUIRQ$UV+2.IRQVECTORSAVEAREA CHFLG$EQUIRQ$SV+2.CHAINFUNCTIONFLAGWORD SYIOCBEQUCHFLG$+2.SYSTEMCONSOLEIOCB SYPOCBEQUSYIOCB+IOCBLN.SYSTEMPRINTERIOCB SYEOCBEQUSYPOCB+IOCBLN.ERRMSGFILE PAGE * *LOGICALUNITNUMBER--BITDEFINITION * LU$RESEQU%01000000.IOCBRESERVEDFLAG * *IOCDTT--BITDEFINITIONS * DT$OPPEQU%00000000.OPENUPDATE/INPUT DT$OPIEQU%00000001.OPENINPUTMODE DT$OPOEQU%00000010.OPENOUTPUTMODE DT$OPUEQU%00000011.OPENUPDATEMODE DT$NFFEQU%00000100.NON-FILEFORMATI/OFLAG DT$TRUEQU%00001000.TRUNCATEFLAG DT$CLSEQU%00010000.FILEOPEN/CLOSEFLAG DT$SIOEQU%00100000.SECTORI/OFLAG DT$OUTEQU%01000000.OUTPUTTRANSFERTYPE DT$INPEQU%10000000.INPUTTRANSFERTYPE * *IOCFDF--BITDEFINITIONS * FD$FMUEQU%00000000.USERDEFINEDFORMAT(SECTORI/OONLY) FD$FMDEQU%00000001.DEFAULTOBJECTREC'DFORMAT(DEVICEDEPENDENT) FD$FMLEQU%00000010.BINARYLOADFORMAT--ABSOLUTEMEMORYIMAGE FD$FMBEQU%00000011.BINARYRECORDFORMAT--RASMOUTPUT,RLOADINPUT FD$FMREQU%00000100.BINARYLOADFORMAT--RELOCATABLEMEMORYIMAGE FD$FMAEQU%00000101.ASCIIRECORDFORMAT--INCLUDESEXORCISORLOADF FD$FMCEQU%00000111.ASCI-CONVERTED-BINARYRECORDFORMAT FD$CMPEQU%00001000.SPACECOMPRESSIONFLAG FD$CONEQU%00010000.CONTIGUOUSALLOCATIONFLAG FD$SYSEQU%00100000.SYSTEMFILEATTRIBUTE FD$DELEQU%01000000.DELETEPROTECTIONATTRIBUTE FD$WRTEQU%10000000.WRITEPROTECTIONATTRIBUTE * *UNIFIEDI/OCONTROLDESCRIPTOR * *BLOCKOFFSETS * CDBIOCEQU0.ADDRESSOFIOCB CDBSDAEQU2.SOFTWAREDRIVERADDRESS CDBHADEQU4.HARDWAREADDRESS CDBDDFEQU6.DEVICEDESCRIPTORFLAGS CDBVDTEQU7.VALIDDATATYPE CDBDDAEQU8.DEVICEDEPENDENTAREA CDBWSTEQU10.WORKINGSTORAGE * *CDBDDF--BITDEFINITIONS * DD$FMCEQU%00000001.ASCII-CONVERTED-BINARYISDEFAULTOBJECTRECORD DD$LOGEQU%00000010.LOGICALSECTORI/OFLAG DD$CNSEQU%00000100.CONSOLEFLAG DD$RWDEQU%00001000.REWINDFLAG DD$OCFEQU%00010000.OPEN/CLOSEFLAG DD$INPEQH U%00100000.INPUTDEVICEFLAG DD$OUTEQU%01000000.OUTPUTDEVICEFLAG DD$RESEQU%10000000.RESERVABLEDEVICEFLAG * *CDBVDT--BITDEFINITIONS * VD$BINEQU%00000100.BINARYOBJECTFLAG VD$GDBEQU%00001000.TEMPGDBPOINTERFLAG VD$SDAEQU%00010000.TEMPSDAPOINTERFLAG VD$NFFEQU%10000000.NON-FILEFORMATFLAG * *DEVICEDRIVERENTRYOFFSETS * DV$ONEQU0.DEVICEONOFFSET DV$OFFEQU3.DEVICEOFFOFFSET DV$INTEQU6.DEVICEINTIALIZATIONOFFSET DV$TRMEQU9.DEVICETERMINATIONOFFSET DV$IOEQU12.DEVICECHARACTERINPUT/OUTPUTOFFSET PAGE * *DISKEROMEQUATES * CURDRVEQU0.CURRENTDRIVENUMBER STRSCTEQU1.STARTINGPHYSICALSECTORNUMBER NUMSCTEQU3.NUMBEROFSECTORSTOOPERATEUPON LSCTLNEQU5.NUMBEROFBYTESTOBEREADFROMLASTSECTOR CURADREQU6.MEMORYADDRESSFORDISKTRANSFER FDSTATEQU8.DISKTRANSFERSTATUS SCTCNTEQU11.SECTORCOUNTUSEDINDETERMININGERRORS PGMDRVEQU$1D.DRIVEFROMWHICHLASTPROGRAMWASLOADED-NOTUSED PGMPSNEQU$1E.PHYSICALSECTORNUMBEROFRIBOFLASTLOADPGM-NOTUSED * *EROMENTRYPOINTS * OSLOADEQU$E800.BOOTSTRAPTHEOPERATINGSYSTEM FDINITEQU$E822.INITIALIZETHEDISK'SPIAANDSSDA CHKERREQU$E853.CHECKANDPRINTERRORFROMFDSTAT PRNTEREQU$E85A.PRINTERRORFROMFDSTAT READSCEQU$E869.READSECTOR(S) READPSEQU$E86D.READPARTIALSECTOR RDCRCEQU$E86F.READANDCHECKFORCRC RWTESTEQU$E872.WRITE/READTEST RESTOREQU$E875.MOVEHEADTOTRACK0 SEEKEQU$E878.POSITIONHEADTOTRACKOF"STRSCT" WRTESTEQU$E87B.WRITETEST WRDDAMEQU$E87E.WRITEDELETEDDATAMARK WRVERFEQU$E881.WRITEANDVERIFYCRC WRITSCEQU$E884.WRITESECTOR(S) * *EROMERROREQUATES * ER$CRCEQU'1.DATACRCERROR ER$WRTEQU'2.WRITEPROTECTEDDISK ER$RDYEQU'3.DISKNOTREADY ER$MRKEQU'4.DELETEDDATAMARKENCOUNTERED ER$TIMEQU'5.TIMEOUT ER$DADEQU'6.INVALIDDISKADDRESS ER$SEKEQU'7.SEEKERROR ER$DMAEQU'8.DATAADDRESSMARKERROR ER$ACREQU'9.ADDRESSMARKCRCERROR * *MISCELLANEOUSEROMEQUATES * RETRY$EQU5.RETRYCOUNTFORDISKREAD/WRITEERRORS * *LINEPRINTEREROMEQUATES * LPINITEQU$EBC0.INITPRINTERPIA LISTEQU$EBCC.PRINTCONTENTSOF'A' LDATAEQU$EBE4.PRINTSTRING,CR/LF LDATA1EQU$EBF2.PRINTSTRING,NOCR/LF PAGE * *EXBUGEQUATESFORMDOS *(PARTIALLISTONLY) INCHNPEQU$F015.INPUTCHARACTER(NOPARITY) OUTCHEQU$F018.OUTPUTONECHARACTER PCRLFEQU$F021.PRINTLF/CR PDATAEQU$F024.PRINTSTRING SBIT$EQU$FCFD.BIT7INDICATESIRQOCCURRED(IFCLEARED) BRKPT$EQU$FF1F.MAID'SBREAKPOINTTABLE(8FDB'S) BKPIN$EQU$FF4F.EXBUGBREAKPOINTSINMEMORY(FROMCONTINUECMD) AECHOEQU$FF53.INPUTCHARACTERECHOFLAG(0=>ECHO) IRQ$VCEQU$FFF8.IRQVECTOR SWI$VCEQU$FFFA.SWIVECTOR NMI$VCEQU$FFFC.NMIVECTOR XSTAK$EQU$FF8A.EXBUGSTACK MAID$EQU$F0F3.MAIDENTRYPOINT XREG$PEQU$FF16.MAIDP-REG. XREG$XEQU$FF18.MAIDX-REG. XREG$AEQU$FF1A.MAIDA-REG. XREG$BEQU$FF1B.MAIDB-REG. XREG$CEQU$FF1C.MAIDC-REG. XREG$SEQU$FF1D.MAIDS-REG. BRKPE$EQU$FF63.ENDOFMAIDBREAKPOINTTABLE CNACI$EQU$FCF4.CONSOLEACIA * *SPECIALMACROFORTHECENTRONIXPRINTERSTOPRINTTI ITLES *(NOLONGERUSED) TITLEMACR TTL\0 ENDM ۀ0010/*GET2-DIGITNUMBERS(ENDEDBY00)ANDSORTTHEM 0020USINGABINARYTREESORT*/ 0030SHORT 0040MN: 0050PROCOPTIONS(MAIN) 0060$NAMMN 0070DCLHEADBIN(2)GLOBALINIT(0),NBLOBAGLOBAL 0080DCLPBIN(2)GLOBAL 0090DCLNDDEC(2),CRCHAR(1) 0100 0110/*GETANDINSERTNUJMBMBERSUNTILYOUGET00*/ 0120CAKKJETUB 0130N=ND 0140DOWHILENNE0 0150CALLINSERT 0160CALLKEYIN<,2,ADDR(ND)> 0170N=ND 0180END 0190 0200/*PRINTTHETREE,SORTED*/ 0210P=HEAD 0220CALLPTREE 0230 0240CALLMDOS 0250END 5݀60010C-----FORTRANFUNCTIONLIBRARY4.1 0020@POWER@ 0030FUNCTIONPOWER(X,Y) 0040C-----RAISESAPOSITIVEX**Y 0050IF(X)10,20,30 006010!$86,1!$3F 007020POWER=0. 0080RETURN 009030XX=Y*ALOG(X) 0100POWER=EXP(XX) 0110RETURN 0120END 0130@EXP@ 0140C-----RAISESE**XFORPOSITIVEX 0150FUNCTIONEXP(X) 0160DIMENSIONA(6) 0170DATAA/1.151287586,.662843149,.253603317,.075467547, 0180C.01342094,.005654902/ 0190XX=X*.43429448 0200XX=ABS(XX) 0210Y=1. 0220IF(X)10,40,10 023010K=XX 0240XX=XX-K 0250X1=XX 0260DO31I=1,6 0270Y=Y+XX*A(I) 028031XX=XX*X1 0290Y=Y*Y 0300Y=Y*(10**K) 0310IF(X.LT.0.0)Y=1.0/Y 032040EXP=Y 033050RETURN 0340END 0350@ALOG@ 0360C-----LOGBASEE 0370FUNCTIONALOG(Z) 0380DIMENSIONA(7) 0390DATAA/.99998175,-.4994704,.32823318,-.22587329, 0400C.13463938,-.05511996,.01075744/ 0410XX=Z 0420IF(XX.GT.0.)GOTO5 0430!$86,2!$3F 04405C=1. 0450ISGN=1 0460IF(XX.GE.1.)GOTO10 0470ISGN=-1 0480XX=1./XX 049010IF(XX.LE.2.)GOTO20 0500C=2.*C 0510XX=SQRT(XX) 0520GOTO10 053020XX=XX-1. 0540X=XX 0550Y=0. 0560DO31I=1,7 0570Y=Y+A(I)*X 058031X=X*XX 0590ALOG=ISGN*C*Y 0600RETURN 0610END 0620@SIN@ 0630FUNCTIONSIN(X) 0640SIN=COSIN(X,0.) 0650RETURN 0660END 0670@COS@ 0680FUNCTIONCOS(Y) 0690COS=COSIN(Y,1.) 0700RETURN 0710END 0720@COSIN@ 0730FUNCTIONCOSIN(X,XI) 0740DIMENSIONC(4) 0750DATAC/1.570794852,-.645920978,.079487663,-.004362476/ 0760IF(X.GE.0.)GOTO5 0770!$86,3!$3F 07805XX=XI+(X/1.57079632) 079010IF(XX.LE.1.E5)GOTO20 0800XX=XX-1.E5 0810GOTO10 082020IX=XX/4. 0830XX=XX-IX*4 0840IQD=XX+1. 0850GOTO(50,40,40,30),IQD 086030XX=XX-4. 0870GOTO50 088040XX=2.0-XX 089050X2=XX*XX 0900Z=0. 0910DO60I=1,4 0920Z=Z+C(I)*XX 093060XX=XX*X2 0940COSIN=Z 0950RETURN 0960END 0970@ATAN@ 0980FUNCTIONATAN(X) 0990DIMENSIONC(4) 1000DATAC/.999215,-.3211819,.1462766,-.0389929/ 1010XX=X 1J 020IF(XX.LT.0.)XX=-XX 1030SGN=XX/X 1040IF(XX.GT.1.)XX=1./XX 1050X2=XX*XX 1060Y=0. 1070DO31I=1,4 1080Y=Y+C(I)*XX 109031XX=XX*X2 1100IF(ABS(X).GT.1.)Y=1.570796327-Y 1110ATAN=Y*SGN 1120RETURN 1130END 1140@SQRT@ 1150FUNCTIONSQRT(X) 1160Z=0. 1170IF(X.LE.0.)GOTO20 1180Z=1. 1190DO11I=1,25 1200ZZ=(X/Z+Z)*0.5 1210IF(ZZ.EQ.Z)GOTO20 122011Z=ZZ 123020SQRT=Z 1240RETURN 1250END 1260@MOD@ 1270FUNCTIONMOD(I,J) 1280K=I/J 1290IF(MOD=I-K*J)RETURN 1300MOD=-MOD 1310RETURN 1320END 1330@IABS@ 1340FUNCTIONIABS(IX) 1350IF(IABS=IX)RETURN 1360IABS=-IX 1370RETURN 1380END 1390@ABS@ 1400FUNCTIONABS(X) 1410IF(ABS=X)RETURN 1420ABS=-X 1430RETURN 1440END 1450@RAND@ 1460FUNCTIONRAND(IRN) 1470IRN=IRN*899 1480IF(IRN.LE.0)IRN=1-IRN 1490RAND=IRN/32767 1500RETURN 1510END 1520@SETRT@ 1530SUBROUTINESETRT 1540!$7E,@09 1550END 1560@CONNEC@ 1570SUBROUTINECONNEC 1580!$7E,@0C 1590END 1600@TRIGGE@ 1610SUBROUTINETRIGGE 1620!$7E,@0F 1630END 1640@DELAY@ 1650SUBROUTINEDELAY 1660!$7E,@12 1670END 1680@BI@ 1690SUBROUTINEBI(K1,K2) 1700!$FE,K1!$EE,0!$A6,0!$FE,K2!$A7,1!$6F,0 1710RETURN 1720END 1730@BO@ 1740SUBROUTINEBO(K1,K2) 1750!$FE,K2!$A6,1!$FE,K1!$EE,0!$A7,0 1760RETURN 1770END 1780@MPUAND@ 1790FUNCTIONMPUAND(K1,K2) 1800!$FE,K1!$A6,0!$E6,1 1810!$FE,K2!$A4,0!$E4,1 1820!$FE,MPUAND!$A7,0!$E7,1 1830RETURN 1840END 1850@MPUIOR@ 1860FUNCTIONMPUIOR(K1,K2) 1870!$FE,K1!$A6,0!$E6,1 1880!$FE,K2!$AA,0!$EA,1 1890!$FE,MPUIOR!$A7,0!$E7,1 1900RETURN 1910END 1920@IEOR@ 1930FUNCTIONIEOR(K1,K2) 1940!$FE,K1!$A6,0!$E6,1 1950!$FE,K2!$A8,0!$E8,1 1960!$FE,IEOR!$A7,0!$E7,1 1970RETURN 1980END 1990@ISHFT@ 2000FUNCTIONISHFT(K1,K2) 2010ISHFT=K1 2020K3=K2 2030IF(K3)10,20,30 204010!$B6,K3+1!$FE,ISHFT!$64,0!$66,1!$4C!BNE*-5 205020RETURN 206030!$B6,K3+1!$FE,ISHFT!$68,1!$69,0!$4A!BNE*-5 2070RETURN 2080END 2090@WAIT@ 2100SUBROUTINEWAIT(J) 2110!$FE,J!8!$7E,@15 2120END 2121@EOF@ 2122FUNCTIONEOF(J) 2123!LDAA$E8!DECA!LDXEOF!STAA0,X 2124RETURN 2125END 2130@EOFTST@ 2140SUBROUTINEEOFTST(I) 2142CTHISSUBROUTINEBRANCHESTOAFIXEDADDRESSIN 2144CROUTINE'RTPAC'TOAJMPTABLE. 2146!JSR$203C 2148CFIXEDADDRESSIN'RTPAC' 2150!LDXI 2152!CLR0,X!STAA1,X 2160RETURN 2170END 2180@KCFOTB@ 2190FUNCTIONKCFOTB(J) 2200C***RETURNTHEVALUEOF2**(J-1) 2210!LDXJ!LDAA1,X!LDXKCFOTB!CLR0,X!CLR1,X!INC1,X 222010!DECA!BNE*+3!RTS!ASL1,X!ROL0,X 2225GOTO10 2230RETURN 2240END 2250@MPUGTC@ 2260SUBROUTINEMPUGTC(I,J,K) 2270C***I=BYTEKOFJ 2280!LDXK!LDAA1,X!LDXJ 2290!DECA!BEQ*+5!INX!BRA*-4 2300!LDAA0,X!LDXI!STAA1,X!CLR0,X 2310RETURN 2320END 2330@MPUPTC@ 2340SUBROUTINEMPUPTC(I,J,K) 2350C***BYTEKOFJ=I 2360!LDXK!LDAA1,X!LDXI!LDAB1,X 2370!LDXJ!DECA!BEQ*+5!INX!BRA*-4!STAB0,X 2380RETURN 2390END 2400@OPEN@ 2410SUBROUTINEOPEN 2420DIMENSIONIBUF(40) 2430C***OPENSAFILEFORI/O 2440PRINT998 2450998FORMAT('ENTER:"INPUTFILE(S)";"OPTIONS"O="OUTPUTFILE"') 2460READ997,IBUF 2470997FORMAT(40A2) 2480!LDXIBUF 2482!DEX 2490!LDAA#$0D 2500!STAA80,X 2510CJMPDNIT2IN'DISKIO'..MUSTAGREEWITHTHATABSOLUTEADDRESS 2520CWHICHISINAJMPTABLEIN'RTPAC'. 2522K !JSR$2039 2530CNOTE........ 2540RETURN 2550END 2560@KSCAN@ 2570FUNCTIONKSCAN(KCHAR) 2580C 2590CFUNCTIONTOSCANCOMMANDLINEFORACHARACTER 2600CIFKCHAREQ0THENNEXTCHARACTERISRETURNED 2610CIFKCHAREQ-1THENSCANISRESTARTED 2620C 2630DATAKCL/$2B51/,KCL1/$2B51/ 2640C 2650IF(KSCAN.EQ.-1)KCL=KCL1 2660KOPT=0 2670KFND=0 2690C 270030!LDXKCL!LDAA0,X!STAAKOPT+1!INX!STXKCL 2710C 2720IF(KCHAR.EQ.0)GOTO35 2730IF(KOPT.EQ.KCHAR)GOTO40 2740IF(KOPT.NE.$0D)GOTO30 2741C 2750CNOMATCHONCHARACTERASKEDFOR 2760GOTO900 2770C 278035IF(KOPT.EQ.$0D)GOTO900 2790KFND=KOPT 2800GOTO900 2810C 282040KFND=1 2830900CONTINUE 2840KSCAN=KFND 2850RETURN 2860END 2870@OPENOF@ 2880SUBROUTINEOPENOF(K) 2881COPENANOUTPUTFILE 2882CK--ARRAYOF10CONTAININGTHEFILENAME2BYTESPERELEMENT 2883C$28BBLOCATIONOFOOPENROUTINEINRUNTIME 2884C$2BB2INOTFLAGINRUNTIMEMUSTBECLEARED 2885C 2890DIMENSIONK(10) 2900DIMENSIONK2(15) 2910DATAKSTRT/$203D/ 2920DO100L=1,10 2930K2(L+1)=K(L) 2940100CONTINUE 2950K2(1)=KSTRT 2960!CLR$2BB2 2970!LDXK2 2980!LDAA#$20!CMPA0,X!BEQ*+5!INX!BRA*-5 2990!LDAA#$0D!STAA0,X 3000!LDXK2!INX!JSR$2859 3010RETURN 3020END 3022@OPENIF@ 3030SUBROUTINEOPENIF(K) 3031COPENAINPUTFILE 3032CKISANARRAYCONTAININGTHEINPUTFILENAME 3033C$28BBLOCATIONOFIOPENROUTINEINTHERUNTIME 3034C$2BB2INOTFLAGINRUNTIMEMUSTBECLEARED 3035C 3040DIMENSIONK(10) 3050DIMENSIONK2(15) 3060DO100L=1,10 3070K2(L)=K(L) 3080100CONTINUE 3082!CLR$2BB2 3090!LDXK2 3100!LDAA#$20!CMPA0,X!BEQ*+5!INX!BRA*-5 3110!LDAA#$0D!STAA0,X 3120!LDXK2!DEX!JSR$28BB 3130RETURN 3140END @*THISTRANSFERSALLNEEDEDDEMO.CFPROGRAMSFROM1TO0 COPYDEMOTEST.SA:1,:0 COPYDEMO.CF:1,:0 COPYMESSAGE1.SA:1,:0 COPYMESSAGE2.SA:1,:0 COPYMESSAGE3.SA:1,:0 COPYMESSAGE4.SA:1,:0 COPYPRINT1.SA:1,:0 COPYPRINT2.SA:1,:0 COPYPRINT3.SA:1,:0 COPYCOPYDEMO.CF:1,:0 P $0200"""CN0"""DK0 SA  ""# DK0SCRATCH SA!!SCRATCH SA] &*]L ?$ _? |\~$b9]$l&l9_'2&.$'? &9$5,_l&l%o97aƀ## $ $2%3a9# $ '$7& 9   O & '67a@## $ 32a9]??_'j??\&b] ?(]c#caa ?_SA ?(_caa?_?$? ?]ca?]a_ca?$? ?+&,? +%"$&(O/L.&O,-' +'-&&-','$7"$@,$@+? ,H_%JZ[Z[ZZn(d((()$%%)H%)))*"%*`%%**%%%%%+XZ[Z[ZZ9$7@$@0 *5$4&~$'&'0 &$7 !4&$4$@  l& &'& &$@ &$7  !% 4}&44&$$@ 4$@ !%44&5&~$745~%*+! $%-*+%A+[%a%{$-0+9.-* *,9,-&/ +&.-&,.HH.H.&O~&/'.&.9$< <~$I&O6I_%,' I*|I 2G'GH#"GH 9 9+? 6I' $@Z&"$@~$7GGH#"%'0RGH#"R%T6R_%T&' |R G9T'GG "&()%$% $%%6&'%2$$&& & &&'%0 N*+! % *+%6NO%2N N* * N 0 *9"J/&.&8J J|..'JK%L& JJ9JJ9L &z.J J Ж.&9JK%L&9 &z.JJ ݍ X.&'! $6#,'-&'%,&&, &&'! $ |..2&&'%9"~$&GH"#I$%~)H/'"#.$_"#' "#.NO'&%&$ N$ N& ZZ[ON%NO%#mNN &(h& &~$b&O,'Z}'V"$&>'&N $(NO#"% NO%6$%%2N N$ $ $$"#%,"" '~$'J$$%#"$ "N$"N$' ۽'J" Җ/'$" ZZ[.%"#."# " "#.NO'&$N" &" ٽ&$x 2'&"(h"&&& &'~)E? %`& җ."&(  G/.&9'J$"N$ ZZ[ON%NO%#mNN ~'&GHI"#~$~$'JN"'J"#ON$ NO%N"#%N',$@? % "#%PNO%P' $@? % &" " ???? CAN'T FIND "\#?%/?%+a##ca?&]' ? ?###H#?$_? ?#?$;&]+ca?&+&R+&]oo?%"#_9' _#Hca?&]+|\#>?%?%]9#?##? ?+$X?0$ ? _~$b2"&9 MDOS EDITOR 2.0 COPYRIGHT MOTOROLA 19772-LLNS2z'~,~,6K2@Lm&D6gPC b !22>U2