IMD 1.18: 11/10/2014 14:55:52 mdos 6800  MASTEREU0300010479RASM ASM EDIT RLOAD \l|?BINEX CMrLIST CMrIT RC,MDOSOV0 SY\rDIR CMHrMERGE CMrRLOAD CMTrTEST SASRF2 LO(MDOSOV4 SYr SA8 SA8MDOS SYrMDOSOV6 SYrRASM CM@rBDEM0 LO\FREE CMrROLLOUT CMrEQU SAeBASIC CMLrTAPESFT8SAHPESFT8LOlDUMP CMtrEXBIN CMrNAME CMrBDEM LODMDOSOV1 SYlrPROMPROGCM(PATCH CMrTEST2 SATEST2 LO SA4BLOKEDITCMrECHO CMrLOAD CMrEDIT CM(rASM CMrEDITM CMrTEST1 SATEST1 LOMDOSOV3 SYrMDOSER SYeDEL CM0 "!' ]'~ ]&& "'~ } #&~ ~ ,_ HHHH?( && # $ m&~  "& & 0  ? "'B_9 & ?'0 && ~  0  ?'~  "D'~ & '~ ?0  &0?"$? ? & '~ "!'~ &\0 #'  $ &0 "@'o o ooo?!]''?'; ? ?_B  &  ?0* "'~  9       DDD   } &? ? 9'u09 ! _  %*_  Yz !&VFFFF# "GY9' V$]'~ &Ġ''P& &' '00@&?$ &~  ? ? &~ ԗ'u0 & $x&l&'(?)% (&$~ (Š& '?(%*7%'*  ?/%?/$,''G &C&7Iŀ&* ' 7}n76./76~m I '2m '%''0n&'0,-0&_9 90  9    $"#0!?9S$z,9?$&?/$11 (?&?/%9  &ŀ' ?-9Š&   ?.9 900"$uv&9$v'# ((? $u'J))$|(911~ oc' 9Š'9& SS90}629,&*ŀ'Š&9S  #Mnp{' {j?' &&l  ; 7_HY?) ?# * '>&0'Z\'+ } &| J"?(~> m''?' |&|76   $! 9 ? . ? :9$|&99G$| 0 ~626 29DDDD09#90 T138 "#$ %&'()*+,-.5TtINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYs 6 6 6 66*0$j_\$8HGD6@?% 20 229V S ~   '  / /·| ?$~k &_ ?9S ? ?:S 9FF$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   ss~~' ?   '; Z9 ?_$~?'  ?'~r.&.%,]%.& %  l l~]$~.%' &~4']$ &~?&$ &m &m ' ' '~. &? &ƀO?Z?1?1 ?m+ 'K_ $?,?) &~  &  _?&$?,?(~&^XXZ?'gʀ? & _9 ۽XX?'~ 9      &~t?'~vTTT-#~?XXXX?''~o o m*~K?* ?~K.%SZ& ?0?0*~%R?.&ǽʀt?)' oo ?~?(~$9 ?( 9TFVFVD6YYYO FZ,299$ 9g|WW\7g?%39ZXX7g?%3O?*9?-g?)9?m+ \:/11~'9  D\5  "%(+.14 D6   p ss~~~~~ ~~ 9~~~~~1~N~N~0909X0o8]''d*&ց.&PƂ8]' *&ʍ:& 0?8 0?090 ;' ' 0 l&l9u #'zƀ ?6 ŀ& '@'?$ @?%?0]'Z0Y?%0 ?')760' ?0 ?23*&  ?$?$*1906?290?ƈ8~'6'-  ?-?&0 )?&?)  ?/%?/$ 0_2W9 @&- $*?%$ ?%'?/' ~~~'DK&~ߦJ0 %A]' ?(Z '0  @ ? 09 0 ߦ $ ?(z& ~6 @''  oo  29'~Z '~]&~]|'''~`&'| &&o o  's$~c?@}&~'~}*~9%xl&l&' &}/%}& |&ĽG 0}& }'7G3%!&' &  $~T~$6~T&%}'  '!}, & '  $~T%~i}&| &P9 %}. %9E}+ H}'D$~TO}+ ?.]'~f$L}&| '%C}*~r~}'7TTTT3% 90:%9ʀ  ' 73]' 9z&}* VM7K$>0 1 ' G$ 9 9W}*7 _ 011n~϶?}& W & }*] &9 |b}*0 b}*9OZ& 2OZ&  ORRETURNSFROMPROCESSING * GET$EXEQU* GET$EYTSX LDX5,X STABIOCSTA,XSAVEERRORSTATUSINIOCB TSTBZ=0FORERROR SECSETCARRY RTS GET$EBLDAB#I$CLOSFILENOTOPEN BRAGET$EYDON'TTURNOFFDEVICE GET$ECLDAB#I$DTYPINVALIDDATATRANSFERT`~~ _'~͆&~ц &$~}&'''~~'| - Z.$~ܽ%_ %$~}'Z& 'M&ZJ?%$~&~&(%?/'% '& &8}'}& $~}'~}'~o_9'&|]*' z' ~4%$~}'H' ' E&| D' }&t&ip%}&~}'&}'&z' p%} p%}}&̽%% &&'m&jj~ن 0] 9  0 &}&   7399@  9冀 %%%"$1111~XXXX[%% %[ 90%% *% 9}+%90997 &39 % 9?/9}&M&ZJ97%3g9399 !8~~~'~  & o_9''  '~v''&?8'~@'X &'L&]'C?/'=ƀ?'?$?/?&% ?$#$?/%o  ?ߤ]'~oo&~ &Q'~ DDD-#~   ? XXXX?'?  ? ?'?"%~0] 9   &0o_90?&ZTTT-P"L ?0XXXX?'''0 ?'6 ?20?90 9  &~0' &?$~'M  Ƅ'~&&ǶƧ ?_9?%~' Ƨ  ?'?'??@?%!?dž&~ 9   ??9̈́HHHH?(VVV9#H  ~.&~dž@ &~O0.''~0&.~Ͻo_90'.?'&~~|O 0 &~ӽ0&~B. ?'?$' ? ?.&~~.' '~oo oo!"#$3. 52?5*~ۦ. 5:m+Z&~.~P}O'~P?6'~m ' ?'3.5 3?&.3. ?'53?~P. .?' ' ' 0@&~ӽ.&0& .62'& 0&~0&~6. ?'?$&~&~&~ ? ?.~' ''~}O'~P.K.M. ?'?$.?%?'?$.?7KLMNm&~S~0&~φ``&~0] 9            !" H&911 .90.$11~9%X  ~~+hAs@&LOAD=MDOSMAPR:0,CMDI:1;MO=#LP;MAPF;EXIT OBJA=MDOSOV6:1 00;LOAD=RLOAD:1 D:1  END CHAINHHHHC'1~? $0 9- - ?' 9? %A@'C\&0$ ']'Z 09)~9*'..'*J'tC'fL'_S&~dT'%2 6'A? 2.&4(? ? $~C #6-?/  ~2~k |~A@L&A& Ҷ O 6?&%2M' &A? _?A9 &4'3~+4 '?& ?&? ~~a?'6(2&9 ? ???oo0+( # + . 7xyZ&3Z&9 'x~ !j?o_!e?!h!;&%!h !>&!j!!l!j?' RI S ? '~ U~ H @'E @' {'3j? , ?%?%E?%?%j?%?%!5? =3O? ? _3!A!E!C0CM!N!A?]&5!E0-.3.*!A!E?'''' ? ~ !^? ƀ?#~  MDOS . !q!WHAT?!q!nD32JUMP2 OBJUMP TABLE FOR OVERLAY AREA 2, OVERLAY 2$ D(30GETFD$0GETRC$0OVH2$ r D4~~ D5  m D6 DISK UPD$1EQU* LDXCDBADR LDAA#DD$LOG BITACDBDDF,XDISK? BNEUPD$12YES JMPOPN$EFNO-INVALIDDEVICE *MUSTBEABLETOD ) 0B01COMMANDSYNTAXERROR 0502NAMEREQUIRED 0603\0DOESNOTEXIST 1B04FILENAMENOTFOUND 0805\0DUPLICATEFILENAME 1A06DUPLICATEFILENAME 0D07OPTIONCONFLICT 3008CHAINABORTEDBYBREAKKEY 3109CHAINABORTEDBYSYSTEMERRORSTATUSWORD 1C10FILEISDELETEPROTECTED 2411DEVICENOTREADY 0E12INVALIDTYPEOFOBJECTFILE 0F13INVALIDLOADADDRESS 1314INVALIDFILETYPE 1F15\0HASINVALIDFILETYPE 1E16CONFLICTINGFILETYPES 2717INVALIDDATATRANSFERTYPE 2218DEVICEALREADYRESERVED 2319DEVICENOTRESERVED 2520INVALIDOPEN/CLOSEDFLAG 2621ENDOFFILE 2922BUFFEROVERFLOW 2A23CHECKSUMERROR 1524LOGICALSECTORNUMBEROUTOFRANGE 0725INVALIDFILENAME 2B26FILEISWRITEPROTECTED 2027\0ISWRITEPROTECTED 0928DEVICENAMENOTFOUND 0429INVALIDLOGICALUNITNUMBER 1230INVALIDEXECUTIONADDRESS 0A31INVALIDDEVICE 1132INVALIDRIB 1D33TOOMANYSOURCEFILES 1634INVALIDSTART/ENDSPECIFICATIONS 1735INVALIDPAGEFORMAT 1436FILEEXHAUSTEDBEFORELINEFOUND 2837ENDOFMEDIA 1838INVALIDLINENUMBERORRANGE 1939LINENUMBERENTEREDBEFORESOURCEFILE 0240DIRECTORYSPACEFULL 0341INSUFFICIENTDISKSPACE 1042SEGMENTDESCRIPTORSPACEFULL 2C43INVALIDDIRECTORYENTRYNO.AT\8 2D44CANNOTDEALLOCATEALLSPACE,DIRECTORYENTRYEXISTSAT\8 2E45RECORDLENGTHTOOLARGE 0C46INTERNALSYSTEMERRORAT\8 2147INVALIDSCALL 2F48CHAINOVERLAYDOESNOTEXIST 3249CHAINABORTEDBYILLEGALOPERATOR 3350CHAINABORTEDBYUNDEFINEDLABEL 3451CHAINABORTEDBYPREMATUREENDOFFILE 3552SECTORBUFFERSIZEERROR 3653INSUFFICIENTMEMORY ON-FILEFORMATI/O LDXCDBADRGETADDR.OFCDB LDAA#VD$NFF BITACDBVDT,X BNEOPN$28 JMPOPN$EFINVALIDDEVICE-NON-FILEFORMATSPECIFIED *BUTNOTVALIDFORDEVICE PAGE * *INDICATETHATFILEISOPENANDCLEARSTATUS OPN$NREQU* JSROPENF OPNNR1EQU$-#($ $0300  _"""g"")1#5  "_""# SYNTAX ERRORSYSTEM SECTOR COPY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEBACKUP FROM DRIVE X TO Y? APPEND FROM DRIVE X TO Y? DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINVALID TO COPY/VERIFY FROM DOUBLE TO SINGLE SIDEDENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DRX- DRY-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER  O?w.#).#1) & & 110) 1 &1 10&~$ݖ)'!l!"!q!")1ׂw ' '$;&`Y%A' %k& JY 11!+!Z&!u0$ ? Y'?)u 1u !.~%k~' ? ~1>? ~1>!&J!9!&L !&߆   9 |%9|#(9|&9|"9|$9'&z'#- ~.S'&|' #" $ $A$C$D%I%L% N%R$S%U%V$Y%Z%3+*~1$&/97/QM??$HYIOPO}!*DVOPDVFNMST_?/"m!+/) *,&*,&%EMQ|-7&3%5Z&$'4*O,+,-?-$?),Y&Y&~1.~1$~1OPTFTF[\Y*,9HZ&;~+}, ~*+}`_G |` . .w 'y "/|_ I&̖_&!~0$!Ƚ0$cC? ab Ub.'XX`"[}b'c%Rd cd|b-'6a'!_cHY?%?1?1?*G?)dcLƪ ?'J&2,' &a&|aC C &9,~* '~+hS'D&e_C SA  .{|&f]*'_6 2&V6_'yT$ 7 +m3T$ ' v`Ga c cca'*&!aZ& eS'  ?f|` ?'aI&`& ."/2,&~* & _&|_~*~), &*?9Z&9f'Gƪ I' m + ?( 9w  E0y w? .&&"/E?%{ *,4K/=02%e_-A' _`?)_j E_`0 lm?%~,'~,̖!D% ""'+/ 0$"'+7' 9ƀ!~1)Cc? N'Y', ý,!? Coc? &E?%B,?%A c E .{]&Ł & w Eyw ? .E,~,!=Ƃ~1)Ɓ!~1)jklm 9 Ž0$Ɔ?#9 6I/7E *2)02%K+ 6I+ 22&Ku?'wI?'y w?0Y%)E 2K=-??A A-A_`?/%- OP?/%-  _-- ڽ-A&4'0Y9,?$A?-A?*?)?_?-_4?)402,-TFV72/?)/90Y4O_I/9A=/ $9? / %n&?'nA?'A== >?(>oJ&9 y w? '~$ֱ &  ' 0,~$3.9rwyrw?9r{}r{?9   ?9.S.yyw?9 6....1@29 7rW%1%W1XXZ&t2tr]9uU uUUu9 '97HYHY?%2|I9?]&91*2,402$~/%&~/ؽ,!/'# .{]& &7y ww? ,!e'&?%Z& &7 ?'yw? ,!8'0_ ' -z.\ "77?(yw?3'y?0Y%9? w? ]91$#'2? %9?2 '' (Z& 6 ?52:(?3'?4 ?5 ? %? ? %9~1.n .Si$0&*,-?)*tn9n .S$0%&245?)2tn91>1'4'7-9#Mk1>o'6 p&0zo&3 '4&]*7 T$7* <n3Y 9o p 9  ƀ?' ?.?)960? 296? !ƃ Ƅ  ƅ?#0$#' z(' ?5 ?]'/l&l1s1s #0m&jj1s Z&1s96dfJ&296hiJ&29A% 62% 0%62%94'!~!'(o'')(e? Ɓ?#*'&~!? $~ u(}? %'N&~"Y&(? &'? ]'')%'& '_?/# (? @ƀ?# (? &'? ]'')%ٶ'&'+*?/#''?/#~"{'')g&0?('?'''?/#(? &0,?'-P?'&0'!'?'&0'!'?!'r$ $#@~!DK&&&?& ?.& ]&6? ??) &7 ( "0300DK0LO ) B !'DK0LXS0   !0!!?]'~"6! ?2 ' !!?'~" '~" ??$?/$6~$c ?) ?&g|0?&`|0 &W  ?&G % # & . ! !! ? ?&|0?&|0 & ~$c~$b ,) *#O)## !!!!)#z!&.)#!!)#!)##!' 1 " *~# }"&"#': #&%'1" ?'~$b? %Q )) z"#&&&$ # -'$ 9 ,) *#.)#/)##  ~$:,C)#* ?'~$b9,&) ')-9),,($g**z-9-6,C)* *2) ?&9~$b? 0'"J'J'J' ?'_? ? ? ??_? ]'/l&l$$ #0m&jj$ Z&$96dfJ&29ECTOR NUMBER COPYING FILE . MDOS.SY DOES NOT START AT SECTOR $18 WRITE/READ TEST IN PROGRESS TFTFTFVFVD6YYYO FZ,:X 0300#&P##?' '~"~"&u##?'' #X$~"&F?'~"?&'~"&k?&?&&F"'% '~""&3#&#  #&&? ?|&2&|&1 '*'"&9&F"' '~"|&2&|&1"'&o&H&q&k?&|&4&|&3 A,~!Z"0&7S&@A&A&J #&7##?'"~"&& &?&+?&'D&K&&7#&# #?&?'"~"?&&&&&u&"~"'"~"&5&6&7&&8#&##?&##?&? ~ `0-9#"~"&'"~"&J&H#%#&B&D&H & -&&H#%#&D?$&B?/%&B&6&5?/%&?'~"&5&6&"' &? &5 =|&6&|&5&5&6&B?/%&&o&&q&k?&|&4&|&3&D&5&6?/%&H &~ `,' & " ~!? "?? ?     6 &k"&F"&"9"?''_? "?''_? 9"? $"?"?9"&1#$+##&$'? "9&H & #_0-9#]& 9\. &H#'%)#' 9&??$HYIM&" 9DVDVF##&&&&##?% && & 9 $/%/DK0 SA#$&DK0 SA%0&0DK0 SADONE. NEW FILE LINE COUNT IS XXXXXCURRENT SOURCE FILE IS .SA:0]&~'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 &*. ", *;&"& *"&*  'Z|. -'I"""ہ,'-&J6 '* &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&d#ƀ~%3#-Ƃ /'7^& "!ζ!?-?$8"߽*|" ""۽*|#&? ~$58(~&@,~$0@ @A)!+&BB&~(C&~(D'"( ?h %0300 MDOSOV5 SY!!!!"?DKCF "e"DKCHAIN SY"#4   } }"fHM"@ !! ! "]"_ 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#!?'/~-X!! 'O+ ,M? &NN!PN?]&~& ~&<'B!' N&/!ׁ &("J?%$!')N&?#~-#~-X# ~-XO+ ,M?&G ' RR' R ?&. ! ! #,T! ! ! _!? ~-W &N[ 'M;' &=N O+=$0'. '2,'%&"_N, '%'\ &N ,%& 6~-X?.g ?.73%!TFTF?)"_ !?)"a "$!?&| ?& | "@?'~-W| ?&| *(+;? $~-%((!?' &\~*!["e],*&/&ѽ,u,*'[AB' @'/&,u, \'%'= 'T\&, ' ,u, ~-W$$? (N$"PN-\$? !? ~-%+=$'ԁ%&]',uZ& ,u"e@'#/' "@?&~&׶"f*'( @"g? "j] & [,[ ["f.'Á*'"i ' ,' '~'M(A7##-3'7#?'3(A'(Z&$8~'P=nELSE(nIFC (ZIFS (ZXIF (zXIF (zABOR(CMD(JMP)LBL)5SET)VTST)uO*'(*"f~&׍"I&0** ** ~-%;;';9;+' ;Ā9$h~'P"i[,[ [N+=$ ')"hC' "hS'N.' ',& N& &9$I~'P[O&N ' FF& *~'$~'PO+$' &]'+ ) O+$'؁ &]'+ )~))%, &P* "i**~)~))%*M%E ', &**%ޖS*N@'T?SRN*T*R~) LH?'" JH-L9_"i,&<,6, ' &;,[ [2W'S'T'M&  RNPsNsO 9 9|REFzR' HY$$~'PP&Q&?%T9,,*z&' *& 9S, ',& 9EQ'NE&GT"LT%GE$LE#BSBC  6H#,J,uZ&2~,u;+'$~-# "'+*+ $ !??+"@?'&,? "Q"Q"_"]  #%,#,T~%~-WG H"LJ_&?*$?/%#~-#G H&LJ }_,+' '\ _ 9]'6HJ'&##-'0# 0. G&##,Co?$L_2M 9=2 9L?(9 '.' ,'%' 96_!?! ! ! ! ! ! ! !P !! ! #,T2M& ?2 ?&?3 9-W 99VVVV9Y]"' "F]Y9%~-#Y[ Y[[Y9 '9 7VEݽ.L%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.2.2 #0m&jj.2 Z&.296dfJ&296hiJ&29A% 62% 0%62%9G 0300),{))?'&~!# &~',|DK&~',y,X,X,))?'&  ',DK',,X,X)_ 'W;'  )с 'G ',`&3)сD&=&*,))7?''o~'3 ',& ) m&~' ,['`'$@' &UDŀ',X',|''','~'&,X',|' ',' &~&' & ,&,',X'~$ ,&,{,,&,,,&,|),))?tS,['~',[PP' ,r,r ,,)i$~'/,[ ',))) )?,q?'~&?&,[@'~",,,,,,,,',,,?&?'},&},'&,, '3,q?&~" &,&W,,,?',,q?'~"),*U,,,?&o,u?')*K)) ?,,?&K,[ '"'C,q?'~&)),)) ? %'=})'B)ʽ(*?,,,?&~"~&*V, ,,*X,,',))'3,q#$)?/%~#,q )ͷ)?' '~&,#$)?/$,?&~$ &,'~",,),?',),*U,,q?&,?&,u?')*K) )?'(g& ,#$)?/$, )Ϸ)?' ':~&))))ƀ)? $~"?'(g&))))))~#))-!))--(4~",[ '~'ŀ'S,^,?,^$&~&&~'$&~'~',[',]6,\644446n ,&0,)i$~'/,X&~&:,|),)) ?,q?'~&?&,''~',['~''& ',x,,['&׆,, |)ն,[@&K,,,)4'?'~&?&'3,q?' &~"})& ,u,s'|),s,,?& CN,&~'+Y,,W,,[&|)ս''3)',q?'4 &)',?' &~"~&))-))-?- ~$})&,s')',?' '~%&})& ,'|),u,s,t?.L),,,?.L)$),u),)))? $~"?'(&~%CN,y&~'~',[',X',r,r, |),|,X' ,&SA,,),|)) ?,q)4'?'~&?&,' ''~',x,,X&,|),)) ?,[@'~%]'~%? '=? ,      , 6 ? $'=?9,q'h,&,&,',,,'h9'?''_? '?''_? 9,)4'?& ?&,? 9~&,?'9,ŀ'~'(,' '~' &,X& ,,&,['9,),))?,,,,,? )? )Y'ƀ?#'=?(3?5Z&9Ɓ?#,[&? 9})&(e)ʽ(*(e?5|))B-)97)˼)'))-!))--(437))--))-(3Z97)˼)'))-))-?- (437)))-.))-?(3Z9) ))-5))-)))-=))--#(49,X'))9H& R&,Y,Z @ o9U& D&,ʧ, ,,??$HYIM&" 9DVDVF)),,*V*W))?% ,,*X 9.$NCWB LV@DM*Z+XDK0  SA*Z+XDK 0 LO)*UVERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? RECORD XXXXXSECTOR XXXX OFFSET XX SRC-XX DST-XX]&~-l&l----ۆ---o%-l -67  0 'Z&32-l&ll&lj ,- m&jj-l&lj&-O9'd ]'/l&l.. #0m&jj. Z&.96dfJ&29  .G .Y$ 0 011n..oo<.9..4<..+ z.&z.& %0& .9.#O@ 0300O"%&" '.;' '|&  'Y&|" S&|% ' 9 "C"D ?"C""? "C ''/ "C ''? ?& "C&"L&}&& "C&"C"T!n ? $?"C!?$~!G!&!&%&"P &׶"P'Ɓ?##"#? D!&$"& """? ? %C"? ? %8Y&"C?$ ? ?#""#"? !J&~ " ';'~ F?!J''ƀ?##8"#8? ? ?&~!5O#$ "D&z# % &!9 &# |#"L'&"L&z$  &$ |$"L'&"D""" "?!9#+"D""""?&$*O J'"L" "L"9""D""?.""L"M:"C09 "\" DELETE  ? IS PROTECTED DELETED DOES NOT EXIST 0300H& O? ? '&;' ' ? ƀ?#? ' 'N&2?2 n?5?ECHO NOT AVAILABLE WITH EXBUG 1R  0300O$%&#L- $$$v0$e$f ?%$e%%? _% '@;& '5E&  $ A&  $$ ܁L& ԁS& ́ ' !$e$' /~#5$e ' %$%7u3%?$~#5$%$%%?$~$1 $e& '~" &&" "? $~#"$e?$~##'#&"J& !&$r &|&#!&~"$$p%$%%ڽ&O$v'('%$%%ڽ&$e$p%%Q%%?$~#5$%Q'+|$?''*$%$?)$$%$%%ڽ&Ö!&~"%Q*@Ƃ?#&.%$% %?~"00$ $?%Q)(''?'%$%%ڽ&)(''%$%%ڽ&$$1$ '$$?$'$Ì57&)+*@Ɓ?#&$1 ))+? $~#~" $$1"'~#9~!_+, $f&z+  &+ |+$n'&$n&z,  & |,$p'&|#$f%%%% ?~!&ƀ@?#&9$1 s' ? i&'!',$%&o%%ڽ'$%&t%%ڽ&&R$1&(''%&%%ڽ''%&%%ڽ&&v$1!'-Z'$J?$f%$%%?.$$n$9++$f%%%%?&,*O J'$n% $n%9%%$%%?.$r$H%$&$r9!&? 9z-&<-?49?2% Z' %?5?390 $%PDR  IVE : 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%/?%+] _]?&]' ? ?  @ ?$_? ? ?$C&Y)a_]?&)a&v)l&Yoo?%Ŧ@c[e9' ~(~([e @_]?&]+|X 6?%?%Y@c9 ? ? ?6 ?(m ?.7W 0300'''1''?&X_' ';& ' 'U& T&2 %'4,,(8'%! & &(+? %'Y'? ? !u$ ~!"7> + 17}*,3-(=? &0?&? ]'%1%/&'&0''?(I? &' ?'( ''& &'&&)#&')  ''?9&?%8&'&''&' &' &?$&'oo  9?* ?.9&?%? %&' &?%? $ 9&?&?9 '' ?%$'((+' ?'('''?& O9'ڜ(&&ڌ')&? 9 &? 97 ?$ '?%Z& 397 '?%Z&39&Ŧ&H'&0''&?&'''&?&'u?(' '?'&?9|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM   ''(o&&' MDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYDOSGEN DRIVE ? 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 NUMBER COPYING FILE . MDOS.SY DOES NOT START AT SECTOR $18 WRITE/READ TEST IN PROGRESS TFTFTFVFVD6YYYO FZ,29]'/l&l)) #0m&jj) Z&)96dfJ&29]'+)oo))l&l)%*Z&)9A% 62% 0%62%96hiJ&29 !DK0LXcDK0LO!&!]H $0300!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/,7)/}/&0u$? # ? c? + %,'~'D* 'ޗ *' *&~%"#*!B'C'D&0') ')''}/&*  '*B& & T" ' &N&F#ƀ~%3#Ɓ |+'&,*7'"H') &' ,&'ǽ*7' &H)#n %*;'/&I"(|,N~&@#aƄ #-Ƃ,!?#? ~$0)A@)?%)/~$0) *0-!3.6* &)2% 70u~$0#ƀ~%3!D&'&q("k?(')%"ƀ*f"3157~$0#ƀ~%3!+&B''D')7'-3/'5 D&'&(" ?(')~$0#~%3#<ƃ *;&"&$**"&* I & ƀ?7~$0#ƀ~%3-%)( ?('"ۖN& |N* &~'.)%.'*I* &~'"&*. ", *;&"& *"&*  'Z|. -'I"""ہ,'-&J6 '* &.^'/&& !̶!?/##2^& !ζ!?/"|-'"~&d#ƀ~%3#-Ƃ /'7^& "!ζ!?-?$8"߽*|" ""۽*|#&? ~$58(~&@,~$0@ @A)!+&BB&~(C&~(D'"( /&"m"ƀ*f3"51')7&~(_~(MC&'(%U')(%L)/'" P!D&>'&2)&.' 1(*"!?')?(' )1" #ƀ~%3" "*f"m')*?/$ /'֌&і0!B!()$~("*"*"`(? g9";"="*|9*|9 9 -z/.==;?L?&;M&? %'"(?&')''@&~(EzB&)~(;~$0?1% ?1%}/' 9}@&? 9?2 '' CZ& 6#?52:C?3'?4 ?59}@' CJ'# 9L)%`0!L"!"Ֆ0! !"?&=!ځ0-@3.<0ŀ&,"*f!"9 !DK!!?&?&\/7 9#S? 9~)? 9/'!?& O/7?& 9!_? 9"ƀ*f O/':'!1!M&? ?&!ݶ!HYHY'?)!߶!?-" 9!_? 9'"110"M&?9 ?:%9"60? 2 9 7OH_+*%H+IIZ&KQ2QO]96JDFJD?29 6*****29L% L%%L9 '9C%TF& L'V7O%LQ%@R%S'Q7U%YW%]'/l&l++ #0m&jj+ Z&+96dfJ&296hiJ&29A% 62% 0%62%9c( 0300H& O? ? '&;' ' ? ƀ?#? ' 'N&2?2 n?5?ECHO NOT AVAILABLE WITH EXBUG 1!z"U/!޹! !!ކ"U!?)'&|!?(z"U&!!"!!"!"V!!"$!!"!"V!!":!! d  0300%%%%?&S%%%%ED %?&6"' /u% ';' #$ 7"3% ]' # )? ?% & "$ %? !}%_??#' %_? ~ o#? %#$ #+%? %%% %?%#$%%? ? ~ #* %%%%%?%? !}$~ %%%%%?%? ? $?"Y'~ %? %? ]'%#%Z& %% ED%%%? %? %#%]&~!% % %j?% '% %%%j%%?%%r"%Z&@%v$_%~$%%|"'%%|)"'|)%_?'~"z%&'z%$A%?(Z'?'%L&'?O%$_%%%?$ ? %_? 9)&$ |)% %&ƀ(?#&? ?%_?' % %&%_? 9%_&? 9& & ? 9##$9%%%%?& %%%% ? 9%%- .%&9%? 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$%M 9 ? %X' & 9 9$L$'$A?(J%%$%%%?%$ ? %_%%%%i?$%u?(% %?%%i?9     $_$%%1 0 EDCOPYING FILE: NO MORE FILES COPY ? SUFFIX? ATTRIBUTES? FILE IS NOT BINARY &?)9&3&2_F$&3VFz&2&9$ %]'&D%)}%& 9O9'e#L'S' 9m&%%_ '\L#'. . %]'цL#'& &D)%%%%  h x #0300!&! !DK0LXcDK0LO!&! ! ! SOURCE FILE NOT ASCIIRECORD FORMAT ERRORSTART ADDRESS OUT OF RANGECHECKSUM ERROR !!?]&H6! ?2;') 'M! !!?&0 ':;' &)! ! &/' ' & ~& + ! ? ?'! ~& ??$?/$6~& ?) ?&| ?&|  ' !ƀ~&^~&&%J% "# ?/$ ?/# '~%' & ?$ ?/% ?/#!Ƃ~&^ ?--?$&6-?-5!!?&| ?'~&| !!?&5!2! ! !!!?&64 !5! {$z4&2'$('~&2? $~%' ?'~$Y&%J%: "#?.6HYI?%& '%0 !!?&!&2?($ ~& &%0~&p! ~&b?2 ' !!?&?39~&&&l ?'~%? $~% '&( 'rS&&0'ҁ1'9&_6 ''&%O*%%G&'&%;)%*%) "29'1'&%*$%%""z&&- 9 '~& 9!Ɓ~&^ &) && ~%N!ƃ '&%Ԗ*C%&2 2  29 '9 7/+ݽ&%+&,,Z&ɗ121/]9?#? 'J'J' J'!?!? ? ??_? ]'+&oo&&l&l&%&Z&&96hiJ&29A% 62% 0%62%9676&&&?%2329l8 0300'E& ? ?  _C'$1#/#:#/#<#:? #0&ӱ#8&#/0/3.#K#>? #N? #NY'?#KL . "fD'F$T}$& '& HH,$3 P,+4"O*_Z&Lm*\K\$)T*"нu$# --? %?)%$ "!! "},+J*x%$DDDD"+##@"'*J&΂p$& "І2~! `*΂"΃z΁΂''p|z"΃~@'"_'#_'''@'`΁Ƭ#L#'5'~!Ӷ*zzV#& ,+#~!vr$~ |"!"%~!R? 9+%#6>J9<>%+9'*J&Z&΁΂'*J&Z&9'"5#J_~! FORMAT DRIVE X? %'~O%&'q& '{'{?'{&?''s&R'&T'''q'r'_?.'{'u_x'{IY''&%'~?'~$'''''' 's 's'&''Ķ'?/$ '?&Ƚ&'''?/$ '?&'~?&?&|'j'j'Z,~#'O%'_'R'o'T'n'O'l'P'%~#^? %@? ? ?'  '    ' ' 6 '~%b'&'''''%b9%?''_? %?''_? 9o  03000!!!!!? !&(!&#!0,? ?3.!Ǧ ' ;' '  ' 'L&|! ! ?$6 !!u!!?;!!熀"U!ƀ?'H%|!&|!|!&#|! ?276!!ݶ!?/$!23?3!!Z&z"U&"U!!z"U/!! !!"U!!z"U/!޹! !!ކ"U!?)'&|!?(z"U&!!"!!"!"V!!"$!!"!"V!!":!!"!"V!?'!!!!?}!&!? ?!?59!'"T?5z! ! "5"" DRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~"l&l"""""""o%"l "670 'Z&32"l&ll&lj ," m&jj"l&lj&"O9'd ]'/l&l#,#, #0m&jj#, Z&#,96dfJ&290300#"##?#''~"z~"*'"0-3/~"v& "&SA"""" ?"###?]''~"" '|#""&###Ȧ 'P;'# ##Ȧ '9 '#m&~ !' Z,~ !7#ʧ#3#ͷ# #o#&~"z'!#&~"#'" '" & "#̅' & z#&"' & z#&"#"### #?"### #?? $?""#G""# rx 0300$?$M$A$??' '~"~"% $A$??'+~"%$A$??'*% #C%%#C%% '}%'%&%%% ?/%$? '{;'$? $?$? 'd 'H&|% L&|% ݁N&|% ԁF'~"۽"'$~"%)#"%$? '.&"'%%) #c"% $?~ $N$?%<$A$??%E$A$??$M%H$b??$?/$~"$b6S% 2&?( ?) $d$C?'~"?&'~"}%'%? %Kd? ?'%}%' L$pP$q$h?'~"?&S% &% $T$}%'$$G%$I}%'$?$$A%#$?$?%$C?': &/}%"'}%'}%%' % %%$(#?S% '%'~"~" '~"L% &:%#%$% ?/$-? %%#%#}%&~!L%& %%?/$~!$T }%%&F%9$A% $?% $?%%,$l%1$n$h?&B%2$l%$n#&1$(%%$$l$E$n%"#&|%%%%% -%%~"+? #?   ? ?     6 %%&%_$?$? '0-9.\# %% %&]'&f%)}%(& 9O9'e#L'S' 9m&%&%*_ '\L#'. . %&]'цL#'& &f)%%(%)%*#L&' 9$n$l$m?-_%?/$ $lJ?($n$l ' #%?$$I?/$?% ? $11~!$h?9$h$ $C$ 9$&?''_? $&?''_? 9%$l%$n$h7?3Z&9$%DK0 SACNPB PAGE XXX XXXXXXXX.XX:X  %JENTER HEADING:  ]&~&Ol&l&b&d&P&_&c&d&Zo%&Zl &Z670 'Z&32&Zl&ll&lj ,&Z m&jj&Zl&lj&&dO9'd ]'G&&oo &HY%5HY%1%+HY%'&l&l?%_%z&&O9 ]'+&oo&&l&l&%'Z&&9A% 62% 0%62%96hiJ&29vx 0300!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!"54~%"Ƃ~%%~%""ƅ -''7 ')9~%",%w #', %hE&S":8&S' EN&A"-. .', %>FE9:7& 8&&W' &X&"-2"s-2"? ')''? $~%""ƅ~%%,%'(!! .!!&!&"-2!./?-E"-2!!!x( 0300&V'&X ' '&V?''~%}'Z&~%~!&V&'&&?*|'[}'Z'']'z 'Z&-~%&\'ZSA0 '&''&''0-3/~%'?'' ? ?}'[&~% |'c~!}'['~!L'Z&''' ''~%.''\''x''y'']''z'~O%'&&'_%'a&'o &Z+ &' '?)''ZZX&?'''~ ''\'~%*}'[&/&'~O%&'_'`?/%'_%'a'b?/$'a }'c&A'\'#ƀ''~%5&'j''&& }'j'~%|'d |'j'j'Z-&V 'h;' &V 'XW&|'k&V '_(% -~%\ ]' &V?+&&ڽ'%&'a'b?/$~%"?$'_?/%'o'p }'c&B}'k&=}'d&8'&'&&?'''''? &? &Y'ƀ?#?&V'&'&& ?'j'x'&R??$?/$~%<&R?) &T'\&~#c&R''&T'''?'~$?'}'&}''&'' }'d''''&X&V?|'j'j'Z,+%%'~?' &?&?'~$'''?& ؽ%@?'a'_'`?-&?$&'n&چ?&'l'&''Y''?'~$?&6'{'v''l'{$z'{&2'{#'|'{? %@?2&Z'&''%'~O%&'q& '{'{?'{&?''s&R'&T'''q'r'_?.'{'u_x'{IY''&%'~?'~$'''''''s 's'&''Ķ'?/$ '?&Ƚ&'''?/$ '?&'~?&?&|'j'j'Z,~#'O%'_'R'o'T'n'O'l'P'%~#^? %@? ? ?'  '    ' ' 6 '~%b'&'''''%b9%?''_? %?''_? 9'hv'. %%?'hu'J%%$|%'hx%%?)%911~%.? $%@?96'f'g2 'h'eM&?9?9'&XSA'0'DK'&V?' ? %@?'~?'~$?&9}'u& 's't?/$'?'~$}'&z'z'''u?'''u9  1DK0 &Z&3DK0 SA&Z&XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+(oo((l&l(%(7Z&(9A% 62% 0%62%96hiJ&29}h 0300#"##?#''~"z~"*'"0-3/~"v& "&SA"""" ?"###?]''~"" '|#""&###Ȧ 'P;'# ##Ȧ '9 '#m&~ !' Z,~ !7#ʧ#3#ͷ# #o#&~"z'!#&~"#'" '" & "#̅' & z#&"' & z#&"#"### #?"### #?? $?""#G""#'?]'#' ? ?}#&~"?]':' ? ?##"###'?&##"###'?&|##'8# '# "#"##?# '# "##?""#'m& "" C" "#"##H"#"##?]& #' ~!f' ? ? ? ?  # " 0 #H#D@WS N XTOTAL ERRORS 00000--00000****ERROR 00000--00000**** UNDEFINED SYMBOLS bNARG bXL~XM&߹A;߲ߴ߶XL9ֻ&~(w !& ! $0300 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-2"? ~%"t-$' +. " $2 +w-$- 2"o-22+%, %7 "w"w-. #"? ~%"ƅ~%%+,0?.EF"{-2#? ~%"-F%++%  ~%""-2#? "ƅ~%%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&"-2"s-2"? ')''? $~%""ƅ~%%,%'(!! .!!&!&"-2!./?-E"-2!!!!G!+%, %JE!-. - z.!!)&|G!!!!!!&!? ? %G&~'D~%"|6+ 02,)&~);,֗<,֗=,֗>)'A' B'"ƃ~%%,ֽ)&-R;& <&=' ?'.& ??'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 # ܆ !? ~%"-R' ?'.& 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&/c%U/>VVZ&K2KI]9S h S h hS9 '9)./?))'?)'+%)&W'X&+% '()?/" 9 92}4&  29 6-P-Q-N-N.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%74%9"&, *>?(' }?(&&#w& 9 9'F7?"7.$ +7 K+7%7%74%8%n"%p%nx?'#"ƀO?8%n"%p%nx?+׽7 "7.$(!7%7$'F7?74%"&#ƠO?5,%.&&Z&~1G(=6f~1G&S&~1G'7(a7(7'SA ] % T%%?]&ށ &%, 7#x7;$~05 , 7o$( &, &'+)~0H _,%0%0 7 _?$(~0H p+&DDD)&SY h&D+%l%n `%p%n?&%nl?++& j'+V7 %l ?'%lm*½5%~0/+%n+{%p%n?%nm&+{7%n%nm*O675z$~3, "I7.$#+(۽7%7%74$(6f$|7~3"8g%I')7 S"I8g%Y7MS?'SM7o3% Z?'O7u$) "KI'%8gQZ?'MN?/"QOP?/%)+ K I#l' I@& S ?/%)N~1, ' "I8g?'KII8g% K')e ISTI#x& , &u~3'?$"?.t# , ')~ #m'J$FUzU&=#n'8ST?/%0O?/%)#p#r#s?/%#n#oDVFU?*%#r?/$) &|65%~1%47%87)7" 71$'7?!xƀO?I5z%D$6I=>?)I5$I&~5@IK5zD$ _6='|KIJ?)I& |L5$%<7%@7%D7)75z&~5_6%Hƀ7%L7'7%X 7%\7%d7*r75$~4'_6A''ݽ7%`7%d7*l7%T 7!I"xKMR ? OQIIKKH$*6M8|O  A& 7 ?'O2RRM} * ' zQ& &O '  7*(7 &1'4'3'2&66u33&~37%P7("#x71$(!7?3]'6u5%~3" 71$'7?5z% D$65$"7.$'4 %hƀ?'}%r&*7% 7;?*ǽ7?* 5 5%&' 9#&* !&&,?',+L&-|*(& 9("? $?#x71$(!7?#x,O+% 7%7%7,% ?'%% %$%8 %7% 7%$7,%((%*7%(7%(%(%*%*3Z&( '7$ % ( '& 9?2'7?37% &o,?("#x7;$ 'F7?|%r9H=O?"xƀO?, "7.$(۽7?"C8g%WEG?$8"xJ??}H* D'!x4 /!x3'==!''AAEEGG&C 9?(739?(9"O " $$ !M&?9 ?:$!60? 2_1' 8' 9'Z4&] 9??$&_?/$ * ?/9 97? 7? ? %39?#z" 9 97 c? 9Y ' N '' 9 98\^8\?9 688888|297.^^\?9 78V%8%V8WWZ&:2:8]9;X ;XX;9 '97HYHY?%2|I9]'/l&l88 #0m&jj8 Z&896dfJ&296hiJ&29A% 62% 0%62%9TFTFTFVFVD6YYYO FZ,29|uu+XHYHYwvz{67xHY & M& &S66~m? ~SM DD0E$%s0300$3$X$   UNDEFINED SYMBOLSMEMORY MAP NAME S SIZE STR END COMNCOMMON SECTIONSMODULE NAME BSCT DSCT PSCTERR- UDS COVPHSIORLOVGOVSOV MDS ICMISYUAEGAEBAEUIFUOIIAM- MDOS LINKING LOADER REV 00.00 COPYRIGHT BY MOTOROLA 1977#}$%R$%U%:9"###F*$%$3% $X$16? ?7 ˀz7&!"oo o !_?9?_?/$?$TFTF?-D ?/$ D ?/$ O§Z&#Z&L$ߗߙߛߝ$;CN o 9Ͻ9$3 ;?) $T$$&  ;?) $/$$ $3$wy{} O10 ##C##! 27#}83 '`;' 'XA83 '5B83 ',C-A&B&C& E83En-&%~'e8E83 ';' &7 %~'e 6 6#5$D& $9? 3#&?#9?#~9E&$~'=U&$~'=N&&~'=F'~'2&~'=_*)A&* X&)#83=&('~9~'Q &ȽA<1' $ ;1)'~(+& ,&Z&Y'0OP#" %#$##ZY#"% ####' &##?/$%!~'e####56&ƀ#6#XI$|#]'$|####65##%$$3&L#$$83$#L#O2})'X#X'6 "!2## '\&l<0})&C6566$ #{$z5&5)P65? ~&2#'$9$ $ O#L(D#~))'S0"#G_=?@7ROcQeSgUiWkߗߙߛߝ#OC ~':H'~'283='~'Q  ! ;Q%~'@P&۽83=&޽:!?'  ! $:& 83M&83_]&(&1'7 6&z#&~'::'~'Q ' ' ' ;'83 ~'@&~.g:!=&Ֆ>'#5D$:!*DY$0'4~9'=?>'##DY%/~9 &= ?'##? = &D ~'==,&-83A%*'&%&=83S&83C& 83T&98E9~'Qw c= =B%PL%&GFHEGG83='~+:!\&.}=&t:!?'mƕEFGF##&~':~'2?&#DY$@ &7 ###} '}=& DDPOF}=&g'T%& $ ~B~'Q~*6E2&M&~':N& &$'%*~'e#~'=F& #~'=T&~&~'2U&83G&&83#=&#:!?'# #DY%~'Q& }*' ?$#M&]'?/$%!~'e#?/$?%#8$;$3$' ;$;}&'?~dT&&~,<~'2E&83=& :!#?&~'Q?$?%2~':D' ~'2! !83$%>?=' :&* ~'Q838E;Q$$%:&83_M'\F&%83 ,' ;' ' &Ŗ>'0 "?&#%' (&1&~'20z#'  ,'~'@~-LOA,LIB,OBJ'MAP=IFO+EXI,INI,$IDO'IF=<"MO=K&G&->=  &9G&>='6 >= >  F@&CEƀL_IJKCLDDL'&TEE I>= K\HJ& eޑ? 'Eޏ=#A O@E>ޓA A # C## GH   ##%6C%1~'Y zF*~5p*6_HGHG3  ;E& =G GG  '.&.9 >='  '_JIC }='G?@})&~D"1I'JI%J _JJI7R "BCD?@CٖC?@K_B@@??zB+EGKK}=&GED KCD  ~8M 5  5  $ 8Z  $ ' 9$ ~:" ƀ$ &89 9\O  8Z$~9?  #'"  89 &7 9 9" $9]9ZO     9  M' '~: 9 9$ ;19$ #DK ;<19$~9]$0&~9\)'~9C}-&~9S$## ##&%'?  LEOCE#5u##787 D&OCE$## 9"O=#?7R$;09'~:    ~9$ '!$ ;$ ('O(1#7~&'S'MM&A9&? 9? ? ۦ @'?oo 9?9?9? ? ? ? 9? 9? 9? 9? o~97o ?'03? ~94O?>##D}4&.'$R>##?H'}4&.'$'$0H}4'# #' ս83_A%Z#90%9"\9O9&A?0#H83zH'0%9"0I##XIJKXIXI%KJI## ʁ$&?O##H83zH+0%9"0 A%F"7I##XIXIXIXII## =#5O >=787 D&=## ?9ϖ?99RO#:>& 9=:'8E$ -83_M'%\F' 4$0$~'Q#%(&W1'88 K%&1&(&~0 2&*#&# #& #&}4' #'7 Ȇ'83 9K&)$&!''@  $9]&z&99K9} &WIF#$&~'2<#~'LSA#$;@~':(&RO#$ ;)1 ' ';'83 &9? ~9F#8E83/#'/8E:>&~'QF:&:!?'/')# '~<6##F$&N&C' DKF ;9.&:v&# #:v$ #83  9=> E  P??A'20==?D$?zE& ? E ?AD ='? ' ?=>$}C $}NO$$} $ ?9=ѡ' =&~'2~'=F=U=-C@%S@*=-?$ $ ??ܽ@*OGA=&A' J'~?4 ?G|A A' Z&&C~>p&<~?BG&6$5? D& ?>u|G2 '-p&?4?ܽ? >u|G=D  P? ?B9? ?CzB& ?B ?~>nG&>G?$ $ ??  P??$5?D& ? ?? ?C?=B~>  ? $5?D&: ?=5?D$?? ' ?9G&0?$ $ ?     G=5 D$=OR "C= VU 'C= XW ,C ?~>n=5?D$?=AE&P??=9   $&֠'@@9%<9]z? $~'=9@ = &A<=$5  P?D& ?  P?A * ?':&- C? C?  $Cٽ??D . ?|  'YZ cdnm C? &='(OP C?OPZYmZ&mY' $C wx C?悦 $C?nm )Cٶ E&P ?? &9~@O O?EFAmndcYZwx&'<}''=>悗?@&'Mxw%Y%"Z$~BYZ 0&'@?@ZY$ *~B}''=>AC $~B=>OPFEExF '~AMEHG@F}'@?A A23?@xG%I}'7&m&OB˕IJ?7I4A=>C %FEE=>OP}'3tF& Q&\R$& '~B%!~'e%$ %' O=OPOPdc &&9: '&8:X> ?=}:' =@? OP@? D YZ>=$ &]'~B?@EHxH$JmZ&mY'BOP?":%@$4ZY=%(&>%"& CB'C?'?@A 9 &')&  ?"%@$ =%&>$D A 9 XIXI65XI65565956DDDD09#09#z6'5 9 9 9#~#542Z&17#~#95' D& 9 97& 957&75Z&p' 9D ̽D '&9 9#5D_x5IYEF-&s- E#'P$## ##EEFGVTTOˢLKF'DZ K' EFE Oƀ#?E###DCD#D#IJ#$ P#JOIJ IJ##=' CZ& G5CD&C7GI' EED~D9% ~9 %~9~9$&' &%' 9 !"#$ 90 "0300 ADDRESS MUST BE GREATER THAN $ START LOADLOAD ADDRESS:USER MEMORY MAP NOT CONFIGURED DOES DRIVE 1 CONTAIN A MEMORY ROLLOUT? INVALID DISKETTE IN DRIVE 1   ,00! Æ0 LO *.! **,%Է '~"E~" ;&~"S~"3 '~"o  ~"S '~"y~"   '~"~"y '~"~" %׽%ݶ '~"ն U'~"~#D'~"~$ '~"~#` %׽%~# &~"~# V'~"~#U'~"~# D'~#~# %׽%%׽%%׽%ݽ&&V &~#7**%%ݽ)ٽ) DŽ &2% 'B%ݽ&' #~#'~# #~# *(!j .! *!h*&&R*$%~#`'׷ '~#~#` N'~#~#`Y&~#ڽ%ݽ) DŽ &%'B%*"'  #~$A'~$ #~$A*(!j 3! *!h*&&R*$%~# * &~$f~$  *&~$|~$J%6%׽%ݶ ǁ1'~$%׽%ݽ&*%*% Y&~$%%* % !**w&~$*%%ݶ  & '~%~%Z  *% һ *% &~%Z~% * % һ *'~%~%_** ** o &~%~%%%?9? 9?9?9? 9? 9u9脽%9m%9i%90&~&!l* %׽%9 ǁ3"~&)%׽%* % '~&D* %׶ &~&Q~%9*69&q&S&qS'_  0}6299!`!a!d!c!f * % '~&%׶ '~&%׶ '~&* %׶ &~&% *% !X!Z!d!V!c!U*%!d!c!`!f9'~'N~'*%*_**  ** 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 L ]' IyFYIVx]&ƀ  xvw9 'Y'N'~d &Y'~du}& }&v t u脽S0Lw脽S~d'(((ǁ'N'Y'~%9')}& }&9 !l RLLOUT e)' 8 !h , F ]'/l&l*i*i #0m&jj*i Z&*i96dfJ&29!!Ӧ!!ա&!Z&9!!Ӧ!!է!Z&9&& LLL&&,&XM߼~'VENTER HEADING MDOS MACROASSEMBLER . COPYRIGHT BY MOTOROLA 1977 pr* *TURNOFFTHELISTING * OPTNOL PAGE * *MDOSVERSION03.00--SYSTEMEQUATEFILE--JULY25,1978 * SPC3 * *DEFINETYPEOFMDOS--RESIDENTMDOSONLY * MDOSF$EQU0.0=>MDOS,1=>OEMMDOS MDOS9$EQU0.0=>MDOS,1=>MDOS09 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 * *SYSTEMFUNCTIONDEFIN ITIONS * * *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/LF) 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 SEQ.DMA.DIVIDE(SHIFTRIGHT)MEMORYBYA 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 SEQ.MREAD.MULTIPLESECTORREAD SEQ.MWRIT.MULTIPLESECTORWRITE SEQ.MERED.MULTIPLESECTORREADW/ERRRETURN SEQ.MEWRT.MULTIPLESECTORWRITEW/ERRRETURN 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 RS EQU$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.CLUSTERALLOCATIONTABLEPHSYICALSECT. SC$LOKEQU2.LOCKOUTCLUSTERTABLEPHYSICALSECT. SC$DIREQU3.DIRECTORYSTARTPHYSICALSECTORNUMBER SC$DREEQU$16.DIRECTORYENDPHYSICALSECTORNUMBER SC$BBEQU$17.BOOTBLOCKPHYSICALSECTORNUMBER SC$DOSEQU$18.OPERATINGSYSTEMPHSYICALSECTORNUMBER SC$SIZEQU128.SECTORSIZEINBYTES SC$TRKEQU26.NUMBEROFSECTORS/TRACK(SINGLESIDED) SC$TKDEQU52.NUMBEROFSECTORS/CYLINDER(DOUBLESIDED) SC$CLSEQU4.NUMBEROFSECTORS/CLUSTER SC$MAXEQU2000.MAXIMUMNO.OFUSABLESECTORS(SINGLESIDED) SC$MXDEQU4004.MAXIMUMNO.OFUSABLESECTORS(DOUBLESIDED) 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/CDBADDRESS IOCLUNEQU10.LOGICALUNITNUMBER IOCNAMEQU11.FILENAME IOCMLSEQU11.MAXIMUMREFERENCEDLSN IOCSDWEQU13.CURRENTSEGMENTDESCRIPTORWORD IOCSLSEQU15.1STLOGICALSECTOROFCURRENTSEGMENT IOCLSNEQU17.CURRENTLOGICALSECTORNUMBER IOCSUFEQU19.FILENAMESUFFIX IOCEOFEQU19.LOGICALENDOFFILE IOCRIBEQU21.PHYSICALDISKADDRESSOFR.I.B. IOCFDFEQU23.FILEDESCRIPTORFLAGS IOCDENEQU27.DIRECTORYENTRYNUMBER IOCSBPEQU29.SECTORBUFFERPOINTER/INITIALSIZE 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.INVALIDOPEN/CLOSEDFLAG 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$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--BITDEF. * 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 FD$FMLEQU%00000010.BINARYLOADFORMAT FD$FMBEQU%00000011.BINARYRECORDFORMAT FD$FMAEQU%00000101.ASCIIRECORDFORMAT FD$FMCEQU%00000111.ASCI-CONVERTED-BINARYREC'DFORMAT 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 CDBLENEQUCDBWS T+2.CDBLENGTH * *CDBDDF--BITDEFINITIONS * DD$FMCEQU%00000001.ASCII-CONVERTED-BINARYISDEFAULT 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 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.#OFBYTESTOREADFROMLASTSECTOR CURADREQU6.MEMORYADDRESSFORDISKTRANSFER FDSTATEQU8.DISKTRANSFERSTATUS SCTCNTEQU11.SECTORCOUNTUSEDINDETERMININGERRORS SIDESEQU$D.-->SINGLE;+->DOUBLESIDED * *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(IF0) BRKPT$EQU$FF1F.MAID'SBREAKPOINTTABLE(8FDB'S) BKPIN$EQU$FF4F.EXBUGBREAKPOINTSINMEMORY 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. XRE G$SEQU$FF1D.MAIDS-REG. BRKPE$EQU$FF63.ENDOFMAIDBREAKPOINTTABLE CNACI$EQU$FCF4.CONSOLEACIA * *SPECIALMACROFORTHECENTRONIXPRINTERSTOPRINTTITLES *(NOLONGERUSED) TITLEMACR TTL\0 ENDM OPTL * *TURNONTHELISTING * ʀx !0300 CN0DK0 SA)*uDK0SCRATCH SA)*uSCRATCH SAY &Yo o  &|aa&$Y_? |X~!>}a'73% %9aaʀc Y9e'+b& [%]+  ' $e  Zb [ &97]ƀ   !%3]9 $ '!& 9   O & '67]@   32]9Y?$_? ??['n??X&fY ?(Y_ []] ?[SA ?([_]]?[?$? ?Y_]?Y][_]?$'? ?(l(m)? )lba(l"x(l"$&(O/L.#.,-'-&#o-','!"!,!'? ,H_"3VWVWVVn%=%%%%"""&$"&&&&"'E""''"""""'TVWVWVV9!@!0 *3 2&~!Ձ'&'0 &! !2&$2!  b& &$& &! &! !"i 2&$! 2! !"i22&3&~!23~"*+! $"x-*+"iA+[%a%{$-0+9.-* *,9,-&/.-&,.HH.H.#.~#~/'.&.9$< <~!G#.4G_"k,' G*|G 2E'EF#"EF 9 9'? 4G' !Z&"!~!EEF#""i'0PEF#"P"iR4P_"kR&' |P E9R'EE "&()%$% $%"i6&'"i2$$&& & &&'"i0 L*+! % *+"i6LM"i2L L* * L 0 *9"H/&.&8H H|..'HI"iJ& HH9HH9J &z.H H Ж.&9HI"iJ&9 &z.HH ݍ X.&'! $6 ,'-&'"i,&&, &&'! $ |..&&'"i9"~!۽#EF"#G$%~&$/'"#.$_"#$^ "#.LM'&%&$ L$ L& VVWML%LM"i eLL [' ' e ~!>#.,'V"$&>$^&L $(LM#"% LM"i6$%"i2L L$ $ $$"#"i,"" $^~!۽$H$$%#"$ "L$"L$$^ ۽$H" Җ/'$" VVW.%"#."# " "#.LM'&$L" &" ٽ#%~'2&"%A"&&,'&"%A"&&# d? %`# ŗ."&(  G/.&9$H$"L$ VVWML%LM"i eLL ~$^#EFG"#~!~!ս$HL"'J"#ML$ LM"iL"#"iL',!? % "#"iNLM"iN' !? % &" " ???? CAN'T FIND " ) )X ?%/?%+] _]?&]' ? ?  @ ?$_? ? ?$C&Y)a_]?&)a&v)l&Yoo?%Ŧ@c[e9' ~(~([e @_]?&]+|X 6?%?%Y@c9 ? ? ?6 ?(m ?.73% 0TFTF?) U 2 4?) W YT ?.10"&[& 0 U9 MDOS EDITOR 03.00 COPYRIGHT BY MOTOROLA 1977  |Ѐ}0~ 'P0300 --- PAGE00000 . : #TOTAL ERRORS 00000--00000****ERROR 00000--00000**** UNDEFINED SYMBOLS bNARG bXL~XM&߹A;߲ߴ߶XL9ֻ&~(w !& !2'!!2'~(J'&9! !!!޾ּ?-?$&†?!!?&?'~)h'&f!!!!!{!!?%!z!y޼!|q'ּ?/"־?/$|޼!~!!?%':H TŽ1BO&&ooTŒ&&'*D!00&۽S_qrs'~CA~C{H ?'0!ؽT!0#!H#T!#DK!!?&?&~3~)h!?&?&~(? %g!?' &}'_? ? !  &U\9ތߌ_9&&?( !& !!?&19!:!?&9&:&|:_? ? $ -&9Z' * ? !΍ !!?)?''_? )?''_? 9)%= 3& ? %*-)89K%-&9/9T99%-&9Z'D9*-|99n/3'/&?2! ?3? 9*-)893&)-f'!')4 9 9"҆ Z& !"ҽ)89-'9z9'9H59hhhi#ĽT] #ķ#!J$!#)8J!H9T T&9ރUWŀ'ք"߽Sז"W'"S+W'5'g"Sܖqr"Sזg+ 6r"Sܖu"rƁ+ 'qr"Sזu"W'qƂ+Ӗn'~+"RPW@'/H5R2 '7' &2 ' 'PHR HR D7'@ 'lT&ZR RS+" &+"# R7'HP42 '7&HRW '*'&"Җ֏T] "H#Q2 '7&H R '!"ҽ)9#ONLU+'<' L1M, -'N" #@'qPUNzQ&}P' zP ~.&S2'UU9!&~,' L"M9'N9@'q' Nq q&96!'~.޼UV?.6HY! Iœ',!!?$~)h!2?(2~.?2Č' !!?%?39~)h&~-^&/*O'"1UL UM 'UN @'\UN9~/NOŀ'Ls'5' / {J&'-? &/½01/ަOt01 x'-x'1UO'U9UO'ߣ9&/–'01/vPަO'vv01zx&9&/–&/t','2'=&֨& &֩& &֪& ֨&@ ֩&ƀ ֪'01 QVФP'l#Q#C0P' ".ޭ߭|zPP"ޭP߭z| +01~-|1 "얞#O0zP& #ۖQ09H 76HI<;%2' 6+S239|Uߙ$UVUSߛ9&ޙU'! 2۝םޛSߛޙߙz&UU9۝ם$SܖCޛS !$)-9|Oև$$$U$ߙ$ߛ9PR'&'& O@'*'41O@'|$q$R$JJJ9ޛRߛޙߙz9'&$&D)9|%ߦ9"Nަ߯߭ & "0 ƀץOަ T߭|ަUVפ91|9'x't'a&U0ަO֨#L֩''L֪''LM' O &ޯ ߯ަ& Vަޯߦ96'&5ޭ߯Oz|&z|ޯ2HYHYL&߯9'%ޭޯ'XXL&߯߭|9/'01%&&D)92&;'+8', 0'/9$$J_>q:r6C2J !$)- #916$s$q$&$&D)9~3L2&C!';'6S0$$J_ OO#ڦ#&CJ !$)-|$92$#H$TOB$& &$&D)3$$LTnooooo&P[HP6H2PTŒ&,&R&'4P+HP76H23o|SP& ~3\N&~31 ŀ'*H JTNS6J2 L'$H `JTN6J2 $'%H8JTNRSJ0RRNOB'~23`4$L%9 HJJH9HHHJSJH9T#7T&$&D)$LT3TTLETLE9XLOn#Ro5T5p'~(ᖊ&)|#R0-9."҆ Z&ֻ&7?+74 ''"=OR8h$ 22#R}~5BގU23׏229o}S*' &~5 '.' A-Z/~5B6$~5BS"Z+2S8h%R'' |R6RSo o]' *~O׆~5B} & '~5B@'߽S'ޔn5Ɩ' Ƥ~471*s~3"ؖ֍T]9_?%&&?2ރּ?/%߼?3B'4'>YSSoM&A&C&R&  ' 'Y>ߑRH"TŖY & 9 9WHT"&$"&"&'0"& ߔ~7H'J' &9WHW ߔ'R& g'R&+SA'B&SSͽ8h% "B' 1S͖&D 2"A'B'~6֔'@ & ''}&&~6_99oSH֔ '~7ā#&~8 ,'X& S8h%~8:O6666|~8 S͖H8,&SX&S8h$~8Y8h%|&!q&'T&}&' 909א88h$~8Ys&'n&#ރHqrIH%&]+ &]*g9нS 򖔅&~8dS88h$~8Y&9H8t9@'$q'ҽS H9STJ~7 ' & 9 9rq' &]+ҽS9|9L3q3rs3# S11Z&]' 3s2'STys&t{A t{sTu3x'40HXxMOIHJKXL 6J&JXLM Z&v6 J&{/||L9-&_7777 :q+'-' 06=+N2~:M6S:qL0N=+R_-&MHPR=+VHTHVM' 7 7 " 7J&PHHM'R M7 7 7J&H7T HP JRTNU_T&U'_ EU'/HJ"%&5 JH H}M'@'66\zTzU H66\zT H J}M'@66 J\zU 7RN}M' 76VL+' -'77H5N 7 H&+'-'9~9@;*'/'!&GS;a$S͆! 86;0L;9R;D(&~<3L3MPN.'DA-Z/<0-9/6$'@'%'&'''[*'aؽS~<=x f= a= \=O W `o0-9/A-F. S|NH'O'Q'B' B'N _77S67 _7'\76766 N'SLn>P @'O' '||O6NO7N77666P  ŀ& ' &||_7'\76766 ֆS||_7777 ĽS9P0<זP)&SnSPn=+JK H H&11J90&&9S1132H2I2M'11J&2M'111J&66I6H67nHOXIHHIHOX\IHJKJ9b> %BmcHI][IH$=K$=l ٍ9z%L />%E $>/%> J'6S2011_77I7H7nHJ9XI%9)9KHI9   ߍKHIJJ97JJ39S0-9/ A- F.  9 9S0-7. 9S0-9. 9S0-ف1.Մ 9RSA-Z/0-9/ .'_'$&X'X&ԆS όX' X' 96S &RA'B'X& ޽S'$~?Nf'-V &'RN&!SA&TR&UG&޴ '5'.~?NH'3R&S&T&U& V&W'gO IHHIH ,'2JO4,'666666֍7֌7766666W6 Q&JH29Oʙɑ"& ѳ#ݽS~Co9' `&ӽS 'S,'Ė&H T¦' RV'0J&JRlRTV JTTR H @&l VH29&B(9OLMLR'OL& `&| *@ A(RSB'R ۖL&HM'O' T !"ҽ),')|LO6@SIN .'')zLO6@SIN *O' T !"ҽ)9 M&()'#!')|MO6@SIN"TNOO'RHTTņ TzO& !"ҽ)9O& NO"TR76HTTņ 23S׆ TzO& !"ҽ)95TRT"N&"TT"R ŀ'3 ; `&U" .'M 'D 'R" 'S"Ҧ"սSRH"TR Q M TVPNO"TzP&Q'VQVPV&';VTT]TTTzM& *P'zO&T !"ҽ)5T zOON' T !"ҽ)9J ,'MȒBSINOM& "'9,&NODVNOXIHIXIXIIHșǽB'lPRPTLR42"#&92"&22"&+2"&$2"&2#R4MH271zH&LJRS"RTU'T L&N&O'~BT9 HIH' "H 9oS & _qrs 88h$ Sqh*s':c'S'S16'#S & 2,'Ɓ ' &`*s~3'+S _LoN^_A'\B'rD'lP'gA-Z# .'S 2No4>ֻ& @' P L,' ' 'ԽS`*s~3~SN&Y&:&L \\\\S&ځC&ԁT&΁:&L ޽LٽS8 ' 'ԽS 0|'S #x&q߃suy߹քt*s~3'+~MILޑ &U@' ŀ&K PM($S D߹ޑ&|& ֺSB& D& P& ޹ ,ŀ&ܽS 7S_B' D'P' \\\\'Sޑ߹N߃*s~3OA B C D P76 l&2&.'*Bރ&';:%7|&H&&&H& ޹ք"%#9&&&S 9HT&H 9'+S 23׸T߹&߃Ơ*s~3f' &^SC&S8h%|^`  "7NQ$ S_*s~33*s"H޴NXZTŽ5p'S~(#RoX' S8h% '_S*&^'|_  'S X߲N$&n5T4_*s_&RȌC&SnQ&X߲ߴ߶ZֳN~3 P;',NRTP2&Z&TR 9TR 9ֳʒ%9ݽS~Co?+9_' ޴J ߴ޴ H`5}#R#& Q7\' &a`H_'JߴN9KQ7.& Q7O]&~OeO]'S 0 -M޴NJM-3M' NzM ]' E`]E`K#'Q7Z&K]`K~N]`~N6޴N2' & %de ߲d#KLO%~N޲KT]K.TK~NCDC9_0- 9/A-Z.9\95"NQ%~5BHf-~Mֵ޲ ߴ HIP.Q|f_NOn#Ro5T~4޴N[ ߲OXYZ_S &19S &']ZL޲[Y޲]^]߲X&9~M(')'#,'*;'. &X'|Y X\X' X'ZX' X&ލ4 X&,@|_#Rof'N ('S~(3o}]~PO|Z][YY][ ]9_'}5T4` #&*s9fJ,~Mf޴߲ ߴ~3C` `C9=q'6+4\ 12q++\ ()q'"* \ q'*\ q& \ q'\ ~R LX X"_S '4,'\ YZ]'o\_S&\Y&S & _X 9 S88h%_9S_*s~3cJ+c"' `*s~3 O XYbcL/~Qߗc"' X' "X *n h*sY'~3|bf& ('S~(_NRZ&cL/~Qߗc|b >Q&nQ&+cJ*~Qߗczb&!"&5Tf&4`n*s~3C&n%'5Tf&4n_*s~RA#RoS*'D '%'S '5*'1 &S ' S ' &S"Z+S8h%Z+' _96]+_"I& "F&9ޔ96R S_*s~3767640m+ Lhi+&oo$  ii$ dfj&111239766660XIhi$j&1111197_ 7Co]' 'oC39Co oC9 7DDDD390:%9&]}'?7j6@?#2nllO'T] ''' !&)&4' 4j39''96AuOqrsx296 CTG%|G 6ECG02CET&9'd M& 9AE&P9#N9OXCXCTTCDC9&?'9EH42Z&E9LDAԆLDXSTATSTXPJSRPABAADCԉ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ԈINCJLINS1INXJMPHnLDSЎLSRJDNEGJ@NOPORAԊPSH6PUL2ROLJIRORJFRTI;RTS9SBASBCԂSEC SEISEV STSPSUBԀSWI?TABTAPTBATPATSTJMTSX0TXS5WAI>ABX:MUL=LDDSTDPLSLJHBRN !BHS $BLO %ENDCEQUF@FCBH,FCCFFDBHNAMJAOPTCORGKPAGJRMBISPCJgSETFwBSZILTTLIIFCQIDNTJXDEFJXREFK COMMLASCTLBSCTLCSCTLDSCTLPSCTLPAGEJMACRMsENDMQIFGTQCIFGEQNIFLTQWIFLEQbIFEQQmIFNEQvIFNCQENDCQFAILS=LSRDASLDLSLDPULX8PSHX3^X=' LP>?~Z4#&^XCN' LP' ~X>^X ? ^X]^Z!0]]?AL]Yg]+'*]0]]~XDK>^X & ,' ~X^X!!>!DK&]^T!^V ^T? !!!"!!!?&?&~Y~X|@='|2~Y^X=')!^T!^V ^T?LX'' +LO RO! f^X!^Z!0!! ?^X?]' ~X!0!.! '|( LX'' +LO RO!^X & ^X ,&DK!!!''+ !$!!!!!~Y^X='|- $=&[%)_ ^R?/"?/%^S5~Y~X^X=&[%)_2^R?/"x?/%^S6~Y~X^P_ & ,'\ ^X^P^\9=&'' ~Xz'!(&LX'' +LO RO!|*~Y=&ޖ'&|' Ж@& |@^X ^X~Z/3& }/'% ZLP!"!!?&B?&>!Ϸ!#R!#!DK! !!!"Җ6?(7?$ ? ~)l_ ;2&!?Z' !0!~X ^T':^V^T?}A']9? #-? ]' ?' $BO&& LLL&&,&XM߼~'VENTER HEADING MDOS MACROASSEMBLER . COPYRIGHT BY MOTOROLA 1977 #$E!"G M/Z&S.U%X,HAQYLYOZP[\N[R[A\]0 SA]]]]'G^^oo ^HY%5HY%1%+HY%'^l&l?%_%z^&O9 00H1 $0300% CN0DK0 LX"$$#$$$$$tDK0 SA $$#66薁= >O?<6qo6?8 8%? $|)~*$$ Q?$? &3)'~*^~*і8'$$ '?%LE$$$FFE'(1F ?H?FG3P$f0*&1)&~%^f42 '&^ ${$y1~% ' '< Z+0 &   '$'?$ .'?% "& ͽ2000$T0ז;& >9  '@& &-S 'ս29* :nͽ29&!  1_/ DCCD1~%37: '9 (($~'/C3/043%& ]+ &]+н2490[0\:&~' &][A' B&S;@;$T0[0\[#'~'0˖:'*(/3:') S( $ҽ2S9̽29ѽ2O34; 9T$(/3,&D0X&ֽ0(%Ɩ:@'Ȗ3'ҽ2 ;; 9X&[,'#&~'\ Ö[ 7&3& :' :';0 \A%Ö[A'B&+:&;; ;;$T:&~'7 ƣ9X&~'i~'J ' ' 943'&]+ 9/+-.0$0,',*'60˽0$$,' +'-'/'*&}.' ~29'9-0 ƽ0ˍ80-+'-'*'/12 /21/0 /21 /12 12$z0*&C19'&{21t)'91$'O@'f%&~)f?%~) 6?26 G)&!6$'?$ ?$ .'̽22 "'ݧ _-Sh19oo3+ ) H&A~0oo0-8* ) O'Q& ooԁ0'1&Fii B& u&ؽ2j'}%&$x z$1H&~)(O'Q'B'x$?$ؽ290?%|XI| hihihihi95*' *&5}395}$9 *+,-/%&$ 6 $&(/3 #2 &-S1~&v(/3н1)'v1ƀ/('.6!$y${A,61%#$53P5$y5${2M1%+@,*&$ $$u?*?''_? *?''_? 91|%.|),$?}*& "#$$~$0]$ d\?%30?$,'d$ d$(]1&2'\ ̽2\0 ']& ;1$bd$0 '& ${b$_/CC1z\'>?0}]']'0 &̽2 % & 0˗;1_/CC=&1z\&~%7?3%910˽0,' 7(/331_/CC9=& 10˽0,&=& 7(/3( $7ҽ23;31_/CC98'06 ' -[- 06&1~&v0_N& S0O&50O&B 1M&S? (L&@ G&= S&S( P&A ٽ2 0 ',&0 (/3C ~%@'9)'A&$y <\'\' ${<~1(/31/0DC~&r(/)'<'/' /6!$y${1 6qY  2 &Yn'*/ C &   qrts%~.).b '.W  &n'Kqo *&)' *K ܽ2 9  &9q`sqo.v`s&  * *ν2.v h9oprq% ӽ2 y7 ㍥stml$n& ӽ2 y7sqo,qs ݽ2 qZ&q9 Wq42Z&W9W q2Z&qW9jqu$y${qrts% ${u&-9q)'*G +A${ 22zu& ${$y &1.W ${.W )'hOVH&F*&BB&>0?H6f0 NWf2fW0|0&NC0|0$0$0`ICJV*~01OO&9 '}I&%6NI5o5&JL5L0|M0z2JL'W O3HHHHO3}?'#6JK"!% 2J& 6>&ڗ>220zJJLQ5'~/i~/i6I5Lm&D6gNC b $25U5$129}I'Ȗ*&B&N0314-NC(0$0$*&#B&$?$ }}_? ~*9Q6NN22Q9S00B0000 S903 7_ 7`$]' '$`39`$ $`9x3&& & 5&݆Ͻ2_39:z9%&)'k,&g@&c+A&B|<&=$y}${Ɨ<&&&'63P 666$y6!${ }$y${|$u?$|&_? ||? $~*9$xT$ C2D2T$;2T$42T$ 3242T$ 3242%'^$#2 '&^~2mT$f$0 '&T$)T$9&00˽0 ' '@& 6]'3T$]'(vvw6#6"$00˽0 '& ${$yx$9767640m+ Lhi+&oo$  iidfj&111239766660XIhi$j&1111196DDDD20:%9d)& 'D'@'<?#|%##O5. 55$y߂${߄5$y5${1ނ$yބ${d9`3[%|[ 6b`[02`b3&9'd 0+9/ A+ F.9}$9ABAADCԉADDԋANDԄASLJHASRJGBCC $BCS %BEQ 'BGE ,BGT .BHI "BITԅBLE /BLS #BLT -BMI +BNE &BPL *BRA BSR BVC (BVS )CBACLC CLICLRJOCLV CMPԁCOMJCCPXЌDAADECJJDES4DEX EORԈINCJLINS1INXJMPHnJSRHLDAԆLDSЎLDXLSRJDNEGJ@NOPORAԊPSH6PUL2ROLJIRORJFRTI;RTS9SBASBCԂSEC SEISEV STATSTSPSTXPSUBԀSWI?TABTAPTBATPATSTJMTSX0TXS5WAI>END*KEQU*FCB, FCC*FDB+MON*KNAM,NOPT,yORG,PAG,RMB-SPC-,****ERROR TOTAL ERRORS COUN S1 --- PAGE12345  MDOS ASSEMBLER XX.YY COPYRIGHT MOTOROLA 1977 }$}?&]' ? ?}$}?LX$$?%?% ' _? ?,+#O?8#z|\}}z|&nZ& ? ?\*&}=&$}?Ň'~7\,&}=#&}CN&$}}} LP$} 8& \ \S( \ׁ $u?$~71?%*& $?%?%6js?$ ? ~*!?,l 6 66? 9;7 7 7M-7G7L7O7oS7,7M00 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|5V58( 7b,&#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! P 0320~!~"K/~#~#~#~#`#~~..&~e?D&~eD~@MCM INT TMS MMI HM-!V82S!SIG!4) v@vAvv''Ƞ%2Тd4'''XĠ'Ƞ4''<SSccSSccS5S6c5c6S@SAc@cASSccSScc4vvv v!v@vAvDvv< &)01@,A,,,(('(4'/ ,x ,{ J #C J+Z& AACCZ& " <ȧN8oo# &S,g6/>Z% _#"$ 'j$, A8#$ &:&A ʽ#N'# " N8o<49#N$' <\'+> "P " " 'ׁ&' & #'#"&' & 6 '$&&& ]&' ]& 9 O~ " ( ' 9D$H'  ('9"@9 (" $9_ (G%+vZ& 9 (G$ 9ooo ' ,'$ 9 hiZ& ԁG$ A$ :$0$ 99DDDD0:%~ " ! 9'&, 87#3%Z& '," 9%:&.8=&0;@&6><;98?>$, ʐ&%$>6E:'8.=' ;0 6E/.32BA1032DC 9$G%,:&48=&6;&%<;%98%84G;6E9CHCK(0DISK%_EXIT %FILE%mLS4B%uMS4B%xOFST%PROG*3READ("SHWM%SHWP(-STAT%TAPE&VERF( +,~"~., *~-+'''$9~$K$P%:'829$P%$BBDDCC*A$2A$4Z&$6AZ& %AC&~#N -a-.~ "('N)*+UA$6%DBAdf%  Z& -X'$,֖'+,",".$2Z& _6]&'$]&'$2J&9E%%L AC %S&D %40'1'89&$E&ߍ+C&A.''/&1.%00 09'܍? " ~ ^%FX%GR%HGBAG$BA32HGG$:$ ," %%'G', G \&~&, Խ %$%HHHH6 3%$% DDzF 9 [#"%*AOQRޮ(o & '$ %hiiZ& A#"%+?%4 '' @''&$_&5*SM N<'@'4  '-" 9O#$i$+9#$%G' #*FFHHGG>J'8@' 4N*ĀL)]+44' ",~$d#*F& #NE$2)'+C$*V%HHHH$A6#+D&$:$,>~"$S_''T$'[%>+h&> 9MT$'+T&B "0:F&'&$60% Z&W%ʞ>EEG G E$20~$4#&> 98'8-(#T&"#NJ9z9'#T&Aǽ$6~  F'* @&EGNE 'H0'&ߚS 8L98oR*O7' '& < S <3 3N]986)2*)ٽ*d+vZ&R*)ن4'+9$i%BAHG#(W$( ,Ͻ" Y'9L6E'* ~+'&IA$*\'DDDDMI&tI$+h&6E$# "~(W K J))'+5I!(N -I*o "P9OQ~+vIoNoZ&0o4)CMI'~*zJ'~*zK'"( &*~*,$7"19);9EEAA C97M' +Z*J&39P4@'& J J%'~(qPROM PROGRAMMER XX.XX COPYRIGHT MOTOROLA 1977WHAT?ADDR?PROM?PWR?SYNTAX?SIZE?NO CHNG CKSM?CHNG?  ERASABLE BIPOLARXXXX YYYY NNNN AAA ZZZOFST PR MMADAPTER BOARD IS REQUIRED  &? 9 A.IC0LO.RDK.GA?&]&A,' ',~"%%.I* u%ko%f.?1?$ _? .???9?%' .P.??%.dwv ' FVuEFuxy$A$:$,"  BAFE%A.T.Im%.ܽ&~-?0l&l44444n1...DK0 LO.d.d.IJK D0200LIST*tNEW)PAT*GOSUB-GOTO-$ON,THEN,PRINT0LET2INPUT-IF5READ/DATA3RESTORE0,END)POKE(6zRETURN-JDIM3)DEF8 FOR3NEXT4REM3TRACEON2TRACEOFF2LINE=7DIGITS=2STOP-^2RUN*?CONT,hLOAD+RSAVE+APPEND+UOPEN=pCLOSE@TO.STEP.RND6&TAB(13INT(5CHR$(7ABS(6SGN(6SQR(:LOG(9EXP(:SIN(9qCOS(9ATAN(; PEEK(6POS6TAN(94VAL(7ASC(6LEN(7LEFT$(7?RIGHT$(7MID$(7QSTR$(7FN8USER(5 READY DELETEDRE-ENTERERROR# IN LINE Y !½" ?c#w}'|S`M' ''' 'с '0&' &Ѧ* }& &o!~* # o߮&"976ߊތފ239ߊ7ގފ3? $ANANZ/*22~)9 "Y&9"9 8: :689289:|;|;9޽$(5: н$(5 ]2Z&22(9(5 $(4]2Z&2o($9AQB "YZ&AQ" HIH &'" @"~"6 129($s%$s%)1$41111 9 9$$$' 7(&3"*F ' & & c" 9m+6$2&$$  (967%A4cM+c]cd~32$&4 93$$ _7$&׆33 4cM* 3%_3gm' æ$&$$Fc 6A+Z/ 60+9/ 29 29]]9] 9ߪ6D% &E%~,c29M& 9"Ʀ/~*O_m+m/!XIRQXI%XI%RQ%%׽&j&۽"9(#% }&$#9.%9(&%̽()&9~* $ ɽ(^'94]$7'9$4(-&& 4]$3]&M'$ "6M*&(p:2M*'Ƚ:g$' $4 (*& (썆(p /& %?' 9(-&ѽ& +&Ž(+&' -&' M9"G}&" -߽"5%~7a(+&"}'"- ]&߈" M9$~*("&!(5ވ2"' M&~*o߈0(9(#$9}'"4$(5ވ2M'Z&o߈(49$9"$ "] "$67 Z&$  Z&"32962967WW$h iJ&Z&32967WSWdfJ&Z&WS329"$V2z$* V&&j ooe-7Z&d$3 с./{}V'&$"9&"$2z$(' l$2z$' l '- #$'2"9]7662Z&]23967]   Z&]329"/{$2z%~*`8' & _\m*Z&&$$&]&J&ڽ$|P Y' Om*&$m*&J (x$@P9"$Y$'+ /{ Y&]''Z ]$' J&$'ȖP$'2}J*&"92310% .*'01%&]'&*&* ,9 & M9.$~*߬$#.M'' J 01ެ 94M&69߬(! ߬( ߬4( 42 '_/''! '!'& 4(9( 9~.D.*FO23@T5g9↰~*?D:0j?AT'D? ATAS&B|AS!? @"G($%+ M')CnD0j"!Խ" !ܽ"[004&oo">l>j~).<6ueD0_*F?$ ? ?DߔO *&~,x0nANތB'AN4(')(4($4('(O1100($ *,.,'*'AN+zAN& a'6~*[6? $~-^ HC]ޔ߈6*&~)}6'[}' "0j"["Y "Y]"Y" 4IHn4($$I~5Y ~*4%̽$]'ZU)C-$',-' U6)&e& ~*67e U4(zU+ (,& ($~*6~,xeu&~* e 0j ½"#w6)&[*>a~)"CZ"9C߈$(ވ5]2M'0"&}>_'>_ >_}>`'}C& }>_&,' 'Z& o40(>_>`96ވ' ' &2߈90n4&~*4("& &,&40V>h'>>?'~>'o>l߬ !߬42$P4ެ}&%i$,M'>h' >l"4~>0!˽"! ֽ(- "ٽ(,&߬4(,' @M&~3XI& T&D~B~*(J-' JOLMN/{]&^'($$ .&M 9 $%B0&}L& }M'zK L"&]'}N&Z HHHHsN&}M&|K" }M&.&M _E&-' +&6 1PK"]$"}J'& 9"7]oZ&K3"9$$~*0$% XXX0942$h4<.'>}' ('*"'- :<ޔ߈<&N% -| (.$ '~**'M&!& "٦,&<4(,' M&~34(#&3-9. 0>h?~3~>.<4~3"-ߦ'1 "9 #>h4(#&%','~24$$'-ߌ + .0>'>&(22~*>h9BߌߎHH𗑆ސ&&~*90n4(M&X ;'->h'"?2>j ?$>l>j>h?'22~>'?3 "@6~,x~* '6r"Ľ$Z@/#wZ&D &}&o 0V(,&@' #w ;&~0M' . O06}>c&}>h'AO>j>'>jAO "Y27@\ѓ# ђ$ &"_@39"T$OMm& }& "~#wm*-& .>-:M.Mm*)1z'l }M&1&j&}&R$1~2 1&1~#E1Z*-1POL *J 11~1֩$ 1&Z& }T&9"]7m&Z&  "39#% 94%~*(=' }& %M&" @&}&~&IM&޽-| -4%̽$04ז 4%̽$ % T )&~,x"4%,' )&4" 9%&4" 94#)%~*M*4c$$ _$4(,' ~3"&׆}'$$F"FG9M&~*""6Q]'Z'Q$}'$J& 2$}'$J&942%~2}&4]$QRD0QR_'&& 67&'$ ߌD&~*_4(='~2%̽"ٽ):!&4%4_"˽$_4):! & 4%4 :g_"˽$_4(&6_67_~,x42%~2(&6$_D0'f_D0'[$$&&a"a$m*O"'o"˽$a"5$a_~,xo"a"a6  ~*4&IO}'-&}&~&I4- -ߟ(5 2M'& ([ %4J$~34)Cn(=&9<&=&9>&, 99>'~*=&9<'9'$6OHH5 !! 2 Mn' + + & '+* 9 96l"g"96l ]/' lZ o$'2$9c'J:g$}J*&9Lm* 4((&482z$$ il";"(p$&o$'2i"9$94%&493%~%2$7$RQQ34~3@L9ӽ$RQQ9"]/{ _d\$Zd&_ \$Z &$'2$"9G)'~%24-ߦ69OL]&J69ս.$'~*$9(,'~%7494&}&~&I9%&4$\7I$ ν3G$$H%%~*\7$H$J-J* 2J(5ވM+3J]& o(߈׆$9%&4$H$-7L]&J36*Oވ |>`6r$ވo 4%̽$גWW~33$~&Iތ"@6@8ߌ|>c1>c2@"ߌވ o~7ވ߈94('kF&gN&`$s%X((&Q(*~3#)@$'<RQ4c4()&'(=& 'R&$$ Q&ʀ ~3"~*4((&M".*'C!')( (&(#%"(($"%&"ٽ"$%̽$"49#~*6rZ;"'$5$;"(p'9S;"'$m+ ;"'9;$N$'99 (p"9]$]&~$"˽/{$98ύ<" E8􍿽$:g<. /,/{9A7"(pA"$'3Z&"(p9/{]$ m' P $'$o96r/{]$N/a%oN$;N'* 6"'2L 6"'2J "ˍ3'9S:''9E9d ;ڽ9$(p"'$95~*]/{$9]/{J 6r9S;"'$5$9S]* &$P $7;"(p';"(p"˽:g9d d3-9/~>>' '>'~ AO ?'>f0SA >d?]&]>d>dU' ZO'ZI&GAO 0 DK ?&?'A1 %&$>d'~=r~3( ) 0 1 _? 2 3~*AOA1 7@{&&??%?(@&39>l>@{@@>l>DK >?z>l>DK ?{?>l>DK ?@z4(#&83-29..0>h,&&?&?&>h~3~>~>'>&> >&> >&>9C'DKCC o?&?'_? ?~)&C ?.*&9A?2C ?&?3 ?3? 9AQBچ  AQAQ HIH &  AQ AO CAO9&9AO  AO C ?&m?&i'~>.C ?&Co߮+ &DC&:C ?&4?&0DKCC*CBCCB ?CC ?&?&9? ?- B? ? N'Y&AUC&C>;C ???SAVE(Y/N)%9B? ~)PRINTER ERROR  7DDDD390:%9C0 SA MDOS BASIC 2.0 COPYRIGHT(C) - 1977 C2C,CC.BEW&`]+YCBCCB ?EW&C]+ C?Z' |ASCCDKCCCC$AN~) ? ?CB0CSAC C?B?C0C9&0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFYAFTER 0070*2)RAEDFROMTAPEANDVERIFYAFTER 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$3800 0230* 0240ORGRAMBEG 0250* 0260VERFRMB1 0270BYTERMB1 0280BEGINPRMB2 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320ORG$3000 0330* 0340MAINPSHAENTERWHITACC.AASMODE 0350JSRINIT 0360CLRVERF 0370JSRREWIND 0380JSRDLY250 0390PULA 0400JSR$F015DELETETHISINFINALVERSION 0410CMPA#$57 0420BEQWR 0430CMPA#$56 0440BEQVF 0450BRAVR 0460WRJSRDLY250 0470JSRWRFWD 0480JSRDLY250 0490JSRDLY250 0500JSRDLY250 0510JSRDLY250 0520LDX#$4000 0530STXBEGINP 0540LDX#$57FF 0550STXENDPNT 0560JSRWRTBLK 0570JSRWRFWD 0580*INSERTHEREWRITEADDITIONALBLOCKS 0590JSRDLY250 0600JSRSTOP 0610VFINCVERF 0620JSRDLY250 0630JSRREWIND 0640VRJSRDLY250 0650JSRRDFWD 0660LDX#$4000 0670STXBEGINP 0680LDX#$57FF 0690STXENDPNT 0700JSRREADBL 0710*INSERTHEREADDITIONALREADS 0720BCCYY 0730LDAB#$AA 0740YYJSRDLY250 0750JSRSTOP 0760TSTVERF 0770BEQVF 0780JSRDLY250 0790JSRREWIND 0800SWIPUTRTSINFINALVERSION 0810* 0820* 0830INITLDX#$2E36 0840STXPIAAD 0850LDAA#$FF 0860STAAPIAAD 0870RTS 0880* 0890*NOWWECOMEREALYTOTHEPOINT 0900*SOWETURNOFTHELISTING 0910* 0920OPTNOL 0930* 0940REWINDLDAA#REV 0950STAAPIAAD 0960LDAAPIAAD 0970BITA#BET 0980BNEREWIND 0990STOPLDAA#$FF 1000STORESTAAPIAAD 1010RTS 1020* 1030* 1040WRFWDLDAA#FWDWCD 1050STAAPIAAD 1060JSRDLY1 1070JSRDLY1 1080RTS 1090* 1100RDFWDLDAA#FWD 1110BSRSTORE 1120JSRDLY250 1130JSRDLY250 1140CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1150LDAA#FWD 1160BRASTORE 1170* 1180* 1190WRTBLKLDXBEGINP 1200DEX 1210LDAA#$AA 1220BRAWRITEB 1230NEXTBLDAA0,X 1240* 1250WRITEBLDAB#$8 1260BRAWB2 1270WB1JSRWAIT28WAIT28MUSEC 1280WB2RORA 1290PSHA 1300BCSW1 1310BSRWR0 1320BRAWRTBEX 1330W1BSRWR1 1340BRAWRTBEX 1350WRTBEXPULA 1360DECB 1370BNEWB1 1380CPXENDPNT 1390BEQWOUT 1400INX 1410BRANEXTB 1420WOUTJSRWRFWD 1430RTS 1440* 1450* 1460WR0TST0,XDELAY. OF7MUSEC 1470LDAA#$F5 1480BRACONT 1490CONTSTAAPIAAD 1500JSRWAIT 1510EORA#WDA 1520STAAPIAAD 1530RTS 1540* 1550WR1TST0,XDELAYOF7MUSEC 1560LDAA#$D5 1570BRACONT 1580* 1590* 1600WAITJSRWAIT14 1610NOP 1620NOP 1630NOP 1640NOP 1650JSRWAIT28 1660WAIT28JSRWAIT14 1670WAIT14RTS 1680* 1690* 1700READBLLDXBEGINP 1710DEX 1720LDAA#1 1730STAAFIRST 1740JSRDLY1 1750JSRCLEAR 1760LDAAPIAADCLEARINTFLAG 1770READLDAB#8 1780WAI1LDAAPIAAD+1 1790BPLWAI1 1800LDAAPIAAD 1810RORA 1820RORBYTE 1830DECB 1840BEQSTOVF 1850BRAWAI1 1860* 1870STOVFLDAABYTE 1880TSTFIRST 1890BNECLF 1900INX 1910TSTVERF 1920BEQSTO 1930CMPAX 1940BNEERROR 1950STOSTAAX 1960CPXENDPNT 1970BNEREAD 1980CLC 1990RTSBYEBYE 2000CLFCLRFIRST 2010BRAREAD 2020ERRORSEC 2030RTS 2040* 2050OPTL 2060* 2070*ALITTLEBITLEFTFORTHEPRINTER 2080*TOKEEPITAWAKE 2090* 2100DLY250PSHA 2110PSHB 2120LDAB#250 2130NXTJSRDLY1 2140DECB 2150BNENXT 2160PULB 2170PULA 2180RTS 2190* 2200DLY1LDAA#165 2210NXDECA 2220BNENX 2230RTS 2240************************************** 2250END .8#0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFYAFTER 0070*2)RAEDFROMTAPEANDVERIFYAFTER 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$269C 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290BEGINPRMB2 0300ENDPNTRMB2 0310FIRSTRMB1 0320CHKS1RMB1 0330CHKS2RMB1 0340CHKSR1RMB1 0350CHKSR2RMB1 0360* 0370ORG$2B00 0380* 0390WLDAA#$57 0400BRAMAIN 0410VLDAA#$56 0420BRAMAIN 0430RCLRA 0440BRAMAIN 0450* 0460MAINPSHAENTERWHITACC.AASMODE 0470JSRINIT 0480CLRVERF 0490JSRREWIND 0500JSRDLY250 0510PULA 0520CMPA#$57 0530BEQWR 0540CMPA#$56 0550BEQVF 0560BRAVR 0570WRJSRDLY250 0580JSRWRFWD 0590JSRDLY250 0600JSRDLY250 0610JSRDLY250 0620JSRDLY250 0630JSRCHKSUM 0640LDX#$4000 0650STXBEGINP 0660LDX#$57FF 0670STXENDPNT 0680JSRWRTBLK 0690LDX#$E400 0700STXBEGINP 0710LDX#$E5BF 0720STXENDPNT 0730JSRWRTBLK 0740LDX#CHKS1 0750STXBEGINP 0760LDX#CHKS2 0770STXENDPNT 0780JSRWRTBLK 0790*INSERTHEREWRITEADDITIONALBLOCKS 0800JSRDLY250 0810JSRSTOP 0820VFINCVERF 0830JSRDLY250 0840JSRREWIND 0850VRJSRDLY250 0860JSRRDFWD 0870LDX#$4000 0880STXBEGINP 0890LDX#$57FF 0900STXENDPNT 0910JSRREADBL 0920BCSYY 0930LDX#$E400 0940STXBEGINP 0950LDX#$E5BF 0960STXENDPNT 0970JSRREADBL 0980BCSYY 0990TSTVERF 1/ 000BNEZZ 1010LDX#CHKSR1 1020STXBEGINP 1030LDX#CHKSR2 1040STXENDPNT 1050JSRREADBL 1060BCSYY 1070BRAZZ 1080YYJSRREWIND 1090JMPERRLOG 1100ZZJSRDLY250 1110JSRSTOP 1120TSTVERF 1130BEQCHECK 1140JSRDLY250 1150JSRREWIND 1160RTSPUTRTSINFINALVERSION 1170* 1180CHECKJSRCHKSUM 1190JSRCMPR 1200BRAVF 1210* 1220INITLDX#$2E36 1230STXPIAAD 1240LDAA#$FF 1250STAAPIAAD 1260RTS 1270* 1280*NOWWECOMEREALYTOTHEPOINT 1290*SOWETURNOFTHELISTING 1300* 1310OPTNOL 1320* 1330REWINDLDAA#REV 1340STAAPIAAD 1350LDAAPIAAD 1360BITA#BET 1370BNEREWIND 1380STOPLDAA#$FF 1390STORESTAAPIAAD 1400RTS 1410* 1420* 1430WRFWDLDAA#FWDWCD 1440STAAPIAAD 1450JSRDLY1 1460JSRDLY1 1470RTS 1480* 1490RDFWDLDAA#FWD 1500BSRSTORE 1510JSRDLY250 1520JSRDLY250 1530CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1540LDAA#FWD 1550BRASTORE 1560* 1570* 1580WRTBLKLDXBEGINP 1590DEX 1600LDAA#$AA 1610BRAWRITEB 1620NEXTBLDAA0,X 1630* 1640WRITEBLDAB#$8 1650BRAWB2 1660WB1JSRWAIT28WAIT28MUSEC 1670WB2RORA 1680PSHA 1690BCSW1 1700BSRWR0 1710BRAWRTBEX 1720W1BSRWR1 1730BRAWRTBEX 1740WRTBEXPULA 1750DECB 1760BNEWB1 1770CPXENDPNT 1780BEQWOUT 1790INX 1800BRANEXTB 1810WOUTJSRWRFWD 1820RTS 1830* 1840* 1850WR0TST0,XDELAYOF7MUSEC 1860LDAA#$F5 1870BRACONT 1880CONTSTAAPIAAD 1890JSRWAIT 1900EORA#WDA 1910STAAPIAAD 1920RTS 1930* 1940WR1TST0,XDELAYOF7MUSEC 1950LDAA#$D5 1960BRACONT 1970* 1980* 1990WAITJSRWAIT14 2000NOP 2010NOP 2020NOP 2030NOP 2040JSRWAIT28 2050WAIT28JSRWAIT14 2060WAIT14RTS 2070* 2080* 2090READBLLDXBEGINP 2100DEX 2110LDAA#1 2120STAAFIRST 2130JSRDLY1 2140JSRCLEAR 2150LDAAPIAADCLEARINTFLAG 2160READLDAB#8 2170WAI1LDAAPIAAD+1 2180BPLWAI1 2190LDAAPIAAD 2200RORA 2210RORBYTE 2220DECB 2230BEQSTOVF 2240BRAWAI1 2250* 2260STOVFLDAABYTE 2270TSTFIRST 2280BNECLF 2290INX 2300TSTVERF 2310BEQSTO 2320CMPAX 2330BNEERROR 2340STOSTAAX 2350CPXENDPNT 2360BNEREAD 2370CLC 2380RTSBYEBYE 2390CLFCLRFIRST 2400BRAREAD 2410ERRORSEC 2420RTS 2430* 2440OPTL 2450* 2460*ALITTLEBITLEFTFORTHEPRINTER 2470*TOKEEPITAWAKE 2480* 2490DLY250PSHA 2500PSHB 2510LDAB#250 25206++W V O 6+Ƚ+,t2W'V'8 ?,t+,t,t,t,t@W̽+̽+ڽ,t+|Ƚ,t+,t+@W̽,-%̽,-% ƪ,t+}',t+9.6І9жЅ@&9н,,9,t,t  ,)F6% $ 2Z&' ߽+9m н, 9m ,,,),,9 ν,+Զ*FvZ' }&}'&& 9 967,Z&329J&90 NXTJSRDLY1 2530DECB 2540BNENXT 2550PULB 2560PULA 2570RTS 2580* 2590DLY1LDAA#165 2600NXDECA 2610BNENX 2620RTS 2630*********** 2640* 2650CHKSUMLDX#$4000 2660CLRA 2670NXCHK1ADDA0,X 2680INX 2690CPX#$5800 2700BNENXCHK1 2710STAACHKS1 2720LDX#$E400 2730CLRA 2740NXCHK2ADDA0,X 2750INX 2760CPX#$E5C0 2770BNENXCHK2 2780STAACHKS2 2790RTS 2800* 2810***** 2820* 2830CMPRLDXCHKS1 2840CPXCHKSR1 2850BNEERRCHK 2860RTS 2870ERRCHKLDX#$ABCD 2880JMPERRLOG 2890* 2900************************************** 2910END :p++W V O 6+½+,2W'V'J Q,+,,,,,@Wƽ,ƽ,ƽ,,+|½,+,+@Wƽ,a%)ƽ,a%}&ƽ,a% +~&,+}',+9,, .6І9жЅ@&9н,,9,,  ,]F6% $ 2Z&' ߽+9m н,S 9m ,`,],`9 Ƚ,,*FvZ' }&}'&& 9 967,Z&329J&9@OX&O&9ɼ&9Ϋ~&!<"0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$269C 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290BEGINPRMB2 0300ENDPNTRMB2 0310FIRSTRMB1 0320CHKS1RMB1 0330CHKS2RMB1 0340CHKSR1RMB1 0350CHKSR2RMB1 0360* 0370ORG$2B00 0380* 0390WJSRINIT 0400BRAWR 0410VJSRINIT 0420BRAVF 0430RJSRINIT 0440BRARD 0450* 0460WRJSRDLY250 0470JSRWRFWD 0480JSRDLY250 0490JSRDLY250 0500JSRDLY250 0510JSRDLY250 0520JSRCHKSUM 0530LDX#$4000 0540STXBEGINP 0550LDX#$57FF 0560STXENDPNT 0570JSRWRTBLK 0580LDX#$E400 0590STXBEGINP 0600LDX#$E5BF 0610STXENDPNT 0620JSRWRTBLK 0630LDX#CHKS1 0640STXBEGINP 0650LDX#CHKS2 0660STXENDPNT 0670JSRWRTBLK 0680*INSERTHEREWRITEADDITIONA1 LBLOCKS 0690JSRDLY250 0700JSRSTOP 0710VF1JSRDLY250 0720JSRREWIND 0730VFINCVERF 0740RDJSRDLY250 0750JSRRDFWD 0760LDX#$4000 0770STXBEGINP 0780LDX#$57FF 0790STXENDPNT 0800JSRREADBL 0810BCSYY 0820LDX#$E400 0830STXBEGINP 0840LDX#$E5BF 0850STXENDPNT 0860JSRREADBL 0870BCSYY 0880TSTVERF 0890BNEZZ 0900LDX#CHKSR1 0910STXBEGINP 0920LDX#CHKSR2 0930STXENDPNT 0940JSRREADBL 0950BCSYY 0960ZZJSRDLY250 0970JSRSTOP 0980TSTVERF 0990BEQCHECK 1000JSRDLY250 1010JSRREWIND 1020RTS 1030* 1040YYJSRREWIND 1050JMPERRLOG 1060* 1070CHECKJSRCHKSUM 1080JSRCMPR 1090BRAVF1 1100* 1110INITJSRINIT1 1120CLRVERF 1130JSRREWIND 1140JSRDLY250 1150RTS 1160* 1170INIT1LDX#$2E36 1180STXPIAAD 1190LDAA#$FF 1200STAAPIAAD 1210RTS 1220* 1230*NOWWECOMEREALYTOTHEPOINT 1240*SOWETURNOFTHELISTING 1250* 1260OPTNOL 1270* 1280REWINDLDAA#REV 1290STAAPIAAD 1300LDAAPIAAD 1310BITA#BET 1320BNEREWIND 1330STOPLDAA#$FF 1340STORESTAAPIAAD 1350RTS 1360* 1370* 1380WRFWDLDAA#FWDWCD 1390STAAPIAAD 1400JSRDLY1 1410JSRDLY1 1420RTS 1430* 1440RDFWDLDAA#FWD 1450BSRSTORE 1460JSRDLY250 1470JSRDLY250 1480CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1490LDAA#FWD 1500BRASTORE 1510* 1520* 1530WRTBLKLDXBEGINP 1540DEX 1550LDAA#$AA 1560BRAWRITEB 1570NEXTBLDAA0,X 1580* 1590WRITEBLDAB#$8 1600BRAWB2 1610WB1JSRWAIT28WAIT28MUSEC 1620WB2RORA 1630PSHA 1640BCSW1 1650BSRWR0 1660BRAWRTBEX 1670W1BSRWR1 1680BRAWRTBEX 1690WRTBEXPULA 1700DECB 1710BNEWB1 1720CPXENDPNT 1730BEQWOUT 1740INX 1750BRANEXTB 1760WOUTJSRWRFWD 1770RTS 1780* 1790* 1800WR0TST0,XDELAYOF7MUSEC 1810LDAA#$F5 1820BRACONT 1830CONTSTAAPIAAD 1840JSRWAIT 1850EORA#WDA 1860STAAPIAAD 1870RTS 1880* 1890WR1TST0,XDELAYOF7MUSEC 1900LDAA#$D5 1910BRACONT 1920* 1930* 1940WAITJSRWAIT14 1950NOP 1960NOP 1970NOP 1980NOP 1990JSRWAIT28 2000WAIT28JSRWAIT14 2010WAIT14RTS 2020* 2030* 2040READBLLDXBEGINP 2050DEX 2060LDAA#1 2070STAAFIRST 2080JSRDLY1 2090JSRCLEAR 2100LDAAPIAADCLEARINTFLAG 2110READLDAB#8 2120WAI1LDAAPIAAD+1 2130BPLWAI1 2140LDAAPIAAD 2150RORA 2160RORBYTE 2170DECB 2180BEQSTOVF 2190BRAWAI1 2200* 2210STOVFLDAABYTE 2220TSTFIRST 2230BNECLF 2240INX 2250TSTVERF 2260BEQSTO 2270CMPAX 2280BNEERROR 2290STOSTAAX 2300CPXENDPNT 2310BNEREAD 2320CLC 2330RTSBYEBYE 2340CLFCLRFIRST 2350BRAREAD 2360ERRORSEC 2370RTS 2380* 2390OPTL 2400* 2410*ALITTLEBITLEFTFORTHEPRINTER 2420*TOKEEPITAWAKE 2430* 2440DLY250PSHA 2450PSHB 2460LDAB#250 2470NXTJSRDLY1 2480DECB 2490BNENXT 2500PULB 2510PULA 2520RTS 2530* 2540DLY1LDAA#165 2550NXDECA 2560BNENX 2570RTS 2580*********** 2590* 2600CHKSUMLDX#$4000 2610CLRA 2620NXCHK1ADDA0,X 2630INX 2640CPX#$5800 2650BNENXCHK1 2660STAACHKS1 2670LDX#$E400 2680CLRA 2690NXCHK2ADDA0,X 2700INX 2710CPX#$E5C0 2720BNENXCHK2 2730STAACHKS2 2740RTS 2750* 2760***** 2770* 2780CMPRLDXCHKS1 2790CPXCHKSR1 2800BNEERRCHK 2810RTS 2820ERRCHKLDX#$ABCD 2830JMPYY 2840* 2850************************************** 2860END 2 Eh+++ + M+ Q,+,,,,,@Wƽ,ƽ,ƽ,,+|½,+׽,+@Wƽ,X%9ƽ,X%(}&ƽ,X%,+}' ,+9+~&,, +½+׽,9.6І9жЅ@&9н,,9,,  ,TF6% $ 2Z&' ߽+9m н,J 9m ,W,T,W9 Ƚ,+Ѕ@'1*FvZ' }&}'&& 9 967,Z&329J&9@OX&O&9ɼ&9Ϋ~&!G"0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$7000 0230ERRLOGEQU$269C 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310CHKS1RMB1 0320CHKS2RMB1 0330CHKSR1RMB1 0340CHKSR2RMB1 0370* 0380ORG$2B00 0390* 0400WBSRINIT 0410BRAWR 0420VBSRINIT 0430BRAVF 0440RBSRINIT 0450BRARD 0460* 0470INITLDAA#$4 0480STAAPIAAD+1 0490LDAA#$FF 0500STAAPIAAD 0510CLRPIAAD+1 0520LDX#$2E06 0530STXPIAAD 0540CLRVERF 0550JSRREWIND 0560BSRDLY250 0570RTS 0580* 0590DLY1PSHA 0600LDAA#164 0610NXDECA 0620BNENX 0630PULA 0640RTS 0650* 0660DLY250PSHB 0670LDAB#250 0680NXTBSRDLY1 0690DECB 0700BNENXT 0710PULB 0720RTS 0730* 0740WRBSRDLY250 0750JSRWRFWD 0760BSRDLY250 0770BSRDLY250 0780BSRDLY250 0790BSRDLY250 0800JSRCHKSUM 0810LDX#$57FF 0820STXENDPNT 0830LDX#$4000 0840JSRWRTBLK 0850LDX#$E5BF 0860STXENDPNT 0870LDX#$E400 0880JSRWRTBLK 0890LDX#CHKS2 0900STXENDPNT 0910LDX#CHKS1 0920JSRWRTBLK 0930LDX#$E5BF 0940STXENDPNT 0950LDX#$E400 0960JSRWRTBLK 0970*INSERTHEREWRITEADDITIONALBLOCKS 0980BSRDLY250 0990JSRSTOP 1000VF1BSRDLY250 1010BSRREWIND 1020VFINCVERF 1030RDBSRDLY250 1040JSRRDFWD 1050LDX#$57FF 1060STXENDPNT 1070LDX#$4000 1080JSRREADBL 1090BCSYY 1100LDX#$E5BF 1110STXENDPNT 1120LDX#$E400 1130JSRREADBL 1140BCSYY 1150TSTVERF 1160BNEZZ 1170LDX#CHKSR2 1180STXENDPNT 1190LDX#CHKSR1 1200JSRREADBL 1210BCSYY 1220ZZJSRDLY250 1230BSRSTOP 1240TSTVERF 1250BEQCHECK 1260JSRDLY250 1270BSRREWIND 1280SWI 1290* 1300YYBSRREWIND 1310SWI 1320NOP 1330NOP 1340* 1350CHECKBSRCHKSUM 1360BSRCMPR 1370BRAVF1 1380* 1390* 1400*NOWWECOMEREALYTOTHEPOINT 1410*SOWETURNOFT3 HELISTING 1420* 1430* 1440REWINDLDAA#REV 1450STAAPIAAD 1460LDAAPIAAD 1470BITA#BET 1480BNEREWIND 1490STOPLDAA#$FF 1500STORESTAAPIAAD 1510RTS 1520* 1530* 1540WRFWDLDAA#FWDWCD 1550STAAPIAAD 1560JSRDLY1 1570JSRDLY1 1580RTS 1590* 1600RDFWDLDAA#FWD 1610BSRSTORE 1620JSRDLY250 1630JSRDLY250 1640CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1650LDAA#FWD 1660BRASTORE 1670* 1680* 1690CHKSUMLDX#$4000 1700CLRA 1710NXCHK1ADDA0,X 1720INX 1730CPX#$5800 1740BNENXCHK1 1750STAACHKS1 1760LDX#$E400 1770CLRA 1780NXCHK2ADDA0,X 1790INX 1800CPX#$E5C0 1810BNENXCHK2 1820STAACHKS2 1830RTS 1840* 1850***** 1860* 1870CMPRLDXCHKS1 1880CPXCHKSR1 1890BNEERRCHK 1900RTS 1910ERRCHKLDX#$ABCD 1920BRAJMPYY 1930* 1940MISSEDLDX#$EFFE 1950JMPYYJMPYY 1960* 1970WRTBLKDEX 1980LDAA#$AA 1990BRAWRITEB 2000NEXTBLDAA0,X 2010* 2020WRITEBLDAB#$8 2030BRAWB2 2040WB1JSRWAIT28WAIT28MUSEC 2050WB2RORA 2060PSHA 2070BCSW1 2080BSRWR0 2090BRAWRTBEX 2100W1BSRWR1 2110BRAWRTBEX 2120WRTBEXPULA 2130DECB 2140BNEWB1 2150CPXENDPNT 2160BEQWOUT 2170INX 2180BRANEXTB 2190WOUTJSRWRFWD 2200RTS 2210* 2220* 2230WR0TST0,XDELAYOF7MUSEC 2240LDAA#$F5 2250BRACONT 2260CONTSTAAPIAAD 2270JSRWAIT 2280EORA#WDA 2290STAAPIAAD 2300RTS 2310* 2320WR1TST0,XDELAYOF7MUSEC 2330LDAA#$D5 2340BRACONT 2350* 2360* 2370WAITJSRWAIT14 2380NOP 2390NOP 2400NOP 2410NOP 2420JSRWAIT28 2430WAIT28JSRWAIT14 2440WAIT14RTS 2450* 2460* 2470READBLDEX 2480LDAA#1 2490STAAFIRST 2500JSRDLY1 2510JSRCLEAR 2520LDAAPIAADCLEARINTFLAG 2530READLDAB#8 2540WAI1LDAAPIAAD+1 2550ANDA#$C0 2560BEQWAI1 2570BMIREADBT 2580BRAMISSED 2590READBTLDAAPIAAD 2600RORA 2610RORBYTE 2620DECB 2630BEQSTOVF 2640BRAWAI1 2650* 2660STOVFLDAABYTE 2670TSTFIRST 2680BNECLF 2690INX 2700TSTVERF 2710BEQSTO 2720CMPAX 2730BNEERROR 2740STOSTAAX 2750CPXENDPNT 2760BNEREAD 2770CLC 2780RTSBYEBYE 2790CLFCLRFIRST 2800BRAREAD 2810ERRORSEC 2820RTS 2830* 2840OPTL 2850* 2860*ALITTLEBITLEFTFORTHEPRINTER 2870*TOKEEPITAWAKE 2880* 2890*********** 2900************************************** 2910END P`+++ + S+ Q,+,,,,,@Wƽ,ƽ,ƽ,,+,+|½,+@Wƽ,X%9ƽ,X%(}&ƽ,X%,+}' ,+9+~&,, +½+׽,9.6І9жЅ@&9н,,9,,  ,TF6% $ 2Z&' ߽+9m н,J 9m ,W,T,W9 Ƚ,+*FvZ' }&}'&& 9 967,Z&329J&9@OX&O&9ɼ&9Ϋ~+4 !R"0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$269C 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290BEGINPRMB2 0300ENDPNTRMB2 0310FIRSTRMB1 0320CHKS1RMB1 0330CHKS2RMB1 0340CHKSR1RMB1 0350CHKSR2RMB1 0360* 0370ORG$2B00 0380* 0390WJSRINIT 0400BRAWR 0410VJSRINIT 0420BRAVF 0430RJSRINIT 0440BRARD 0450* 0460WRJSRDLY250 0470JSRWRFWD 0480JSRDLY250 0490JSRDLY250 0500JSRDLY250 0510JSRDLY250 0520JSRCHKSUM 0530LDX#$4000 0540STXBEGINP 0550LDX#$57FF 0560STXENDPNT 0570JSRWRTBLK 0580LDX#$E400 0590STXBEGINP 0600LDX#$E5BF 0610STXENDPNT 0620JSRWRTBLK 0630LDX#CHKS1 0640STXBEGINP 0650LDX#CHKS2 0660STXENDPNT 0670JSRWRTBLK 0680*INSERTHEREWRITEADDITIONALBLOCKS 0690JSRDLY250 0700JSRSTOP 0710VF1JSRDLY250 0720JSRREWIND 0730VFINCVERF 0740RDJSRDLY250 0750JSRRDFWD 0760LDX#$4000 0770STXBEGINP 0780LDX#$57FF 0790STXENDPNT 0800JSRREADBL 0810BCSYY 0820LDX#$E400 0830STXBEGINP 0840LDX#$E5BF 0850STXENDPNT 0860JSRREADBL 0870BCSYY 0880TSTVERF 0890BNEZZ 0900LDX#CHKSR1 0910STXBEGINP 0920LDX#CHKSR2 0930STXENDPNT 0940JSRREADBL 0950BCSYY 0960ZZJSRDLY250 0970JSRSTOP 0980TSTVERF 0990BEQCHECK 1000JSRDLY250 1010JSRREWIND 1020RTS 1030* 1040YYJSRREWIND 1050JMPERRLOG 1060* 1070CHECKJSRCHKSUM 1080JSRCMPR 1090BRAVF1 1100* 1110INITJSRINIT1 1120CLRVERF 1130JSRREWIND 1140JSRDLY250 1150RTS 1160* 1170INIT1LDAA#4 1180STAAPIAAD+1 1190LDAA#$FF 1200STAAPIAAD 1210CLRPIAAD+1 1220LDX#$2E36 1230STXPIAAD 1240RTS 1250* 1260*NOWWECOMEREALYTOTHEPOINT 1270*SOWETURNOFTHELISTING 1280* 1290OPTNOL 1300* 1310REWINDLDAA#REV 1320STAAPIAAD 1330LDAAPIAAD 1340BITA#BET 1350BNEREWIND 1360STOPLDAA#$FF 1370STORESTAAPIAAD 1380RTS 1390* 1400* 1410WRFWDLDAA#FWDWCD 1420STAAPIAAD 1430JSRDLY1 1440JSRDLY1 1450RTS 1460* 1470RDFWDLDAA#FWD 1480BSRSTORE 1490JSRDLY250 1500JSRDLY250 1510CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1520LDAA#FWD 1530BRASTORE 1540* 1550* 1560WRTBLKLDXBEGINP 1570DEX 1580LDAA#$AA 1590BRAWRITEB 1600NEXTBLDAA0,X 1610* 1620WRITEBLDAB#$8 1630BRAWB2 1640WB1JSRWAIT28WAIT28MUSEC 1650WB2RORA 1660PSHA 1670BCSW1 1680BSRWR0 1690BRAWRTBEX 1700W1BSRWR1 1710BRAWRTBEX 1720WRTBEXPULA 1730DECB 1740BNEWB1 1750CPXENDPNT 1760BEQWOUT 1770INX 1780BRANEXTB 1790WOUTJSRWRFWD 1800RTS 1810* 1820* 1830WR0TST0,XDELAYOF7MUSEC 1840LDAA#$F5 1850BRACONT 1860CONTSTAAPIAAD 1870JSRWAIT 1880EORA#WDA 1890STAAPIAAD 1900RTS 1910* 1920WR1TST0,XDELAYOF7MUSEC 1930LDAA#$D5 1940BRACONT 1950* 1960* 1970WAITJSRWAIT14 1980NOP 1990NOP 2000NOP 2010NOP 2020JSRWAIT28 2030WAIT28JSRW5 AIT14 2040WAIT14RTS 2050* 2060* 2070READBLLDXBEGINP 2080DEX 2090LDAA#1 2100STAAFIRST 2110JSRDLY1 2120JSRCLEAR 2130LDAAPIAADCLEARINTFLAG 2140READLDAB#8 2150WAI1LDAAPIAAD+1 2160BPLWAI1 2170LDAAPIAAD 2180RORA 2190RORBYTE 2200DECB 2210BEQSTOVF 2220BRAWAI1 2230* 2240STOVFLDAABYTE 2250TSTFIRST 2260BNECLF 2270INX 2280TSTVERF 2290BEQSTO 2300CMPAX 2310BNEERROR 2320STOSTAAX 2330CPXENDPNT 2340BNEREAD 2350CLC 2360RTSBYEBYE 2370CLFCLRFIRST 2380BRAREAD 2390ERRORSEC 2400RTS 2410* 2420OPTL 2430* 2440*ALITTLEBITLEFTFORTHEPRINTER 2450*TOKEEPITAWAKE 2460* 2470DLY250PSHA 2480PSHB 2490LDAB#250 2500NXTJSRDLY1 2510DECB 2520BNENXT 2530PULB 2540PULA 2550RTS 2560* 2570DLY1LDAA#165 2580NXDECA 2590BNENX 2600RTS 2610*********** 2620* 2630CHKSUMLDX#$4000 2640CLRA 2650NXCHK1ADDA0,X 2660INX 2670CPX#$5800 2680BNENXCHK1 2690STAACHKS1 2700LDX#$E400 2710CLRA 2720NXCHK2ADDA0,X 2730INX 2740CPX#$E5C0 2750BNENXCHK2 2760STAACHKS2 2770RTS 2780* 2790***** 2800* 2810CMPRLDXCHKS1 2820CPXCHKSR1 2830BNEERRCHK 2840RTS 2850ERRCHKLDX#$ABCD 2860JMPYY 2870* 2880************************************** 2890END [h+++ + S+ Q,+,,,,,@Wƽ, ƽ, ƽ, ,+,+|½,+@Wƽ,`%9ƽ,`%(}&ƽ,`%,+}' ,+9+~&,, +½+߽,9ц.69жЅ@&9н,,9,,  ,\F6% $ 2Z&' ߽+9m н,R 9m ,_,\,_9 Ƚ,,*FvZ' }&}'&& 9 967,Z&329J&9@OX&O&9ɼ&9Ϋ~+PYY 2940* 2950MISSEDLDX#$EFFE 2960JMPYY 2970************************************** 2980END ************************** 2980END ^p+++ + b+ `,+,,,,,@pWp,pp,pppp,pp,,+,+|p,,@pWp,e%9pp,e%(}p&p pp p,e%,+}p' ,+?+?,, +p+,9.6І9жЅ@&9н,,9,, p  ,aF6% $ 2Z&p' ߽+9m н,W 9m ,d,a,d9p p,, *6 FvpZ' p}p&}p'&p& 9p 967,Z&329J&9@OX&pO&p9pp &9Ϋ~+`+++ + b+ `,+,,,,,@pWp,pp,pppp,pp,,+,+|p,,@pWp,e%9pp,e%(}p&p pp p,e%,+}p' ,+?+?,Ž, +p+,9.І9жЅ@&9н,,9,, p  ,aF6% $ 2Z&p' ߽+9m н,W 9m ,d,a,d9p p,, ф'@&oFvpZ' p}p&}p'&p& 9p 967,Z&329J&9@OX&pO&p9pp &9Ϋ~+~+~+bX++ 6 { zц.p+֍ 96J&297Z&39+,Wp@,8p,8ppp,8p,8+S|p+Wp@,%1p,%#}p&ppp,%+0#}p' +0 ?+?2O жЅ@&9н+(+(9+0+0 @OX&pO&p9pp&9Ϋ~+~+  ,F6% $ 2Z&p' ߽+9m н,z 9m ,,,9 p+(+ф'+ FvpZ' p}p&}p'&p& 9p 9!d 0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$26BB 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310CHKS1RMB1 0320CHKS2RMB1 0330CHKSR1RMB1 0340CHKSR2RMB1 0350* 0360OR7 G$2B00 0370* 0380WBSRINIT 0390BRAWR 0400VBSRINIT 0410BRAVF 0420RBSRINIT 0430BRARD 0440* 0450INITLDAA#$4 0460STAAPIAAD+1 0470LDAA#$FF 0480STAAPIAAD 0490CLRPIAAD+1 0500LDX#$2E06 0510STXPIAAD 0520CLRVERF 0530JSRREWIND 0540BSRDLY250 0550RTS 0560* 0570DLY1PSHA 0580LDAA#164 0590NXDECA 0600BNENX 0610PULA 0620RTS 0630* 0640DLY250PSHB 0650LDAB#250 0660NXTBSRDLY1 0670DECB 0680BNENXT 0690PULB 0700RTS 0710* 0720WRBSRDLY250 0730JSRWRFWD 0740BSRDLY250 0750BSRDLY250 0760BSRDLY250 0770BSRDLY250 0780JSRCHKSUM 0790LDX#$57FF 0800STXENDPNT 0810LDX#$4000 0820JSRWRTBLK 0830LDX#$E5BF 0840STXENDPNT 0850LDX#$E400 0860JSRWRTBLK 0870LDX#CHKS2 0880STXENDPNT 0890LDX#CHKS1 0900JSRWRTBLK 0910LDX#$E5BF 0920STXENDPNT 0930LDX#$E400 0940JSRWRTBLK 0950*INSERTHEREWRITEADDITIONALBLOCKS 0960BSRDLY250 0970JSRSTOP 0980VF1BSRDLY250 0990BSRREWIND 1000VFINCVERF 1010RDBSRDLY250 1020JSRRDFWD 1030LDX#$57FF 1040STXENDPNT 1050LDX#$4000 1060JSRREADBL 1070BCSYY 1080LDX#$E5BF 1090STXENDPNT 1100LDX#$E400 1110JSRREADBL 1120BCSYY 1130TSTVERF 1140BNEZZ 1150LDX#CHKSR2 1160STXENDPNT 1170LDX#CHKSR1 1180JSRREADBL 1190BCSYY 1200ZZJSRDLY250 1210BSRSTOP 1220TSTVERF 1230BEQCHECK 1240JSRDLY250 1250BSRREWIND 1260RTS 1270* 1280YYBSRREWIND 1290JMPERRLOG 1300* 1310CHECKBSRCHKSUM 1320BSRCMPR 1330BRAVF1 1340* 1350REWINDLDAA#REV 1360STAAPIAAD 1370LDAAPIAAD 1380BITA#BET 1390BNEREWIND 1400STOPLDAA#$FF 1410STORESTAAPIAAD 1420RTS 1430* 1440* 1450WRFWDLDAA#FWDWCD 1460STAAPIAAD 1470JSRDLY1 1480JSRDLY1 1490RTS 1500* 1510RDFWDLDAA#FWD 1520BSRSTORE 1530JSRDLY250 1540JSRDLY250 1550CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1560LDAA#FWD 1570BRASTORE 1580* 1590* 1600CHKSUMLDX#$4000 1610CLRA 1620NXCHK1ADDA0,X 1630INX 1640CPX#$5800 1650BNENXCHK1 1660STAACHKS1 1670LDX#$E400 1680CLRA 1690NXCHK2ADDA0,X 1700INX 1710CPX#$E5C0 1720BNENXCHK2 1730STAACHKS2 1740RTS 1750* 1760***** 1770* 1780CMPRLDXCHKS1 1790CPXCHKSR1 1800BNEERRCHK 1810RTS 1820ERRCHKLDX#$ABCD 1830BRAJMPYY 1840* 1850MISSEDLDX#$EFFE 1860JMPYYJMPYY 1870* 1880WRTBLKDEX 1890LDAA#$AA 1900BRAWRITEB 1910NEXTBLDAA0,X 1920* 1930WRITEBLDAB#$8 1940BRAWB2 1950WB1JSRWAIT28WAIT28MUSEC 1960WB2RORA 1970PSHA 1980BCSW1 1990BSRWR0 2000BRAWRTBEX 2010W1BSRWR1 2020BRAWRTBEX 2030WRTBEXPULA 2040DECB 2050BNEWB1 2060CPXENDPNT 2070BEQWOUT 2080INX 2090BRANEXTB 2100WOUTJSRWRFWD 2110RTS 2120* 2130* 2140WR0TST0,XDELAYOF7MUSEC 2150LDAA#$F5 2160BRACONT 2170CONTSTAAPIAAD 2180JSRWAIT 2190EORA#WDA 2200STAAPIAAD 2210RTS 2220* 2230WR1TST0,XDELAYOF7MUSEC 2240LDAA#$D5 2250BRACONT 2260* 2270* 2280WAITJSRWAIT14 2290NOP 2300NOP 2310NOP 2320NOP 2330JSRWAIT28 2340WAIT28JSRWAIT14 2350WAIT14RTS 2360* 2370* 2380READBLDEX 2390LDAA#1 2400STAAFIRST 2410JSRDLY1 2420JSRCLEAR 2430LDAAPIAADCLEARINTFLAG 2440READLDAB#8 2450WAI1LDAAPIAAD+1 2460ANDA#$C0 2470BEQWAI1 2480BMIREADBT 2490BRAMISSED 2500READBTLDAAPIAAD 2510RORA 2520RORBYTE 2530DECB 2540BEQSTOVF 2550BRAWAI1 2560* 2570STOVFLDAABYTE 2580TSTFIRST 2590BNECLF8  2600INX 2610TSTVERF 2620BEQSTO 2630CMPAX 2640BNEERROR 2650STOSTAAX 2660CPXENDPNT 2670BNEREAD 2680CLC 2690RTSBYEBYE 2700CLFCLRFIRST 2710BRAREAD 2720ERRORSEC 2730RTS 2740* 2750************************************** 2760END mP++ 6 { zц.½+Ս 96J&297Z&39+,W@,6,6ǽ,6,6+R|+W@,%1,%#}&ɽ,%+0"}' +0 9 ~&2O жЅ@&9н+(+(9+0+0 @OX&O&9Ǽ&9Ϋ ~+  ,F6% $ 2Z&' ߽+9m н,x 9m ,,,9 ƽ+(+ф'+ FvZ' }&}'&& 9 9o0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$7000 0230ERRLOGEQU$269C 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320B1EQU$4000 0330E1EQU$57FF 0340B2EQU$5800 0350E2EQU$59BF 0360CHKS1EQUE2+1 0370CHKS2EQUE2+2 0380* 0390ORG$2B00 0400* 0410WBSRINIT 0420BRAWR 0430VBSRINIT 0440BRAVF 0450RBSRINIT 0460BRARD 0470* 0480INITLDAA#$4 0490STAAPIAAD+1 0500LDAA#$FF 0510STAAPIAAD 0520CLRPIAAD+1 0530LDX#$2E06 0540STXPIAAD 0550CLRVERF 0560JSRREWIND 0570BRADLY375 0580* 0590DLY1P5CLRA 0600NXDECA 0610BNENX 0620RTS 0630* 0640DLY375CLRB 0650NXTBSRDLY1P5 0660DECB 0670BNENXT 0680RTS 0690* 0700WRJSRWRFWD 0710BSRDLY375 0720BSRDLY375 0730BSRDLY375 0740JSRCHKSUM 0750LDX#E1 0760STXENDPNT 0770LDX#B1 0780JSRWRTBLK 0790LDX#E2+2 0800STXENDPNT 0810LDX#B2 0820JSRWRTBLK 0830LDX#B2 0840JSRWRTBLK 0850BSRDLY375 0860VF1BSRREWIND 0870VFINCVERF 0880JSRCHKSUM 0890RDJSRRDFWD 0900LDX#E1 0910STXENDPNT 0920LDX#B1 0930JSRREADBL 0940BCSYY 0950LDX#E2+2 0960STXENDPNT 0970LDX#B2 0980JSRREADBL 0990BCSYY 1000TSTVERF 1010BEQCHECK 1020BSRREWIND 1030SWIPUTHERERTS 1040* 1050YYBSRREWIND 1060SWIPUTHE9 REJMPERRLOG 1070NOP 1080NOP 1090* 1100CHECKLDXCHKS1 1110STXENDPNT 1120BSRCHKSUM 1130LDXENDPNT 1140CPXCHKS1 1150BEQVF1 1160ERRCHKLDX#$ABCD 1170JMPYYBRAYY 1180* 1190REWINDLDAA#REV 1200BSRSTORE 1210LDAAPIAAD 1220BITA#BET 1230BNEREWIND 1240STOPLDAA#$FF 1250STORESTAAPIAAD 1260RTS 1270* 1280* 1290WRFWDLDAA#FWDWCD 1300BSRSTORE 1310BSRDLYYY 1320DLYYYJMPDLY1P5BECAUSERTSEXPECTED 1340* 1350RDFWDLDAA#FWD 1360BSRSTORE 1370JSRDLY375 1380CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1390LDAA#FWD 1400BRASTORE 1410* 1420* 1430CHKSUMLDX#B1 1440CLRA 1450NXCHK1ADDA0,X 1460INX 1470CPX#E1+1 1480BNENXCHK1 1490STAACHKS1 1500LDX#B2 1510CLRA 1520NXCHK2ADDA0,X 1530INX 1540CPX#E2+1 1550BNENXCHK2 1560STAACHKS2 1570RTS 1580* 1590* 1600MISSEDLDX#$EFFE 1610BRAJMPYY 1620* 1630WRTBLKDEX 1640LDAA#$AA 1650BRAWRITEB 1660NEXTBLDAA0,X 1670* 1680WRITEBLDAB#$8 1690BRAWB2 1700WB1BSRWAIT28WAIT28MUSEC 1710WB2RORA 1720PSHA 1730BCSW1 1740BSRWR0 1750BRAWRTBEX 1760W1BSRWR1 1770BRAWRTBEX 1780WRTBEXPULA 1790DECB 1800BNEWB1 1810CPXENDPNT 1820BEQWRFWD 1830INX 1840BRANEXTB 1850* 1860WR0TST0,XDELAYOF7MUSEC 1870LDAA#$F5 1880BRACONT 1890CONTSTAAPIAAD 1900BSRWAIT76 1910EORA#WDA 1920STAAPIAAD 1930RTS 1940* 1950WR1TST0,XDELAYOF7MUSEC 1960LDAA#$D5 1970BRACONT 1980* 1990* 2000WAIT76BSRWAIT13 2010TST0,XDELAYOF7MUSEC 2020BSRWAIT28 2030WAIT28BSRWAIT13 2040NOP 2050WAIT13RTS 2060* 2070* 2080READBLDEX 2090LDAA#1 2100STAAFIRST 2110JSRDLY1P5 2120JSRCLEAR 2130LDAAPIAADCLEARINTFLAG 2140READLDAB#8 2150WAI1LDAAPIAAD+1 2160ANDA#$C0 2170BEQWAI1 2180BPLMISSED 2190READBTLDAAPIAAD 2200RORA 2210RORBYTE 2220DECB 2230BNEWAI1 2240* 2250STOVFLDAABYTE 2260TSTFIRST 2270BNECLF 2280INX 2290TSTVERF 2300BEQSTO 2310CMPAX 2320BNEERROR 2330STOSTAAX 2340CLFCLRFIRST 2350CPXENDPNT 2360BNEREAD 2370*CARRYALWAYSRESETBYCLRFIRST 2380RTSBYEBYE 2390ERRORSEC 2400RTS 2410* 2420************************************** 2430END * 2550OPTL 2560* 2570*ALITTLEBITLEFTFORTHEPRINTER 2580*TOKEEPITAWAKE 2590* 2600*********** 2610*************w++ / Y [ц.p+ OJ&9_Z&9++Wp@+YpX+X+͍G|p+Ͻ+Wp@,9%YpX,9%}p'??Yp4pY'Ϋ Ѕ@&9~+'+, @OX&YXOY&Y9  5F6%  2Z&p' m Ѝ 9m m9 p+'+ɶф'*FvpZ&p}p& }p'& pp&9 9x0010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAE: QU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$7000 0230ERRLOGEQU$269C 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320B1EQU$4000 0330E1EQU$57FF 0340B2EQU$5800 0350E2EQU$59BF 0360CHKS1EQUE2+1 0370CHKS2EQUE2+2 0380* 0390ORG$2B00 0400* 0410WBSRINIT 0420BSRWR 0430VBSRINIT 0440BSRVF 0450RBSRINIT 0460BSRRD 0470SWI 0480* 0490INITLDAA#$4 0500STAAPIAAD+1 0510LDAA#$FF 0520STAAPIAAD 0530CLRPIAAD+1 0540LDX#$2E06 0550STXPIAAD 0560CLRVERF 0570JSRREWIND 0580BRADLY375 0590* 0600DLY1P5CLRA 0610NXDECA 0620BNENX 0630RTS 0640* 0650DLY375CLRB 0660NXTBSRDLY1P5 0670DECB 0680BNENXT 0690RTS 0700* 0710WRJSRWRFWD 0720BSRDLY375 0730BSRDLY375 0740BSRDLY375 0750LDX#E1 0760STXENDPNT 0770LDX#B1 0780JSRWRTBLK 0790LDX#E2+2 0800STXENDPNT 0810BSRCHKSUM 0820LDX#B2 0830JSRWRTBLK 0840LDX#B2 0850JSRWRTBLK 0860BSRDLY375 0870VF1BSRREWIND 0880VFINCVERF 0890BSRCHKSUM 0900RDBSRRDFWD 0910LDX#E1 0920STXENDPNT 0930LDX#B1 0940JSRREADBL 0950BCSYY 0960LDX#E2+2 0970STXENDPNT 0980LDX#B2 0990JSRREADBL 1000BCSYY 1010TSTVERF 1020BNEREWIND 1030* 1040CHECKLDXCHKS1 1050STXENDPNT 1060BSRCHKSUM 1070LDXENDPNT 1080CPXCHKS1 1090BEQVF1 1100ERRCHKLDX#$ABCD 1110BRAYY 1120* 1130YYBSRREWIND 1140SWIPUTHEREJMPERRLOG 1150NOP 1160NOP 1170* 1180REWINDLDAA#REV 1190BSRSTORE 1200LDAAPIAAD 1210BITA#BET 1220BNEREWIND 1230STOPLDAA#$FF 1240STORESTAAPIAAD 1250RTS 1260* 1270* 1280WRFWDLDAA#FWDWCD 1290BSRSTORE 1300BSRDLYYY 1310DLYYYJMPDLY1P5BECAUSERTSEXPECTED 1320* 1330RDFWDLDAA#FWD 1340BSRSTORE 1350JSRDLY375 1360CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1370LDAA#FWD 1380BRASTORE 1390* 1400* 1410CHKSUMLDX#B1 1420CLRA 1430NXCHK1ADDA0,X 1440INX 1450CPX#E1+1 1460BNENXCHK1 1470STAACHKS1 1480LDX#B2 1490CLRA 1500NXCHK2ADDA0,X 1510INX 1520CPX#E2+1 1530BNENXCHK2 1540STAACHKS2 1550RTS 1560* 1570* 1580MISSEDLDX#$EFFE 1590BRAYY 1600* 1610WRTBLKDEX 1620LDAA#$AA 1630BRAWRITEB 1640NEXTBLDAA0,X 1650* 1660WRITEBLDAB#$8 1670BRAWB2 1680WB1BSRWAIT28WAIT28MUSEC 1690WB2RORA 1700PSHA 1710BCSW1 1720BSRWR0 1730BRAWRTBEX 1740W1BSRWR1 1750BRAWRTBEX 1760WRTBEXPULA 1770DECB 1780BNEWB1 1790CPXENDPNT 1800BEQWRFWD 1810INX 1820BRANEXTB 1830* 1840WR0TST0,XDELAYOF7MUSEC 1850LDAA#$F5 1860BRACONT 1870CONTSTAAPIAAD 1880BSRWAIT76 1890EORA#WDA 1900STAAPIAAD 1910RTS 1920* 1930WR1TST0,XDELAYOF7MUSEC 1940LDAA#$D5 1950BRACONT 1960* 1970* 1980WAIT76BSRWAIT13 1990TST0,XDELAYOF7MUSEC 2000BSRWAIT28 2010WAIT28BSRWAIT13 2020NOP 2030WAIT13RTS 2040* 2050* 2060READBLBSRDLYYY 2070BSRCLEAR 2080DEX 2090LDAA#1 2100STAAFIRST 2110LDAAPIAADCLEARINTFLAG 2120READLDAB#8 2130WAI1LDAAPIAAD+1 2140ANDA#$C0 2150BEQWAI1 2160BPLMISSED 2170READBTLDAAPIAAD 2180RORA 2190RORBYTE 2200DECB 2210BNEWAI1 2220* 2230STOVFLDAABYTE 2240TSTFIRST 2250BNECLF 2260INX 2270TSTVERF 2280BEQSTO 2290CMPAX 2300BNEERROR 2310STOSTAAX 2320CLFCLRFIRST 2330CPXENDPNT 2340BNEREAD 2350*CARRYALWAYSRESETBYCLRFIRST 2360RTSBYEBYE 2370ERRORSEC 2380RTS 2390; * 2400************************************** 2410END x++ 0YZ?ц.p+ OJ&9_Z&9+Wp@+YpyX+X+΍B|pdUWp@,4%(YpX,4%}p&Yp9pY'Ϋ ? Ѕ@&9~+(+- @OX&YXOY&Y9  5F6%  2Z&p' m Ѝ 9m m9 pф'*FvpZ&p}p& }p'& pp&9 90010OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$2615 0240* 0250ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320B1EQU$4000 0330E1EQU$57FF 0340B2EQU$E400 0350E2EQU$E5BF 0360CHKS1EQUE2+1 0370CHKS2EQUE2+2 0380* 0390ORG$2B00 0400* 0410WBSRINIT 0420BRAWR 0430VBSRINIT 0440BRAVF 0450RBSRINIT 0460BRARD 0470* 0480INITLDAA#$4 0490STAAPIAAD+1 0500LDAA#$FF 0510STAAPIAAD 0520CLRPIAAD+1 0530LDX#$2E06 0540STXPIAAD 0550CLRVERF 0560JSRREWIND 0570BRADLY375 0580* 0590DLY1P5CLRA 0600NXDECA 0610BNENX 0620RTS 0630* 0640DLY375CLRB 0650NXTBSRDLY1P5 0660DECB 0670BNENXT 0680RTS 0690* 0700WRJSRWRFWD 0710BSRDLY375 0720BSRDLY375 0730BSRDLY375 0740LDX#E1 0750STXENDPNT 0760LDX#B1 0770JSRWRTBLK 0780LDX#E2+2 0790STXENDPNT 0800BSRCHKSUM 0810LDX#B2 0820JSRWRTBLK 0830LDX#B2 0840JSRWRTBLK 0850BSRDLY375 0860VF1BSRREWIND 0870VFINCVERF 0880BSRCHKSUM 0890RDBSRRDFWD 0900LDX#E1 0910STXENDPNT 0920LDX#B1 0930JSRREADBL 0940BCSYY 0950LDX#E2+2 0960STXENDPNT 0970LDX#B2 0980JSRREADBL 0990BCSYY 1000TSTVERF 1010BNEREWIND 1020* 1030CHECKLDXCHKS1 1040STXENDPNT 1050BSRCHKSUM 1060LDXENDPNT 1070CPXCHKS1 1080BEQVF1 1090ERRCHKLDX#$ABCD 1100BRAYY 1110* 1120YYBSRREWIND 1130JMPERRLOG 1140NOP 1150NOP 1160* 1170REWINDLDAA#REV 1180BSRSTORE 1190LDAAPIAAD 1200BITA#BET 1210BNEREWIND 1220STOPLDAA#$FF 1230STORESTAAPIAAD 1240RTS 1250* 1260* 1270WRFWDLDAA#FWDWCD 1280BSRSTORE 1290BSRDLYYY 1300DLYYYJMPDLY1P5BECAUSERTSEXPECTED 1310* 1320RDFWDLDAA#FWD 1330BSRSTORE 1340JSRDLY375 1350CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1360LDAA#FWD 1370BRASTORE 1380* 1390* 1400CHKSUMLDX#B1 1410CLRA 1420NXCHK1ADDA0,X 1430INX 1440CPX#E1+1 1450BNENXCHK1 1460STAACHKS1 1470LDX#B2 1480CLRA 1490NXCHK2ADDA0,X 1500INX 1510CPX#E2+1 1520BNENXCHK2 1530STAACHKS2 1540RTS 1550* 1560* 1570MISSEDL< DX#$EFFE 1580BRAYY 1590* 1600WRTBLKDEX 1610LDAA#$AA 1620BRAWRITEB 1630NEXTBLDAA0,X 1640* 1650WRITEBLDAB#$8 1660BRAWB2 1670WB1BSRWAIT28WAIT28MUSEC 1680WB2RORA 1690PSHA 1700BCSW1 1710BSRWR0 1720BRAWRTBEX 1730W1BSRWR1 1740BRAWRTBEX 1750WRTBEXPULA 1760DECB 1770BNEWB1 1780CPXENDPNT 1790BEQWRFWD 1800INX 1810BRANEXTB 1820* 1830WR0TST0,XDELAYOF7MUSEC 1840LDAA#$F5 1850BRACONT 1860CONTSTAAPIAAD 1870BSRWAIT76 1880EORA#WDA 1890STAAPIAAD 1900RTS 1910* 1920WR1TST0,XDELAYOF7MUSEC 1930LDAA#$D5 1940BRACONT 1950* 1960* 1970WAIT76BSRWAIT13 1980TST0,XDELAYOF7MUSEC 1990BSRWAIT28 2000WAIT28BSRWAIT13 2010NOP 2020WAIT13RTS 2030* 2040* 2050READBLBSRDLYYY 2060BSRCLEAR 2070DEX 2080LDAA#1 2090STAAFIRST 2100LDAAPIAADCLEARINTFLAG 2110READLDAB#8 2120WAI1LDAAPIAAD+1 2130ANDA#$C0 2140BEQWAI1 2150BPLMISSED 2160READBTLDAAPIAAD 2170RORA 2180RORBYTE 2190DECB 2200BNEWAI1 2210* 2220STOVFLDAABYTE 2230TSTFIRST 2240BNECLF 2250INX 2260TSTVERF 2270BEQSTO 2280CMPAX 2290BNEERROR 2300STOSTAAX 2310CLFCLRFIRST 2320CPXENDPNT 2330BNEREAD 2340*CARRYALWAYSRESETBYCLRFIRST 2350RTSBYEBYE 2360ERRORSEC 2370RTS 2380* 2390************************************** 2400END x++ / X Yц.½+ OJ&9_Z&9+W@+č{++΍D|fWW@,5%(,5%}&č;ļ'Ϋ ~& Ѕ@&9~+'+, @OX&O&9  5F6%  2Z&' m Ѝ 9m m9 ƶф'*FvZ&}& }'& Ƽ&9 9@@찷첆찷? &9@`챽@ 쳷쳽@ 챽~@09>l>DK >?z>l>DK ?{?>l>DK ?@z4(#&83-29..00010ORG$3000 0020ACIAEQU$ECB0 0030ACIADEQUACIA+1 0040STARTLDAA#3 0050STAAACIA 0060LDAA#$11 0070STAAACIA 0080LDAAACIAD 0090BEGINLDX#$6000 0100* 0110* 0120LOOPLDAA$FCF5 0130ANDA#$7F 0140CMPA#$3 0150BEQEXIT 0160LDAAACIA 0170RORA 0180BCCLOOP 0190LDAAACIAD 0200STAA0,X 0210INX 0220BRALOOP 0230EXITSWI 0240FCB$1A 0250END 000찆찶`'F$챧 ?= 0FC 0FORREMOTE. 0250MESSAGFCB$0D,0,$0A,0,$0A,0,$0A,0,0,0 0260FCC/LABNETDEMOLINKINGTWOTERMINALS/ 0270FCB$0A,0,$0D,$0A,0,0010 ORG $A000 0020ACIA EQU $FF00 0030MAIN LDX #$1300 0040 LDA #3 0050 STA ACIA 0060 LDA #$11 0070 STA ACIA 0080MAIN2 LDA X+ 0090 CMPA #$FF 0100 BEQ END 0110MAIN3 LDB ACIA 0120 LSRB 0130 LSRB 0140 BCC MAIN3 0150 STA ACIA+1 0160 BRA MAIN2 0170END LDX #T1 0180 PRINT 0190 EXIT 0200T1 FCB "Source transmitted",$D,$A,4 0210 END ************************************-+(``0010ACIAEQU$FF00 0020ORG$E000 0030STARTLDA#3 0040STAACIA 0050LDA#$11 0060STAACIA 0070LDA#$FF 0080STATYPE 0090MAINLDX#T3 0100PRINT 0110IN 0120LDX#MAIN2 0130MAIN4CMPAX 0140BEQMAIN3 0150LEAX3,X 0160CMPX#MAIN2+27 0170BNEMAIN4 0180LDX#T1 0190PRINT 0200BRAMAIN 0210MAIN3JSR(1,X) 0220BRAMAIN 0230MAIN2FDB"t",TEST,"s",SEL,"r",READ,"m",MREAD,"p",PROG,"e",EXIT 0240FDB"l",LOAD,"d",DUMP,"v",VERI 0250T1FCB$D,$A,"Invalidcommand,select:" 0260FCB$D,$A,"ttoperformablankcheck" 0270FCB$D,$A,"stoselectaEPROMtype" 0280FCB$D,$A,"rtoreadthecopyEPROM" 0290FCB$D,$A,"mtoreadthemasterEPROM" 0300FCB$D,$A,"ptoprogrammthecopyEPROM" 0310FCB$D,$A,"etoexittheprogramm" 0320FCB$D,$A,"ltoloadthecopyEPROMcontentstomemory" 0330FCB$D,$A,"dtodumpmemorycontentsintotheEPROM" 0340FCB$D,$A,"vtoverifycopyEPROMcontentswithmemory" 0350FCB4 0360EXITEXIT 0370TESTCLRA 0380LBSROUT 0390LDA#4 0400LBSROUT 0410LDA#3 0420LBSROUT 0430LDATYPE 0440LBSROUT 0450LBSRIN 0460LBSRERROR 0470RTS 0480SELLDX#T2 0490PRINT 0500IN 0510CMPA#'0 0520BLOSEL 0530CMPA#'5 0540BHISEL 0550ANDA#$F 0560STATYPE 0570RTS 0580PROGLDX#T5 0590PRINT 0600INPAR 0610TFRU,Y 0620LDX#T6 0630PRINT 0640INPAR 0650CLRA 0660LBSROUT 0670LDA#7 0680LBSROUT 0690LDA#2 0700LBSROUT 0710LDATYPE 0720LBSROUT 0730TFRY,D 0740LBSROUT 0750EXGA,B 0760LBSROUT 0770TFRU,D 0780TFRB,A 0790LBSROUT 0800LBSRIN 0810PSHSA 0820LBSRERROR 0830LDAS+ 0840BMIPROG2 0850LBSRIN 0860LBSRERROR 0870PROG2RTS 0880MREADLDA#1 0890BRAREAD2 0900READLDA#0 0910READ2PSHSA 0920LDX#T5 0930PRINT 0940LDU#0 0950INPAR 0960TFRU,Y 0970LDX#T7 0980PRINT 0990LDU#1 1000INPAR 1010CLRA 1020LBSROUT 1030LDA#8 1040LBSROUT 1050PULSA 1060LBSROUT 1070LDATYPE 1080LBSROUT 1090TFRY,D 1100LBSROUT 1110EXGA,B 1120LBSROUT 1130TFRU,D 1140LBSROUT 1150EXGA,B 1160LBSROUT 1170LBSRIN 1180TSTA 1190BPLREAD9 1200LBSRERROR 1210RTS 1220READ9EXGU,Y 1230PSHSY 1240LDX#BUF 1250READ6LBSRIN 1260STAX+ 1270LEAY-1,Y 1280BNEREAD6 1290PULSY 1300LDX#BUF 1310READ4LDB#16 1320PSHSB 1330TFRU,D 1340CRLF 1350OUTH2S 1360READ5LDAX+ 1370OUTH1S 1380LEAU1,U 1390LEAY-1,Y 1400BEQREAD3 1410DECS 1420BNEREAD5 1430LEAS1,S 1440BRAREAD4 1450READ3PULSB,PC 1460VER> ILDA#1 1470BRALOAD9 1480LOADCLRA 1490LOAD9PSHSA 1500LDX#T5 1510PRINT 1520LDU#0 1530INPAR 1540TFRU,Y 1550LDX#T7 1560PRINT 1570LDU#1 1580INPAR 1590PSHSU 1600LDX#T9 1610PRINT 1620LDU#0 1630INPAR 1640TFRU,X 1650PULSU 1660CLRA 1670LBSROUT 1680LDA#8 1690LBSROUT 1700LDA#0 1710LBSROUT 1720LDATYPE 1730LBSROUT 1740TFRY,D 1750LBSROUT 1760EXGA,B 1770LBSROUT 1780TFRU,D 1790LBSROUT 1800EXGA,B 1810LBSROUT 1820LBSRIN 1830TSTA 1840BPLLOAD8 1850LBSRERROR 1860LEAS1,S 1870RTS 1880LOAD8TFRU,Y 1890LDU#BUF 1900LDAS+ 1910BNELOAD4 1920LOAD3LBSRIN 1930STAX+ 1940LEAY-1,Y 1950BNELOAD3 1960RTS 1970LOAD4LBSRIN 1980CMPAX+ 1990BEQLOAD5 2000CMPU#BUF+1024 2010BEQLOAD5 2020STXU++ 2030STAU+ 2040LDA-1,X 2050STAU+ 2060LOAD5LEAY-1,Y 2070BNELOAD4 2080CMPU#BUF 2090BEQLOAD10 2100LOAD12LDX#T12 2110PRINT 2120LDA-U 2130OUTH1S 2140LDX#T13 2150PRINT 2160LDA-U 2170OUTH1S 2180LDX#T14 2190PRINT 2200LDD--U 2210SUBD#1 2220OUTH2S 2230CMPU#BUF 2240BNELOAD12 2250RTS 2260LOAD10LDX#T15 2270PRINT 2280RTS 2290DUMPLDX#T5 2300PRINT 2310LDU#0 2320INPAR 2330PSHSU 2340LDX#T7 2350PRINT 2360LDU#1 2370INPAR 2380PSHSU 2390LDX#T9 2400PRINT 2410LDU#0 2420INPAR 2430DUMP2LDDS 2440BEQDUMP4 2450CMPD#$400 2460BLSDUMP7 2470LDD#$400 2480DUMP7TFRD,Y 2490ADDD#6 2500LBSROUT 2510EXGA,B 2520LBSROUT 2530LDA#2 2540LBSROUT 2550LDATYPE 2560LBSROUT 2570LDA2,S 2580LBSROUT 2590LDA3,S 2600LBSROUT 2610DUMP3LDAU+ 2620LBSROUT 2630LEAY-1,Y 2640BNEDUMP3 2650LBSRIN 2660TSTA 2670BMIDUMP5 2680LBSRIN 2690TSTA 2700BMIDUMP6 2710LDD2,S 2720ADDD#$400 2730STD2,S 2740LDDS 2750SUBD#$400 2760STDS 2770BPLDUMP2 2780DUMP4LEAS4,S 2790RTS 2800DUMP6EQU* 2810DUMP5LBSRERROR 2820LEAS4,S 2830RTS 2840T2FCB$D,$A,"Selecttype0=2716",$D,$A 2850FCB"1=2732",$D,$A 2860FCB"2=2764",$D,$A 2870FCB"3=27128",$D,$A 2880FCB"4=27256",$D,$A 2890FCB"5=2532yourchoice?",4 2900T3FCB$D,$A,"Entercommand:",4 2910T5FCB$D,$A,"StartaddressEPROM:",4 2920T6FCB$D,$A,"Data:",4 2930T7FCB$D,$A,"Numberofbytes:",4 2940T9FCB$D,$A,"Memoryaddress:",4 2950T12FCB$D,$A,"Datashouldbe:",4 2960T13FCB"was:",4 2970T14FCB"ataddress",4 2980T15FCB$D,$A,"Dataequal",4 2990INLDAACIA 3000BITA#1 3010BEQIN 3020LDAACIA+1 3030RTS 3040OUTPSHSA 3050OUT2LDAACIA 3060BITA#2 3070BEQOUT2 3080PULSA 3090STAACIA+1 3100RTS 3110ERRORPSHSD,X 3120LDX#ERROR2 3130ERROR5CMPAX+ 3140BEQERROR3 3150CMPX#ERROR4 3160BNEERROR5 3170LDX#T4 3180PRINT 3190PULSD,X,PC 3200T4FCB$D,$A,"Unknownerror",4 3210ERROR3CRLF 3220PRINT 3230PULSD,X,PC 3240ERROR2FCB0,4 3250FCB1,"Programming",4 3260FCB3,"EPROMnotblank",4 3270FCB$81,"Toomutchdata",4 3280FCB$82,"Softwareerror",4 3290FCB$83,"EPROMtypenotselected",4 3300FCB$84,"Datadoesn'tfit",4 3310FCB$85,"StartaddressoutsideEPROMspace",4 3320FCB$86,"EPROMnotempty",4 3330FCB$87,"EPROMwillnotproramm",4 3340ERROR4EQU* 3350TYPERMB1 3360BUFRMB1050 3370END  LABNET DEMO LINKING TWO TERMINALS ENTER R FOR REMOTE LINK OR L FOR LOCAL :  READY ? @ 00.00.00.s.s.s x @@DDD'R&D DD_'''@''~@%?B&|DE&DD~@%}D'|DD& &96@zB@z@z@zD@z2@zE9 LABNET DEMO LINKING TWO TERMINALS ENTER R FOR REMOTE LINK OR L FOR LOCAL :  READY @ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ @ 00.00.00.s.s.s@  00.00.00.s.s.s@  00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.sA .s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@B  00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@ 00.00.00.s.s.s@  00.00.00.s.s.s@ C D E F G H I J K L