Sayfa 16

inc $fe dex bne transfer lda #$37 sta $01 cli lda #$1c sta $d018 new_fonts lda #$30 ldy #$00 sty $fb sta $fc ldx #$10 loop0 lda ($fb),y and #$f0 pha asl sta $fd pla ora $fd sta $fe lda ($fb),y and #$0f pha lsr sta $fd pla ora $fd ora $fe sta ($fb),y iny bne loop0 inc $fc dex bne loop0 rts .end

5 numaralı karakter setinin ekran görüntüsü 6 numaralı karakter setinin ekran görüntüsü