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 50 41 47 45 |--------.;- PAGE|
00000030: 2D 4F 56 45 52 46 4C 4F 57 20 20 20 20 20 20 20 |-OVERFLOW |
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 53 54 41 52 |----------..STAR|
00000080: 54 4C 4F 20 20 3D 20 24 46 42 0D 53 54 41 52 54 |TLO = $FB.START|
00000090: 48 49 20 20 3D 20 24 46 43 0D 5A 49 45 4C 4C 4F |HI = $FC.ZIELLO|
000000A0: 20 20 20 3D 20 24 46 44 0D 5A 49 45 4C 48 49 20 | = $FD.ZIELHI |
000000B0: 20 20 3D 20 24 46 45 0D 0D 20 20 20 20 20 20 20 | = $FE.. |
000000C0: 20 20 2A 3D 20 24 31 30 30 30 0D 0D 20 20 20 20 | *= $1000.. |
000000D0: 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 | LDA #$00 |
000000E0: 3B 4C 4F 57 2D 42 59 54 45 20 53 54 41 52 54 41 |;LOW-BYTE STARTA|
000000F0: 44 52 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |DR. STA |
00000100: 53 54 41 52 54 4C 4F 3B 5A 45 52 4F 50 41 47 45 |STARTLO;ZEROPAGE|
00000110: 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 | SCHREIBEN. |
00000120: 20 20 20 20 4C 44 41 20 23 24 31 30 20 20 20 3B | LDA #$10 ;|
00000130: 48 49 47 48 2D 42 59 54 45 20 53 54 41 52 54 41 |HIGH-BYTE STARTA|
00000140: 44 52 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |DR. STA |
00000150: 53 54 41 52 54 48 49 3B 5A 45 52 4F 50 41 47 45 |STARTHI;ZEROPAGE|
00000160: 20 53 43 48 52 45 49 42 45 4E 0D 0D 20 20 20 20 | SCHREIBEN.. |
00000170: 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 | LDA #$00 |
00000180: 3B 4C 4F 57 2D 42 59 54 45 20 5A 49 45 4C 41 44 |;LOW-BYTE ZIELAD|
00000190: 52 20 49 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |R IN. ST|
000001A0: 41 20 5A 49 45 4C 4C 4F 20 3B 5A 45 52 4F 50 41 |A ZIELLO ;ZEROPA|
000001B0: 47 45 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 |GE SCHREIBEN. |
000001C0: 20 20 20 20 20 20 4C 44 41 20 23 24 34 30 20 20 | LDA #$40 |
000001D0: 20 3B 48 49 2D 42 59 54 45 20 5A 49 45 4C 41 44 | ;HI-BYTE ZIELAD|
000001E0: 52 20 49 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |R IN. ST|
000001F0: 41 20 5A 49 45 4C 48 49 20 3B 5A 45 52 4F 50 41 |A ZIELHI ;ZEROPA|
00000200: 47 45 20 53 43 48 52 45 49 42 45 4E 0D 0D 20 20 |GE SCHREIBEN.. |
00000210: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 20 | LDY #$00 |
00000220: 20 20 20 20 20 20 3B 5A 41 45 48 4C 45 52 20 41 | ;ZAEHLER A|
00000230: 55 46 20 24 30 30 0D 4C 4F 4F 50 20 20 20 20 20 |UF $00.LOOP |
00000240: 4C 44 41 20 28 53 54 41 52 54 4C 4F 29 2C 59 3B |LDA (STARTLO),Y;|
00000250: 41 55 53 20 24 31 30 30 30 2C 59 0D 20 20 20 20 |AUS $1000,Y. |
00000260: 20 20 20 20 20 53 54 41 20 28 5A 49 45 4C 4C 4F | STA (ZIELLO|
00000270: 29 2C 59 20 3B 49 4E 20 24 34 30 30 30 2C 59 0D |),Y ;IN $4000,Y.|
00000280: 20 20 20 20 20 20 20 20 20 49 4E 59 20 20 20 20 | INY |
00000290: 20 20 20 20 20 20 20 20 3B 53 43 48 52 45 49 42 | ;SCHREIB|
000002A0: 45 4E 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |EN. BNE |
000002B0: 4C 4F 4F 50 20 20 20 20 20 20 20 3B 0D 20 20 20 |LOOP ;. |
000002C0: 20 20 20 20 20 20 49 4E 43 20 53 54 41 52 54 48 | INC STARTH|
000002D0: 49 20 20 20 20 3B 53 4F 4C 41 4E 47 45 0D 20 20 |I ;SOLANGE. |
000002E0: 20 20 20 20 20 20 20 49 4E 43 20 5A 49 45 4C 48 | INC ZIELH|
000002F0: 49 20 20 20 20 20 3B 42 49 53 20 24 32 46 46 46 |I ;BIS $2FFF|
00000300: 0D 43 48 45 43 4B 20 20 20 20 4C 44 41 20 53 54 |.CHECK LDA ST|
00000310: 41 52 54 48 49 20 20 20 20 3B 42 59 54 45 53 0D |ARTHI ;BYTES.|
00000320: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 34 | CMP #$4|
00000330: 30 20 20 20 20 20 20 20 3B 4B 4F 50 49 45 52 54 |0 ;KOPIERT|
00000340: 20 57 55 52 44 45 4E 0D 20 20 20 20 20 20 20 20 | WURDEN. |
00000350: 20 42 4E 45 20 4C 4F 4F 50 0D 20 20 20 20 20 20 | BNE LOOP. |
00000360: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS |
00000370: 20 20 3B 52 55 45 43 4B 4B 45 48 52 0D 0D 3B 2D | ;RUECKKEHR..;-|
00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003A0: 2D 2D 2D 2D 2D 2D 0D 3B 2D 2D 2D 2D 2D 2D 24 46 |------.;------$F|
000003B0: 42 2F 24 46 43 3D 20 24 30 30 20 24 31 30 20 2D |B/$FC= $00 $10 -|
000003C0: 2D 3E 20 24 31 30 30 30 2D 2D 2D 2D 2D 2D 2D 0D |-> $1000-------.|
000003D0: 3B 2D 2D 2D 2D 2D 2D 24 46 44 2F 24 46 45 3D 20 |;------$FD/$FE= |
000003E0: 24 30 30 20 24 34 30 20 2D 2D 3E 20 24 34 30 30 |$00 $40 --> $400|
000003F0: 30 2D 2D 2D 2D 2D 2D 2D 0D 3B 2D 2D 2D 2D 2D 2D |0-------.;------|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000420: 2D 0D 0D |-.. |
;---------------------------------------
.;- PAGE-OVERFLOW (W) BY PIT '91
-.;-------------------------------------
--..STARTLO = $FB.STARTHI = $FC.ZIELLO
= $FD.ZIELHI = $FE.. *= $10
00.. LDA #$00 ;LOW-BYTE STARTA
DR. STA STARTLO;ZEROPAGE SCHREIB
EN. LDA #$10 ;HIGH-BYTE STARTA
DR. STA STARTHI;ZEROPAGE SCHREIB
EN.. LDA #$00 ;LOW-BYTE ZIELAD
R IN. STA ZIELLO ;ZEROPAGE SCHRE
IBEN. LDA #$40 ;HI-BYTE ZIELAD
R IN. STA ZIELHI ;ZEROPAGE SCHRE
IBEN.. LDY #$00 ;ZAEHLER A
UF $00.LOOP LDA (STARTLO),Y;AUS $100
0,Y. STA (ZIELLO),Y ;IN $4000,Y.
INY ;SCHREIBEN.
BNE LOOP ;. INC STARTH
I ;SOLANGE. INC ZIELHI ;B
IS $2FFF.CHECK LDA STARTHI ;BYTES.
CMP #$40 ;KOPIERT WURDEN.
BNE LOOP. RTS
;RUECKKEHR..;-------------------------
--------------.;------$FB/$FC= $00 $10 -
-> $1000-------.;------$FD/$FE= $00 $40
--> $4000-------.;----------------------
-----------------..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL