STRINGIOLIB.HY

FILE INFORMATION

FILENAME(S): STRINGIOLIB.HY

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 01:13:14

APPEARS ON: 1 disk(s)

FILE HASH

269dba4e9df90bcea568c4c86acb93fbfd1ffe91ceabddf18d84dbf1b67960f3

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15721 SEITE A	STRINGIOLIB.HY	PRG	C64er	7	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 07 04 A0 0F 3B 00  2B 04 A5 0F 3B 20 5A 45  |......;.+...; ZE|
00000010: 49 43 48 45 4E 4B 45 54  54 45 4E 20 45 49 4E 20  |ICHENKETTEN EIN |
00000020: 55 4E 44 20 41 55 53 47  41 42 45 00 31 04 AA 0F  |UND AUSGABE.1...|
00000030: 3B 00 47 04 AF 0F 3B 20  55 4E 54 45 52 50 52 4F  |;.G...; UNTERPRO|
00000040: 47 52 41 4D 4D 45 3A 00  6C 04 B4 0F 3B 20 49 4E  |GRAMME:.l...; IN|
00000050: 50 55 54 53 3A 20 4C 49  45 53 54 20 5A 45 49 43  |PUTS: LIEST ZEIC|
00000060: 48 45 4E 4B 45 54 54 45  20 45 49 4E 00 AF 04 B9  |HENKETTE EIN....|
00000070: 0F 3B 20 20 20 20 20 20  20 20 20 41 2F 59 20 5A  |.;         A/Y Z|
00000080: 45 49 47 54 20 41 55 46  20 41 42 4C 41 47 45 41  |EIGT AUF ABLAGEA|
00000090: 44 52 45 53 53 45 2C 20  49 4D 20 58 2D 52 45 47  |DRESSE, IM X-REG|
000000A0: 49 53 54 45 52 20 53 54  45 48 54 20 44 49 45 00  |ISTER STEHT DIE.|
000000B0: E3 04 BE 0F 3B 20 20 20  20 20 20 20 20 20 4D 41  |....;         MA|
000000C0: 58 49 4D 41 4C 45 20 41  4E 5A 41 48 4C 20 45 49  |XIMALE ANZAHL EI|
000000D0: 4E 5A 55 4C 45 53 45 4E  44 45 52 20 5A 45 49 43  |NZULESENDER ZEIC|
000000E0: 48 45 4E 00 24 05 C3 0F  3B 20 20 20 20 20 20 20  |HEN.$...;       |
000000F0: 20 20 4E 41 43 48 20 44  45 4D 20 41 55 46 52 55  |  NACH DEM AUFRU|
00000100: 46 20 53 54 45 48 54 20  49 4D 20 59 2D 52 45 47  |F STEHT IM Y-REG|
00000110: 49 53 54 45 52 20 44 49  45 20 41 4E 5A 41 48 4C  |ISTER DIE ANZAHL|
00000120: 20 44 45 52 00 51 05 C8  0F 3B 20 20 20 20 20 20  | DER.Q...;      |
00000130: 20 20 20 54 41 54 53 41  45 43 48 4C 49 43 48 20  |   TATSAECHLICH |
00000140: 47 45 4C 45 53 45 4E 45  4E 20 5A 45 49 43 48 45  |GELESENEN ZEICHE|
00000150: 4E 00 98 05 CD 0F 3B 20  20 20 20 20 20 20 20 20  |N.....;         |
00000160: 44 49 45 20 45 49 4E 47  45 4C 45 53 45 4E 45 20  |DIE EINGELESENE |
00000170: 5A 45 49 43 48 45 4E 4B  45 54 54 45 20 49 53 54  |ZEICHENKETTE IST|
00000180: 20 41 4D 20 45 4E 44 45  20 4D 49 54 20 30 20 4D  | AM ENDE MIT 0 M|
00000190: 41 52 4B 49 45 52 54 2C  00 DD 05 D2 0F 3B 20 20  |ARKIERT,.....;  |
000001A0: 20 20 20 20 20 20 20 44  41 48 45 52 20 4D 55 53  |       DAHER MUS|
000001B0: 53 20 41 4E 20 44 45 52  20 41 42 4C 41 47 45 41  |S AN DER ABLAGEA|
000001C0: 44 52 45 53 53 45 20 4D  49 4E 44 45 53 54 45 4E  |DRESSE MINDESTEN|
000001D0: 53 20 31 20 42 59 54 45  20 4D 45 48 52 00 23 06  |S 1 BYTE MEHR.#.|
000001E0: D7 0F 3B 20 20 20 20 20  20 20 20 20 50 4C 41 54  |..;         PLAT|
000001F0: 5A 20 5A 55 52 20 56 45  52 46 55 45 47 55 4E 47  |Z ZUR VERFUEGUNG|
00000200: 20 53 54 45 48 45 4E 20  41 4C 53 20 5A 45 49 43  | STEHEN ALS ZEIC|
00000210: 48 45 4E 20 45 52 57 41  52 54 45 54 20 57 45 52  |HEN ERWARTET WER|
00000220: 44 45 4E 00 69 06 DC 0F  3B 20 50 52 49 4E 54 53  |DEN.i...; PRINTS|
00000230: 3A 20 47 49 42 54 20 5A  45 49 43 48 45 4E 4B 45  |: GIBT ZEICHENKE|
00000240: 54 54 45 20 41 4E 20 44  45 52 20 41 44 52 45 53  |TTE AN DER ADRES|
00000250: 53 45 20 41 2F 59 20 41  55 53 2C 20 45 4E 44 45  |SE A/Y AUS, ENDE|
00000260: 20 4D 55 53 53 20 4D 49  54 00 87 06 E1 0F 3B 20  | MUSS MIT.....; |
00000270: 20 20 20 20 20 20 20 20  30 20 4D 41 52 4B 49 45  |        0 MARKIE|
00000280: 52 54 20 53 45 49 4E 00  CC 06 E6 0F 3B 20 57 52  |RT SEIN.....; WR|
00000290: 49 54 45 53 3A 20 47 49  42 54 20 45 42 45 4E 46  |ITES: GIBT EBENF|
000002A0: 41 4C 4C 53 20 5A 45 49  43 48 45 4E 4B 45 54 54  |ALLS ZEICHENKETT|
000002B0: 45 20 41 55 53 2C 20 44  49 45 53 45 20 53 54 45  |E AUS, DIESE STE|
000002C0: 48 54 20 44 49 52 45 4B  54 20 49 4D 00 0E 07 EB  |HT DIREKT IM....|
000002D0: 0F 3B 20 20 20 20 20 20  20 20 20 41 4E 53 43 48  |.;         ANSCH|
000002E0: 4C 55 53 53 20 41 4E 20  44 45 4E 20 55 4E 54 45  |LUSS AN DEN UNTE|
000002F0: 52 50 52 4F 47 52 41 4D  4D 41 55 46 52 55 46 20  |RPROGRAMMAUFRUF |
00000300: 55 4E 44 20 4D 55 53 53  20 4D 49 54 20 30 00 31  |UND MUSS MIT 0.1|
00000310: 07 F0 0F 3B 20 20 20 20  20 20 20 20 20 41 42 47  |...;         ABG|
00000320: 45 53 43 48 4C 4F 53 53  45 4E 20 57 45 52 44 45  |ESCHLOSSEN WERDE|
00000330: 4E 00 6F 07 F5 0F 3B 20  43 52 4C 46 3A 20 20 20  |N.o...; CRLF:   |
00000340: 53 45 54 5A 54 20 43 55  52 53 4F 52 20 41 55 46  |SETZT CURSOR AUF|
00000350: 20 44 45 4E 20 41 4E 46  41 4E 47 20 44 45 52 20  | DEN ANFANG DER |
00000360: 4E 41 45 43 48 53 54 45  4E 20 5A 45 49 4C 45 00  |NAECHSTEN ZEILE.|
00000370: 75 07 FA 0F 3B 00 83 07  FF 0F 3B 20 4D 41 4B 52  |u...;.....; MAKR|
00000380: 4F 53 3A 00 A4 07 04 10  3B 20 4D 49 4E 50 55 54  |OS:.....; MINPUT|
00000390: 53 28 41 44 2C 4C 45 4E  29 20 20 20 20 45 49 4E  |S(AD,LEN)    EIN|
000003A0: 47 41 42 45 00 C5 07 09  10 3B 20 4D 50 52 49 4E  |GABE.....; MPRIN|
000003B0: 54 53 28 41 44 29 20 20  20 20 20 20 20 20 41 55  |TS(AD)        AU|
000003C0: 53 47 41 42 45 00 DB 07  0E 10 49 4E 50 55 54 53  |SGABE.....INPUTS|
000003D0: 20 53 54 58 4D 41 58 4C  45 4E 53 00 20 08 13 10  | STXMAXLENS. ...|
000003E0: 2E 47 4C 20 49 4E 50 55  54 53 3D 49 4E 50 55 54  |.GL INPUTS=INPUT|
000003F0: 53 3B 20 44 41 4D 49 54  20 49 4E 50 55 54 53 20  |S; DAMIT INPUTS |
00000400: 41 55 43 48 20 56 4F 4E  20 4D 41 4B 52 4F 53 20  |AUCH VON MAKROS |
00000410: 41 55 53 20 53 49 43 48  54 42 41 52 20 49 53 54  |AUS SICHTBAR IST|
00000420: 00 2B 08 18 10 20 53 54  41 50 54 00 38 08 1D 10  |.+... STAPT.8...|
00000430: 20 53 54 59 50 54 2B 31  00 43 08 22 10 20 4C 44  | STYPT+1.C.". LD|
00000440: 59 23 30 00 5A 08 27 10  49 4E 50 55 54 4C 50 20  |Y#0.Z.'.INPUTLP |
00000450: 43 50 59 4D 41 58 4C 45  4E 53 00 6A 08 2C 10 20  |CPYMAXLENS.j.,. |
00000460: 42 45 51 49 4E 50 55 54  53 58 00 78 08 31 10 20  |BEQINPUTSX.x.1. |
00000470: 4A 53 52 42 41 53 49 4E  00 84 08 36 10 20 43 4D  |JSRBASIN...6. CM|
00000480: 50 23 43 52 00 94 08 3B  10 20 42 45 51 49 4E 50  |P#CR...;. BEQINP|
00000490: 55 54 53 58 00 A3 08 40  10 20 53 54 41 28 50 54  |UTSX...@. STA(PT|
000004A0: 29 2C 59 00 AC 08 45 10  20 49 4E 59 00 BC 08 4A  |),Y...E. INY...J|
000004B0: 10 20 42 4E 45 49 4E 50  55 54 4C 50 00 CE 08 4F  |. BNEINPUTLP...O|
000004C0: 10 49 4E 50 55 54 53 58  20 4C 44 41 23 30 00 DD  |.INPUTSX LDA#0..|
000004D0: 08 54 10 20 53 54 41 28  50 54 29 2C 59 00 E6 08  |.T. STA(PT),Y...|
000004E0: 59 10 20 52 54 53 00 F7  08 5E 10 50 52 49 4E 54  |Y. RTS...^.PRINT|
000004F0: 53 20 53 54 41 50 54 00  0D 09 63 10 2E 47 4C 20  |S STAPT...c..GL |
00000500: 50 52 49 4E 54 53 3D 50  52 49 4E 54 53 00 1A 09  |PRINTS=PRINTS...|
00000510: 68 10 20 53 54 59 50 54  2B 31 00 25 09 6D 10 20  |h. STYPT+1.%.m. |
00000520: 4C 44 59 23 30 00 3B 09  72 10 50 52 49 4E 54 4C  |LDY#0.;.r.PRINTL|
00000530: 50 20 4C 44 41 28 50 54  29 2C 59 00 4B 09 77 10  |P LDA(PT),Y.K.w.|
00000540: 20 42 45 51 50 52 49 4E  54 53 58 00 5A 09 7C 10  | BEQPRINTSX.Z.|.|
00000550: 20 4A 53 52 42 41 53 4F  55 54 00 65 09 81 10 20  | JSRBASOUT.e... |
00000560: 49 4E 43 50 54 00 75 09  86 10 20 42 4E 45 50 52  |INCPT.u... BNEPR|
00000570: 49 4E 54 4C 50 00 82 09  8B 10 20 49 4E 43 50 54  |INTLP..... INCPT|
00000580: 2B 31 00 92 09 90 10 20  42 4E 45 50 52 49 4E 54  |+1..... BNEPRINT|
00000590: 4C 50 00 A2 09 95 10 20  42 4E 45 50 52 49 4E 54  |LP..... BNEPRINT|
000005A0: 4C 50 00 B2 09 9A 10 50  52 49 4E 54 53 58 20 52  |LP.....PRINTSX R|
000005B0: 54 53 00 C3 09 9F 10 4D  41 58 4C 45 4E 53 20 2E  |TS.....MAXLENS .|
000005C0: 42 59 30 00 D2 09 A4 10  57 52 49 54 45 53 20 50  |BY0.....WRITES P|
000005D0: 4C 41 00 DB 09 A9 10 20  43 4C 43 00 E6 09 AE 10  |LA..... CLC.....|
000005E0: 20 41 44 43 23 31 00 EF  09 B3 10 20 54 41 58 00  | ADC#1..... TAX.|
000005F0: F8 09 B8 10 20 50 4C 41  00 03 0A BD 10 20 41 44  |.... PLA..... AD|
00000600: 43 23 30 00 0C 0A C2 10  20 54 41 59 00 15 0A C7  |C#0..... TAY....|
00000610: 10 20 54 58 41 00 24 0A  CC 10 20 4A 53 52 50 52  |. TXA.$... JSRPR|
00000620: 49 4E 54 53 00 31 0A D1  10 20 4C 44 41 50 54 2B  |INTS.1... LDAPT+|
00000630: 31 00 3A 0A D6 10 20 50  48 41 00 45 0A DB 10 20  |1.:... PHA.E... |
00000640: 4C 44 41 50 54 00 4E 0A  E0 10 20 50 48 41 00 57  |LDAPT.N... PHA.W|
00000650: 0A E5 10 20 52 54 53 00  67 0A EA 10 43 52 4C 46  |... RTS.g...CRLF|
00000660: 20 4C 44 41 23 43 52 00  76 0A EF 10 20 4A 4D 50  | LDA#CR.v... JMP|
00000670: 42 41 53 4F 55 54 00 8B  0A F4 10 2E 4D 41 20 4D  |BASOUT......MA M|
00000680: 50 52 49 4E 54 53 28 41  44 52 29 00 9B 0A F9 10  |PRINTS(ADR).....|
00000690: 20 4C 44 41 23 3C 28 41  44 52 29 00 AB 0A FE 10  | LDA#<(ADR).....|
000006A0: 20 4C 44 59 23 3E 28 41  44 52 29 00 BA 0A 03 11  | LDY#>(ADR).....|
000006B0: 20 4A 53 52 50 52 49 4E  54 53 00 C2 0A 08 11 2E  | JSRPRINTS......|
000006C0: 52 54 00 DB 0A 0D 11 2E  4D 41 20 4D 49 4E 50 55  |RT......MA MINPU|
000006D0: 54 53 28 41 44 52 2C 4C  45 4E 29 00 EB 0A 12 11  |TS(ADR,LEN).....|
000006E0: 20 4C 44 41 23 3C 28 41  44 52 29 00 FB 0A 17 11  | LDA#<(ADR).....|
000006F0: 20 4C 44 59 23 3E 28 41  44 52 29 00 08 0B 1C 11  | LDY#>(ADR).....|
00000700: 20 4C 44 58 23 4C 45 4E  00 17 0B 21 11 20 4A 53  | LDX#LEN...!. JS|
00000710: 52 49 4E 50 55 54 53 00  1F 0B 26 11 2E 52 54 00  |RINPUTS...&..RT.|
00000720: 00 00                                             |..              |

