ƁƂƁf  BIOSOK11 BIOSOK12 ESCAPE INST11 INST12 PVERS NEWHEAP OLDHEAP  SIMUNIT SIMDNR SL16DR VP  $lTHEPROGRSIM35 MULTIǩ@H EFORMAT.CODE\HR EFORMAT.DATA\RX SIM35.CODE\ XZ EPAB.CODEr\xXZEPAB.CODEr\x&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&á 0 ɍBP ȡ)?ޞ&˞"Ä ޗ  unit ( esc,  ת ȡ,  , ת ) ? á   ܚ  Í"& Simulate 35 Version C.01듡0aAb9EFORMAT COM0SIM35 COM EPAB COM ???(!w~w! M~0>bw! M:^' 0 _!^#V7"*>w!̀W!̀????_ ͉^ N7>2I"J͵:E^hNwDSKXXXXXLcp/m sys`> 2 2!~(,#o>w!L!W8D!q !w͆~4# (wAwG:xL:L/ L HLq~( *Nut!N͠##͉w:A2!~2*N! 3535407080140160.s}.$sJ.sK.! ~ '~ !~!:# q~ ~w7##(FP'7>'>*2I(n f ~2O~ ~ 2G~ ȁ` .s.!s.$s:Ios {  y ǯD: ?$Ready to format 35 tracks in drive X: ?$same procedure (Y/N) ?$ continue (Y/N) ?$ formatting $copying system tracks $command error$unknown system$illegal drive format$can't read system tracks$can't write system tracks$ / "J!Ews    :_:_` [S.s(. s:4N( Y(J >Y_ Y:g7 Formatter for erphi disk interface EFORMAT Version B.1 (C) erphi GmbH$Format disk in drive A:..write protected$I/O error$drive too fast$drive too slow$can't verify$too many tracks to format$drive select error$.'.*s7N(q: 2_~0b:=G:? B#(C) 1985, erphi GmbH1 '!ͷ܆!!ͅ:=2ͪ!L܆!܆8fͳS E^!!܆8/: m!N!P܆8 !:* ܆0S ISh: can't write directory$can't verify di" =" =" ="EE HJ h M" N" N" N"`HJ ݌h Hh݌` aI꽌ɪVɭY$$Y$#$ 꽌ɪ\8`꽌ɪɖ * % E зЮ꽌ɪФ`E85Ii  'W$ %) L L |! !)I ` |! V*#9#V( *!8 %30 8 ( h& &,08 *!`L%x !G @%B  0 ! ! !Hh h&'8`` h& & h&  &0($ p,&"`P@  !"#$%&'()*+,-./0123456789:;<=>?c$ % %) ` 8`!0ݩ! ʥ `HHbJJ#(JhJHJh La!hhH݂݄݆݀ &h`Jo$V$i݊݉ %`ݎݍ݌)Ib)`80^݌Hh <" <"݌ N" N" NB(C) 1985, erphi GmbH1g ͦ̓͞!ͅj8U:=2!;08:;j82͚:()!ͼyܳ8!!8 3̓ܳ@͜: ̓> 2 2!~(#o>w!!8 !w͘\ͳ~`8 # (wAw0($ p,&"`P@  !"#$%&'()*+,-./0123456789:;<=>? JLS!4S:2!S! S:2!S! S #7>2!>0!!s>0>2!6>0=wͨͨͨq! ~ >g.aG#a #a7 ?x JL ? JLy!4y:2!y ! y:2!y#! y #7>2!,4>0!!s,?>0>2!,\>0=wN%(:n f ~ '~ !~!# q~ ~w JLS!4S:2!S! S:2!S! S #7>2!>0!!s>0>2!6>0=wͨͨͨq! ~ >g.aG#a #a77##(FP!p>!1>:~g.~({2G"*>w:H?͉:(C) 8/85 erphi GmbH͂͂͂q! ~ >g.IG#I #I7֠D(7ɯ~!R('!b= ::z::!@=IH#ILͼ>2}(I #ILͼɯ2|I#I##I>N%.$-.- .!-.'-N!!! 8|4HhHh 5 5 5 5V4Y35Y35V43ꪽ5 5 5 5 5 5`Hh`8` L0 aI꽌ɪVɭY44Y434 꽌ɪ\8`꽌ɪɖ * % E зЮ꽌ɪФ`E85Ii  7W4 5) c4 5 5) ` EFORMAT e procedureצContinueM2 hhhh 0HH`*Rr@pn (  L ꥊꥊ ˩ˍnjǠ@  צDuplicated directory  צ -track drive9צ # of tracks:  ĩȄ ! !! Td צ צThe samwriting directory 1תPgwriting d @R0+``A`$aa[ah`j`l`n`p`r`t`zaaa`|`pPrPtPvPxPzPPPPPPPPPPnPP/P5PRSPFRSW5""?"psPPCRSPP]RS[|p"5#%<$mPPCRSPP]RSPFRSSPPCRSPFRStbv{tvruup nn Hس,P,,צreading , EFORMAT.DATA,Pצunit is not a diskPcan't format this drive typeתPצincompatible BIOS & drive typePwhile formattingתPצwrite protectedPצdrive offline (?)Pצ writing bootP4SofTech/צUserצApple<+Volume   צ : formatted.  & "عCPU not a 65xx!תP,,צ no space for ,צ EFORMAT.DATA   צ formatting   tracks on unit # ˡ ꥄ"š"š "š!צ Boot type is *0 6 P Ɓ2"ˡ.צ#6ˡu Directory 6: found on unit # :re-format disk nx Volume name ? (צNEW:)   ġY ؛ ؛ ؛ ؛ ؛ ؛   á NEWתs ٦תȡ.yÍV TYK=/! [OC7+z آآآآآآآ٢'(c) erphi GmbH ˡ  0š0!/000 EFORMAT.DATA0"ˡ/ˡ"ˡˡ"ˡ0! ٳ צXXXXWצD#04:#05:xxxxxxxxxxxx#09:#10:#11:#12:#13:#14:#15:#16:#17:#18:#19:#20:Fx &"áǼAצ%:0Ɓ3 EFORMAT Version C.01צDuplicated directory  צ -track drive9צ # of tracks:  ĩȄ ! !! Td צ צThe samJV4i( 5 L0V33X(  e1)I  e1 5(08 h6 6  e1` F1L0L5x 1G @5B01 %1 %1Hh h6'  8``) (jJJ>L+ "?I>  N `   x W Nx .x- { `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&JJJJ  i=L\Ǝ xi ?  ٳ)i  ˭?8 ȱ LNO BOOT FILE 108.BOOT.CODE X L$J))))( P ɪ\8`ɪɖ*%EзЮɪФ`C83Ii ) ) `8`0($p,&" ( SYSTEM.BOOT SYSTEM.BIOS SYSTEM.INTERP8`'ȱ 8 ,) JfJfJf LQ $ƲI*) l ڰ`  g F'! ` =`8`' aIɪVɭYY L  (c) Irax 1984 ``l= \ƥ= b '   &mm HL(SLOT 6, / Xȱ L -i樠iѧ` aI꽌ɪVɭY44Y434 꽌ɪ\8`꽌ɪɖ*% EзЮ꽌ɪФ` E 8 5Ii  7W4 5 ) 8|4HhHh 5 5 5 5V4Y35Y35V43ꪽ5 5 5 5 5 5`Hh`8`L00($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?/2EEHJh ?2 @2 @2 @2`HJ݌h Hh݌` h6 6 h6  68` 10ݩ1ʥ `ݎݍ݌) I)`HHJJ#(JhJHJh L1hhH݂݄݆݀ 6h`80^݌Hh .2 .2݌ @2 @2 @2 /2 /2 `L`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JnNJ`/)#nhhhhhhhhkҝѝ<ܝiiGilҥimi!ѥii6=ܥi>ܭHH`H ݈݌݉h HLphLH h `h ` #T L?L ׅIwlҩ׍mҩ/ѩ׍ѩDܩ׍ܭHH`H ݈݌݉h HLphLH h `h ` # LLhhhhhh -kL& [HHHH`)? á      Í>/F-& SIM35 Version C.03 Í 0 ɍFP ȡ%?ޞ&"á ޗ  unit ( esc,  ת ȡ0˄  , ת ) ? á      Í>/F-& SIM35 Version C.03ƁƂƁf  BIOSOK11 BIOSOK12 ESCAPE INST11 INST12 PVERS NEWHEAP OLDHEAP PAB SL16DR SIMDNR VP  nNJ) (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&kn 1 1cmp 0C088,x ; side 0, 35 track 1cmp 0C08C,x 1cmp 0C089,x 1pla EPAB nNJ`/)#nhhhhhhhhkҝѝ<ܝiiGilҥimi!ѥii6=ܥi>ܭHH`H ݈݌݉h HLphLH h `h ` #T L?L ׅIwlҩ׍mҩ/ѩ׍ѩDܩ׍ܭHH`H ݈݌݉h HLphLH h `h ` # LLhhhhhh -kL& [HHHH`) (C) erphi GmbH듡a,b'Q"RAB %"*36ǀ666!11 צ--> 35 Tracks, 280 Blocks th<h=hhhhxH> Ah(8(H? á      Í>/F-& SIM35 Version C.03 Í 0 ɍFP ȡ%?ޞ&"á ޗ  unit ( esc,  ת ȡ0˄  , ת ) ? á      Í>/F-& SIM35 Version C.03ƁƂƁf  BIOSOK11 BIOSOK12 ESCAPE INST11 INST12 PVERS NEWHEAP OLDHEAP PAB SL16DR SIMDNR VP  $THEPROGRSIM35 ȡۤˡ áڢڢˍ? P ˡآڤ á Cá>آآ*Í k vޢ*צcan't modify disk bios<h<h=hhhhxH> Ah(8(HH=H<H` RY\e8IMI `hf[Z><210/ Illegal filenamenTkn 1 1cmp 0C088,x ; side 0, 35 track 1cmp 0C08C,x 1cmp 0C089,x 1pla ٳ צXXXXWצD#04:#05:xxxxxxxxxxxx#09:#10:#11:#12:#13:#14:#15:#16:#17:#18:#19:#20:Fx &"áǼAצ%:0Ɓ3 EFORMAT Version C.01 EFORMAT 6-  ء  Jd_;ZZUxPǗIǵB;4-0&N QNKHEB=83.)$ Ą צP á New YearsתP1gá צ ChristmasPGBB EFORMAT SYSSTUFFINIT (c) erphi GmbH ˡ  0š0!/000 EFORMAT.DATA0"ˡ/ˡ"ˡˡ"ˡ0! P  00ȡ( ?ݞ&"á ݗ6p ? (y) @šNnÍV ? (n) @šYHJh 72 82 82 82`HJ݌h Hh݌` 6 h6  68` 10ݩ1ʥ `ݎݍ݌) I)`HHJJ#(JhJHJh L1hhH݂݄݆݀ 6h`80^݌Hh &2 &2݌ 82 82 82 '2 '2 '2EEJV4i 5 L0V33V(  `1)I  `1 5(08 h6 6  `1` A1L0L5x 1G @5B01 1 1Hh h6' 8`` h6e procedureצContinueM2 hhhh 0HH`*Rr@pn (  L ꥊꥊ ˩ˍnjǠ@  צDuplicated directory  צ -track drive9צ # of tracks:  ĩȄ ! !! Td צ צThe sam " Format unit ( ꩊȡ" ,צ) ?   ꥊꥊ ˩ˍnjǠ@  writing directory 1תPgwriting directory 2תPK!Do;  "$&(*>eerror # צ , IOresult= س nn Hس,P,,צreading , EFORMAT.DATA,Pצunit is not a diskPcan't format this drive typeתPצincompatible BIOS & drive typePwhile formattingתPצwrite protectedPצdrive offline (?)Pצ writing bootP4SofTech/צUserצApple<+Volume   צ : formatted.  & "عCPU not a 65xx!תP,,צ no space for ,צ EFORMAT.DATA   צ formatting   tracks on unit # ˡ ꥄ"š"š "š!צ Boot type is *0 6 P Ɓ2"ˡ.צ#6ˡu Directory 6: found on unit # :re-format disk nx Volume name ? (צNEW:)   ġY ؛ ؛ ؛ ؛ ؛ ؛   á NEWתs ٦תȡ.yÍV TYK=/! [OC7+z آآآآآآآ٢'0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?8`'ȱ 8 ,) JfJfJf LQ $ƲI*) l ڰ`  g F'! ` =`8`' aIɪVɭYY ) (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J`L&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `   x W Nx .x- { `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&JJJJ  i=L\Ǝ xi ?  ٳ)i  ˭?8 ȱ LNO BOOT FILE 108.BOOT.CODE X L$J))))( P ɪ\8`ɪɖ*%EзЮɪФ`C83Ii ) ) `8`0($p,&" ( SYSTEM.BOOT SYSTEM.BIOS SYSTEM.INTERP8`'ȱ 8 ,) JfJfJf LQ $ƲI*) l ڰ`  g F'! ` =`8`' aIɪVɭYY L  (c) Irax 1984 ``l= \ƥ= b '   &mm HL(SLOT 6, / Xȱ L -i樠iѧ`Ѐc4 5 5) ` aI꽌ɪVɭY44Y434 꽌ɪ\8`꽌ɪɖ*% EзЮ꽌ɪФ` E 8 5Ii  7W4 5 ) z#??     Ԡ Ġ!ͳ"  ٠ `8`8`2 6 6 & 6.  6 6 6 Y$ Ƀ Y 0΋`8`( })    H h(`* }+  " `).+/, 0JJ Hm))hm++ 3 .ԠȠ 2051 % " ΠٯΩ`- 8 L  LLLo H h (LLo ``8`() Y X.,0  *+ Y 9 5.JJJJI i2% " Ԡμ` mL` E% " $ԠΠԠμ`7 mL`ɍ` `% " ӠŠƠԠŠ ԠμϠԠ` m` XLy #20    Ly    / Ly #08   V Ly (٠РԠ `% " P `)+(*` @% " ԠŠ` 6 8 LI A&( M) A* A+`8`ɱɸ)`ɰɳ)` p ])H h8`% "  L L L L+ LRԠҠ  Ly   Ly    8  F ɍDD L  .D` E0E`l8  8 L % "  ]( H % " h % "  ]) H % " h % "  ]* H % " h % "  ]+ H % " h 𭭭    ԠߠԠߍŠߠŠߍǠӍ H`D% " -  :   * % " + `˺úĺƺֺ٠ΠîéԠ٠ɠÍΠ٠ȠƬ΍JJJJ  <`\ Hi ] `{ M{ )`aɷɿ )Lr Lɘ`{ J) + H3 H; hh`SOz HD y 7  P y z   "` | , { F / i/ 1 3 1 3 0 2 0 2 0 m/ M1 2 / `~6!qɷɿꍁLU `8`L `m `  \ y ] z ^ _ ` a d f g h i e `ɷɿ -[L [ `8`  ƭy  0Lo``HJJJJMh)M`ƍ  ɍͲͳ)LLH h`ɰɺH) p h`L8 HJJJJ h)Ll8`./ .0 .1 .2 .3    (4 i8G<|H <L& HI`z# p) 'c м q) ''`HHIH hIhH`H \ & b b \`qHH`H8H`` jH) HHȑH` t &H &` jH8H7H)  5G#)L K - #$)I HJ(J#JJh'`귍V鷍뷍LA ( 3 ) Ȍ `뷭 /L -VDVq(ED = 80r8r+ h- D ( ( L 'V t'A$"N"ī10070'~':(4);"FP":':(4);"FP":1:load DOS from this diskB.'7000:get drive and slot and driveb8'6000:test drive capacity |B'4000:get init file L'5000:format disk V':HI:"FORMAT ANOTHER DISK? (Y/N) ";`'1000: get an upper case characterj'A$"Y"A$"J"ī100101:LE:I:"*";::=#HI2:LE1:" DOS 3.3 FORMATTER"h#HI4:LE8:"VERSION ";VE;".";(FC3)#HI6:LE1:" FOR ERPHI CONTROLLER"#' Begin of Main Program -----------------------------'9000:write titel $'XX0İ8000:XXM DISK"|10110A(# titel ---------------------------------P2#::(12)p<#(27);(17):(4);"PR#0":F#LE5:HI2:DO8P#HI:LEZ#I1402LE:"*";::d#IHI1HIDO1:39LE:"*":n#I39LELE1:I:"*";::x#IHIDO1HI3:LE(SL$)4:DR$;2LE(SL$)(DR$)5:DT$MDT$"1"DT$"2"ī7070gDR(DT$)("0"):DR;m@ load DOS --------------------------------JCM,2TFC^(CM5)0ıhDO5:LE:"UNABLE TO READ DOS"rDO7:LE:"FROM PROGRAVE ";DR;" AND DRIVE ";DR2 TX get slot and drive -------------------------wbHIDO2:LE:"FORMAT DISK IN"lSL$"SLOT:":DR$"DRIVE:"vHIDO3:LE:SL$;LE(SL$)1:ST$ST$"1"ST$"7"ī7040SL(ST$)("0"):SLHIDOcapacity ------------------------VzCM,0:CM1,SL:CM2,DR: command, slot, drive ^FCTK(CM4):" (";TK;" TRACK DRIVE)"TK70ī6080A(CM6):AA8(A8)A4ĖLE:TK2;" TRACKS/SIDE, DOUBLE SIDED"TK80ĖLE:"USED AS DRI1000: get an upper case character; A$"Y"A$"J"ıZ CM,1: format command t 1144SL128(DR1),0| FC (CM5)0ĖLE:"FORMATTING ERROR":5080 LE:"FORMATTING DONE" "PRESS ANY KEY TO CONTINUE":A$::!p test drive A$"R"ī4160, ^A$"E"ĹOS3394,20:A$EE$K hA$"B"ĹOS3394,52:A$BB$i rA$"R"ĹOS3394,6:A$RR$ |HIDO10:LE:FF$;A$;") "   format disk -------------------------------- 10:"READY TO GO? (Y/N) ";$ I1(C$):OS6516I,((C$,I,1)):E "I(C$)33:OS6517I,160:I ,FF$"HELLO COMMAND (":BB$"BRUN":RR$"RUN":EE$"EXEC" 6X1A$"R":4210 @HIDO10:LE:FF$;RR$;" ";BB$;" ";EE$;")"; J1000: get upper case character TA$"E"A$"B"VO$""ī4070/ Y1(VO$):CM3,Y1BY(Y1BY)A Y1BYī4000 H$"HELLO FILE NAME: ":HIDO8:LE:H$;:"";A$:C$"":X0 A$""A$"HELLO":HIDO8:LE(H$):A$:X1 I1(A$):B$(A$,I,1) (B$(0))128C$C$((B$)128) I# ----------------@ A$:A$A$(0):(A$)("_")A$((A$)32)O A$(A$,1)Y A$:  get init file ------------------------------- HIDO6:LE10:" " HIDO6:LE:"VOLUME NR: (";(CM3); ") ";VO$ / DOS 3.3 Formatter for Erphi-ControllerH (C) ERPHI 18.10.84|32768:FC5593:CMFC4:begin of assembler part(OSFC2599: begin of buffer for dos 2VE5: VERSIONSNUMMER<XX0:BY256F10000  get an upper case character - 0JJ!.)/+,    `   ` 0 C I C ɀ L L% " '  ԠμϠŠ` m LӍ kh ݌݈݉hHx kLd  $5` `HHHbhh`p\aݏ )L X+ I ɛgɸɱH h) ] ɛ;ɳɱH h) Labcs LŠΠԠŠ ŠӍL ݌݈݉hHx kLd  $5` `HHHbhh`h`pɿ aݬ )L X # # ɛ[ɸɱH h 2 # ɛ9ɳɱH h) aI #L/ `ŠΠԠ L K - #$)I HJ(J#JJh'` ]HHVHHHlA + 1 ) ȘH  H` ]HHH -L -VDVq(ED . )0r8r hנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠL 'V t'A$"N"ī10070'~':(4);"FP":':(4);"FP":1:load DOS from this diskB.'7000:get drive and slot and driveb8'6000:test drive capacity |B'4000:get init file L'5000:format disk V':HI:"FORMAT ANOTHER DISK? (Y/N) ";`'1000: get an upper case characterj'A$"Y"A$"J"ī100101:LE:I:"*";::=#HI2:LE1:" DOS 3.3 FORMATTER"h#HI4:LE8:"VERSION ";VE;".";(FC3)#HI6:LE1:" FOR ERPHI CONTROLLER"#' Begin of Main Program -----------------------------'9000:write titel $'XX0İ8000:XXM DISK"|10110A(# titel ---------------------------------P2#::(12)p<#(27);(17):(4);"PR#0":F#LE5:HI2:DO8P#HI:LEZ#I1402LE:"*";::d#IHI1HIDO1:39LE:"*":n#I39LELE1:I:"*";::x#IHIDO1HIVE ";DR;" AND DRIVE ";DR2 TX get slot and drive -------------------------wbHIDO2:LE:"FORMAT DISK IN"lSL$"SLOT:":DR$"DRIVE:"vHIDO3:LE:SL$;LE(SL$)1:ST$ST$"1"ST$"7"ī7040SL(ST$)("0"):SLHIDOcapacity ------------------------VzCM,0:CM1,SL:CM2,DR: command, slot, drive ^FCTK(CM4):" (";TK;" TRACK DRIVE)"TK70ī6080A(CM6):AA8(A8)A4ĖLE:TK2;" TRACKS/SIDE, DOUBLE SIDED"TK80ĖLE:"USED AS DRI1000: get an upper case character; A$"Y"A$"J"ıZ CM,1: format command t 1144SL128(DR1),0| FC (CM5)0ĖLE:"FORMATTING ERROR":5080 LE:"FORMATTING DONE" "PRESS ANY KEY TO CONTINUE":A$::!p test drive A$"R"ī4160, ^A$"E"ĹOS3394,20:A$EE$K hA$"B"ĹOS3394,52:A$BB$i rA$"R"ĹOS3394,6:A$RR$ |HIDO10:LE:FF$;A$;") "   format disk -------------------------------- 10:"READY TO GO? (Y/N) ";$ I1(C$):OS6516I,((C$,I,1)):E "I(C$)33:OS6517I,160:I ,FF$"HELLO COMMAND (":BB$"BRUN":RR$"RUN":EE$"EXEC" 6X1A$"R":4210 @HIDO10:LE:FF$;RR$;" ";BB$;" ";EE$;")"; J1000: get upper case character TA$"E"A$"B"VO$""ī4070/ Y1(VO$):CM3,Y1BY(Y1BY)A Y1BYī4000 H$"HELLO FILE NAME: ":HIDO8:LE:H$;:"";A$:C$"":X0 A$""A$"HELLO":HIDO8:LE(H$):A$:X1 I1(A$):B$(A$,I,1) (B$(0))128C$C$((B$)128) I# ----------------@ A$:A$A$(0):(A$)("_")A$((A$)32)O A$(A$,1)Y A$:  get init file ------------------------------- HIDO6:LE10:" " HIDO6:LE:"VOLUME NR: (";(CM3); ") ";VO$ / DOS 3.3 Formatter for Erphi-ControllerH (C) ERPHI 18.10.84|32768:FC5593:CMFC4:begin of assembler part(OSFC2599: begin of buffer for dos 2VE5: VERSIONSNUMMER<XX0:BY256F10000  get an upper case character -            L M / #$)I HJ(J#JJh'` gHHVHHHvA + ; ) ȘH  H` gHHH 7L /VDVq(ED . )0r8r HI`z# 0 м q) ''`HHIH hIhH` Lx 'V t'A$"N"ī10070'~':(4);"FP":':(4);"FP":1:load DOS from this diskB.'7000:get drive and slot and driveb8'6000:test drive capacity |B'4000:get init file L'5000:format disk V':HI:"FORMAT ANOTHER DISK? (Y/N) ";`'1000: get an upper case characterj'A$"Y"A$"J"ī100101:LE:I:"*";::=#HI2:LE1:" DOS 3.3 FORMATTER"h#HI4:LE8:"VERSION ";VE;".";(FC3)#HI6:LE1:" FOR ERPHI CONTROLLER"#' Begin of Main Program -----------------------------'9000:write titel $'XX0İ8000:XXM DISK"|10110A(# titel ---------------------------------P2#::(12)p<#(27);(17):(4);"PR#0":F#LE5:HI2:DO8P#HI:LEZ#I1402LE:"*";::d#IHI1HIDO1:39LE:"*":n#I39LELE1:I:"*";::x#IHIDO1HI3:LE(SL$)4:DR$;2LE(SL$)(DR$)5:DT$MDT$"1"DT$"2"ī7070gDR(DT$)("0"):DR;m@ load DOS --------------------------------JCM,2TFC^(CM5)0ıhDO5:LE:"UNABLE TO READ DOS"rDO7:LE:"FROM PROGRAVE ";DR;" AND DRIVE ";DR2 TX get slot and drive -------------------------wbHIDO2:LE:"FORMAT DISK IN"lSL$"SLOT:":DR$"DRIVE:"vHIDO3:LE:SL$;LE(SL$)1:ST$ST$"1"ST$"7"ī7040SL(ST$)("0"):SLHIDOcapacity ------------------------VzCM,0:CM1,SL:CM2,DR: command, slot, drive ^FCTK(CM4):" (";TK;" TRACK DRIVE)"TK70ī6080A(CM6):AA8(A8)A4ĖLE:TK2;" TRACKS/SIDE, DOUBLE SIDED"TK80ĖLE:"USED AS DRI1000: get an upper case character; A$"Y"A$"J"ıZ CM,1: format command t 1144SL128(DR1),0| FC (CM5)0ĖLE:"FORMATTING ERROR":5080 LE:"FORMATTING DONE" "PRESS ANY KEY TO CONTINUE":A$::!p test drive A$"R"ī4160, ^A$"E"ĹOS3394,20:A$EE$K hA$"B"ĹOS3394,52:A$BB$i rA$"R"ĹOS3394,6:A$RR$ |HIDO10:LE:FF$;A$;") "   format disk -------------------------------- 10:"READY TO GO? (Y/N) ";$ I1(C$):OS6516I,((C$,I,1)):E "I(C$)33:OS6517I,160:I ,FF$"HELLO COMMAND (":BB$"BRUN":RR$"RUN":EE$"EXEC" 6X1A$"R":4210 @HIDO10:LE:FF$;RR$;" ";BB$;" ";EE$;")"; J1000: get upper case character TA$"E"A$"B"VO$""ī4070/ Y1(VO$):CM3,Y1BY(Y1BY)A Y1BYī4000 H$"HELLO FILE NAME: ":HIDO8:LE:H$;:"";A$:C$"":X0 A$""A$"HELLO":HIDO8:LE(H$):A$:X1 I1(A$):B$(A$,I,1) (B$(0))128C$C$((B$)128) I# ----------------@ A$:A$A$(0):(A$)("_")A$((A$)32)O A$(A$,1)Y A$:  get init file ------------------------------- HIDO6:LE10:" " HIDO6:LE:"VOLUME NR: (";(CM3); ") ";VO$ / DOS 3.3 Formatter for Erphi-ControllerH (C) ERPHI 18.10.84|32768:FC5593:CMFC4:begin of assembler part(OSFC2599: begin of buffer for dos 2VE5: VERSIONSNUMMER<XX0:BY256F10000  get an upper case character - aI꽌ɪVɭYY 꽌ɪ\8`꽌ɪɖG*F%F,EGзЮ꽌ɪФ`oqKqp8o8Iqiq  W <=>?8|HhHh    VY'YVꪽ'     `Hh`8`0($ p,&"  !"#$%&'()*+,-./0123456789:;80^݌Hh m m݌   A nD n nAEDEHJh ~   `HJ݌h Hh݌`"-EE8`` h !r h- Lr8`-0ة`HHJJ#( J hJHJh L hh H݂݄݆݀ hq`'i݊'݉`( '`x'`HHH L HHHȑH 7  \`  VDq(ED M 1E)0r8r h- DD ʩ8 ݈(`Ex F @A0rE8 : :Hh hL[آO  'V x (HO h`  ?HHVHHHNA A+  ) ȘH  H ` ?ŠٯΩŠٯΩΠΧԠĠ͠ɯϠŠϠŠϠˠŠΧԠ٠ҠˠɯϠҠΠ®éɠȍԠˠ΍ԠŠŠҾϠŠҾϧϠĠάάé٠ϠԠӠٯΩŠ ʽ 8`2APe{( G u9 u9 u9`ϭ 4B-` ɛ)`H h`H  v h#  v 8` a  (`  `ҠҠɠˠōԈ W  ` W ? `J m ` a @ ɍ#۰ɠɬԝ ɩ )`ɈH h 8` a  ɍH  v h`!f9  L  H h` *  ( , 8  ( `` r a ɳɱ )` ݌݈ @)` a d ɍɺɰ Պ 1 ) m !m  )m   ` ( D Li  v LLD?ɷ ɿ0Ȣe w V KFaݬ 2aݯ aݲ ݵ 8,` kLHHHɢP   j a ɸɱ)H h L éȠ / X       L    L X G P 2 9P (P K  I   C  r a (   -        n s WͿ RKFTxUs L{Ȍ|ȌȌȌȌLĠč34 3 2 1LӍ 2 ɍɛɳɱH h) `  8`m a*r p  `L ݌݈݉hHx kLdHHHbhh`  $5` `  `ŠΠÍԠŠ " E  E  2 I LɿLg? Z ʎWZ`a݆ 2   )8`xH h(8`(` 8IMI ` X  ɍAɛ=ɸɱH h   CxH h(L .58A8IMI ` aI꽌ɪVɭYY 꽌ɪ\8`꽌ɪɖG*F%F,EGзЮ꽌ɪФ`oqKqp8o8Iqiq  W <=>?8|HhHh    VY'YVꪽ'     `Hh`8`0($ p,&"  !"#$%&'()*+,-./0123456789:;80^݌Hh m m݌   A nD n nAEDEHJh ~   `HJ݌h Hh݌`"-EE8`` h !r h- Lr8`-0ة`HHJJ#( J hJHJh L hh H݂݄݆݀ hq`'i݊'݉`( '`x'` L PéȠ / X       L    L X O  ; @   (   T  I   C  { j (   6 L[آO  'V x (HO h`  ?HHVHHHNA A+  ) ȘH  H ` ?ŠŠٯΩŠٯΩΠΧԠĠ͠ɯϠŠϠŠϠˠŠΧԠ٠ҠˠɯϠҠԠΠîéɠȍԠˠ΍ԠŠŠҾϠŠҾϧϠĠάάé٠ϠԠӠٯΩ U   ʽ 8`2APe{( P u9 u9 u9`ϭ 4B-` ɛ)`H h`H   h,   8` j  (`  `ҠҠɠˠō ` `  ` ` H `J m ` j @ ɍ#۰ɠɬԝ ɩ )`ɈH h 8` j  ɍH   h`!f9 % )H  hH h` 3  1 5 8  1 `` r j ɳɱ )` ݌݈ @)` j d ɍɺɰ Պ 1 ) m !m  )m   ( D Lj   LLD?ɷ ɿ0Ȣn V KFaݵ 2aݸ aݻ ݾ 8,` kLHHHɢP    j j ɸɱ L PéȠ / X       L    L X O  ; @   (   T  I   C  { j (   6       n s WͿ RKFTxUs L{Ȍ|ȌȌȌȌLĠč34 3 2 1L ŠӍC  ɍɛɳɱH h) ` ' 8`ma*rp `L ݌݈݉hHx kLdHHHbhh`  $5` ` `ͳΠĠéɠȍԠ- " E  E  2Z LɿLg?ZʎWZ`a݆2 )8`xH h(8`(` 8IMI ` X /  ɍAɛ=ɸɱH h !! ! CxH h(L .58A8IMI `"