Sayfa 9

jsr $ffd2 jmp adres_gir ;--------------------------------------------; ; silme bölümü ;--------------------------------------------; delete ldx letter_cnt beq isim_loop_1 jsr $ffd2 dec letter_cnt jmp isim_loop_1 ;--------------------------------------------; spr_cursor lda $d3 cmp #$1d bcc no_extra ldx #$01 .byte $2c no_extra ldx #$00 stx $d010 asl asl asl clc adc #$18 sta $d000 lda $d6 asl asl asl clc adc #$32 sta $d001 inc $d027 lda #$01 sta $d015 rts ;--------------------------------------------; ; adres girme bölümü ;--------------------------------------------; adres_gir clc ldy #$0f ;x poz. ldx #$0b ;y poz. jsr $fff0 jsr key_in sta $fc ;başlangıç adresi hi byte

sta start_hi jsr key_in sta $fb ;başlangıç adresi lo byte

sta start_lo clc ldy #$0f ;x poz. ldx #$0c ;y poz. jsr $fff0 jsr key_in sta $fe ;bitiş adresi hi byte

jsr key_in sta $fd ;bitiş adresi lo byte

lda #$00

sta $d015 ;--------------------------------------------; ; başlangış ve bitiş adresleri kontrolü ;--------------------------------------------;

lda $fe cmp $fc bcc error ;small bne devam_yes lda $fd cmp $fb beq error ;equal bcc error ;small ;--------------------------------------------; ; hata yoksa devam et ;--------------------------------------------; devam_yes lda #<yes_no ldy #>yes_no jsr $ab1e evet_no jsr $ffe4 cmp #$45 beq devam_ cmp #$48 bne evet_no jmp new_prg ;start_prg devam_ jmp input_bytes ;--------------------------------------------; ; hata mesajı yazdırma ve tuş kontrolu ;--------------------------------------------; error lda #<error_mes ldy #>error_mes jsr $ab1e space_key jsr $ffe4 cmp #$20 bne space_key jmp new_prg ;--------------------------------------------; key_in jsr hex_key asl asl asl asl sta temp jsr hex_key ora temp rts ;--------------------------------------------; hex_key jsr spr_cursor jsr $ffe4 hex_sys cmp #$30 bcc hex_key cmp #$3a bcs hex_letter jsr $ffd2 sec sbc #$30 rts hex_letter cmp #$41 bcc hex_key cmp #$47 bcs hex_key jsr $ffd2