Originally posted by nightlord@Oct 8 2005, 03:11 PM
selam
estafurullah benim kodda da her zaman hata olabilir. yazdiklarimi deneyip koysamda web sitesinde formating esnasinda hatalar olusabilyor.
text_source satirlari ile renk tanimi olan satirlarin arasinda !fill komutunu koyduguna emin misin? post ettigin mesajda scroll_colors bolumu yok
istersen full dosyayi koy. bi daha bakalim
bu arada bintools linki
http://nightlord.dr2.net/bintools.rar
[post=2233]Quoted post[/post]
[/b]
iste full code:
!to "intromsu.prg"
*=$c000
VM_Satir_L=$0400+(7*40)+11
VM_Satir_S=$0400+(12*40)
CC_Satir_L=$d800+(7*40)+11
CC_Satir_S=$d800+(12*40)
lda #0
sta $d020
sta $d021
jsr clrscr
jsr logo
scrtext:
ldx #0
scrtextloop:
lda VM_Satir_S+1,x
sta VM_Satir_S,x
lda scroll_color,x
sta CC_Satir_S,x
inx
cpx #40
bne scrtextloop:
read:
lda scrolltext
sta VM_Satir_S+39
inc read+1
ldy #$c0
ldx #0
delay:
dex
bne delay
dey
bne delay
end:
jmp scrtext
logo:
ldx #0
logoloop:
lda logotext,x
sta VM_Satir_L,x
lda logocolorcode,x
sta CC_Satir_L,x
inx
cpx #18
bne logoloop
rts
clrscr:
ldx #0
lda #$20
clr_loop:
sta $0400,x
sta $0500,x
sta $0600,x
sta $0700,x
inx
bne clr_loop
rts
logotext:
!scr "6510 asm wants you"
logocolorcode:
!by $02,$01,$07,$08,$09,$02,$01,$07,$02,$01,$07,$08,$09,$02,$01,$07,$02,$01
scroll_color:
!by $02,$01,$07,$08,$09,$02,$01,$07,$02,$01,$07,$08,$09,$02,$01,$07,$02,$01
!by $02,$01,$07,$08,$09,$02,$01,$07,$02,$01,$07,$08,$09,$02,$01,$07,$02,$01
!by $02,$01,$07,$08,$09
!align 255,0
scrolltext:
!scr "here is the very first intro-like asm code from bakkada/******** best rookie of the year"
!fill $2c,$20
burda 6 satir enter tusu basarak bosluk biraktim,calistirdim gene yemedi.scrool'u yaziyor scroolun son harfi ekrandan cikana kadar ekran temiz.ne zaman "year" kelimesinin son harfi "r" ekrandan cikiyor o zaman "C" karakteri basmaya basliyor.Ardindan da 4 karelik bir satranc tahtasi dusunun o karakteri basiyor sonra scroola geri donuyor....
Eger "scrolltext:" i herhangi baska "scrollcolor"dan once koyarsam scrollcolor daki kodlari alip karaktere ceviriyor we "baghibagibaghi...." basiyor ekrana...
Bi yerde bi hata war ama nerde...
Skate kodun calistigini solio acaba benim emulatorumun ayarinda felan mi bise war dicem bole bise yapmamasi lasim
DipNot:Gene clrscr yaparken $0700 kullanmisis