Sayfa 13

1x2 KARAKTER SETİ ;=======================================================================================; ; C64 için yeni karakter seti #7 (1x2 FONT) ; ; C64 TÜRKİYE dergisi sayı 8 için hazırlanmıştır ; ; 01-06-2005 / ismail "hades" şahin ; ; hades@amigaturk.com www.c64turkiye.com www.amigaturk.com c64turkiye@amigaturk.com ; ;=======================================================================================; Yazılım ile karakter setini değiştirmeye devam ediyoruz. *=$0801 .word nextline .word 2005 ; 2005 .byte $9e ; SYS .text "2061" ; 2061 .byte 0 ; komutu nextline .word 0

start etiketli yere kadar olan kısımda LIST komutuyla göreceğiniz 2005 SYS2061 satırını oluşturuyoruz. start sei lda $01 and #$fb sta $01

Önce interrupları durduruyoruz ve karakter romunu erişilebilir hale getiriyoruz. lda #$d0 ldx #$30 ldy #$00 sty $fb sta $fc sty $fd stx $fe

Karakter romunun ve Ram'e kopyalayacağımız yerin adreslerini tanımlıyoruz. ldx #$10 transfer lda ($fb),y sta ($fd),y iny bne transfer inc $fc inc $fe dex bne transfer lda $01 ora #$04 sta $01 cli

Yukarıdaki kısımda karakter romunu ram'e kopyalıyoruz.Daha sonra c64'ün bellek konfigürasyonunu eski haline getirip interruptları serbest bırakıyoruz. new_fonts lda #$30 ldx #$34 ldy #$00 sty $fb sta $fc