home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
90xx
/
9001a.d64
/
q_umkop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
43 lines
1 ; +++++++++++++++++++++++++++++
2 ; + +
3 ; + --- THE CHAR-KILLER --- +
4 ; + +
5 ; + (C) 9/89 BY ALEX GEVATTER +
6 ; + +
7 ; +++++++++++++++++++++++++++++
8 ; + +
9 ; + TEILPRG.: UMKOPIERROUTINE +
10 ; + SPEICHERBEL.: 2087-2124 +
11 ; + QUELLTEXT FUER: +
12 ; + KINGSOFT POWER ASSEMBLER +
13 ; + +
14 ; +++++++++++++++++++++++++++++
15 ;
16 *=2087 ;STARTADRESSE
17 &=49152
18 ;
19 LDA #<2125 ;HI/LO ANFANG
20 STA 251 ;ZU KOPIE-
21 LDA #>2125 ;RENDER BE-
22 STA 252 ;REICH
23 LDA #<40192 ;HI/LO ANFANG
24 STA 253 ;ZIELBEREICH
25 LDA #>40192
26 STA 254
27 ;
28 LDX #3 ;3*256 BYTES
29 LDY #0 ;KOPIEREN
30 LOOP LDA (251),Y
31 STA (253),Y
32 INY
33 BNE LOOP
34 INC 252
35 INC 254
36 DEX
37 BNE LOOP
38 ;
39 JMP 40192 ;HAUPTPRG.
40 ; ;STARTEN
41 ;
42 ; --- ENDE ---