ERÚQÿ” - ‰.LION ;" ÃÏÐÙ "(‰.LIOFF2-<;‚STAND:‚05/11/86'F-"P;DRIVEINITIALISATION:SCHICKEZ;COPYROUTINENACH$8000d-nCOPYSTƒJSRLOCSPEEDYx‰JSRDRVINIT‚‰JSRTEXTOUT%Œ‰.AS'STATUSOK.PRESS'–‰.HXEA ‰JSRRETURNª-´BIGST„LDA#BIGST¾‰STA$CÈ‰LDA/BIGSTÒ‰STA$D Ü‰LDX#$FFæ‰TXSð‰LDX#20ú‰LDA#0.1‡STAMESSAGE,X‰DEX‰BPL.1"‰JSROPENSCR,‰JSRSETSC6‰JSRMENUDL‚LABEL"S"@‰JSRTEXTOUTJ‰.BL7,$9B(T‰.DA" (C) COPY DISK",#$9B+^‰.DA" (M) MENUE",#$9B,#$EAh-Hr‰LDARDSKSTAT;ISTDIEKOMPLETTEDISKETTEINDIERAMDISKGEGANGEN?|‰BEQPH1†‰JSRTEXTOUT)‰.DA" (W) WRITE FROM",#$9B,š‰.DA" RAMDISK",#$9B,#$EA¤-®PH1†JSRGETKEY¸‰CMP#'CÂ‰BEQPH2Ì‰CMP#'MÖ‰BNE.1à‰JMPMENUEê.1‡CMP#'Wô‰BNEPH1Hþ‰LDARDSKSTAT;ISTDIEKOMPLETTEDISKETTEINDIERAMDISKGEGANGEN?‰BEQPH1-;SCHREIBEAUSRAMDISK&- 0‰LDA#$7D:‰STATANDEMD‰JSREOUT„;CLEARSCREENN‰LDA#0 X‰STARSECb‰STARSEC+1l‰STASTRACKv‰LDA#40€‰STATRACKNUM Š‰JSRDEST”‰LDAPDESTž‰JSRBACKUP¨‰JMPCOPYEND²-¼TANDEMƒ.HX00Æ-!Ð;COPYMIT1ODER2LAUFWERKENÚ-äPH2†LDAPSOURCEî‰CMPPDESTø‰BNE.1‰JMPPH3 .1‡LDA#0'‰STATANDEM‚;COPYMIT2LAUFWERKEN ‰JSRTEXTOUT*‰.HX7D9B9B9B9B9B:4‰.DA"INSERT DISKS, PLEASE AND HIT RETURN",#$9B,#$EA>‰JSRRETURNG H‰LDA#$7D R‰JSREOUT \‰JMPSDRVf-pPH3†LDA#1z‰STATANDEM„‰JSROPENSCRŽ‰JSRMENUDL˜‰JSRSOURCE¢- ¬;COPY TEIL 1: DATENEINLESEN¶;DASTRACK0KOMMANDOWIRD À;BENUTZT,UMEINEKOPF-POSI-Ê;TIONIERUNGZUVERMEIDENÔ-"ÞSDRV…LDAPSOURCE;SOURCEDRIVE"è‰LDX#TRK00‚;SPRUNGVECTORAUF)ò‰LDY/TRK00‚;TRACK0EINSPRUNGSETZEN>ü‰CLC‰;CARRY=1BEDEUTETDIREKTERUECKMELDUNGVOMLAUFWERK‰JSRDRVJMP ‰LDA#0†;TRACKREGISTERAUF0‰STATRACKNUM$‰STALTRACK.‰STASTRACK 8‰STARSECB‰STARSEC+1L-V;NOTE:TRACKNUMISTDAS`;AKTUELLETRACKREGISTER!j;LTRACKUNDSTRACKMARKIERENt;LOWERUNDHIGHERTRACK!~;RAMDISKFLGKENNZEICHNETDIEˆ;VERWENDETERAMDISK.+’;RAMDISKFLG=0BEZEICHNETKEINE‰RAMDISK;œ;INDASRAMDISKFLGSOLLTEKEIN‰WERTGELADENWERDEN,DA+¦;SONSTDERRECHNERABSTUERZENŠKOENNTE!>°;UNTER'RDSKPAR0'SINDDIEPARAˆMETERWIEFOLGTABGELEGT:º;‡"Ä;RDSKPAR0+0/+1=RAMDISKSECTORÎ;RDSKPAR0+2/+3=BUFFER.Ø-âL991…JSRESCCHECKìL88†LDX#SIOT2ö‰LDY/SIOT2‰JSRSIOINIT0 ‰JSRESCCHECK-6;SIOT2=COM$54=>READTRACK+‰ANALYSISFUNCTION. (;MIT:;2;30A=XSAV,30B=TRACKNUMŽCONSTAT=STATUSOFOPERATION<-.F‰LDATRACKNUM;XSAV=$30AISTNICHTNOETIG6P‰STA$30B…;WEILESDURCHKOMMANDO$54GESETZTWIRDZ‰LDAPSOURCE‚;SOURCEDRIVE d‰STA$301n‰JSRMAINSIO)x‰BPL.77…;FEHLERBEIDERAUSFUEHRUNG?‚‰JSROPENSCRŒ‰JSRTEXTOUT–‰.HX9B9B9B9B. ‰.AS-'FATALDRIVEERROR,PLEASEREBOOT'ª‰.HXEA ´‰LDA#$FF ¾‰STA$244È‰.HX02Ò-Ü.77†LDACONSTATæ‰BEQ.78ð‰JSRTEXTOUTú‰.HX7D9B9B9B9B9B5‰.DA" DRIVE DOOR NOT CLOSED, ",#$9B,#$EA‰JSRRETURNG‰JMPBIGST"-.,.78†LDA#0†;RAMDISKISTMITDATENGEFUELLT-6‰STARDSKSTAT;SOWIRDESNICHTGEBRAUCHT@;(J‰LDX#SIO2TAB;INITSIOREADCOMMANDT‰LDY/SIO2TAB^‰JSRSIOINIT0h‰LDAPSOURCE‚;SOURCEDRIVE r‰STA$301=|‰LDA#HEADERWA;SETZEARBEITSBUFFERAUFHEADERWORKAREA†‰STARDSKPAR0+2 ‰STA$304š‰LDA/HEADERWA¤‰STARDSKPAR0+3 ®‰STA$305¸-Â‰LDA#0 Ì.1‡PHA8Ö‰JSRMAINSIO;UEBERTRAGEDENLAUFWERKSHEADERBUFFER3à‰LDA#$40„;ZUMCOMPUTERHEADERBUFFERWORKAREA%ê‰STA$303„;REINITSIOREADSTATUS4ô‰JSRADDBUF‚;INCREMENTBUFFERUNDSECTORMIT$80þ‰PLA‰TAX‰INX‰TXA&‰CPX#3†;3PAGESEMPFANGEN?0‰BCC.1†;NEIN:->D;DERHEADERBUFFERDESLAUFWERKSˆISTJETZTIMCOMPUTERZUR?N;FREIENAUSWERTUNG.ESSINDALLˆERDINGSNOCHALLEDATENINX;DIERAMDISKZUSICHERN.b-+l‰CLC‰;CARRY=0-BILDSCHIRMNEUAUFBAUENv‰JSRSETPAR0€;Š‰JSRSPR…;TEXT"READING"”-<ž;EINGELESENEHEADERINFO'SŽWEITERINRAMDISKUEBERTRAGEN¨-²‰LDATRACKNUM¼‰ASLÆ‰TAY Ð‰LDARSECÚ‰STARDSKPAR0-ä‰STATRACKTAB,Y;STARTSECTORDERRAMDISK%î‰LDARSEC+1‚;INTABELLEEINTRAGENø‰STARDSKPAR0+1‰STATRACKTAB+1,Y-‰LDA#3 .2‡PHA/*‰LDA#1†;ACCU=1-SCHREIBEDATENINRAMDISK4‰CLC%>‰JSRRDSKVER;RAMDISKVERWALTUNG.H‰BMIRDERR&R‰JSRADDBUFR;INCREMENTPARAMETER\‰PLAf‰TAXp‰DEXz‰TXA„‰BNE.2Ž-˜‰LDAFORKEN‚;FORMAT1¢‰BEQINCTRK‚;FORKEN=0BEDEUTETUNFORMATIERT¬‰LDADLEN„;DATENLAENGE¶‰ORADLEN+1À‰BEQINCTRKÊ-Ô‰LDAPSOURCE;SOURCEDRIVEÞ‰JSRLOADRECè‰BCSRDERRò‰JMPINCTRKüRDERR„JSRCLRBASE, ‰LDAPSOURCE;SOURCEDRIVEMOTORSTOPPEN ‰JSRDEST! ‰LDAPDESTƒ;DESTINATIONDRIVE$ ‰JSRBACKUP. ‰LDA#0 8 ‰STARSECB ‰STARSEC+1L ‰INCTRACKNUMV ‰LDATRACKNUM` ‰STASTRACKj ‰JSRSOURCE t ‰JMPL991~ INCTRKƒINCTRACKNUMˆ ‰LDATRACKNUM’ ‰CMP#40 œ ‰BCSSHIT¦ ‰JMPL88° -+º SHIT…LDA#$FF„;RAMDISKUSEDFLAGSETZENÄ ‰STARDSKSTAT Î ‰JSRDESTØ ‰LDAPDESTâ ‰JSRBACKUPì -ö COPYEND‚LDAPDEST ‰LDX#MOTOFF ‰LDY/MOTOFF ‰SEC ‰JSRDRVJMP( -2 ‰LDX#20< .1‡LDAMCOPYTERM,XF ‰STAMESSAGE,XP ‰DEXZ ‰BPL.1d ‰JSRRETURNn ‰JMPBIGSTx - ‚ MCOPYTERMŒ ….AT'‚COPYTERMINATEDƒ'– - ;BUFFERZURUECKSCHREIBEN!ª -´ SRCDRVƒ.HX00¾ -È ;BACKUPFUNCTION:Ò ;---------------Ü ;INCLUDES:æ ;DATATRANSFERð ;FORMATING/REFORMATINGú ;TRACKPOSITIONING;ERRORMESSAGES-BACKUPƒSTASRCDRV"‰LDATRACKNUM;TRACKNUMMER&,‰STALTRACKƒ;INVARIABLESCHREIBEN6‰LDASTRACK@‰STATRACKNUM.J.80†LDATRACKNUM;SETZETRACKSTARTSECTORT‰ASLŠ;IMRAMDISKHANDLER^‰TAYh‰LDATRACKTAB,Y r‰STARSEC|‰LDATRACKTAB+1,Y†‰STARSEC+1-!š;LESE3HEADERINFOSEKTOREN¤;AUSDERRAMDISKINDIE®;HEADERWORKAREA¸-Â‰JSRSETSECRÌ‰LDA#HEADERWAÖ‰STARDSKPAR0+2à‰LDA/HEADERWAê‰STARDSKPAR0+3ô‰JSRESCCHECKþ‰LDA#3 .2‡PHA‰LDA#0†;ACCU=1READ‰CLC#&‰JSRRDSKVER;RAMDISKVERWALTUNG0-:;NOTE :!D;NACHAUFRUFDERRDSVERFUNK-#N;TIONKANNEINFEHLERAUFTRETEN X;DIESERFEHLERENSTEHTDURCHb;DISKREAD!l-%v‰JSRADDBUFR;INCREMENTPARAMETER€‰PLAŠ‰TAX”‰DEXž‰TXA¨‰BNE.2(²‰SEC‰;SETPAR0OHNEBILDSCHIRMAUFBAU¼‰JSRSETPAR0Æ‰JSRSPW…;TEXT"WRITING"Ð-Ú‰LDAFORKEN‚;TESTEFORMATä‰BNE.1†;FORMATIERT!î-ø;PROGRAMM NACHSCHREIBEN - ‰LDX#SIOT6‚;REFORMATTRACK ‰LDY/SIOT6 ‰JSRSIOINIT0* ‰LDASRCDRV 4 ‰STA$301> ‰LDATRACKNUM H ‰STA$30BR ‰JSRMAINSIO\ ‰JMP.4f -p ;TRACKNUMBER AT $30Bz -#„ .1‡LDX#SIOTƒ;SIOWRITECOMMANDŽ ‰LDY/SIOT˜ ‰JSRSIOINIT0¢ ‰LDASRCDRV ¬ ‰STA$301#¶ ‰LDA#HEADERWA;SETZEWORKAREA À ‰STA$304Ê ‰STARDSKPAR0+2Ô ‰LDA/HEADERWA Þ ‰STA$305è ‰STARDSKPAR0+3ò ‰LDA#HEADBUF ü ‰STA$30A‰LDA/HEADBUF ‰STA$30B‰LDA#3$.20†PHA.‰JSRMAINSIO8‰LDA#$80„;REINITB‰STA$303„;WRITEL‰JSRADDBUF‚;CALC.BUFV‰PLA`‰TAXj‰DEXt‰TXA‰;3SECTOREN~‰BNE.20…;UEBERTRAGEN?ˆ-’;HEADERINFOKOPIERTœ;TEST,OBDATENIMBUFF=0¦-°‰LDADLEN„;MITZ=0º‰ORADLEN+1‚;=>DLEN=0Ä‰BEQ.4Î‰LDASRCDRVØ‰JSRSAVREC+â.55†LDX#SIOT5‚;SCHREIBETRACKFUNKTIONì‰LDY/SIOT5ö‰JSRSIOINIT0‰LDASRCDRV‚;SELECTDRIVE ‰STA$301‰LDAFORKEN ‰STA$30A(‰LDATRACKNUM 2‰STA$30B<‰JSRMAINSIO‚;FROMBUFF‰JSRERRSYSP‰BCC.5Z‰LDA#0d‰STACONSTATn-x.5‡LDACONSTAT‚‰BNE.55Œ.4‡INCTRACKNUM–‰LDATRACKNUM3 ‰CMPLTRACK‚;STRACKISTUMEINBYTEZUGROSS!*ª‰BCC.92…;DARUMSPRINGEICHAUFBCC!´‰DECTRACKNUM¾‰RTSÈ.92†JMP.80Ò-$ÜMFORM1ƒ.AT'FATALWRITEERROR‚'%æMFORM2ƒ.AT'ILLEGALFORMATERROR'%ðMFORM3ƒ.AT'ERRORDURINGWRITING'úMFORM4ƒ.AT'ƒVERIFY‚ERROR„';(WTAB….DAMFORM1,MFORM2,MFORM3,MFORM4-"ERRSYSƒLDXCONSTAT,‰CLC6‰BEQ.2@‰DEXJ‰TXAT‰ASL^‰TAXh‰LDAWTAB,Xr‰STADISPLAY|‰LDAWTAB+1,X†‰STADISPLAY+1‰LDY#20š.1‡LDA(DISPLAY),Y¤‰STAMESSAGE,Y®‰DEY¸‰BPL.1Â‰JSRRETURNGÌ‰LDACONSTATÖ‰CMP#1à‰CLCê‰BEQ.2ô‰SEC þ.2‡RTS-ESCCHECKLDA$2FC ‰CMP#$1C&‰BEQ.1 0‰CMP#$FF:‰RTSD.1‡LDA#$FF N‰STA$2FC X‰LDX#$FFb‰TXSl‰JMPBIGSTv- €MREADŠ….AT'†READING‡' ”MWRITEž….AT'†WRITING‡'¨-²SPR†LDX#20¼.1‡LDAMREAD,XÆ‰STAMESSAGE,XÐ‰DEXÚ‰BPL.1ä‰RTSî-øSPW†LDX#20.1‡LDAMWRITE,X‰STAMESSAGE,X‰DEX ‰BPL.1*‰RTS4->SOURCEƒLDAPDESTH‰LDX#MOTOFFR‰LDY/MOTOFF\‰SEC‰;QUITf‰JSRDRVJMPp‰LDATANDEMz‰BNE.3„‰RTSŽ.3‡LDX#20˜.1‡LDAMSOURCE,X¢‰STAMESSAGE,X¬‰DEX¶‰BPL.1À‰LDAPCHANGEÊ‰BPL.2Ô‰JMPRETURNGÞ.2‡LDAPDESTè‰LDX#DISKWAITò‰LDY/DISKWAITü‰SEC‰JSRDRVJMP‰JMPAUTOM-$STAT…LDA#0.‰STA$D20A8‰LDA$D20F B‰AND#$10L‰RTSV-`AUTOM„JSRSTATj‰BNE.1t- ~‰LDA$2FCˆ‰CMP#$1C„;ESCAPE’‰BNEAUTOM œ‰LDA#$FF ¦‰STA$2FC °‰LDA#$34º‰STA$D303Ä.2‡JSRSTATÎ‰BEQ.2 Ø‰LDA#$3Câ‰STA$D303ì‰JMPBIGST ö.1‡LDA#0‰LDX#20 .3‡STAMESSAGE,X‰DEX‰BPL.3(‰LDX#02.4‡STA$D40A<‰DEXF‰BNE.4P‰RTSZ-dDEST…LDAPSOURCEn‰LDX#MOTOFFx‰LDY/MOTOFF‚‰SEC‰;QUITŒ‰JSRDRVJMP–‰LDATANDEM ‰BNE.3ª‰RTS´.3‡LDX#20¾.1‡LDAMDEST,XÈ‰STAMESSAGE,XÒ‰DEXÜ‰BPL.1æ‰LDAPCHANGEð‰BMIRETURNGú‰LDAPDEST‰LDX#DISKWAIT‰LDY/DISKWAIT‰SEC"‰JSRDRVJMP,‰JMPAUTOM6-@RETURNG‚LDA#$FF J‰STA$2FCT.2‡JSRESCCHECK^‰BCS.2h‰JSRGETKEY r‰CMP#$9B|‰BNE.2†‰LDX#20 .3‡LDA#0š‰STAMESSAGE,X¤‰DEX®‰BPL.3 ¸‰LDA#$9BÂ‰RTSÌRETURNƒJSRRETURNG Ö‰JMPEOUTà-êSORTDRV‚LDY#1ô‰LDA#0þ.1‡ORADRIVES-1,Y‰INY‰CPY#MAXDRV+1‰BCC.1&‰CMP#00‰BNE.2:‰SECD‰RTS N.2‡LDX#0X‰LDY#1b.4‡LDADRIVES-1,Yl‰BEQ.3v‰TYA€‰STADRIVES,XŠ‰INX ”.3‡INYž‰CPY#MAXDRV+1¨‰BCC.4 ²‰STXFDRV¼‰CLCÆ‰RTSÐ-ÚSIOT7„.HX0A31014F80ä‰.DACONFIGî‰.HXFFFF0C00øCONFIGƒ.HX28010012000000‰.HX80FF000000-SELDRVƒCMPFDRV ‰BCC.1*‰BEQ.14‰SEC>‰RTS H.1‡TAYR‰LDADRIVES-1,Y \‰STA$301f‰CLCp‰RTSz-„GETKEYƒLDA$E425Ž‰PHA˜‰LDA$E424¢‰PHA¬‰RTS¶-À;SAV2+$80=BUFFER!Ê-ÔADDSECƒINCRSECÞ‰BNE.1è‰INCRSEC+1 ò.1‡RTSü-CALCS„LDADLEN„;ERRECHNE‰STAM1†;DIEAN-‰LDADLEN+1‚;ZAHLDER$‰STAM2†;SEKTOREN.-!8;(M1,M2)=(DLEN+0,+1)*(1/128)"B;BEMERKUNG:M2ISTSIGNIFICANT!L-V‰ASLM1`‰ROLM2j‰RTSt-~SETSECBUFLDA#SECBUF ˆ‰STA$30A’‰LDA/SECBUF œ‰STA$30B¦‰RTS°-?º;DERHEADERBUFFERISTJETZTINˆDIERAMDISKKOPIERTWORDEN?Ä;DERHEADERSTEHTJETZTALSO‹ZURWEITERENVERFUEGUNGOFFEN4Î;-HIERWIRDESJETZTALSSECTOR‰BUFFERGENUTZT.Ø-âLOADREC‚PHA*ì‰LDX#SIO2TAB;INITSIOREADCOMMAND.ö‰LDY/SIO2TAB‰JSRSIOINIT0 ‰PLA ‰STA$301-?(‰JSRSETSECBUF;SETZECOMPUTERPOINTERAUFLAUFWERKSBUFFER2-9<‰JSRSETSECRƒ;INRAMDISKPARAMETERLISTEUEBERTRAGEN!F-?P‰JSRCALCSƒ;ERECHNEDATENLAENGEAUSDERANZAHLDERSEKTORENZ-"d‰LDA$D301ƒ;WERT$D301SICHERNn‰PHAx.3‡LDA#1†;SCHREIBERAMDISK%‚‰SEC‰;GETBANK&BUFFERDATAONLYŒ‰JSRRDSKVER–‰BMILRERR ‰STX$304 ª‰STY$305´‰JSRMAINSIO¾-È‰LDA#$40„;READÒ‰STA$303„;STATUSÜ‰JSRINCBUF‚;CALC$30A,$30Bæ‰JSRADDSECð‰JSRSETSECRú-‰DECM2‰BNE.3‰PLA"‰STA$D301,‰CLC6‰RTS@- JLRERR„PLAT‰STA$D301^‰SECh‰RTSr-|SAVRECƒPHA†‰LDX#SIOT‰LDY/SIOTš‰JSRSIOINIT0¤‰PLA ®‰STA$301¸‰JSRSETSECBUFÂ‰JSRSETSECRÌ‰JSRCALCSÖ-à‰LDA$D301ê‰PHAô.30†LDA#0†;LESERAMDISKþ‰SEC‰JSRRDSKVER ‰STX$304 ‰STY$305&-0‰JSRMAINSIO:‰LDA#$80„;RESTORESIOD‰STA$303„;SCHREIBESTATUSN‰JSRINCBUFX‰JSRADDSECPSET…ORAPARH‰STAPARR‰RTS\-fOTAB….HX00000000p-‚BIT7¶;TRACKANALYZING=>‚BIT6À;RETRIESˆ=>‚BIT0,1,2.Ê-ÔSETPAR0‚PHPÞ‰LDAPRETRYè‰AND#7ò‰STAPARü‰LDAPVERIFY ‰AND#$80 ‰JSRPSET‰LDAPTRKAN$‰LSR .‰AND#$40 8‰JSRPSETB‰LDAPAR L‰EOR#$F8V‰STAPAR`‰JSRSETj‰LDY#$FF„;TESTEt‰LDA(DISPLAY),Y;FORMAT~‰STAFORKENˆ‰BNE.1’-œ‰PLP¦‰BCS.2%°‰LDA#1†;BEIUNFORMATIERTEMTRACK6º.0‡PHA‰;WIRDDAS'!'AUFDEMBILDSCHIRMAUSGEGEBENÄ‰TAXÎ‰LDA#1Ø‰LDYTRACKNUMâ‰JSRPUTBASEì‰PLAö‰TAX‰INX ‰TXA'‰CMP#19…;DIESERZAEHLERLAEUFTBIS#‰BCC.0†;SEKTOR18ERREICHTIST(-2‰JMPNS<.1‡PLP‰;WRITECOMMAND? F.2‡BCSNWP‰LDA#0Z‰STAYS0d‰STAYS1nL3S†JSRSETx‰LDYYS0 ‚‰LDA(DISPLAY),Y;IDSTATUSŒ‰PHA–‰INY ‰LDA(DISPLAY),Yª‰PHA‰;TRACK´‰INY¾‰INYÈ‰LDA(DISPLAY),Y;SECTORÒ‰PHAÜ‰INCDISPLAY+1;GETSECTORæ‰LDYYS1…;STATUSð‰LDA(DISPLAY),Yú‰PHA‰LDX#3 .4‡PLA‰STAOTAB,X"‰DEX,‰BPL.46-7@;ALLEWICHTIGENDATENFUEREINENSEKTORSINDJETZTJ;IMLABELOTABVORHANDEN.#T;Y=TRACK,X=SECTOR,A=STATUS^- h‰LDAOTABr‰ORAOTAB+3|‰BNEOK†‰LDA#$A‰LDXOTAB+2š‰LDYOTAB+1¤‰JSRPUTBASE®‰JMPOK1 ¸OK‡LSRÂ‰LSRÌ‰CLC Ö‰ADC#$10à‰LDXOTAB+2ê‰LDYOTAB+1ô‰JSRPUTBASEþOK1†INCYS1 ‰LDAYS0 ‰CLC ‰ADC#7& ‰STAYS00 ‰CMPFORKEN: ‰BCCL3SD NS‡JSRSETN ‰INCDISPLAY+1X ‰LDY#$7E„;GETDATENb ‰LDA(DISPLAY),Y;LAENGE l ‰STADLENv ‰INY€ ‰LDA(DISPLAY),YŠ ‰STADLEN+1” ‰RTSž -¨ NW‡LDYTRACKNUM² ‰LDX#19 ¼ ‰LDA#$80Æ ‰JSRPUTBASEÐ ‰JMPNSÚ -ä TEXTOUT‚PLAî ‰STA$0ø ‰PLA!‰STA$1 !.2‡LDY#1!‰LDA($0),Y !‰INC$0*!‰BNE.34!‰INC$1>!.3‡CMP#$EAH!‰BEQ.4 R!‰JSREOUT\!‰JMP.2f!.4‡JMP($0)p!-z!COMT0„.DA#$54,SDRV0„!COMT1„.DA#$55,SDRV1Ž!COMT2„.DA#$56,REFORM˜!-¢!SIOT….HX0C31015080‚COM50¬!‰.DABEGIN¶!‰.HXFFFF80000080À!-Ê!SIOT1„.HX0A31014C01‚COM4CÔ!‰.DA$8000Þ!‰.HXFFFF0000è!-ò!SIOT2„.HX0A31015440‚COM54ü!‰.DACONSTAT"‰.HXFFFF0100"-"SIOT3„.HX0A31014180‚COM41$"‰.DA$3000."‰.HXFFFF03008"-B"SIOT5„.HX0A31015540‚COM55L"‰.DACONSTATV"‰.HXFFFF0100`"-j"SIOT6„.HX0A31015600‚COM56t"‰.DA$3000~"‰.HXFFFF0000ˆ"- ’"SIO2TAB‚.HX0C31015240‚COM52 œ"‰.DACBUF¦"‰.HXFFFF8000°"‰.DAHEADBUFº"-Ä"CONSTAT‚.HX00Î"-Ø"SIOINIT0STXSAV1â"‰STYSAV1+1ì"‰LDY#0ö"‰LDA(SAV1),Y#‰TAY #.1‡LDA(SAV1),Y#‰STA$300-1,Y#‰DEY(#‰BNE.12#‰RTS<#-F#DRVJMPƒPHA‰;SAVDRIVENoP#‰PHPZ#‰STX$30A„;SETZESPRUNGd#‰STY$30B„;ADRESSEn#‰LDX#SIOT1x#‰LDY/SIOT1‚#‰JSRSIOINIT0;INITSIOŒ#‰PLP–#‰BCC.1 #‰LDA#$4D ª#‰STA$302´#.1‡PLA‰;GETDRIVE¾#‰STA$301„;SETNo.È#-Ò#MAINSIO‚LDA#$40Ü#‰STA$10æ#‰STA$D20E ð#‰JMP$400ú#-$;COMMANDINITILIZEROUTINE$-$COMINIT‚PHA‰;RETTEA"$‰TXA‰;X,$‰PHA‰;UND6$‰TYA‰;Y@$‰PHA‰;AUFSTACKJ$‰LDX#SIOT3‚;INITSIOT$‰LDY/SIOT3‚;MIT^$‰JSRSIOINIT0;CMD$41h$-r$‰PLA |$‰STA$305†$‰PLA $‰STA$304š$‰PLA¤$‰STA$301ƒ;DRVNO®$‰JSRMAINSIO ¸$‰LDA$301Â$‰RTSÌ$-Ö$;BILDSCHIRMAUSGABEà$-ê$EOUT…TAYô$‰LDA$E407þ$‰PHA%‰LDA$E406%‰PHA%‰TYA&%‰RTS0%-":%;HEXOUTGIBTZWEIHEXADEZIMAL"D%;ZAHLENAUS.DASBYTEMUSSIMN%;ACCUSTEHENX%-b%PHEXOUT‚PHA‰;RETTEBYTEl%‰LSR‰;MULTIPLIZIERE v%‰LSR‰;DEN€%‰LSR‰;WERTŠ%‰LSR‰;4MAL”%‰JSRHEXOUT0ž%‰PLA¨%‰AND#$F²%HEXOUT0‚CMP#10…;0-9?¼%‰BCC.1†;JAÆ%‰ADC#6†;MUSSA-F Ð%.1‡CLCÚ%‰ADC#$30„;LESEASCIIä%‰JMPEOUT„;AUSGABEî%-ø%;INITIALFLAGTELLSNOTTO!&;PROGRAMMTHEDRIVEANYMORE&-&ADDBUFƒLDA$304 &‰EOR#$80 *&‰STA$3044&‰BMIINCBUF >&‰INC$305H&INCBUFƒLDA$30A R&‰EOR#$80 \&‰STA$30Af&‰BMI.2 p&‰INC$30B z&.2‡RTS„&-Ž&OPENSCR‚JSROPENE˜&‰LDA#1 ¢&‰STA$2F0¬&‰JSRTEXTOUT ¶&‰.HX7DEAÀ&‰RTSÊ&-Ô&OPENE„LDA$E401Þ&‰PHAè&‰LDA$E400ò&‰PHAü&‰RTS'-';ADDBUFFERROUTINE:'-$'ADDBUFR‚LDARDSKPAR0+2.'‰CLC 8'‰ADC#$80B'‰STARDSKPAR0+2L'‰BCC.1V'‰INCRDSKPAR0+3`'-j'.1‡INCRSECt'‰BNESETSECR~'‰INCRSEC+1ˆ'-’'SETSECR‚LDARSECœ'‰STARDSKPAR0¦'‰LDARSEC+1°'‰STARDSKPAR0+1º'‰RTSÄ'-Î'TRACKTAB.BL80,0Ø'RSEC….HX0000â'-*ì'HEADERWA.BL$180,0‚;HEADERWORKAREAö'-6(;$180BYTESFREIERARBEITSSPEICHERFUERDENTRACK (-(DRIVESƒ.HX00000000