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: 47 45 54 53 54 52 2D 52 4F 55 54 49 4E 45 20 28 |GETSTR-ROUTINE (|
00000050: 57 29 20 31 39 39 34 20 42 59 20 4D 41 44 52 4F |W) 1994 BY MADRO|
00000060: 4D 20 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |M *.;**********|
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 50 52 47 2E 20 57 49 52 44 20 4D 49 52 20 2D | PRG. WIRD MIR -|
000000A0: 20 4A 53 52 20 47 45 54 53 54 52 20 2D 20 47 45 | JSR GETSTR - GE|
000000B0: 53 54 41 52 54 2A 0D 3B 2A 20 52 4F 55 54 49 4E |START*.;* ROUTIN|
000000C0: 45 20 48 4F 4C 54 20 41 55 53 20 44 45 4D 20 42 |E HOLT AUS DEM B|
000000D0: 41 53 49 43 2D 54 45 58 54 20 45 49 4E 45 2A 0D |ASIC-TEXT EINE*.|
000000E0: 3B 2A 20 56 41 52 49 41 42 4C 45 2E 20 44 49 45 |;* VARIABLE. DIE|
000000F0: 20 4C 41 45 4E 47 45 20 44 45 53 20 53 54 52 49 | LAENGE DES STRI|
00000100: 4E 47 53 20 20 20 20 2A 0D 3B 2A 20 42 45 46 49 |NGS *.;* BEFI|
00000110: 4E 44 45 54 20 53 49 43 48 20 49 4E 20 41 4B 4B |NDET SICH IN AKK|
00000120: 55 2C 20 44 49 45 20 41 44 52 45 53 53 45 20 20 |U, DIE ADRESSE |
00000130: 2A 0D 3B 2A 20 49 4E 20 58 2D 20 55 4E 44 20 59 |*.;* IN X- UND Y|
00000140: 2D 52 45 47 2E 20 56 4F 52 48 45 52 20 57 49 52 |-REG. VORHER WIR|
00000150: 44 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 47 45 |D *.;* GE|
00000160: 50 52 55 45 46 54 2C 20 4F 42 20 56 4F 52 20 44 |PRUEFT, OB VOR D|
00000170: 45 52 20 56 41 52 49 41 42 4C 45 20 45 49 4E 20 |ER VARIABLE EIN |
00000180: 20 20 2A 0D 3B 2A 20 4B 4F 4D 4D 41 20 47 45 53 | *.;* KOMMA GES|
00000190: 45 54 5A 54 20 57 55 52 44 45 2E 20 53 4F 4C 4C |ETZT WURDE. SOLL|
000001A0: 20 4B 45 49 4E 20 4B 4F 4D 4D 41 2A 0D 3B 2A 20 | KEIN KOMMA*.;* |
000001B0: 54 45 53 54 20 45 52 46 4F 4C 47 45 4E 2C 20 4D |TEST ERFOLGEN, M|
000001C0: 55 53 53 20 44 49 45 20 52 4F 55 54 49 4E 45 20 |USS DIE ROUTINE |
000001D0: 4D 49 54 20 2A 0D 3B 2A 20 2D 20 4A 53 52 20 47 |MIT *.;* - JSR G|
000001E0: 45 54 53 54 52 32 20 2D 20 41 55 46 47 45 52 55 |ETSTR2 - AUFGERU|
000001F0: 46 45 4E 20 57 45 52 44 45 4E 2E 2E 2E 2A 0D 3B |FEN WERDEN...*.;|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 0D 0D 0D 47 45 54 53 54 52 |*******...GETSTR|
00000230: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 41 |. JSR $A|
00000240: 45 46 44 0D 47 45 54 53 54 52 32 0D 20 20 20 20 |EFD.GETSTR2. |
00000250: 20 20 20 20 20 4A 53 52 20 24 41 44 39 45 0D 20 | JSR $AD9E. |
00000260: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 42 36 41 | JMP $B6A|
00000270: 33 0D 0D 0D |3... |
*= $1000..;********************
*******************.;* GETSTR-ROUTINE (
W) 1994 BY MADROM *.;******************
*********************.;* PRG. WIRD MIR -
JSR GETSTR - GESTART*.;* ROUTINE HOLT A
US DEM BASIC-TEXT EINE*.;* VARIABLE. DIE
LAENGE DES STRINGS *.;* BEFINDET SIC
H IN AKKU, DIE ADRESSE *.;* IN X- UND Y
-REG. VORHER WIRD *.;* GEPRUEFT,
OB VOR DER VARIABLE EIN *.;* KOMMA GES
ETZT WURDE. SOLL KEIN KOMMA*.;* TEST ERF
OLGEN, MUSS DIE ROUTINE MIT *.;* - JSR G
ETSTR2 - AUFGERUFEN WERDEN...*.;********
*******************************...GETSTR
. JSR $AEFD.GETSTR2. JSR
$AD9E. JMP $B6A3...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL