00000000: D8 1F E6 1F 64 00 2E 4C 49 20 31 2C 33 2C 30 00 |....d..LI 1,3,0.|
00000010: EC 1F 6E 00 3B 00 0D 20 78 00 3B 20 54 45 58 54 |..n.;.. x.; TEXT|
00000020: 41 55 53 47 41 42 45 20 28 55 45 42 45 52 20 53 |AUSGABE (UEBER S|
00000030: 54 52 4F 55 54 29 00 13 20 82 00 3B 00 34 20 8C |TROUT).. ..;.4 .|
00000040: 00 2E 42 41 20 24 43 30 30 30 20 3B 20 53 54 41 |..BA $C000 ; STA|
00000050: 52 54 3A 20 53 59 53 20 34 39 31 35 32 00 3A 20 |RT: SYS 49152.: |
00000060: 96 00 3B 00 51 20 A0 00 2E 47 4C 20 53 54 52 4F |..;.Q ...GL STRO|
00000070: 55 54 20 3D 20 24 41 42 31 45 00 68 20 AA 00 2E |UT = $AB1E.h ...|
00000080: 47 4C 20 43 55 52 53 4F 52 20 3D 20 24 45 35 30 |GL CURSOR = $E50|
00000090: 43 00 95 20 B4 00 2E 47 4C 20 43 4C 52 53 43 52 |C.. ...GL CLRSCR|
000000A0: 20 3D 20 24 45 35 34 34 20 3B 20 42 49 4C 44 53 | = $E544 ; BILDS|
000000B0: 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E 00 9B |CHIRM LOESCHEN..|
000000C0: 20 BE 00 3B 00 AF 20 C8 00 2E 47 4C 20 5A 45 49 | ..;.. ...GL ZEI|
000000D0: 4C 45 20 20 3D 20 31 32 00 C3 20 D2 00 2E 47 4C |LE = 12.. ...GL|
000000E0: 20 53 50 41 4C 54 45 20 3D 20 31 30 00 C9 20 DC | SPALTE = 10.. .|
000000F0: 00 3B 00 EB 20 E6 00 20 4A 53 52 43 4C 52 53 43 |.;.. .. JSRCLRSC|
00000100: 52 3B 20 3D 20 50 52 49 4E 54 20 43 48 52 24 28 |R; = PRINT CHR$(|
00000110: 31 34 37 29 00 06 21 F0 00 20 4C 44 58 23 5A 45 |147)..!.. LDX#ZE|
00000120: 49 4C 45 3B 20 5A 45 49 4C 45 20 49 4E 20 58 00 |ILE; ZEILE IN X.|
00000130: 23 21 FA 00 20 4C 44 59 23 53 50 41 4C 54 45 3B |#!.. LDY#SPALTE;|
00000140: 20 53 50 41 4C 54 45 20 49 4E 20 59 00 41 21 04 | SPALTE IN Y.A!.|
00000150: 01 20 4A 53 52 43 55 52 53 4F 52 3B 20 43 55 52 |. JSRCURSOR; CUR|
00000160: 53 4F 52 20 53 45 54 5A 45 4E 00 64 21 0E 01 20 |SOR SETZEN.d!.. |
00000170: 4C 44 41 23 3C 28 54 45 58 54 29 3B 20 4C 4F 57 |LDA#<(TEXT); LOW|
00000180: 2D 42 59 54 45 20 49 4E 20 41 4B 4B 55 00 85 21 |-BYTE IN AKKU..!|
00000190: 18 01 20 4C 44 59 23 3E 28 54 45 58 54 29 3B 20 |.. LDY#>(TEXT); |
000001A0: 48 49 47 48 2D 42 59 54 45 20 49 4E 20 59 00 A8 |HIGH-BYTE IN Y..|
000001B0: 21 22 01 20 4A 4D 50 53 54 52 4F 55 54 3B 20 54 |!". JMPSTROUT; T|
000001C0: 45 58 54 41 55 53 47 41 42 45 20 26 20 45 4E 44 |EXTAUSGABE & END|
000001D0: 45 00 AE 21 2C 01 3B 00 CE 21 36 01 54 45 58 54 |E..!,.;..!6.TEXT|
000001E0: 20 2E 54 58 22 44 41 53 20 49 53 54 20 44 45 52 | .TX"DAS IST DER|
000001F0: 20 54 45 58 54 21 22 00 F4 21 40 01 2E 42 59 20 | TEXT!"..!@..BY |
00000200: 30 20 3B 20 45 4E 44 4D 41 52 4B 49 45 52 55 4E |0 ; ENDMARKIERUN|
00000210: 47 20 46 55 45 52 20 53 54 52 4F 55 54 00 00 00 |G FUER STROUT...|
X...D..LI 1,3,0...N.;.. X.; TEXTAUSGABE
(UEBER STROUT).. ..;.4 ...BA $C000 ; STA
RT: SYS 49152.: ..;.Q ..GL STROUT = $AB
1E.H ...GL CURSOR = $E50C.. ...GL CLRSCR
= $E544 ; BILDSCHIRM LOESCHEN.. ..;.. H
..GL ZEILE = 12.C R..GL SPALTE = 10.I .
.;.. .. JSRCLRSCR; = PRINT CHR$(147)..!.
. LDX#ZEILE; ZEILE IN X.#!.. LDY#SPALTE;
SPALTE IN Y.A!.. JSRCURSOR; CURSOR SETZ
EN.D!.. LDA#<(TEXT); LOW-BYTE IN AKKU..!
.. LDY#>(TEXT); HIGH-BYTE IN Y..!". JMPS
TROUT; TEXTAUSGABE & ENDE..!,.;.N!6.TEXT
.TX"DAS IST DER TEXT!"..!@..BY 0 ; ENDM
ARKIERUNG FUER STROUT...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL