00000000: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 2D 20 53 45 4C 46 |--------.;- SELF|
00000030: 2D 4D 4F 44 49 46 59 49 4E 47 2D 43 4F 44 45 20 |-MODIFYING-CODE |
00000040: 20 28 57 29 20 42 59 20 50 49 54 20 27 39 31 20 | (W) BY PIT '91 |
00000050: 2D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |-.;-------------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 20 20 20 20 |----------.. |
00000080: 20 20 20 20 2A 3D 20 24 31 30 30 30 0D 0D 20 20 | *= $1000.. |
00000090: 20 20 20 20 20 20 4C 44 58 20 23 24 30 30 20 20 | LDX #$00 |
000000A0: 20 20 20 3B 54 52 41 4E 53 46 45 52 2D 0D 4D 4F | ;TRANSFER-.MO|
000000B0: 44 49 20 20 20 20 4C 44 41 20 24 31 30 30 30 2C |DI LDA $1000,|
000000C0: 58 20 20 3B 53 43 48 4C 45 49 46 45 0D 20 20 20 |X ;SCHLEIFE. |
000000D0: 20 20 20 20 20 53 54 41 20 24 34 30 30 30 2C 58 | STA $4000,X|
000000E0: 20 20 3B 24 46 46 20 42 59 54 45 53 0D 20 20 20 | ;$FF BYTES. |
000000F0: 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 | INX. |
00000100: 20 42 4E 45 20 4D 4F 44 49 0D 0D 20 20 20 20 20 | BNE MODI.. |
00000110: 20 20 20 49 4E 43 20 48 49 31 20 20 20 20 20 20 | INC HI1 |
00000120: 3B 48 49 47 48 42 59 54 45 20 53 54 41 52 54 20 |;HIGHBYTE START |
00000130: 55 4E 44 0D 20 20 20 20 20 20 20 20 49 4E 43 20 |UND. INC |
00000140: 48 49 32 20 20 20 20 20 20 3B 48 49 47 48 42 59 |HI2 ;HIGHBY|
00000150: 54 45 20 5A 49 45 4C 0D 20 20 20 20 20 20 20 20 |TE ZIEL. |
00000160: 4C 44 41 20 48 49 31 20 20 20 20 20 20 3B 45 52 |LDA HI1 ;ER|
00000170: 48 4F 45 48 45 4E 20 55 4E 44 0D 20 20 20 20 20 |HOEHEN UND. |
00000180: 20 20 20 43 4D 50 20 23 24 34 30 20 20 20 20 20 | CMP #$40 |
00000190: 3B 56 45 52 47 4C 45 49 43 48 45 4E 20 4F 42 0D |;VERGLEICHEN OB.|
000001A0: 20 20 20 20 20 20 20 20 42 4E 45 20 4D 4F 44 49 | BNE MODI|
000001B0: 20 20 20 20 20 3B 42 45 52 45 49 54 53 20 24 32 | ;BEREITS $2|
000001C0: 46 46 46 20 42 59 54 45 0D 20 20 20 20 20 20 20 |FFF BYTE. |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 55 | ;U|
000001E0: 45 42 45 52 54 52 41 47 45 4E 20 57 55 52 44 45 |EBERTRAGEN WURDE|
000001F0: 4E 0D 0D 20 20 20 20 20 20 20 20 4C 44 41 20 23 |N.. LDA #|
00000200: 24 31 30 20 20 20 20 20 3B 48 49 47 48 2D 42 59 |$10 ;HIGH-BY|
00000210: 54 45 53 0D 20 20 20 20 20 20 20 20 53 54 41 20 |TES. STA |
00000220: 48 49 31 20 20 20 20 20 20 3B 52 55 45 43 4B 53 |HI1 ;RUECKS|
00000230: 45 54 5A 45 4E 20 41 55 46 0D 20 20 20 20 20 20 |ETZEN AUF. |
00000240: 20 20 4C 44 41 20 23 24 34 30 20 20 20 20 20 3B | LDA #$40 ;|
00000250: 41 4C 54 45 20 57 45 52 54 45 0D 20 20 20 20 20 |ALTE WERTE. |
00000260: 20 20 20 53 54 41 20 48 49 32 0D 20 20 20 20 20 | STA HI2. |
00000270: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS |
00000280: 3B 52 55 45 43 4B 4B 45 48 52 0D 0D 48 49 31 20 |;RUECKKEHR..HI1 |
00000290: 20 20 20 20 3D 20 4D 4F 44 49 2B 32 0D 48 49 32 | = MODI+2.HI2|
000002A0: 20 20 20 20 20 3D 20 4D 4F 44 49 2B 35 0D 0D 3B | = MODI+5..;|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 0D 0D |-------.. |
;---------------------------------------
.;- SELF-MODIFYING-CODE (W) BY PIT '91
-.;-------------------------------------
--.. *= $1000.. LDX #$00
;TRANSFER-.MODI LDA $1000,X ;SCHL
EIFE. STA $4000,X ;$FF BYTES.
INX. BNE MODI.. INC H
I1 ;HIGHBYTE START UND. INC
HI2 ;HIGHBYTE ZIEL. LDA HI1
;ERHOEHEN UND. CMP #$40
;VERGLEICHEN OB. BNE MODI ;BE
REITS $2FFF BYTE. ;U
EBERTRAGEN WURDEN.. LDA #$10
;HIGH-BYTES. STA HI1 ;RUECKS
ETZEN AUF. LDA #$40 ;ALTE WER
TE. STA HI2. RTS
;RUECKKEHR..HI1 = MODI+2.HI2 = M
ODI+5..;--------------------------------
-------..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL