00000000: D8 1F FE 1F 64 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |....d.;---------|
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 00 16 20 6E 00 3B 20 42 4C |-------.. n.; BL|
00000030: 4F 43 4B 56 45 52 53 43 48 49 45 42 55 4E 47 00 |OCKVERSCHIEBUNG.|
00000040: 2F 20 78 00 3B 20 28 4D 41 58 49 4D 41 4C 20 32 |/ x.; (MAXIMAL 2|
00000050: 35 35 20 42 59 54 45 29 00 55 20 82 00 3B 2D 2D |55 BYTE).U ..;--|
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 2D 2D 2D 2D 00 71 |--------------.q|
00000080: 20 8C 00 20 2E 42 41 24 43 30 30 30 3B 50 52 4F | .. .BA$C000;PRO|
00000090: 47 52 41 4D 4D 53 54 41 52 54 00 90 20 96 00 20 |GRAMMSTART.. .. |
000000A0: 2E 45 51 51 55 45 4C 4C 45 3D 24 34 30 30 3B 42 |.EQQUELLE=$400;B|
000000B0: 4C 4F 43 4B 53 54 41 52 54 00 A6 20 A0 00 20 2E |LOCKSTART.. .. .|
000000C0: 45 51 5A 49 45 4C 3D 24 34 30 30 2B 32 34 30 00 |EQZIEL=$400+240.|
000000D0: C5 20 AA 00 20 2E 45 51 4C 41 45 4E 47 45 3D 32 |. .. .EQLAENGE=2|
000000E0: 34 30 3B 42 4C 4F 43 4B 4C 41 45 4E 47 45 00 F1 |40;BLOCKLAENGE..|
000000F0: 20 B4 00 3B 20 58 20 4C 41 45 55 46 54 20 52 55 | ..; X LAEUFT RU|
00000100: 45 43 4B 57 41 45 52 54 53 20 56 4F 4E 20 4C 41 |ECKWAERTS VON LA|
00000110: 45 4E 47 45 20 42 49 53 20 31 00 01 21 BE 00 20 |ENGE BIS 1..!.. |
00000120: 4C 44 58 23 4C 41 45 4E 47 45 00 18 21 C8 00 4C |LDX#LAENGE..!..L|
00000130: 4F 4F 50 20 4C 44 41 51 55 45 4C 4C 45 2D 31 2C |OOP LDAQUELLE-1,|
00000140: 58 00 29 21 D2 00 20 53 54 41 5A 49 45 4C 2D 31 |X.)!.. STAZIEL-1|
00000150: 2C 58 00 39 21 DC 00 20 44 45 58 3B 58 3A 3D 58 |,X.9!.. DEX;X:=X|
00000160: 2D 31 00 5C 21 E6 00 20 42 4E 45 4C 4F 4F 50 3B |-1.\!.. BNELOOP;|
00000170: 46 41 4C 4C 53 20 58 3C 3E 30 2C 20 4E 41 43 48 |FALLS X<>0, NACH|
00000180: 20 4C 4F 4F 50 00 70 21 F0 00 20 52 54 53 3B 53 | LOOP.p!.. RTS;S|
00000190: 4F 4E 53 54 20 45 4E 44 45 00 00 00 |ONST ENDE... |
X...D.;--------------------------------.
. N.; BLOCKVERSCHIEBUNG./ X.; (MAXIMAL 2
55 BYTE).U ..;--------------------------
------.Q .. .BA$C000;PROGRAMMSTART.. ..
.EQQUELLE=$400;BLOCKSTART.. . .EQZIEL=$
400+240.E .. .EQLAENGE=240;BLOCKLAENGE..
..; X LAEUFT RUECKWAERTS VON LAENGE BIS
1..!.. LDX#LAENGE..!H.LOOP LDAQUELLE-1,
X.)!R. STAZIEL-1,X.9!.. DEX;X:=X-1.\!..
BNELOOP;FALLS X<>0, NACH LOOP.P!.. RTS;S
ONST ENDE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL