,è033C !COMMOD°E 16 TURBO KAYIT PROGRAMIXò033C !¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬cü033C !†033C !BU Y°DAM YAR†IYLA KASETE«033C !KAYDEDECEGINIZ PROGRAMLARIÒ033C !1541 DISK DRIVE HIZINA YAKINù$033C !BIR SURATTE YUKLEYEBILIR¿IZ. .033C ! 8033C !BU PROGRAMA AU¤«Š< B033C !DAHIL EDILMISTIR.G L033C !X V3D00 ¬²$3D00 `3D00 A90B LDA #³SAVVEC !” VEK.DEG.¡ j3D02 8D3003 STA $0330 !YENI ”Ê t3D05 A93D LDA #±SAVVEU !Y°DAMINA GITä ~3D07 8D3103 STA $0331ô ˆ3D0A 60 RTSÿ ’3D0B ! œ3D0B !” KOMUTUNU YERLESTIR< ¦3D0B !#7 CIHAZINI DENETLEZ °3D0B !TURBO MATIYLA ” ETe º3D0B !| Ä3D0B 48 SAVVEC PHA  Î3D0C A5AE LDA $AE !CIHAZ NO. AL¿ Ø3D0E C907 CMP #$07 !#7 MI™Ú â3D10 F004 BEQ T” !EVETê ì3D12 68 PLA ö3D13 4CA4F1 JMP $F1A4 !N°MAL KAY. YAP 3D16 !9 3D16 !FILE'I ” ET.‘CEX 3D16 !AU¤«“ Y°DAMINI N°MALy 3D16 !S‘RA TAKIP EDEN FILE'I“ (3D16 !TURBO MATINDA.ž 23D16 !Ä <3D16 A5B2 T” LDA $B2 !” ADRES.GITÝ F3D18 8D7B3F STA S¤REó P3D1B A5B3 LDA $B3 Z3D1D 8D7C3F STA S¤REª1$ d3D20 A59D LDA $9D? n3D22 8D7D3F STA S¤REª2U x3D25 A59E LDA $9Ep ‚3D27 8D7E3F STA S¤REª3• Œ3D2A A5AD LDA $AD !IKINCI ADR.AL¼ –3D2C 8DBF3E STA ŠFLG !AU¤«Š FLAG'IÓ  3D2F A00F LDY #$0Fû ª3D31 A920 LDA #$20 !BOS PROGRAM ADI ´3D33 99C03E LOOP1 STA FLNAME,Y. ¾3D36 88 DEYF È3D37 10FA BPL LOOP1s Ò3D39 A4AB LDY $AB !PRG.AD.UZUNLUGUNA BAKœ Ü3D3B C011 CPY #$11 !16'DAN BUYUK MU™» æ3D3D 9002 BCC LOOP2 !HAYIRâ ð3D3F A010 LDY #$10 !1. 16 KARAKTERø ú3D41 88 LOOP2 DEY3D42 3008 BMI T”1;3D44 B1AF LDA ($AF),Y !PROGRAM ADI'NI AL_3D46 99C03E STA FLNAME,Y !SAKLAŽ"3D49 4C413D JMP LOOP2 !IKINCI KARAKTERI AL—,3D4C¹63D4C A048 T”1 LDY #FLNAME«“ERè@3D4E B9773E T”2 LDA “ER«1,Y !“ER BYTE'I ALJ3D51 99FF06 STA $06FF,Y !” ETMEK ICIN SAKLA(T3D54 88 DEYT^3D55 D0F7 BNE T”2 !BUTUN BYTLE'LAR ICIN‚h3D57 2019E3 JSR $E319 !REC.«PLAY TUS. BAS¨r3D5A A948 LDA #$48 !OUTPUT VEK¤ŠUÐ|3D5C 8D2403 STA $0324 !“ER'A AYARLAç†3D5F A903 LDA #$033D61 8D2503 STA $0325š3D64 A901 LDA #$01(¤3D66 AA TAX8®3D67 A8 TAYc¸3D68 20BAFF JSR $FFBA !PROGRAMI AYARLAzÂ3D6B A9BC LDA #$BC•Ì3D6D A2C0 LDX #³FLNAME°Ö3D6F A03E LDY #±FLNAMEàà3D71 20BDFF JSR $FFBD !PROGRAM ADINI AYARLAê3D74 A900 LDA #$00 !KUSURLU '”'ô3D76 859A STA $9A>þ3D78 A903 LDA #$03 !” $0324'DANT3D7A 8523 STA $23k3D7C A924 LDA #$243D7E 8522 STA $22˜&3D80 A922 LDA #$22¿03D82 A003 LDY #$03 !$0326'YA KADARÖ:3D84 A226 LDX #$26öD3D86 20D8FF JSR $FFD8 !” ET"N3D89 A94B LDA #$4B !OUTPUT VEK.RESET ET<X3D8B 8D2403 STA $0324Sb3D8E A9EC LDA #$ECml3D90 8D2503 STA $0325„v3D93 A900 LDA #$00”€3D95 AA TAX¤Š3D96 A8 TAYº”3D97 85B2 STA $B2äž3D99 A907 LDA #$07 !TURBO ” $0700'DENú¨3D9B 85B3 STA $B3²3D9D 859E STA $9E0¼3D9F A9B0 LDA #$B0 !$07B0'AFÆ3DA1 859D STA $9DcÐ3DA3 20C83D JSR F” !” ETzÚ3DA6 A980 LDA #$80ä3DA8 859A STA $9A§î3DAA A200 LDX #$00¾ø3DAC A000 LDY #$00è3DAE AD7B3F LDA S¤RE !ANA PROGRAMIN ” 3DB1 85B2 STA $B2 !ADRE¿I DUZENLE)3DB3 AD7C3F LDA S¤REª1? 3DB6 85B3 STA $B3Z*3DB8 AD7D3F LDA S¤REª2p43DBB 859D STA $9D‹>3DBD AD7E3F LDA S¤REª3¡H3DC0 859E STA $9EÉR3DC2 20C83D JSR F” !PROG.TURBO ” ETí\3DC5 4C0387 JMP $8703 !'‡Y'E D‘øf3DC8 !p3DC8 !TURBO ” BURADAN BASLIY°%z3DC8 !Q„3DC8 20123E F” JSR WRTHDR !HEADER'I YAZgŽ3DCB A5B2 LDA $B2–˜3DCD 20403E JSR WRTBYT !ALCAK ADRESI YUKLE¬¢3DD0 A5B3 LDA $B3ܬ3DD2 20403E JSR WRTBYT !YUKSEK ADRESI YUKLEó¶3DD5 A59D LDA #$9DÀ3DD7 20403E JSR WRTBYT !ALCAK ADRES S‘U5Ê3DDA A59E LDA $9EbÔ3DDC 20403E JSR WRTBYT !YUKSEK ADRES S‘UxÞ3DDF 84B4 STY $B4Žè3DE1 A4B2 LDY $B2¥ò3DE3 A900 LDA #$00»ü3DE5 85B2 STA $B2Þ 3DE7 B1B2 TSAVLOOP LDA ($B2),Y  3DE9 20403E JSR WRTBYT !BIR PROGRAM BYTE'I0 3DEC C8 INY !BUMP PROG.POµER'IF$ 3DED D002 BNE T”3Z. 3– E6B3 INC $B3ƒ8 3DF1 C49D T”3 CPY $9D !PROGRAM S‘UNA¦B 3DF3 A5B3 LDA $B3 !GELINDI MI™¼L 3DF5 E59E SBC $9EåV 3DF7 90EE BCC TSAVLOOP !HENUZ DEGIL.û` 3DF9 A5B4 LDA $B4$j 3DFB 20403E JSR WRTBYT !CHECKSUM YAZOt 3DFE 20543E JSR WRTBYT !S‘ BIT'I CIKARf~ 3E01 A91B LDA #$1Bˆ 3E03 8D06FF STA $FF06 !EKRANI DUZELT³’ 3E06 8D3EFF STA $FF3E !ROM'A D‘Ùœ 3E09 A908 LDA #$08 !TEYP'I DURDURï¦ 3E0B 8501 STA $01 ° 3E0D 58 CLI !IRQ'YA BASLA8º 3E0E 2084FF JSR $FF84 !I­O'YU RESET ETHÄ 3E11 60 RTSQÎ 3E12uØ 3E12 78 WRTHDR SEI !KUSURLU IRQšâ 3E13 8D3FFF STA $FF3F !ROM DIARIÁì 3E16 A900 LDA #$00 !TEYP'I ÇALITIR×ö 3E18 8501 STA $01þ 3E1A A90B LDA #$0B !EKRANI TEMIZLE 3E1C 8D06FF STA $FF06@ 3E1F CA HEADR1 DEX !TEYP'I PAUSE ETY 3E20 D0FD BNE HEADR1i( 3E22 88 DEY‚2 3E23 D0FA BNE HEADR1­< 3E25 A9A0 LDA #$A0 !T2'DEKI DEGERLE ÖNÝF 3E27 8D02FF STA $FF02 !ZAMANLAYICIYI AYARLAôP 3E2A A900 LDA #$00Z 3E2C 8D03FF STA $FF03;d 3E2F A910 LDA #$10 !ZAMANLAYICIYI S‹IRLAUn 3E31 8D09FF STA $FF09yx 3E34 A040 LDY #$40 !64 KERE YAP—‚ 3E36 A910 HEADR2 LDA #$10ÃŒ 3E38 20403E JSR WRTBYT !16 DEGERINI YAZÓ– 3E3B 88 DEYì  3E3C D0F8 BNE HEADR2ª 3E3E A95A LDA #$5A !VE S‘RA 'Z' KARAK."´ 3E40 !V¾ 2750 85AB WRTBYT STA $AB !OUTPUT BYTE'INI SAKLAÈ 3E42 45B4 E° $B4 !CHECKSUM'I HESAPLA•Ò 3E44 85B4 STA $B4»Ü 3E46 A908 LDA #$08 !8 –A LOOP YAPÑæ 3E48 85AC STA $ACð 3E4A 26AB WBYTE1 ROL $AB !BIT'I TASIMAYA AL'ú 3E4C 20543E JSR WRTBIT !BIT'I YAZ= 3E4F C6AC DEC $ACV 3E51 D0F7 BNE WBYTE1f 3E53 60 RTSq" 3E54 !Ÿ, 3E54 A26C WRTBIT LDX #$6C !KISA OLARAK AL½6 3E56 9002 BCC WBIT1 !KISAé@ 3E58 A2FF LDX #$FF !DEGILSE UZUNLASTIR.J 3E5A 205D3E WBIT1 JSR WBIT2 !OUTPUT'U YUKSELT.T 3E5D !VE DUSURc^ 3E5D A910 WBIT2 LDA #$10 !ZAMANLAYICI ICIN BEKLEƒh 3E5F 2C09FF WBIT3 BIT $FF09›r 3E62 F0FB BEQ WBIT3«| 3E64 48 PHA† 3E65 A900 LDA #$00ô 3E67 8E02FF STX $FF02 !ZAMANLAYICIYI RESET ETš 3E6A 8D03FF STA $FF03¤ 3E6D 68 PLAK® 3E6E 8D09FF STA $FF09 !ZAMANLAYICIYI SILa¸ 3E71 A501 LDA $01w 3E73 4902 E° #$02Ì 3E75 8501 STA $01Ö 3E77 60 RTS¨à 3E78 !Åê 3E78 !“ER BURADA BASLIY°Ðô 3E78 !üþ 3E78 A948 LDA #$48 !RESETVEK¤ŠU YERLES.  3E7A 8DFCFF STA $FFFC-  3E7D A903 LDA #$03G  3E7F 8DFDFF STA $FFFDm & 3E82 8D3FFF STA $FF3F !ROM DISARIœ 0 3E85 EE19FF INC $FF19 !B°DER RENGINI ARTIRÀ : 3E88 18 CLC !“ER'A 'RTS' YAPTIRê D 3E89 204F03 JSR $034F !BIR FILE YUKLE!N 3E8C 8D3EFF STA $FF3E !ROM ICERI%!X 3E8F A522 LDA $22Q!b 3E91 8D19FF STA $FF19 !B°DER'I RESET ETo!l 3E94 58 CLI !IRQ'YA BASLA !v 3E95 208AFF JSR $FF8A !OUTPUT VEK¤R'U RES.ETË!€ 3E98 2084FF JSR $FF84 !I­O'YU RESET ET÷!Š 3E9B A59E LDA $9E !CHECKSUM.KARSILASTIR "” 3E9D C59D CMP $9D6"ž 3E9F D019 BNE LODERR !BASKA«'“ ERR°']"¨ 3EA1 AD4707 LDA $0747 !FLAG'I Š ETt"² 3EA4 F00E BEQ EXITš"¼ 3EA6 A9FF LDA #$FF !CURS°'U KAPAT´"Æ 3EA8 8D0CFF STA $FF0CÎ"Ð 3EAB 8D0DFF STA $FF0Dû"Ú 3EAE 20BE8B JSR $8BBE !'Š'I GERCEKLESTIR*#ä 3EB1 4CDC8B JMP $8BDC !OBUR ACIKLAMAYI YAP5#î 3EB4 !f#ø 3EB4 209D8A EXIT JSR $8A9D !œ'I GERCEKLESTIR†# 3EB7 4C0387 JMP $8703 !'‡Y'‘# 3EBA !»# 3EBA A21D LODERR LDX #$1D !'“' ICIN #â# 3EBC 4C8386 JMP $8683 !OUTPUT ERR°í#* 3EBF !$4 3EBF 00 ŠFLG BYT 0 !³±0 ISE PROGRAM.Š ET%$> 3EC0 !7$H 3EC0 !¬²$0337B$R 3EC0 !_$\ 3EC0 202020 FLNAME TXT "t$f 3ED1 ! 17 BOSLUK†$p 3ED1 !¬²$0348´$z 3ED1 AD19FF LDA $FF19 !B°DER RENGINI ” ETÊ$„ 3ED4 8522 STA $22í$Ž 3ED6 38 SEC !“ER'A 'JMP' ETTIR %˜ 34D7 78 SEI !KUSURLU IRQ%¢ 3ED8 !¬²$034F:%¬ 3ED8 08 PHP !STATUYU ” ETb%¶ 3ED9 209303 JSR $0393 !HEADER'I OKU‘%À 3EDC 20B803 JSR $03B8 !ALCAK YUKLEMEYI OKU¡%Ê 3EDF A8 TAYÉ%Ô 3EE0 A900 LDA #$00 !ALCAK BYTE S‹IRß%Þ 3EE2 85B2 STA $B2&è 3EE4 20B803 JSR $03B8 !YUKSEK YUKLEMEYI OKU%&ò 3EE7 85B3 STA $B3O&ü 3EE9 20B803 JSR $03B8 !AALCAK S‘U OKUe&3EEC 852D STA $2D&3EEE 20B803 JSR $03B8 !YUKSEK S‘U OKU¥&3EF1 852E STA $2EÏ&$3EF3 20B803 T“1 JSR $03B8 !BYTE'I OKUð&.3EF6 91B2 STA ($B2),Y !SAKLA'83EF8 459E E° $9E !CHECKSUM'I HESAPLA/'B3EFA 859E STA $9EN'L3EFC C8 INY !POµER'I ARTIRv'V3EFD D005 BNE T“2 !YENI SAYFA DEGIL¡'`3EFF E6B3 INC $B3 !YUKSEK BYTE'I ARTIRÐ'j3F01 EE19FF INC $FF19 !B°DER RENGINI ARTIRû't3F04 C42D T“2 CPY $2D !FILE'IN S‘U MU™(~3F06 A5B3 LDA $B34(’3F0A 90E7 BCC T“1 !HENUZ DEGIL^(œ3F0C 20B803 JSR $03B8 !CHECKSUM'I OKU{(¦3F0F 859D STA $9D !SAKLA¡(°3F11 A908 LDA #$08 !TEYP'I DURDUR·(º3F13 8501 STA $01×(Ä3F15 28 PLP !STATUYU DUZELT)Î3F16 B001 BCS “1 !SET'I TASI,JMP $0700)Ø3F18 60 RTS/)â3F19 4C0007 “1 JMP $0700:)ì3F1C !L)ö3F1C !¬²$0393W)3F1C !n) 3F1C A900 LDA #$00„)3F1E 8601 STA $01›)3F20 CA RHEAD1 DEX´)(3F21 D0FD BNE RHEAD1Ä)23F23 88 DEYÝ)<3F24 D0FA BNE RHEAD1ó)F3F26 849E STY $9E *P3F28 A200 LDX #$00+*Z3F2A 20C603 RHEAD2 JSR $03C6A*d3F2D 26AC ROL $ACW*n3F2F A5AC LDA $ACn*x3F31 C910 CMP #$10‡*‚3F33 D0F5 BNE RHEAD2¨*Œ3F35 20B803 RHEAD3 JSR $03B8¿*–3F38 C910 CMP #$10Ø* 3F3A F0F9 BEQ RHEAD3ï*ª3F3C C95A CMP #$5A+´3F3E D0EA BNE RHEAD2+¾3F40 60 RTS#+È3F41 !5+Ò3F41 !¬²$03B8@+Ü3F41 !W+æ3F41 A901 LDA #$01m+ð3F43 85AC STA $ACŽ+ú3F45 20C603 GBYTE1 JSR $03C6¤+3F48 26AC ROL $AC½+3F4A 90F9 BCC GBYTE1Ó+3F4C A5AC LDA $ACã+"3F4E 60 RTSî+,3F4F !,63F4F !¬²$03C6 ,@3F4F !",J3F4F A910 LDA #$10>,T3F51 2401 GBIT1 BIT $01V,^3F53 D0FC BNE GBIT1r,h3F55 2401 GBIT2 BIT $01Š,r3F57 F0FC BEQ GBIT2¢,|3F59 2D09FF ¯ $FF09²,†3F5C 48 PHAÉ,3F5D A901 LDA #$01à,š3F5F A278 LDX #$78ú,¤3F61 8E02FF STX $FF02-®3F64 8D03FF STA $FF03+-¸3F67 A910 LDA #$10E-Â3F69 8D09FF STA $FF09_-Ì3F6C AD19FF LDA $FF19o-Ö3F6F 18 CLC†-à3F70 6910 ADC #$10 -ê3F72 8D19FF STA $FF19°-ô3F75 68 PLAÂ-þ3F76 0A ASL AÔ-3F77 0A ASL Aæ-3F78 0A ASL Aø-3F79 0A ASL A.&3F7A 60 RTS.03F7B