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 >
Text File  |  2022-10-26  |  633b  |  25 lines
  1.          *= $0900   ;startadresse
  2.  
  3. start    ldx #$00   ;zaehler auf $00
  4. loop1    lda $1000,x;bytes holen
  5.          cmp #$5f   ;und vergleichen
  6.          beq replace;"_"? dann replace
  7.  
  8. cont     inx        ;zaehler +1
  9.          cpx #$00   ;schon wieder $00?
  10.          bne loop1  ;nein dann loop1
  11.  
  12.          inc loop1+2;highbyte +1
  13.          inc repl1+2;highbyte +1
  14.  
  15.          lda loop1+2;highbyte laden
  16.          cmp #$a0   ;und vergleichen
  17.          bne start  ;schon interpreter-
  18.                     ;start ($a000)?
  19.          rts        ;
  20.  
  21. replace  lda #$20   ;space laden
  22. repl1    sta $1000,x;und schreiben
  23.          jmp cont   ;weitermachen
  24.  
  25.