Sayfa 17

- STA - STA BYTE*7 - STA 2050 - L2 Basa - INC BYTE*2 - INC BYTE*5 esasa - INC BYTE*8 - INC BYTE*11 DEC 1 ; BASKA KOLON KALOIYSA BNE DONGUZ # O SATIRI OLUSTURMAYA DEVAM ET İNC IİBYTE 3; YOKSA BİR SONRAKİ SATIRIN İLK GRAFİK BYTE'İNİ BNE L3 ; HESAPLA INC TXA 3 C'NIN GÖSTERDİĞİ BİLGİLERİ TAY VE $402009'DEN SONRA N KURALI KULLANARAK CLC $ HUCRELERİN YENİ DÜRÜMÜNÜ HESAPLA VE $5080'DEN SONRASINA YERLESTİR ADC 2218 - INY - ADC 2238 - TAX - LDA $48008,X - DEY - PHA - TYA - TAX gege - PLA 23aa - STA $5000,X « 8310 - LDA HO 2320 - CPY #158 $ SON HUCRE DEGİLSE 2330 - BNE HESAPLAMAYA DEVAM - LDX #8 2350 - DEC J 3 BİR EKRAN SATIRI BİTTİ Mi? 2368 - BEG L4 e37a - JMP 3 BİTMEDİYSE CİZİME DEVAM ET 8380 -L4 LDA IBYTE # BİTTİYSE, ESKİ ILK BYTE DEĞERİNE 318 e3sa - CLC # EKLEYEREK YENİ BUL | esna - ADC #<<312) 2410 - STA IBYTE - LDA #>(312) 2438 - ADC 2440 - STA IBYTE*İ 2458 - DEC K # HALA CİZİLECEK SATIR VAR Mİ? 2460 - BEG L5 gaya - JMP DONGU4 3 VARSA CIZIME DEVAM ET 2488 -L5 RTS ; YOKSA, CIZIMI BİTİR