LISTEN.SRC

FILE INFORMATION

FILENAME(S): LISTEN.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 01:12:44

APPEARS ON: 3 disk(s)

FILE HASH

5539b2704e607e1c38ae0a3286dfed93e6027b235564d82293532ba4a3c1327c

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BEST NR 10706 2	LISTEN.SRC	PRG	C64er	29	2	DOWNLOAD FILE
BEST NR 10706 2	LISTEN.SRC	PRG	DuncanTwain	29	2	DOWNLOAD FILE
BEST NR 10706 2	LISTEN.SRC	PRG	DuncanTwain	29	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F3 1F 64 00 3B 2A  2A 2A 20 4C 49 53 54 45  |....d.;*** LISTE|
00000010: 4E 41 55 53 47 41 42 45  20 2A 2A 2A 00 13 20 6E  |NAUSGABE ***.. n|
00000020: 00 3B 41 55 46 52 55 46  3A 20 53 59 53 20 34 39  |.;AUFRUF: SYS 49|
00000030: 32 33 32 2C 28 5A 45 49  4C 45 29 2C 00 38 20 78  |232,(ZEILE),.8 x|
00000040: 00 3B 20 20 20 20 20 20  20 20 28 41 52 52 41 59  |.;        (ARRAY|
00000050: 28 49 4E 44 45 58 29 29  2C 28 41 4E 5A 41 48 4C  |(INDEX)),(ANZAHL|
00000060: 29 00 5D 20 82 00 3B 46  55 4E 4B 54 49 4F 4E 3A  |).] ..;FUNKTION:|
00000070: 20 47 49 42 54 20 41 42  20 44 45 52 20 41 4E 47  | GIBT AB DER ANG|
00000080: 45 47 45 42 45 2D 00 80  20 8C 00 3B 20 20 20 20  |EGEBE-.. ..;    |
00000090: 20 20 20 20 20 20 4E 45  4E 20 42 49 4C 44 53 43  |      NEN BILDSC|
000000A0: 48 49 52 4D 5A 45 49 4C  45 00 A3 20 96 00 3B 20  |HIRMZEILE.. ..; |
000000B0: 20 20 20 20 20 20 20 20  20 27 41 4E 5A 41 48 4C  |         'ANZAHL|
000000C0: 27 20 53 54 52 49 4E 47  53 20 41 42 00 C5 20 A0  |' STRINGS AB.. .|
000000D0: 00 3B 20 20 20 20 20 20  20 20 20 20 27 41 52 52  |.;          'ARR|
000000E0: 41 59 28 49 4E 44 45 58  29 27 20 41 55 53 00 E9  |AY(INDEX)' AUS..|
000000F0: 20 AA 00 3B 42 45 49 53  50 49 45 4C 3A 20 53 59  | ..;BEISPIEL: SY|
00000100: 53 20 34 39 32 33 32 2C  32 2C 41 24 28 33 29 2C  |S 49232,2,A$(3),|
00000110: 32 30 00 0C 21 B4 00 3B  20 20 20 20 20 20 20 20  |20..!..;        |
00000120: 20 20 47 49 42 54 20 41  42 20 5A 45 49 4C 45 20  |  GIBT AB ZEILE |
00000130: 32 20 44 49 45 00 30 21  BE 00 3B 20 20 20 20 20  |2 DIE.0!..;     |
00000140: 20 20 20 20 20 53 54 52  49 4E 47 53 20 41 24 28  |     STRINGS A$(|
00000150: 32 29 2D 41 24 28 32 31  29 00 44 21 C8 00 3B 20  |2)-A$(21).D!..; |
00000160: 20 20 20 20 20 20 20 20  20 41 55 53 2E 00 4A 21  |         AUS..J!|
00000170: D2 00 3B 00 58 21 DC 00  2E 42 41 20 24 43 30 35  |..;.X!...BA $C05|
00000180: 30 00 6F 21 E6 00 2E 45  51 20 43 48 4B 4B 4F 4D  |0.o!...EQ CHKKOM|
00000190: 20 3D 20 24 41 45 46 44  00 86 21 F0 00 2E 45 51  | = $AEFD..!...EQ|
000001A0: 20 47 45 54 50 4F 53 20  3D 20 24 42 30 38 42 00  | GETPOS = $B08B.|
000001B0: 9D 21 FA 00 2E 45 51 20  47 45 54 42 59 54 20 3D  |.!...EQ GETBYT =|
000001C0: 20 24 42 37 39 45 00 B4  21 04 01 2E 45 51 20 50  | $B79E..!...EQ P|
000001D0: 4C 4F 54 20 20 20 3D 20  24 46 46 46 30 00 C9 21  |LOT   = $FFF0..!|
000001E0: 0E 01 2E 45 51 20 56 41  52 50 4E 54 20 3D 20 24  |...EQ VARPNT = $|
000001F0: 34 37 00 DE 21 18 01 2E  45 51 20 53 54 52 50 54  |47..!...EQ STRPT|
00000200: 52 20 3D 20 24 46 42 00  F5 21 22 01 2E 45 51 20  |R = $FB..!"..EQ |
00000210: 42 53 4F 55 54 20 20 3D  20 24 46 46 44 32 00 0A  |BSOUT  = $FFD2..|
00000220: 22 2C 01 2E 45 51 20 43  52 53 4C 49 4E 20 3D 20  |",..EQ CRSLIN = |
00000230: 24 44 31 00 10 22 36 01  3B 00 1F 22 40 01 20 4A  |$D1.."6.;.."@. J|
00000240: 53 52 43 48 4B 4B 4F 4D  00 2E 22 4A 01 20 4A 53  |SRCHKKOM.."J. JS|
00000250: 52 47 45 54 42 59 54 00  3B 22 54 01 20 4C 44 59  |RGETBYT.;"T. LDY|
00000260: 23 24 30 30 00 44 22 5E  01 20 43 4C 43 00 51 22  |#$00.D"^. CLC.Q"|
00000270: 68 01 20 4A 53 52 50 4C  4F 54 00 57 22 72 01 3B  |h. JSRPLOT.W"r.;|
00000280: 00 66 22 7C 01 20 4A 53  52 43 48 4B 4B 4F 4D 00  |.f"|. JSRCHKKOM.|
00000290: 75 22 86 01 20 4A 53 52  47 45 54 50 4F 53 00 7B  |u".. JSRGETPOS.{|
000002A0: 22 90 01 3B 00 8A 22 9A  01 20 4A 53 52 43 48 4B  |"..;..".. JSRCHK|
000002B0: 4B 4F 4D 00 99 22 A4 01  20 4A 53 52 47 45 54 42  |KOM..".. JSRGETB|
000002C0: 59 54 00 9F 22 AE 01 3B  00 B0 22 B8 01 4C 4F 4F  |YT.."..;.."..LOO|
000002D0: 50 20 4C 44 59 23 24 30  32 00 C7 22 C2 01 43 4F  |P LDY#$02.."..CO|
000002E0: 50 59 20 4C 44 41 28 56  41 52 50 4E 54 29 2C 59  |PY LDA(VARPNT),Y|
000002F0: 00 D8 22 CC 01 20 53 54  41 53 54 52 50 54 52 2C  |..".. STASTRPTR,|
00000300: 59 00 E1 22 D6 01 20 44  45 59 00 EE 22 E0 01 20  |Y..".. DEY..".. |
00000310: 42 50 4C 43 4F 50 59 00  F4 22 EA 01 3B 00 03 23  |BPLCOPY.."..;..#|
00000320: F4 01 20 4C 44 59 53 54  52 50 54 52 00 10 23 F9  |.. LDYSTRPTR..#.|
00000330: 01 20 42 45 51 4E 45 58  54 00 2B 23 FE 01 53 54  |. BEQNEXT.+#..ST|
00000340: 52 4F 55 54 20 4C 44 41  28 53 54 52 50 54 52 2B  |ROUT LDA(STRPTR+|
00000350: 31 29 2C 59 00 38 23 08  02 20 43 4D 50 23 24 38  |1),Y.8#.. CMP#$8|
00000360: 30 00 46 23 12 02 20 42  43 53 47 52 4F 53 53 00  |0.F#.. BCSGROSS.|
00000370: 53 23 1C 02 20 41 4E 44  23 24 42 46 00 65 23 26  |S#.. AND#$BF.e#&|
00000380: 02 47 52 4F 53 53 20 41  4E 44 23 24 37 46 00 78  |.GROSS AND#$7F.x|
00000390: 23 30 02 20 53 54 41 28  43 52 53 4C 49 4E 29 2C  |#0. STA(CRSLIN),|
000003A0: 59 00 81 23 3A 02 20 44  45 59 00 90 23 44 02 20  |Y..#:. DEY..#D. |
000003B0: 42 50 4C 53 54 52 4F 55  54 00 96 23 4E 02 3B 00  |BPLSTROUT..#N.;.|
000003C0: A6 23 58 02 4E 45 58 54  20 4C 44 41 23 31 37 00  |.#X.NEXT LDA#17.|
000003D0: B4 23 62 02 20 4A 53 52  42 53 4F 55 54 00 BA 23  |.#b. JSRBSOUT..#|
000003E0: 6C 02 3B 00 C9 23 76 02  20 4C 44 41 56 41 52 50  |l.;..#v. LDAVARP|
000003F0: 4E 54 00 D2 23 80 02 20  43 4C 43 00 DF 23 8A 02  |NT..#.. CLC..#..|
00000400: 20 41 44 43 23 24 30 33  00 EE 23 94 02 20 53 54  | ADC#$03..#.. ST|
00000410: 41 56 41 52 50 4E 54 00  FC 23 9E 02 20 42 43 43  |AVARPNT..#.. BCC|
00000420: 4E 45 58 54 31 00 0D 24  A8 02 20 49 4E 43 56 41  |NEXT1..$.. INCVA|
00000430: 52 50 4E 54 2B 31 00 13  24 B2 02 3B 00 21 24 BC  |RPNT+1..$..;.!$.|
00000440: 02 4E 45 58 54 31 20 44  45 58 00 2E 24 C6 02 20  |.NEXT1 DEX..$.. |
00000450: 42 4E 45 4C 4F 4F 50 00  37 24 D0 02 20 52 54 53  |BNELOOP.7$.. RTS|
00000460: 00 3F 24 DA 02 2E 45 4E  00 00 00                 |.?$...EN...     |

