C64 Türkiye sayı 6, sayfa 3
Sayfanın metni

Sayfa 3

lda $01 ; I/O bölgesi eski haline ora #$04 ; getiriliyor. CPU artık sta $01 ; karakter roma erişemez cli ; interruptlara izin ver init lda #$1c ; VIC'e yeni karakter sta $d018 ; setinin yerini bildir.

new_fonts lda #$30 ; Karakter seti başlangıç ldy #$00 ; adresi $3000 olarak sty $fb ; $FB ve $FC adreslerine sta $fc ; kaydediliyor

loop3 ldy #$00 ; Y registeri byte sayacı=0 loop2 ldx #$08 ; "bit" sayacı lda #$00 ; Geçici adresi sta $02 ; sıfırla loop0 lda ($fb),y ; O anki adresin değerini oku loop1 ror ; bir bit sağa döndür - 7. biti carry'e koy rol $02 ; bir bit sola döndür. Carry’i 7. bite koy dex ; bit sayacını 1 azalt bne loop1 ; sıfır olmadıysa tekrarla lda $02 ; geçici adresi oku sta ($fb),y ; o anki adrese geri yaz iny ; byte sayacını 1 arttır bne loop2 ; sıfır olmadıysa bir byte daha oku

inc $fc ; Karakter setinin HI adresini 1 arttır next_char lda $fc ; HI adresi al cmp #$40 ; #$40 oldumu? Olmadıysa bne loop3 ; işlemleri tekrarla rts ; Olduysa programı bitir.

.end

Yeni karakter setine ait ekran görüntüsü.

vs...) yardım edebilecek editörler aranıyor. Yardım etmek isteyenler kendilerini tanıtan ve ilgilendiği bölümleri belirten bir e-maili c64turkiye@yahoo.com veya hades@hi3s.org adreslerine atabilirler.

Klavyeyle gezinmek için ← ve → tuşları.