Sayfa 14

lda $fc ;Yüksek bayt aküye ldx $fb ;Alçak bayt X registerine jsr $bdcd ;Onlu sayõya çevir ve ekrana bas tekrar jsr $ffe4 ;Tuşlarõ kontrol et cmp #$20 ;”SPACE” mi ? bne tekrar ;değilse bir daha dene ldx #$00 ;X registerini sõfõrla clear sta $0552,x ;Aküdeki değeri ekrana bas. Aküde “SPACE” ;olduğu için ekrana boşluk konacaktõr. inx ;X’i 1 arttõr cpx #$0b ;X=11 oldu mu ? bne clear ;olmadõysa tekrar jmp yeni ;olduysa yeni işlem için başa dön. ;------------------------------------------------------------------- bayt jsr hextus ;HEX sistem tuşlarõnõ kontrol et lda temp ;Geçici değeri oku asl ;Bir kez sola kaydõr asl ; “ “ “ “ asl ; “ “ “ “ asl ; “ “ “ “ sta $fb ;Üst nibble olarak sakla jsr hextus ;HEX sistem tuşlarõnõ kontrol et lda temp ;Geçici değeri oku ora $fb ;Üst nibble ile “OR” işlemi yap rts ;Geri dön hextus jsr $ffe4 ;T şlarõ kontrol et u cmp #$30 ;”0” mõ? bcc hextus ;küçükse tekrar oku cmp #$3a ;”:” mõ? bcs harf ;eşit veya büyükse harf kontrolüne git pha ;basõlan tuşun (ASCII) değerini yõğõna at sec ;Elde bitini “1” yap sbc #$30 ;Tuşun ASCII değerinden $30 (48) çõkart jmp devam ;zõpla! harf cmp #$41 ;Basõlan tuş “A” mõ? bcc hextus ;küçükse tuşlarõ tekrar oku cmp #$47 ;”G” mi? bcs hextus ;eşit veya büyükse tuşlarõ tekrar oku pha ;Basõlan tuşun (ASCII) değerini yõğõna at sec ;”Elde” bitini “1” yap sbc #$37 ;Tuşun ASCII değerinden $37 (55) çõkart devam sta temp ;Sonucu geçici olarak sakla asl ;Sonucu 2 ile çarp tax ;X = A lda colmem,x ;COLOR RAM için adresin LOW baytõnõ al sta $fd ;Sakla lda colmem+1,x ;COLOR RAM için adresin HIGH baytõnõ al sta $fe ;Sakla ldy #$00 ;Y registerini sõfõrla lda ($fd),y ;Renk Ram’õndaki adresin değerini oku sta oldcol ;Sakla