Sayfa 5

ldy #$00 ; sayacı sıfırla loop2 lda temp,y ; temp adresindeki byte’ları oku sta ($fb),y ; o anki karakterin adreslerine yaz iny ; sayacı 1 arttır. cpy #$08 ; 8 oldumu? bne loop2 ; olmadıysa işlemleri tekrarla lda $fb ; Karakter setinin LO adresini al clc ; Carry bitini sıfırla adc #$08 ; 8 ile topla sta $fb ; LO adrese yaz bcc next_char ; elde biti yoksa git 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. temp .byte 0,0,0,0,0,0,0,0

.end

Program listesinde cfg0 ve cfg1 etiketli satırlardaki komutların değiştirilmesiyle 4 farklı karakter seti elde edilebilir. Aşağıda bu komutları ve elde edilen karakter setlerini görebilirsiniz.

cfg0 ror cfg0 ror cfg1 rol temp,x cfg1 ror temp,x

cfg0 rol cfg0 rol cfg1 rol temp,x cfg1 ror temp,x