00000000: 0D 3B 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 2D 0D 3B CC 41 44 45 52 |---------.;.ADER|
00000030: 4F 55 54 49 4E 45 20 46 55 45 52 20 44 49 45 20 |OUTINE FUER DIE |
00000040: C2 C9 D4 C3 C8 C1 CF D3 2E 0D 3B CD 49 54 20 27 |..........;.IT '|
00000050: 4A 4D 50 20 4C 4F 41 44 27 20 41 55 46 52 55 46 |JMP LOAD' AUFRUF|
00000060: 45 4E 2E 0D 3B 28 C5 52 53 54 20 C9 D2 D1 20 5A |EN..;(.RST ... Z|
00000070: 55 52 55 45 43 4B 53 54 45 4C 4C 45 4E 21 29 0D |URUECKSTELLEN!).|
00000080: 3B C2 45 49 20 C6 52 41 47 45 4E 3A 20 28 30 33 |;.EI .RAGEN: (03|
00000090: 36 39 32 32 29 32 30 39 30 31 20 28 D3 56 45 4E |6922)20901 (.VEN|
000000A0: 29 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |).;-------------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 4C 4F 41 44 |----------..LOAD|
000000D0: 20 20 20 20 20 4A 53 52 20 24 46 46 35 42 0D 20 | JSR $FF5B. |
000000E0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 | LDA #0. |
000000F0: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 | STA $D02|
00000100: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $|
00000110: 44 30 32 31 0D 20 20 20 20 20 20 20 20 20 53 54 |D021. ST|
00000120: 41 20 24 30 32 38 36 0D 20 20 20 20 20 20 20 20 |A $0286. |
00000130: 20 4A 53 52 20 24 45 35 34 34 0D 0D 20 20 20 20 | JSR $E544.. |
00000140: 20 20 20 20 20 4C 44 58 20 23 24 32 33 0D 4C 4F | LDX #$23.LO|
00000150: 4F 50 20 20 20 20 20 4C 44 41 20 43 4F 50 59 2C |OP LDA COPY,|
00000160: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |X. STA $|
00000170: 30 34 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 |0400,X. |
00000180: 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |DEX. BNE|
00000190: 20 4C 4F 4F 50 0D 20 20 20 20 20 20 20 20 20 4A | LOOP. J|
000001A0: 4D 50 20 24 30 34 30 31 0D 0D 43 4F 50 59 20 20 |MP $0401..COPY |
000001B0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. |
000001C0: 4C 44 58 20 23 24 30 38 0D 20 20 20 20 20 20 20 |LDX #$08. |
000001D0: 20 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 | LDY #$00. |
000001E0: 20 20 20 20 4A 53 52 20 24 46 46 42 41 0D 20 20 | JSR $FFBA. |
000001F0: 20 20 20 20 20 20 20 4C 44 58 20 23 3C 4E 41 4D | LDX #<NAM|
00000200: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |E. LDY #|
00000210: 3E 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 4C |>NAME. L|
00000220: 44 41 20 23 24 30 32 0D 20 20 20 20 20 20 20 20 |DA #$02. |
00000230: 20 4A 53 52 20 24 46 46 42 44 0D 20 20 20 20 20 | JSR $FFBD. |
00000240: 20 20 20 20 4C 44 58 20 23 24 30 31 0D 20 20 20 | LDX #$01. |
00000250: 20 20 20 20 20 20 4C 44 59 20 23 24 30 38 0D 20 | LDY #$08. |
00000260: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 | LDA #$00|
00000270: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F|
00000280: 46 44 35 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |FD5. JMP|
00000290: 20 24 30 38 31 41 0D 4E 41 4D 45 20 20 20 20 20 | $081A.NAME |
000002A0: 2E 54 45 58 54 20 22 41 2A 22 0D 0D |.TEXT "A*".. |
.;--------------------------------------
-.;LADEROUTINE FUER DIE BITCHAOS..;MIT '
JMP LOAD' AUFRUFEN..;(ERST IRQ ZURUECKST
ELLEN!).;BEI FRAGEN: (036922)20901 (SVEN
).;-------------------------------------
--..LOAD JSR $FF5B. LDA #0.
STA $D020. STA $D021.
STA $0286. JSR $E544..
LDX #$23.LOOP LDA COPY,X.
STA $0400,X. DEX. BNE
LOOP. JMP $0401..COPY NOP.
LDX #$08. LDY #$00.
JSR $FFBA. LDX #<NAME.
LDY #>NAME. LDA #$02.
JSR $FFBD. LDX #$01. LD
Y #$08. LDA #$00. JSR $F
FD5. JMP $081A.NAME .TEXT "A
*"..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL