00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 30 | *= $100|
00000010: 30 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..;************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 20 |***********.;* |
00000040: 4D 45 4D 46 49 4C 4C 2D 52 4F 55 54 49 4E 45 20 |MEMFILL-ROUTINE |
00000050: 28 57 29 20 31 39 39 34 20 42 59 20 4D 41 44 52 |(W) 1994 BY MADR|
00000060: 4F 4D 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |OM *.;**********|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A |*************.;*|
00000090: 20 46 55 45 4C 4C 54 20 42 45 4C 49 45 42 49 47 | FUELLT BELIEBIG|
000000A0: 45 20 53 50 45 49 43 48 45 52 42 45 52 45 49 43 |E SPEICHERBEREIC|
000000B0: 48 45 20 20 20 2A 0D 3B 2A 20 4D 49 54 20 45 49 |HE *.;* MIT EI|
000000C0: 4E 45 4D 20 57 45 52 54 2E 20 41 4E 46 41 4E 47 |NEM WERT. ANFANG|
000000D0: 53 41 4E 44 52 45 53 53 45 20 4D 55 53 53 2A 0D |SANDRESSE MUSS*.|
000000E0: 3B 2A 20 49 4E 20 41 4E 46 4C 2F 41 4E 46 48 20 |;* IN ANFL/ANFH |
000000F0: 28 32 35 30 2F 32 35 31 29 2C 20 45 4E 44 41 44 |(250/251), ENDAD|
00000100: 52 45 53 53 45 20 20 2A 0D 3B 2A 20 4D 55 53 53 |RESSE *.;* MUSS|
00000110: 20 49 4E 20 45 4E 44 4C 2F 45 4E 44 48 20 28 32 | IN ENDL/ENDH (2|
00000120: 35 33 2F 32 35 34 29 20 53 54 45 48 45 4E 20 20 |53/254) STEHEN |
00000130: 2A 0D 3B 2A 20 44 45 52 20 46 55 45 4C 4C 57 45 |*.;* DER FUELLWE|
00000140: 52 54 20 49 4E 20 46 57 45 52 54 20 28 32 35 32 |RT IN FWERT (252|
00000150: 29 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 20 52 |) *.;* R|
00000160: 4F 55 54 49 4E 45 20 57 49 52 44 20 4D 49 54 20 |OUTINE WIRD MIT |
00000170: 20 2D 20 4A 53 52 20 4D 45 4D 46 49 4C 4C 20 2D | - JSR MEMFILL -|
00000180: 20 20 2A 0D 3B 2A 20 41 55 46 47 45 52 55 46 45 | *.;* AUFGERUFE|
00000190: 4E 20 2E 2E 2E 20 20 4D 41 44 52 4F 4D 2F 43 52 |N ... MADROM/CR|
000001A0: 45 41 4D 2F 54 2D 43 20 20 20 20 2A 0D 3B 2A 2A |EAM/T-C *.;**|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 0D 0D 0D 0D 41 4E 46 4C 20 20 20 |*****....ANFL |
000001E0: 20 20 3D 20 32 35 30 0D 41 4E 46 48 20 20 20 20 | = 250.ANFH |
000001F0: 20 3D 20 32 35 31 0D 45 4E 44 4C 20 20 20 20 20 | = 251.ENDL |
00000200: 3D 20 32 35 33 0D 45 4E 44 48 20 20 20 20 20 3D |= 253.ENDH =|
00000210: 20 32 35 34 0D 46 57 45 52 54 20 20 20 20 3D 20 | 254.FWERT = |
00000220: 32 35 32 0D 0D 0D 4D 45 4D 46 49 4C 4C 0D 20 20 |252...MEMFILL. |
00000230: 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D 4D 46 | LDY #0.MF|
00000240: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 |1. LDA F|
00000250: 57 45 52 54 0D 20 20 20 20 20 20 20 20 20 53 54 |WERT. ST|
00000260: 41 20 28 41 4E 46 4C 29 2C 59 0D 20 20 20 20 20 |A (ANFL),Y. |
00000270: 20 20 20 20 4C 44 41 20 45 4E 44 48 0D 20 20 20 | LDA ENDH. |
00000280: 20 20 20 20 20 20 43 4D 50 20 41 4E 46 48 0D 20 | CMP ANFH. |
00000290: 20 20 20 20 20 20 20 20 42 45 51 20 4D 46 32 0D | BEQ MF2.|
000002A0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4D 46 33 | JMP MF3|
000002B0: 0D 4D 46 32 0D 20 20 20 20 20 20 20 20 20 4C 44 |.MF2. LD|
000002C0: 41 20 45 4E 44 4C 0D 20 20 20 20 20 20 20 20 20 |A ENDL. |
000002D0: 43 4D 50 20 41 4E 46 4C 0D 20 20 20 20 20 20 20 |CMP ANFL. |
000002E0: 20 20 42 4E 45 20 4D 46 33 0D 20 20 20 20 20 20 | BNE MF3. |
000002F0: 20 20 20 52 54 53 0D 4D 46 33 0D 20 20 20 20 20 | RTS.MF3. |
00000300: 20 20 20 20 49 4E 43 20 41 4E 46 4C 0D 20 20 20 | INC ANFL. |
00000310: 20 20 20 20 20 20 42 4E 45 20 4D 46 34 0D 20 20 | BNE MF4. |
00000320: 20 20 20 20 20 20 20 49 4E 43 20 41 4E 46 48 0D | INC ANFH.|
00000330: 4D 46 34 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |MF4. JMP|
00000340: 20 4D 46 31 0D 0D | MF1.. |
*= $1000..;********************
*******************.;* MEMFILL-ROUTINE
(W) 1994 BY MADROM *.;******************
*********************.;* FUELLT BELIEBIG
E SPEICHERBEREICHE *.;* MIT EINEM WERT
. ANFANGSANDRESSE MUSS*.;* IN ANFL/ANFH
(250/251), ENDADRESSE *.;* MUSS IN ENDL
/ENDH (253/254) STEHEN *.;* DER FUELLWE
RT IN FWERT (252) *.;* ROUTINE W
IRD MIT - JSR MEMFILL - *.;* AUFGERUFE
N ... MADROM/CREAM/T-C *.;**********
*****************************....ANFL
= 250.ANFH = 251.ENDL = 253.EN
DH = 254.FWERT = 252...MEMFILL.
LDY #0.MF1. LDA FWERT.
STA (ANFL),Y. LDA ENDH.
CMP ANFH. BEQ MF2.
JMP MF3.MF2. LDA ENDL.
CMP ANFL. BNE MF3. RTS.M
F3. INC ANFL. BNE MF4.
INC ANFH.MF4. JMP MF1..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL