Sayfa 125

; Ana Rutin anarutin ldx sayac

; koordinatları al lda cosinusTablosuXHi,x sta xhi lda cosinusTablosuXLo,x sta xlo lda sinusTablosuY,x sta y ldy xhi ; x koordinatı 9.bit lda xlo ; x koordinatı ldx y ; y koordinatı jsr noktakoy ; ekrana nokta bas inc sayac ; tablo indeks sayacını 1 arttır bne anarutin ; eğer hala 255'i geçmediyse ana rutin başlangıcına git jmp * ; sonsuz döngüye gir

; isim : noktakoy

; açıklama : ekrandaki verilen (x,y) koordinatına nokta koyar

; girdiler : a -> x koordinatı

; x -> y koordinatı

; kullanılan : $f0, $f1, $f2 noktakoy sty $f2 ldy ekranLo,x sty $f0 ldy ekranHi,x sty $f1 ldy $f2 beq .xhisifir inc $f1