IMD 1.11: 1/03/2006 20:24:11 CP/M 68K 1.1 Release Disk 1&2&4 -Master- (A) SF0038A SN019 3-17-83 SAGE RELOC1 SUBPIP REL PIP REL+ COPY REL COPY RELyAS68 REL !"#$AS68 REL%&'()pqrFORMAT REL *FORMAT S +,INIT REL -INIT S ./ED REL01234567ED RELk89:;<=>STAT REL?@ABCDEFSTAT RELSGHIJKLRELOC RELMNOPQRSTRELOC RELKUVWXYDUMP RELZ[\]^_`aRELOC2 SUBbCPM SYScdefghijCPM SYSklmnoAS68 RELstuvwxyzAS68 REL{|}~AS68 RELAS68 REL@AS68INIT "ASM SUBDDT RELDDT1 68KDDT1 68KDDT1 68KSR128K SYSSR128K SYSSR128K SYSSR128K SYSRELOC4 SUBAR68 RELAR68 RELJCLIB CLIB CLIB CLIB CLIB CLINK SUBLO68 RELLO68 RELLO68 RELNM68 RELNM68 RELS O  SENDC68 REL    SENDC68 RELSIZE68 RELSIZE68 RELCPM SYS| !"#$%&'WRITE O ()AR68 TMP*+,-./01AR68 TMP2AR68 TMP:NORMBIOSH NORMBIOSSUBPUTBOOT RELPUTBOOT S RELCPM SUBreloc.rel reloc.rel reloc.68k reloc pip.rel pip.68k reloc copy.rel copy.68k reloc format.rel format.68k reloc init.rel init.68k reloc ed.rel ed.68k reloc stat.rel stat.68k reloc dump.rel dump.68k `!pN#9`#9d y9d38A8C80<GQ y9dAC80<QK8M8O8IE1pNBB2//NB _ONB"//NB _ONCOPYRIGHT 1983DIGITAL RESEARCH0102821015-0901-000019ACC+I,A1pCC+I(+O<*|5GJGgBja>*&|9hCp%Iba**Gd&G<%Ka<f |G<%Ka8` G<%Ka>*jdB>*&|9hCp%Iba$G<%KzaJ*g|G<%Kaj`*CdBjG8%Kba>*jdG<%Ka0JWGj^B* *U*d.BG*,j&|83`"|9h1pWD*`j*Fd|G<%Ka8`tG<%Kza>*&|9hCp%IG9h%K<*G5FFaNuap5j>*jd>*&jCp%Ibaj"G%KvaJ*g| *gB*G%Ka*"*g *6fB*6G%Ka2ahF@*F*d|G%KaP|>*&jp` j`DNu * e*J*1c **1b*2d<BG*?NtBG*G<3pN`*N1f`t<BG*?Nt``<BG*?Nt`L<BG*?Nt`8>*j ea>*&|9hpj`<BG*?NtNu * g ja `PJ*Af ja`>j**Ae *A*`*A*GJ*c*| a` * fB*NuJ*W*HGHd| ` *<0GafNu*Ga*<GaNu| *;WGH*K*DGK*J|GJ*I|GIjIajJajKa *;f|:a| `| aNu*3d * gz*dN * gFj=J*=g, *f|<*RG*eB*| avJ*;ca&B* * fB*jaR * f|Nu *ae *zb*_*Nu *Ae *Zb* *Nu|BG*;G<3pN`|Ba>``>*je**F*dBj` jg af5ja>*&jspj`6B*<BgNt@` <BgNt<@` N1b@*dT*<d*RGJWF` * WG*d$azda<fp`H|Ba\*Gd**Bd ja`*9d ja`*Nu`d**G|B<*ڼrXܼ 2hfBG*B<ܼhp`**f*`B*pNuJ*c*SG<fp `p`~dJ*c(*BG*B<ܼrh**`fa@<fp`TJ*@c(j@a$dj@B*@*RGB*`J*>cj>adB*>|p `*Nua@*<d>*jR* ` *W Nu`*<0< b `.*<A<c| G%Ka*<A< Nuad@@aNaNuNVa@aހ.*@N^NuNVa|H=@a|nN^NuB*a@~d *:g8 *f*e|G%Kajaa@`a@a@ja@a*J*f|`B***6d *:gj *g`af@`|:aLjaBja8ja5@a@J*g*a@`aJg| G%Kaa@`NuJ*@c| BaJ*>c| BaNu*<Jg |a`aaa2G<%Kja *f|G<%KaGb%Kfa *gGb%Kja*kdd*DFdZ *Yg& *NgGh%K^a"a@a@` *Yg G%K^aaG<%Kra`a*k*lGb%KaGb%KraGb%KCL%I|aG<%Ka*c<*Gc*d<*Gd*e<*Ge*f<*Gf*j*k<*Gk*l<*Gl*mGb%Kar*.da*!B*"G%KaPNuG9h%K .*8oG%K^aazB*.*8l *d*`G9h%KP.*P |N%@TЪP%@.*P|O|5G5G *Fd2G9h%K j@ e5| 5|`$>* j5G 5G`>*j eaBjNu**|5G B* *b$BG*j &j 3pf5G`*dNu`a`G%KaG8%Kba~dzG%Ka>@Jf5j8^j7]B*`T *f>*8RG5G8JGf*7` *f>*8||5G8JGf*7`B*G%KaL`Nu**GB*B*B*B* *b\BG*B<*ڼ.J2Xg<ܼ 4hfB*`(BG*B<ܼ 4hf**GB**da*daD*dj*Fda*F*d*a G%Kja*daD5j*ej5ja5j**dab`*5*6dal`a8Fd ja`**d5j` *daNu`a| * b8BG*rpb 2 pbg * f |.Xa^jXaT*dNu*.Fdp`la|?"G%Kna *gLG8%KL*<RBݪL%jLG%K|a*!Fdp`a`pNuBjBj~d0aG8%Kba(B98G8%KnaBj *g>*оjd ja` *f.Jjf| G8%Ka*8Fda^`>*RG5GG8%KL*<RBݪL%jLGc%K|a(Gc%KC%I|aadB*nB*"*lF*?d*8FdJjf G%K^aajB*a `Nu**:f*b*faNu*+RG+*ep `BG*+B<ܼrha Nua@< gNua * gajNu`B*BG*ݾ| b B<*ܼľ4hfp` *dpNu*BG*&jp *?f|Nu|?**da`Nua<@ * W *]WƎFd*<AG߾<c" * f a@`|Ba` *Sg *Qf0*+RGa@<Wǰ< WƎFea@`La@<0@< c|`.a@<0@۰< bBG* BF*FG`BG*B<ܼ.h *f *c|Ba&jj$`a@Nu&j| %| B* *#d * fB*aj`*R&jG&jj,$B* *bBG*B<ܼ.B2h*dB*B*B*a~dB*jaFd, *d **f |a`aaP@` *:f *fN&j+<ARG<bLaJjabd *[fa*+&j| %` *f|B* * bB**RG<b&,*||B:&jڼ4X3`g *f"&jj%a|<[fa4*+`**d` *[fa `J*gj| *.f8a,@@arFd" * d> **f | a`a` *[fa*+&j|%&jB+ Nu(|/jN.m<,O(|/j$|1pG8%KC%I|a2J*WGaj|"dG%K^a&a*dG%K^aaaj@,a@@~dB*KB*JB*IB*B*BjBjB*B*B*|||||*d|*Xa^aap|+ *baa&Gb%Ka*d|Gb%Ka|a *=g *_gaDG%Ka * fh *;ga$aaN|*d$G%KC8%I|$aa`G%KCc%I|#aa`` *f8 * ;f0a>a|;Gc%KC%I|#ava` *c|Ba` *gB**d|a *,g * g|BaP *,WG* *f|;J*Af|AJ*=f|= *;U * ;RƎ*d|Ba *;gB* *;fB*~<'b*B*a*d` * ;f |a`aa*dG%Ka` j`bNuERROR: $ - $$$$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$**NO MEMORY SPACE**$COPYING -$REQUIRES CP/M-86$CP/M-68K PIP VERSION 1.0$"6Jp`v (7/31/82) CP/M-68K PIP VERS 1.0 DISK READ$DISK WRITE$VERIFY$INVALID DESTINATION$INVALID SOURCE$USER ABORTED$BAD PARAMETER$INVALID USER NUMBER$INVALID FORMAT$HEX RECORD CHECKSUM$FILE NOT FOUND$START NOT FOUND$QUIT NOT FOUND$INVALID HEX DIGIT$CLOSE FILE$UNEXPECTED END OF HEX FILE$INVALID SEPARATOR$NO DIRECTORY SPACE$INVALID FORMAT WITH SPARSE FILE$/////////000+0;0J0\0g000 =.:;,<> _[]OUTPRNLSTAXOCONAXIINPNULEOFNqNuNqNuNqNuNq _ON$$.SDSCT 1p.SINIT .SMAIN .SPLDII  .SPSCT BUFF 8ENTRYC FCB 8FCB16 8INPD 1bINPLOC 1ZMAXB 8MEMORY 9hMEMSIZE 8MON1 tMON2 tMON3 tMON4 tMON5 MON6 MON7 OUTD 1fOUTPLOC 1^PATCH1 PATCH2 PLM +TBUFF 8XDOS t`8(ZBN8`FC Runtime V01.08, Copyright(c) 1983, Digital Research1015-0901-000019 o#="h&IB[b#=E?/ N N!"NVB odpN^NuNV0/"/ NB=d0< A8("NB0<NBN^NuNVB..9hNSnX n .aZJ@ga`X Sn 9>"fa > n //98xN6BPOJ@fPBn n .aX > n /?.a\O@X > n /?.a\O@`> n /?.a\O@X Sn> n /?.a\O@Sn> n //98xN6BPOJ@f| n .a:0.SnJ@oP>X n //98xN6BPOJ@fJ.f n .a`` n ./<9vNXO`.H.f.9Na J98dg.H>.H?aVTO .am .zn.H>W`.H>W .am .zn.H?W`.H?WaTO.9NJ98dg.9N``B0|.?<NTO@ .am .zn .H|`.H|Yf`$N^NuNVHBG|b40HH@B@H@ @"|8T./.N5XOJ@f >"B@`RG`>"pNqJLN^NuNVH.9N.:N.:N.:6N.:VN.:mN.NBG0GJ(g>0G (Am0G (Zn0G(H| ` 0G(H2G@RG`.aJ@fJLN^NuNV.N.N6|oB@`D .am .zn .H|`.H@ .Am .PoB@` `.HNqN^NuNV-|:-|:-|:|.:N9>"H0@./<:NXO. H>. H?/<:N\O.]?< NTOJ.fN^NuNVJnod. N6|fT.]/<:/. N`PO .am .zn .H|`.H@ .Am .Pn.H`X0.`-y8h`-y8l`|g|gNq.:N./<:NXOaR@g.HNqN^NuNVR nJgV nH`0B98d`>8f`4B@`6 nH>/<:NXO`H |8|rW hNR`N^NuNVH3 >$. HH#>&B>*.>$?<2NTO(@ g. HH#>&.>$?<2NTO&@ gN*l-T(l-L&k-KBE|b, n "n"g.:NaXXRE``.:Na`.;Na0-R@-HRA-@ .H-@0H//.N6POlR0-HѮ9>"H`*B .S.`0B0-S@H.`"<-H .S.`J@gҰ|gذ|gNq././/. H?. H?aJL8N^NuNVH .. ,.*n.;6N :B0m(|.3 >$#>&B>*.>$?<2NTO3 >$. HH#>&#>*.>$?<2NTO3 >$B0#>&B>*.>$?<2NTOBD nPd3>$B0#>&#>*.>$?<2NTO#>&3 >$B>*.>$?<2NTO3 >$.>$?<2NTOJg BW??aXO3 >$#>&.>$?<2NTORD`R(|.3 >$#>&B>*.>$?<2NTO3 >$. HH#>&#>*.>$?<2NTOBD nPd3>$B0#>&#>*.>$?<2NTO#>&3 >$B>*.>$?<2NTO3>$#>&.>$?<2NTOJg>??apXO3 >$#>&.>$?<2NTORD`FJ98fg(|>.3 >$#>&.>$?<2NTOBD nPd3>$B0#>&#>*.>$?<2NTO#>&3 >$B>*.>$?<2NTO3 >$.>$?<2NTOJg BW??aXO3 >$#>&.>$?<2NTORD`RBD n0@@d0 |.0@H"|>.1@HAg>0H??a&XORD`>/<;MNXORE`lJL0N^NuNVHJ. f*y8p`*y8t./<;ZNXO> ?./<;`N\Oa JL N^NuNV3 >$0|.?<NTO#>&B>*.>$?<2NTOBWN`N^NuNVHN0BW/<8AN#PXO>/<8AN#PXO>/<8AN#PXO-|87 .2. HЁ @B=|*nJgJgHHм=p @gR`JgBG 2HЁ @JgN5pHHм=p @f85pHHм=p @g 5pH| `5pH" 4H҂"ARG`J5pg 2HЁ @BRG f0>NBWBg/ RN \O|g.R/<;aXXO` N2n!MRn` N2n!|.?.NTO>N`JL N^NuNV.N6>/.?<N* \O. N6>/. ?<N* \O>/<;?<N* \O>N`N^NuNV. /./<?.?./ /. nN*@>fB(n >g%H| lp0`p7@`B NqJL0N^NuNVH*n<.H n. nfzJgJEg SE``j nf&z JgJEg SE`JEf-`` n R B.<*fR. n R =|<0m4<9n. nfBnH2. A|=@ n R `B.B.<lfR. n R `<hfR. n R H`=| `=|`=|HHм=p @g(HHм=p @g H| `HR..N6<|fp`d0Hм=p @fJ.g A-H` n-PXB.|+fSn.N6<|fp``&|-f R.Sn.N6<|fp`BB.0.SnJ@o0Hм=p @g0|`0<=F n0m| nFnr n9o nAmbn0 n o 0._@=@0.nl@R.0.H//.N6PO2.HЁ-@.N6<|fp`0`N.?NTOJ.f0.`J.g .D-@J.g n `J.g ."n2` ."n2J.fRn`.N6<|fp`<sfB-|.H>/.^?a\OJ@g&0"nR.N6<|fp``.?NTO<cg nBJ.fRn`L.N6<|fp`@H@g.?NTO0.`$``H |<rW h8N`0.NqJLN^NuNVH. H>/. N5XO>J.g JGgB@`p`0NqJLN^NuNVNx>N!"N^NuNVHBG|l0м<~.NRG`JLN^NuNVH*n0-|g*.N-g .N3B@H+@+@Bm m>NNqJL N^NuNVH*n0-| |f. -<JFo >/-?N* \O>Gg mp`4-gJg-g;| `;| `Bm +mB@NqJL N^NuNVH-n.<~N6>|g| g0"nR` nB|fB`` .NqJLN^NuNVH>.*n |fp`0-g$Jg -cS0"mRm 0`pNqJL N^NuNVH*nSm m mH|R` ` .NNqJL N^NuNVH. *n Sm mH"m|R``.H?NTONqJL N^NuNVH*n-fp`-g m p`Jf&-f>N2+@fm`m-g0Hм>+@<~f9`>/-?N$\O;@ Jm n m fm0`m p`Sm +m mH|RNqJL N^NuNVH. *n BF:-fp`&-fTJfN>N2+@+@fm`2m>N0J@gm@`;| H"mR`-gA+H +@ mR-gz>/-?N* \O<Bm `n-g>< g -мb" -:>/-?N* \O<+mBm `( -:>/-?N* \O<;| +mFg mp` H|NqJL N^NuNVH>N1|*@fp`H|g>N1>N2B@`g8f2 - l>B?.N!6\O>/<8K?.N* \Og>>"/</ 2/-/ N1|g3=l3==np`H.?<NTO|f3=l3==np`>N1>N2B@NqJL N^NuNVBW?. /.a:\ONqN^NuNVBW?. /.a"\ONqN^NuNV>?. /.a\ONqN^NuNVHN2r>JGlp`>N10*@.Jnf.8A/.N7TXOJ@f 0`\`.8F/.N7TXOJ@f0`<>/.?N/\OJ@g>N23#=l3==np`0NqJL N^NuNVBBgNTON^NuNVH>N1|*@fp`d0.`4+n `> . ѭ`4>N!+@ - Ю +@`p`,`J@gȰ|gʰ|g`Jl+| -NqJL N^NuNV>B?.ab\ONqN^NuNVH>N1|*@fp`HH|gB`8.?<#NTOJ@g3=l3==np` <.gJ.o -.S.ggD>"/</ 2/-/ N1|g3=l3==np`>!/</ 2// N1|g3=l3==np`V+G -+@I2Gd gR` " Ҽ2ѭ`B` -.+@+m  -NqJL8N^NuNVBW?. /.a:\ONqN^NuNVBW?. /.a"\ONqN^NuNV>?. /.a\ONqN^NuNVHN2r>JGlp`>N10*@.Jn fJnf.8A/.N7TXOJ@f 0``.8F/.N7TXOJ@f0`f>/.?N/\OJ@g>N23=l3==np`2>B-H?N!6\OBWB-H?N!6\O0NqJL N^NuNVH*n :.H>N1|(@fp`xgB@`lg3 =l3==np`Ng./ / N(zPO`6f./ / a0PO` -EJo.,ggD>"/</ 2/,/ N1|g3=l3==np`>!/</ 2// N1|g .`)G ,-@&L2 мdDJo@<f , o)l .`6`< fRR` SRR`` , o)l .NqJL8N^NuNVH*n(n ..-G --@ -g -ggD>"/</ 2/-/ N1|g3=l3==np`>!/</ 2/./ N1|g3=l3==np`r+n "-¼Ё&@2 мdJo SR`Jf - o+m .` RB -@Jo>!/./ /./ N1H,ݮ ѭ   - o+m g .`Jf .`gB>"/</ 2/-/ N1|g3=l3==np``>!/</ 2/./ N1|g  .`(߭ - o+m G2JoS` .NqJL8N^NuNVH*n(n ..gA-H n(g.?<NTOp`> n(g&L.?<NTO n(Hf >N` n(g Am Zn H| `H n(g*  f$ n(gHH.?<NTO n(gHH.?<NTOp`~l ` <*E.?< NTO.HH̼l0| .?<NTOGJo JoSS`Jo R "ҼNqJL8N^NuNVH*n :.H>N1|(@fp`JnB@`g3 =l3==np`g>// aPO`g>// aPO`f./ / aPO`z-EBJon ,-@B ,gJgD>"/</ 2/,/ N1|g3=l3==np` ,", S¼n@>!/</ 2/./ N1|g3=l3==np`)n ,-@&L2, мd"Jo  f < g< `SR` мe2>"/</ 2/./ N1|g .`$`@Jf , o)l .``JL8N^NuNVH*n(n ..-G --@ -gd -ggD>"/</ 2/-/ N1|g3=l3==np`d -"- S¼nB>!/</ 2/./ N1|g3=l3==np``>/ 2aXO+n "-¼Ё&@2 мd JoS`Jn$@ .ѭ - o+m .`>"/</ 2/./ N1|g3=l3==np`XR -@Jo\ -l .Юo+|>"/./ /./ N1H".g3=l3==np` . . .ѭ - o+m Jf .`g>>"/</ 2/-/ N1|g3=l3==np`p@ -+@ -"- S¼n$>!/</ 2/-/ N1`>/ 2a XOG2JoS` .NqJL8N^NuNVH*n>. 0SGJ@oB`JL N^NuNVH*n.. <.-GJo,  f0| .?NTOHH.?NTOS` .NqJL N^NuNVH*n 0.(@.G -:f*HHм=p @g H|`H|TBG  o>|l8 .g2HHм=p @g H|`H"K4G@RGR` .fBRBG  o8|l2HHм=p @g H|`H"K4G@ RGR` + fp`4 nf.?<NTO.?.NTO>|nB@`pNqJL8N^NuNVH>N1|*@fB@`fB@`pNqJL N^NuNVHBG|l>aRG`JLN^NuNVH 0.*@.0.@B+|BB B-I мd ` м.dB`JL0N^NuNVH>.|e3 =l3==np`.0*@.f3 =l3==np` NqJL N^NuNVH? *n.. (n,.:.BJof.?<NTO+G.x.?NTOJ@g |o89=Bp d`BD 2HЁ` 0Hހ0H0Hր0@H` NqJL0N^NuNVH|BG|l =^f =^0`RG`3=l3==npNqJLN^NuNVH>.p2`F@H=^B@NqJLN^NuNVH>.ZGB0>RGJ=hf <=b#=h#=bBy=f(y=h*Tmb80X@me(` 2Ё&@0-G7@&(;G#=h \`=hf>a*@ fB`(M*T`JL8N^NuNVH >.|?GG0>N5<*@fB` R*@(M9G.\a 9=hNqJL0N^NuNVH *n](y=hceeebf#=h`J(T` 2-Ёf T0(m T*`* 2,Ёf 0-l(`(#=hJL0N^NuNV .]-@ n0(=@> aT-@fB`.a@ .g~0. nd=n .d&-nJng n"nRRSn``< .B2.Ё-@0.H@B@H@ѮJngSS n"nSn` .NqN^NuNVH>.HμgR*G=.N|fp`*y=߹= NqJL N^NuNV nH. g nJfB` R` .NqN^NuNVH *n(n HfJfB@`RR`HHANqJL0N^NuNVH*n(n &Mg` NqJL8N^NuNVH *n(MJgR` NqJL0N^NuNVH *n(n >.SGoHfJfB@`RR`HHANqJL0N^NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH..,. Jf#= <`Jc #=B`a,H>a"op`lp``B@NqJL0N^NuNVH. <am <zn< HNqJLN^NuCP/M-68K(tm), Version 1.1, Copyright (c) 1983, Digital Research1015-0901-000019JgNuStack Overflow$C runtimeCON:LST:8888999 9!9;9P9fAV]avNV`NVdCP/M-68K(tm), Version 1.1, Copyright 1983, Digital Research1015-0901-000019allbootfilesendEnter SOURCE drive: Enter DESTINATION drive: READ error ----> WRITE error ----> [Copy Ver 1.1 Extraneous argument ignored: %s Source and Destination must be different Copy complete Do you wish to repeat the copy? MODE FUNCTION ALL Copy the whole disk BOOT Copy the boot tracks FILES Copy the non-boot tracks END End this program Enter your copy mode: ALLBOOTFILES (^C to ABORT) RETURN to copy %s from %c to %c%c %s Undefined option: %c Incompatible disks Disk select error on Destination Disk select error on Source ***Copying Tracks*** %d %sTrack: %d Sector: %dCannot open Cannot create CDOSUXcdosux80<4%DEFOX[cdefosxLT\TTLTT\   =b!!!!"`H-`PCP/M-68K(tm), Version 1.1, Copyright (c) 1983, Digital Research1015-0901-000019 o"h&IB[b#E?/ NNNVB odpN^NuNV0/"/ NBd0< AH"NB0<NBN^NuNVJ9f>N`N2>/<bN{`XO#ưHg>N`N|~.!Nf yZfJ\m \o >N`b 9\"yƁi y,g > N`6.!Nf yZg >N` y!y\NN^NuNVJ9f>N`N2BW/<N{`XO#ưHg 9~f#HN|~`N|~ y(g>N`F yh3ô3.!NfByô yZf* y\(g yh y\#\` yZg>N`JygJyZg> N`Jyg yh y!y\ yZf yh`X yZf yh`@ yZf yh`( y,fN}3|rf yhJy0g yh@NN^NuNV>aN^NuNVByaN609j@Hмd @ 3j0.@Hмd @#Nt09DN~~NN^NuNV>aN^NuNV>a|N^NuNV39g >jaX`NN^NuNV>NuX yZg>N`BW/<N{`XO#ưHfN|~` y(g >NX yh  y(g yhwJygJyZg > N`$ y,fN}3`N``NuX yZg>N`BW/<N{`XO#ưHfN|~`& y(g y(f >NX yh.a^ y,f>N}3>NuX yZg >N`$ 9\"y3@` y1|NN^NuNV yæm.NN 9"n3@ y XRyæN^NuNVHByBNtN09DN~~BG|l BWN~RG`JygN.NNN}3g .N09j@Hмd @ NEJyXfNSNWFJLN^NuNVN6JyfNtBy0.!Nf yZg >N`XJyZg > N`DJyf6N909DN~~09H//9\NNPOѹNN^NuNVH yo>9g4*y#ðNt09DN~~#RJL N^NuNVa>aN^NuNVN6NtByN709DN~~09ѹN^NuNVH yjfJgRyX.!Nf09ZyjgJyZg >N`R 9\l >(N`8#NtN909DN~~#\N6JLN^NuNVNN^NuNVJ9f>N`N2BW/<N{`XO#ưHg >N`\JygJyZg > N`@N|~a<=@|f >N`" yh 0.H"y#@NN^NuNVH*|lBEa>|g y-f@N}3at<|f>(Np`RFn 2AHЁ @0@RG`` 2AHЁ @0@ y/g y,fN}3`v0NqJL N^NuNVHBF> yag yAf~`, ydg" yrg yDg yRgp`bN}30 <y|N}3 y9n y0lJFm|op`FJGm |n0``pNqJLN^NuNVaN6NtN709D 9309ѹN~~N^NuNVN63NtBy0.!Nf yZg >N`>JyZg > N`*N909DN~~ 9\ѹNN^NuNVNN^NuNV3.!Nf yZg >N`$JyZg > N`#\NN^NuNVByN609j@Hмd @ Nt.!Nf yZg>N` \nJ\l> N`| \f 3j` \f 3j`3j09j@Hмd @##09j09DN~~NN^NuNVNN^NuNVH09j@Hмd @ 9og3jBWBgNJTORl9kg3jBWBgNJTORhB\ByZ> NCBWNGNK~NC.rNHNK.NH~BW??9tNXO|g>/<?9tN\O|g .NNJLN^NuNVBWNG yjg yjf^.!Nf yZg > NX`Z09H//<\N4POJ\gBWBgNJTORS\``09H//9NNPOѹN^NuNVH.!Nf yZfJyZg> NX` 9\8.!Nf yf6 \m \lJyZg>NXB\ByZ0SDJ@g yf\JEf* 9\2AHҼ"ABW?9^NJTORE`( 9\2F@RFBW?9^NJTOBE`8` yfb0@Hм @0^RF>Z?9^NJTO|o00@3JGg>`>NGRG09HѹBF`,0@Hм @0\RF>?9\NJTO`t`JFg.0@E3JGg>`>NG09HѹJLN^NuNV09j@Hмd @ 3j#hBWNGN^NuNV09j@Hмd @ 3j#lBWNGN^NuNV09j@Hмd @ 3j#pBWNGN^NuNV9g& yjg yjf BWBgNJTORBWNGN^NuNV yjg yjf@ 9-@By>NGJoBWBgNJTORS``#BWNGN^NuNVHBG<:.!Nf 9èd]è yZg yZg> NXB\ByZ yZf09&@|3Z nf \m \lJyZg>NXB\ByZJEf* 9\2AHҼ"ABW?9^NJTORE`( 9\2F@RFBEBW?9^NJTO`6` nfb0@Hм @0^RF>Z?9^NJTO|o00@3JGg>`>NGRG09HѹBF`,0@Hм @0\RF>?9\NJTO`t>NCJ@g`\è 9èeHJEg0FB(RFJFg.0@E3JGg>`>NG09Hѹ``JLN^NuNV>aN^NuNV9H=@ nfaZ` nfa`aN^NuNVBWaN^NuNVaJ@g&J\gJyg 3ö2ByRyöN^NuNVaJ@g&J\fJyg 3ö2ByRyöN^NuNVaJ@g&J\mJyg 3ö2ByRyöN^NuNVavJ@g&J\oJyg 3ö2ByRyöN^NuNVa@J@g&J\nJyg 3ö2ByRyöN^NuNVa J@g&J\lJyg 3ö2ByRyöN^NuNVa J@fJyg 3ö2ByRyöN^NuNVaJ@gJyg 3ö2ByRyöN^NuNVJyöf >N`*SyöJyf092yöf3NN^NuNVNtN~~NN^NuNVBWNG3:NI\N^NuNV.!Nf yZg>NB@` JyZg> NB@` NpNqN^NuNVH y'g> NB@`BF>N}3g. y'g$ y fB@`09"N4G@RG`N}3|,g> N`N}3|'g> N`|N}3g, y'g" y fB@`T09"N4F@RF`NFgB@`2 0Fp@2G@./aXOJ@fp`B@NqJLN^NuNV nH"n HAf nJfB@`R R` nH"n HANqN^NuNVHB@3f333#zP34#]z#?|3 y4m.NN y m.NN nN yZgBy yZfX>9^>a<JFg3|f6RyfRyRy\P yP0 yP!y`N|f~Jyfg >aN`j3Sy yP (g:Ry4\ y"yP0 y"yP!iSy]P`Sy]P` yP>(>aFm:Ry4\ y"yP0 y"yP!iSy]P`Ry\P yP0 yP!y`R`@B@3f3Ry4\ y0 y!y3`` >9JGm6Ry4\ y"yP0 y"yP!i]PSG`a JLN^NuNVH?BC y4m"0м#P30y4W@ym6 yP g yP (g yP ( gRy\P`0y4W@ym.Pa-@>9@.P\a-@<9@ yP (:|+f .Ѯ>?aTO>`|-f .>?aTO>`0`f/./YNPO`j/./YN4PO`X .`N .`D2.0.-@`42.0.-@`$>ax``H | rW hN>?aTO>yfTC309м#P yP yP!n0"yP@ygT89TDC 9Pм #y4l0\P\ yP"y0 yP"y!iRD`Uy4`0R@м @ g"0м @ h?f >an`0R@м @ f0м @ fByZB\3Z``0R@м @ h?g0R@м @ h+g0R@м @ h-g >a`0R@м/0м/a XOD _!@0R@м @0R@м @2Ҽ"AiRCSy4`0 @"|0H3Z|f0м.a#\`D0м @#\ yZf$ y\(fByZB\3Z`0 @"|0H>a JLN^NuNV yZfx y\0(|ff y\(g 3Z`6 y\(g 3Z` y\(g 3Z`ByZ y\#\3Z`4 yZf" y\(g.\a3Z`3ZN^NuNV>NXB\3ZByZN^NuNV0.`$p`:p`6Jygp`*`$Jygp``H |Br W h,NB@NqN^NuNVH *n f-H3@ -` g>NXBy@B`n(m,g .aB`V,g,g>NXBy@B`2,gp`,gp`,gp`B@3@ ,NqJL0N^NuNVJyg >NuXJyf.>aL|f33Z0y#\`\By>NuX yZf,BW/<N{`XO#\ 9\HfN|~` yZf 09Z09Z#\N^NuNV 9èf*3Z# \09Z#\`p yèH3Z|f0 yè!yJyԠf yf yèp3Z yè#\ yè3#\\èN^NuNVH>.|Zn|Al|zn|al |9n |0mB@`>/<NNXB@NqN^NuNV n f >NX0.n fB@`Jn f 0.n `>NXB@NqN^NuNVJnfJn g >NXB@NqN^NuNVJyg >$NXRy n3&3@3ZB\N^NuNVH:.By##x#<<>N\# f.NN9gR0HйU#V nna ~3> n 2G 0 @ -f n 2G p(HRG`ZRy`hRy*``Ry|`XRyX`PBy>`H0@HЮ @#RG`20@HЮ @#RG`a x`H |r W h4N`^./<`NXO./<`NXO.`NHм`S#ü./<NXO./<NXOnmaBWBg n 2G/0N\O3b0@HЮ @#Z n 2G.NF>/<NxXO3tN3L yüHN3Ԣ yüzN3x yü`N3 yüJyg#H3,DBG|~nh0@Hм2AHҼ"A"0R@@Hм @ 0@Hмb2AHҼb"A"0R@@Hмb @ TG`BW/<*N|XO>/<N|XO>/<.N|XO>/<3N|XO>/<N|XO>/<8N|XO>/< /<?N|XO> /<EN|XO> /<JN|XO> /<ON|XO> /<TN|XO> /<XN|XO> /<N|XO>/<N|XO>/<[N|XO>/<_N| XO>/<eN|XO>/<iN|XO>/<mN|XO>/<uN|XO>/<zN|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO>/<N|XO> /<N|XO`N^3jByBByöByæByԠ33(3N}3Jyf.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#~.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#D.H/<N}RXO>/<bN{`XO#\.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#F.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#ì.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#N.H/<N}RXO>/<bN{`XO#J.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#Ԥ.H/< N}RXO>/<bN{`XO#ø.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#z.H/<N}RXO>/<bN{`XO#.H/<#N}RXO>/<bN{`XO#.H/<'N}RXO>/<bN{`XO#.H/<N}RXO>/<bN{`XO#ða$JLN^NuNV.+NNN^NuNVHJyg09(ymBGBya`#NLJLN^NuNVHB@3,3b3`33B@3$3"333.B@3^333| y fN}3` y f@BF y fN}3` y g09Jyg3 Jygn y*f8N}3 y=fN}3NRNBy`3w y fN}3`3ä>NuXByä y:g y=fBF yZg>NXB9`.(yH*|d:` y:f N}3NHJyg y*fN`>NuX y:g y=f*J9gNa.H/<RN}RXO`L`B9 y fN}3` y=g yZf y=^f N` yZg`\JFgA-H>/9H/.a PO>/<bN{`XO#ڰHf8JFg>/./9Ha bPO`Jyg >NN`Za` y(g y (>Jyf|m|o N`Jyg6JGm|m,| g&| g |g|m|o> N`0@Hм @&PN``*Jyf N``Jyg> N` y (3 y0(|3Jy^ga^J@f >N`Za,NtJyga$`N y0(|3a>09DN~~0HѹJL8N^NuNV y.fN}309`N33b`R33w`@33l`.093.`D`H |HrW h NRy^N}3 y fN}3``0 9ڰzf33l`3w3N^NuNV09`~B@` yfB@`p`x yfp`B@`d yfB@`p`P yfp`B@`> yfB@`p`, yfp`B@`p``|b@0@ PNN^NuNVH~09`8TG>aR@BWaJ@`6Jy^f BWa6@` ylfp`p`` Jyg >a T@`>a@`TG` yDfR 9f*9`$ 9f*y-g*-`` `` 9Tn lJy^g yoTG`p>av ylfr`rA@`PJyg ylfp`p@>a>@`, yfBWaj@``S@|b@0@ PN0NqJL N^NuNVH0n"|Jpg ylfp`p`>a NqJLN^NuNV0n"|`Jpg,0n"|,Jpf0n"|Jpgp`B@`N0n"|Jpf0n"|,Jpg&Jy>g0.@Hм, @ Pfp`p`B@NqN^NuNVHJ9g.H/<N}RXOBW/<N{`XO# 9ưHg` 9~f#HN|~`B y(g>NXB`z y(g>NXB`X`N|~ yh yjf0<` yjf0<`0<"yƁi y!y`BJLN^NuNVHB@33~>Ry 3~ y'g y"fBGBWNuX yDf yf yBfaVa yZfh y,^f^ yf*0y"|,Jpf09@Hм, @0JGg >NXRG y fN}3``BG \f yZg y fN}3``JygH yf*Jyf"JybfJy.fJyf y$m## 9\f4Jy"g,Jy$g$Jy`gJybg#ì#ìJGg >NXJLN^NuNVH yZfZBW/<N{`XO*@Hg@-g8 m.#Nta&3Z#,\a3ZJL N^NuNVHBy~ yZfZ y,^fJyfRyJyfRy y ^f y gN}3``f y ^gZ`3~ yDm.gNN09Z"yè yZfBW/<N{`XO*@ yè!MHfN|~RyD\è-f(0y"|0029AHҼ"ARQ` -29AHҼ""A2``j yZf`Jy\g" y\g09@Hм, @0`*0y"|,Jpf09@Hм, @0 yfa4 yè!y\09Z"yè@RyD\èJL N^NuNVH y,fJyg.9\ yDg* yDf 9 f y-f D.*yf@Jy^g yfm"n##Ry`TJoo`F~gf 9##`"gf 9D##JL N^NuNVH *n(n >.0SGJ@g`JL0N^NuNVH*nBGJgH. f0`RG`pNqJL N^NuNVH*nB@;@;@;@:Bp;@ ;@ JL N^NuNVH0.@H*@RBF.a>#/9èaXOJ@g& yfp`09;@:<\è`Z>(/9èaFXOJ@g\èa>|f ::;|`D|g]èa2>JGl&JFf a`|g>NX`J]è`0|:>,/9èaXOJ@g>/ a&XO`a|g8JFf >+/9èaXOJ@g \èU`JFg U(;|`U>W a `>-/9èaZXOJ@gX\è>(/9èa@XOJ@g8\èaR>JGl  è`"0| :a>W a`^]èa>gr:9|g |fJEg >NX|g|f0|g*|g$|g|gJEg| gJEg >NX;G >W a:`a>JGm2: yf|m|n >NX>W a`.!Nf 9èd]èJyg;y& By+y\;yZ>(/9èaXOJ@gRF`JUf0Jy>gJy\g y\f :8;|` :9;|>W aZJL N^NuNV\è/.a _1@ nJh m n h o >NX n1|>)/9èaLXOJ@f:/.a| _1@ nJhm n ho>"NX nBha>W a n f nRP` nP0N^NuNVHa2>|m|n 0|``|g]èpNqJLN^NuNVHa,>JGm |n0``|g]èpNqJLN^NuNVH yè f yè*h-g \è0-`pNqJL N^NuNV>)/9èaXOJ@g\è` > NXN^NuNV .d n f n0(n gB@`pNqN^NuNVH9H*|BF|l a|:RF`J9g*9H>/<NXOJ9fB@`>N9H|SG0SGJ@gBF|la":RF`` 9g|pNqJL N^NuNVH 9xe <xd(.x/<x/9/<N NJyBnh#x>/<x?9LN\O>|g6BWa^3v.?9?/<NPOBWa4N3B y>SyBTT0NqJLN^NuNV 9èep`&>,/9èa*XOJ@f>NXB@`pNqN^NuNVH BJyæg*|BGyæl .aXRG`(yHd0,|f.a6`Jy*g3:a.NRy 9HH<.D?<?/9NsPOBF(yHd(|o.NaBF.a@`JL0N^NuNVH *n(n >/ / NtPONqJL0N^NuNVH *|dHI @Jg8(T,f$Jy|f,g0,|9@.Ng(l `P`JL0N^NuNVH*nJy*f-f .a`&MBG|l.?N TORG`.?-N TO-g$.BgN TO.?-N TO`$.?-N TO.?-N TOJL8N^NuNVRylJyf4 y0o3:a.NRyRyByh./<5NXO yh@RyhDo.;NByhN^NuNVH *n-f- gB@`(M./<=NXO-g.DNp`-gn>?-aTO>?-aTO-g.TN`8-g.\N`"-g.dN` .lN`Ryl.tNpNqJL0N^NuNVHJy*grJygh>9309nyFlRa>n/< NXO.N>a*> aN}3JygRyn`3a*>F/<NXO>?9a~TO>?9anTO> aLJnf.N`X*|BG09@@l>?a2TORG`9g >?aTO> a|l.NRG`09nyFn nf > a`&BWa,Jyg> aN}3RynJL N^NuNV y gJyg>apN}3`N^NuNVJy*gNRy09|:md/</<NPO.Z/<NXO3N^NuNVH y RJ. g <>b. 9>>/<?9vN\O#JLN^NuNV0yj"|Jpg:> 0yj"|p?00.|Wa\TO09j@Hм @BP`@0.@29jAHҼp"A20yj"|0029jAHҼ"ARQN^NuNV09j`l.?.N TO.r?. N TO`Z.?.N TO.J?. N TO`4>'NX`(. NN`|g|g|g`N^NuNVH >9G*|(|60SGJ@g >?aFTO`JL0N^NuNV.NH.NH.h9`H??9xaZXON^NuNV.NH.JNH.l9zH??9Ԣa XO.h9H??9aXON^NuNVH>N0. "yüBW/<`NxXO=@J o  o<<` . <>/<x?.N\O>Fg.`/<6NXON>/<x?9tN\OGg.]NN0H `xJLN^NuNVH| BGn l(:.B0e|| mp7`p0@>aYFRG`JLN^NuNVH n>|8|g |(g|0fp`|8f n0||np`B@NqJLN^NuNV>,/9èaXOJ@g \èp`B@NqN^NuNVH*n0@|``6.a:`, n l >#NX0-|2- t aA2-t aA>Jmg >NX yT0TT yBPTTy`0|`~.aBm.a`Jmg,0-yjg >NX09HйBm0||g2.a``T.a yf .aBm.a@`4`|b@0@x PN`|g|g|gN`JL N^NuNVH*n yT0TTJmg mg >)NX m g 0- @|`0-"y2TTyJL N^NuNV yT"n0TT y0TTyN^NuNVH*n 0.r `y0. y0y.aJL N^NuNV0y"|.00yby yf.Ra^ByV.Ra.Ra.baxN^NuNVH*n yfJmg mg >*NX`< yf2Jmg mg >+NX mn mn >+NXJL N^NuNV y<RgB@`09b|8|g09b|8|8f09b|gB@` 9ڰ~f#` 9ڰf#N`n 9ڰJf #`R 9ڰf #`8 9ڰ\f #` 9ڰԤf #ø`B@`* y3 y0(|3a pNqN^NuNV yf09R|8|f >NXN^NuNVHa>|o0`|g]èB@NqJLN^NuNV nJPgB@` n0( n fp`B@NqN^NuNV nJPgB@` n h m n h np`B@NqN^NuNV3Rb3Td#Vf3Zj3\l3^n3`pN^NuNV n0|8|8f nJo n(g n (D` n (-@ yf m o >#NX`* yf n .l >)NXN^NuNV ynf 3` yg3>"NX.Ra"0y"|.00| NXp` >azB@NqN^NuNVH?#xByBBBB9z>LN yüH>?</<`Nx\O3LNB>J@gz# y(fF y0(|39H3N yf yNg 9ڰf9H3j|f9H|309м#9H33#è 9#.!Nf 9T\ yZflJyfbJyZgX y f\ \m \n 09NU@`& 9\m \n 09NY@`B@<JFg#`2 \m" \n|J\f #``X>a0Hހ09J9f>B?9LN\O( 99H&BW/?9LN\OJl.xNN>/<?9LN\OEg.NNBW/?9LN\O` 9ڰfl``~JLN^NuNVH >.*|dHI @Jg8(T,f, g,g ,o0Hg(l `P`JL0N^NuNVH #x3:ByB0<3L33t33t#3Ԣr#zv3x#3J#RN3`9og Rl#l9kgRh#h#p*|BG|l.?N TORG`BdBhBlBpB3j3Ԡ>bNBWBg/9ZN\O3bJybl.Z/<NXON>LN yüHBW/<`NxXO3L3nN}3NB>J@g 93F09FytmBG#9H|309м#9H39H3N3#èBy3 y(g y (>0@Hм @(PN`a`8JL0N^NuNVHJ9gN y0(|3ByB\ByZ3 y (336#T#8 yo>Jyf > NX`* yoN`0y"| 0 @N 9èdJyf >NX>NG09NHѹJyf09Nyg >&NXNKDJLN^NuNV.!NfJyg8Ty 9\"yT2TT09&@|"y2T` 9T\ yZf09Zyjg>NXB\ByZ yNfN 9\m \o >NXTy 9\"yT2TT yBPT`2 \n \l >NX09^|yJ\fJ# y3#T yf yT"y0TT38RyN^NuNVHNSJ@fb yg yfz>/<bNR XOJ@f>/<bNR XOJ@gL yf #N` # y3 y0(|3NSX`*|$Jybml yblb 9ڰg 9ڰJf yRm yRn >NX.R0y?5?9bNOXO`^`ZJyRm yRlx09b|8|mf09b|8|8f 09b|fJ y:bg y;bf > NX.b0y?5W?9RNOXO`` ybm ybn 9ڰ~f #`@ 9ڰ\f #F`& 9ڰf #` >NX`Z y0(|3yb*|B.R0y?5?9bNOXO``NPJ@f >NXJL N^NuNVNSJ@f ygJyg y f4>/<bNR XOJ@f>/<bNR XOJ@gNSX`h y<Rg > NX`R09b|8|g009b|8|8f 09b|f y:bg y;bf >NX`NON^NuNVHNSJ@f>/<bNR XOJ@gx3D yg yf >"NX.RNR4J@g >NX09Ry09R|8|f > NX.RNM`h>/<bNR XOJ@g 3F`r>/<RNR XOJ@g yg yf >"NX.bNR4J@g >NX09b|@309b|8|g009b|8|8f 09b|f y:bg y;bf > NX.bNM`>/<RNR XOJ@gJ yf >"NX ybm ybo >!NX09b||Nh3`,>/<bNR XOJ@gJ yf >"NX yRm yRo >!NX09R||N`3`:909@Hм8 @0yNQ09Ry.RNM09b|r `y09b|8@y.bNM|@f09b|8|g >NX`8 y:bg y;bf09b|8|f y<bf >NXJLN^NuNVNSJ@f* yf09@Hм$ @0y`l y fb09R|8|f09b|8|g >NX0y"|$0029R|A29b|t aAy`JyRm> yRl4Jybm, ybl"09R|29b|t aAy`P09R|8| f609b|8| f&09R|29b|t aA|y` >NXN^NuNVNSJ@fJybm ybm\ 9ڰ\fD09b|8|f09@HмV @0y`NPJ@f>NX` >NX 9ڰ\f"09@HмL @0yNQ`09R|8|f >NX09b|r `yRy.RNMN^NuNVNSJ@f. y<bg0Jyg y:bg y;bg ybm ybn >NXJyRm yRl09Rr `|y`\JVm" Vn9cg Vo >NX y<Rg >NXy.RNN yf09b|8|l >NX`&Jybm ybm yf >NX09by.bNMN^NuNVHBWN=` 9èe,JyRm yRlNRh3<R#VJybm ybm >NX Vm Vo >%NX09X|r `29AHҼ$"A2Ayby`(>9|?Gy0yR|y09R|8|m:09R|8|8f 09R|f y:Rg y;Rg yg >NX.RNM`NMfJ@f> NX`>N=`Jybm ybm >NXJyRm yRl09Rr `| y` y<Rg >NX `~<NV n  g amP Am6 Pn.H|A320< "<~NB0< "<NB9 Yg yfBB0< 292BNCJg @#& h3*3,30By.By40<?292NCJ@fA <2< Q0< "<NC094y,nZ29.y*m By.Ry00< 290NC0<29.$9&NC20< NC0<BANCJ@f6Ry.Ry4`0<NCN^Nu"<I0< NB`"<6`"<Q`"<``Do you really want to format disk x ? $~Formatting Error $Error $Select Error $Write Error $CP/M-68K(tm), Version 1.1, Copyright 1983, Digital Research1015-0901-654321********************************************************* * * * Disk Formatting Program for CP/M-68K (tm) * * * * Copyright Digital Research 1982 * * * ********************************************************* * * * prntstr = 9 readbuf = 10 * seldsk = 9 settrk = 10 setsec = 11 setdma = 12 write = 14 sectran = 16 flush = 21 format = 63 * .text * start: link a6,#0 move.l 8(a6),a0 add #$81,a0 scan: cmpi.b #$20,(a0)+ beq scan cmpi.b #$61,-(a0) blt upper sub #$20,(a0) upper: cmpi.b #$41,(a0) blt erxit cmpi.b #$50,(a0) bgt erxit query: move.b (a0),d0 move.b d0,msgdskx ext.w d0 sub.w #$41,d0 move.w d0,dsk move.w #prntstr,d0 move.l #msgdsk,d1 trap #2 move.w #readbuf,d0 move.l #buf,d1 trap #2 move.b buf+2,d0 cmpi.b #$59,d0 beq doit cmpi.b #$79,d0 bne exit * doit: clr.l d0 clr.l d1 * * Select the disk to format * move.w #seldsk,d0 move.w dsk,d1 clr.b d2 trap #3 tst.l d0 beq selerx move.l d0,a0 move.l (a0),xlt move.l 14(a0),a0 move.w (a0),spt move.w 8(a0),drm move.w 14(a0),trk clr.w sect clr.w count * * Call the format function * move.w #format,d0 move.w dsk,d1 trap #3 tst.w d0 bne fmterx lea buf,a0 move.l #$e5e5e5e5,d0 move.w #31,d1 bloop: move.l d0,(a0)+ dbf d1,bloop move.w #setdma,d0 move.l #buf,d1 trap #3 * dloop: move.w count,d0 cmp.w drm,d0 bgt exit move.w sect,d1 cmp.w spt,d1 blt sok clr.w sect add.w #1,trk sok: move.w #settrk,d0 move.w trk,d1 trap #3 move.w #sectran,d0 move.w sect,d1 move.l xlt,d2 trap #3 move.w d0,d1 move.w #setsec,d0 trap #3 move.w #write,d0 clr.w d1 trap #3 tst.w d0 bne wrterx add #1,sect add #1,count bra dloop * exit: move.w #flush,d0 trap #3 unlk a6 rts * erxit: move.l #erstr,d1 erx: move.w #prntstr,d0 trap #2 bra exit * fmterx: move.l #fmtstr,d1 bra erx selerx: move.l #selstr,d1 bra erx wrterx: move.l #wrtstr,d1 bra erx * .data msgdsk: .dc.b 'Do you really w ant to format disk ' msgdskx:.dc.b 'x ? $' * .even buf: .dc.b 126,0 .ds.b 126 * xlt: .ds.l 1 spt: .ds.w 1 drm: .ds.w 1 sect: .ds.w 1 trk: .ds.w 1 dsk: .ds.w 1 count: .ds.w 1 * fmtstr: .dc.b 'Formatting Error',13,10,'$' erstr: .dc.b 'Error',13,10,'$' selstr: .dc.b 'Select Error',13,10,'$' wrtstr: .dc.b 'Write Error',13,10,'$' * copyrt: .dc.b 'CP/M-68K(tm), Version 1.1, Copyright 1983, Digital Research' serial: .dc.b '1015-0901-654321' * .end ``&NV n  g amP Am PnH|A30< "<`NB0< "<NB9 Yg yfA <2< Q0< "<NC0< 29BNCJg @# h3 3 3ByBy09y nZ29y m ByRy0< 29NC0<29$9NC20< NC0<BANCJ@f.RyXy`0<NCN^Nu"<0< NB`"<`"<-`Do you really want to init disk x ? $~Error $Select Error $Write Error $CP/M-68K(tm), Version 1.1, Copyright 1983, Digital Research1015-0901-654321 ********************************************************* * * * Disk Initialization Program for CP/M-68K (tm) * * * * Copyright Digital Research 1983 * * * ********************************************************* * * * prntstr = 9 BDOS Functions readbuf = 10 * seldsk = 9 BIOS Functions settrk = 10 setsec = 11 setdma = 12 write = 14 sectran = 16 flush = 21 * .text * start: link a6,#0 move.l 8(a6),a0 base page address add #$81,a0 first character of command tail scan: cmpi.b #$20,(a0)+ skip over blanks beq scan cmpi.b #$61,-(a0) get disk letter blt upper upshift sub #$20,(a0) upper: cmpi.b #$41,(a0) compare with range A - P blt erxit cmpi.b #$50,(a0) bgt erxit query: move.b (a0),d0 put disk letter in message move.b d0,msgdskx ext.w d0 put disk letter into range 0 - 15 sub.w #$41,d0 move.w d0,dsk move.w #prntstr,d0 ask whether it's really ok to init move.l #msgdsk,d1 trap #2 move.w #readbuf,d0 read reply move.l #buf,d1 trap #2 move.b buf+2,d0 if answer isn't Y then exit cmpi.b #$59,d0 beq doit cmpi.b #$79,d0 bne exit * doit: lea buf,a0 init disk buffer to empty directory entries move.l #$e5e5e5e5,d0 move.w #31,d1 bloop: move.l d0,(a0)+ dbf d1,bloop move.w #setdma,d0 set up dma address for write move.l #buf,d1 trap #3 move.w #seldsk,d0 select the disk move.w dsk,d1 clr.b d2 trap #3 tst.l d0 check for select error beq selerx move.l d0,a0 get translate table address for sectran move.l (a0),xlt move.l 14(a0),a0 get DPB address move.w (a0),spt get sectors per track move.w 8(a0),drm get directory entry count - 1 move.w 14(a0),trk get starting track (=offset) clr.w sect start at sector 0 clr.w count count of initialized sectors * dloop: move.w count,d0 while count <= drm ... cmp.w drm,d0 bgt exit move.w sect,d1 check for end-of-track cmp.w spt,d1 blt sok clr.w sect advance to new track add.w #1,trk sok: move.w #settrk,d0 set the track move.w trk,d1 trap #3 move.w #sectran,d0 do sector translate move.w sect,d1 move.l xlt,d2 trap #3 move.w d0,d1 set sector move.w #setsec,d0 trap #3 move.w #write,d0 and write clr.w d1 trap #3 tst.w d0 check for write error bne wrterx add #1,sect increment sector number add #4,count increment count of directory entries bra dloop and loop * exit: move.w #flush,d0 exit location - flush bios buffers trap #3 unlk a6 rts and exit to CCP * erxit: move.l #erstr,d1 miscellaneous errors erx: move.w #prntstr,d0 print error message and exit trap #2 bra exit * selerx: move.l #selstr,d1 disk select error bra erx wrterx: move.l #wrtstr,d1 disk write error bra erx * .data msgdsk: .dc.b 'Do you really want to init disk ' msgdskx:.dc.b 'x ? $' * .even buf: .dc.b 126,0 dual use buffer -- console input & dsk output .ds.b 126 * xlt: .ds.l 1 translate table address spt: .ds.w 1 sectors per track drm: .ds.w 1 maximum directory entry number sect: .ds.w 1 current sector trk: .ds.w 1 current track dsk: .ds.w 1 selected disk count: .ds.w 1 number of directory entries written so far * erstr: .dc.b 'Error',13,10,'$' selstr: .dc.b 'Select Error',13,10,'$' wrtstr: .dc.b 'Write Error',13,10,'$' * copyrt: .dc.b 'CP/M-68K(tm), Version 1.1, Copyright 1983, Digital Research' serial: .dc.b '1015-0901-654321' * .end  `.X N#G#G yG3GA8CG0<GQ yGACGf0<QKFMFOFIE>XNBB2//NB _ONB"//NB _ONCOPYRIGHT 1983DIGITAL RESEARCH0102821015-0901-000019ACC+I,A>XCC+I(+O<g,r1 g&R gR oR oR oR`r-&NqQQNqL _N`(/*N8N8nN=NuG/ N9GN%KaNu*ݾ<0f G/ N<Nua/*N: Nu%j%jaa/*N:Nu%jaa/*N:Nu*SG<g&j%j%j`Nu%j </*/*NGGB/ N9x5@0*ݾ<0fBB'N=f*1<f0*0<f&aN8nN8naGGB/ N9x5@0*1G6*)d@9GKdG%Ka`&9GLd9GJd|6`|. *6f.*)Fd G%KaB|(G/ N8N8nG%KC7%IaB*G%Ka *6faJ*/g*/<GaG/ NXB*| | | | | | | | |L!|I"|B#B*$B*%B*&B*:|X;|$<|$=|$>|$?|$@|$A|$B|LC|ID|BEB*FB*GB*HB*IB*JB*KB*LB*[B*\B*B*B*B*(|)B*-B*.B*/|3|B*|B*B*BN=5@GG%K B*.*Gl *d*`GG%K.*%G ,<N^S@R|HB>%G޼ oG/ N8N6.* S%G *~NV%@.*%G枪%G.* &|GB3p.* S%G |N^%@GGg%KGGB%K 9 GCf G%KaGGB%K(aFdN=*ݾ<0fa`|FG]` |FGN%K.m<,ONV(|5$|>XB*-G/ N8*N8&G/ N8*N8&Jg< N8&/*N8BN8n|B*~d pB*aN|Ej|EbaHd aN=`|Hba.d`aB*(*)djyGBGB`G%KC*%Ia<G/ CGB/ N.,޼x< fjB*%j`| *Nfba_[]*?` NVH(|>L$|AB'BgNtLN^NuNVH(|>L$|A<BgNtLN^NuNVH(|>L$|A<?<NtLN^NuNVH(|>L$|A9?e<BG.?NtLN^ _ONNVH(|>L$|A . e9? . fB9?.aLN^ _ONNVH(|>L$|AJ9?g<a< a<a9?LN^NuNVH(|>L$|A . W9?<zG . f| B***b.a *dLN^ _ONNVH(|>L$|A . ep` . W . WƎ . WƎ LN^ _ONNVH(|>L$|A.aFd<^a.@.a LN^ _ONNVH(|>L$|A< a< aLN^NuNVH(|>L$|A< /.NLN^ _ONNVH(|>L$|Aa/.aLN^ _ONNVH(|>L$|A< /.NLN^ _ONNVH(|>L$|A</.N<fOA N+LN^ _ONNVH(|>L$|A</.NLN^ _ONNVH(|>L$|A</.N?LN^ _ONNVH(|>L$|A</.N?LN^ _ONNVH(|>L$|A</.N?LN^ _ONNVH(|>L$|A</.NLN^ _ONNVH(|>L$|A</.NLN^ _ONNVH(|>L$|A</.N?LN^ _ONNVH(|>L$|A</.NLN^ _ONNVH(|>L$|A?G?/ aLN^NuNVH(|>L$|A< BgNtd<BgNt<fp`pLN^NuNVH(|>L$|A<BgNtLN^NuNVH(|>L$|A<BG.?NtLN^ _ONNVH(|>L$|A</.NLN^ _ONNVH(|>L$|A</.NLN^ _ONNVH(|>L$|A%n %n.SG<g&j"j`LN^ _O NNVH(|>L$|A<G?B/ C?J/ av<g/.N<f G/ aLN^ _ONNVH(|>L$|A<f/.NLN^ _ONNVH(|>L$|A<-BG.?NtLN^ _ONNVH(|>L$|A9?6d G5/ aXaJLN^NuNVH(|>L$|A< BNLN^NuNVH(|>L$|A<G/ NLN^NuERROR CREATING PASSWORD$ LIBX$$$$$$$LIB <$$.SDSCT >X.SINIT .SMAIN .SPLDII V.SPLMOI  .SPLMUI .SPSCT BACKSPAC7&BOOT 6BREAKKEY;dBUFF GfCBP @CLOSE 9COLUMN ?COMBUFF ?COMLEN ?CONIN 6lCRLF 8nCSELECT ;DCNT ?DELETE : DISKREAD:ZDISKWRIT:ENTRYC FCB GBFCB16 GFLAG A GRAPHIC 7LIBFCB 5MAKE :MAXB GMAXLEN ?MEMORY GMEMSIZE GMON1 tMON2 tMON3 tMON4 tMON5 MON6 MON7 MOVE PASSWORD?BPATCH1 PATCH2 PLM 'PRINT 8PRINTABS7hPRINTC 8&PRINTCHA6PRINTM 8PRINTSUP?READ 8READCHAR6@READCOM ;0READXFCB=2REBOOT =RENAME :RESET +RETURNER=fSEARCH 9SELECT ;SETATTRI&j>Jg&j>SJa>`Nu<BgNtNu<BG*P?NtNu< BgNtNuad<BgNtG%KLaaNNu| JaN| JaDaNua%jRLahNu< BgNtNu<BgNtNua5@jV<BG*V?NtNu</*XN@Nu</*\N@Nu<BgNt@Nu<BgNtNu</*`NNu<BgNtNu<BgNtNu</*dNNu< ?<NtNu< BG*h?NtNu<#/*jNNu<.BG*n?NtNuN3<N30W@o<d5|`<N30W~o5GNujpVaaNu%jrB%jvF*qSGq<g&jF"jBBF`Nu%jz>>*SG5G|g&j>~>`Nu` *d BG*p*NuBG*#&|Bsp&|B 3 pf*#` *[f*#B*G%Kz| ~5|ahBG*#&|Bsp&|B 3pcr *!e *,g *:g *[g *=fBG*#&|Bp`*# */g *$g *]g *,g~ja`pJ*g*#Nua *=gp`a<Nua * fa * fp`<Nu|JjgZB>*GB>*HG5GB>* 5GJGV*d J*fa`B**<0GJa`Nu5|'|Jjg:*BG*B<*p$B>*HG5GB>* 5G`Nu`8BG*J2p$f*dJ*g*dah`jJaHB*Nu||*SG<g.BG*2p$<0Fa *g *f|,a`NuB*B* *bXBG*&j"j3p1p*pBG*&jB3p FBG*&jB3p HFp*dNu&jB+B+ކB+ކ%G%|B@|JgB*BG* *,*N^p$ *.*N %@ *~ NV%@`jaNuG$%KzB*~5|aLG+%KzB*~5|a6&j5ka&jkB* *b>*d$BG*OB<ܼ,%thG+%Ka*G*dG+%KC$%IarjaNu&j>+OBF+|z nF7G&j+GNu<N30~&j<+nF<N30&j>+o7GNu*<AGJa|:JaNuaaNuG%KLaBG*5G5|daNu&j>*SNuG%K`a<.BG*?Nt *~NVNu`:a%j|a\|:JaXahNu&jB+&j7jaNuG%KG%KRaaLG%KLaL&jB+<N3`R@&j7@%jaazG%KLaG%KLa %jataTG%KLa<N3`R@5@aXG(%KLaGR%KLa< N3`H5@a,G0%KLaGR%KLa<N30R|H5@aG%KLarG8%KLaf<N30~o5GaG%KLaDGL%KLa8B'N3`5@aG%KLaGV%KLa<N3`5@azG`%KLaadNua^aGr%KLajaa@aGz%KLaB*BG*ؾ|bB<ܼB2h*dGCn%K`aG%K\af *gJ*<|&|Cnsp&|Cn 3pg*<|B<ܼha*`B*BG*ؾ|b*B<*ڼ2Xd5G5|da*da`Nua5@B*Jjg"*djpaa*`NuB*B*|**bT|B* *b,BG*BF*&j3p2`gB***d*d*` *dpNu`%j>&j> :g&j>SJa>`|:JaNua,@B*arB* *bn*|B<ܼGh%KaG%KLa*<*|B<ܼHGh%Kab**Ga*dNuG%KRaaG%KRaG%KRaGf%KLaLG%KLa@G%KRaG%KRaG%KRaB* *b|a*|B<ܼGh%KaG%KLaB* * b6| Ja**|B<ܼHGh%Kaj*d*d~aNuB*G%K|a@JfJ*fp`* *faF` *fa` *faF` *fa:`*SGGahFeBG*B<ܼHGh%K|a.S@<gV|*SG<g*G*G`a**@@PaaFd<`G%KRa<Nu*d$G%K`avjnaG%Ka` B*a`5@G%Kja|KJaNuaa|RJaJ*g>**o5G`5j*d|OJ`|WJaG %KLa|aNNua5@B*Jjg"*djpanaz*`aNu` a* 0SG 0<g |-Ja$`Nua(| 6 * 6b4 * 6f |.JaBG* 6&j 23p<FJa* 6dNuBG* 8&j 3pd<`pNuj 9 8ad j :Ja`aNu* ,d"&j <>| o<|NF5G @&j <>O`&j <|5G @&j * B<.F D>* @* D&|Cn3p* DfP*3d B*3G%KRaaG,%KRaa&jSa|Ka%j 2ap`>* @* D&|Cn3p<Nu| J * Jb:BG* J&j F 3?pg &j F3p<&j3p<gp` * Jd<Nu| M| L* L* 'G L<T* Md`BG* L&jsp (* ,dBG* L&j3p* (J* (g* KdBG* L&jCp%I *S`Nu *gTGB%K*Bݪ&j  d,| KaFGB%K Fad&j<*ga`Nu>* OB<ܪ%F ܼ %F .* ޼%G .* ޼ %G Nu`>G%KRaGv%KRaGf%KLaXGH%KLaLG%KLa@NuaFdp`h *=fatG%K|ab@ .<f | p`6J* .faz`&ahdG%K|a(@ /JfaR<NuBG* OG<3pN`&j + G%KLa`T&j + G%%KLa`<&j + G5%KLal`$&j + GB%KLaT` G%KRaNuB* -Bj * -Fd$>* j dan%j  Fa0@ -j `Nu5j j aF j b.* ޼BmGP%KRada>* OB<ܼ5 hB* & * &bBG* &&j "jpp* &d>* O&j BS&j BSB<ܼBrhNuNV&j +d| & * &b*BG* &&j3p<<f &j 3p* &d&j+ <<g &j + &j Sj6>* O&jBF+B:(ؼrH<-E=F=GN30&j+ |HnB>.,޼5xB* Ka`&j + d&j j8N^Nu j c$5| Jj caBj Bj $>* UGj $e>* $OB<ܼ5rh a|%j >* $OB<ܼ5rh a\| & * &bBG* &&j3p<F )BG* &&j 3p<E *dZ>* $OB<ܼ5rh ">* $OB<*(ؼڼ5HX>* $OB<ܼ5 "hj | &`* )* *c| &* &dTj $d`NuB* QB* RN3<0RG Pd| Q* d | R* QG%KRaa* Q<GKaja* dG`%KRah`aJGl%KLa* Pd G%KLaG%KLaBj >* j d>* OB<ܼ5rh aa|q&j C%IrGB%KvaFB9B* d&GB%KjaGB%K|ala>* OB<ܼ5rh5|'aa>* OB<ܼ>2hOj4>* OB<ܼ>2h|JGgj4&j 5S5|'aP&j >j:|KJala|| 8a@ +&j &j 5S5|aaP| 8a\dG`G%KLaPa,|RJa| 8a.d|OJ`|WJaa* Pdl* +d |XJa`a| 9|A :a| 9|1 :a| 9|2 :a| 9|3 :a| 9|4 :aa%j  2aNj `* Q<'G 0aG%KRaj RKaZ5j:5|'a|KJa"5j65|'aNuBj >* j dl5j ava%j  2aG%KLa* .SG Oa@J* /gG%KLa* /SG Oa &j B+%j daj `NuaH@dJ* .g,<N3`^@H5@ ||fj GCn%KB>* ߪGCn%KzB*~5j a| '<N3`|RG ,d| 'Bj B9B?B?BG%K\aa *gHGB%K>*<Bݪ>%j>a* -dj `aabaa`*3FdazJj fG%KRa6`*FdaaHa~`aHNu5| TJ*g ~*o5G T<%?* TNtNu`(G%KRaa&G%KLaB%j XLa8NuG%K|at@ V<faTG%K Xa`N * Vf"axJgG%KRa|`0G%%K Xa`$G%KRabGv%KRaVG%KLaNuG%K|a@ \<fa` * \fa`aNuB* B*|#B*2 *2bBG*2B2p$BG*2B2p+*2d|2|3Bj4Bj6Bj8Bj:B*