Sayfa 22

dosya adı temizleniyor.

Birinci üniteye kayıt yapılacağı ve dosyanın detayları bilgisayara bildiriliyor.

Ldy $B7 #$0F Lda # $BB Bec Loop 2 Ldx #< Flname Ldy $OE Ldy # > Flname Loor 2 Dey IJsr $FFBD Bmı Tsavel Lda ($BB),Y Burada ufak bir bile kullanılıyor. Yani programın adiy- Sta Flname 4 2,Y la birlikte uzunca bir de program parçası ($BB bayt) kay- Jmp — Loop2 dediliyor kasede, Bu kadar satır yalnızca $B7 adresinden dosya adı uzun- Lda # $80 luğunu alıp. $BB'nin gösterdiği adreste bulunan dosya Sta $9D ismini gereken adrese taşımaya yarıyor. Lda # $02 ; Kayıt başlan- Tsavel Ldy — # $50 Sta Tsave 2 Lda — Loader,Y Lda ; Sta $O2AB,Y Sta $EB ; Dey Ldx ; Bitiş Bpl - Tsave 2 Ldy ; adres İsr $FFDO

Hızlı yükleyicinin (LOADER) bir parçası gerekli yere

taşınıyor. Loader kısmı kasede normal ve Autostart olarak kay- dediliyor. Lda #$01 Tax Lda — #$03 Tay Sta $0302 Jsr $FEFBA Lda #$A4 Sta $0303 Lda Sta $9D Ldx — #$00 Ldy # $00

Autostart yapmak için bozduğumuz değerleri normale çeviriyoruz.

Seveil Jsr WrtHdr

İlk olarak senkronizasyon ve güvenlik baytlarını yaz.

Lda — $2B PHa İsr WrtByt Lda — $2C Pha Jsr WrtByt Lda — $2D Jsr WrtByt Lda — $2E Jsr WrtByt

Değeriyle oynanacak değişkenleri stack'e atarken, başlangıç ve bitiş adreslerini kasede yaz. Sty $FB

Kontrol toplamını sıfırla

Ldy $2B. Lda # $00 Sta $2B Tsavloop Lda ($2B),Y

Jrs WrtByt