Sayfa 63

Atari 800 XL/XE - Bölüm 2

lda OyuncuXx sta $d000 ; Oyuncu 0 X pozisyonu

olustur İsr OyuncuyuOlustur

;fuzeleri olustur FuzeleriOlustur

;kesme rutini ayarla ldy #<Rutin ldx #>Rutin lda #$07 jsr $e45c ; SETVBV İmp *

lda Fuze2X cmp #$e0 oyuncu fuze.a bne Devam2 lda #$48 sta Fuze2X BASLANGIC ADRESI - $0600 Devam2 inc Fuze3X !to "oyuncu fuze.xex",plain lda Fuze3X cmp #$e0 * — BASLANGIC ADRESI-6 bne Devam3 BASLANGIC ADRESI, BITIS ADRESI lda #$48 sta Fuze3X * — BASLANGIC ADRESI Devam3 inc Fuze4X ;yarat#klar#n bellek adreslerini belirle lda Fuze4Xx lda $6a cmp #$e0 sec bne Devamâ sbc #$08 lda #$48 sta $6a sta Fuze4X sta $d407 ; PMBASE HI Fuzelx sta YaratikBellegitl sta $d004 ; Fuze 0 X pozisyonu lda #$00 lda Fuze2Xx sta YaratikBellegi sta $d005 ; Fuze 1 X pozisyonu lda Fuze3X ;yarat#k ve fuzeleri ac sta $d006 ; Fuze 2 X pozisyonu lda #$03 lda Fuze4x sta $d0ld ; GRACTL sta $d007 ; Fuze 3 X pozisyonu

; grafik ekrani ac RETURN

ldy #$1f yaratik bellegini temizle sty ; DMACTL YaratikBelleginiTemizle lda YaratikBellegi ve fuze rengi sta, 9 ida i lda ; sta a lda #$99 ; Oyuncu 1 ve ele sta $02cl ; Fuze 1 rengi ade #$08 lda #$cc ; Oyuncu 2 ve sta endOfBlock sta $02c2 ; Fuze 2 rengi ldy #$00 lda #$ee ; Oyuncu 3 ve lda #$00 sta $02c3 ; Fuze 3 rengi Dongul sta ($f9),y in ;tüm yaratik bellegini temizle bne Dongul İsr YaratikBelleginiTemizle inc $fa ldx $fa ;oyuncunun adresini belirle cpx : endOfBlock - *-1 yda bne Dongul sta rts sta lda ;oyuncuyu olustur ele OyuncuyuOlustur adc #$03 ldx #$00 sta $f8 ldy Oyuncuy ele Dongu3 I1da HaritaBasil,x ade #$01 sta sta $f6 iny inx

x pozisyonu