X...D.;*** LISTENAUSGABE ***.. N.;AUFRUF
: SYS 49232,(ZEILE),.8 X.;        (ARRAY
(INDEX)),(ANZAHL).] ..;FUNKTION: GIBT AB
 DER ANGEGEBE-.. ..;          NEN BILDSC
HIRMZEILE.. ..;          'ANZAHL' STRING
S AB.E  .;          'ARRAY(INDEX)' AUS..
 ..;BEISPIEL: SYS 49232,2,A$(3),20..!..;
          GIBT AB ZEILE 2 DIE.0!..;     
     STRINGS A$(2)-A$(21).D!H.;         
 AUS..J!R.;.X!...BA $C050.O!...EQ CHKKOM
 = $AEFD..!...EQ GETPOS = $B08B..!...EQ 
GETBYT = $B79E..!...EQ PLOT   = $FFF0.I!
...EQ VARPNT = $47..!...EQ STRPTR = $FB.
.!"..EQ BSOUT  = $FFD2..",..EQ CRSLIN = 
$D1.."6.;.."@. JSRCHKKOM.."J. JSRGETBYT.
;"T. LDY#$00.D"^. CLC.Q"H. JSRPLOT.W"R.;
.F"|. JSRCHKKOM.U".. JSRGETPOS.{"..;..".
. JSRCHKKOM..".. JSRGETBYT.."..;.."..LOO
P LDY#$02.G"B.COPY LDA(VARPNT),Y.X"L. ST
ASTRPTR,Y.."V. DEY..".. BPLCOPY.."..;..#
.. LDYSTRPTR..#.. BEQNEXT.+#..STROUT LDA
(STRPTR+1),Y.8#.. CMP#$80.F#.. BCSGROSS.
S#.. AND#$BF.E#&.GROSS AND#$7F.X#0. STA(
CRSLIN),Y..#:. DEY..#D. BPLSTROUT..#N.;.
.#X.NEXT LDA#17..#B. JSRBSOUT..#L.;.I#V.
 LDAVARPNT.R#.. CLC..#.. ADC#$03..#.. ST
AVARPNT..#.. BCCNEXT1..$.. INCVARPNT+1..
$..;.!$..NEXT1 DEX..$F. BNELOOP.7$P. RTS
.?$Z..EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL