IMD 1.17: 17/07/2009 17:11:14 Televideo TS802H CP/M Ver2.3 Rev F    #͘*~ "ڷ"͌#>?͌͘ =_.:;<> 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&)|+!<ͧF"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 USERF!yO#< Ty#O 3ۯ21y_͸2y2ͽ:ط˜1͘A͌>>͌92^ :߷¥.!_~#fow]ݭގޥ!v"!çREAD ERRORçNO FILE^:߷ÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Y޸psp2mÆÆ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>`~2߯2\!!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~͔͔# # 1A^@<2@!:@NML:@K>J> OO(HO %O! $!@~(4+4~ w++4!@w##6<#w>!@:@:@8x>@ !@4~%86++4~>@(>@!@~(>4!@4>= Gx xm<؊χ$͝ o$ {     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*>2Ӏ:(!!!"]>22!"!"!"2:OyO͛>OO ɯ2?2R2S>2A>12Rͫ͛!"]>,2(!"ͩ͝*]"]!L4:= %b#"G>=n(!!:͝4:!ͳ:!ͳ!͝:!O O2:MA!w[N!r:P_!~!͝!wq> I2z!"x:}2~>2}O(ͽ:~2}!Yͩ͝:S 2Ry2I8!! ~O!  ^#V~2~<2HCJy2LC]`i:I>Я2T>2>(! +|>= 2YG 2D2Y>= CS">22Y :  x̢G 2D2Y*[K( *[K>2>2:MA2e!J͝!͝:@ !/!4͝4!:Yͳ!͝>N#F#!!  2.2 10Mb Winchester hard disk Bios Error: Boot Failure -- Hit any key to retry. Bios Error: Restore Failure -- Hit any key to retry, Ctl-C to abort. Bios Error on : Track = 9999, Sector = 99 WDC status = 'H, WDC error = .H FDC st2>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( ( EYP>##>G:G =>""$$((y!7(y %(y EYPEYP%7:G_!4#G(!("{ #W(>!x(8#W(y!~(8w!:>#G>~#W:([2Z>2\l:I>Я2[y2\ !HT:T(2=2T:I!U %*V :L!X 4N: 6!V42Z2T<2Z2Y:L2Q!RF(7:I!M *N :Q!P(@:S(=:Y(2R>2:Y:I2M*J"N:Q2P:Z3:Y ӯ2S:Lg>o_*]:[ >2S!>Gy>y >y>y!^}> >$(>2>2Gs1*N#"N!ͤ˜F͡`˜͡` 3͡$ ,͡)8%Ԫ( ~1԰(~286ͣ8 6ͣ ͣ{M6#~'w#~+#~+  (0!'+'###'+'!'+'+'+':!7w+7watus = H Bios Error: Drive Not Ready. ReadWriteRestoreUnknown Check the disk in drive "", and close the door. H/-# L L" Lff,fr2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{þÆznÛë ÒÛÛÛÛÛ9MÛÛÛÛÛÛÿW(C) 1983, TELEVIDEO SYSTEMS INC.12:B2!P|G^_(!>2w!;"!J"!Y"!͝[i _^#V>>> >02}>2g:}O_Z{ Ͳ>>OO :=2 >2YO(!_H!w~ Z*N>[2z"xGN|M}L:PK>JO@@!w w#!͔+| (:"I2J2|:@ ! ͝:a@(E!͝:} ( 0((!B !/!4:\ :Yª2S=:Yʮê[JR:MO! ~'=G'=N>!>!2@"E!6#~6:A !d+| :P8m:A2A:P<2B*E> 2C :N:B:@0 :Y!C5(!~( (*E>>Ͷ:A˗2A:Po:N( !7w+7w!7w+7w+7w+w2~0~0O:=22PO))|8g|͋d͋ ͋͋ɯB< 0w#~#O  w#w 007 TELEVIDEO SYSTEM TS-802H V2.3 61k CP/M Vers.h/@g@g@?k@@@H?ʼ290ů29 Ø:9z0 : ON0yV0y ^0y@k0:9=29:9<29:9:q7~%:9#~>%!ɷͰ+"   r3##^#V(5ʨ3ʨ36+ Ý36++*9*9!3/"9"9295375-̈́5. 3Ud. { ʎ3;ʎ3,Ĥ-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 {m<_χm<_χm<χm<_χ##^#V64#"9~(wͰ+"9A. ,ʽ2w+295*9*9#s#r*9P,!7< Ͱ+6+6"9+d. { ʎ3;ʎ3,Ĥ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"ʎ1      =!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>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q*STAT COM)SYSGEN COM DUMP COMDUMP ASM!BIOS ASM` !"#$%CBIOS ASME&'()*DEBLOCK ASMP+,-./FIXDISK COM 0#!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$1y{0!B0}y|zx0y0{00 TOD COM 1COPYFILECOM+234FORMAT COM56789:;<FORMAT COM=>HFORMAT COM?@SCANDUP COM]ABCDEFPARK32H COM G,COPYRIGHT (C) DIGITAL RESEARCH, 1979 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<2MOVCPM COMPPIP COM: SUBMIT COM XSUB COM ED COM4 ASM COM@DDT COM&LOAD COM    !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&)|+!<ͧF"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 USERF!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   I|46;@RWF 00k CP/M vers 2.2 1>>~!T]6 b:22!3û1@4;,R|*":ڲ!4<2”>2!"2!"28!"9:O  ! HI DIA!$$$ $" "$D ! $"  $AB " BDD $$D!"DI$!$BH!"IB I$"D HD" " $"! @H !BI " I  $I$I$DI$ !I$@"$"$! $I$I HHA$   (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 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*:wn&6!y2! ~2`i))))!qy2i`"`i#z n&Y!~w !w ͷ:>ƒyxzÈӉxӊʈͷʪ°ڪ°ð j>:yۉ:{ۋ:xۈ~O#0o@$@B B HH II$@DI ABI$"$H$H@$$I! H*  $H@@A I $D!!$I"BI"I"@$BIIH$$$$BBI$@BI!"$$@@ ! !! D  000000000000000000000027 :1009D0000000000000000000000000000000000017 :1009E0000000000000000000000000000000000007 :1009F000000 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'Ͳ:!\͢  :͈'! ):B  " *)*)Q;*"E :;:A  2A QÓQÜQ*C }/_|/*W}_*"}o|g":ʑ*C 6:ʑw:2E* *E }DQ>27o7M.UoFmUoF4 ?     A DI$@ A$@$$@H! "!$$" @B$!!!DH$$"H @@BHH  !$$A"D@ "A" "BHA " !$ D B I $ !$$ H@BD D$6L2x!xJ"w*yu~2(*yu##~$(!x2r:r2(*yu"w!xL*yu~2uw*yu6:uw^(C):uw):uwog+++|(*rV6*rB6*yu###w#w)*yu:uwog))~*rVw*r(*rV6(*rV5*yu:uwog))~*rBw*yu:uwog))^#V*yABORTED$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:> !/> 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#{   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:[ *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ͬ!\ͦ>ͦ!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!*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:!!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> *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   ' !'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\:=-!6]:ͧz2~e:~2O! 6*~& 6$>!~_z*~& w!~5Bx:yͧ*v+"vv ~_{ozg001 $$$$ SUB!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 ©=¨ͧ!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*o: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*6ͭ:}"!}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=2*">!b!ͯ >!`0ͯ !q:E:24J!46*}a!44EJ *KM^'́:‚ͯ !36'n::0:f9OY#9.3'ͳ.:020' 'ͳ'7 6'   2% ͋*-"*$$$ 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 :! *+"! 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!gq9m++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!f6!!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 *M  *!M 1m! 6!6! 6: 2Ebͽ!e:d\::eH2 H҆ͽ:e2!:d2e:!2dû :!I¬!: :H2 ҮX:h2iҐ:!ʍ:!:!H:!H,!"! 6#~ F-? >!!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*   : ;*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*FM8 *FM   Oy2F :FY5>>:!02HO> /!";u*)))*) *H& "PҘ! 6+s#ré! 6"DM!>))덑o|g =±^#V) ^#V|g}o _{ozgi`N#Fogo&o=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 $:2*o/*!My:<2=O!s Hq**DMͷ! 6: e!"*""?k*&"?*?+M ~2A :hHҏ *&"?(?:A ½8*#" ҽ*?M ~2AO *?"?ҕ!"*"*"^: 2B! g_{_z#W H = LIBX$$$$$$$LIB:*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͢:! 6F: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!Fq: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 :     á 4êü /L9ASMPRNHEX#  +6# *#"~!ͼ G:6QxJQS*!w#"! 1 !"!Y~~# …¡z!ͼ wʹ* ! w#" ! 8 !" ! zz_O4:  :6y!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 SOURCE1*" COPYRIGHT(C) 1978, DIGITAL RESEARCH !)ͼ !ͼ :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*!{͚|͚}͚͚{!$~#͚͚> ͪ> ͪ   ![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~ ͅ:|: |Ë  |*" ͩ !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>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Ͱ>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:  '<ͭ'<>V$>O$:Ğà\ÞØ`rÍÖCCMPCPIDAADADDCRDCXENDEQUHLTINRINXJMPLDALXIMODMOVMVINOPNOTORAORGORIOUTPOPPSWRALRARRETRLCRRCRSTSBBSBISETSHLSHRSTASTCSUBSUIXORXRAXRICALLENDMLDAXLHLDPCHLPUSHSHLDSPHLSTAXXCHGXTHLENDIFMACROTITLE  PF FP! ( 2/z'{ͅ>ɯo>g"k!m6ů{_zW5>)D*kOxGd !m?FDM!xGyOڂÃ)sn55)=â|g}o=î--#zg{ozg{ozg{  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ͷ@2 0 0:x0_<2! wI2 2> 2 >2ɯ22 !~@_6^4#: w~$w: 0 q: A: A͋q: a{_2  2 - !ɯ2I:  ;*:  ͭͷ ͭ͋    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  !  #! _^! ^#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"͓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. ë «   Ͷ ͐ =« 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$ 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 {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    : 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+: Y23 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*(&@ 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 "= ! 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Ͳ!_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!? 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   !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" w *) >*) w.*)DM\ -+!\6uͱ:)O! DMͱ*)#")Ù*))))))"):m w>.Yn -:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)*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!)*)) *)) 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>!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):!) 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#W   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 LE PRESENT ON DISK$!Y , <    *$A!6 # T!w $r# *`: 0 *A*! ~ ʰxkb))))_y‘BK{ͅ*!66!"80*{#z+++ # !(, 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 ; 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 ;' WbAA%krA22A8!' W!6ͼ!O,>8a{_!a'!'TELEVIDEO SYSGEN VER 2.2SOURCE DRIVE NAME (OR RETURN TO SKIP)SOURCE ON :, THEN TYPE RETURNDESTINATION DRIVE NAME (OR RETURN TO REBO!9"1W͜Q>2!͢QG}DrYQ|͏}͏#> ex͏#r* _> e> e ҉0Ë7e}} :³ʳ7_<2!~ɯ2|\\FILE DUMP VERSION 1.4$ NO INPUT FITYPE 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 GRAPHDa{__> > ~#,b|7^#V" ^#V2Z*O***{‰ͪMD*ʁÁ*!*$*'*-!">2!4:CNk>2:!4!Ns*DM͒2:   IC 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 SETUP: ;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 MBRC 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 PC ; 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 ;EA (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 RRC 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 ;    qu $-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,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 0f806; 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 same2...) ; 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 ee 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 (chters) ; 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     equ 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 logret ; 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 numberexample 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 ;clearedged 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 secsp,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  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      ;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 (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  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,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 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 fo; (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 staL 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    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 addrr 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 ;gpunch ;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 mvess 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: write ;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  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 chara     ; 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 numbebytes 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 ;allocady) 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 operatior 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 $-beplace 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 commamainder 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 $-becter 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    ********************** ; ; 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 systemret ; 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 enf ;; @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  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 a;***************************************************** ;* * ;* 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 debloc 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 se    mspt ;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  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 1sf 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 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 pjnz 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 hstw 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 ;frkdsk ;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 i    om 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 sector1*/6AHU]m|ͅDͯͫ 2 :\=_!:\w!""!ͥ#~ *"͛C|:*#" y |:*[͌S[!f͒I FIX DISK PROGRAM VER. 1.0 $ NO MORE DIRECTORY SPACE IS AVAILABLE$ READ ERROR ON DATA BLOCK: #0000 $ FIX DISK COMPLETED WITH 0000 DATA BLOCKS ERROR$ PROGRAM IS ABORTED, READ ERROR IN DIRECTORY BLOCK: #0000$ CURRENT SCANNING BLOCK: #0000$ 2i7 #>2 ͵p1031yHGC##~ ̵p10xyHGC##~ ̵pyHGC#~ ‘19SCp͵þ p#~+0:yHGC#p͵42yHGC##p06yHGC##p06********************************************** ;* * ;* 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 ; ;***************************************************** ;* >2*#"*:<_"*Kq#:(p#"*[͌Cm͌( 8 :<2Re."͓:<2!"!"6#![͒2:2:*|C!#U[!͒:_C:( [!͒mO* >>2p7X%2p7zt:v8 {=tt<2o7gk ABORTED, READ ERROR IN DIRECTORY BLOCK: #0000$ CURRENT SCANNING BLOCK: #0000$ 2i7 D WITH 0000 DATA BLOCKS ERROR$ PROGRAM IS ABORTED, READ ERROR IN DIRECTORY BLOCK: #0000$ CURRENT SCANNING BLOCK: #0000$ 2i7 yHGC :8: V:8:  * *+++~Y"Y7Y!"z!}: <2 KxAO40((60( 90(11(2003(2313~7# (+ 00~0:0O#~08 :0AO7+xy: (G! 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 >>>!>->$ !4:=6*#"KKDM*͌8!:()= ">2>2>2:!( =()>2">2|}ͫdͫ ͫͫɯB< 0w#FILE BAD%7{ $2>:22>.2>$2}&4ͽô0 ͽ ʝ+* &*&#6#͵~A S #~> P $XX/XX/XXXX$00:00:00.00$ $ $ Current date and time is: $ Usage: TOD [S>,P]month/day/year hour:minute:second $ Press any key to set time $ Invalid MONTH $ Invalid DATE $ Invalid YEAR $ Invalid HOUR $ Invalid MINUTE$     " " 2 S S}   Kt C  S 2 >2z >! 6#= [ \¸: O! 6*}#"}*r #"r ͣ*  " : <2 0Q2  S * "t *t " : O<2 ! ~*  " * #" î[   * #" *  " î*t   ! : O ]%! ` : O N= & _  C : O! 6$ ]  Ó& _  C : O! 6$ ]  ! w * [}Rn:| >\Kr Cx >2 : O"#%#  \ $$**************************************** $* * $* TELEVIDEO SYSTEMS INC. * $* COPYFILE V2.2 - 11/30/82 * $* COPYING FILE TO FLOPPY DISK * $*ND NEXT FILE, INSERT CORRECT FLOPPY.$NO DIRECTORY SPACE, $FATAL $CANNOT FIND PASS WORD FILE. $CANNOT WRITE FILE SIZE AND PASS WORD. $CANNOT READ FILE SIZE AND PASS WORD. $CANNOT FIND SOURCE FILE. $ /t (*7+͢G((eHö=27*7~#"7!,({ (t 't t't )t :j7:b8o(>c8!89G~Œw#{(p({':7˜{ *7+͢G((eHö=27*7~#"7!,({ (t 't t't )t :j7:b8o(>c8!89G~Œw#{(p({E(C) 1982 TeleVideo Systems Inc.TeleVideo Systems copyfile program 2.21Z ( S ~  S ( :] ʫ!l : ʴ: (=!_^#VS 2 2a     : ʧ# * _ :a ʧ   : ʧ_N" 2  S : O<2 ! ~o>*  " * #"  * vQ*  " * #" : 2 2g2  &       !"   0* " "r \\ *}" C}Ï&    ! 6>2 É! w 55! w O:| y'[ >2 2 : =O! 6[r Sr [}S}#~ 2 :z =2z ¨:| ¼*v "r "}>2z   & '  [ 7 & : '  :{ <2{ 870 % [ 7  COPYING FILE FROM FLOPPY DISK * $PLEASE, ENTER PASSWORD: $SOURCE FILE PASSWORD IS "$"$*** PASSWORD DOES NOT MATCH *** $PRESS RETURN WHEN FLOPPY DISK IS READY. $BACK-UP PROCEDURE(Y or N)?$FLOPPY DISK IS FULL, INSERT NEXT FLOPPY. $END OF FLOPPY DISKP/6 /:9°/x/64*9P,29*95/7(5. /*9*9*9"9"9"9 bk ů29 Ø:9 : ON0yV0y ^0y@k0:9=29:9<29:9:q7~%:9#~>%!ɷͰ+"¤>2| # (  ( !\ 2 >S2 >Z2 >02  2 S  [ S} ! ` : O …r \\ [}S S}# (  ( !  2 >S2 >Z2 >02   \\ *}"} ӏ*r "v  2 2  &      [  [  [ *r "    Ct C 2 * "t : .*r K} B8 >2 >2   \  [  !" !`  :` O   ^    &    [    [  ^       [  [  A 4 E ! w#   ͽͽ!, INSERT NEXT FLOPPY. $COPY COMPLETED.$VERIFY ERROR$NO SOURCE FILE. $NO DESTINATION FILE. $INSERT NEW FLOPPY DISK AND PRESS RETURN TO CONTINUE$ SOURCE FILE READ ERROR - 0 $ DESTINATION FILE WRITE ERROR - 0 $ DESTINATION FILE READ ERROR - 0 $CANNOT FI9A.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"ʎ1Invalid SECOND$ Current system date and time is: $ Current local date and time is: $MULTI SYS,':7˜{ *7+͢G((eHö=27*7~#"7!,({ (t 't t't )t :j7:b8o(>c8!89G~Œw#{(p({    -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~ʒ: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.EIS7 END START 32 ;16 LEVEL STATCK R VAIRIFICATION ION E$' LE ZZ START z80709A' +*HTp#6!"H*H |B!+*HTp#*H6N*H#"H!"H*H |u!+*HTp#*H6*H#"HH!"H*H |!#+*HTp#*H6*H#"H{!'+*HTp#6!"H*H |!'+*HTp#*H6*H#"Hÿ!(,*HTp#6!H!HK !H>$#!F>$#!G>$# !H7#!Hn&}2H:Hog>͑"#|ʪ!HHxͼ"w:Hog>A͑"#}2HÎ:Hog>M͑"#}2H:Hog++|:H/!H6@ô!H6@!H6@!HWH>GQ#2H!H6@Å:H¼!H6:H¹R >Q!XH>($#!H2 #Æ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#~S7+ COPYFILE.ASM - @ @ START z80709A' ZZ START z80709A' 2)R">Q!:G>($#ͮ(R>>Q!bG>$#ͮ(RZ>Q!G>($#ͮ(Rv>Q!G>1$#ͮ(R>Q!G> $#ͮ(R>Q!G> $#ͮ(R>Qͮ(!"H*H |!,*H6N*H#"H!"H*H | !,*H"H*H |0!(,*HTp#*H6N*H#"H!"H*H |c!@,*HTp#*H6*H#"H6!"H*H |!L,*HTp#*H6*H#"Hi*H#"Hô!"H*HC |!7D*H6N*H#"Hæ!H6@!H6:HsR>Q!G>-$#ͮ(!H"H!HK>$#ͮ(R'>Q!H>'$#ͮ(!H"H!HK !Hn&}2H:Hog> ͑"#|”!H6@!H R|>Q!H> $#ͮ(2Hgo"H*H |:HAR!+Q!H>$#0 ͮ(!"H*H++|7!"H*H | :H!**HTp#w:H!**HTp#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*9%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#^#VS 6*H#"H!"H*H |4!,*H6*H#"H! ,6!"H*H |`! ,*H6N*H#"H?!"H*H |!@,*H6*H#"Hf!"H*H |!L,*H6*H#"HÍ!"H*H |!**HTp#6!'G*H~!**HTp#w!+*HTp#6! !Hn&}2H!HHxͼ"f:Hog>0͑"#}2H:Hog |:Hog+|/c!H6@Rc>Qͮ(p!H6@!H6!H6:H@!H6:H!HHxͼ"!HHxͼ"!HHxͼ"R>Q!H>$#ͮ(R>Q!:H>$#ͮ(!H"w*H#"H!,"I:H2I:H2I!(G" I!H2H*H#"Hü*H#"HÅ:HgRd>Q!H>$#ͮ(ÃR>Q!H>$#ͮ(R>Qͮ(:Hog>͑"#|¶!H6!H6@!H6x{* C 2 2 C 2 - ̈́ ͂ : 4 >2 >2   `i#N # #  # #{> # #~w ^"*j C BZ!9b Y ~#I > Y &9Œ x2*y y 2*" IP <|* I x2*=#A ® A Ү G:*=#x2*" IP !+F6!*~# x=2+|>E:++ -/0" I**~2I:+PP#:I2I>Vͻ!Ib5~/o :+˜>9ͻʘ>*ͻʆ È*:I!9q#=Þ>2I<2I2I2I:I_:I**~2I:I9:I:I2Iͮ:I=O:I.&:IO:I&ͥäZ*# ȾG:I_:IO x**# Ⱦ!i#9w$G:+Gx+-[SUx+[-SX>+>-> U wx=qG^ ž:+ʇژ! +x^ژ^^ ²^> ä x¾>^ ^x>^=x! +:+"I!I =J ~# *=J~}*=J~R!7J>$#G3!!!W+!W+"KJ!IJ͚z!7J>$#G3!R.!!|+!|+"OJ!MJ͚Ï*?J"QJ!QJ͚!SJ*CJ^#V!+s#r*EJ^#V!+s#r*AJ^#Vͫ"|*"+ͫ"|G!WJ7*AJ^#V}*"+}G!YJ7:R+*A*J^#V|*J*J ͱ"*J nbD*J !J>M#^!J>$#*J"!J7#*J~#Š*J^#V)))|*J6P#6*J~#*J^#V))|*J6#6*J6<#6*J6#6*J6#6*J6#6*J 6*J^#V}͑"}(! w: 4 p$ | >͒ ͳ : ! ˖(~: 4 p C * w>: 4 ӐN#F#: : * O: 4 Ӱm< χmX<χ00* IM x2*y2*" IP ;:*!*_5GF !9~#5 * IF K2*2+2+<2*!9( e +x (Å -… >2+(2Ҟ ” ʘ ;(Å .µ (2ҵ ;(æ eʿ E(+ ( - (2#G(2 xGGG( Gy*PO:Iy2I:I8:I08:IO:I*2> &J:I2I:IO:I&ͥä:Iͮ:I•:I ~:IO:I.&ͥê:I2I:IO> &ͥê:I:I0±:IO> &:I=O:I.&:IO:I&:I2I:IO:I&ͥä:IV":I:I2Iͮ: +> >2I!IZ:+:! +:> B> BB2I!I!IM%ù^^#Vʒp͹U#Fҋ#N‹#^#r+s#^#V++r+s~U5U5^q#pUO4~ _s#r#s#r#q!M%3+ Format Overflow*5+-&J^#V}*"+}G![J7:U+6*AJ^#V}6!]J7^#V"_J!3+"eJ*_J"iJ!aJM%2mJ!kJZ^#V"rJ:N+i:P+*rJ*rJ5!tJ6:tJ ʏÁp!uJ*rJ*rJ5!+6!wJ:+ʾ*rJ6Û2tJ:tJ!3+"}J!"J!yJM%! +6#6!tJ6 :V+!J^#2J*J^#V}!J44*J^#V}1>2J*J^#V}\*J~#\*J6#6*J"J*J"J*J"J!Jͽ*J^#V|™*J"J!"J!JM%^#V^#V):5+ڷ!M%25+O!F+6 +~#w!6+ s#r!5+4ͺ(3+ I/O Stack Overflow:+!9DM_###^#6~4#++ ##o $~O #(:*#;y2+/~#z0 0!+_w!*~X4_!*s##2*G:+<2*=#:*#;–:*ʖ!+5!+4#:*G:*ʤ!+_>2+!*5°:*!+<_!*>w w>+!*~5>.G:+x0:*> :I=O:I.&:I<2Iͩê:IO:IW:IB:IBLN:I*N> &ͥê:IO:ICeD:+x> & &Õ:ICŒ& >R&Õ& >B&ͥͥê:I* I!I4!I4S+-$G:IOx**## <>Sͻ>+ͻ>-ͻ>Cͻ>Dͻ:/,.B!IN*F+!=I=O:V+y:!9G6~#'''y=O:N+LÕU{]*+|ʆj& *+* +###> > > {=>'!9ʷ=~#'°{>'Û{=>'{>b* +++|2I!Iɯ>>2I"I"I`i"I!9V"J!+"J*J"J!J4!3+"J!"J!JM%1:N+*J~ N* +#" +*J~ b! +6#6:V+*J~ „* +#" +! +6#6*J~ * +#" +! +#! +6#6* +*+##|!3+"J!"J!JM%!+6"J!9"J!J! 9^J~# !+"J!J!J6':+2J!+6:J 6* +#" +:J F! +6#6:J" " * ^#V#" ^#VT`" `" |e|~T`yaҕA =.:;<>[]y * ͇ ͱý͇$ͱ͇1 o&))))\xH  #w ! u >͒ ͳ \ :  : ͂ >2 >2 : O<2 y : 4 Ӳ: 4 >2 >2 ! u >͒ ͳ (\ : =2 * ~>2 : : 4 ӳ>͒ ͳ : =2 : >= !P: 4 ۰2 G( +| >͒ 2 2 ^#V#N#F>2 2 G>    ͱͷ* #+A+Gͱ͇:0 65p4ͱ+Z#͇f#*R6?VwͱA͇mͱZ#6 f.¦ͱ ʚ͇ʦ#*’6?Öwͱ͇ʭͱÚ#6 ¦%#6¯* ##^ ~?# ¿xCON CON RDR PUN LST M! ~ͷ$^ͱ͇1ͮ* ++" }+ʹ}|2 " ̀ͮ" 1#|##" 6* s#r / { / * : wa6„* " <š: / Ëä * w#wä Jeʤ Tqä Jeʤ TNä * ~" 4:O>G!$q#p#6!"6K"9K28Kx2;K 2A&> #%'~ >.&~ &='^#V# File: Traceback:^'e'u'''''' ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!+~('Ö* Condition Stack Overflow"Kl*o*="*!+~O~#~G!>w!/xJ*yg* >O6# A* 1*=ɯ ~#fo++)!K~#ʓ**K){**Ö**  Insufficient Memory$ Invalid I/O List End of Execution$* '"# ' '"#*\l^$^!~ ^ͱ!͇E Sͱ#2x=G/ͱ>ɯ* +`^#Vh#{#z`6#6h r+s!JF#~ڿ!J6P  ) )!J^r+s6 #6 !J4^N* |}=͏O>~>=#4#4Jeʤ ~!W!ʤ y>fä Jeʤ ~y>fʤ * ~N>ä W!ä * !*~!/2 * |{(^#V̀̀{zڎz2 zʽ: ±qøN#Ø* |*~=! : =w>Jeʤ |8K~5ʋ"!-"=X":;KX"*9K<-"Gx|g}oØ"ȇå")ë"yw# ñ"O ""#" " " > #"F#">Kx$#"*>K!%Ö*&%Ö* FREE Request Out-of-Range$ Free Space Overwrite$GKe%Mbke%2'F1'N1'N#F1'^#V"+y2+xx%i&r(ʯ%%x%>ڲ%!3+{#z*+*+ͮ(xyx%&_!N'^#Vm&&>(&yI&>)&|%&&|%&m&$4Ox!@K w#s#r#s#r!9!+ s#r!+N!@K +++++:(#{S(#zX(++~:(++!+5!~# g(c(!+N!@K +++++‚(#~#ʦ(+{¡(#zʦ(++~Â(#^#V=!5+~)5:5+_!6+^#V"3++.~# (*"+)))))N+ )| (*+|}*+" SYSINSYSPRINT(C) 1981 TeleVideo Systems Incorporated N* |'Y=y )#>~3=3>=q2 * /" oڔ{yh* * #: O}h#s#rÆ͂oVy=hr+s{¥! 4* +>|ʴ+}oJT~2 T" e: G: * p4#6ä ̀: }ʤ ~> Ҥ <ä Jeʤ |) * w=ä * )* ^#V6+6++͏$ä Jwʤ >Ҥ "N#F#~Tq#p#w>ä Jwʤ >¤ *~̀!ʓ =҅ >!* " s#r#w=ä *  }!=K6 4>2WObk++#~+#y~#/,&&> _) ) )0:&& & &&|.&}.& Y&d[& [&f&]&x &N #~&o&!@'m&*K!9{_z &{ڠ& ڴ&Ͳ&&>#&*K>=^#V#:&ô&&>: &>?&!8'm&m&>=&^#V| '}'.+:5+*3++w# )*+{ )) -)!#"+_)Copyright (c) 1980 Digital Research, v1.3 !"K"K"K2+25+*K ڞ)"Kq#p##}o"K*}o|Ҥ)*Ö*+w+w+r+s4w#w#s#r<2K++*Ks#r"K*K#"K*KDM!Kx~q*#~+q*+F+Nq#p*K+       guration option by number 512Drive?(A or B. ESC to abort.)Drive?(M or N. ESC to abort.) Insert a diskette into floppy disk drivePress RETURN when ready.(ESC to abort.)formatting.Formatting Completed.Formatting Error(s).HHHHIIKABCDEFGHIJKLI IHII$I%I3+&I(I Invalid Format ItemIIIIII Stream/RecorMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz   TELEVIDEO SYSTEM FLOPPY DISK FORMAT V3.0 1. TS-801/802 AS STAND ALONE 2. TS-801/802 AS SATELLITE USERSTATION 3. TS-802H AS STAND ALONE/SATELLITE USERSTATION 4. TS-806 5. EXITSelect system confid Sequen/Direct Input/Output Keyed Access P< $conKJOJ++JIJJJ;J> I2!">2O4!$!* oroo 2!"ͣ! "͑:<2 ,2_*#":*: a1dR!t FORMAT Complete$4><2ͽ>02OͯÆͽ> J>PÖOʯ*H>r*>"2G:N|M}L:K>JO@@!w#ot Failed -- Hit any key to retry $ * Restore Failure -- Hit any key to retry, Ctl-C to abort. $ * Drive Not Ready. $ * Write Fault. $ * Bad Block Flag Detected. $ * CRC Error in Data. $ * CRC Error in ID Field. $ * Record Not Found.  U9(!+"+!+"e,ͩ2+R4><!*> 0"͵'NK!+C"͵'!+>_w!+n& }2+:+m:+og |!g,W"+*+|—*+^#V#>og|""k,!i,̈́"+!"+*+^#V"m,*m,*+"*+*+6*+#"+!+*>G]"!o,!w!w!O))|-g$|O4O2I2J2:@X!d: f!|::|!:@ʊ!: ʘ!:ʦ!:ʴ!:!<:!T:a@Y: 0P !v ! !$ * Controller Aborted Command. (Drive not responding) $ * Track 000 Error. $ * Data Address Mark Missing. $ * Error on UNKNOWN Command. $ * Error on Restore Command. $ * Error on Read Command. $ * Error on Write Command. $ * Error on Fommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm!+"s,!q,o2+!"+:+!+:+og)))))~*+^#V |>2+:+og |!+:+og))))):+og~*+w!+#*+*+4!+4P>2+:+og |*e,:+og))))):+og)^#V"+!+#*+*+4!+4äw2+!9"1>2 >22C!$TS-802H Hard Disk FORMAT V2.1 10Mb Winchester hard disk (c) 1983 TeleVideo Systems, Inc. ** Caution: All data on the integral hard disk will be destroyed. ** Type RETURN when ready (ESC or CTRL-C to abort)$    !+*>G]"!+"w,!u,o2+!"+"+:+!+:+og)))))~ *+^#V |>2+:+og |!+:+og))))):+og~*+w*+*+~og++|!+4] >2+:+og | *e,:+og))))):+og)^#V"+*+*+~og++|g|"> )!͟:+og>)!͟!+:+og)))))> 0"͟!+:+og)))))~ ͵'͂)^#V^Z#V f}f"  Later CP/M or MP/M Version Required$*/**/{ozgͲ|g}o!\!l!3>Z!x2*="A  A  G:*="x2*"},Ϳ !*F6!)~#A x=2 * >E : *+Z -/2*͗ ͡  = >2,<2,2,͈ 2,:,_:, *)~2,:,9j :,Z :,2,Z :,=O:,͕͝:,O:,͕ Zt *¿ O:,ƒ y2,:,ʧ :,0§ :,O:,*ʡ > ͕ù :,2,:,O:,͕ :,S :,j :,z :,O:,͕͝ :,2,:,O> ͕<x< Ax" =>  DC~0#5W' <0  *,@ bx=\GI ‰:#*rڃ!*xIڃII I> Ï ¯x©>I ºIx>I=x!*:!*:*> >*-~h*-~=!->0"G3!!!^*!^*"-!-ͅe!->0"G3!R.!!*!*"-!-ͅz*-"-!-ͅ!-*-^#V!*s#r*-^#V!*s#r*-^#V!|*)*!|Gʿ!-"*-^#V}*)*}G!-":Y**-^#V}*)*}G!+4õ*+#"+w2+$!y,W!"+"+*+^#V"{,*{,*+"l*+*+~og++|b*+#"+*+#"+9*+++|R><*+> )!%!*>10"͵'*++|R><!++>10"͵'!+~#R><!\+>40"͵'W:*I!*6RI>*3>ZK* !H*Z` `  >  Z`````````nnn`nn nZ n`!n ͪ ͗ .$ ͗ ͡ $ ͪ ͗  e. Eq ͗ +> ͗ G -G ͗ ͡ "G͗ ͡ e xGGG͗ m GyOʀ "͗ q :*Ғ ͪ à y2*ʞ ~#z0 0! *_w!*~ 4_!)s""2*G:*<2*=":)"-  :) !*5!  :,C :,0 :,O> ͕M :,=O:,͕͝:,O:,͕:,2,M :,O:,͕ :,V‘ :, :,2, :,=O:,͕͝:,‹ <2, :,O:,[ :,± :,Bʻ ý :,*ʽ > ͕ :,O:,C D:* > ͕ ͕:,C ͕ >R͕͕ >2,!,E:!*%!*%> -> --2,!,!,T$ä^^#V}[ͤ@#Fv#Nv#^#r+s#^#V++r+s~@5@5^q#p@O4~ _s#r#s#r#q!T$:* Format Overflow*<*-&M*!,(!-":\*!*-^#V}!!-"^#V"-!:*"-*-"-!-T$2-!-E^#V"-:U*T:W**-}*-5!-6:- zͭl[ì!-*-*-5!*6!-:*ʩ*-6Æa2-:-!:*"-!"-!-T$!*6#6!-6 :]*!-^#V"-! *".*-".!.<!+>0"!+>0"!+>0"!+>0"!+> 0"!+>0"͵'>2+:+og |!+:+og))))):+_> !G!+>]"!+n& |!+:+og))))):+_> !+]"!+4NRV><!*<!+^#V *+*+~og>)!͟*+>o`"n`#n`$w`%w`(@@`iPY*/~X##~#foH##^#V#{_zp!T]W{_z}KBM^#V^#V)#*/!9{ozgI")²BZ!9~# ø> &9x2*y 2*"},Ϳ < *},~ *4":*G:* !* >2 *P !*5 :*!*<_!)>w w>+B !*~5>.͈ G: *x0o :*> !*~ʂ 5!*4!*5-2 *x!*^4{ ҡ !)~0>0",*)~2,:*ʿ =ʿ ":,2,>V*!, 5~/o : * >9* >**  *:,!9q#B͕ :,*,!,4!,4S+-$G:,Ox*)## 4<>S*>+*>-*>C*>D*:/,.B!,N*)# ȾqG:,_:,O x*)# ȾŒ!i#9w$G:*¶x+-Sx+-S>+>-> I",6=<6<_!9z  +60O:]*y%!9G!~#'y(O:U*7Àͳ@{H*!*|qj& *!***"#"> ܻ> ܻͳ> {=>'Ļ!9ʢ=~#'›{>'̻ͻÆ{=>'Ļ{>b̻**++|2S-!Q-ɯ>>2^-"_-"a-`i"c-!9"e-!T-- ~# E!:*" .!".!.T$:U**-~ 9**#"**-~ M!*6#6:]**-~ o**#"*!*6#6*-~ **#"*!*#!*6#6***#*#"|!:*".!".!.T$!*6".!9".!.! 9^$.~# *$.^#V|*$.   *w a2U.*S.~:U.*S.#*S.~ogw*S.4:U.:U. :U.,:U. ?:U.':*! *"f.!b.2~!a.6Ì:*2a.!*6:a. ڛ**#"*:a. «!*6#6:a.""*^#V#"^#V͹"""||~͹yaA =.6P  ( (!i.^r+s6 #6 !i.4^N*"|T}=APLLO>~``>͢N*"|ŒYL=yy…(È>~ʘ=ʘ>͢q2'*"/"${*$*"#:'O#s#rڻâr+s":&.qNg#*"|W*~W=!!T:&͢QMw4X>ͯ |} ~> < ͯ |Ž*w= *"(*^#V6+6++͖# ͯ > "N#F#~͹q#p#w> ͯ > *~!=>!*"" !}03|g}o xg.>Gx|g}o!/G!͌! r!>0! w!>-3Ã!T]))Ԍ!寕iO>`G>0 ү!<ç! DM0 > ȇ!)!yw# !~#!~#Wڹ$!:*{#z****͵'xyx$%_!U&^#Vt%%>(%yP%>)%|$ %%|%!(.44*$.^#V}>2(.*$.^#V}G*&.~#G*&.6#6*$."A.*&."=.*&."?.!7."*$.^#V|„*$."K.!"M.!C.T$^#V^#V (:<*ڢ!T$2<*O!M*±6ö +~#w!=* s#r!<*4':* I/O Stack Overflow!9"O.!O.$!9$>.:;<>[]y * "$1D o&))))\xH  a#w a*"#ʐAҐG:ʕ 6Úp4+.ʿ##*·6?ûw¦ÿ#6 .  . #*6?w{ !!4*$+>|+}oͯ͹~2 ͹": (U[G: (*pU4#6 : v*++"}+ʃ}|2""1#|(##""6*s#rp”{ ʔ*": w6*"<: ”<ʔ!"*s#r#w= * }!.6 4>2.*.!4#4#4~#N#F#y#x#:.*.!!:.ʂWA:.~G~#~O?#~! p! y! q<WObk++*"~+""y~#/"!>)ҧ" ү"=ʸ")á"ɯo>g{ozg!"T$""""" Conversion2"!"T$"""" %t%͆%Â)>,%%> _( ( (0:%%'%'%%|5%}5% `%db% b%m%d%x'%N #~%v%!G&t%*/!9{_z§%{ڧ% ڻ%͹%%>#%*/>=^#V#A%û%%>: %>?%!?&t%t%>=%^#V|&!%~T]O +~>x^#V"S.*S.6͆5N!:*"[.!"_.!W.T$GWX2V.:V.} ͣ:U.> bz Àͣ> 5P>ÆP:V.X X>G ã!*6GP>:U.!#6  %#6*"##^ ~?+# $xCON CON RDR PUN LST M!F ~$1ҏ\vl$!~ !3ª ʸ#×x=GÔ>ɯ*"+^#V#{#z6#6 r+s!h.F#~$!h"(w# *"~#*"(> *w#w ͯ .͹q ͯ ͹Ng *"~" 4#4#4ͯ ~†ͼE > ͯ ~> *"~ʳ> ͼJ *"!*~!/2&*"|(^#V{zzW2!z<* = _!x $ FNwxG>O>G!$q#p#6L ".".2.x2.(2.8!.~5 gʒ =½ :.½ *.<’ .ý *.:.O*.:.® y O :.A*.w# H:. *.!W *.".a :./g.x#}OD*/~B###~#fo #!#T$&#'#(#*#,# Free Space Exhausted##^#V#{_zW ${_zW#4zh#{ڑ###^#V# ##s#rs#r#s#r+++~sw#r####}*/}|$*{z$+F+N+V+5^{ ${z $}| ${##i`~sw#r##q#p i`N#F#^#V~ $q4#p+i`#}&.))&t%#F>A%> #,&~ >.%~ %=&^#V# File: Traceback:e&l&|&&&&&& ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!*~'&Ý) Condition Stack O*&. !*&. nb/*&. !).>Y"I!.>0"*$.!!).C"*$.~#u*$.^#V)))|u*$.6P#6*$.~#¯*$.^#V))|*$.6#6ï*$.6<#6*$.6#6*$.6#6*$.6#6*$. 6*$.^#V}!}2(.*$.^#V}   verflow$4Ox!. w#s#r#s#r!9!* s#r!*N!. +++++A'#{Z'#z_'++~A'++!*5!~# n'j'!*N!. +++++‰'#~#ʭ'+{¨'#zʭ'++~É'#^#V=!<*~ (5:<*_!=*^#V":* *.~# '*)*)))))U* )| '* *|}SYSINSYSPRINT     scan drive ?allocaS-^-_-a-c-e- Stream/Record Sequen/Direct Input/Output Keyed Access P< $con-- *-g-u------- ----- -Oy|:Oy::Oy> :Oyx(t:Ox2P7:m:Ox2Ö2Ö:ʌ:Ox2Ö>2>2"1!z:2:2z:2:2z:2:22" >:2-"!N#~:2B 7"Bm<χH0123456789ABCDEFPARK32 for TS 802H only Version 1.0 $POSITION HEADS A**"*:<**:* *w# (**{ 0( 4(!#"*f(Copyright (c) 1980 Digital Research, v1.3 !"/"/"/2*2<**!/ ڥ("/q#p##}o"/*}o|ҫ()Ý)+w+w+r+s4w#w#s#r<2 /++*/s#r"/*/#"/*/DM!/x~x)#~+x)+F+Ntion blocks are duplicated in directory1 allocation block is duplicated in directoryno allocation blocks are duplicated in directoryblockcountsectorentry filename user..--.--..dat(.).A.".#.K.M.Q.R._.f.a.1I|}!_~_!+|4 x1ɯF#  ! ">2>2͵   |1!:O>yz:Oy:Oxz:Oy:Ox>22:O>y{2>2:O>y> 2*"B:¥>22{2>2>:2(>2>2*"l:**>2>2>2>2*"l!">2́:2ͻ 3::2::2:2>2::>2*">2!@"3>:2:2>2T TRACK 32 $ $REMOVE floppy from drive and turn power OFF $m<χH0123456789ABCDEFPARK32 for TS 802H only Version 1.0 $POSITION HEADS Aq#p*/+"/s)v)=))!+~O~#~G!>w!/xQ)yn) >O6# H) 8)=ɯ ~#fo++(!/~#ʚ)*/(‚))Ý))  Insufficient Memory$ Invalid I/O List End of Execution$) '"$ ' '"$+k,e,s,w,+,,,,:*,, Invalid Format Item#/**>2>2>02*"B*">P2> :OyB!"4::Oy4:*: ʊ~:Oy# r4:Oxw# Š::Oy44:p:Oy4́ >2:G:''':Oy*}:́:2>:2 :2>2:́>2:2ͻ::2aO::2t:2Ͳ:!{_~2z:p2::2:2!z:w:2!:_~!:_qx :2                                                                                            !   !   "   "   #   #   $   $   %   %   &   &   '   '