home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 March
/
64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64
/
replace.seq
< prev
next >
Wrap
Text File
|
2022-10-26
|
633b
|
25 lines
*= $0900 ;startadresse
start ldx #$00 ;zaehler auf $00
loop1 lda $1000,x;bytes holen
cmp #$5f ;und vergleichen
beq replace;"_"? dann replace
cont inx ;zaehler +1
cpx #$00 ;schon wieder $00?
bne loop1 ;nein dann loop1
inc loop1+2;highbyte +1
inc repl1+2;highbyte +1
lda loop1+2;highbyte laden
cmp #$a0 ;und vergleichen
bne start ;schon interpreter-
;start ($a000)?
rts ;
replace lda #$20 ;space laden
repl1 sta $1000,x;und schreiben
jmp cont ;weitermachen