ERËia• -*************COPY1**(***********2-<;#F;ZERO-PAGEVARIABLENFESTLEGEN!P;DAKEINBETRIEBSSYSTEMMEHR!Z;VORHANDENIST,KOENNENFAST"d;ALLEADRESSENBENUTZTWERDENn;xSOURC„=$70‚SOUST„=$72ŒDESTN„=$71–DESST„=$73 FORMT„=$74ªRETRY„=$75´RAMDSKƒ=$76¾BYT1…=$7A/$7BÈEQUAL„=$7CÒDENS…=$7DÜCFIRSTƒ=$7EæSPFLAGƒ=$7Fð*úSPTBL„=$1C-$1FRSECA„=$60/$61RSECB„=$62/$63RSECC„=$64/$65"*,BANKS„=$666BANKNRƒ=$67@MAXBANK‚=$68JSPBYT„=$69THIMEM„=$6A^*hSLEFT„=$37rSROW…=$38|SSKIP„=$39†FBYT…=$3ADLEFT„=$3BšDROW…=$3C¤DSKIP„=$3D®FINC…=$3E¸FFIRSTƒ=$3FÂ*ÌDUNIT„=$21ÖDCOMNDƒ=$22àDSTATSƒ=$23êDBUFLOƒ=$24ôDBUFHIƒ=$25þDTIM…=$26DBYTLOƒ=$28DBYTHIƒ=$29DSECLOƒ=$2A&DSECHIƒ=$2B0;:PORTB„=$D301DTSTBYTƒ=$4000N;X;ABLOMEMKOENNENDATENb;ABGELEGTWERDENl;vLOMEM„=$400€-Š;”;DIEDISPLAY-LISTDESž;SECTOR-KOPIERERS¨;²DLIST‚.HX70707046 ¼‡.DALINE Ƈ.HX47 Ї.DAHTEXÚ‡.HX40061046 ä‡.DALINE î‡.HX7042ø‡.DADISPLY‡.HX30023070027050 ‡.HX02702002702002702046 ‡.DALINE ‡.HX46*RWLINE.DASETUP 4‡.HX1046 >‡.DALINE H‡.HX41R‡.DADLIST\-f;p;TEXTEIMBILDSCHIRMFORMATz;#„HTEXƒ.AT" sectorcopy  " Ž‡.AT-" p  ereuss "#˜LINEƒ.AT"--------------------"!¢SETUP‚.AT-" einstellen "%¬FMATIN.AT-" formatieren "%¶INSOUR.AT-" original diskette"%ÀINDEST.AT-" ziel diskette "%ÊINBOTH.AT-" disketten einlegen"#ÔDSKERR.AT-" disk fehler  "&ÞREADIN.AT-" sector "è-ò; ü;STARTDESSEKTOR-KOPIERERS;SCOPY„LDX#$FF‰TXS$‰SEI.‰LDA#DLISTDISPLAY-8‰STA$D402‚LISTSETZENB‰LDA/DLISTL‰STA$D403 V‰LDY#4`.1‡LDACOLTB,YƒFARBENj‰STA$D016,YƒSETZENt‰DEY ~‰BPL.1ˆ‰STYRAMDSK’‰LDA/SETUPœ‰STARWLINE+1¦‰JSRCLRSCR‚BILDSCHIRM°‰LDX#4ˆLOESCHENº‰STXRETRYĉLDA#$28„HIGH-SPEEDÎ.2‡STASPTBL-1,XTABELLE ؉DEX‹AUFâ‰BNE.2ˆSTANDARDì‰STXFORMTö;!;TESTENOBEINERAMDISKVOR- ;HANDENISTUNDWIEGROSS;DIESEIST;(‰LDX#$80‚KLEINE2.3‡LDA$D40BVERZOEGERUNG <‰BNE.3F‰DEX P‰BPL.3Z‰STXTSTBYTd‰DEXn‰STXPORTBx‰LDY#$F…16BANKS‚‰STYMAXBANKŒ.4‡LDYMAXBANK–‰JSRSWITCH‚DATENIN ‰STYTSTBYT‚BANKSª‰DECMAXBANKSCHREIBEN ´‰BPL.4 ¾‰LDA#$FEȉSTAPORTBÒ* ܉LDY#0 æ‰STYBYT1ð‰STYMAXBANKú*‰LDATSTBYT‚RAMDISK‰CMP#$FF„VORHANDEN?‰BNEMTEST"*,.5‡LDYMAXBANK 6‰CPY#$10 @‰BCS.6J‰JSRSWITCH‚DATENAUST‰LDATSTBYT‚RAMDISK^‰CMPBYT1„AUSLESENh‰BMI.6†UNDDABEIr‰STABYT1„MAXIMALE|‰INCMAXBANKANZAHLDER†‰JMP.5†BANKS.6‡LDA#$FEƒFESTSTELLENš‰STAPORTB¤‰BNEMTEST®*¸SWITCHƒLDAPORTB‚BANK‰AND#$23ƒEINSCHALTEN̉ORABANKTB,YÖ‰STAPORTBà‰RTSê-ô;þ;RAMDISKBANK-TABELLE!;FUERCOMPY-SHOPRAMDISKUND;130XERAMDISK;&BANKTBƒ.HXCCC8C4C08C8884800‰.HX4C4844400C080400:- DMTESTN*‰64K->00X*ˆ128K->04b*ˆ192K->08l*ˆ320K->10v-€;Š;TESTOBEINECARTRIDGEIM”;RECHNERSTECKTž;¨NO64K„LDA#$80²‰LDY$8000¼‰INC$8000ƉCPY$8000ƒ16K?ЉBEQCHRAM Ú‰LDA#$A0ä‰LDY$A000î‰INC$A000ø‰CPY$A000ƒ8K?‰BEQCHRAM ‰LDA#$C0CHRAM„STAHIMEM -*;4;TESTENWIEVIELELAUFWERKE>;ANGESCHLOSSENSINDUNDOB H;DIESELAUFWERKEHIGH-SPEEDR;FAEHIGSIND\;f‰LDA#1…ABDRIVE1p‰JSRHSCHK‚TESTEN z‰BCC.1„‰JMPSCOPY‚KEINEDISKŽ.1‡STYSOUST‚STATUS˜‰LDADUNIT¢‰STASOURC‚ORIGINAL¬‰ORA#$10ƒINATASCII ¶‰STASDNRÀ‰LDX#$40ƒKLEINEʉLDY#0…ZEIT-Ô.2‡DEYˆVEZOEGERUNG Þ‰BNE.2è‰DEX ò‰BNE.2ü‰LDXDUNIT‚DRIVE  ‰INXˆ+1 ‰TXA ‰JSRHSCHK‚TESTEN $ ‰BCS.3. ‰LDADUNIT 8 ‰BNE.4B .3‡LDASOURC‚ORIG=ZIELL ‰LDYSOUSTV .4‡STADESTN` ‰STYDESSTj ‰ORA#$10ƒINATASCII t ‰STADDNR~ ;ˆ ;MENU-BILDSCHIRMAUFBAUEN’ ;œ START„JSRCLRSCR ¦ ‰LDY#8° ‰JSRTXTOUT"º ‰.AT"Original Laufwerk.... D"Ä SDNR….AT"1" Î ‰.HXEA Ø ‰LDY#48â ‰JSRTXTOUT"ì ‰.AT"Ziel Laufwerk........ D"ö DDNR….AT"1" ‰.HXEA ; STA2…LDX#SETUP ‰STXRWLINE ( ‰LDY#1202 ‰JSRCLRSC1< ; F ‰LDY#94P ‰JSRTXTOUTZ ‰.AT"Speicher: " d ‰.HXEAn ‰LDAHIMEMƒ=C0/A0/80 x ‰AND#$60 ‚ ‰LSR‰:8Œ ‰LSR– ‰LSR‰=18/14/10  ‰LDXMAXBANKª ‰CPX#4†4BANKS ´ ‰BCC.1¾ ‰CLC È ‰ADC#12Ò .1‡CPX#8†8BANKS Ü ‰BCC.2æ ‰CLC ð ‰ADC#12ú .2‡CPX#$10„16BANKS  ‰BCC.3 ‰CLC  ‰ADC#12 " .3‡TAX, ‰LDA#4†SPEICHER-6 ‰STABYT1„GROESSE@ .4‡LDAMEMTB,XANZEIGENJ ‰STADISPLY,YT ‰INY^ ‰INX h ‰DECBYT1 r ‰BNE.4| *† ‰LDARAMDSK‚DATENIN ‰BNEBEF0„RAMDISK? š ‰LDY#125¤ ‰JSRTXTOUT® ‰.AT"™ÏÐÔÉÏÎ"!¸ ‰.AT".Von Ramdisk schreiben"  ‰.HXEA Ì ‰JMPBEF1Ö BEF0…LDASOURCƒORIG=ZIEL?à ‰CMPDESTN ê ‰BEQBEF1 ô ‰LDY#125þ ‰JSRTXTOUT ‰.AT"™ÏÐÔÉÏÎ"! ‰.AT".Laufwerke austauschen"  ‰.HXEA& BEF1…LDY#1650 ‰JSRTXTOUT: ‰.AT"™ÓÅÌÅÃÔ"D ‰.AT".....Formatieren: " N ‰.HXEAX ‰LDAFORMTƒFORMATFLAG b ‰BEQBEF2l ‰JSRTXTOUTv ‰.AT"NEIN" € ‰.HXEAŠ ‰BEQTXCOP” BEF2…JSRTXTOUTž ‰.AT" JA " ¨ ‰.HXEA² TXCOP„LDY#205¼ ‰JSRTXTOUTÆ ‰.AT"™ÓÔÁÒÔ""Ð ‰.AT"......Diskette kopieren" Ú ‰.HXEAä ;î GETBEFƒJSRGETKEYø ‰CMP#5†SELECT? ‰BEQFORMAT ‰CMP#6†START? ‰BEQGOCOPY ‰LDARAMDSK‚DATENIN* ‰BEQWFRD„RAMDISK?4 ;> EXCHANƒLDYSOURCƒOPTION-H ‰LDXDESTNƒTASTER ‰STYDESTN\ ‰STXSOURCƒORIGINALf ‰TYA‰UNDZIELp ‰ORA#$10„TAUSCHEN z ‰STADDNR„ ‰TXA Ž ‰ORA#$10 ˜ ‰STASDNR¢ ‰LDYSOUST¬ ‰LDXDESST¶ ‰STYDESSTÀ ‰STXSOUSTÊ ‰JMPSTARTÔ ;Þ WFRD…LDY#203ƒVONRAMDISKè ‰STYDLEFT‚SCHREIBEN ò ‰LDX#$FFü ‰STXCFIRST‰INX ‰STXDROW‰STXDSKIP$‰STXEQUAL.‰STXFFIRST 8‰LDY#120B‰JSRCLRSC1L‰LDY#120‚ALTEANZEIGEVWFR1…LDADSBUF,X„SETZEN`‰STADISPLY,Yj‰INXt‰INY ~‰CPY#200 ˆ‰BNEWFR1 ’‰LDA#$37œ‰STADISPLY+201¦‰JMPWRITER‚ZUR°;SCHREIBROUTINEº;ÄFORMATƒLDAFORMT‚FORMATFLAGΉEOR#$FFƒINVERTIEREN؉STAFORMT â‰JMPSTA2ì;öGOCOPYƒLDASOURC‚STARTCOPY‰EORDESTN ‰STAEQUAL‚ORG=ZIEL* ‰LDY#6 (‰LDA#02‰STASPFLAG‚POINTER<‰STAFFIRST‚LOESCHENF.1‡STASLEFT,YP‰DEY Z‰BPL.1d‰STYCFIRSTn‰LDA#163„SCREEN-x‰STASLEFTƒPOSITIONEN‚‰LDA#203„DERBALKENŒ‰STADLEFTƒSETZEN –‰LDY#120 ‰JSRCLRSC1 ª‰LDA#$32´‰STADISPLY+161 ¾‰LDA#$37ȉSTADISPLY+201Ò‰STARETRY܉LDX#1†SEKTOR1æ‰STXRSECAð‰DEXú‰STXRSECA+1;BEGIN„LDAEQUALƒORG=ZIEL? ‰BEQ.2"‰LDX#INBOTH"BEIDE DSK,‰LDA#$20…EINLEGEN"6.1‡STXRWLINE@‰LDA#$20„AUFTASTEJ‰JSRHITRET‚WARTENT‰CMP#6†START? ^‰BEQ.3h‰JMPSTA2„ZUMMENUr.2‡LDX#INSOUR"ORIGINAL|‰BNE.1‡EINLEGEN"†.3‡LDACFIRST‚1.DURCH-‰BMI.4‰GANG? š‰JMPCOP3¤.4‡LDA#$53„STATUS...®‰STADCOMND¸‰LDA#4†4BYTES‰STADBYTLỎLDA#$40„READÖ‰STADSTATSà‰JSRSETBUFê‰LDYSOURCô‰JSRMOVSLO‚SIO....þ‰LDY#133„SCRPOS‰JSRTXTOUT‰.AT"Density: " ‰.HXEA&‰LDALOMEMƒSTATUSBYTE 0‰AND#$A0:‰STADENS„MERKEND‰AND#$80„MEDIUM?N‰BNEMEDIUMX‰LDA#5…INCREMENTb‰STAFINCƒFUERBALKENl‰LDALOMEMv‰AND#$20„DOUBLE?€‰BNEDOUBLE Š‰STADENS”‰JSRTXTOUTž‰.AT"SINGLE" ¨‰.HXEA²‰JMPCOPZD¼;ÆMEDIUMƒLDX#8 ЉSTXFINCÚ‰JSRTXTOUTä‰.AT"MEDIUM" î‰.HXEAø‰BEQCOPZD; DOUBLEƒJSRTXTOUT‰.AT"DOUBLE" ‰.HXEA*;4;BEISPEEDY1050KANNMIT>;2LAUFWERKENDIEZIELDISK!H;FORMATIERTWERDEN,WENNDASR;ORIGINALEINGELESENWIRD\;fCOPZD„LDAEQUALp‰BEQCOP3„ORG=ZIELz‰LDAFORMT„‰BNECOP3„NOFORMATŽ‰BITDESST˜‰BPLCOP3„NOSPEEDY¢‰JSRSETDEN‚DENSITY¬‰SECŠSETZEN¶‰JSRSETVER‚VERIFYAUSÀ‰TYA ʉBMICOP3ÔJCOP…LDA#$20„COMMAND20Þ‰STADCOMNDAUTO-FORMAT è‰LDA#0ò‰STADSTATSü‰LDYDESTN‰JSRMOVSLO‚SIO...‰TYA ‰BPLFFOK$‰JSRERRORƒFEHLER.‰BCCJCOP„VERSUCH?8‰JMPSTA2„NEUSTARTB;LFFOK…INCFFIRST‚1.DURCHG.VCOP3…LDARSECAƒSTART-`‰STARSECCƒSEKTORj‰LDARSECA+1MERKENt‰STARSECC+1~‰LDYSOURCƒORG-DRIVEˆ‰STYDUNIT’‰BITSPFLAG‚HI-SPEED œ‰BPL.1¦‰LDA#$28„SLOW°‰STASPTBL-1,Yº.1‡JSRSETBUF‚BUFFERÄ.2‡LDXSLEFT…SETZEN ΉLDYSROW؉LDASSKIPâ‰JSRDFUELƒBALKENì‰STASSKIP„AKTUALI-ö‰STYSROW†SIEREN‰STXSLEFT .3‡LDX#READIN"LESE -"‰STXRWLINE‰LDA#$40„GETBYTES(‰STADSTATS2‰LDARSECAƒSEKTOR#<‰STADSECLOF‰LDARSECA+1P‰STADSECHIZ‰LDA#$52„READd‰STADCOMNDn‰JSRSETLEN‚LAENGEx‰JSRMASTER‚SIO... ‚‰BCC.5Œ‰BITSPFLAG‚ERROR? –‰BPL.4 ‰JSRERRORª‰CMP#6†START? ´‰BEQ.3¾‰CMP#5†SELECT? ȉBEQ.5Ò‰JMPSTA2„NEUSTARTÜ;æ.4‡LDYDUNITð‰LDASPTBL-1,Yú‰STASPBYT ‰LDA#$28‰STASPTBL-1,Y‰DECSPFLAG "‰BNE.3,.5‡JSRENDCHK‚ENDE? 6‰BCC.2@;J;DATENSCHREIBENT;^WRITERƒLDARSECAƒSTART-h‰STARSECB„SEKTORr‰LDARSECA+1|‰STARSECB+1†‰LDAEQUALƒORG=ZIEL?‰BNECOPW1š‰LDX#INDEST"ZIEL¤‰STXRWLINEƒEINLEGEN" ®‰LDA#$20¸‰JSRHITRET‚TASTE...‰CMP#5†OPTION?̉BCC.1†VERIFY:Ö‰LSR‰SELECT=EINà‰JSRSETVERƒSTART=AUSê‰JMPCOPW1ô.1‡JMPSTA2„NEUSTARTþ;COPW1„LDARSECCƒSTART-‰STARSECA„SEKTOR‰LDARSECC+1&‰STARSECA+10‰LDADESTNƒZIELDRIVE:‰STADUNITD‰BITSPFLAG‚SLOW? N‰BPL.1X‰LDYSOURCb‰LDASPBYTl‰STASPTBL-1,Yv.1‡LDACFIRST‚1.DURCHG.?€‰BPLNOFORMŠ‰LDAFFIRST‚FORMATOK?”‰BNENOFORMž‰LDAFORMTƒNOFORMAT¨‰BNENOFORM².2‡LDX#FMATIN"FORMAT.."¼‰STXRWLINEƉLDADESST ЉBPL.3Ú‰JSRSETDEN‚DENSITYä.3‡LDA#$80†SETZENî‰STADBYTLO‚$80BYTESø‰LDA#$22„COMMAND22‰BITDENS„MEDIUM? ‰BMI.5‰LDADENS„DOUBLE? ‰BEQ.4*‰ASLDBYTLO‚$100BYTES4.4‡LDA#$21„COMMAND21>.5‡STADCOMNDH‰LDA#$D5„$D500R‰STADBUFHI‚BUFFER \‰LDA#$40f‰STADSTATS‚STATUSp‰LDYDESTNz‰JSRMOVSLO‚SIO...„‰TYAŽ‰BPLNOFORM‚FORMATOK˜‰JSRERROR¢‰BCC.2†WEITER¬‰JMPSTA2„NEUSTART¶;ÀNOFORMƒLDA#$50„PUTBYTEʉSTADCOMNDÔ‰INCCFIRST‚1.DURCHG.Þ‰JSRSETBUF‚BUFFERè.1‡LDX#READIN"LESE-"ò‰STXRWLINE ü‰LDA#$80‰STADSTATS‚STATUS‰LDARSECA‰STADSECLO$‰LDARSECA+1.‰STADSECHI‚SEKTOR#8‰JSRSETLEN‚LAENGEB‰JSREMPTYƒSEKTORL‰BCS.2‰LEER?V‰JSRMASTER‚SIO...`‰BCC.2†ERROR?j‰JSRERRORt‰BCC.1†WEITER~‰JMPSTA2„NEUSTARTˆ;’.2‡LDXDLEFT œ‰LDYDROW¦‰LDADSKIP°‰JSRDFUELƒBALKENº‰STADSKIPƒAKTUALI-ĉSTYDROW„SIERENΉSTXDLEFT؉JSRENDCHK‚ENDE? â‰BCC.1ì‰PHPö‰LDADESST ‰BPL.3 ‰LDA#$51„COMMAND51‰STADCOMND‚MOTORSTOP ‰LDA#0(‰STADSTATS2‰LDYDESTN<‰JSRMOVSLO‚SIO... F.3‡PLPP‰BEQDONE„DISKENDEZ‰LDARSECBd‰STARSECAƒENDSEKTORn‰LDARSECB+1‚MERKENx‰STARSECA+1‚‰LDAEQUALƒORG=ZIEL? Œ‰BNE.4–‰JMPBEGIN .4‡JMPCOP3„WEITER...ª-