REPLACE.SEQ
FILE INFORMATION
FILENAME(S): REPLACE.SEQ
FILE TYPE(S): SEQ
FILE SIZE: 633b
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
240a2a1fd965251e6a88a8630f01644274345d7c17b8d682ee7c4ce5485c6e08
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10303 SEITE B | REPLACE.SEQ | SEQ | C64er | 26 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 30 39 30 | *= $090| 00000010: 30 20 20 20 3B 53 54 41 52 54 41 44 52 45 53 53 |0 ;STARTADRESS| 00000020: 45 0D 0D 53 54 41 52 54 20 20 20 20 4C 44 58 20 |E..START LDX | 00000030: 23 24 30 30 20 20 20 3B 5A 41 45 48 4C 45 52 20 |#$00 ;ZAEHLER | 00000040: 41 55 46 20 24 30 30 0D 4C 4F 4F 50 31 20 20 20 |AUF $00.LOOP1 | 00000050: 20 4C 44 41 20 24 31 30 30 30 2C 58 3B 42 59 54 | LDA $1000,X;BYT| 00000060: 45 53 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 |ES HOLEN. | 00000070: 20 20 43 4D 50 20 23 24 35 46 20 20 20 3B 55 4E | CMP #$5F ;UN| 00000080: 44 20 56 45 52 47 4C 45 49 43 48 45 4E 0D 20 20 |D VERGLEICHEN. | 00000090: 20 20 20 20 20 20 20 42 45 51 20 52 45 50 4C 41 | BEQ REPLA| 000000A0: 43 45 3B 22 5F 22 3F 20 44 41 4E 4E 20 52 45 50 |CE;"_"? DANN REP| 000000B0: 4C 41 43 45 0D 0D 43 4F 4E 54 20 20 20 20 20 49 |LACE..CONT I| 000000C0: 4E 58 20 20 20 20 20 20 20 20 3B 5A 41 45 48 4C |NX ;ZAEHL| 000000D0: 45 52 20 2B 31 0D 20 20 20 20 20 20 20 20 20 43 |ER +1. C| 000000E0: 50 58 20 23 24 30 30 20 20 20 3B 53 43 48 4F 4E |PX #$00 ;SCHON| 000000F0: 20 57 49 45 44 45 52 20 24 30 30 3F 0D 20 20 20 | WIEDER $00?. | 00000100: 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 20 | BNE LOOP1 | 00000110: 20 3B 4E 45 49 4E 20 44 41 4E 4E 20 4C 4F 4F 50 | ;NEIN DANN LOOP| 00000120: 31 0D 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |1.. INC | 00000130: 4C 4F 4F 50 31 2B 32 3B 48 49 47 48 42 59 54 45 |LOOP1+2;HIGHBYTE| 00000140: 20 2B 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 | +1. INC| 00000150: 20 52 45 50 4C 31 2B 32 3B 48 49 47 48 42 59 54 | REPL1+2;HIGHBYT| 00000160: 45 20 2B 31 0D 0D 20 20 20 20 20 20 20 20 20 4C |E +1.. L| 00000170: 44 41 20 4C 4F 4F 50 31 2B 32 3B 48 49 47 48 42 |DA LOOP1+2;HIGHB| 00000180: 59 54 45 20 4C 41 44 45 4E 0D 20 20 20 20 20 20 |YTE LADEN. | 00000190: 20 20 20 43 4D 50 20 23 24 41 30 20 20 20 3B 55 | CMP #$A0 ;U| 000001A0: 4E 44 20 56 45 52 47 4C 45 49 43 48 45 4E 0D 20 |ND VERGLEICHEN. | 000001B0: 20 20 20 20 20 20 20 20 42 4E 45 20 53 54 41 52 | BNE STAR| 000001C0: 54 20 20 3B 53 43 48 4F 4E 20 49 4E 54 45 52 50 |T ;SCHON INTERP| 000001D0: 52 45 54 45 52 2D 0D 20 20 20 20 20 20 20 20 20 |RETER-. | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 52 | ;STAR| 000001F0: 54 20 28 24 41 30 30 30 29 3F 0D 20 20 20 20 20 |T ($A000)?. | 00000200: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 3B | RTS ;| 00000210: 0D 0D 52 45 50 4C 41 43 45 20 20 4C 44 41 20 23 |..REPLACE LDA #| 00000220: 24 32 30 20 20 20 3B 53 50 41 43 45 20 4C 41 44 |$20 ;SPACE LAD| 00000230: 45 4E 0D 52 45 50 4C 31 20 20 20 20 53 54 41 20 |EN.REPL1 STA | 00000240: 24 31 30 30 30 2C 58 3B 55 4E 44 20 53 43 48 52 |$1000,X;UND SCHR| 00000250: 45 49 42 45 4E 0D 20 20 20 20 20 20 20 20 20 4A |EIBEN. J| 00000260: 4D 50 20 43 4F 4E 54 20 20 20 3B 57 45 49 54 45 |MP CONT ;WEITE| 00000270: 52 4D 41 43 48 45 4E 0D 0D |RMACHEN.. |
*= $0900 ;STARTADRESSE..START
LDX #$00 ;ZAEHLER AUF $00.LOOP1
LDA $1000,X;BYTES HOLEN. CMP #$
5F ;UND VERGLEICHEN. BEQ REPLA
CE;"_"? DANN REPLACE..CONT INX
;ZAEHLER +1. CPX #$00 ;SCHON
WIEDER $00?. BNE LOOP1 ;NEIN D
ANN 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 LAD
EN.REPL1 STA $1000,X;UND SCHREIBEN.
JMP CONT ;WEITERMACHEN..
> CLICK IMAGE PREVIEW FOR FULL MODAL