.... .;.+...; ZEICHENKETTEN EIN UND AUSG
ABE.1...;.G...; UNTERPROGRAMME:.L...; IN
PUTS: LIEST ZEICHENKETTE EIN.....;      
   A/Y ZEIGT AUF ABLAGEADRESSE, IM X-REG
ISTER STEHT DIE.....;         MAXIMALE A
NZAHL EINZULESENDER ZEICHEN.$.C.;       
  NACH DEM AUFRUF STEHT IM Y-REGISTER DI
E ANZAHL DER.Q.H.;         TATSAECHLICH 
GELESENEN ZEICHEN...M.;         DIE EING
ELESENE ZEICHENKETTE IST AM ENDE MIT 0 M
ARKIERT,...R.;         DAHER MUSS AN DER
 ABLAGEADRESSE MINDESTENS 1 BYTE MEHR.#.
W.;         PLATZ ZUR VERFUEGUNG STEHEN 
ALS ZEICHEN ERWARTET WERDEN.I...; PRINTS
: GIBT ZEICHENKETTE AN DER ADRESSE A/Y A
US, ENDE MUSS MIT.....;         0 MARKIE
RT SEIN.L...; WRITES: GIBT EBENFALLS ZEI
CHENKETTE AUS, DIESE STEHT DIREKT IM....
.;         ANSCHLUSS AN DEN UNTERPROGRAM
MAUFRUF UND MUSS MIT 0.1...;         ABG
ESCHLOSSEN WERDEN.O...; CRLF:   SETZT CU
RSOR AUF DEN ANFANG DER NAECHSTEN ZEILE.
U...;.....; MAKROS:.....; MINPUTS(AD,LEN
)    EINGABE.E...; MPRINTS(AD)        AU
SGABE.....INPUTS STXMAXLENS. ....GL INPU
TS=INPUTS; DAMIT INPUTS AUCH VON MAKROS 
AUS SICHTBAR IST.+... STAPT.8... STYPT+1
.C.". LDY#0.Z.'.INPUTLP CPYMAXLENS.J.,. 
BEQINPUTSX.X.1. JSRBASIN...6. CMP#CR...;
. BEQINPUTSX...@. STA(PT),Y...E. INY...J
. BNEINPUTLP.N.O.INPUTSX LDA#0...T. STA(
PT),Y...Y. RTS...^.PRINTS STAPT...C..GL 
PRINTS=PRINTS...H. STYPT+1.%.M. LDY#0.;.
R.PRINTLP LDA(PT),Y.K.W. BEQPRINTSX.Z.|.
 JSRBASOUT.E... INCPT.U... BNEPRINTLP...
.. INCPT+1..... BNEPRINTLP..... BNEPRINT
LP.....PRINTSX RTS.C...MAXLENS .BY0.R...
WRITES PLA..... CLC..... ADC#1..... TAX.
.... PLA..... ADC#0...B. TAY...G. TXA.$.
L. JSRPRINTS.1.Q. LDAPT+1.:.V. PHA.E... 
LDAPT.N... PHA.W... RTS.G...CRLF LDA#CR.
V... JMPBASOUT......MA MPRINTS(ADR).....
 LDA#<(ADR)..... LDY#>(ADR)..... JSRPRIN
TS.B....RT......MA MINPUTS(ADR,LEN).....
 LDA#<(ADR)..... LDY#>(ADR)..... LDX#LEN
...!. JSRINPUTS...&..RT...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL