Sayfa 8

;--------------------------------------------; ; PROGRAM ADI: CHECKSUMMER V1 ; ; PROGRAM BİTİŞ TARİHİ: 28-09-2003 ; ; PROGRAMI YAZAN: İSMAİL "HADES" ŞAHİN ; ;--------------------------------------------;

*=$cb00

start_prg sei lda #$4c sta sw lda #<irq ldx #>irq sta $0314 stx $0315 cli jmp new_prg ;--------------------------------------------; irq inc $d019 sw .byte $4c .word $ea31 ldx #$00 up_text0 lda #$07 sta $d800,x lda #$20 sta $0428,x inx cpx #$28 bne up_text0 ldx #$00 inp_01 nop lda prg_name,x cmp #$40 bcc write sec sbc #$40 write sta $0400,x inx cpx #$0e bne inp_01 ldx #$00 header lda name,x cmp #$40 bcc wri2 sec sbc #$40 wri2 sta $0436-$28,x inx cpx name_len bne header ldx #$00 opad lda oper,x sta $0447-$28,x lda #$20 sta $044b-$28 lda oper+4,x sta $044c-$28,x inx cpx #$04 bne opad jsr $ea87 jmp $ea31

;----------------------------------------; new_prg lda #$07 jsr $e536 dex stx $d020 stx $d021 txa spr_loop sta $02c0,x inx cpx #$40 bne spr_loop lda #$ff sta $02d5 lda #$0b sta $07f8 lda #<main_text ldy #>main_text jsr $ab1e clc ldy #$00 ;x poz. ldx #$08 ;y poz. jsr $fff0 lda #<pre_text ldy #>pre_text jsr $ab1e ;--------------------------------------------; ; isim girme bölümü ;--------------------------------------------;

lda #$00 sta name_len clc ldy #$0e ;x poz. ldx #$0a ;y poz. jsr $fff0 lda #$ff sta letter_cnt isim_loop lda #$05 jsr $ffd2 inc letter_cnt isim_loop_1 jsr spr_cursor jsr $ffe4 cmp #$0d beq enter cmp #$14 beq delete cmp #$20 bcc isim_loop_1 isim_devam cmp #$60 bcs isim_loop_1 jsr $ffd2 ldx letter_cnt sta name,x cpx #$10 bne isim_loop stx name_len jmp adres_gir ;--------------------------------------------; enter ldx letter_cnt beq isim_loop_1 stx name_len lda #$20