IMD 1.18: 5/11/2012 19:52:08 televideo systems 802 ver 2.0 cp/m version 2.2 serial number 2326-01861    1@>y>y!ia>y>>s@ .#{%8,}>s@ }{8y>s@ >>>>= G @>y>y!ia>y>>s@ .#{%8,}>s@ }{8y>s@ >>>>= G #͘*~ "޷"͌#>?͌͘ =_.:;<> Oޅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6"  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&)|+!<ͧ E"C{2!"E9"1A22!ty)K!G_^#V*C~E ,&-AGMS!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~62E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*"**#"͕: 2Þy<_WyOxOxG* ~V5dw^ :ʈNÎ N#Fyʝ*}|\#u*#DM*6# x±**s#r͡*6#6^>:A#~$=2Ek͌\X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ܯ2#~?  xDIR ERA TYPESAVEREN USER E!yO#< Ty#O 3߯21y_͸2y2ͽ:ܷ˜1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^:ÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Ypsp2mÆÆf ͧÆFILE EXISTS _: É: :ʉ=2)ͽÉ T!@k!}|q O͐  :E B 2>: b# : y! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: !  Hù H H $O͐: 2 *CN# yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \S*C :qn& ^#V>O^"*}:*)=":O:o"*C *C!ͮ~2~2ͦ:2ͮ:O:w:w |g}o*# ::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(! ! ~ 3#0 Wx x ހ ނ G ~ # 3x~#B!Y~ɯ2:=!ý:=!:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x =qf^!~2>`~22\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: ! Â$$$ SUBx: 2 p&x~+é72 H! >w_: ! 5ͤNkͱ¦ͱxʊ#Nx: ! 2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ,w͜͸Ͳ!!N#F$**O!~#ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #     w ~>2!E5T*C!"C"C!w# F! w͌x2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻx>2>2ͻ:!Z2:Eẅ́͊Ͳ>s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bw!>2*C~=2u:B2~2wE:A*Cw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q* >##$$(ɯ=G>=12  x >2x [f (y!W(y 1[[f yˇ:G_!4#G(!("{ #W(>!x(8#W(y!~(8w o>  xNG 2y2*s[qKo(% *s[qKo>>2À>2u:A2U!::vOˑ:8<2wy2v:x>2x@ x w(!=:v2v>2vx2!v͓:!_6>>~Of#N#F#ͪ!7|ʷ*>,ͧE::<>,D::<269269!+͂+f+*ͪ*)9|*Q*6 H:*>ɧE ELENo Fatal error(s) Warning(s):L8G)+!8+͂+Rf+REPT/IRP/IRPC/MACROUnterminated ͛+! +V> ݓ> ̓>:<> D> D!L+::F4E2C0D0A4F524916 :1004C50047494E204E554D4245523F202411D804F0 :1004D500C3B1030D0A5354415254494E4720534565 :1004E5005249414C204E554D4245523F202411F969 :1004F50004C3B1030D0A494E56414C4944204E559B :100505004D4245522C2054525920414741494E20D5 :100515002412>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:E͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=26):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2/ɯ!:>#G>>ɯ: 22}!y2|o&))))yy2}y2~C`iɯ2>22>22y2 >2:|2:}2:~2:(4=2:|! ':}! :~! 4~H8 6:<222<22:~2!~6(%:|! :}! :!(*:~#G:(O ^#V:u !0!5!:vW(6261!:c!:wc!-:c!sw#sw 007m<͑χm<͑χ#L G TELEVIDEO SYSTEM TS-802 V2.0 62k CP/M vers 2.2 Boot Error. 9) ERROR<×@ConditionalSymbols: Macros: :9!"9"9*9+!9!*94zW{_24>?<29292=*9$6 ","9%5!95ð+~<=8ymbols: Macros: :9!"9"9*9+!9!*94zW{_24>?<29292=*9$6 ","9%5!911C05C3B1030D0A53455249414C49E9 :100525005A494E47204449534B2024117406CDB1F6 :1005350003119206C3B103114205C3B1030D0A4964 :100545004E53455254204E4557204449534B45542C :1005550054452C20545950452052455455524E244B :10056500116B05C3B1030D0A424144204D4F56435B2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{dÀ%OÈ|p+AFKSgP(C) 1981, TELEVIDEO SYSTEMS INC.1!2v2>2T1> 2x2ͪ+!,MDKJAKFS(!x5 !{H8 K>2!"2!"222:O(f:|2:}2:2:(_2:~g.<[: >2:(:ɯ2f>!>!2u"z:!vēb> 2w*zͻ :u ::!w~5(:!:O ~G:w>>= CoSq"s>2u2 :u: SIDE# =, TRACK# ), SECTOR# :#, FDC STATUS READ WRITE Check the disk in drive "", and close the door. ?)eOH?"7͙!+!M9>%6̓!+!9>%6̓ f+*khh* ::<229269Â*!*͂+!+͂+*mP**@ ! I$ H" AI$B@ I!$! ! D "@@I  :10057500504D2E434F4D2046494C452C2052455059 :100585004C41434524119005C3B1030D0A4E4F4E0E :100595002043502F4D204449534B455454452C205E :1005A50043414E4E4F542053455249414C495A45BB :1005B5002411BC05C3B1030D0A56455249464943AA :1005C5004154494F4E204552524F   522C20424144EE :1005D500204449534B2411E105C3B1030D0A53458A :1005E5005249414C204E554D424552204F56455299 :1005F500464C4F5724110006C3B1030D0A4552520C :100605004F52204F4E20534F555243452044495396 :100615004B2C205245504C41434524112606C3B16D :10062500030D0A06ED0004050A0B101116171C1D222328292E2F65 :0806FD0034353A3B4041464709 :00010000FF "C {2!"E 9" 1A 22!ty)K!G_^#V*C   ~E , &-x : ! 2 ͤ ! 5™ #wO ~x½  p H    y< < ʑ  : !qMD # 2E > ! ^#V w#P :B O|^#V#"##"##"##"!O *!#z r+s{ozg**͕ **  , w͜ ͸ Ͳ ! !N#F$**O !~#*C w~#+w#w+ɯ2E 22 i  ^ *C :~w~͔͔# #  w ~>2!E 5T *C !"C  "C !w# F! w͌ x 2͢ *C  ~<wʃG:!ʎì 46}2E x N! ~态O>G~G!~G} *C !r#r#r ^ ͥ_y#x#{s+p+q-*C  ͥ!!q#p#w*:B O Y G }*MD "ã:!B w!>2*C ~=2u:B 2~2wE:A *C w>" !"43414E4E4F54205752495445201D :100635004E4557204449534B2C205245504C41437D :100645004524114D06C3B1030D0A43414E4E4F5487 :100655002052452D52454144204E4557204449538B :0B0665004B2C205245504C41434524D3 :100672000D0A30303030302D240D0A3030205452E3 :0E06820041AGMS  !!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$ :B A2 ! ~6  O͐  : E  B 2 >: b # : y! 4 5~yy 5 6y Ґ O *|!6ʝ 6>*w#w*w#w'û *! J * ""!N#F*^#V*~#foyx *{_zW+ * yx # *DM*s#r*s#ryOxG*0MD!!N: E G>O: \ S *C  :q n& ^#V> O^ "*} N#Fyʝ*}|\#u* #DM*6# x±**s#r͡ *6#6  ^ >:A #~$=2E k͌ : :/GyO>2!q*C " ͡  ʔ*J Ҕ^ :Oyʃ?|x | s-|N-# S:~ʶ ¬:<ʶ$ ʶïZͻ   x >2>2ͻ :!Z2:E w ̈́ ͊ Ͳ  >2>2T *C G ͻ : w ̈́ n> 2;O ^ DM;}H> "*C  ::dd slO s#r:E ͊ :==»y==»"2B !" !r QQQâ~?ͦ ~?r Q *"C Q- Q͜QüQr Q$Q*):B  " *)*)Q;*"E :;:A  2A QÓQÜQ*C }/_|/*W}_*"}o|g":ʑ*C 6:ʑw434B5320564552494649454424B6 :10069200303030303024BBB6ADDFBAADBEDFABA6F2 :0F06A200AFBAACBEA9BAADBAB1DFAAACBAAD0758 :1006BD00000106070C0D121318191E1F24252A2BD5 :1006CD00303136373C3D4243020308090E0F1415F5 :1006DD001A1B202126272C2D323338393E3F444515 :10^H @Oy H  H : – ͬ   #H : !  H ù  H  H $O͐ : 2 *C N#  x : 2 p & x ~+é 7 2 H ! >w _ : ! 5ͤ N k ͱ ¦ ͱ xʊ #N :*)= ":O:o"*C  *C !ͮ ~2~2ͦ :2ͮ : O:w:w |g}o *# ) :B O! yoxg*:B O }!N#F "*#*s#r^  ~!J  ! J *:o$*C ~i 6i w**{2E !~Яw > T   D ^ 6k -äPYy 5*{zBK5ڋ*Ww# *" ͸ *:G#š" ͸ :!w4!i w: Z!E ~=26 2*C !!~~#~O~G#n,-.‹! w! yG!x͢.:E <ʄ! q!pQ:E <. ʄ$.:E <ʄ i :2E* *E }DQ>2d} #QE9 0ö(C) 1981, TELEVIDEO SYSTEMS INC.1!+2>2<P1> 2   !,MDJ K(!5 !+{H8 >2!"2!"222:OLG>=L( L//W(y LL/L//]r yˇ:G_!4G( :w>͚>= !P2G( +| >22:Oˑ:8<y2(!=:2>2x2 :!_6>͚>~O/#N#F#!5!5~#G:(O ^#Vm<χm<$$I! H*  $H@@A I $D!!$I"BI"I"@$BIIH$$$$BBI$@BI!"$$A DI$@ A$@$$@H! "!$$" @B$!!!DH$$"H @B61217 :1013A000CD2412CDF50ECAB612C3AF12CD5A11CD4F :1013B000BB0DAFC3010CCD050CC3780E3E0132D579 :1013C000163EFF32D316CDBB0D3AE31621E1C5793D3DC2BB13E52AB91657772314F23F :101490008C13CDE00E2AE7160E0222E516C5CDD13B :1014A0000CC1CDB80C2AE5160E003AC41647A5B8F3 :1014B00023C29A13E122E516CDDA0ECDD10CC1C5B7 :1014C000CDB80CC13AE31621E116BEDAD213773457 :1014D0000E020D0DC2DF13F5CD690EE67F77F1F80E0EFFCD0314CCC112C90E00CD03CB :1015A00014CC0313C9EB194E0600210C00197E0F51 :1015B000E680814F3E0088477E0FE60F8047210E70 :1015C00000197E87878787F58047F5E17DE1B5E6DD :1015D00001C90E0CCD18102A430C11210019E57217 :1015E00023722372CDF50ECA0C15CD5E0E110F00BD("{ W(> x(8W(y ~(8wLo>/ɯ!:>G>>ɯ: 22!y2o&))))y2y2C`iɯ2>22>2Õ2y2 >2:2:2:2:(4=2:! ':! :! 4~H8 6:<2LG TSI System I CP/M V1.0 62k CP/M vers 2.2 Boot Error. H? (/t ͨ #~Œ~$w#+"U8>2L8!"M8m#>2b8:^8Þ (ͨ )#~d(~w,(t(w͌(~8~w#w#@BHH  !$$A"D@ "A" "BHA " !$ D B I $ !$$ H@BD D$ HI DIA!$$$ $" "$D ! $"  $AB " BDD $$D!"DI$!$BH!"IB I$"D HD" 16BE11 :1013D000DAE612FE80C2FB12CD5A12AF32E3163AA1 :1013E000450CB7C2FB12CD770DCD840DCAFB12CDD3 :1013F0008A0DCDD10CCDB20CC3D20DC3050C3E016C :1014000032D5163E0032D316CD540E2A430CCD47AA :101410000ECDBB0D3AE316FE80D2050CCD770DCD77 :10142000840D0E00C26E13E2A :1014E0007FC200143AD516FE01C20014CDD20DCD34 :1014F0005A1221450C7EB7C2FE133D32E316360068 :10150000C3D20DAF32D516C52A430CEB21210019E9 :101510007EE67FF57E17237E17E61F4F7E1F1F1F77 :101520001FE60F47F1236E2C2D2E06C28B142120AF :10153000001977210C0019799 :1015F000CDA514E1E55F799623789E237B9EDA06DC :1016000015732B702B71CD2D10C3E414E1C92A433F :101610000C112000CDA5142121001971237023770E :10162000C92AAF163A420C4FCDEA0DE5EBCD590C65 :10163000E1CC470C7D1FD82AAF164D44CD0B0E22AE :10164000AF16C3A30F3AD616214222<22:2!~6(%:! :! :!(*:(/:2:2:2:((2:g.<[: >2:(:ɯ2/>!g>!x2":> 2*5} :͚ : :!~5( :!:O ~w#w"7=):v8Ux†x 27*7"7̈́ x]I:(9ä"7=)x†*7)#~Œ~@ w#s#r#*Y8s#r]D:9)+:q7@ $@B B HH II$@DI ABI$"$H$H@" $"! @H !BI " I  $I$I$DI$ !I$@"$"$! $I$I$@  $%P**@ ! I$ H" AI$B@ I!$! ! D "@@I CD3E0D32D716010000A2 :10143000B7CA3B134F0BCD5E0D444DCDBE107DB4EE :10144000C248133E02C3010C22E516EB2A430C01ED :101450001000093ADD16B73AD716CA6413CD640EE8 :1014600073C36C134F060009097323720E023A45C9 :101470000CB7C0C5CD8A0D3AD5163D3DC2BB13C1D0 :101480006C24714210E001961 :101540007896E67FCA7F14C5D5CDA211D1C12E03EE :101550003A450C3CCA8414210C001971210E001963 :1015600070CD51113A450C3CC27F14C1C52E040CFC :10157000CA8414CD24122E053A450C3CCA8414C1E9 :10158000AFC3010CE5CD690E36C0E1C17D32450C1B :10159000C37   MOVCPM COMRPIP COM: SUBMIT COM XSUB COM ED COM4 ASM COM@DDT COM&LOAD COM=!v"z!w6!u#+w+wz >ZxG}o|g"|! :m c p!"xp ~#c*|!:m ʅ xä SYNCRONIZATION ERROR$ {°~#o}oҼüÅ*zZ# :m m! ~ #* DM! x  w>W!\q:\_  !^p+q.*]   !`q*`&!bp+q*a2_!dp+q*c2_!fp+q*e2_2_!hp+q*g!jp+q*i!lp+q*k!np+q*m2_!pp+q*oSTAT COM)SYSGEN COMDUMP COMDUMP ASM! BIOS ASM`!"#$%&CBIOS ASME'()*+DEBLOCK ASMP,-./0COPYDISKCOM12345678#!N#F! D!_>0w#w1!`4~:60+4*"e@u READY FOR "SYSGEN" OR "SAVE 00 CPM00.COM"$*|  CONSTRUCTING 00k CP/M vers 2.2$1@>y>y!ia>y>>s@ .{%8,}>s@ }{8y>s@ >>>>= G COPYDISKCOM9:SYSGEN COM ;FORMAT COM@ABCDEFGFORMAT COMHCOPYDISKCOMLM,COPYRIGHT (C) DIGITAL RESEARCH, 1980 1] ʑ?ʑ! __0 r))) O @|r}r.g))å{u INVALID MEMORY SIZE$!$ʡ~/w/wʔ|g*"z|?¸>@G!>0w#w!4~:60+4~u!N#F! x, # \X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<2    !2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(! ! ~ 3#0 Wx x   G ~ # 3x~#B!Y~ɯ2:=!ý:=!:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x =qf^!~2>`~22\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: ! Â$$$ SUB  x : 2 p & x ~+é 7 2 H ! >w _ : ! 5ͤ N k ͱ ¦ ͱ xʊ #N x : ! 2 ͤ ! 5™ #wO ~x½  p H    y< < ʑ  : !qMD # ) :B O! yoxg*:B O }!N#F "*#*s#r^  ~!J  ! J *:o$*C ~i 6i w**{#z r+s{ozg**͕ **  , w͜ ͸ Ͳ ! !N#F$**O !~#ڋ>*C w~#+w#w+ɯ2E 22 i  ^ *C :~w~͔͔# # #͘*~ ""͌#>?͌͘ =_.:;<> Oo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6"  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&)|+!<ͧ E"C {2!"E 9" 1A 22!ty)K!G_^#V*C   ~E , &-AGMS  !!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$ :B A2 ! ~6 2E > ! ^#V w#P :B O|^#V#"##"##"##"!O *!O *|!6ʝ 6>*w#w*w#w'û *! J * ""!N#F*^#V*~#foyx *{_zW+ *"**#"͕  : 2 Þ y<_WyOxOxG* ~V5dw^  :ʈNÎ N#Fyʝ*}|\#u* #DM*6# x±**s#r͡ *6#6  ^ >:A #~$=2E k͌  w ~>2!E 5T *C !"C  "C !w# F! w͌ x 2͢ *C  ~<wʃG:!ʎì 4~ʶ ¬:<ʶ$ ʶïZͻ   x >2>2ͻ :!Z2:E w ̈́ ͊ Ͳ  >#~?  xDIR ERA TYPESAVEREN USER E!yO#< Ty#O 321y_͸2y2ͽ:˜1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^:ÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Ypsp2mÆÆf ͧÆFILE EXISTS _: É: :ʉ=2)ͽÉ T!@k!}|q  O͐  : E  B 2 >: b # : y! 4 5~yy 5 6y Ґ ^H @Oy H  H : – ͬ   #H : !  H ù  H  H $O͐ : 2 *C N#  yx # *DM*s#r*s#ryOxG*0MD!!N: E G>O: \ S *C  :q n& ^#V> O^ "*}:*)= ":O:o"*C  *C !ͮ ~2~2ͦ :2ͮ : O:w:w |g}o *# : :/GyO>2!q*C " ͡  ʔ*J Ҕ^ :Oyʃ?|x | s-|N-# S:2E !~Яw > T   D ^ 6k -äPYy 5*{zBK52T *C G ͻ : w ̈́ n> 2;O ^ DM;}H> "*C  ::dd slO s#r:E ͊ :==»y==»*Ww# *" ͸ *:G#š" ͸ :!w4!i w: Z!E ~=26    2*C !!~~#~O~G#n,-.‹! w! yG!x͢.:E <ʄ! q!pQ:E <. ʄ$.:E <ʄ i 6}2E x N! ~态O>G~G!~G} *C !r#r#r ^ ͥ_y#x#{d} #QE9 0ö(C) 1981, TELEVIDEO SYSTEMS INC.1!+2>2<P1> 2!,MDJ K(!5 !+{H8 >2!"2!"222:OL[: >2:(:ɯ2/>!g>!x2":> 2*5} :͚ : :!~5( :!:O ~:w>͚>= !P2G( +| >22:Oˑ:8<y2(!=:2>2x2@ $@B B HH II$@DI ABI$"$H$H@$$I! H*  $H@@A I $D!!$I"BI"I"@$BIIH$$$$BBI$@BI!"$$P**@ ! I$ H" AI$B@ I!$! ! D "@@I s+p+q-*C  ͥ!!q#p#w*:B O Y G }*MD "ã:!B w!>2*C ~=2u:B 2~2wE:A *C w>" !""2B !" !r QQQâ~?ͦ ~?r Q *"C Q- Q͜QüQr Q$Q*G>=L( L//W(y LL/L//]r yˇ:G_!4G( ("{ W(> x(8W(y ~(8wLo>/ɯ!:>G>>ɯ: 22!y2o& :!_6>͚>~O/#N#F#!5!5~#G:(O ^#Vm<χm<χLG TSI System I CP/M V1.0 62k CP/M vers 2.2 Boot Error. H?A DI$@ A$@$$@H! "!$$" @B$!!!DH$$"H @@BHH  !$$A"D@ "A" "BHA " !$ D B I $ !$$ H@BD D$):B  " *)*)Q;*"E :;:A  2A QÓQÜQ*C }/_|/*W}_*"}o|g":ʑ*C 6:ʑw:2E* *E }DQ>2))))y2y2C`iɯ2>22>2Õ2y2 >2:2:2:2:(4=2:! ':! :! 4~H8 6:<222<22:2!~6(%:! :! :!(*:(/:2:2:2:((2:g.< (/t ͨ #~Œ~$w#+"U8>2L8!"M8m#>2b8:^8Þ (ͨ )#~d(~w,(t(w͌(~8~w#w#w#w"7=):v8Ux†x 27*7"7̈́ x]I:(9ä"7=)x†*7)#~Œ~@ w#s#r#*Y8s#r]D:9)+:q7 HI DIA!$$$ $" "$D ! $"  $AB " BDD $$D!"DI$!$BH!"IB I$"D HD" " $"! @H !BI " I  $I$I$DI$ !I$@"$"$! $I$I$@  $%    COPYRIGHT (C) 1979, DIGITAL RESEARCH, PIP VERS 1.5$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$221@:2!o6+6+6!6#6!6#6:G*o .!N6:^*M^!K6!6!6+6' :$::=2K  :ʤ\:ҷ\x'Ͳ:!\͢  :͈'! ͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q* "}*}DM͆ ' ͯ *"!z4 :e !"͆ !z6:|!z '? 2*H#"H!{6:{ր!Ң *{& :{4 2!{4m *":ڹ ͯ !z4I '2!"!q: !4>!S :S! :2*M:   *}2D" * * *&"!q:UY: Y:ҩ: ʩ:_2ʘ:€!6<:<2!ژ!6 >!]Ҥ; !6:Q::H: !6*M : !6!q:a/>z!ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>!p+q* !q*& *M *M !p+q*!!p+q*"!p+q*$!6  !kp+q*j> >ڪ Þ !qp+q/ *pDM9: :M2r:N!r !:r *r& N!r4 !6:! ^#V͎ * :w*#" = = = = = ͯ  *M !6q  !6q  !6q  *& !6à  !6 à  !60à  *& !6  !6  !6  *& . 1 4 7 : = F P [ f q  /H:_2:!q:A/>Z!/H8: 2::=O>m:W!Q} Hmd>9>!6:2*M!E ^#V͎ڗO **~2*#"m2m͖ 2m!6m!6m!6 m2m(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1 :2L> ̈́M9 HHͯ :^!w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >͔: :ͳ.!ws+p+q+p+q:w=2wN *s*u w*s#"s*u#"u' !"*M^7 !x6:!xھ **DM͆ 2yʭ :yʗ ͯ *"*6:2x÷ *"!x4d !"/ !j}=2| !"*KM^'_ !z6:|!z1 * :2!q: " *M n :c4 *M n :2!c:Q !c:2: !:cw>!n !5 Y : { !6!q:!lwҙ  â :0O !q:O| :O| !6:]2l:o'2o:n'2n:m'2m*mMͣ *nMͣ *oMͣ :]ͯ m!62m!62m!62m!62m'2:2:TҒ:2!6*ME:2::Ҳ:<22ý: 2:} >ͯ :i:2:d*M:[    *M:>!(:=2%> >>!F!5+N! ~2!4<2T>>!b}*bMͭz:b2!b6:<2é>!`ҥ*`MͭҞ!`6!6> :é:(!q:!wO! ~2*& :w>!:!4!6>:N<2N!:[ ͱ!N5!6:%:<2*6 * 6å!q!6> !d*&I :]>!4A>:<2O* :w:?†!6!q!6?!:ҠgÐ!q*&*~!6:22: :]Hں:A2O>: 2ͯ -:>>!p+q:,!6*DM9:<!6:z 2W!6D*&L :w:<2Ov*:>=20O> ڒ:0:AO>Ҥ::A }}Hͬ!wͻO`idͻV[2O>2:!X!6:!!j>A+!s!"@͓1!"<**"͓n "Dn"":!Q2҂:X!Wғä:ڤ*MEÓ:ұ@@:O2Mc;!6#6>!)*&P ~"::H:HDM!  ::=H-\:N2O_og_{ozg^#V))) _{ozg^#V) d^#V|g}o n_{ozgO{ozgi`N#Fogo&og H ©=¨> *N& N2 !p+q!6!6+6 !6: S: M!6g8:N2M*M8p!6!6!6>!ڕ*&P 6!4z!6!6#6#6!6*M8:ھ:*͇g2ê::¿::,͡A<2O>÷:S:QHI:N<22: H@"2Í202O> c!6Í202O> ڍ*&O*& !sc*&P :w:·>!ұͯ :22:_!6=!6>'!E!4!p+q*0 !:=O!L NE!4 E E:/.*&L 6$L9k9.Xͯ *KM^020 :020:121'ͳ':²ͯ !G6!"!"7 *M^n/ :a/:H!6:ͯ !&6:H:H"!6!4:_jYO jM*"S*" 3@bl*M1͓!""7 *M^͆ \͔!":͎H*#"ͧÝ/ :>͛9ͯ .*#":_! copyright(c) 1977, digital research $Error On Line $SUBNo 'SUB' File Present$Disk Write Error$Command Buffer Overflow$Command Too Long$Parameter Error$Invalid Control Character$Directory Full$Cannot Close, Read/Only?$!9"!͇͊!p+q**M8):[ͱ!N5!6ñ:5!6#6>!ڰ!6:<2O>/:!O!T *M͡H~K:¡!6[–ͱ!N5:2:2!4=:[¼ͱ4:!6:.2O8: :* ͇gr+s+p+q*~$7*>*>H&>*#"*#"> 2:R͎:!6!6=2:ʙ!6:“H9Ž>!6-e!6ͻ2=2ʺ-é:>>"ͻ2:!!5ͻ2ͬ!\2*">!b!ͯ >!`0ͯ !q:E:24J!46*}a!44EJ *KM^'́:‚ͯ !36'n::0:f9OY#9.3'ͳ.:020' 'ͳ'7 6'' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈* ͊!p+q*͍2!p+q*͍2!p+q*͊!p+q*͍!p+q*͍!p+q*͍2!s+p+q+p+q:=2ʦ** w*#"*#"!p+q(+*DM*p*& 6:ep\:=   ͧ!t6>!t%\= >!t6:t<2t=O! ~2u b:<2O>9b!60+~9b!60+4:uat:u_2u:uMʉSͧ!v6!"v!|6:|Ҁ!x6 2}:} Hk:} h:}$6 2}$*}M3:}02}O> ͧ3!zW Extended Submit Vers 2.0Xsub Already Present$Requires CP/M Version 2.0 or later$:y*###ƒ# yk   җ 4!~=ŐW!xʵ ~#èbx {~#o}où.xsubb!np+q*m2_!pp+q*o9m++s#r!9+s#r9";9;"^*mM 6*m+"o!o#s#r!6!f6!6:] :m H}- :\2d‘ 2dÝ:d=2d!\6:l2e±:d2eø:e=2eEU !M6 !""*o"$!h61m!6#1m!6?1m!6>1m!f66ͭ:}"!}5́ͭ́3*yM"h:}^a a2}O>Vͧ^:}>*z& ~ !z4í!{q*v#"v͙dͧ*vv :{w:x<2xO>}|ͧ ]xsub*"-!/"*"+!""1 M*!"́!"* (xsub active)$|*y ʥ*"*7***x*́͋<͛ :%*=26͋!7^#6 #6 #6$ 8*7~O #w# !6:6= *M  *!M 1m! 6!6! 6: 2Ebͽ!e:d\::eH2 H҆ͽ:e2!:d2e:!2dû :!I¬!: :H2 ҮX:h2iҐ:!ʍ:!:!H:!H,!"! 6#~ F-!6]:ͧz2~e:~2O! 6*~& 6$>!~_z*~& w!~5Bx:yͧ*v+"vv ~_{ozg001 $$$$ SUB2% ͋*-"*$$$ SUBq:(=2(N *$*& w*$#"$*&#"&' !"N*M^7 !)6:!)ھ *N*DM͆ 2*ʭ :*ʗ ͯ *N"P*6:2)÷ *N"N!) $@BA$! A "!$"" COPYRIGHT (C) 1979, DIGITAL RESEARCH DISK OR DIRECTORY FULL$FILE EXISTS, ERASE IT$NEW FILE$** FILE IS READ/ONLY **$"SYSTEM" FILE NOT ACCESSIBLE$BAK$$$BAK$$$-(Y/N)?$NO MEMORY$BREAK "$" AT $1mM"m +!8s~F L>!":i!jHҼ*"+M ~ ʼͲ!f6!h6!"! 6F!f6:h2k!iҠ:i2k:j2h:k!hҶ9 æ:h2j!!6:j2he:! >"Ͳ*"M ~2!O :! *+"   !!6e*!M͛ /$^L:!@OL:! 2͑e:b:! L:h<2hb:! b:hO>!hw:! pX:! …!!6  LÊ!!6ûô:!ʛ͑:! ҩ OҸû:!R†!6G>!!!6 :2.t  (::H%^bF : ͎H :!Ay! 6*""&*o"(R͎an͢na! 6R :!F”͢ґ Ä :!J $:2$͢ :=2:<2!*& ~2!ü*""I*M*o/!:":f *g&!lq:l $ !h4:l 1 !h6*lM :hB     !h55!mq:m :hO>H2ny} !m6 !o6:n!oښ *mM !o4‚ !pq:p ڪ >:p :p H:p H!qq*qM͛  ^W :q@2q*qMW   !sp+q=e !e:d*eM =e : =e =͕ !]6:x>- !"!76!6!6!66*dM  *dM !6:8!*`*;DM \u 2xʻ>!xҨ- *`*;6:82*`"`:<2w!"`9`h*`*;~2*`#"`6:0O  ú!p+q:/(*DMͩ:  : I N* *DM:aO>!Һ x!: ڦ> ʡ* +" >¡! 6: <2 =O! N͒:  O͒: ! 6:h!o$O *#"*&DMyxC 1*+":4?w+"$""ͷR: —*$"("҈!"&Ô""&*""&$mڸ*o"(**$"($"O26͛*"M :6w͢:6 -? >!!6!6s, !6:xB!6OU2!SB!G6:҃!6:G҃*G& ~2!:G<2G_ Qқ=e  b:!-®! 6:!#¿͇;J:!:!!6Lv:!:Jv: *#"͎"&! 6R*I""ë :!M:H| ! 6>F ͛e: <2 O! Hqy d F : 2! 6*#s#r :!N ͢ *o/ Ҧ Ͷn! 6!"&R! 6o$ Î Ç :!S0 $͢- :2"*r !up+q *tDM !wp+q*v !zp+q*y2x!|p+q*{2x!~p+q*}2x!p+q*!p+q*!p+q*!p+q*2x!p+q*!6   >>! q* &!p+q*:*eM !b+!s{!f!6:!b*b*^DM =ͅ N- *b"b:<2)f!"b!q9bڀ*b*^:w*b#"b!q:6ڶZͅ ʱ- !66*6& :w:6<26!J6*b}:J<2Jm=? :x- * ͸ ! 6 !h6!: 2 3* & 6 : <2 =O! N͒*dM  :sGsu n>!6:<2=O! N͒!">!"͎/Ҵ*+">>!": *#"*""*!".+",*$"**o".!",!36:3{.!7q:*7M͒:7o$+͛ͪ*$M ~28Om:8 I͇͢u$oqo͛rP! 6!"&*$"(R͎ҔM͢ҡÔ($ҵ! 6R͇vͶ2!*!Mm$"*"M :!w͢:! ! 6:!B)! >w!"&*o"(R :!C:eR :!DKeX :!K\ͷX :!Lj^ :!Pš͎҇! 6F×͢җ:Ç :!T¨F :!U¾: 2 :!V͎"$DMͩ/ *oDMͩ : 2 :!+s#r!:* *& ~2!:<2 :!W> v :!X³ Z͎\ Ee ð :7/҃ E!76e ͕ :xƒ - ͷ*&"K(Kڰ *KM N͔*K"KҌ :!Z ͎  ͢ : :!  'v!gq:7 e !p+q*DM  =? ) !p+q.*DMF -L *9"`!"b!h6!j6!|6.!=\ -x !e:dʥ *eM \R :xʥ @ *dM \, :x \͕ :x - V :e _ :f w : : ;*dM .=\ -=ͨ ;: *eM =ͨ .M= -C!q:Y*M !q:a/>z!/H!q*MaҎ:_:!q:ҥ*My:!p+q!'"!6>**ͪ{2**ͪ"*! ͪ":!!*22*,**"0M ~ H3*0"**+"*+">23:2/k!36,*+s#rx:3x*0"*: “**"&*"+"(á*$#"&**#"(*"#""*$#"$*"+""*$+"$*#"!4qM*"*$: *(y"$DM}|C#~e2!:! : /HH/Q:! @!!6 R!!6 :!KR$*& :!w:<2dn!:s+q*$";!>6:>/;oH*;#"(";:92=*=& *(M !::=2>/H:=<2=*(#"(æÀ:>*(+"(R:>!6   $:2*o/*!My:<2=O!s Hq**DMͷ! 6: e!"*""?k*&"?*?+M ~2A :hHҏ *&"?(?:A ½8*#" ҽ*?M ~2AO *?"?ҕ!"*"*"^: 2B! g_{_z#W H = LIBX$$$$$$$LIB6F:B2 o(>&H6͛9!C6>!Ca R>:C<2C?! 6!"͇͢Ґq"ڊ͛Íq!!6 !!6 !6*!Ma2D*!M͒2!:D/!+w!6e2!͢!Eq!E:!:H:H!Fq1*" COPYRIGHT(C) 1978, DIGITAL RESEARCH *FM8 *FM   Oy2F :FY5>>:!02HO> /!";u*)))*) *H& "PҘ! 6+s#ré! 6"DM!>))덑o|g =±^#V) ^#V|g}o _{ozgi`N#Fogo&o á 4êü /L9ASMPRNHEX   !4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ :! G~#x=2> > ! >x6 #='G! ~ p( O*}O>4?:7w:#ĸ*"!͸* }w>ͪg( ʆ1 Y :7ʗ8 z !<ͼ CP/M ASSEMBLER - VER 2.0 NO SOURCE FILE PRESENT NO DIRECTORY SPACE SOURCE FILE NAME ERROR SOURCE>9q>9: '!2 >9 7:! 6 >2>2: 2 Qͭ:Ğ! :lj<͖<j<|<: OʊQ>ÖH >2 2 û: B­>ôD> ¸!52 !"!N#~#A07O! ~*!) " {zA"*![N![ N#Fr+sq#p/>G=#w#w3#w#w!JSYMBOL TABLE OVERFLOW G*##~w*##~͎*_###s#r^#V`à 4 Wm ()*+,-/ABCDEHLMDBDIDSDWEIIFINORSPACIADCADDADIANAANDANICMACM#  ɯ<:O=_Z!F!V#fjQ̓E!^#Vo&)~#FxGyѯ<àn8!~ڢͅ6~44O! s#r!~ ڿ6ͅ^4!mw!wp!~ͅ!55N! N#fio&)^#fk!)ͼ !ͼ :5͡ :6:6͡ :7͡ :\ ʻ 24!dͮ 25ͮ 27ͮ 26!8 ( ʃ !Y 1  :7ʞ !z 8  !"2D2X2#! 8 !ͼ z{* ! !"!8 w FILE READ ERROR OUTPUT FILE WRITE ERROR CANNOT CLOSE FILES END OF ASSEMBLY G:7xʘ!#~ʄl͸Ä**!O {zʊ͸*"!!#^4!$wͯͯWƐ'@'ê>:ͪ!#^Ww*!{͚|͚}͚͚{!$~#͚͚> ͪ> ͪ:  '<ͭ'<>V$>O$:Ğà\ÞØ`rÍÖCCMPCPIDAADADDCRDCXENDEQUHLTINRINXJMPLDALXIMODMOVMVINOPNOTORAORGORIOUTPOPPSWRALRARRETRLCRRCRSTSBBSBISETSHLSHRSTASTCSUBSUIXORXRAXRICALLENDMLDAXLHLDPCHLPUSHSHLDSPHLSTAXXCHGXTHLENDIFMACROTITLE  PF FP! ( 2/z'{ͅ>ɯo>g"k!m6ů{_zW5>)D*kOxGd !m?FDM!xGyOڂÃ)sn55)=â|g}o=î--#zg{ozg{ozg{#  +6# *#"~!ͼ G:6QxJQS*!w#"! 1 !"!Y~~# …¡z!ͼ wʹ* ! w#" ! 8 !" ! zz_O4:  :6y@2 0 0:x0_<2! wI2 2> 2 >2ɯ22 !~@_6^4#: w~$w: 0 q: A: A͋q: a{_2  2 - !ɯ2I:  ;*:  ͭͷ ͭ͋![w#w#b!"!F#v2[G*##~w*##~<*}q!~ڬ6![^![^#fk"͎͘!G#*####*^#Vû!^*"*?'  v:P@< !  PP27 ( *"  NZZ NCC POPEP M x_BH!œ#¶ ¦{KÈCÈ<:JCR:  !6 s!oÓ:: ;,!ɯ22=2l!"]!~H5_!m~0:ą:  *":  :‰:̅ԅ!^#=ʅVq”*qͦ1& O:lµ̅>2ly:_!w~!s!m~ùy !~=w_!m~ ͅ   Ͱ>2lyPLnR>UX:l̅2l͓*>E2C!" """ :ʼ:*1 |R|ͦ0FIL: RH ñññ81Ľ y0îH ñGîG  ñH ñ(Ľ yîH ñîîĽ y0îîH ñG 1: :,; c*| } 8O=COPYRIGHT (C) 1980, DIGITAL RESEARCH DDT VERS 2.2$10 !~=W!xe ~#Xbxʇ {z~#o}o҃i.2_!fp+q*e2_2_!hp+q*g!jp+q*i!lp+q*k!np+q*m2_!pp+q*o͓Q͌Q!.ͷ6y#G͙Qà!2ͷQ͓͌Q!>ͷq eg͙Q:zJEËC–EQyQxQRQ** {zҷ*~#" <AOGƐ'@'OxƐ'@'ON# O!b q!vz͒q.?*!9"8"͉Z*" +*'/7?v"*2:EI SPHLDI XCHGPCHLXTHLRET HLT CMC STC CMA DAA RAR RAL RRC RLC NOP CPI ORI XRI ANI SBI IN SUI OUT ACI ADI CALLJMP LDA STA LHLDSHLDMOV ADD ADC SUB SBB ANa. ~ #E }"]*a 6 *]}#|#*]E ͐ « f f f {zA|« W}d ͐ f f f DMʡڏ"=ʡͲ=ʡYPͲ1**!O~4#~#F#x~#s#r#w>͐ « f f  . ᯕo>g.  R* } *" :¿::¿üX!C^#fk[@ :Œ:=ʌG!ʆF#H vÛc*| EH ͺ,^1 ͦ *""1 EH DH ͺ,1 ͦ :  1:  " > 2 Ľ y0G G t :):,.>C :|: Jü;r :R: ʼʋ!ʼR!ʼʋ>SR{ozg!~4ʧͦ !6 ! **̈́**̈́\iͩ !w#H USE FACTOR !* "z{*"ÃO$*sy͏ , $  ͌ 9!z6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷz8O!B N#N ¾SP.* |} !9":q!"28!"9:] !í 1 2|2\  !]w# ʫ .&  0 6 #& .K !e K w# ʫ : U 6 #K 6AW w#] !e~H#~E#~X*}|́ "!́ ͐ !ʬ =« f kʫ j \͢F w# ͋ t ʫ : W& _& & O {:|: |Ë  |*" ͩ !6="1 :  1}1:n:>BʋSSͦSSxS 1:  1"" ͦ 1 |R >O U!" 1 1!|_!^#fk $8AP`ix* "I !" :1 R O*UR X* G:xl :  *̩ : l x͖ *#"EH DH 0:~ ! ^4! w͆ Æ *! 6z͖ {͖ 4>R>V>D >P >L >N y=!z{w# % w!P͠ y͓}*w#"͌ @.@<!Eͷ~P !ͷ’P͌Q!ͷªP}QxQ!ͷ͓G@Q! ͷ y͓Gþ!ͷ ͓Q!ͷO=!9 Ÿ!6q!2qC J R q!z z=naO $q$,!;,!Ù!;qz8O! !;,z;qyO! ͣͣW_͕qyO! ͣ͒qy͓ !" >- Ͷ Aګ ҫ _!7^#V~  \p Z z ů2[\͓͢ ҫ ͐ =« f " ͓ ҫ ͐ ʻf " =ʻf "=« ý> 2͐ f "]=f =« *]}o"_  *]" `i"F & & w# & ͋ « t Y t Y GтWx ͢!o ~Z #N  *. *.  NEXT PC͐ =« f  . ~ Ͷ ʻ .͓ =« f |« }w#Ä >2L͐ ! =« f }ʫ +"MD Å D  !  #    ë «   Ͷ ͐ =« f xY |« }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 x (#"!N#FW( *J>7Å*M|N+"M N:LHͅÅD Å >* *͓ b" . *"] !/~##ʁtZ*F#n!Is!^#V&&##&))::^#V#*^#V>+)x-8_$$$I$$H!!! BH" !I B  $$!BD! $!BI D@"!$I$$H"!I$I$I$UUU$$A$ @ COPYRIGHT (C) 1978, DIGITAL RESEARCH ERROR: $, LOAD ADDRESS $DISK READ$INVERTED LOAD ADDRESS$DISK WRITE$LOAD ADDRESS $ERROR ADDRESS $BYTES READ:$INVALID HEX DIGIT$CHECK SUM ERROR $FIRST ADDRESS $LAST ADDRESS $BYTES READ $RECORDS WRITTEN $HEXCANNO( p+q*' i2 !* p+q*) f!/ s+p+q+p+q:/ =2/ X*+ *- w*+ #"+ *- #"- 1* #" ͖r*   ~!" ! ͸×* " x20 º*   DM":0 Ad*   6!" Ç!" : !"6 "8 ": }2< !"4 "= ! 7   > >  ͢| } @ >. *_}o| , 0 ë ^#V#!Y ))))o P q s#r#!V4 !V6# ,® >2Vñ m ͅ m ͅ m ͅ « Vʫ ! XN!~  )*)þ))>+><7"9.Yͯ * M^2U :2:2ͳ:_³ͯ !6! @!!BH @@ABH B! "BHI$$BI$BI $ HI T OPEN SOURCE$COMNO MORE DIRECTORY SPACE$CANNOT CLOSE FILE$*!9"!e !" !" \!""͊: ƒde"\\\͊: ²d\͝: )d;! q* &f  ! q> ! : A O6Y: !2 6=21 á:1 : r+s#r==_HL"4 " >6 ͪS* "6 =23 :1 =21 v=O* #" Y8  ͝҉* +"8 .!2 ʞR̀* "4 4 = ͝* #" çR*6 DM+R*8 DM+R*: DM+R*< M!? ! _^! ^#V~ x+ >= = !~  . !   #x f L L ͓ͅ ҆ *" !6ï +"_*~ #E گ ʫ ^#V. ï ~ CZMEIABDHSP!"M"+"!91*~!O~6=G#^#V#~D$HD$$ H B!$D$"$B$DA!ABI$H B$I $HI$H$! $I $I$$A !A@$I$"!$H$I$I "! $A$  HHAA"I @BB $A": 0O! q: O: O! p+q* |O* }O! p+q*  f! p+q* DMB! p+q)R* DMB1B* DM+;! p+q* i2 ! p+q* i2 ! p+q* i2 i2 !" p+q*! f!$ p+q*# i!& p+q*% i!q=  ͝Kd*= ! ͸p!@ 6>!@ X*= }O!< *@ & w*= #"= !@ 4)!< 4\mad* }O!< :? wlR*4 DM+{R* DM+R 4 ͝*4 }¿= 4 ͝< N*4 #"4  å;*4 DM+: Y2   A 0O> :A 0:A AO>&R̀:A A H.2B !2 w:B !D s+q*C &͍:D _og_{ozg^#V) _{ozgi`N#Fogo&og_{_z#W5536: 128 Byte Record CapacityKilobyte Drive Capacity32 Byte Directory EntriesChecked Directory EntriesRecords/ ExtentRecords/ BlockSectors/ TrackReserved Tracks is Temp R/O Disk: d:=R/OSet Indicator: d:filename.typ $R/O $R/W $SYS $DIRDisk SL!*p+q*)O2'!,p+q*+O2'O2'O!.p+q*-LRRLR\LR" O!/q*/& L!1p+q*0#L~*##N!ͽ͞"T!Vq*VMͳ!Xp+q!W* >Wr#MͲ!_*s"s*o͊O !v6>!vQ*v&w 6`i+46)A*:'ʓ:'O!) ~2vʍ:vO!w 6,]!v6>!v*v&w ~һ*vM !v4˜8AO͐:͐ͱ*##N!ͽ"* N#F*͠":2͠!4 F :® )!6>!ګ ͠:O!9 DMi 8ͱ!6> !ڤ Å :2k ä  ͐:!O!Y DMi w !4C F :¿ >F : F :=229:Y= ;>9*&Y DMj6?\:'C:'ƀo&")!)6!"):)/)HҘ]!)6> !)ڎ*)&*)*)&*) y!)6 Ä:) 2):)<2)M*)#")/:)ҩ*)+")`*")#"]!*)!/H!")!"]*)) *)s#r!tatus : DSK: d:DSK:User Status : USR:Iobyte Assign: =Bad DelimiterInvalid AssignmentBad Delimiter: Bytes Remaining On R/, Space: Invalid File Indicator** Too Many Files **File Not Found Size Recs Bytes Ext Acc65536 set to R/O Invalidp+q!`6>!`6*`&*^*`&Y />!`4 >*]& ~ O!]49!a6:a*]& ~2bO>z*bM >!b/~,H~:H~*H~.H~>H~<H~=H*]& 6!]4T!]4!cq*a&Y :cw!a4>!H% - *DM ͱͷDM  ͱ* N#F 9ͱ * ^#V))DM Tͱ* ~ *} *M =2 I>!6:=28 :2:2 :!!29:Y T >:Y,e \>Ì !p+q*~:ʉ *N͐*#"o :͐!p+q!'"!6> **{2*́"PY! ">!+~H !6:0O͐à k͐)6> !).*)&*)*)&*) w:)<2)*)) >w#6*)) w#6*)!) w#6*)%) w#6*)) N#F*)) q#p*)%) *) ~e *) * ~o&͞ *)%) q#p!)6* >!)6!)6>!)=:)!)w=*)&*)~2):3 Copyright (c) 1979, Digital Research????????????CON:RDR:PUN:LST:DEV:VAL:USR:DSK:TTY:CRT:BAT:UC1:TTY:PTR:UR1:UR2:TTY:PTP:UP1:UP2:TTY:CRT:LPT:UL1:R/OR/WSYSDIRR/O R/W SYS DIR ** Aborted **Active User :Active Files: Drive Characteristics6 Disk AssignmentWrong CP/M Version (Requires 2.0)!9"2!T OË!]6:\:] Hr3 Ë:\ʀË͇ /ҋͺ *2!"q*"&L ͐ ͐ ͐!$p+q*#~*#N͐*##"#÷!&p+q͠*%DMͱ O O!(q*(&!gr+s+p+q!h6>fr*d*f!is*d́"dPY! "f>!h#~Haͫo!h6:i0O͐!mr+s+p+q*lTZs#r*lڶ*l+s#r*jN#F+q#pÌ!nq!"o"q}2uo&"s* s:n*sDM2u:uqos!+s#r#4 !s+p+q!6!66:!ڄ !6!6>!r *&**&Y i !6!4+4A :} :!4- >!699 2¨ :!4: :2!6+6>! :O!9 DMi ͱ:!O!Y DMi :2͠Q" 8AO͐jͱͷDM͏ m  Z"l"!6>ʥ *}҆ *M ͱ*}x O͐} W͐ͱ !+s#r!+s#r#4D ͠:\ʹ :\=Oͳͩ !6!)6l :) :)=2) :] & !"}2\!h6?!)*)& *):)2):):*)!) *)) s, >X\:)“>!d!")>!)d!")!")*++!)a*)) ^#V")]*)")*)) ^#V")]!)6> !)T*)&*)~2)*)&*)~2)O;*)) ^#V"   )*)) *)) N#Fq#p*)) *)s#r*)#")!)6 J:)!)J!)6 :)<2)*)")҈q:tw͠ͱ!"))ҍ*)) ^#V")]͠.*)DM\ -°!\6:\ͣ:ͱ*}DM'ͫ*)%) N#F'ͫ*)99:Y=/9&ͩ c,Hͩ 9 EHͺ i`N#Fog_og_ogDM!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#Wͷ>2:)!4p!^!*FNͿyr*DM2: S!"͢} m͒<2:fi7:)r*"1!͢:] \<¦!͝m2|\ ¬! DM\&ÿ!͝m!͝} &AxA2!) N#F'k͐ͫ*)) N#FͫR͐/͐ *) ~IO͐NW͐ͫ8AO͐:͐ *) ~2)t(͐:)҃)͐*)#")Ã& \!"))\Ұ*)")]͠*)M! ^#V *) >*) w *) >*) w *) >*)M!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#WAͮ͒!͢} m͒2!I͢!͝} mAAx&A2Aͮ!͝} m͒!6!I͢&>ͮ͒![͝SYSGEN VER 2.0SOURCE DRIVE NAME (OR RETURN TO SKIP)SOURCE ON , THEN TYPE RETURNDESTINATION DRIVE NAME (OR RETURN TO REBOOT)D!9"1W͜Q>2!͢QG}DrYQ|͏}͏#> ex͏#r* _> e> e ҉0Ë7e}} :³ʳ7_<2!~ɯ2|\\FILE DUMP VERSION 1.4$ NO INPUT FI w *) >*) w.*)DM\ -+!\6uͱ:)O! DMͱ*)#")Ù*))))))"):m w>.Yn -:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)ÂCOPYRIGHT (C) 1978, DIGITAL RESEARCH H  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGo&)))))))a{__> ͋> ͋͒~͋#âO****!*$*'! ">2!4:(ʁNESTINATION ON , THEN TYPE RETURNPERMANENT ERROR, TYPE RETURN TO IGNOREFUNCTION COMPLETEINVALID DRIVE NAME (USE A, B, C, OR D)NO SOURCE FILE ON DISKSOURCE FILE INCOMPLETELE PRESENT ON DISK$!Y , <    *$A!6 # T!w $r# *`: 0 *A*! ~ ʰxkb))))_y‘BK{ͅ*!66!"80*{#z+++ #   ; FILE DUMP PROGRAM, READS AN INPUT FILE AND PRINTS IN HEX ; ; COPYRIGHT (C) 1975, 1976, 1977, 1978 ; DIGITAL RESEARCH ; BOX 579, PACIFIC GROVE ; CALIFORNIA, 93950 ; ORG 100H BDOS EQU 0005H ;DOS ENTRY POINT CONS EQU 1 ;READ CONSOLE TYPEF EQU 2 ;BRC EQU FCB+15 ;FILE'S RECORD COUNT (0 TO 128) FCBCR EQU FCB+32 ;CURRENT (NEXT) RECORD NUMBER (0 TO 127) FCBLN EQU FCB+33 ;FCB LENGTH ; ; SET UP STACK LXI H,0 DAD SP ; ENTRY STACK POINTER IN HL FROM THE CCP SHLD OLDSP ; SET SP TO LOCAL STACK AR LINE POSITION JC FINIS ;CARRY SET BY GNB IF END FILE MOV B,A ; PRINT HEX VALUES ; CHECK FOR LINE FOLD MOV A,L ANI 0FH ;CHECK LOW 4 BITS JNZ NONUM ; PRINT LINE NUMBER CALL CRLF ; ; CHECK FOR BREAK KEY CALL BREAK ; ACCUM LSB = 1 IF CHARARKF CALL BDOS POP B! POP D! POP H; ENVIRONMENT RESTORED RET ; PCHAR: ;PRINT A CHARACTER PUSH H! PUSH D! PUSH B; SAVED MVI C,TYPEF MOV E,A CALL BDOS POP B! POP D! POP H; RESTORED RET ; CRLF: MVI A,CR CALL PCHAR MVI A,LF CALL PCTYPE FUNCTION PRINTF EQU 9 ;BUFFER PRINT ENTRY BRKF EQU 11 ;BREAK KEY FUNCTION (TRUE IF CHAR READY) OPENF EQU 15 ;FILE OPEN READF EQU 20 ;READ FUNCTION ; FCB EQU 5CH ;FILE CONTROL BLOCK ADDRESS BUFF EQU 80H ;INPUT DISK BUFFER ADDRESS ; ; NON GRAPHEA (RESTORED AT FINIS) LXI SP,STKTOP ; READ AND PRINT SUCCESSIVE BUFFERS CALL SETUP ;SET UP INPUT FILE CPI 255 ;255 IF FILE NOT PRESENT JNZ OPENOK ;SKIP IF OPEN IS OK ; ; FILE NOT THERE, GIVE ERROR MESSAGE AND RETURN LXI D,OPNMSG CALL ERR CTER READY RRC ;INTO CARRY JC FINIS ;DON'T PRINT ANY MORE ; MOV A,H CALL PHEX MOV A,L CALL PHEX NONUM: INX H ;TO NEXT LINE NUMBER MVI A,' ' CALL PCHAR MOV A,B CALL PHEX JMP GLOOP ; FINIS: ; END OF DUMP, RETURN TO CCP ; (NOTE HAR RET ; ; PNIB: ;PRINT NIBBLE IN REG A ANI 0FH ;LOW 4 BITS CPI 10 JNC P10 ; LESS THAN OR EQUAL TO 9 ADI '0' JMP PRN ; ; GREATER OR EQUAL TO 10 P10: ADI 'A' - 10 PRN: CALL PCHAR RET ; PHEX: ;PRINT HEX CHAR IN REG A PUSH PSW RRCIC CHARACTERS CR EQU 0DH ;CARRIAGE RETURN LF EQU 0AH ;LINE FEED ; ; FILE CONTROL BLOCK DEFINITIONS FCBDN EQU FCB+0 ;DISK NAME FCBFN EQU FCB+1 ;FILE NAME FCBFT EQU FCB+9 ;DISK FILE TYPE (3 CHARACTERS) FCBRL EQU FCB+12 ;FILE'S CURRENT REEL NUMBER FCJMP FINIS ;TO RETURN ; OPENOK: ;OPEN OPERATION OK, SET BUFFER INDEX TO END MVI A,80H STA IBP ;SET BUFFER POINTER TO 80H ; HL CONTAINS NEXT ADDRESS TO PRINT LXI H,0 ;START WITH 0000 ; GLOOP: PUSH H ;SAVE LINE POSITION CALL GNB POP H ;RECALLTHAT A JMP TO 0000H REBOOTS) CALL CRLF LHLD OLDSP SPHL ; STACK POINTER CONTAINS CCP'S STACK LOCATION RET ;TO THE CCP ; ; ; SUBROUTINES ; BREAK: ;CHECK BREAK KEY (ACTUALLY ANY KEY WILL DO) PUSH H! PUSH D! PUSH B; ENVIRONMENT SAVED MVI C,B RRC RRC RRC CALL PNIB ;PRINT NIBBLE POP PSW CALL PNIB RET ; ERR: ;PRINT ERROR MESSAGE ; D,E ADDRESSES MESSAGE ENDING WITH "$" MVI C,PRINTF ;PRINT BUFFER FUNCTION CALL BDOS RET ; ; GNB: ;GET NEXT BYTE LDA IBP CPI 80H JNZ G0      ; READ ANOTHER BUFFER ; ; CALL DISKR ORA A ;ZERO VALUE IF READ OK JZ G0 ;FOR ANOTHER BYTE ; END OF DATA, RETURN WITH CARRY SET FOR EOF STC RET ; G0: ;READ THE BYTE AT BUFF+REG A MOV E,A ;LS BYTE OF BUFFER INDEX MVI D,0 ;DOUBLE PRECISIONVI C,READF CALL BDOS POP B! POP D! POP H RET ; ; FIXED MESSAGE AREA SIGNON: DB 'FILE DUMP VERSION 1.4$' OPNMSG: DB CR,LF,'NO INPUT FILE PRESENT ON DISK$' ; VARIABLE AREA IBP: DS 2 ;INPUT BUFFER POINTER OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP ;; MDS-800 I/O Drivers for CP/M 2.2 ; (four drive single density version) ; ; Version 2.2 February, 1980 ; vers equ 22 ;version 2.2 ; ; Copyright (c) 1980 ; Digital Research ; Box 579, Pacific Grove ; California, 93950 ; ; true equ 0ffffh ;valu ;address of last logged disk on warm start buff equ 0080h ;default buffer address retry equ 10 ;max retries on disk i/o before error ; ; perform following functions ; boot cold start ; wboot warm start (save i/o byte) ; (boot and wboot are the same INDEX TO DE INR A ;INDEX=INDEX+1 STA IBP ;BACK TO MEMORY ; POINTER IS INCREMENTED ; SAVE THE CURRENT FILE ADDRESS LXI H,BUFF DAD D ; ABSOLUTE CHARACTER ADDRESS IS IN HL MOV A,M ; BYTE IS IN THE ACCUMULATOR ORA A ;RESET CARRY BIT RET ;  ; STACK AREA DS 64 ;RESERVE 32 LEVEL STACK STKTOP: ; END LF,'NO INPUT FILE PRESENT ON DISK$' ; VARIABLE AREA IBP: DS 2 ;INPUT BUFFER POINTER OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP ;e of "true" false equ not true ;"false" test equ false ;true if test bios ; if test bias equ 03400h ;base of CCP in test system endif if not test bias equ 0000h ;generate relocatable cp/m system endif ; patch equ 1600h ; org patch cpmb e for mds) ; const console status ; reg-a = 00 if no character ready ; reg-a = ff if character ready ; conin console character in (result in reg-a) ; conout console character out (char in reg-c) ; list list out (char in reg-c) ; punch punch out (chSETUP: ;SET UP FILE ; OPEN THE FILE FOR INPUT XRA A ;ZERO TO ACCUM STA FCBCR ;CLEAR CURRENT RECORD ; LXI D,FCB MVI C,OPENF CALL BDOS ; 255 IN ACCUM IF OPEN ERROR RET ; DISKR: ;READ DISK FILE RECORD PUSH H! PUSH D! PUSH B LXI D,FCB Mqu $-patch ;base of cpm console processor bdos equ 806h+cpmb ;basic dos (resident portion) cpml equ $-cpmb ;length (in bytes) of cpm system nsects equ cpml/128 ;number of sectors to load offset equ 2 ;number of disk tracks used by cp/m cdisk equ 0004har in reg-c) ; reader paper tape reader in (result to reg-a) ; home move to track 00 ; ; (the following calls set-up the io parameter block for the ; mds, which is used to perform subsequent reads and writes) ; seldsk select disk given by reg-c (0,1,    2...) ; settrk set track address (0,...76) for subsequent read/write ; setsec set sector address (1,...,26) for subsequent read/write ; setdma set subsequent dma address (initially 80h) ; ; (read and write assume previous calls to set up the io paramekdef 2,0 diskdef 3,0 ; endef occurs at end of assembly ; ; end of controller - independent code, the remaining subroutines ; are tailored to the particular operating environment, and must ; be altered for any system which differs from the intel mds.h ;reader in to reg-a co equ 0f809h ;console char from c to console out po equ 0f80ch ;punch char from c to punch device lo equ 0f80fh ;list from c to list device csts equ 0f812h ;console status 00/ff to register a ; ; disk ports and commands base eexample bios endif if not test db '00' ;memory size filled by relocator endif db 'k CP/M vers ' db vers/10+'0','.',vers mod 10+'0' db cr,lf,0 ; boot: ;print signon message and go to ccp ; (note: mds boot initialized iobyte at 0003h) lxi ,0 ;boot from drive 0 call seldsk mvi c,0 call settrk ;start with track 0 mvi c,2 ;start reading sector 2 call setsec ; ; read sectors, count nsects to zero pop b ;10-error count mvi b,nsects rdsec: ;read next sector push b ;save sector c pop b ;recall sector count dcr b ;done? jnz rdsec ; ; done with the load, reset default buffer address gocpm: ;(enter here from cold start boot) ; enable rst0 and rst7 di mvi a,12h ;initialize command out revrt xra a out intc ;clearedters) ; read read track/sector to preset dma address ; write write track/sector from preset dma address ; ; jump vector for indiviual routines jmp boot wboote: jmp wboot jmp const jmp conin jmp conout jmp list jmp punch jmp reader jmp  ; ; the following code assumes the mds monitor exists at 0f800h ; and uses the i/o subroutines within the monitor ; ; we also assume the mds system has four disk drives revrt equ 0fdh ;interrupt revert port intc equ 0fch ;interrupt mask port icon qu 78h ;base of disk command io ports dstat equ base ;disk status (input) rtype equ base+1 ;result type (input) rbyte equ base+3 ;result byte (input) ; ilow equ base+1 ;iopb low address (output) ihigh equ base+2 ;iopb high address (output) ; readf sp,buff+80h lxi h,signon call prmsg ;print message xra a ;clear accumulator sta cdisk ;set initially to disk a jmp gocpm ;go to cp/m ; ; wboot:; loader on track 0, sector 1, which will be skipped for warm ; read cp/m from disk - assuming thecount call read jnz booterr ;retry if errors occur lhld iod ;increment dma address lxi d,128 ;sector size dad d ;incremented dma address in hl mov b,h mov c,l ;ready for call to set dma call setdma lda ios ;sector number just read cpi 2 mvi a,inte ;rst0 and rst7 bits on out intc xra a out icon ;interrupt control ; ; set default buffer address to 80h lxi b,buff call setdma ; ; reset monitor entry points mvi a,jmp sta 0 lxi h,wboote shld 1 ;jmp wboot at location 00 home jmp seldsk jmp settrk jmp setsec jmp setdma jmp read jmp write jmp listst ;list status jmp sectran ; maclib diskdef ;load the disk definition library disks 4 ;four disks diskdef 0,1,26,6,1024,243,64,64,offset diskdef 1,0 disequ 0f3h ;interrupt control port inte equ 0111$1110b ;enable rst 0(warm boot), rst 7 (monitor) ; ; mds monitor equates mon80 equ 0f800h ;mds monitor rmon80 equ 0ff0fh ;restart mon80 (boot error) ci equ 0f803h ;console character to reg-a ri equ 0f806equ 4h ;read function writf equ 6h ;write function recal equ 3h ;recalibrate drive iordy equ 4h ;i/o finished mask cr equ 0dh ;carriage return lf equ 0ah ;line feed ; signon: ;signon message: xxk cp/m vers y.y db cr,lf,lf if test db '32' ;32k re is a 128 byte cold start ; start. ; lxi sp,buff ;using dma - thus 80 thru ff available for stack ; mvi c,retry ;max retries push b wboot0: ;enter here on error retries lxi b,cpmb ;set dma address to start of disk system call setdma mvi c6 ;read last sector? jc rd1 ; must be sector 26, zero and go to next track lda iot ;get track to register a inr a mov c,a ;ready for call call settrk xra a ;clear sector number rd1: inr a ;to next sector mov c,a ;ready for call call setse sta 5 lxi h,bdos shld 6 ;jmp bdos at location 5 if not test sta 7*8 ;jmp to mon80 (may have been changed by ddt) lxi h,mon80 shld 7*8+1 endif ; leave iobyte set ; previously selected disk was b, send parameter to cpm lda cdisk ;last log    ged disk number mov c,a ;send to ccp to log it in ei jmp cpmb ; ; error condition occurred, print message and retry booterr: pop b ;recall counts dcr c jz booter0 ; try again push b jmp wboot0 ; booter0: ; otherwise too many retries mds call) jmp po ; reader: ;reader character in to reg-a ; (exactly the same as mds call) jmp ri ; home: ;move to home position ; treat as track 00 seek mvi c,0 jmp settrk ; seldsk: ;select disk given by register c lxi h,0000h ;return 000 dad h ;*2 dad h ;*4 dad h ;*8 dad h ;*16 lxi d,dpbase dad d ;HL=disk header table address ret ; ; settrk: ;set track address given by c lxi h,iot mov m,c ret ; setsec: ;set sector number given by c lxi h,ios mov m,c ret sec have error set in reg-a ; ; write: ;disk write function mvi c,writf call setfunc ;set to write function call waitio ret ;may have error set ; ; ; utility subroutines prmsg: ;print message at h,l to 0 mov a,m ora a ;zero? rz ; more tselect proper disk bank mov m,a ;set disk select bit on/off ret ; waitio: mvi c,retry ;max retries before perm error rewait: ; start the i/o function and wait for completion call intype ;in rtype call inbyte ;clears the controller ; lda dlete (00) unlinked ; 00 unlinked i/o complete, 01 linked i/o complete (not used) ; 10 disk status changed 11 (not used) cpi 10b ;ready status change? jz wready ; ; must be 00 in the accumulator ora a jnz werror ;some other condition, lxi h,bootmsg call prmsg jmp rmon80 ;mds hardware monitor ; bootmsg: db '?boot',0 ; ; const: ;console status to reg-a ; (exactly the same as mds call) jmp csts ; conin: ;console character to reg-a call ci ani 7fh ;remove parity bit 0 if error mov a,c cpi ndisks ;too large? rnc ;leave HL = 0000 ; ani 10b ;00 00 for drive 0,1 and 10 10 for drive 2,3 sta dbank ;to select drive bank mov a,c ;00, 01, 10, 11 ani 1b ;mds has 0,1 at 78, 2,3 at 88 ora a ;result 00? jz setdtran: ;translate sector bc using table at de mvi b,0 ;double precision sector number in BC xchg ;translate table address to HL dad b ;translate(sector) address mov a,m ;translated sector number to A sta ios mov l,a ;return sector number in o print push h mov c,a call conout pop h inx h jmp prmsg ; setfunc: ; set function for next i/o (command in reg-c) lxi h,iof ;io function address mov a,m ;get it to accumulator for masking ani 11111000b ;remove previous command ora cbank ;set bank flags ora a ;zero if drive 0,1 and nz if 2,3 mvi a,iopb and 0ffh ;low address for iopb mvi b,iopb shr 8 ;high address for iopb jnz iodr1 ;drive bank 1? out ilow ;low address to controller mov a,b out ihigh ;high address jm retry ; ; check i/o error bits call inbyte ral jc wready ;unit not ready rar ani 11111110b ;any other errors? (deleted data ok) jnz werror ; ; read or write is ok, accumulator contains zero ret ; wready: ;not ready, treat as error foret ; conout: ;console character from c to console out jmp co ; list: ;list device out ; (exactly the same as mds call) jmp lo ; listst: ;return list status xra a ret ;always not ready ; punch: ;punch device out ; (exactly the same as rive mvi a,00110000b ;selects drive 1 in bank setdrive: mov b,a ;save the function lxi h,iof ;io function mov a,m ani 11001111b ;mask out disk number ora b ;mask in new disk number mov m,a ;save it in iopb mov l,c mvi h,0 ;HL=disk numberL ret ; setdma: ;set dma address given by regs b,c mov l,c mov h,b shld iod ret ; read: ;read next disk record (assuming disk/trk/sec/dma set) mvi c,readf ;set to read function call setfunc call waitio ;perform read function ret ;may ;set to new command mov m,a ;replaced in iopb ; the mds-800 controller requires disk bank bit in sector byte ; mask the bit from the current i/o function ani 00100000b ;mask the disk select bit lxi h,ios ;address the sector select byte ora m ;p wait0 ;to wait for complete ; iodr1: ;drive bank 1 out ilow+10h ;88 for drive bank 10 mov a,b out ihigh+10h ; wait0: call instat ;wait for completion ani iordy ;ready? jz wait0 ; ; check io completion ok call intype ;must be io compr now call inbyte ;clear result byte jmp trycount ; werror: ;return hardware malfunction (crc, track, seek, etc.) ; the mds controller has returned a bit in each position ; of the accumulator, corresponding to the conditions: ; 0 - deleted data (    accepted as ok above) ; 1 - crc error ; 2 - seek error ; 3 - address error (hardware malfunction) ; 4 - data over/under flow (hardware malfunction) ; 5 - write protect (treated as not ready) ; 6 - write error (hardware malfunction) ; 7 - not ready da dbank ora a jnz intyp1 ;skip to bank 10 in rtype ret intyp1: in rtype+10h ;78 for 0,1 88 for 2,3 ret ; inbyte: lda dbank ora a jnz inbyt1 in rbyte ret inbyt1: in rbyte+10h ret ; instat: lda dbank ora a jnz insta1 in dsta; Skeletal CBIOS for first level of CP/M 2.0 alteration ; msize equ 20 ;cp/m version memory size in kilobytes ; ; "bias" is address offset from 3400H for memory systems ; than 16K (referred to as "b" throughout the text). ; bias equ (msize-20)*1024 punch ;punch character out jmp reader ;reader character out jmp home ;move head to home position jmp seldsk ;select disk jmp settrk ;set track number jmp setsec ;set sector number jmp setdma ;set dma address jmp read ;read disk jmp disk 03 dw trans,0000H dw 0000H,0000H dw dirbf,dpblk dw chk03,all03 ; ; sector translate vector trans: db 1,7,13,19 ;sectors 1,2,3,4 db 25,5,11,17 ;sectors 5,6,7,8 db 23,3,9,15 ;sectors 9,10,11,12 db 21,2,8,14 ;sectors 13,14,15,16 db 20,n xra a ;zero in the accum sta iobyte ;clear the iobyte sta cdisk ;select disk zero jmp gocpm ;initialize and go to cp/m ; wboot: ;simplest case is to read the disk until all sectors loaded lxi sp,80h ;use space below buffer for stack mv; (accumulator bits are numbered 7 6 5 4 3 2 1 0) ; ; it may be useful to filter out the various conditions, ; but we will get a permanent error message if it is not ; recoverable. in any case, the not ready condition is ; treated as a separate condit ret insta1: in dstat+10h ret ; ; ; ; data areas (must be in ram) dbank: db 0 ;disk bank 00 if drive 0,1 ; 10 if drive 2,3 iopb: ;io parameter block db 80h ;normal i/o operation iof: db readf ;io function, initial read ion: db 1 ;num ccp equ 3400H+bias ;base of ccp bdos equ ccp+806h ;base of bdos bios equ ccp+1600h ;base of bios cdisk equ 0004H ;current disk number 0=A,...,15=P iobyte equ 0003h ;intel i/o byte ; org bios ;origin of this program nsects equ ($-ccp)/128 ;warm stawrite ;write disk jmp listst ;return list status jmp sectran ;sector translate ; ; fixed data tables for four-drive standard ; IBM-compatible 8" disks ; disk parameter header for disk 00 dpbase: dw trans,0000H dw 0000H,0000H dw dirbf,dpblk 26,6,12 ;sectors 17,18,19,20 db 18,24,4,10 ;sectors 21,22,23,24 db 16,22 ;sectors 25,26 ; dpblk: ;disk parameter block, common to all disks dw 26 ;sectors per track db 3 ;block shift factor db 7 ;block mask db 0 ;null mask dw 242 ;disi c,0 ;select disk 0 call seldsk call home ;go to track 00 ; mvi b,nsects ;b counts # of sectors to load mvi c,0 ;c has the current track number mvi d,2 ;d has the next sector to read ; note that we begin by reading track 0, sector 2 since tion for later improvement trycount: ; register c contains retry count, decrement 'til zero dcr c jnz rewait ;for another try ; ; cannot recover from error mvi a,1 ;error code ret ; ; intype, inbyte, instat read drive bank 00 or 10 intype: lber of sectors to read iot: db offset ;track number ios: db 1 ;sector number iod: dw buff ;io address ; ; ; define ram areas for bdos operation endef end rt sector count ; ; jump vector for individual subroutines jmp boot ;cold start wboote: jmp wboot ;warm start jmp const ;console status jmp conin ;console character in jmp conout ;console character out jmp list ;list character out jmp  dw chk00,all00 ; disk parameter header for disk 01 dw trans,0000H dw 0000H,0000H dw dirbf,dpblk dw chk01,all01 ; disk parameter header for disk 02 dw trans,0000H dw 0000H,0000H dw dirbf,dpblk dw chk02,all02 ; disk parameter header for k size-1 dw 63 ;directory max db 192 ;alloc 0 db 0 ;alloc 1 dw 16 ;check size dw 2 ;track offset ; ; end of fixed tables ; ; individual subroutines to perform each function boot: ;simplest case is to just perform parameter initializatiosector 1 ; contains the cold start loader, which is skipped in a warm start lxi h,ccp ;base of cp/m (initial load point) load1: ;load one more sector push b ;save sector count, current track push d ;save next sector to read push h ;save dma addr    ess mov c,d ;get sector address to register c call setsec ;set sector address from register c pop b ;recall dma address to b,c push b ;replace on stack for later recall call setdma ;set dma address from b,c ; ; drive set to 0, track set, sectoracks cpi 27 jc load1 ;carry generated if sector<27 ; ; end of current track, go to next track mvi d,1 ;begin with first sector of next track inr c ;track=track+1 ; ; save register state, and change tracks push b push d push h call settret current disk number mov c,a ;send to the ccp jmp ccp ;go to cp/m for further processing ; ; ; simple i/o handlers (must be filled in by user) ; in each case, the entry point is provided, with space reserved ; to insert your own code ; const: ady) xra a ;0 is always ok to return ret ; punch: ;punch character from register c mov a,c ;character to register a ret ;null subroutine ; ; reader: ;read character into register a from reader device mvi a,1ah ;enter end of file for now (re;must be between 0 and 3 rnc ;no carry if 4,5,... ; disk number is in the proper range ds 10 ;space for disk select ; compute proper disk parameter header address lda diskno mov l,a ;L=disk number 0,1,2,3 mvi h,0 ;high order zero dad h ;*2 r) ret ;with value in HL ; setdma: ;set dma address given by registers b and c mov l,c ;low order address mov h,b ;high order address shld dmaad ;save the address ds 10h ;space for setting the dma address ret ; read: ;perform read operatio set, dma address set call read cpi 00h ;any errors? jnz wboot ;retry the entire boot if an error occurs ; ; no error, move to next sector pop h ;recall dma address lxi d,128 ;dma=dma+128 dad d ;new dma address is in h,l pop d ;recall sectok ;track address set from register c pop h pop d pop b jmp load1 ;for another sector ; ; end of load operation, set parameters and go to cp/m gocpm: mvi a,0c3h ;c3 is a jmp instruction sta 0 ;for jmp to wboot lxi h,wboote ;wboot entry poin;console status, return 0ffh if character ready, 00h if not ds 10h ;space for status subroutine mvi a,00h ret ; conin: ;console character into register a ds 10h ;space for input routine ani 7fh ;strip parity bit ret ; conout: ;console charaplace later) ani 7fh ;remember to strip parity bit ret ; ; ; i/o drivers for the disk follow ; for now, we will simply store the parameters away for use ; in the read and write subroutines ; home: ;move to the track 00 position of current drive  dad h ;*4 dad h ;*8 dad h ;*16 (size of each header) lxi d,dpbase dad d ;HL=.dpbase(diskno*16) ret ; settrk: ;set track given by register c mov a,c sta track ds 10h ;space for track select ret ; setsec: ;set sector given by register n (usually this is similar to write ; so we will allow space to set up read command, then use ; common code in write) ds 10h ;set up read command jmp waitio ;to perform the actual i/o ; write: ;perform a write operation ds 10h ;set up write commar address pop b ;recall number of sectors remaining, and current trk dcr b ;sectors=sectors-1 jz gocpm ;transfer to cp/m if all have been loaded ; ; more sectors remain to load, check for track change inr d mov a,d ;sector=27?, if so, change trt shld 1 ;set address field for jmp at 0 ; sta 5 ;for jmp to bdos lxi h,bdos ;bdos entry point shld 6 ;address field of jump at 5 to bdos ; lxi b,80h ;default dma address is 80h call setdma ; ei ;enable the interrupt system lda cdisk ;gcter output from register c mov a,c ;get to accumulator ds 10h ;space for output routine ret ; list: ;list character from register c mov a,c ;character to register a ret ;null subroutine ; listst: ;return list status (0 if not ready, 1 if re ; translate this call into a settrk call with parameter 00 mvi c,0 ;select track 0 call settrk ret ;we will move to 00 on first read/write ; seldsk: ;select disk given by register C lxi h,0000h ;error return code mov a,c sta diskno cpi 4 c mov a,c sta sector ds 10h ;space for sector select ret ; sectran: ;translate the sector given by BC using the ;translate table given by DE xchg ;HL=.trans dad b ;HL=.trans(sector) mov l,m ;L = trans(sector) mvi h,0 ;HL= trans(sectond ; waitio: ;enter here from read and write to perform the actual i/o ; operation. return a 00h in register a if the operation completes ; properly, and 01h if an error occurs during the read or write ; ; in this case, we have saved the disk numbe    r in 'diskno' (0,1) ; the track number in 'track' (0-76) ; the sector number in 'sector' (1-26) ; the dma address in 'dmaad' (0-65535) ds 256 ;space reserved for I/O drivers mvi a,1 ;error condition ret ;replaced when filled-in ; ; the reation vector 1 all02: ds 31 ;allocation vector 2 all03: ds 31 ;allocation vector 3 chk00: ds 16 ;check vector 0 chk01: ds 16 ;check vector 1 chk02: ds 16 ;check vector 2 chk03: ds 16 ;check vector 3 ; enddat equ $ ;end of data area datsiz equ $-bef ;; @y is not 1, shift right one position @y set @y shr 1 @x set @x + 1 endm endm ; ;***************************************************** ;* * ;* CP/M to host disk constants  * ;* BDOS constants on entry to write * ;* * ;***************************************************** wrall equ 0 ;write to allocated wrdir equ 1 ;write mainder of the CBIOS is reserved uninitialized ; data area, and does not need to be a part of the ; system memory image (the space must be available, ; however, between "begdat" and "enddat"). ; track: ds 2 ;two bytes for expansion sector: ds 2 ;two gdat;size of data area end  ;check vector 1 chk02: ds 16 ;check vector 2 chk03: ds 16 ;check vector 3 ; enddat equ $ ;end of data area datsiz equ $-be;***************************************************** ;* * ;* Sector Deblocking Algorithms for CP/M 2.0 * ;* * ;******************************* * ;* * ;***************************************************** blksiz equ 2048 ;CP/M allocation size hstsiz equ 512 ;host disk sector size hstspt equ 20 ;host disk sectors/trk hstblk equ hstsiz/1to directory wrual equ 2 ;write to unallocated ; ;***************************************************** ;* * ;* The BDOS entry points given below show the * ;* code which is relevant to deblocbytes for expansion dmaad: ds 2 ;direct memory address diskno: ds 1 ;disk number 0-15 ; ; scratch ram area for BDOS use begdat equ $ ;beginning of data area dirbf: ds 128 ;scratch directory area all00: ds 31 ;allocation vector 0 all01: ds 31 ;alloc********************** ; ; utility macro to compute sector mask smask macro hblk ;; compute log2(hblk), return @x as result ;; (2 ** @x = hblk on return) @y set hblk @x set 0 ;; count right shifts of @y until = 1 rept 8 if @y = 1 exitm endi28 ;CP/M sects/host buff cpmspt equ hstblk * hstspt ;CP/M sectors/track secmsk equ hstblk-1 ;sector mask smask hstblk ;compute sector mask secshf equ @x ;log2(hstblk) ; ;***************************************************** ;* king only. * ;* * ;***************************************************** ; ; DISKDEF macro, or hand coded tables go here dpbase equ $ ;disk param block base ; boot: wboot: ;enter here on system     boot to initialize xra a ;0 to accumulator sta hstact ;host buffer inactive sta unacnt ;clear unalloc count ret ; home: ;home the selected disk home: lda hstwrt ;check for pending write ora a jnz homed sta hstact ;clear host activeov l,c shld dmaadr ret ; sectran: ;translate sector number BC mov h,b mov l,c ret ; ;***************************************************** ;* * ;* The READ entry point takes the place of try point takes the place of * ;* the previous BIOS defintion for WRITE. * ;* * ;***************************************************** write: ;write the selected CP/M sector xra a ;0 to af not ; ; more unallocated records remain dcr a ;unacnt = unacnt-1 sta unacnt lda sekdsk ;same disk? lxi h,unadsk cmp m ;sekdsk = unadsk? jnz alloc ;skip if not ; ; disks are the same lxi h,unatrk call sektrkcmp ;sektrk = unatrk? ag ;rsflag = 0 jmp rwoper ;to perform the write ; alloc: ;not an unallocated record, requires pre-read xra a ;0 to accum sta unacnt ;unacnt = 0 inr a ;1 to accum sta rsflag ;rsflag = 1 ; ;**********************************************tive flag mov a,m mvi m,1 ;always becomes 1 ora a ;was it already? jz filhst ;fill host if not ; ; host buffer active, same as seek buffer? lda sekdsk lxi h,hstdsk ;same disk? cmp m ;sekdsk = hstdsk? jnz nomatch ; ; same disk, same  flag homed: ret ; seldsk: ;select disk mov a,c ;selected disk number sta sekdsk ;seek disk number mov l,a ;disk number to HL mvi h,0 rept 4 ;multiply by 16 dad h endm lxi d,dpbase ;base of parm block dad d ;hl=.dpb(curdsk)  * ;* the previous BIOS defintion for READ. * ;* * ;***************************************************** read: ;read the selected CP/M sector xra a sta unacnt mvi a,1 sta readop ;rccumulator sta readop ;not a read operation mov a,c ;write type in c sta wrtype cpi wrual ;write unallocated? jnz chkuna ;check for unalloc ; ; write to unallocated, set parameters mvi a,blksiz/128 ;next unalloc recs sta unacnt lda sejnz alloc ;skip if not ; ; tracks are the same lda seksec ;same sector? lxi h,unasec cmp m ;seksec = unasec? jnz alloc ;skip if not ; ; match, move to next sector for future ref inr m ;unasec = unasec+1 mov a,m ;end of track? cpi cp******* ;* * ;* Common code for READ and WRITE follows * ;* * ;***************************************************** rwoper: ;enter here to pertrack? lxi h,hsttrk call sektrkcmp ;sektrk = hsttrk? jnz nomatch ; ; same disk, same track, same buffer? lda sekhst lxi h,hstsec ;sekhst = hstsec? cmp m jz match ;skip if match ; nomatch: ;proper disk, but not correct sector lda hstwret ; settrk: ;set track given by registers BC mov h,b mov l,c shld sektrk ;track to seek ret ; setsec: ;set sector given by register c mov a,c sta seksec ;sector to seek ret ; setdma: ;set dma address given by BC mov h,b mead operation sta rsflag ;must read data mvi a,wrual sta wrtype ;treat as unalloc jmp rwoper ;to perform the read ; ;***************************************************** ;* * ;* The WRITE enkdsk ;disk to seek sta unadsk ;unadsk = sekdsk lhld sektrk shld unatrk ;unatrk = sectrk lda seksec sta unasec ;unasec = seksec ; chkuna: ;check for write to unallocated sector lda unacnt ;any unalloc remain? ora a jz alloc ;skip imspt ;count CP/M sectors jc noovf ;skip if no overflow ; ; overflow to next track mvi m,0 ;unasec = 0 lhld unatrk inx h shld unatrk ;unatrk = unatrk+1 ; noovf: ;match found, mark as unnecessary read xra a ;0 to accumulator sta rsflform the read/write xra a ;zero to accum sta erflag ;no errors (yet) lda seksec ;compute host sector rept secshf ora a ;carry = 0 rar ;shift right endm sta sekhst ;host sector to seek ; ; active host sector? lxi h,hstact ;host acrt ;host written? ora a cnz writehst ;clear host buff ; filhst: ;may have to fill the host buffer lda sekdsk sta hstdsk lhld sektrk shld hsttrk lda sekhst sta hstsec lda rsflag ;need to read? ora a cnz readhst ;yes, if 1 xra     a ;0 to accum sta hstwrt ;no pending write ; match: ;copy data to or from buffer lda seksec ;mask buffer number ani secmsk ;least signif bits mov l,a ;ready to shift mvi h,0 ;double count rept 7 ;shift left 7 dad h endm ; hl hased to/from host buffer lda wrtype ;write type cpi wrdir ;to directory? lda erflag ;in case of errors rnz ;no further processing ; ; clear host buffer for directory write ora a ;errors? rnz ;skip if so xra a ;0 to accum sta hstwrt inx d inx h ldax d cmp m ;sets flags ret ; ;***************************************************** ;* * ;* WRITEHST performs the physical write to * ;* the host disk, READHST reads the p********************************************** ;* * ;* Unitialized RAM data areas * ;* * ;***************************************************** ; flag readop: ds 1 ;1 if read operation wrtype: ds 1 ;write operation type dmaadr: ds 2 ;last dma address hstbuf: ds hstsiz ;host buffer ; ;***************************************************** ;* >Ru|:EuRu>R:!"1>2>20(!5 7*1 "1:<2 >% !~(( !k(7:!"B:>2>27(!5 7*B "B:<2 >% :!*"S>2>2>(!5 7*S relative host buffer address lxi d,hstbuf dad d ;hl = host address xchg ;now in DE lhld dmaadr ;get/put CP/M data mvi c,128 ;length of move lda readop ;which way? ora a jnz rwmove ;skip if read ; ; write operation, mark and switch ;buffer written call writehst lda erflag ret ; ;***************************************************** ;* * ;* Utility subroutine for 16-bit compare * ;* hysical * ;* disk. * ;* * ;***************************************************** writehst: ;hstdsk = host disk #, hsttrk = host track #, ;hstsec = host sect #. write "hstsiz" bytes ;fr sekdsk: ds 1 ;seek disk number sektrk: ds 2 ;seek track number seksec: ds 1 ;seek sector number ; hstdsk: ds 1 ;host disk number hsttrk: ds 2 ;host track number hstsec: ds 1 ;host sector number ; sekhst: ds 1 ;seek shr secshf hstact: ds 1 * ;* The ENDEF macro invocation goes here * ;* * ;***************************************************** end  "S:<2 >% !*&>!' >!8>!I2!:a:͛:=O!Z ~>>2>2~:w:͛:=2 :>= !P2G( +| >222G!~~w>(w(::2220 direction mvi a,1 sta hstwrt ;hstwrt = 1 xchg ;source/dest swap ; rwmove: ;C initially 128, DE is source, HL is dest ldax d ;source character inx d mov m,a ;to dest inx h dcr c ;loop 128 times jnz rwmove ; ; data has been mov * ;***************************************************** sektrkcmp: ;HL = .unatrk or .hsttrk, compare with sektrk xchg lxi h,sektrk ldax d ;low byte compare cmp m ;same? rnz ;return if not ; low bytes equal, test high 1som hstbuf and return error flag in erflag. ;return erflag non-zero if error ret ; readhst: ;hstdsk = host disk #, hsttrk = host track #, ;hstsec = host sect #. read "hstsiz" bytes ;into hstbuf and return error flag in erflag. ret ; ;******* ;host active flag hstwrt: ds 1 ;host written flag ; unacnt: ds 1 ;unalloc rec cnt unadsk: ds 1 ;last unalloc disk unatrk: ds 2 ;last unalloc track unasec: ds 1 ;last unalloc sector ; erflag: ds 1 ;error reporting rsflag: ds 1 ;read sectorA(C) 1981 TeleVideo Systems Inc.TVI Systems copydisk program 811751u|ufA802ufA802u|:E |:E>o| (uRu|>2>208/8* @!~N((!k !4u>͛!~˖(~>N#F#::* O|uA_:0_:<'2|o_$|  ''''#"7{ (t 'Source Drive:(ESC to abort.)$Destination Drive:(ESC to abort.)$ Confirmation: COPYD    ISK from "$" to "$". Warning: COPYDISK will destroy all data on destination disk with no chance of recovery.$Press RETURN when ready.(ESC to abort, BAR to re-start.)$Copying(Track) --> $Disk Copy Completed. $Verification Error(s). $Data Transfer Error(s)+*m7|ʷ*>,ͧE::<>,D::<269269!+͂+f+*ͪ*)9|*Q*6:X:*>ͧE ELENo Fatal error(s) Warning(s):L8G)+!8+͂+Rf+REPT/IRP/IRPC/MACROUnterminated +!+͂+R> ̓> ̓::<> D> D!L+͝ -]5]5 ʐ- ʐ-̈́5"9>5 >5> 4>5:9-*94.*9~-G+-~/_-~ .=G+~ ..-+<= .+.~>...?*9O #*96 2."9+D`E` Z.b8.,. +"9A.O:v8 ʝ0P,y6+,t0 410 <29̝ ó0͝ *1:9 141 ;,$1< 1>$141$1$1 w+0:941ͤ6++xt"9&i"9Z1N/>Ä0P/*9>29/,ʞ1 |-;q-'ʎ1"ʎ,Ĥr3##^#V(5ʨ3ʨ36+ Ý36++*9*9!3/"9"9295375-̈́5. 3*9*9/*9+ó/}_|W:^8žX%:v8 2^8*M84"_8:^8̤2^8 !9Ns#FrH4Q4q#p*9^#V+*9##^#V+*9}q4Q4"9Û4*9 "9!96 5*S7+F#~#^#V###~#ͧE•666?7_6{7{@7{7{_!~ͧE!'956:(9w̓!74:7̙6*7~@w> çE>*>M>C>UͧE6*7#{G#^#V#^#V"Y8ͪ"7#~ >IçE!v8"t8*t86!v8~G#^#VE  on $TELEVIDEO SYSTEM COPYDISK V2.0$ $m<L8χm<Ɋχm<χ      8~w#w#w#w"7=):v8Ux†x 27*7"7̈́ x]I:(9ä"7=)x†*7)#~Œ~@ w#s#r#*Y8s#r]D:9)+:q::<×@ConditionalSymbols: Macros: :9!"9"9*9+!9!*94zW{_6 >+<292929*9$6 ,"9%5!95ð+~<=8,:9<29:9:9=29<#~$,:9$,:9$,7"9:9=29͝ &—,*7~ ʕ, ʕ, ͣ,"7•,>&29. .;.! .w+͝ l.Ow+͝ ʸ. .ç.w+͝ ʧ.l..w+à.ʠ..Þ.ž.{=*7+~.ͼ.!E86 /#6 +-&-:-! //-X%:v8 A/"9Ͱ+U/> 3P/ : ,v/74 k/ɯ4>5!*1-t1G[, |-ʈ1Ï1"94>5!*9*9*9!!1/>29"96 1:91x1*9##~#1+ð/5!275-̈́5. 2*9/ bk1{ tOD C2D42> D> D:v8 { t29O͝ q2 b2z2N/P/!7:9O~9%:96 5*94H4*9{_{¯4s#r#>w#wQ44s#r4"9*9H4s#r{_*9{\4*9w{45"9{_Q4z\4*9}"5}o~5{755{_Q4{ȯw#w64*9H4q#p*9{x5*9"9~{_H4{_!2'EIJR7 END : DEFS 2400H ; DITTO TORS X 100H BYTES/SECTOR R to re-start.)$' MM z8012D1' 7Z+!j74~=!*!89~ª)!8~ª)!:#89~# ) )) ) °)!29p"7#!fH"9z *"7~w#~@+~)#^#V)*S8  *Q8{c*7Iw!"7"7͙!+!M9>%6̓!+!9>%6̓f+*k7||*::<269269Â*!*͂+!+͂-&—,:9œ,>&429*9~,b8,O+, ¶,x+~,è,:9*9~-b8,O+, ,x+~,,<*7 ͣ,=-G~# "- *-͗,-x͗,G‰,&‰, "7͝ V- V- \-͗,C-d 1-k-d 1-͗,e-͝ ;ʍ--]5͗, >59*9!!//6 /:9°/x/64*9P,29*95/7(5. /*9*9*9"9"9"9 bkÝ/:9ʼ290ů29 Ø:9z0 : ON0yV0y ^0y@k0:9=29:9<29:9:q7~%:9#~>%!ɷʒ2 #Æ2!ɷ} ­2##^#V64#"9~(wͰ+"9A. ,ʽ2w+295*9*9#s#r*9P,!7< Ͱ+6+6"9+d. { ʎ3;ʎ3{ʐ55*9*9:9©5!94 z W{_*9*94BK*9"9x5+w 5"9*7*94z W{_*94BK*9*7"9 "9x#6 w#62'92(9O^#V#E6.6:'9ăz^#V{N6}s6+V+^{X6w#w+++N6 ~"7@w#~ COPYDISK.MAC--JULY 7, 1981 SCOPYDI]9    fHqH|HHH MHHPHH5IHHHKOIJ1KAIJR:QAQBQCQDQEQHQLQMbSPcPSWQIQR bBCbDEbHLbAFjIXDjIYdrNZqZrNCqPrPOrPECCCCOPYDISKREL  COPYDIS Fatal error(s) F TRYCNT 0005 UNMSTA 0580' VDMAAD 0550' VERBUF 2981' VERDRV 057E' VERSEC 023B' VERT30 01E8' VERT40 01FA' VERT42 0216' VERT50 0223' VERT80 01ED' VERTRK 01D3' VREMSG 04CF' VRSMSG 0502' VRSTAB 0546' WAIT 0298' WAIT10 029A' WAIT2,17 DEFB 3,6,9,12,15,18 DEFB 1,4,7,10,13,16 DEFB 2,5,8,11,14,17 DEFB 3,6,9,12,15,18 FDDBYT: DEFB 00000010B ; P =COPYDISK/C !@?Command error?File not found?CT BDT7DY7fBLºBDS7DT7>fBR7DD7R7>fB> B6 #=By.2P:~C;xBCDBy/yDLC2U:DOCN*C2[:CO5C2Z:CR@C2W:CCNC2X:2U:CMYC2\:CIdC2T:CZpC2T:CP7:V:<2V:CD[Eƀ)`iE> ͧE> ͧE> ͧE:U:B::<DF*<|E#"<<wF =E!;>!^:E:W:B:^:D* ;|=F#" ; ;w::<1DF*>|VF#">>DD>>:=F!=[F!>{FQ DQ : EQ  HQ LQ qMfJb SPXIc PSWQ `"IQ Rb BCKb IDEQb `IHLb JAFj D:IXj dIYLIr NZq Zr NCq *PoIr XPOr APEE!ENKCRF"./0"COPYDISKMAC OPYDISKMACRELCRFPRN_z aB ͖Vz @``H0h@ RYk,[ -`SgZ-CI ! m8 C0 02A0' WAIT30 02B8' WARMSG 040F' WDMAAD 053F' WRTSEC 0234' WTSCMD 00A0 WTSTAB 0535' WTTCMD 00F0 XFRBUF 0581' XFRT10 0142' XFRT20 015fDOUBLE DENSITY, MOTOR ON. SRCDRV: DEFS 1 ; DRIVE AND DENSITY INFORMATION DSTDRV: DEFS 1 ; DRIVE AND DENSITY INFORan't enter file~D#×@!f@ñ@!u@ñ@!@͗@@":*+++"N:*::Y:2Q:*N:͟C:@ @2]:2U:2[:2Z:2X:2W:2\:<2V:2T:@ů2M:BB;%B: A>2M:!^:B> 2:2;2:y,2W:HA:M:2W:BB ;:X:UA;%B:::2S: 2R:rA:M:@2M:!:By=7BB 7C0ڜCAҘC:ҜCÁCO!~6GC#~ ·CéC@x+#C~ýC2Y:C2Y::Q:CLD>*D @> D:@!@"d@o>g6 #> w~# D D FD#"d@_*d@+~ #̟C#"d@+~7ȷ> D> D ͧE~«FüF7ȷ!F͗@@@F> D!F͗@LDDISK FULLTRYIF!CCOPYDSIE!STACKD!rCRLFQKF!VRSMSGIF!yCONOUTAKF!OCOPY10&JF!SRCMSG]NE!cCONIOJF REBOOT*RF MAXDRVF!|SRCDRVF!hCOPY20VJF!DSTMSGKF!}DSTDRVJF!SETMSGJF!BPRTDRV)\ #Ic0 &pr9B\  'Cr0fc)@E9!AR 7BE+HRxY) P, %2X2 P aB ͖Vz aB ͖4' XFRT30 01A0' XFRT40 01B2' XFRT42 01CE' XFRT50 0147' XFRT60 0186' XFRT62 0170' XFRT70 01A5' XFRTRK 012D' NoMATION VERDRV: DEFS 1 ; DRIVE AND DENSITY STATUS: DEFS 1 ; CURRENT FDC STATUS UNMSTA: DEFS 1 ; UNMASKED VERSION OF ABOVE ; BUFFER SPACE XFRBUF: DEFS 2400H ; 24H SECTORS X 100H BYTES/SECTOR VERBUF: DEFS 2400H ; DITTO END %B:A 7!:B:M:!^:A!::X:A:;> =AA:U:A:R:A:S:2U:͵DVDlD*N:##:V:2Q:G: ~BBw# B # B w#B:P:!;~ @Bw#6B~C:7>fBxBBDOx=y‡B[A@2:~Cx tB :BD{B~DD<ʮ@D<ʨ@!">>!:~DäD w#Dw: E>:U:B::< EE> ͧE> ͧE>ͧE*<<:E<:E:W:B:^: E>F* ;;^:E;^:E|}ʊ!F:>½G@!Hw#2P:.G!Gw#G2P:.G!GG6 #G:P:.Gw#Gp"GF!H2G2G:G=LH"GFaH!"G" G>2G* G~\H7aH#" GQ AQ BQ %CKF!SETM10NF!WARMSGF!;PRTLIN LF!lRDYMSGD BDOSF!COPY40NE!RESETF!PROMSGE!TRACEE!CYLNOF!COPY80LF!-XFRTRKKF!COP130mMF!VERTRKF!COP140F!KPRTTRKQF    (NUMCYLF!COP120F!DCYLNO@LF!hSEEKNVmNF!DONMSGF!DTEMSGE!DRIVEF!VREMSGOF!SELECTF!XFRBUFQF!.RDMAADcPF!SIDSELLE!SECNOF!BXFRT10MF TRYCNTE!RETRYLF!GTRANSNF FDCSECOF FDCCMDD!WAITsPF!RESDMAF!STATUSF!WTRNTAB8OF SNVCMD(OD!nSEEKF!lSEEKVRPF SVRCMDF!SEECMDF!SKRTRY\QF FDCDATF!SEEK05F!SEEK10F SEEMSDCHLDF FDCPRTF DNRMSKF 4HDSCMDF THSICMDF tHSOCMDF RDACMDF RDTCMDF WTTCMDD FDD0F FDDCONF 'MAXCYLF!~VERDRVRcT\ER!+8!HoRͷZ#SKR)\͝2*SKR>ÄR:)8]T+++ Tz\T~mTöT+~G+++ʱTxT~T~T~Tz!ET++++~TTDMz!ET!ET2q2%87 ҏU U> TʮU:DqU/U:%ʾU4UU@U:!6T̀ NU:%pU>^TʮU@TʮÙ UUV!ʍU;U*Dq##"DiW:W:iWW,Y> ʦVTEWsW ÄW:÷W:iWbMW WW,YWW#:pW@+> O;U*DqzB"Dq5q:9q͏NwXX6Y:GqGXw#X:Fqw[ 5qRN:>ULW͚NvXW2[XFRT50ME!-RDSECF!TXFRT20LF SECLENLF!pXFRT62F $MAXSECF!XFRT60F!SCYLNOF!?WDMAADNF FDCTRKF!XFRT30F!XFRT70F!4WRTSECF!XFRT40F!XFRT42}MF!)VERBUFF!PKF!WAIT10F!WAIT20]! BS~wSS MS~SS_SVSMT0T1SRN:q!EmV MT!E$TzS qaU> &™U>~ʯU!Gqw#: qU*Bq"Dq*@q*>q: qUɯ2 qz2%q*DqzB"&q:Gq2(q!6! qF6TOx2 qy*Dq V*Dq++"Dq͟MM/V͚NͷMEVxbV+~  2V#xbV+~ # +HV>M#1qbNz2:q>29q2=qvX.MXq XzX:qX::qq#NX?q#NXX>2Gq!;q4aXa o  }!;qзXz!=qد2;qz2?ͫYiW͉Y\:+ƒ[:T8!W8ʡ[:A8ʃ[2O8e)(]"> Jì\[[!t1[:'8W" [||g}oqPY!r8!pg2`iq\q\PY!r8![ \=+\͚NH\DMRNb\ԥ\g2cTԥ\K\r:EW |\|\#Nʋ\҆\i\7 VDMAADMF!VERT30MF!VERT80:RF!;VERSECF!VERT40F!VERT42}NF TRKLENF!#VERT50F RDSCMDF!$RDSTABF!@SECCOMF WTSCMDF!5WTSTABF!FVRSTABF!COMANDPF!DMAINIE!^F FDDSIDF!SIDS10F!RESD10C DMAF SELOFFF!5JPBIOSF STTOFFE!lCONINF!!EOLMSGF NODRVSD TRUEE FALSE|QF FDCINDlQF FDCTR0F FDCCRCF FDCSEEF F$T $T#NR͆\ SmV#NSZ9TMTR:q!E$TåS9ToS #T#NS$TZRS͆\ T$T $T WbNMT!ET$TbN0TbS:)8 2Fq!"DqU:I_*29::q`WìVTEW:Gq! qW:;qVV{=VyWO VVw# Vxg{_zWy8O:;q2;q">q"@q*Dq"Bq*>q!;q5'XbMVWʴW ʮW~W ʙW ¦VÐW+2 q:pW W:pWW:iWW 2FqiW:9q29q#,YʐW:`i{=ʴY~ʴY#ͫYw#͢ÑY!Gq!6:iWlY:':(7XZ9vYLHYPLYMTYMBYHMlYFMlYPClYPOlYSRlYUJlYBPlYCWlYPAkYCPlYPNkYOPkYHEkYFOkYIGkYPFYOJYIJYLMYLSYRMYCSYDMYSVYAVYRPYDFYRVYFIY!a1q͟MM%gZM"YkZ] †\::,8 ]ͥ\ ~q!E\:E ]!E/\W:Eq_\ \Gͱ2Oxͱ2!)8/<ͱ22qog))r DM!r [}:)3]>!6FO:28A] *_8|L]:7!s8O!\ #~ g] _]:I'}]'!N6s(,Yʡ]B(   E*q#͊^b(E*q#͊^]B(E:q_*q-(͊^:$q(*_8| ^>+'p(*29*c8/e."a8:6!28'~#^>B( E:Lq1^>B($E=^>%B("E:)S^>0B((E0(`^g^+|g^xʊ^`i`^~`+bMͩʏ`+ͪ`:%8!+8a`~ae*+q~ae``ka`"+q_ḾRö`*+q####:%8=\ͱ2 ]`ie*-qe!":8:G8/!+U)] a``!A85ͷZ:t!6=a>\:+8] àZ:+!E8\)*-q++++~a:%8!+8`Za:{!6]àZ*-q~Mڤc›c+ J5\w#ͣ…cÈE͈EQ\xc:6!6w(Ը'͞ c[=ćRaeÝ2Ը'͞ c)\*S] c[́Rac\g?<:q%cM`F@d*+q~~wÑd_M͕aO͎d!q~y@d4 :Lq!Mq~Td5!qͱf!qg> kFͱf:qg_MͩM͓TMm`2a:6qRNz>q >#N>6qf6#w#w#w/}))q~wwf~~wwffͽff>(&>2WDM9gaz&͈E2n8g!qf_M&2!]N͈E"g[ RN{pg{\gTg|kg!kg͏N:Vq{jʲizj>ʽi{ͯʶi2Xqzͯ>G!Qq~p#wzͷxiO#~q#wz2\q*Oqi#"Zq!Uq4+xq>͏N=j: q͟MMw2 q&q͟MMW&j6.M2njEjͅjWͯ,j͊7+͈E:)=_&>kF> kFMj&*6"OqErkTM:Nq͚Nq#N7b2\3ͯ$:8§lͽ9?o$ólͽ9EoSo&lqllol8l282O8:+26:6+).m:t8m3\!2l͂lq!eÂ5m&Nm5mm!D9K*D9yLlq$!L9xMͲL6LyhL6L!"o8!L9xJ*J9͈EdKcm6LͿl:7,ͯ$i$9͑0̀ ķ(Iz :^8:\8W(O*29:I=G:&^:+:6^_{!6z^!6w# ^^6+i,ä^> ^w#^6 i,z2]8>2^8{!6,__2q26a͸'P0*6ͷ2982/8;'! aNbbÔd!Iq6298-'b!Q845%brg!#45'b>Nb- ~:O8/!Iq!:8O2=8bcgG1cxGܔdlb!qJxkF ܔd!A85bhʔd̏`%cEzf*+q:!q¨d: q Ұd~~w++++~~w>2Iq%cd:Lq!"q$"qͷMMd͙d#qÏNTed!""q[cz:60eTM*"q͈h҈EbM-e+͝-e#!"qqe͈EQ\> g:"> lb*"q͈h> kFGe*"q:"le{_ÎezʂeZe& 7 [e{t!"Oq:PqbM:OqbM7!Oqq:*+q~nDMN~%7ȯ͊ O !!"q#2*"q*6/E+$%ͪg͔d*6""q>kF 7> GJgOͯĠ2!"qyq́hͪg>2Iq2Nq͔hohhQ\oh*Zq*6/"]q+|ch͠k:!jQ\%cjQ\9h͈E2Q8*"q*6Èh*6*"Mʕjʕj+͈ETMbMڹjʜjQ\µj͕aÜj+ͿjE_M͙ zjͯ+6 -:RqG:]q!gq64j!TqjwO k!_q4 k<552hqx!Tq2iqq.MbM`kk&!Rq5_k͵:gqBk!Tq5Qk!hq5Qk!iq5Qk=<kckTMk:]q͈E!]qnk~G~w&xk>OxG&:7:7,Ám9åm9>2A7G*7|!:Œo:7uoͯ$:6m!9L$:T82V8&$\!N6m,l2l3$q$*+2*6"g8"!8*g8!L$#+w#W$~OnuncnFnncnǴcnxGxL$}!++)ͽ :a$": nկ {nn'*- :<8gDLTi_&ͷ?!_B~g2<8:7_̀ _¦_¤_ £_¢_" !A85_MÈEM`ÈEMͣ`mP_ͣM #!EM`#Mͩ*` `͊L`M͵#+͓B`#!A85TMm`͏`ÈE:I=ebM ʕa͊+bM͵2Q8_Mڲb͝ ܔd1c:6”d~ ܔdE*+q~###b~bw+w+w###rkҵb 1c!qͱf!qgM cMc#͙c!Mq4cF*"q+""qg*q-!c!ę!"Lq"Q8:Lq:67:q=ȷ%cͭćhYc!28~6(!A85:)=mc=cc!645ʂc͔d> kF> kFTMbeͰeZe2Lq2«e*6͈hte*6͈hZe 7ȷ{!5B~eo&" q*+q~e++++e~`e"+qDM#`_.MfÈE!")q* qU|f{bM+Bf͝#!)qq#:!q?ff+zf+͈EMGfͽfܝ2~###f6?\ͳf?\͋f!qwqzʑh7?{xgTM*OqzhbM͊7ʽh+sjh~w#͟gÚh͈E*Oq*6"Oq/ErkTM&q>͏N!Qq  4ih> 2Yq:Uq:Xqi!9"74i!Yq5i*Vq"Zq*q"q*q"qnjͅj Fi͕a7͊7Ti>+w#_͛iW*Oq͟g*6*Oqti#͈hҔi:Vq”i"VqkͳIrk:$/!Nq:Rq!!]q3 o8lmÿljlÏlàmÙmomìoB $% ? (Y/N): EDIT?  SAVING  BAKo>27lqNl:\2l:lqͬn.“n#ͬn ʨń7nʿn ¬nn¸n>  n~n#.:*? п́#~+:n~n@##|7ͯ$:7ėooi$:'o:7Đo:oi$:͑0̀ ķ&:7*oi$.lEoÑ0ͽ0l!d6q$ͽ*lio!eo#~Âq$ͷ&*:9*L9/!)k   ?!9"7!8Ûo!\< _7?o#Bpp #&ppWppѷ p 8pWp# 2p2p7 Mp+Wp GpGp7ɮ`p jpˆpAډpG[҄p:?7ʄpxxT BDT7DY7fBLºBDS7DT7>fBR7DD7R7>fB> B6 #=By.2P:~C;xBCDBy/yDLC2U:DOCN*C2[:CO5C2Z:CR@C2W:CCNC2X:2U:CMYC2\:CIdC2T:CZpC2T:CP7:V:<2V:CD[' WbAA%krA22A8!' W!6ͼ!O,>8a{_!a'!'TELEVIDEO SYSGEN VER 2.1SOURCE DRIVE NAME (OR RETURN TO SKIP)SOURCE ON :, THEN TYPE RETURNDESTINATION DRIVE NAME (OR RETURN TO REBOQ DQ : EQ  HQ LQ qMfJb SPXIc PSWQ `"IQ Rb BCKb IDEQb `IHLb JAFj D:IXj dIYLIr NZq Zr NCq *PoIr XPOr APEE!EN(NUMCYLF!COP120F!DCYLNO@LF!hSEEKNVmNF!DONMSGF!DTEMSGE!DRIVEF!VREMSGOF!SELECTF!XFRBUFQF!.RDMAADcPF!SIDSELLE!SECNOF!BXFRT10MF TRYCNTE!RETRYLF!GTRANSNF FDCSECOF FDCCMDD!WAITsPF!RESDMAF!STATUSF!WTRNTAB8OF SNVCMD(OD!nSEEKF!lSEEKVRPF SVRCMDF!SEECMDF!SKRTRY\QF FDCDATF!SEEK05F!SEEK10F SEEMSɮʺpʪpȮ>ʸp~͗o>Ҩp~>ɛ)ʺpʪpȮ>ʸp~͗o>Ҩp~>ɛ)Da{__> > ~#,b|7^#V" ^#V2Z*O***{‰ͪMD*ʁÁ*!*$*'*-! ">2!4:CNk>2:!4!Ns*DM͒2:OT)DESTINATION ON T:, THEN TYPE RETURNPERMANENT ERROR, TYPE RETURN TO IGNOREFUNCTION COMPLETEINVALID DRIVE NAME (USE A, B, .., OR P)SELECT ERROR ON DRIVE : (PLEASE USE OTHER DRIVE NAME)NO SOURCE FILE ON DISKSOURCE FILE INCOMPLETE >2i7 2i7 TRYIF!CCOPYDSIE!STACKD!rCRLFQKF!VRSMSGIF!yCONOUTAKF!OCOPY10&JF!SRCMSG]NE!cCONIOJF REBOOT*RF MAXDRVF!|SRCDRVF!hCOPY20VJF!DSTMSGKF!}DSTDRVJF!SETMSGJF!BPRTDRVXFRT50ME!-RDSECF!TXFRT20LF SECLENLF!pXFRT62F $MAXSECF!XFRT60F!SCYLNOF!?WDMAADNF FDCTRKF!XFRT30F!XFRT70F!4WRTSECF!XFRT40F!XFRT42}MF!)VERBUFF!PKF!WAIT10F!WAIT20 =AA:U:A:R:A:S:2U:͵DVDlD*N:##:V:2Q:G: ~BBw# B # B w#B:P:!;~ @Bw#6B~C:7>fBxBBDOx=y‡B[A@2:~Cx tB :BD{B !(, W6<2:,͢/͚6*"1!y,:] ʢ\ͷ2p7X%2p7zt:v8 ON DRIVE : (PLEASE USE OTHER DRIVE NAME)NO SOURCE FILE ON DISKSOURCE FILE INCOMPLETE >2i7 2i7 ., OR P)SELECT ERROR ON DRIVE : (PLEASE USE OTHER DRIVE NAME)NO SOURCE FILE ON DISKSOURCE FILE INCOMPLETE >2i7 2i7 KF!SETM10NF!WARMSGF!;PRTLIN LF!lRDYMSGD BDOSF!COPY40NE!RESETF!PROMSGE!TRACEE!CYLNOF!COPY80LF!-XFRTRKKF!COP130mMF!VERTRKF!COP140F!KPRTTRKQF VDMAADMF!VERT30MF!VERT80:RF!;VERSECF!VERT40F!VERT42}NF TRKLENF!#VERT50F RDSCMDF!$RDSTABF!@SECCOMF WTSCMDF!5WTSTABF!FVRSTABF!COMANDPF!DMAINIE!^F FDDSIDF!SIDS10F!RESD10C DMAF SELOFFF!5JPBIOSF STTOFFE!lCONINF!!EOLMSGF NODRVSD TRUEE FALSE|QF FDCINDlQF FDCTR0F FDCCRCF FDCSEEF F   DCHLDF FDCPRTF DNRMSKF 4HDSCMDF THSICMDF tHSOCMDF RDACMDF RDTCMDF WTTCMDD FDD0F FDDCONF 'MAXCYLF!~VERDRVRcT\ER!+8!HoRͷZ#SKR)\͝2*SKR>ÄR:)8]T+++ Tz\T~mTöT+~G+++ʱTxT~T~T~Tz!ET++++~TTDMz!ET!ET2q2%87 ҏU U> TʮU:DqU/U:%ʾU4UU@U:!6T̀ NU:%pU>^TʮU@TʮÙ UUV!ʍU;U*Dq##"DiW:W:iWW,Y> ʦVTEWsW ÄW:÷W:iWbMW WW,YWW#:pW@+> O;U*DqzB"Dq5q:9q͏NwXX6Y:GqGXw#X:Fqw[ 5qRN:>ULW͚NvXW2[E*q#͊^b(E*q#͊^]B(E:q_*q-(͊^:$q(*_8| ^>+'p(*29*c8/e."a8:6!28'~#^>B( E:Lq1^>B($E=^>%B("E:)S^>0B((E0(`^g^+|g^xʊ^`i`^~`+bMͩʏ`+ͪ`:%8!+8a`~ae*+q~ae``ka`"+q_ḾRö`*+q####:%8=\ͱ2 ]`ie*-qe!":8:G8/!+U)] a``!A85ͷZ:t!6=a>\:+8] àZ:+!E8\)*-q++++~a:%8!+8`Za:{!6]àZ*-q~2q:qW!ER! 45ʧRYTÑR=6++++!ERR! ~ʷRYT!ERRRRNVSmV#N S͆\[9TRzbg 整9TMTzWbN͆\bN:,8=,S>]! BS~wSS MS~SS_SVSMT0T1SRN:q!EmV MT!E$TzS qaU> &™U>~ʯU!Gqw#: qU*Bq"Dq*@q*>q: qUɯ2 qz2%q*DqzB"&q:Gq2(q!6! qF6TOx2 qy*Dq V*Dq++"Dq͟MM/V͚NͷMEVxbV+~  2V#xbV+~ # +HV>M#1qbNz2:q>29q2=qvX.MXq XzX:qX::qq#NX?q#NXX>2Gq!;q4aXa o  }!;qзXz!=qد2;qz2?ͫYiW͉Y\:+ƒ[:T8!W8ʡ[:A8ʃ[2O8e)(]"> Jì\[[!t1[:'8W" [||g}oqPY!r8!pg2`iq\q\PY!r8![ \=+\͚NH\DMRNb\ԥ\g2cTԥ\K\r:EW |\|\#Nʋ\҆\i\7 (Iz :^8:\8W(O*29:I=G:&^:+:6^_{!6z^!6w# ^^6+i,ä^> ^w#^6 i,z2]8>2^8{!6,__2q26a͸'P0*6ͷ2982/8;'! aNbbÔd!Iq6298-'b!Q845%brg!#45'b>Nb- ~:O8/!Iq!:8O2=8bcgG1cxGܔdlb!qJxkF ܔd!A85bhʔd$T $T#NR͆\ SmV#NSZ9TMTR:q!E$TåS9ToS #T#NS$TZRS͆\ T$T $T WbNMT!ET$TbN0TbS:)8 2Fq!"DqU:I_*29::q`WìVTEW:Gq! qW:;qVV{=VyWO VVw# Vxg{_zWy8O:;q2;q">q"@q*Dq"Bq*>q!;q5'XbMVWʴW ʮW~W ʙW ¦VÐW+2 q:pW W:pWW:iWW 2FqiW:9q29q#,YʐW:`i{=ʴY~ʴY#ͫYw#͢ÑY!Gq!6:iWlY:':(7XZ9vYLHYPLYMTYMBYHMlYFMlYPClYPOlYSRlYUJlYBPlYCWlYPAkYCPlYPNkYOPkYHEkYFOkYIGkYPFYOJYIJYLMYLSYRMYCSYDMYSVYAVYRPYDFYRVYFIY!a1q͟MM%gZM"YkZ] †\::,8 ]ͥ\ ~q!E\:E ]!E/\W:Eq_\ \Gͱ2Oxͱ2!)8/<ͱ22qog))r DM!r [}:)3]>!6FO:28A] *_8|L]:7!s8O!\ #~ g] _]:I'}]'!N6s(,Yʡ]B('*- :<8gDLTi_&ͷ?!_B~g2<8:7_̀ _¦_¤_ £_¢_" !A85_MÈEM`ÈEMͣ`mP_ͣM #!EM`#Mͩ*` `͊L`M͵#+͓B`#!A85TMm`͏`ÈE:I=ebM ʕa͊+bM͵2Q8_Mڲb͝ ܔd1c:6”d~ ܔdE*+q~###b~bw+w+w###rkҵb 1c!qͱf!qgM cMc#͙c!Mq4cF*"q+""qg*q-!c!ę!"Lq"Q8:Lq:67:q=ȷ%cͭćhYc!28~6(!A85:)=mc=cc!645ʂc͔d> kF> kFTMb   Mڤc›c+ J5\w#ͣ…cÈE͈EQ\xc:6!6w(Ը'͞ c[=ćRaeÝ2Ը'͞ c)\*S] c[́Rac\g?<:q%cM`F@d*+q~~wÑd_M͕aO͎d!q~y@d4 :Lq!Mq~Td5!qͱf!qg> kFͱf:qg_MͩM͓TMm`2a:6qRNz>q >#N>6qf6#w#w#w/}))q~wwf~~wwffͽff>(&>2WDM9gaz&͈E2n8g!qf_M&2!]N͈E"g[ RN{pg{\gTg|kg!kg͏N:Vq{jʲizj>ʽi{ͯʶi2Xqzͯ>G!Qq~p#wzͷxiO#~q#wz2\q*Oqi#"Zq!Uq4+xq>͏N=j: q͟MMw2 q&q͟MMW&j6.M2njEjͅjWͯ,j͊7+͈E:)=_&>kF> kFMj&*6"OqErkTM:Nq͚Nq#N7b*aA6*aA#"aA!"aA*aA |!$*aAT 6!@*aA~!$*aAT w!$*aAT 6!$*aAT 6!"cA*cA |!$*aAT *cA6N*cA#"cAx!"cA*cA |!$*aAT *cA6*cA#"cAë!"cA*cA | !$*aAT *cA6!kA6:kAªR)>?!A>' ^"!nA"vA!tA!nAn&}2iA:iAog> o͂|…!kA6@!xA͑R~>?!-A>  ^"2gAgo"aA*aA |:gACR!]%Y !7A>͓ ^"!"cA*cA++|9!"eA*eA |:aA!$*eAT w:cA!$*eAT * Om<5χmX<χ̏`%cEzf*+q:!q¨d: q Ұd~~w++++~~w>2Iq%cd:Lq!"q$"qͷMMd͙d#qÏNTed!""q[cz:60eTM*"q͈h҈EbM-e+͝-e#!"qqe͈EQ\> g:"> lb*"q͈h> kFGe*"q:"le{_ÎezʂeZe& 7 [e{t!"Oq:PqbM:OqbM7!Oqq:*+q~nDMN~%7ȯ͊ O !!"q#2*"q*6/E+$%ͪg͔d*6""q>kF 7> GJgOͯĠ2!"qyq́hͪg>2Iq2Nq͔hohhQ\oh*Zq*6/"]q+|ch͠k:!jQ\%cjQ\9h͈E2Q8*"q*6Èh*6*"Mʕjʕj+͈ETMbMڹjʜjQ\µj͕aÜj+ͿjE_M͙ zjͯ+6 -:RqG:]q!gq64j!TqjwO k!_q4 k<552hqx!Tq2iqq.MbM`kk&!Rq5_k͵:gqBk!Tq5Qk!hq5Qk!iq5Qk=<kckTMk:]q͈E!]qnk~G~w&xk>OxG*cA#"cA!$*aAT 6!"cA*cA |O!$*aAT *cA6*cA#"cA"!%*aAT 6!"cA*cA |!%*aAT *cA6N*cA#"cAf!"cA*cA |!%*aAT *cA6*cA#"cAÙ!"cA*cA |!%*aAT *cA6*cA#"cA*aA#"aAw*eA#"eA!%"A:aA2A:cA2A!@"A!zA͸2gA*cA#"cAþ*aA#"aAÇ:gAiRf>?!8A> ^"ÅR>?!MA> ^":iAog>o͂|§!lA6!kA6@ò!lA64)$͆C.͆2͆2 ͆Cͼ;!$>]: : ;>2!9DM_###^#6~4#+Ҏ ##o` $~`i#N # ʆ y #l #{> ҆ #~wN f  £ BZ!9 ʹ ~#& é > & ¹ &9 x2_ y 2` "L r ͏N!Qq  4ih> 2Yq:Uq:Xqi!9"74i!Yq5i*Vq"Zq*q"q*q"qnjͅj Fi͕a7͊7Ti>+w#_͛iW*Oq͟g*6*Oqti#͈hҔi:Vq”i"Vq"R">?!@> ^"!"aA*aA |I!%*aA6N*aA#"aA(!"aA*aA |p!%*aA6*aA#"aAO!"aA*aA |!%*aA6*aA#"aAv!%6!"aA*aA |!%*aA6N*aA#"aAâ!"aA*aA |!%*aA6*aA#"aA!"aA*aA |!%!"aA*aAC |*!=*aA6N*aA#"aA !lA6@!mA6:lA@µ!jA6:jARe>?!@> ^"!oA"rA!pA!oA>!@>!@>5 !oA!oAn&}2hA:hAog>o͂|:hAog>Ao͂}2hA:hAog++|:hA/!jA6@!mA6@!jA6@A:mA­>2 :O<22!>](: =2  * ~>2 :>]: =2  : >= !P2 G( +| >2 2 ^#V#N#F>2͆2G>(!wʹ>]: !˖(~͆C*w>N#F#::A  G:_ =ډx2` "L r !b F6!N ~#2 x=2e y >E& :e +K -/2c G Q ҽ ³ ʷ Z G ä . G Q Z G e E! G + G - G Q ҉GG    Q  xGGGG  GyO0 ‰G ! :^ B Z 3 y2b N ~#z0 0_!^ ~r 4_!N sÉ “ :N ʓ !b 5!e 4ʉ:` G:_ ʡ !c 2a G:b <2^ = ‰:N ‰>2d & !_ 5 :` !b <_!N >w w>+ !a ~5>.3O:$y0!9G,~#'y3O:$BÃͶK{Sj& *$*$͂#͂> ܾ> ܾͶ> {=>'ľ!9ʥ=~#'ž{>'̾;É{=>'ľ{>b̾*$++|2QB!OBɯ>>2\B"]B"_B`i"aB!9"cB!RBB ~#B;"!$"C!" C!C:$*B~ <*$#"$*B~ P!$6#6:$*B~ r*$#"$!$6#6*B~ *$#"$!$#!$6#6*$*$#͂|!$"C!"C!C!$6"C!9"C!C! 9^"C~# *"C^#V|*"C6:MC *$#"$:MC !!$6#6:MC""*^#V#"^#V/;";"|@|~/;yapA =.:;<>[]$y *b ͏Ûb$͏b1ڽ o&))))\xH  #w ͏͕*# A G͏>~=>q2*/"Mr{WF**#:O[F#s#rd`M4WFr+s{ƒ!4*+>|ʒ+}o%/~2/"@:ҡG:ҡ*p4#6Â[:͌*++"}+͒}|2"w=Â*͇#*^#V6+6++?Â%Rʂ>҂"N#F#~/q#p#w>Â%Rʂ>‚*~[!q=c>!*" s#r#w=Â* }!C6 4>2C*C!4#4#4~#N#F#y#x#:C*C!!:CҺ:C0 G:d x0 :a > !c ~* 5!a 4!^ 5-2d x!^ ^4{I I !N ~0>0]  x=y G f ¦ :$ʏ ڠ !$xf ڠ  f f º f > & ì x > f f x >f =  x!$   *B~k*B~@!B>G3!!!$!$"B!Buh!B>G3!R.!!%!%"B!Bu}*B"B!Bu!B*B^#V!$s#r*B^#V!$s#r*B^#V͉|*$͉|G!B%*B^#V}*$}G!B%:$ *B^#V}*$}G*$C ͏*$C nb2*$C !'C>L!C>*"C͚!'C*"C~#e*"C6P#6*"C~#Ÿ*"C^#V))|*"C6#6ß*"C6<#6*"C6#6*"C6#6*"C6#6*"C 6*"C^#V}o}2&C*"C^#V}!&C44*"C^#Vb: 6p4͏+ͧ8#bD#*06?4w͏bK͏8#6 D.„͏ ͧxbʄ#*p6?tw͏_bʋ͏x#6 „%#6*##^ ~?¤# xCON CON RDR PUN LST M! ~͕$<͏b1\l<$<!~[͌"1ͩ|ʡ##"6*s#r { *:w?6b*"Â*w#wÂ%@ʂͧ/qÂ%@ʂ/NÂ*~" 4#4#4%@ʂ~5;ʂW>~G~#~O?:#~:! p! y! q<><ͺɯ~#N#F#w#q#pͱ͡~h#!!@! 6?<ʣ= _!xڗFNvwxG>O>G!$q#p#6"C"C2Cx2C͡2Cͱ!C~5i =6:C6*C :$  :$> &  >2A!AH:$B !$B > J > J J 2A!A!Aï ^ ^#Vʈ x ͯ ] #F҂ #N#r+s#^#V++r+s~] 5] 5^ q#p] O 4~ _ s#r#s#r#q!  $  Format Overflow*$-&$!A !B%:$$*B^#V}$!B%^#V"B!$"B*B"B!B2B!BH^#V"B:$W:$*B*B5!B6:B }Ͱo^ï!B*B*B5!$6!B:$ʬ*B6É2B:B!$"B!"B!B!$6#6!B6 :$!B^#V"B!$"C*B"C!} >2&C*"C^#V}7*$C~#7*$C6#6*"C"?C*$C";C*$C"=C!5C͛*"C^#V|t*"C"IC!"KC!AC^#V^#VͲ":$ڒ!2$O!$¡6æ +~#w!$ s#r!$4j"ɿ$ I/O Stack Overflow:$!$"RC!NCͫ!MC6:$2MC!$ <͏!b# 1͏#x=G ͏>ɯ*+>^#VF#{#z>6#6F r+s!TCF#~ڝ!TC6P  " "!UC^r+s6 #6 !UC4^N*|}=ºmO>~>N*|Y=y"DÂ%@ʂ~W>Dʂ*~,>Â5Â*!*~!/2*|Y(^#V[[{zlz2zʛ:ͧqÖN#v*|*~=!:wí>%@ʂ|}ʂ~> ҂<Â%@ʂ|*< ͮC6*C:CO*C:C'y OB:Cº*Cw# <:C\*C!\@*C"C:C/g.>Gx|g}ovȇÃ)Éyw# ÏF#"Cxͮ*C!9G_>WObk++~+y~#/#*D>=^#V#d { >: ҅ >?!   >=^#V|º }ڱ .))i! #F>Av > # ~ >.{ ~ { = ^#V# File: Traceback:!earch, V8/1/80 !"D"D" D2:%2$* D N#"Dq#p##}o"D*}o|T#L$D$+w+w+r+s4w#w#s#r<2D++*Ds#r"D*D#"D*DDM!Dx~!$#~+!$+F+Nq#p*D+"D$$=#!+~O~#~G!>w!/x#y$ >O6# #Wڷ4z{:##^#V# ##s#rs#r#s#r+++~sw#r####}*D}|Ү*{zҮ+F+N+V+5^{ڴ{zҴ}|Ҵ{ʎڎi`~sw#r##q#p i`N#F#^#V~Ҵq4#p+i`##s#rD$D$ FREE Request Out-of-Range$ Free Space Overwrite$GKMbk !%!/!:!G!T!d! ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!:%~ڱ!!D$ Condition Stack Overflow$4Ox!C w#s#r#s#r!9!;% s#r!:%N!C +++++!#{"#z #=ɯ ~#foÐ#!D~#A$*D͇#)$b$D$t$  Insufficient Memory$ Invalid I/O List End of Execution$$F N N#F ^#V"8%y27%x(i&""_3x?>b!${#z*$*$^"xyxn_! ^#V >(y>)|ʣ͵͊ |ʯ͵ / )$>,> _" " "0:|} d"++~!++!:%5!~# ""!:%N!C +++++2"#~#V"+{Q"#zV"++~2"#^#V=!$~Ͳ"5:$_!$^#V"$$.~# „"*$)))))$ )| ™"*$|}*[%"$:$*$$w# ¿"![%{ " "64#Copyright (c) 1980 Digital ResSYSINSYSPRINT(C) 1981 TeleVideo Systems Incorporated    ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz   TELEVIDEO SYSTEM FORMAT V2.0Drive?(A or B. ESC to a   bort.)Press RETURN when ready.(ESC to abort.)formatting.Formatting Completed.Formatting Error(s).rAvAhAAAAAAAAA$AA Invalid Format ItemD2\3ͯ$:8§lͽ9?o$ólͽ9EoSo&lqllol8l282O8:+26:6+).m:t8m3\!2l͂lq!eÂ5m&Nm5mm!D9K*D9yLlq$!L9xMͲL6LyhL6L!"o8!L9xJ*J9͈EdKcm6LͿl:7,ͯ$i$9͑0̀ ķ?!9"7!8Ûo!\< _7?o#Bpp #&ppWppѷ p 8pWp# 2p2p7 Mp+Wp GpGp7ɮ`p jpˆpAډpG[҄p:?7ʄpxxQB\B]B_BaBcB Stream/Record Sequen/Direct Input/Output Keyed Access P< $conBB$BeBsBBBBBBB BBBBB BC&:7:7,Ám9åm9>2A7G*7|!:Œo:7uoͯ$:6m!9L$:T82V8&$\!N6m,l2l3$q$*+2*6"g8"!8*g8!L$#+w#W$~OnuncnFnncnǴcnxGxL$}!++)ͽ :a$": nկ {nnɮʺpʪpȮ>ʸp~͗o>Ҩp~>ɛ)ʺpʪpȮ>ʸp~͗o>Ҩp~>ɛ)$T $T#NR͆\ SmV#NSZ9TMTR:q!E$TåS9ToS #T#NS$TZRS͆\ T$T $T WbNMT!ET$TbN0TbS:)827lqNl:\2l:lqͬn.“n#ͬn ʨń7nʿn ¬nn¸n>  n~n#.:*? п́#~+:n~n@##|7ͯ$:7ėooi$:'o:7Đo:oi$:͑0̀ ķ&:7*oi$.lEoÑ0ͽ0l!d6q$ͽ*lio!eo#~Âq$ͷ&*:9*L9/!)kT+++ Tz\T~mTöT+~G+++ʱTxT~T~T~Tz!ET++++~TTDMz!ET!ET2q2%87 ҏU U> TʮU:DqU/U:%ʾU4UU@U:!6T̀ NU:%pU>^TʮU@TʮÙ UUV!ʍU;U*Dq##"D   qaU> &™U>~ʯU!Gqw#: qU*Bq"Dq*@q*>q: qUɯ2 qz2%q*DqzB"&q:Gq2(q!6! qF6TOx2 qy*Dq V*Dq++"Dq͟MM/V͚NͷMEVxbV+~  2V#xbV+~ # +HV>M#1qbNz2:q>29q2=qvX.MXq XzX:qX::qq#NX?q#NXX>2Gq!;q4aXa o  }!;qзXz!=qد2;qz2?ͫYiW͉Y\:+ƒ[:T8!W8ʡ[:A8ʃ[2O8e)(]"> Jì\[[!t1[:'8W" [||g}oqPY!r8!pg2`iq\q\PY!r8![ \=+\͚NH\DMRNb\ԥ\g2cTԥ\K\r:EW |\|\#Nʋ\҆\i\7 (Iz :^8:\8W(O*29:I=G:&^:+:6^_{!6z^!6w# ^^6+i,ä^> ^w#^6 i,z2]8>2^8{!6,__2q26a͸'P0*6ͷ2982/8;'! aNbbÔd!Iq6298-'b!Q845%brg!#45'b>Nb- ~:O8/!Iq!:8O2=8bcgG1cxGܔdlb!qJxkF ܔd!A85bhʔd̏`%cEzf*+q:!q¨d: q Ұd~~w++++~~w>2Iq%cd:Lq!"q$"qͷMMd͙d#qÏNTed!""q[cz:60eTM*"q͈h҈EbM-e+͝-e#!"qqe͈EQ\> g:"> lb*"q͈h> kFGe*"q:"le{_ÎezʂeZe& 7 [e{t> 2Fq!"DqU:I_*29::q`WìVTEW:Gq! qW:;qVV{=VyWO VVw# Vxg{_zWy8O:;q2;q">q"@q*Dq"Bq*>q!;q5'XbMVWʴW ʮW~W ʙW ¦VÐW+2 q:pW W:pWW:iWW 2FqiW:9q29q#,YʐW:`i{=ʴY~ʴY#ͫYw#͢ÑY!Gq!6:iWlY:':(7XZ9vYLHYPLYMTYMBYHMlYFMlYPClYPOlYSRlYUJlYBPlYCWlYPAkYCPlYPNkYOPkYHEkYFOkYIGkYPFYOJYIJYLMYLSYRMYCSYDMYSVYAVYRPYDFYRVYFIY!a1q͟MM%gZM"YkZ] †\::,8 ]ͥ\ ~q!E\:E ]!E/\W:Eq_\ \Gͱ2Oxͱ2!)8/<ͱ22qog))r DM!r [}:)3]>!6FO:28A] *_8|L]:7!s8O!\ #~ g] _]:I'}]'!N6s(,Yʡ]B('*- :<8gDLTi_&ͷ?!_B~g2<8:7_̀ _¦_¤_ £_¢_" !A85_MÈEM`ÈEMͣ`mP_ͣM #!EM`#Mͩ*` `͊L`M͵#+͓B`#!A85TMm`͏`ÈE:I=ebM ʕa͊+bM͵2Q8_Mڲb͝ ܔd1c:6”d~ ܔdE*+q~###b~bw+w+w###rkҵb 1c!qͱf!qgM cMc#͙c!Mq4cF*"q+""qg*q-!c!ę!"Lq"Q8:Lq:67:q=ȷ%cͭćhYc!28~6(!A85:)=mc=cc!645ʂc͔d> kF> kFTMbeͰeZe2Lq2«e*6͈hte*6͈hZe 7ȷ{!5B~eo&" q*+q~e++++e~`e"+qDM#`_.MfÈE!")q* qU|f{bM+Bf͝#!)qq#:!q?ff+zf+͈EMGfͽfܝ2~###f6?\ͳf?\͋f!qwiW:W:iWW,Y> ʦVTEWsW ÄW:÷W:iWbMW WW,YWW#:pW@+> O;U*DqzB"Dq5q:9q͏NwXX6Y:GqGXw#X:Fqw[ 5qRN:>ULW͚NvXW2[E*q#͊^b(E*q#͊^]B(E:q_*q-(͊^:$q(*_8| ^>+'p(*29*c8/e."a8:6!28'~#^>B( E:Lq1^>B($E=^>%B("E:)S^>0B((E0(`^g^+|g^xʊ^`i`^~`+bMͩʏ`+ͪ`:%8!+8a`~ae*+q~ae``ka`"+q_ḾRö`*+q####:%8=\ͱ2 ]`ie*-qe!":8:G8/!+U)] a``!A85ͷZ:t!6=a>\:+8] àZ:+!E8\)*-q++++~a:%8!+8`Za:{!6]àZ*-q~Mڤc›c+ J5\w#ͣ…cÈE͈EQ\xc:6!6w(Ը'͞ c[=ćRaeÝ2Ը'͞ c)\*S] c[́Rac\g?<:q%cM`F@d*+q~~wÑd_M͕aO͎d!q~y@d4 :Lq!Mq~Td5!qͱf!qg> kFͱf:qg_MͩM͓TMm`2a:6qRNz>q >#N>6qf6#w#w#w/}))q~wwf~~wwffͽff>(&>2WDM9gaz&͈E2n8g!qf_M&2!]N͈E"g[ RN{pg{\gTg|kg!kgkF 7> GJgOͯĠ2!"qyq́hͪg>2Iq2Nq͔hohhQ\oh*Zq*6/"]q+|ch͠k:!jQ\%cjQ\9h͈E2Q8*"q*6Èh*6*"Mʕjʕj+͈ETMbMڹjʜjQ\µj͕aÜj+ͿjE_M͙ zjͯ+6 -:RqG:]q!gq64j!TqjwO k!_q4 k<552hqx!Tq2iqq.MbM`kk&!Rq5_k͵:gqBk!Tq5Qk!hq5Qk!iq5Qk=<kckTMk:]q͈E!]qnk~G~w&xk>OxG&:7:7,Ám9åm9>2A7G*7|!:Œo:7uoͯ$:6m!9L$:T82V8&$\!N6m,l2l3$q$*+2*6"g8"!8*g8!L$#+w#W$~OnuncnFnncnǴcnxGxL$}!++)ͽ :a$": nկ {nnɮʺpʪpȮ>ʸp~͗o>Ҩp~>ɛ)ʺpʪpȮ>ʸp~͗o>Ҩp~>ɛ)qzʑh7?{xgTM*OqzhbM͊7ʽh+sjh~w#͟gÚh͈E*Oq*6"Oq/ErkTM&q>͏N!Qq  4ih> 2Yq:Uq:Xqi!9"74i!Yq5i*Vq"Zq*q"q*q"qnjͅj Fi͕a7͊7Ti>+w#_͛iW*Oq͟g*6*Oqti#͈hҔi:Vq”i"VqkͳIrk:$/!Nq:Rq!!]q3 o8lmÿljlÏlàmÙmomìoB $% ? (Y/N): EDIT?  SAVING  BAKo>27lqNl:\2l:lqͬn.“n#ͬn ʨń7nʿn ¬nn¸n>  n~n#.:*? п́#~+:n~n@##|7ͯ$:7ėooi$:'o:7Đo:oi$:͑0̀ ķ&:7*oi$.lEoÑ0ͽ0l!d6q$ͽ*lio!eo#~Âq$ͷ&*:9*L9/!)k+q>͏N:Vq{jʲizj>ʽi{ͯʶi2Xqzͯ>G!Qq~p#wzͷxiO#~q#wz2\q*Oqi#"Zq!Uq4+xq>͏N=j: q͟MMw2 q&q͟MMW&j6.M2njEjͅjWͯ,j͊7+͈E:)=_&>kF> kFMj&*6"OqErkTM:Nq͚Nq#N7b2\3ͯ$:8§lͽ9?o$ólͽ9EoSo&lqllol8l282O8:+26:6+).m:t8m3\!2l͂lq!eÂ5m&Nm5mm!D9K*D9yLlq$!L9xMͲL6LyhL6L!"o8!L9xJ*J9͈EdKcm6LͿl:7,ͯ$i$9͑0̀ ķ?!9"7!8Ûo!\< _7?o#Bpp #&ppWppѷ p 8pWp# 2p2p7 Mp+Wp GpGp7ɮ`p jpˆpAډpG[҄p:?7ʄpxx                                                                                   !   !   "   "   #   #   $   $   %   %   &   &   '   '