w䩨PբԠ0 )i(Ԑ䩍 &01ԭ 9 9!! 9##`L`H ԍI h@$iskformatiertmit30%%$9QPUP6c "ibosoft #/-093(/07eitere)nformationenbei#/-093(/04elpppppppBPppppppppA&ER .LIOFF.OR$2425.OFD8;SPACKER.COM(-2;SAVD8;START.001<-F*PSJMPSTARTZ.IND8;TEXT.INC}d.IND8;START.INCn.IND8;INTER.INCx.IND8;IO.INC.IND8;DIR.INC.IND8;PACK.INC.IND8;SNGPLAY.INC}- .OR$2E0; .DAS-ER.INCx.IND8;IO.INC.IND8;DIR.INC.IND8;PACK.INC.IND8;SNGPLAY.INC$ERZ .LIOFF-;SAVD8;IO.INC(-2*<IOCOM=$342FIOBUFF=$344PIOLEN=$348ZIOAUX1=$34AdIOAUX}2=$34Bn*xCIO=$E456**CLOSEF=12 OPENF=3 GETB=7 PUTB=11FORMATF=254DELETEF=33 }PROTECTF=35UNPROF=36-WHERE.HX0000LENGTH.HX0000INPCNT1.HX00!FNMOPEN.DA"D1:TESTDIRE.TXT" } .HX9B"ERRORNR.HX00,ZAHL.HX1011121314151617 6.HX1819@ERRPNT.HX00JXPOS1.HX0001020304050607T.HX }090A0B^-h*r*|*-*RoutinenzumSchliessen,*Oeffnen,LesenvonBytes,*SchreibenvonBytesund! }*FormattierenvonDatenfiles*bzwDisketten-***- *CLOSE:*Datenkanalnummer*16im* }Register.*-&*0CLOSELDA#CLOSEF:STA$342,X DLDA#0NSTAERRPNT XJSRCIO bBPL.1lJMPERROR }v.1RTS*-* *OPEN:"*Register:Datenkanal*16+*OPENspezifikation*4:Lesen*6:Directory}*8:Schreiben*9:Append*12:Update**Register:LO-Bytedes*Filenamepointers **Regis}ter:HI-Bytedes *Filenamepointers**4->*HOPENSTA$D0 RSTY$D1 \LDY#3f.10LDA($D0),YpSTAFNMOP}EN,YzINY CPY#15 BNE.10LDADISKNR ORA#$30STAFNMOPEN+1; OPEN1TXAPHA AND#$10}TAXPLA AND#$FSTAIOAUX1,X LDA#0STAIOAUX2,XLDA#FNMOPEN$STAIOBUFF,X.LDA/FNMOPEN8}STAIOBUFF+1,XBLDA#OPENFLSTAIOCOM,X VLDA#0`STAERRPNT jJSRCIO tBPL.1~JMPERROR .1RTS*}-**GETBYTES:*WHERE:PagedesBuffers*LENGTH:LaengederBytes!*Register:Datenkanal*16-}* GETBYTESLDA#GETBSTAIOCOM,X GET1LDAWHERESTAIOBUFF,XLDAWHERE+1(STAIOBUFF+1,X2LDALE}NGTH<STAIOLEN,XFLDALENGTH+1PSTAIOLEN+1,X ZLDA#0dSTAERRPNT nJSRCIO xBPL.1JMPERROR .1}RTS*-**PUTBYTES:*WHERE:PagedesBuffers*LENGTH:LaengederBytes!*Register:Datenkanal*}16-* PUTBYTESLDA#PUTBSTAIOCOM,X JMPGET1-"* ,*FORMAT:#6*Register:LO-BytederDe-}@*viceaddresse#J*Register:HI-BytederDe-T*viceaddresse!^*Register:Datenkanal*16h*r-|*FO}RMATLDA#$FF STA$2FC JSRSURE.2LDA$2FCCMP#$2BY BEQ.1CMP#$23N BNE.2 LDA#$FF S}TA$2FCJSRNOTEXTJMPDISKTAST*.1LDA#$FF STA$2FCJSRINITEXT&; 0LDX#$10:JSRCLOSED;} NLDX#$10XJSRFORMATUPb; lLDX#$10vJSRCLOSEJSRNOTEXT*JMPDISKTAST-FORMATUPLDADISK}NR ORA#$30STAFNAMEINI+1*LDA#FNAMEINISTAIOBUFF,XLDA/FNAMEINISTAIOBUFF+1,XLDA#FORM}ATFSTAIOCOM,X LDA#0STAERRPNT JSRCIO *BPL.14JMPERROR >.1RTSH*R-\FNAMEINI.DA"D1:",}#$9Bf-pSPECIALSTAIOCOM,XzLDA#FNMOPENSTAIOBUFF,XLDA/FNMOPENSTAIOBUFF+1,X LDA#0STAERR }PNT JSRCIO BPL.1JMPERROR .1RTS-* ERRORTYASTAERRORNR  CMP#133  BEQ.80  CMP#1!}36 $ BNE.81 . .80RTS8 *B .81JSRLOESCH1L JSRNOTEXT V LDY#0` .10LDAERRTXT,Yj STAWINDOW1+293,Yt INY"} ~ CPY#6 BNE.10 * LDAERRORNR LDX#0 .1INX SEC SBC#100 BCS.1 CLC ADC#100 DE#}X BEQ.2 PHA LDAZAHL,X STAWINDOW1+293,Y INY( PLA2 * < *ZEHNERF * P .2LDX#0 Z .4INXd SE$}C n SBC#10 x BCS.4 CLC ADC#10 DEX PHA LDAZAHL,X STAWINDOW1+293,Y INY * *EINER %}* PLA TAX LDAZAHL,X STAWINDOW1+293,Y * INCERRPNT" .90LDA$2FC , CMP#$FF 6 BEQ.90@ JSRL&}OESCH1J RTST ************^ ERRTXT.AT"ERROR "h -r -| KEYTAB.HX4C4A0000004B002A .HX4F0050559B490000 .'}HX560043000042585A .HX3400333601353231 .HX2C202E4E004D0000 .HX5200455900545751 .HX3900303703380000 .(}HX4648440000475341 * KEYLDX$2FC CPX#$FF BEQKEY CPX#64 BCC.1 .2LDA#$FF  STA$2FC  JMP)}KEY& .1LDA#$FF 0 STA$2FC: LDAKEYTAB,X D BEQ.2N RTSX - b KEYTAB1.HX0000000000000000l .HX52006212C232*}82A2v .HX0000000000000000 .HX710000B1FE914121 .HX0000000000000000 .HX810061C111A15131 .HX42000000B222+}7292 .HX0000000000000000 - INPUT1JSRFILETEXT LDA#11 STAINPCNT1 INPUT2LDADISKNR ORA#$10 S,}TAWINDOW2+295 ;  LDY#0 .1TYAINVERT TAX LDAXPOS1,X* TAX4 LDAWINDOW2+297,X > ORA#$80H STAWI-}NDOW2+297,XR * \ JSRKEY f CMP#1 p BNE.10z RTS .10CMP#$9B BNE.11 TYAINVERT TAX LDAXPOS1,.}X TAX LDAWINDOW2+297,X EOR#$80 STAWINDOW2+297,X JMPREAD1 .11CMP#3BACK BNE.2 TYATA/}XLDAXPOS1,XTAX $LDA#$4E.STAWINDOW2+297,X8DEY BBPL.1LINY VJMP.1 `.2SEC jSBC#$20t0}PHA~TYATAXLDAXPOS1,XTAXPLASTAWINDOW2+297,X CMP#$0A BNE.4 CPY#7 BCS.5 1}LDY#7 JMP.4.5LDY#10 .4INY CPYINPCNT1 BCC.1*(*2READ1LDX#0 <LDY#0F.1LDAWINDOW2+22}94,X PCMP#$4E ZBEQ.2 dCMP#$00 nBEQ.2xCLC ADC#$20STAFNMOPEN,YINY .2INX CPX#15 3}BNE.1; LDA#$9BSTAFNMOPEN,Y*RTS-ADC#$20STAFNMOPEN,YINY .2INX CPX#15 >ER .LIOFF-;SAVD8;INTER.INC(-2*INTERRUPT-ROUTINEN<*TASTATUR,VBI,DLIF-P*ZTASTPNT1.HX005}dTASTPNT2.HX00nKEYON.HX00xCNT1.HX03CNT2.HX10XP0.HX00XP1.HX00XP2.HX00XM0.HX00XM6}1.HX00XM2.HX00*INTERLDA#0 STA$22FSTA$D40ESTA$D400*LDA#TASTE STA$208LDA7}/TASTE "STA$209 ,LDA#$5F 6STA$222 @LDA#$E4 JSTA$223 TLDA#DL ^STA$230 hLDA/DL rSTA$231|8}* LDA#$60STA$D40ERTS-TASTELDA$D209 STA$2FC LDA#1STATASTPNT1 LDA#10 STACN9}T2*PLARTI--KEYUP1LDA$2FC &CMP#$FF 0BNE.99:LDA$D01F DCMP#7NBEQKEYUP1 XLDX:}#$FF bJMP.5l.99LDX#0v.2CMPTAST2,X BEQ.5INX CPX#49 BNE.2 LDA#$FF STA$2FCJMP;}KEYUP1.5LDA#$FF STA$2FC;;X-REG.=ZAEHLER;0-15ZAHL;RTS *TAST2.HX321F1E1A0123 .<}HX181D1B334567*.HX35303F1589AB4.HX123A2A38CDEF>.HX07060E0FH.HX1C3637<>R.HX8E8FCTRL\=}.HX0CRETf.HXBEBACTRLSDp.HX2CTABz.HX0A3EPS .HX2DT.HX5F5E5A58SH-1234.HX7ESH-S.HX>}A5CTRLM.HX76SH-<.HXCDSH-CTRL-I.HXA8CTRL-R.HXF4F7SH-CTRL-BACK>.HX92CTRL-C.HXF6SH-?}CTRL-<.HXFESH-CTRL-S.HX4ASH-P.HX4E4FSH--.HXF4F7SH-CTRL-BACK>.HX92CTRL-C.HXF6SH-DERf .LIOFF-;SAVD8;START.INC(-2*SPEICHERVORBEREITEN<*BILDSCHIRMAUFBAUENF*PPMBASE=$2000Z A}-dDL.HXF070n.DA#$42,TEXT1x; .HX7042.DAWINDOW1 .BL11,2 .HX02 .HX02 .HXC2.DA B}WINDOW2 .BL9,2*.DA#$41,DL-STARTJSRINTERIRQ'SANJSRPLAYERJSRLOESCH1JSRLOESCH2  C}LDA#0 "STA$2C8 ,LDA#$94 6STA$2C6 @LDA#$0A JSTA$2C5T* ^JMPDISKhRTSr-|LOESCH1LDA#WINDOW D}1+40 STA$D0LDA/WINDOW1+40 STA$D1* LDX#11 .1LDA#0 LDY#1.3STA($D0),YINY CPY# E}33 BNE.3 LDA$D0CLC ADC#40 STA$D0 BCC.2 &INC$D1 0.2DEX :BPL.1D*NRTSX-bLO F}ESCH2LDA#WINDOW2 lSTA$D0vLDA/WINDOW2 STA$D1* LDX#8 .1LDA#0 LDY#1.3STA($D0),YINY G} CPY#33 BNE.3 LDA$D0CLC ADC#40 STA$D0 BCC.2 INC$D1 .2DEX BPL.1**4RTS H}>-HPLAYER1LDA#$32RSTA$D000 \LDA#$52fSTA$D001 pLDA#$72zSTA$D002 LDA#$92STA$D003 L I}DA#$ADSTA$D004RTS*PLAYERJSRPLAYER1 LDA#$82 STA$2C0 STA$2C1 STA$2C2 STA$2C3 J}* LDA#3STA$D008STA$D009$STA$D00A.STA$D00B 8LDA#$FFBSTA$D00CSIZEML* VLDX#0 `TXA K}#0j.1STAPMBASE+$180,XtSTAPMBASE+$200,X~STAPMBASE+$280,XSTAPMBASE+$300,XSTAPMBASE+$380,XINX L}CPX#$80 BNE.1; LDA#3STA$D01DLDA/PMBASESTA$D407* LDX#$17.2LDA#$FF STAP M}MBASE+$180,XSTAPMBASE+$200,XSTAPMBASE+$280,X(STAPMBASE+$300,X2STAPMBASE+$380,X<INX FCPX#$49 P N}BNE.2Z* dLDA#1 nSTA$26F xLDA#$2E STA$22FRTS-COPY1LDA#WINTXT1 STA$D2LDA/WINTXT O}1 STA$D3 LDX#2 JMPCOPY*COPY2LDA#WINTXT2 STA$D2LDA/WINTXT2 STA$D3 LDX#3COPY P}LDA#WINDOW2+1 "STA$D0,LDA/WINDOW2+1 6STA$D1@*JCOPYUPLDY#0T.1LDA($D2),Y^STA($D0),YhINY r Q}CPY#32 |BNE.1 LDA$D0CLC ADC#40 STA$D0 BCC.2 INC$D1.2LDA$D2CLC ADC#32  R}STA$D2 BCC.3 INC$D3 .3DEXBPLCOPYUP*RTS&-0SURELDADISKNR :ORA#$90DSTASURETXT+8 S}NLDA#SURETXT XSTA$D2bLDA/SURETXT lSTA$D3vCOPY1UPLDX#0LDA#WINDOW2+281 STA$D0LDA/WINDOW2+ T}281 STA$D1*JMPCOPYUP-DELTEXTLDA#DELTXT STA$D2LDA/DELTXT STA$D3JSRCOPY1UP L U}DX#0.2LDAFNMOPEN,X CMP#$9B BEQ.1 SEC *SBC#$204STAWINDOW2+291,X>INX HJMP.2 R.1RTS\ V}-fNOTEXTLDA#NOTXT pSTA$D2zLDA/NOTXT STA$D3*JMPCOPY1UP-INITEXTLDA#INITXT STA$D2 W}LDA/INITXT STA$D3*JSRCOPY1UPRTS-FILETEXTLDA#FILETXT  STA$D2 LDA/FILETXT  STA$D3 X}$ *. JSRCOPY1UP8 RTSB -L PACKKOPJSRLOESCH1V LDA#WINDOW1+40 ` STA$D0j LDA/WINDOW1+40 t STA$D1~ Y}* LDX#0 LDA#10 STA$E0 .1LDY#1 .3LDAPACKTXT,X STA($D0),Y INX INY CPY#16 BNE.3 Z} LDA$D0 CLC ADC#40 STA$D0  BCC.2  INC$D1( .2DEC$E0 2 LDA$E0 < BPL.1F * P LDX#3 Z L [}DY#15d .5LDAFNMOPEN,X n CMP#$9B x BEQ.4 SEC SBC#$20 STAWINDOW1+80,Y INX INY JMP.5 * \} .4 RTS -MOPEN,X n CMP#$9B x BEQ.4 SEC SBC#$20 STAWINDOW1+80,Y INX INY JMP.5 * ER: -;SAVD8;TEXT.INC-(;TEXTEFUERSOUNDMONITOR2;<;F;P;Z;8dTEXT1.AT"SOUND-LINKER (C) PEG^}ASUS 1994 V 2.09"n-:xABFRAGE.AT" Initialize : Yes / No ??? "-7LEER.AT" _} "-:WINDOW1.AT""3.AT"| |`}ADRESS"3.AT"| | $0000"3.AT"| "3.AT"| a} | ":WINDOW5.AT"| | "3.AT"| b} | "3.AT"| | "3.AT"| | "3c}.AT"| | ":WINDOW6.AT"| | "3.AT"| d} | "3.AT"| | "3".AT"e}":,WINDOW2.AT"| |DISK:"36.AT"| | "3@.ATf}"| | "3J.AT"| | "3T.AT"| g} | "3^.AT"| | "3h.AT"| | "3rh}.AT"| | "3|.AT"| | "3.AT"i}"-2WINTXT1.AT"ĠǠ "+.AT" SAVE MUSIK "+j}.AT" DOS "-2WINTXT2.AT" Protect File "+.AT"Change Drive # Uk}nprotect File"+.AT"Delete File Format Disk "+.AT"BACK "-2SURETXT.AT"l}ı Are you sure (Y/N)?"0NOTXT.AT" "1INITXT.AT" Formatting ... m} "3CHANGTXT.AT" Change Disk# (1,2,8) "2FILETXT.AT" Filename D1:. "1&DELTXT.AT" n} D1: (Y/N) "0- :PACKTXTD.AT" START :$ "N.AT" STOP :$ "X.AT"o}"b.AT" FLAGS :$ "l.AT" SONG # :$ "v.AT"".AT" INIT :$ p} ".AT" STOP-ROUTINE:$ ".AT" PLAY-ROUTINE:$ ".AT" CH-ON-PNT :$ ".AT" FRQ-PNT :$ "q}.AT" AUDC-PNT :$ "--AT" PLAY-ROUTINE:$ ".AT" CH-ON-PNT :$ ".AT" FRQ-PNT :$ "'ERn .LIOFF-;SAVD8;DIR.INC(-2WO.HX0000000000000000<.HX0000000000000000 F.HX0000PLAENGE.HXs}0000ZCNTDIR1.HX00dCNTDIR2.HX00nCNT99.HX00xDIRZ0.HX00DISKALT.HX00DISKNEU.HX00DISKNR.HX0t}1ERRPNT2.HX00JUMP1.DADISKRETJUMP2.DADIR1JUMP3.HX0000SNGVON.HX00SNGBIS.HX00SAVHILF.HXu}00SAVCNT.HX00*WIEVIEL=18SONGWO=$8900MUSIKWO=$2400*"FNAME.HX0000,WHERPNT.HX00006v}ADRESS.HX0000@ATASC.HX0000J-T*^DIRLDX#$10KANALhJSRCLOSESCHLIESSENr;|LDX#$16DIRLDAFNAMw}ELDYFNAME+1 JSROPENLDAERRPNT BEQ.98 LDX#$10JSRCLOSERTS*.98LDA#0STADIRZ0x}STACNTDIR2*.10JSRDIRUP2LDADIRZ0 BNE.1&.2LDA$2FC 0CMP#$FF :BEQ.2 DLDA#$FF NSTAy}$2FCXJSRDIRUP2b.1JSRDIRUP3l*vRTS- DIRUP2JSRLOESCH1CLEARSCRLDA#1XPOS STA$D2JSRDIz}RUP1 LDA#12STA$D2XPOSJSRDIRUP1 LDA#23STA$D2XPOSJSRDIRUP1*RTS- DIRUP1LDA{}#WINDOW1+40 STA$D0 LDA/WINDOW1+40 *STA$D14; >LDA#0HSTACNTDIR1R.3JSRGETWODATENVON \;DISK|}fLDAERRPNT pBEQ.98 zLDX#$10JSRCLOSERTS*.98LDAWO CMP#$2A BEQ.12 CMP#$20 BEQ}}.12 LDA#1STADIRZ0RTS*.12INCCNTDIR2LDA#$9C|-$20STAWO+10; $LDX#0 .LDY$D2~}8.1LDAWO,XBSEC LSBC#$20VSTA($D0),Y`INYjINX tCPX#11 ~BNE.1; LDA$D0CLC ADC#$}28 STA$D0 BCC.2 INC$D1.2INCCNTDIR1LDACNTDIR1 CMP#11 BNE.3* .10RTS -DIR1L}DA#$FF STA$2FC(LDX#$10GANZEDIR2JSRCLOSE<;FLDX#$16DIRPLDA#FNAME7ZLDY/FNAME7 dJSROPEN}nLDAERRPNT xBEQ.98 LDX#$10JSRCLOSE JMP.99*.98LDA#0STADIRZ0STACNTDIR2 LDA#3}STADISKNEU;JSRDIR1UP*.99LDA#0STADISKNEUJMPDISKTAST-"DIR1UPJSRLOESCH1,*6}LDA#WINDOW1+40 @STA$D0JLDA/WINDOW1+40 TSTA$D1 ^LDA#0hSTACNTDIR1r*|.1JSRGETWODATENVON ;DI}SKLDAERRPNT BEQ.98 LDX#$10JSRCLOSERTS*.98LDAWO CMP#$2A BEQ.12 CMP#$20 }BEQ.12 LDX#$10JSRCLOSEJMPDIRUP3*&.12INCCNTDIR2 0LDY#8 :LDX#0D.2LDAWO,XNSEC XS}BC#$20bSTA($D0),YlINYvINX CPX#17 BNE.2; LDA$D0CLC ADC#40 STA$D0 BCC.3 }INC$D1.3INCCNTDIR1LDACNTDIR1 CMP#11 BNE.1* .11LDA$2FC CMP#$FF BEQ.11 *LDA#$FF} 4STA$2FC>JMPDIR1UPH-RGETWOLDX#$10KANAL1 \LDA#WOfSTAWHERE pLDA/WOzSTAWHERE+1LDA#WI}EVIELSTALENGTHLDA/WIEVIELSTALENGTH+1JSRGETBYTES*RTS-DIRUP3LDX#0 LDY#8.1L}DAWO,XSEC SBC#$20 STAWINDOW1+480,Y INX INY $ CPX#4 . BNE.18 ; B LDX#0L .2LDATXT1,XV }STAWINDOW1+480,Y` INYj INX t CPX#13 ~ BNE.2 * LDACNTDIR2 BEQ.4 RTS * .4LDADISKNEU }ASL TAX LDATXTWAS,X STA$D0 LDATXTWAS+1,X STA$D1 * INCERRPNT2  LDX#0  LDY#0 ( LDATX}T22 STAWINDOW1+210,X< INXF LDATXT2+1P STAWINDOW1+210,XZ INXd INXn .9LDA($D0),Y x CMP#$9B BEQ}.10 STAWINDOW1+210,X INX INY JMP.9 .10LDY#0 .11LDATXT2+2,Y CMP#$9B BEQ.12 STAWINDO}W1+210,X INX INY JMP.11 *  .12RTS *" TXT1.AT" Free Sectors", TXTWAS.DASONG,SOUND6 .DASONG,S}OUND@ SONG.AT"SONG-" J .HX9BT SOUND.AT"SOUND-" ^ .HX9Bh FILE.AT" " r .HX9B| TXT2.AT"NoFile" .HX}9B - - - - DISKLDA#$FF STA$2FC JSRPLAYER JSRLOESCH1 JSRLOESCH2 JSRCOPY1 LDA#DI}SKRET STAJUMP1 LDA/DISKRET STAJUMP1+1  LDA#3& STACNT990 DISK1LDA#0: STADISKALTD STADISKNEU}N *X DISKTASTLDA$2FCb CMP#$0Fl BEQDISKRUN v CMP#$0E BEQDISKHOCH CMP#$0CRET BNE.1 JMP}(JUMP1) .1JMPDISKTAST * DISKRUNLDA#$FF STA$2FC ; INCDISKNEU LDADISKNEU CMPCNT99 BNE}.1  LDA#0 STADISKNEU .1JSRINVERT LDADISKNEU* STADISKALT4 JMPDISKTAST> -H DISKHOCHLDA#$FF R }STA$2FC\ ;f DECDISKNEUp LDADISKNEU z BPL.1 LDXCNT99 DEX STXDISKNEU .1JSRINVERT LDADISK}NEU STADISKALT JMPDISKTAST - DISKDAT1.DAWINDOW2+1 .DAWINDOW2+41 .DAWINDOW2+81 .DAWINDOW2+121}DIR .DAWINDOW2+17.DAWINDOW2+57.DAWINDOW2+97.DAWINDOW2+137$*.INVERTLDADISKALT8JSRINVUP1}BLDADISKNEULJSRINVUP1V;`RTSj*tINVUP1ASL~TAXLDADISKDAT1,X STA$D0LDADISKDAT1+1,X }STA$D1; LDY#0.1LDA($D0),Y EOR#$80STA($D0),YINY CPY#16 BNE.1* RTS-D}ISKRETLDA#$FF (STA$2FC2*<LDADISKNEUFASLPTAXZLDADISKWO1,XdSTAJUMP3nLDADISKWO1+1,XxSTA}JUMP3+1JMP(JUMP3);*DISKWO1.DASNGLOA.DASNGSAV .DADOS*FNAME1.AS"D1:*.SNG",#$9BFNA}ME3.AS"D1:*.SPL",#$9BFNAME4.AS"D1:*.COM",#$9BFNAME7.AS"D1:*.*",#$9B--SNGUPLDA#FNAME1STAFNAM}ELDA/FNAME1"STAFNAME+1 ,JSRDIR6LDAERRPNT2 @CMP#1 JBNE.1TRTS^;h.1JSRFILETEXTrLDA#}$33S|STAWINDOW2+306LDA#$2ENSTAWINDOW2+307LDA#$27GSTAWINDOW2+308 LDA#8STAINPCNT1}JSRINPUT2;RTS-SNGUP2LDA#FNAME4STAFNAMELDA/FNAME4STAFNAME+1 JSRDIRLDAERRPNT}2 &CMP#1 0BNE.1:RTSD;N.1JSRFILETEXTXLDA#$23CbSTAWINDOW2+306lLDA#$2FOvSTAWINDOW2+307}LDA#$2DMSTAWINDOW2+308 LDA#8STAINPCNT1JSRINPUT2;RTS- SNGSAVLDAWINDOW1+116} ORA#$80STAWINDOW1+116.2JSRKEYUP1CPX#25RET BNE.1-->LDAWINDOW1+116 AND#$7F*STAWI}NDOW1+116 4JMPSAV>.1CPX#16 HBCS.2RLDAADRESS+1 \AND#$0FfSTAADRESS+1pTXAzASLASLASL}ASLORAADRESS+1STAADRESS+1JSRHEXASCLDAATASCSTAWINDOW1+116LDAWINDOW1+117 ORA#$80}STAWINDOW1+117.3JSRKEYUP1CPX#25RETBNE.4-->LDAWINDOW1+117 AND#$7F$STAWINDOW1+117 .}JMPSAV8.4CPX#16 BBCS.3LLDAADRESS+1 VAND#$F0`STAADRESS+1jTXAtORAADRESS+1~STAADRESS+1}JSRHEXASCLDAATASC+1STAWINDOW1+117SAVJSRLOESCH1 LDA#5STAERRPNT2JSRSNGUP2 CMP#1 B}EQ.50;* JSRPACK.99LDX#$10 JSRCLOSE*LDX#$18WRITE(JSROPEN12* <LDA#$FFFJSRP}UTBYTE PLDA#$FFZJSRPUTBYTEdLDAADRESSnJSRPUTBYTExLDAADRESS+1JSRPUTBYTELDADAT_ENDJSRP}UTBYTELDADAT_END+1CLCADCADD_ADR+1JSRPUTBYTELDA#DAT_ANFSTAWHERELDA/DAT_ANFSTAWH}ERE+1LDADAT_END+1SECSBC/DAT_ANFSTALENGTH+1LDADAT_END"SEC,SBC#DAT_ANF6STALENGTH @}BCS.46JDECLENGTH+1T.46INCLENGTH ^BNE.98hINCLENGTH+1r.98JSRPUTBYTES |LDX#$10JSRCLOSEJ}SRNOTEXT*.50JMPDISKTAST*-SNGLOALDA#0STAERRPNT2JSRSNGUP CMP#1 BEQ.10; L}DX#$10JSRCLOSELDX#$14LOADJSROPEN1&*0LDA#SONGWO :STA$D0DLDA/SONGWO NSTA$D1X;b.9}9JSRGETBYTE lCMP#$CF vBEQ.1 LDY#0STA($D0),YSTA$D01A INC$D0 BNE.4 INC$D1 JMP.4}.1JSRGETBYTESTASAVHILFJSRGETBYTESTASAVCNTLDASAVHILF LDY#0.2STA($D0),Y INYCPY}SAVCNT BCC.2 *LDA$D04CLC>ADCSAVCNT HSTA$D0 RBCC.4 \INC$D1f.4LDA$D1 pCMP#$C0 zBNE.}99* LDX#$10JSRCLOSE.10JSRNOTEXT*JMPDISKTAST*GETBYTELDA#WHERPNTSTAWHERELDA}/WHERPNTSTAWHERE+1 LDA#1STALENGTH LDA#0STALENGTH+1JSRGETBYTES$LDAERRPNT .BEQ.1 8}LDA#$10BJSRCLOSELJSRNOTEXTVPLA`PLAjLDA/DISKTAST-1tPHA~LDA#DISKTAST-1PHARTS.1}LDAWHERPNTRTS*PUTBYTESTAWHERPNTSTA$D01ALDA#WHERPNTSTAWHERELDA/WHERPNTSTAWHERE+}1 LDA#1STALENGTH LDA#0STALENGTH+1JSRPUTBYTES(LDAERRPNT 2BEQ.1 <LDA#$10FJSRCLOSE}PJSRNOTEXTZPLAdPLAnLDA/DISKTAST-1xPHALDA#DISKTAST-1PHA .1RTS--DOSLDA#$FF }STA$2FC*JSRLOESCH1JSRLOESCH2JSRCOPY2LDA#DOSRETSTAJUMP1LDA/DOSRETSTAJUMP1+1} LDA#7"STACNT99,*6JMPDISK1@-JDOSRETLDADISKNEUTASL^TAXhLDADOSDAT,XrSTAJUMP2|LDA}DOSDAT+1,XSTAJUMP2+1*JMP(JUMP2)-DOSDAT.DADIR1,CHANGE.DADELETE,DISK.DAPROTECT,UNPROTEC}.DAFORMAT-DELETELDA#$FF STA$2FCJSRINPUT1 CMP#1 BEQ.3JSRDELTEXT LDA#$FF &STA}$2FC0.2LDA$2FC:CMP#$2BY DBEQ.1NCMP#$23N XBNE.2 bLDA#$FF lSTA$2FC vJMP.3;.1LDX}#$10LDA#DELETEFJSRSPECIAL; LDX#$10JSRCLOSE*.3JSRNOTEXTJMPDISKTAST-PROTECT}LDA#$FF STA$2FCJSRINPUT1 CMP#1 BEQ.1 LDX#$10*LDA#PROTECTF4JSRSPECIAL>; HLDX#$10}RJSRCLOSE\*f.1JSRNOTEXTpJMPDISKTASTz-UNPROTECLDA#$FF STA$2FCJSRINPUT1 CMP#1 BEQ}.1 LDX#$10LDA#UNPROFJSRSPECIAL; LDX#$10JSRCLOSE*.1JSRNOTEXTJMPDISKTAST-}CHANGELDA#$FF $STA$2FC.* 8LDA#1BSTADISKNRLLDA#CHANGTXT VSTA$D2`LDA/CHANGTXT jSTA$D3t}JSRCOPY1UP ~JSR.90LDAWINDOW2+301 ORA#$80STAWINDOW2+301.10JSRKEYUP1CPX#17 BEQ.1}CPX#16 BEQ.2CPX#25RET BEQ.20 JMP.10*.1JSR.90 LDADISKNR CMP#1 BNE.60 (LDA}#82STADISKNR <JMP.91F.60CMP#2 PBNE.61 ZLDA#1dSTADISKNR nJMP.91x.61CMP#8 BNE.91 }LDA#2STADISKNR JMP.91*.2JSR.90LDADISKNR CMP#1 BNE.70 LDA#2STADISKNR JMP}.91.70CMP#2 BNE.71 LDA#8STADISKNR "JMP.91,.71CMP#8 6BNE.91 @LDA#1JSTADISKNR TJ}MP.91^.20LDADISKNRhCLC rADC#$10 |ORA#$80STAWINDOW2+39JSRNOTEXT* LDA#$FF STA$2FC}INCDISKNEUINCDISKNEUJSRINVERTLDADISKNEUSTADISKALTJMPDISKTAST.90LDAWINDOW2+301 AND}#$7F STAWINDOW2+301 LDAWINDOW2+303  AND#$7F& STAWINDOW2+3030 LDAWINDOW2+305 : AND#$7FD STAWINDO}W2+305N RTSX .91LDADISKNR b CMP#1 l BNE.92v LDAWINDOW2+301 ORA#$80 STAWINDOW2+301 JMP.10 .}92CMP#2 BNE.93 LDAWINDOW2+303 ORA#$80 STAWINDOW2+303 JMP.10 .93CMP#8 BNE.94 LDAWIND}OW2+305 ORA#$80!STAWINDOW2+305 !.94JMP.10!- !HEXASCPHA*!LSR4!LSR>!LSRH!LSRR!TAX\!LDANU}MHEX,Xf!STAATASCp!PLA z!AND#$0F!TAX!LDANUMHEX,X!STAATASC+1!*!RTS!!NUMHEX.AT"0123456789ABCD}EF"!-!STAATASCp!PLA z!AND#$0F!TAX!LDANUMHEX,X!STAATASC+1!*!RTS!!NUMHEX.AT"0123456789ABCD ERO .LIOFF-;SAVD8;PACK.INC(-2DAT_ANF=$6000<DATEN=$6020F-PANZ_TRK.HX00ZANZ_SND.HX00}dANZ_STP.HX00nANZ_MON.HX00xANZ_TKT.HX00** *Zeiger*MONHIPNT.HX0000MONHITRK1PNT.HX00}00TRK1HITR1PNT.HX0000TR1ST1PNT.HX0000ST1TRK2PNT.HX0000TRK2HITR2PNT.HX0000TR2ST2PNT.HX0000}ST2TRK3PNT.HX0000TRK3HITR3PNT.HX0000TR3ST3PNT.HX0000ST3TRK4PNT.HX0000TRK4HITR4PNT.HX0000TR}4"ST4PNT.HX0000ST4,TKLOPNT.HX0000TKLO6TKHIPNT.HX0000TKHI@MONPNT.HX0000MONIANFJSNDWOPNT.HX0000SO}UNDWOTSNGPNT.HX0000SNGANF^SNDPNT.HX0000SOUNDShNOTEPNT.HX0000NOTEANFrPLAYDAT.HX0000|PLAY_PRG.HX000}0PLAY_END.HX0000DAT_END.HX0000*ADD_ADR.HX0000ADDRELOC.HX0000BEFEHL.HX00BEFANZ.HX00}-PACKJSRGetAnzTrkJSRGetAnzSndJSRGetAnzStpJSRGetAnzMon**MusikdatenimSpeicher*hint}ereinanderkopieren.#&*DieZeigeraufdiejeweiligen 0*Teildatenwerdenzwischen-:*gespeichert.DLDA#DATEN NS}TA$D0XLDA/DATEN bSTA$D1l*vJSRCopMonHiJSRCopTrk1JSRCopTr1JSRCopSt1JSRCopTrk2JSR}CopTr2JSRCopSt2JSRCopTrk3JSRCopTr3JSRCopSt3JSRCopTrk4JSRCopTr4JSRCopSt4;J}SRCopTKLO JSRCopTKHI; JSRCopMonAnf*;4JSRCopSndWo>JSRCopSngAnfH;RJSRCopSounds\JSRCopN}otenf;p* zLDA$D0STADAT_END LDA$D1STADAT_END+1*!*Adressenberechnungnachder*eingegebe}nenAdresse*JSRGetReal1*"*TKLO,TKHI+SOUNDWO-Werteneu*berechnen*JSRTkNewJSRSndWoNew}**AktuelleWertederZeiger$*berechnen.*8JSRAktPntB*"L*DievorherberechnetenWerteV*ausTRK1PNT}-ST4PNTin`*Abspielroutinekopierenj*tJSRCopAdr1~*!*AbspielroutinehinterDaten*kopieren*JSR}CopPlay**Abspielroutinerelozieren*JSRReloc*"*Startprogramminitialisieren *(Init-,Start-&}Stop-Prg)JSRMakeInit* *AdressenaufScreendar- *stellen*(JSRPutScreen2*<RTSF- PPutScr}eenZJSRLOESCH1d;nLDA#WINDOW1+43 xSTA$D0LDA/WINDOW1+43 STA$D1; LDX#0 STX$D2 .3LD}Y#0.1LDAPACKTXT,XSTA($D0),YINXINY CPY#19 BNE.1 LDA$D0CLC ADC#40 STA$D0 }"BCC.2 ,INC$D16.2INC$D2 @LDA$D2 JCMP#12 TBNE.3^;hLDAADRESS+1rJSRHEXASC|LDAATASC}STAWINDOW1+43+15STAWINDOW1+43+15+40STAWINDOW1+43+15+120STAWINDOW1+43+15+160STAWINDOW1+43+15+240}STAWINDOW1+43+15+320STAWINDOW1+43+15+360STAWINDOW1+43+15+400STAWINDOW1+43+15+440STAWINDOW1+43+15+28}0LDAATASC+1STAWINDOW1+43+16STAWINDOW1+43+16+40STAWINDOW1+43+16+120STAWINDOW1+43+16+160STA}WINDOW1+43+16+240&STAWINDOW1+43+16+3200STAWINDOW1+43+16+360:STAWINDOW1+43+16+400DSTAWINDOW1+43+16+440N}STAWINDOW1+43+16+280X; bLDA#0lJSRHEXASCvLDAATASCSTAWINDOW1+43+17LDAATASC+1STAWINDOW1+43+}18; LDA#$07JSRHEXASCLDAATASCSTAWINDOW1+43+17+40LDAATASC+1STAWINDOW1+43+18+40; }LDA#$0BJSRHEXASCLDAATASC STAWINDOW1+43+17+120LDAATASC+1 STAWINDOW1+43+18+120*; 4LDA#$0F}>JSRHEXASCHLDAATASCRSTAWINDOW1+43+17+160\LDAATASC+1fSTAWINDOW1+43+18+160p; zLDA#$11JSRHEX}ASCLDAATASCSTAWINDOW1+43+17+240LDAATASC+1STAWINDOW1+43+18+240; LDA#$14JSRHEXASCLD}AATASCSTAWINDOW1+43+17+280LDAATASC+1STAWINDOW1+43+18+280;  LDA#$17 JSRHEXASC LDAATASC$} STAWINDOW1+43+17+320. LDAATASC+18 STAWINDOW1+43+18+320B ; L LDA#$1AV JSRHEXASC` LDAATASCj STAWIND}OW1+43+17+360t LDAATASC+1~ STAWINDOW1+43+18+360 ; LDA#$1C JSRHEXASC LDAATASC STAWINDOW1+43+17+}400 LDAATASC+1 STAWINDOW1+43+18+400 ; LDA#$1E JSRHEXASC LDAATASC STAWINDOW1+43+17+440 LD}AATASC+1 STAWINDOW1+43+18+440 * RTS( - 2 MakeInit < LDX#0F TXAP .1STADAT_ANF,XZ INX d CPX#$20} n BNE.1x ; LDA#$68PLA STADAT_ANF STADAT_ANF+7 STADAT_ANF+$10 LDA#$4CJMP STADAT_ANF+4} STADAT_ANF+8 STADAT_ANF+$11 STADAT_ANF+$14 STADAT_ANF+$17 LDA#$20JSR STADAT_ANF+1 ; LDAP}LAY_PRG+1 CLC ADCADD_ADR+1" STADAT_ANF+3, STADAT_ANF+$136 LDAPLAY_PRG@ CLCJ ADCADD_ADRT STADA}T_ANF+2^ STADAT_ANF+$12 h BCC.2r INCDAT_ANF+$13| INCDAT_ANF+3 .2LDADAT_ANF+$12 STA$D4 LDADAT_AN}F+$13 STA$D5 * LDX#MUSAN LDY/MUSAN JSRMAK_UP1 STXDAT_ANF+$5 STYDAT_ANF+$6 ; LDX#MUSV}BI LDY/MUSVBI JSRMAK_UP1  STX$D2  STY$D3& LDX#MUSPNT1+10 LDY/MUSPNT1+1: JSRMAK_UP2 D LDY#0 }N LDA$D2X STA($D0),Yb LDX#MUSPNT2+1l LDY/MUSPNT2+1v JSRMAK_UP2 LDY#0 LDA$D3 STA($D0),Y *} LDX#MUSAUS LDY/MUSAUS JSRMAK_UP1 STXDAT_ANF+9 STYDAT_ANF+$A * LDX#SNGSTOP LDY/SNGSTOP} JSRMAK_UP1 STXDAT_ANF+$15 STYDAT_ANF+$16 * LDX#PLAY* LDY/PLAY4 JSRMAK_UP1> STXDAT_ANF+$18}H STYDAT_ANF+$19R *\ LDX#SOUNDONf LDY/SOUNDONp JSRMAK_UP1z STXDAT_ANF+$1A STYDAT_ANF+$1B * LD}X#FRQNEW LDY/FRQNEW JSRMAK_UP1 STXDAT_ANF+$1C STYDAT_ANF+$1D * LDX#AUDCNEW LDY/AUDCNEW }JSRMAK_UP1 STXDAT_ANF+$1E STYDAT_ANF+$1F*LDX#SNGPLAYLDY/SNGPLAY$JSRMAK_UP2 .LDY#1 8LDA}#$0FBSTA($D0),YLINYVLDAADRESS+1`STA($D0),Yj*tRTS~* MAK_UP1 STX$D0 STY$D1; }LDA$D1SECSBC/SNGPLAY STA$D1 LDA$D0SECSBC#SNGPLAY STA$D0 BCS.1 DEC$D1.1LD}A$D1CLC (ADC$D5 2STA$D1 <LDA$D0FCLC PADC$D4 ZSTA$D0 dBCC.2 nINC$D1x*.2LDX$D0 }LDY$D1RTS MAK_UP2 STX$D0 STY$D1; LDA$D1SECSBC/SNGPLAY STA$D1 LDA$D0S}ECSBC#SNGPLAY STA$D0 BCS.1 "DEC$D1,.1LDA$D16CLC@ADCPLAY_PRG+1 JSTA$D1 TLDA$D0^C}LChADCPLAY_PRG rSTA$D0 |BCC.2 INC$D1*.2LDX$D0 LDY$D1RTS- RelocLDAPLAY_PRG} STA$D0LDAPLAY_PRG+1 STA$D1 LDA$D1SECSBC/SNGPLAYSTAADDRELOC+1 LDA$D0&SEC0SB}C#SNGPLAY:STAADDRELOC DBCS.60NDECADDRELOC+1X.60LDAADDRELOC+1bCLClADCADD_ADR+1vSTAADDRELOC+1}LDAADDRELOCCLCADCADD_ADRSTAADDRELOC BCC.61INCADDRELOC+1;.61LDAMONHIPNTSTADA}TADDLOLDATKLOPNTSTADATADDLO+1LDATKHIPNTSTADATADDLO+2LDAMONPNT STADATADDLO+3LDASNDWOP }NT STADATADDLO+4*STADATADDLO+54LDASNGPNT>STADATADDLO+6H;RLDAMONHIPNT+1\STADATADDHIfLDAT }KLOPNT+1pSTADATADDHI+1zLDATKHIPNT+1STADATADDHI+2LDAMONPNT+1STADATADDHI+3LDASNDWOPNT+1S }TADATADDHI+4STADATADDHI+5LDASNGPNT+1STADATADDHI+6;INCDATADDLO+5 BNE.11INCDATADDHI+5 }.11LDAADRESS+1STADATADDHI+9; LDY#0$J1LDA($D0),Y .LDX#08.2CMPRELOCBEF,X BBEQ.3LINX V }CPX#152 `BNE.2jJSRINCD0 tJMP.98~.3STABEFEHLLDARELOCANZ,XSTABEFANZ CMP#3 BNE.97}JSRINCD0LDA($D0),Y STA$D2INYLDA($D0),Y STA$D3DEYCMP#$D0CUSTOM-BCS.80CHIPS }; LDX#0.7LDA$D3(CMPDATCMPHI,X 2BNE.10 <LDA$D2FCMPDATCMPLO,X PBNE.10ZLDADATADDLO,X dS}TA$D2nLDADATADDHI,X xSTA$D3 JMP.80 .10INX CPX#10 BNE.7; LDA$D3CLCADCADDRELOC}+1 STA$D3 LDA$D2CLCADCADDRELOC STA$D2 BCC.80 INC$D3.80LDA$D2"STA($D0),Y,JS}RINCD0 6LDA$D3@STA($D0),YJJSRINCD0 TJMP.98^.97LDA$D0hCLCrADCBEFANZ |STA$D0 BCC.98 }INC$D1.98LDA$D1CMPPLAY_END+1 BCS.87 JMPJ1.87LDA$D0CMPPLAY_END BCS.99 JMPJ1}* .99RTS- CopPlayLDA#SNGNR STA$D0&LDA/SNGNR 0STA$D1:LDADAT_ENDDSTAPLAYDAT NSTA$}D2XLDADAT_END+1bSTAPLAYDAT+1 lSTA$D3v; LDY#0.1LDA($D0),YSTA($D2),YJSRINCD0JSRIN}CD2 LDA$D1CMP/SNGPLAY BNE.1 LDA$D0CMP#SNGPLAY BNE.1; LDA$D2STAPLAY_PRG LDA}$D3STAPLAY_PRG+1 .2LDA($D0),Y*STA($D2),Y4JSRINCD0>JSRINCD2 HLDA$D1RCMP/PLAYEND \BNE.2} fLDA$D0pCMP#PLAYEND zBNE.2; LDA$D2STAPLAY_END LDA$D3STAPLAY_END+1.3LDA($D0),Y}STA($D2),YJSRINCD0JSRINCD2 LDA$D1CMP/TXTEND BNE.3 LDA$D0CMP#TXTEND BNE.3 }LDA$D2$STADAT_END .LDA$D38STADAT_END+1 BLDA#0LSTA($D2),YV*`RTSj- tAktPnt~LDA#MONHIPN}T STA$D0LDA/MONHIPNT STA$D1; .1LDY#0LDA($D0),Y STA$D2INYLDA($D0),Y STA$D3}DEYCLCADCADD_ADR+1 STA$D3 LDA$D2CLC(ADCADD_ADR 2STA$D2 <BCC.2 FINC$D3P.2L}DA$D2ZSTA($D0),Y dLDA$D3nJSRINCD0xSTA($D0),YJSRINCD0 LDA$D1CMP/DAT_END BCC.1 LD}A$D0CMP#DAT_END BCC.1*RTS- GetReal1LDA#DAT_ANF STA$D0LDA/DAT_ANF STA$D1};"LDAADRESS+1,SEC 6SBC$D1@STAADD_ADR+1JLDAADRESSTSEC ^SBC$D0hSTAADD_ADR rBCS.1|DE }CADD_ADR+1.1*RTS- CopAdr1LDATRK1PNTSTATRKLOADRLDATRK1PNT+1STATRKHIADRLDATR!}1PNTSTATRLOADRLDATR1PNT+1STATRHIADRLDAST1PNTSTASTLOADRLDAST1PNT+1&STASTHIADR0;:"}LDATRK2PNTDSTATRKLOADR+1NLDATRK2PNT+1XSTATRKHIADR+1bLDATR2PNTlSTATRLOADR+1vLDATR2PNT+1S#}TATRHIADR+1LDAST2PNTSTASTLOADR+1LDAST2PNT+1STASTHIADR+1;LDATRK3PNTSTATRKLOADR+2$}LDATRK3PNT+1STATRKHIADR+2LDATR3PNTSTATRLOADR+2LDATR3PNT+1STATRHIADR+2 LDAST3PNTSTAS%}TLOADR+2 LDAST3PNT+1*STASTHIADR+24;>LDATRK4PNTHSTATRKLOADR+3RLDATRK4PNT+1\STATRKHIADR+3f&}LDATR4PNTpSTATRLOADR+3zLDATR4PNT+1STATRHIADR+3LDAST4PNTSTASTLOADR+3LDAST4PNT+1STASTH'}IADR+3*RTS- TkNewLDANOTEPNT+1CLCADCADD_ADR+1 STA$D1LDANOTEPNTCLCADCADD(}_ADR $STA$D0 .BCC.10 8INC$D1B;L.10LDATKLOPNT VSTA.1+1`LDATKLOPNT+1 jSTA.1+2tLDATKHIPNT)} ~STA.2+1LDATKHIPNT+1 STA.2+2; LDX#0.3LDA$D0.1STATKLO,X LDA$D1.2STATKHI,X L*}DA$D0CLCADCANZ_TKT STA$D0 BCC.4 INC$D1 .4INXCPXANZ_TRK (BNE.32*<RTSF- PS+}ndWoNewZLDASNDPNT+1dCLCnADCADD_ADR+1 xSTA$D1LDASNDPNTCLCADCADD_ADR STA$D0 BCC.10,} INC$D1;.10LDASNDWOPNT STA.1+1 STA.2+1LDASNDWOPNT+1 STA.1+2 STA.2+2; LDX#0-} LDY#0".3LDA$D0,.1STASNDWOPNT,Y6INY @LDA$D1J.2STASNDWOPNT,YTINY ^LDA$D0hCLC rADC#1.}06 |STA$D0 BCC.4 INC$D1 .4INXCPXANZ_SND BNE.3*RTS- CopMonHi LDA$D0STA/}MONHIPNT LDA$D1STAMONHIPNT+1  LDX#0  LDY#0 .1LDAMONHI,X& STA($D0),Y0 JSRINCD0: INXD CPX0}ANZ_STP N BNE.1X *b RTSl - v CopTrk1 LDA$D0 STATRK1PNT LDA$D1 STATRK1PNT+1 LDX#0 LDY1}#0 .1LDATRK1HI,X STA($D0),Y JSRINCD0 INX CPXANZ_STP BNE.1 *!RTS !- !CopTr1 !LDA$2}D0*!STATR1PNT 4!LDA$D1>!STATR1PNT+1 H!LDX#0 R!LDY#0\!.1LDATR1,Xf!STA($D0),Yp!JSRINCD0z!INX3}!CPXANZ_STP !BNE.1!*!RTS!- !CopSt1 !LDA$D0!STAST1PNT !LDA$D1!STAST1PNT+1 !LDX#0 !L4}DY#0!.1LDAST1,X"STA($D0),Y"JSRINCD0"INX$"CPXANZ_STP ."BNE.18"*B"RTSL"- V"CopTrk2 `"LDA$5}D0j"STATRK2PNT t"LDA$D1~"STATRK2PNT+1 "LDX#0 "LDY#0".1LDATRK2HI,X"STA($D0),Y"JSRINCD0"I6}NX"CPXANZ_STP "BNE.1"*"RTS"- "CopTr2 #LDA$D0 #STATR2PNT #LDA$D1#STATR2PNT+1 (#LDX#07} 2#LDY#0<#.1LDATR2,XF#STA($D0),YP#JSRINCD0Z#INXd#CPXANZ_STP n#BNE.1x#*#RTS#- #CopSt2 #L8}DA$D0#STAST2PNT #LDA$D1#STAST2PNT+1 #LDX#0 #LDY#0#.1LDAST2,X#STA($D0),Y#JSRINCD0#IN9}X$CPXANZ_STP $BNE.1$*"$RTS,$- 6$CopTrk3 @$LDA$D0J$STATRK3PNT T$LDA$D1^$STATRK3PNT+1 h$LDX#:}0 r$LDY#0|$.1LDATRK3HI,X$STA($D0),Y$JSRINCD0$INX$CPXANZ_STP $BNE.1$*$RTS$- $CopTr3;} $LDA$D0$STATR3PNT $LDA$D1$STATR3PNT+1 %LDX#0 %LDY#0%.1LDATR3,X&%STA($D0),Y0%JSRINCD0<}:%INXD%CPXANZ_STP N%BNE.1X%*b%RTSl%- v%CopSt3 %LDA$D0%STAST3PNT %LDA$D1%STAST3PNT+1 %LDX=}#0 %LDY#0%.1LDAST3,X%STA($D0),Y%JSRINCD0%INX%CPXANZ_STP %BNE.1%*&RTS &- &CopTrk4>} &LDA$D0*&STATRK4PNT 4&LDA$D1>&STATRK4PNT+1 H&LDX#0 R&LDY#0\&.1LDATRK4HI,Xf&STA($D0),Yp&JSRIN?}CD0z&INX&CPXANZ_STP &BNE.1&*&RTS&- &CopTr4 &LDA$D0&STATR4PNT &LDA$D1&STATR4PNT+1 @}&LDX#0 &LDY#0&.1LDATR4,X'STA($D0),Y'JSRINCD0'INX$'CPXANZ_STP .'BNE.18'*B'RTSL'- V'CopA}St4 `'LDA$D0j'STAST4PNT t'LDA$D1~'STAST4PNT+1 'LDX#0 'LDY#0'.1LDAST4,X'STA($D0),Y'JSRINCB}D0'INX'CPXANZ_STP 'BNE.1'*'RTS'- 'CopTKLO (LDA$D0 (STATKLOPNT (LDA$D1(STATKLOPNT+1C} ((LDX#0 2(LDY#0<(.1LDATKLO,XF(STA($D0),YP(JSRINCD0Z(INXd(CPXANZ_TRK n(BNE.1x(*(RTS(- (D}CopTKHI (LDA$D0(STATKHIPNT (LDA$D1(STATKHIPNT+1 (LDX#0 (LDY#0(.1LDATKHI,X(STA($D0),Y(E}JSRINCD0(INX)CPXANZ_TRK )BNE.1)*")RTS,)- 6)CopMonAnf @)LDA$D0J)STAMONPNT T)LDA$D1^)STAMOF}NPNT+1h)LDAANZ_MONr)ASL|)ASL)ASL )STA$D2 )LDX#0 )LDY#0).1LDAMONIANF,X)STA($D0),Y)JSRG}INCD0)INX )CPX$D2 )BNE.1)*)RTS)- *CopSndWo *LDA$D0*STASNDWOPNT &*LDA$D10*STASNDWOPNT+H}1:*LDAANZ_SNDD*ASL N*STA$D2 X*LDX#0 b*LDY#0l*.1LDASOUNDWO,Xv*STA($D0),Y*JSRINCD0*INX *CPXI}$D2 *BNE.1***RTS*- *CopSngAnf *LDA$D0*STASNGPNT *LDA$D1*STASNGPNT+1 *LDX#0 +LDY#0J} +.1LDASNGANF,X+STA($D0),Y +JSRINCD0*+INX 4+CPX#96 >+BNE.1H+*R+RTS\+- f+CopSounds p+LDA$D0zK}+STASNDPNT +LDA$D1+STASNDPNT+1+LDA#SOUNDS +STA$D2+LDA/SOUNDS +STA$D3 +LDA#0 +STA$D4 +.L}1LDX#0 +.2LDY#0+LDA($D2),Y+STA($D0),Y+JSRINCD2,JSRINCD0,INX ,CPX#106 $,BNE.2 .,INC$D4M} 8,LDA$D4B,CMPANZ_SND L,BNE.1V,*`,RTSj,- t,CopNoten ~,LDA$D0,STANOTEPNT ,LDA$D1,STANOTEPNTN}+1 ,LDA#0,STA$D4ZAEHLER,.2LDX$D4,LDATKLO,X ,STA$D2,LDATKHI,X ,STA$D3,; ,LDX#0 -LDYO}#0 -.1LDA($D2),Y-STA($D0),Y-JSRINCD2(-JSRINCD02-INX<-CPXANZ_TKT F-BNE.1P-; Z-INC$D4 d-LDAP}$D4n-CMPANZ_TRK x-BNE.2-*-RTS-- -INCD0 -INC$D0 -BNE.1 -INC$D1 -.1RTS-- -INCD2 -INCQ}$D2 -BNE.1 -INC$D3 ..1RTS.- .GetAnzTrk ".;ANZAHLDERTAKTEERMITTELN,.;DASERGEBNISWIRDIN6.;"ANZ_TR}RK"GESPEICHERT@.; J.LDX#0 T.LDY#0 ^..5TXAh.CMPTRK1HI,Y r.BCS.1|.LDXTRK1HI,Y ..1TXA.CMPTRK2HI,YS} .BCS.2.LDXTRK1HI,Y ..2TXA.CMPTRK3HI,Y .BCS.3.LDXTRK3HI,Y ..3TXA.CMPTRK4HI,Y .BCS.4.T}LDXTRK4HI,Y ..4INY /BNE.5/INX/STXANZ_TRK&/*0/RTS:/- D/GetAnzSnd N/;ANZAHLDERSOUNDSERMITELNX/;U}DASERGEBNISWIRDINb/;"ANZ_SND"GESPEICHERTl/; v/LDY#15 /.1TYA/ASL/TAX/LDASOUNDWO /STA.2+1/V}LDASOUNDWO+1 /STA.2+2/LDASOUNDWO,X /STA.3+1/LDASOUNDWO+1,X /STA.3+2 /LDX#104/.2LDASOUNDS,XW}0.3CMPSOUNDS,X 0BNE.99ENDE0DEX 0BPL.2*0DEYNAECHSTEN 40BPL.1 >0.99INYH0TYAR0STAANZ_SND\0*f0X}RTSp0- z0GetAnzStp0;ANZAHLDERSTEPSERMITELN0;DASERGEBNISWIRDIN0;"ANZ_STP"GESPEICHERT 0LDA#0 0LDXY}#$FF0.1LDATRK1HI,X 0BNE.990LDATRK2HI,X 0BNE.990LDATRK3HI,X 0BNE.990LDATRK4HI,X 0BNE.99Z}1DEX 1BNE.1 1.99INX$1STXANZ_STP.1RTS81- B1GetAnzMonL1;ANZAHLDERMONITOR-DATENV1;DASERGEBNISWIRDI[}N`1;"ANZ_MON"GESPEICHERTj1LDA#MONIANF t1STA$D2~1LDA/MONIANF 1STA$D3 1LDX#01STXANZ_TKT 1.1LDY#\}01.2LDA($D2),Y 1BNE.31INY 1CPY#8 1BNE.2 1JMP.99 1.3LDY#21LDA($D2),Y2CMPANZ_TKT 2BCC]}.52STAANZ_TKT2.5LDA$D2(2CLC 22ADC#8 <2STA$D2 F2BCC.4 P2INC$D3 Z2.4INX d2CPX#8 n2BNE.1x2;^}2.99STXANZ_MON2LDAANZ_TKT2ASL2STAANZ_TKT2RTS2- 2*EsfolgendieTabellefuer!2*dieRelokotiond_}erAbspiel- 2*Routine2*2;2*DieBefehledes6502 2RELOCBEF3.HX90B0F030D01050703;3.HX0A0018D858B8CA`}88"3.HXE8C84AEA48086828,3.HX2A6A406038F878AA63.HXA898BA8A9A@3;J3.HX6929C9E0C049A9A2T3.HXA009E9^3;h3a}.HX65250624C5E4C4C6r3.HX45E6A5A6A4460526|3.HX66E58586843;3.HX753516D5D655F6B53.HXB456153676F595943;b} 3.HXB6963;3.HX6D2D0E2CCDECCCCE3.HX4DEE4C20ADAEAC4E3.HX0D2E6EED8D8E8C3;3.HX7D3D1EDDDE5DFEBD3c}.HXBC5E1D3E7EFD9D3;4.HX7939D959B9BE19F9 4.HX994;&4.HX6121C141A101E18104;:4.HX7131D151B111F191D4;d} N4.HX6CX4- b4RELOCANZl4.HX0202020202020202v4;4.HX01010101010101014.HX01010101010101014.HX01010101e}010101014.HX01010101014;4.HX02020202020202024.HX0202024;4.HX02020202020202024.HX02020202020202f}024.HX02020202024;4.HX02020202020202025.HX0202020202020202 5; 5.HX0202 5;*5.HX0303030303030303g}45.HX0303030303030303>5.HX03030303030303H5;R5.HX0303030303030303\5.HX03030303030303f5;p5.HX03030303030q}bSTART b-IO INCb 4INTER INCb@START INCb]TEXT INCb^rDIR INCbPACK INCbUvSNGPLAY INCbLSPACKER COM30303 z5.HX035;5.HX02020202020202025;5.HX02020202020202025; 5.HX035- 5DATCMPLO5.DA#MONHIr}5.DA#TKLO5.DA#TKHI5.DA#MONIANF5.DA#SOUNDWO6.DA#SOUNDWO+16.DA#SNGANF 6.HX24 $6.HX25.6.Ds}A#FLAGS86* B6DATCMPHIL6.DA/MONHIV6.DA/TKLO`6.DA/TKHIj6.DA/MONIANFt6.DA/SOUNDWO~6.DA/SOUNDWO+16t}.DA/SNGANF 6.HX02 6.HX026.DA/FLAGS6- 6DATADDLO6.HX00000000000000 6.HX2425 6.HX0B6* 6DATu}ADDHI6.HX00000000000000 7.HX0202 7.HX607-DATADDLO6.HX00000000000000 6.HX2425 6.HX0B6* 6DAT:ERs .LIOFF-;SAVD8;SNGPLAY.INC(-2MONHI=$8900<TRK1HI=$8A00FTR1=$8B00PST1=$8C00ZTRK2HIw}=$8D00dTR2=$8E00nST2=$8F00xTRK3HI=$9000TR3=$9100ST3=$9200TRK4HI=$9300TR4=$9400STx}4=$9500TKLO=$9600TKHI=$9700MONIANF=$9800SOUNDWO=MONIANF+64SNGANF=SOUNDWO+32;SOUNDS=y}$9900NOTEANF=$A000FLAGS=$600B-SNGNR.HX00";,TRKLOADR.HX504030206TRKHIADR.HX60616263@TRLOz}ADR.HXA0908070JTRHIADR.HX60616263TSTLOADR.HXF0E0D0C0^STHIADR.HX60616263h;rHKUCNT.HX00000000|ARPCN{}T.HX00000000FMODCNT.HX00000000FRQOLD.HX00000000FRQNEW.HX00000000FRQRETT.HX00000000AUDCOLD.HX0|}0000000AUDCNEW.HX00000000SNDON.HX00000000SOUNDON.HX00000000SNDOLD.HX00000000SNDNEW.HX00000000}}PORTPNT.HX00000000PORTCNT.HX00000000PORTCNT1.HX00000000HILF99.HX00HILF98.HX00HILF97.HX00&~};0VON.HX00:BIS.HXFFDSTEPPLAY.HX00NPLAYBIS.HX00XPLAYLOOP.HX00bTAKTPNT.HX00lTAKTCNT.HX00v}SPEEDPNT.HX00SPEEDCNT.HX00PLAYALL.HX00AUDCTL1.HX00TRKLO.HX00000000TRKHI.HX00000000TR.HX}00000000TRON.HX00000000ST.HX00000000RELEASE.HX00000000VBIRETT.HX0000-;C,C#,D,D#,E,FNOTEN-};F#,G,G#,A,A#,BWERTE ;OKT. W_BASS.HXF2E6DAC6BFB61..HXADA1988F8980 ;*.HX7A716B655F5C2.4.HX5}6504D474441>;H.HX3E3835322F2D3.R.HX29282523211F\*fH_BASS.HX7F79737066611.p.HX5A55524B4843z;}.HX3F3C393733302..HX2D2A28252421;.HX1F1E1C1B19193..HX191919191919;NOTETAB.HXF3E6D9CCC1B6}1..HXADA299908880;.HX79726C66605B2..HX55514C484440;.HX3C3935322F2D3..HX2A282523211F};.HX1D1B1A1817164.$.HX15131211100F.- 8LAUT_TABB.1.HX0000000000000000L.HX0000000000000000V.2}.HX0000000000000000`.HX0101010101010101j.3.HX0000000000010101t.HX0101020202020202~.4.HX0000000001010101}.HX0202020203030303.5.HX0000000101010202.HX0202030303040404.6.HX0000010101020202.HX0303030404040}505.7.HX0000010101020203.HX0303040405050606.8.HX0000010102020303.HX0404050506060707.9.HX0001010}202030304.HX0405060607070808.10.HX0001010203030404.HX0506060708080909 .11.HX0001020203040405.HX0}606070808090A0A.12.HX0001020303040506(.HX06070809090A0B0B2.13.HX0001020304040506<.HX070808090A0B0C0CF}.14.HX0001020303040506P.HX0708090A0A0B0C0DZ.15.HX0001020304050607d.HX0708090A0B0C0D0En.16.HX00010203040}50607x.HX08090A0B0C0D0E0F- SNGPLAYLDXSNGNR LDA#0 .2CLC ADC#3DEX BNE.2TAYL}DASNGANF,YSTASTEPPLAYINYLDASNGANF,YSTAPLAYBISINYLDASNGANF,Y"STAPLAYLOOP,JSRPLAYU}P1 6LDX#3 @LDA#1J.1STASOUNDON,XTDEX ^BPL.1hRTSr*|PLAYUP1LDA#3STA$D20FPUP1LDX#3 }.1LDA#0STAHKUCNT,XSTAPORTCNT,XSTAARPCNT,XSTAFMODCNT,XSTAFRQOLD,XSTAFRQNEW,XSTAA}UDCOLD,XSTAAUDCNEW,XSTASNDON,XSTASNDOLD,XSTASNDNEW,XDEX BPL.1&;0STATAKTCNT:LDY}STEPPLAYDLDAMONHI,YNASLXASLbASLlTAYvLDAMONIANF,YSTAAUDCTL1INYLDAMONIANF,YSTA}SPEEDPNTSTASPEEDCNTDECSPEEDCNTINYLDAMONIANF,YSTATAKTPNTINYINY LDX#0.5LDAMON}IANF,YSTAFLAGS,X INYINX CPX#4 *BNE.54*>RTSH- RSNGSTOP \LDA#0 fLDX#7p.1STA$D2}00,XzDEX BPL.1 LDX#3 .2LDA#1STASOUNDON,X LDA#0STAAUDCNEW,XDEX BPL.2*RT}S- MUSAN LDA$224 STAVBIRETT  LDA$225 STAVBIRETT+1 $ LDA#0. STA$D40E8 MUSPNT1LDA#MUSVBI }B STA$224L MUSPNT2LDA/MUSVBI V STA$225 ` LDA#$C0j STA$D40Et *~ RTS MUSVBIJSRPLAY JMP$E462 -} MUSAUS LDA#0 STA$D40E LDAVBIRETT STA$224 LDAVBIRETT+1 STA$225 LDA#$C0 STA$D40E} JSRSNGSTOP * RTS -( PLAYLDA#32 STA$D20F< *F INCSPEEDCNTP LDASPEEDCNTZ CMPSPEEDPNT d BEQ}.2n JMPNOFRQx * ;ADRESSENUNDWERTEFUER! ;TRANSPOSEUNDSND-TRANSPOSE ;ERMITTELN * .2LDA#0 STA}SPEEDCNT LDAAUDCTL1 STA$D208 ; LDX#0 .1LDATRKLOADR,X STA$00 LDATRKHIADR,X  STA$01 LD}YSTEPPLAY LDA($00),Y" TAY, LDATKLO,Y6 STATRKLO,X@ LDATKHI,YJ STATRKHI,XT LDYSTEPPLAY^ LDATRL}OADR,X h STA$00r LDATRHIADR,X | STA$01 LDA($00),Y STATR,XTRANSPOSE LDASTLOADR,X STA$00 LDA}STHIADR,X STA$01 LDA($00),Y STAST,XSND-" ; INX CPX#4 BNE.1 * ;NOTEN-WERTEAUSTABEL}LEN ;ERMITTELN *& GET_NOTELDX#00 .10LDATRKLO,X : STA$00D LDATRKHI,X N STA$01X LDATAKTCNTb ASL}l TAYv LDA($00),Y STAFRQNEW,X STAPORTPNT,X INY LDA($00),Y STASNDNEW,X BEQ.96 AND#$0F} PHA LDASNDOLD,X AND#$0F STAHILF97 PLA CMPHILF97  BEQ.96 LDA#0 STAHKUCNT,X STA}PORTCNT,X* STAPORTCNT1,X4 STAPORTPNT,X> STAARPCNT,XH STAFMODCNT,XR STARELEASE,X \ .96INX f CPX#4 p }BNE.10z * LDX#0 .11LDAFRQNEW,X BEQ.12 AND#$F0 BEQ.12 LDAFRQNEW,X STAFRQOLD,X LDAS}NDNEW,X BEQ.12 LDA#1 STASNDON,X LDA#0 STAHKUCNT,XSTAPORTCNT,XSTAPORTCNT1,XSTAPORTP}NT,X$STAARPCNT,X.STAFMODCNT,X8STARELEASE,X B.12INX LCPX#4 VBNE.11`* jLDX#0t.13LDAFRQOLD},X ~AND#$08BNE.89TRONLDA#0TROFFSTATRON,XLDAFRQOLD,X AND#$F7CLC BCC.80.89L}DA#1STATRON,XLDAFRQOLD,X AND#$F7 .80SEC SBC#$01 STAFRQNEW,XPHA AND#$0F (BNE.21} 2LDA#0<STAFRQNEW,XFCLC PBCC.20 Z.21TAY dLDA#0 n.14CLC xADC#12DEY BNE.14STAFRQN}EW,X .20PLALSRLSRLSRLSRCLCADCFRQNEW,XSTAFRQNEW,XDECFRQNEW,XLDAFRQNEW,X}STAFRQRETT,XINX CPX#4 "BNE.13,*6INCTAKTCNT@LDATAKTCNTJCMPTAKTPNTTBCCNOFRQ ^LDA#0}hSTATAKTCNTrINCSTEPPLAY|LDAPLAYBISCLC ADC#1CMPSTEPPLAY BNEJ45LDAPLAYLOOPSTAST}EPPLAYJ45LDYSTEPPLAYLDAMONHI,Y#$#$#$#$ASLASLASLTAYLDAMONIANF,YSTAAUDCTL1INY}LDAMONIANF,Y&STASPEEDPNT0INY:LDAMONIANF,YDSTATAKTPNTNINYXINY bLDX#0l.88LDAMONIANF,Y}vSTAFLAGS,XINYINX CPX#4 BNE.88**;HUELLKURVE*NOFRQLDX#0L999LDASOUNDON,X} BNE.71INX CPX#4 BNEL999 RTS* .71LDASNDON,X *BEQZ64LDASNDNEW,X >BNE.1 HLDA#1}RSTARELEASE,X\LDASNDOLD,XfSTASNDNEW,XpCLC zBCC.5.1LDASNDNEW,XSTASNDOLD,X.5LDASNDNEW,}XRELEASE AND#$0FCLC ADCST,XASLTAYLDASOUNDWO,Y#$#$#$ STA$00LDASOUNDWO+1,Y#$#$#$ }STA$01 LDY#65 LDA#$FFCMP($00),Y BNE.10 $BEQZ98 ..10INY8CMP($00),Y BBNEZ20 LJMPZ9}8V*`Z20LDARELEASE,X jBNEZ98tLDAHKUCNT,X~CMP($00),Y BNEZ98DEYLDA($00),YSTAHKUCNT,X}Z98LDYHKUCNT,XLDA($00),Y CMP#$FF BNEZ3 Z6LDA#0STASNDON,XSTAHKUCNT,XSTAPORTCNT,X}STAPORTCNT1,X STAPORTPNT,XSTAARPCNT,XSTAFMODCNT,X(STASNDON,X2STARELEASE,X<TXAFASLP}TAY ZLDA#0dSTA$D201,Y nJMPA46xZ3STAAUDCNEW,XLDASNDNEW,X AND#$F0 BNE.1 LDA#$F0}.1STAHILF98LDAAUDCNEW,X AND#$0FCLCADCHILF98TAYLDALAUT_TAB,YSTAHILF98LDAAUDCNEW},X AND#$F0ORAHILF98"STAAUDCNEW,X,*6*ARPEGGIOS@* JLDY#103 TLDA#$FF^CMP($00),Y hBNEA}1rA10LDAFRQRETT,X|STAFRQNEW,X JMPA99* A1INYCMP($00),Y BNEA20 BEQA10A20LDY#86}LDA($00),Y CMP#$80 BNEA2 BEQA10;A2LDY#103LDAHKUCNT,XCMP($00),Y BCSA3 &BCCA10} 0A3INY:CMP($00),Y DBCCA4 NBCSA10X*bA4LDAARPCNT,XlCLC vADC#86TAYLDA($00),Y CMP}#$80 BNEA5 LDA#0STAARPCNT,X JMPA4 A5CLCADCFRQRETT,XSTAFRQNEW,XINCARPCNT,X*}A99LDATRON,XTRANSPOSE BNE.95 LDAFRQNEW,XCLC ADCTR,X*STAFRQNEW,X4.95LDYFRQNEW,XNEIN!!>L}DAAUDCNEW,X HAND#$F0 RCMP#$C0 \BEQ.1 fCMP#$D0 pBNE.4zLDAAUDCNEW,X AND#$0F ORA#$C0STA}AUDCNEW,XLDAW_BASS,Y JMP.5.1LDAH_BASS,Y JMP.5.4LDANOTETAB,Y.5STAFRQNEW,X**FREQUEN}Z-MODULATION* LDY#84 LDA#$FFCMP($00),Y BNEF1 $JMPZ001 .F1INY8CMP($00),Y BBNEF20 L}JMPZ001VF20LDY#67`LDA($00),Y jCMP#$80 tBNEF2 ~JMPZ001;F2LDY#84LDAHKUCNT,XCMP($00}),Y BCSF3 JMPZ001 F3INYCMP($00),Y BCCF4 JMPZ001*F4LDAFMODCNT,XCLC ADC#67}TAYLDA($00),Y (CMP#$80 2BNEF5 <LDA#0FSTAFMODCNT,XPCLC ZBCCF4d; nF5CLCxADCFRQNEW,X}STAFRQNEW,XINCFMODCNT,X**PORTAMENTO*Z001LDY#105LDA($00),YPHALSRLSRLS}RLSRSTAHILF99INCHILF99INCPORTCNT1,XLDAPORTCNT1,X"CMPHILF99 ,BEQP16PLA @JMPP99 }JP1PLA TAND#$0F^STAHILF99 hLDA#0rSTAPORTCNT1,X|;LDAPORTPNT,X CMP#1 BEQP2 CMP#2 }BEQP20 JMPP99*P2LDAPORTCNT,XCLCADCHILF99STAPORTCNT,X;P99LDAPORTCNT,XCLC}ADCFRQNEW,XSTAFRQNEW,X&CLC 0BCCZ002:*DP20LDAPORTCNT,XNSECXSBCHILF99bSTAPORTCNT,Xl; }vJMPP99** Z002TXAASLTAYLDAFRQNEW,XSTA$D200,YLDAAUDCNEW,XSTA$D201,Y;A}46INCHKUCNT,XINX CPX#4 BEQ.1 JMPL999* .1RTS*- 4PLAYEND(>.AT"PSM V2.09A Juergen Schildm}ann" HTXTENDINX CPX#4 BEQ.1 JMPL999* .1RTS*- 4PLAYEND(>.AT"PSM V2.09A Juergen Schildm%$ IL +3/5.$ ,).+%2# 0%'!3536)nitialize9es.o!}QRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRWRRRRRR||!$2%33|||!}ARRRRRR|||||!}||||||!}||||||!}|ARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRSRRRRRR||$)3+|!}||||||!}||||||!}|||ZRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXRRRRRR3!6!}%-53)+$/30rotect&ile#hange$rive5nprotect&ile$!}elete&ile&ormat$isk"!#+􀤑!reyousure9. !}&ormatting#hange$isk   &ilename$NNNNNNNNNNN$9!}. 34!2434/0RRRRRRRRRRRRRRRRRRR&,!'33/.'RRRRRRRRRRRRRRRRRRR).)4!}34/0 2/54).%0,!9 2/54).%#( /. 0.4&21 0.4!5$# 0.4pB($pB$!}&A* , + (+ L+ L2`ȅЩ$Ѣ !i(А`ЅЩ&Ѣ!i(А`2!}ЩRЩrЩЩ` p+Ѝ Ѝ Ѝ Щ Т!""##Щ Ԣ!""##Io.!}/``ҩ(ӢL ,ҩ(ӢхЩ&Ѡґ i(Аѥi Ґ`t0 H)@ҩ)ӢЩ'L,ҩ) F,-ɛ 8 !}'L`,``ҩ)LF,ҩ) F,`ҩ) F,` (+ȅЩ$Ѣ *i(А-ɛ 8 $L,`!}/ԍԩ- _"#0*1`` ҍ, ,h@ LN-T- 1L'-`2350?:*8!}67 , >-_^ZX~vͨJNOD1:TESTDIRE.TXT B- VL.`ЄѠЙ-t0 0-H)h)!}JKD-EB- VL.`B-D-E-H-I- VL.` BL. 6,+# r,L2 !}}, - w. - r,L2t0 0.D.EB- VL.`D1:BD-E- VL.`-ɅɈ` (+ r,/%!}-8did H-%h8 i H-%h-%- (+`%22/2LJK*OPUIVCBXZ436521, .NMREYTWQ907!}8FHDGSA@Le/%/`Rb2qA!aQ1B"r , -t0 '!}-' ' e/`ɛ-'I'L90-N'L/8 H-h' L30 ̉-'N i -!}-`C3;1 -00 -- -`q0o0 0q0 0 1` (+ 0!} 0 0`ȅЩ$ѩn0 1- -`Z0* q0`o0d0ҽZ08 i(Аn0n0 в` -z3 -!}- -Lk1q0o0s0 s1s0L2 (+ȅЩ$ѩn0 1- -`Z0*  -L1o0Z08 i(Аn0n0!} еLs1Z-0--- .`Z08 &c2& o0`s0 p2нq2u02r%譈2r%ɛ!}r%LC22ɛr%LS2`&ree3ectorsx2~2x2~23/.' 3/5.$ .o&ile + (+ L+ +Cv03w0p0r0s0+ !}lv0L2s0s0p0s0 3s0r0L2s0s0p0ʎs0 3s0r0L2&&!'I'& '1'Y'r0 )3s0 )3` 3н 3ѠI!}`s0 \3z0]3{0lz0435D1:*.SNGD1:*.SPLD1:*.COMD1:*.*b030 0u0` ,3(.('(- /`r030 0u!}0` ,#(/(-(- /`% % '- %)%LP4ꭅ0)0 00 C70%% % '- %)%LP4ꭅ0)!}0 00 C70% (+u0 3g 7 - - e5 e50 e50 e57 e57m7 e5-`-78`-78-Έ--!}- 4. - r,L2u0 3Y - -Щ 45Ѝ*L#5 45~0 450~00m0Аѥо - r,L2!}-0--- .- - r,hh2HH`0`0Щ-0--- 4.- - r,hh2HH` (+ L+ +v05w0!}p0L2s0 5x05y0lx0;1O652616<. /' S,+ #L 6! . - r,L2 / # . - r,L!}2 / $ . - r,L2t0ҩ) F, 6' ' '- 1WLo6 6t0t0L7t0L7pt0L7 !}6t0t0L7t0L7Ft0L7t0i & r,s0s0 3s0r0L2')'')'()(`t0 ' 'Lo6 !}' 'Lo6( (Lo6HJJJJZ70h)Z70`!"#$%& K!}@ {@ @ @ Щ` = = = > 1> N> k> > > > > > ? 6? S? p? ? ? ? @Ѝ7э7 u< &= s= 4< < ; : =9 8` (+˅Щ$!}ѢҠ*i(Аҥ ୅0 C70$%R%z%%&B&j&&%0$%S%{%%&C&k&&% C70$0!}$ C70%0% C70T%0U% C70|%0}% C70%0% C70%0% C70&0& C70D&0E& C!}70l&0m& C70&0&`` h```L````` `7m7``7m7`````ԭ`բE )!}:``)E ):҄ӢE V:ґТE V:ӑТ/E ): ` `D ):``IE ):``B ):``B ):``B ):``[!}D V:ȭ0`Єѥ8Dѥ8[аѥeՅѥeԅАѦФ`Єѥ8Dѥ8[аѥm7ѥm7АѦФ`7Э7ѥ8D!}78[7΢77m777m777o7RB7SB7TB7UB7VBWB7XBp7\B7]B7^B7_B7`BaB7bBWBa!}B0eBТA =@L;7A7X =@ЅȱЅӈа6HB>B RBҽ\BL; m7ӥm7Ґӥґ =@ӑ !}=@L;m7Аѥ͜7L;͛7L;`fЩBѭ77ҭ77ӠБ =@ D@D[ҍ7Ӎ7Б =@ D@Hҍ7!}7Б =@ D@I ҍ7Ӎ7`oЩ7ѠЅȱЅӈm7ӥm7ҐӥґХ =@ =@7Υɝ`Щ`ѭ08э70!}8Ѝ7Π7`q7gBr7kBs7oBt7sBu7wBv7{Bw7hBx7lBy7pBz7tB{7xB|7|B}7iB~7mB7qB7uB7yB7}B7j!}B7nB7rB7vB7zB7~B`7m7ѭ7m7Аѭ7Y=7Z=7^=7_=Нѝmn7Аj7`7m7ѭ7m7!}Аѭ7==7==Й7ȥљ7ȥijАk7`Ѝo7эp7 =@l7`Ѝq7эr7 =@l7`Ѝs7эt"}7 =@l7`Ѝu7эv7 =@l7`Ѝw7эx7 =@l7`Ѝy7эz7 =@l7`Ѝ{7э|7"} =@l7`Ѝ}7э~7 =@l7`Ѝ7э7 =@l7`Ѝ7э7 =@l7`Ѝ7э7 =@l7"}`Ѝ7э7 =@l7`Ѝ7э7 =@l7`Ѝ7э7 =@j7`Ѝ7э7 =@j7`Ѝ7"}7m7 Ң =@`Ѝ7э7k7 Ң@ =@`Ѝ7э7` =@``Ѝ7э7ҩөԢґ D@ "}=@jԥk7`Ѝ7э7ԦԽҽӢґ D@ =@n7ԥj7```"}j7` @@A@@@A@hȘk7` l7`ҩӢn7LA"}n7n7iҐ֎m7n7 n7`0Pp XʈJHh(*j@`8xi)I e%$E楦F&f兆u5UV6vm-,"}ML N .n퍎}=]^>~y9Ya!Aq1Ql"}@A`$% `$% " }`P@0 `abcp`abc`abc" }ƿzqke_\VPMGDA>852/-)(%#!yspfaZURKHC?<9730-*(%$!yrlf`[UQLHD@<952/-*(%#!" }" }       " }fBi`Bȹ`Bȹ`B DB`ҢBBBBBBBBBBBڍBB BȹBBB"}ȹBȢ ``BB`$B%Bԩ)$E%` IELbԭB$B% D`B"}BBLFBBҢgBkBBBBBoBsBBwB{BBоBBB BBȱB()H"}B)BhͽBBBBBBBBдB+)'BBBBBBBBBBBˢB) BB) B"}B)8BH)B i BhJJJJ}BBޏBBBЩBBBGBBBiBBBB BȹBȹ"}BȢ `B`B[BBBBBBB)}B @AAL?GB BBB"}(BBBBBBBBB LHBB)BB)mB[CBB) BBg BBLGVɀgB"}ԽBiVɀBLG}BBBB B}BBBB)B) BBL%HCL%H+CBTLyHLyHCɀ"}LyHTBLyHLyHBiCɀB}BBBiHJJJJBBBBͻBhLHh)BBBLHBmBBB"}}BB B8BBLH BҽBBLF`03-6!*uergen3childmann%$Hh)BBBLHBmBBB T0