D .EQ IBYTE$FD ; ILK BYTE, GRAFIK SATIRININ EN SOLUNDAKI BYTEj .EQ K$61 ; EKRAN SATIRI SAYACI .EQ J$62 ; GRAFIK SATIRI SAYACI .EQ I$63 ; EKRAN KOLU SAYACI .EQ L$64 ; HUCRELERIN O ANKI DURUMUNU STEREN VEKR'  .EQ C$02 ; L'NIN KOPYAIN YERINI STEREN VEKRa $ .EQ SAYAC$66 ; BIR BYTE ICINDEKI HUCRELERIN SAYACIh .; 8 .BA $C000 ; PROGRAM $C000'DAN (49152) BASLIY B; L LDA #$20 ; GRAFIK EKRANI $2000'DEN BASLAR V STA EKR2 ; PROGRAM KI ICINDE DEGISIKLIK YAPIP: ` LDA #$00 ; ASAGIDAKI $FFFF'I $2000 YAPIY.J j STA EKR1 tEKR STA $FFFF ; GRAFIK EKRANI $00 ILE DOLDURULUP TEMIZIY ~ INC EKR1  BNE EKR  INC EKR2  LDX EKR2  CPX #$40  BNE EKR  STA $D021 ; KULLANILAN RENKLERDEN BIRI SIYAHG  LDA #$69 ; DIGER IKISI M VE YESIL ($45)  LDX #$04 ; BU RENK $0400$07FF (VIDEAM)'A DOLDURULUY  STX VRAM2  LDX #$00  STX VRAM1 VRAM STA $FFFF ; RENK DOLDURMA ISLEMI  INC VRAM1  BNE VRAM  INC VRAM2"  LDX VRAM21 ( CPX #$08@ 2 BNE VRAMk < LDA #15 ; BIR DIGER RENK DE ACIK GRI F LDX #$D8 ; O DA RENK RAM'INA ($D800$DBFF) KUY P STX RRAM2 Z LDX #$00 d STX RRAM1 nRRAM STA $FFFF ; RENK RAM'INI RENKDIRME x INC RRAM1!  BNE RRAM2  INC RRAM2C  LDX RRAM2R  CPX #$DCa  BNE RRAM  LDA 53270 ; MULTICOL'U AC  A #16  STA 53270  LDA 53265 ; GRAFIK SAYFAI AC  A #32  STA 53265  LDA 53272 ; GRAFIK EKRANI $2000'DE #247" A #82 STA 53272\ LDX #$20 ; $2000, ILK GRAFIK BYTE'In" STX IBYTE1}, LDX #$006 STX IBYTE@ LDA #25 ; 25 EKRAN SATIRI VARJ STA KTDGU4 LDA #8 ; HER EKRAN SATIRINDA B GRAFIK SATIRI VAR^ STA J;hDGU3 LDA IBYTE ; PROGRAM GENE KINI DEGISTIRIY{r STA BYTE1 ; O ANKI GRAFIK SATIRININ ILK BYTE'I IBYTE'DAN| STA BYTE4 ; ALINIY STA BYTE7 STA BYTE10 LDA IBYTE1 STA BYTE2 STA BYTE5 STA BYTE8 STA BYTE118 LDA #40 ; HER SATIRDA 40 KOL VARD STA Ib STX L ; L VEKE $5000, STX C ; C VEKE $6000 LDA #$50 ; YUKIY STA L1 LDA #$60 STA C1DGU2 LDA #4 ; HER BYTE'DA 4 HUCRE VAR& STA SAYAC 0 LDY #0D:DGU1 LDA (L),Y ; SIRASI GE HUCRENIN DEGERINI OKUdD STA (C),Y ; KOPYAI CIKARNBYTE ASL $FFFF ; O AN KULLANILAN GRAFIK BYTE'INDA YER ACX ASL $FFFFb A $FFFF ; ACILAN YERE, OKUDUGUN DEGERI YERLESTIRl STA $FFFF!v INC L ; VEKRLERI BIR BYTE ILER- INC C: BNE L1H INC L1V INC C1L1 DEC SAYAC ; O GRAFIK BYTE'INDA HALA BOS YER VARSA BNE DGU1 ; S ISLEMI BIR SRAKI HUCRE ICIN TEKRARLA CLC ; YOKSA BIR SRAKI GRAFIK BYTE'ININ+ LDA #8 ; ADREI, ESKIE 8 PLAYARAK HESAPLA< ADC BYTE1M STA BYTE1^ STA BYTE4o STA BYTE7 STA BYTE10 BCC L2  INC BYTE2 INC BYTE5  INC BYTE8* INC BYTE114L2 DEC I ; BASKA KOL KALDIYSA'> BNE DGU2 ; O SATIRI OLUSTURMAYA DEVAM ETfH INC IBYTE ; YOKSA BIR SRAKI SATIRIN ILK GRAFIK BYTE'INI}R BNE L3 ; HESAPLA\ INC IBYTE1fL3 TXA ; C'NIN STERDIGI BOLGEDEKI BILGILERIp TAY ; VE $4000'DEN SRA GE KURALI KULLANARAK*zDGU0 CLC ; HUCRELERIN YENI DURUMUNU HESAPLA VE_ ADC $6000,Y ; SUCU $5000'DEN SRAA YERLESTIRi INY{ ADC $6000,Y INY ADC $6000,Y TAX LDA $4000,X DEY PHA TYA TAX PLA STA $5000,X LDA #0& CPY #158 ; S HUCRE DEGILSEJ BNE DGU0 ; HESAPLAMAYA DEVAMW$ LDX #0. DEC J ; BIR EKRAN SATIRI BITTI MI8 BEQ L4B JMP DGU3 ; BITMEDIYSE CIZIME DEVAM ETL L4 LDA IBYTE ; BITTIYSE, ESKI ILK BYTE DEGERINE 312V CLC ; EKLEYEREK YENI IBYTE'I BUL,` ADC #(312)<j STA IBYTENt LDA #(312)`~ ADC IBYTE1r STA IBYTE1 DEC K ; HALA CIZILECEK SATIR VAR MI BEQ L5 JMP DGU4 ; VARSA CIZIME DEVAM ET L5 RTS ; YOKSA, CIZIMI BITIR