PARAMETER LESEN

FILE INFORMATION

FILENAME(S): PARAMETER LESEN

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 3 disk(s)

FILE HASH

dcd81627f9835f40b56ecbd12815cd339ddfd05b1b61b4f40741445e9431801e

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT 7 86	PARAMETER LESEN	PRG	C64er	16	1	DOWNLOAD FILE
SONDERHEFT 7 86	PARAMETER LESEN	PRG	DuncanTwain	16	1	DOWNLOAD FILE
SONDERHEFT 7 86	PARAMETER LESEN	PRG	DuncanTwain	16	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F5 1F 64 00 3B 2A  2A 2A 20 50 41 52 41 4D  |....d.;*** PARAM|
00000010: 45 54 45 52 20 4C 45 53  45 4E 20 2A 2A 2A 00 FB  |ETER LESEN ***..|
00000020: 1F 6E 00 3B 00 01 20 78  00 3B 00 16 20 82 00 2E  |.n.;.. x.;.. ...|
00000030: 45 51 20 43 48 4B 4B 4F  4D 3D 24 41 45 46 44 00  |EQ CHKKOM=$AEFD.|
00000040: 2B 20 8C 00 2E 45 51 20  47 45 54 42 59 54 3D 24  |+ ...EQ GETBYT=$|
00000050: 42 37 39 45 00 40 20 96  00 2E 45 51 20 46 52 4D  |B79E.@ ...EQ FRM|
00000060: 4E 55 4D 3D 24 41 44 38  41 00 55 20 A0 00 2E 45  |NUM=$AD8A.U ...E|
00000070: 51 20 41 44 52 46 4F 52  3D 24 42 37 46 37 00 6A  |Q ADRFOR=$B7F7.j|
00000080: 20 AA 00 2E 45 51 20 41  44 52 42 59 54 3D 24 42  | ...EQ ADRBYT=$B|
00000090: 37 45 42 00 7F 20 B4 00  2E 45 51 20 46 41 43 53  |7EB.. ...EQ FACS|
000000A0: 54 52 3D 24 42 44 44 44  00 94 20 BE 00 2E 45 51  |TR=$BDDD.. ...EQ|
000000B0: 20 53 54 52 4F 55 54 3D  24 41 42 31 45 00 A9 20  | STROUT=$AB1E.. |
000000C0: C8 00 2E 45 51 20 49 4E  54 4F 55 54 3D 24 42 44  |...EQ INTOUT=$BD|
000000D0: 43 44 00 BE 20 D2 00 2E  45 51 20 42 53 4F 55 54  |CD.. ...EQ BSOUT|
000000E0: 20 3D 24 46 46 44 32 00  C4 20 DC 00 3B 00 E0 20  | =$FFD2.. ..;.. |
000000F0: E6 00 2E 42 41 20 24 43  30 30 30 3B 50 52 4F 47  |...BA $C000;PROG|
00000100: 52 41 4D 4D 53 54 41 52  54 00 E6 20 F0 00 3B 00  |RAMMSTART.. ..;.|
00000110: EC 20 FA 00 3B 00 01 21  04 01 3B 2A 45 49 4E 2D  |. ..;..!..;*EIN-|
00000120: 42 59 54 45 2D 57 45 52  54 2A 00 10 21 0E 01 20  |BYTE-WERT*..!.. |
00000130: 4A 53 52 43 48 4B 4B 4F  4D 00 2D 21 18 01 20 4A  |JSRCHKKOM.-!.. J|
00000140: 53 52 47 45 54 42 59 54  3B 45 49 4E 2D 42 59 54  |SRGETBYT;EIN-BYT|
00000150: 45 2D 57 45 52 54 00 44  21 22 01 20 4C 44 41 23  |E-WERT.D!". LDA#|
00000160: 30 3B 48 49 47 48 2D 42  59 54 45 3D 30 00 5C 21  |0;HIGH-BYTE=0.\!|
00000170: 2C 01 20 4A 53 52 49 4E  54 4F 55 54 3B 41 55 53  |,. JSRINTOUT;AUS|
00000180: 47 45 42 45 4E 00 68 21  36 01 20 4C 44 41 23 31  |GEBEN.h!6. LDA#1|
00000190: 33 00 76 21 40 01 20 4A  53 52 42 53 4F 55 54 00  |3.v!@. JSRBSOUT.|
000001A0: 7C 21 4A 01 3B 00 92 21  54 01 3B 2A 5A 57 45 49  ||!J.;..!T.;*ZWEI|
000001B0: 2D 42 59 54 45 2D 57 45  52 54 2A 00 B0 21 5E 01  |-BYTE-WERT*..!^.|
000001C0: 20 4A 53 52 43 48 4B 4B  4F 4D 3B 5A 57 45 49 2D  | JSRCHKKOM;ZWEI-|
000001D0: 42 59 54 45 2D 57 45 52  54 00 C8 21 68 01 20 4A  |BYTE-WERT..!h. J|
000001E0: 53 52 46 52 4D 4E 55 4D  3B 4E 41 43 48 20 46 41  |SRFRMNUM;NACH FA|
000001F0: 43 00 E9 21 72 01 20 4A  53 52 41 44 52 46 4F 52  |C..!r. JSRADRFOR|
00000200: 3B 49 4E 53 20 49 4E 54  45 47 45 52 46 4F 52 4D  |;INS INTEGERFORM|
00000210: 41 54 00 FD 21 7C 01 20  50 48 41 3B 59 3D 4C 4F  |AT..!|. PHA;Y=LO|
00000220: 57 2D 42 59 54 45 00 0A  22 86 01 20 54 59 41 3B  |W-BYTE..".. TYA;|
00000230: 49 4E 53 00 1E 22 90 01  20 54 41 58 3B 58 2D 52  |INS..".. TAX;X-R|
00000240: 45 47 49 53 54 45 52 00  33 22 9A 01 20 50 4C 41  |EGISTER.3".. PLA|
00000250: 3B 55 45 42 45 52 54 52  41 47 45 4E 00 4B 22 A4  |;UEBERTRAGEN.K".|
00000260: 01 20 4A 53 52 49 4E 54  4F 55 54 3B 41 55 53 47  |. JSRINTOUT;AUSG|
00000270: 45 42 45 4E 00 57 22 AE  01 20 4C 44 41 23 31 33  |EBEN.W".. LDA#13|
00000280: 00 65 22 B8 01 20 4A 53  52 42 53 4F 55 54 00 6B  |.e".. JSRBSOUT.k|
00000290: 22 C2 01 3B 00 8A 22 CC  01 3B 2A 5A 57 45 49 2D  |"..;.."..;*ZWEI-|
000002A0: 20 55 4E 44 20 45 49 4E  2D 42 59 54 45 2D 57 45  | UND EIN-BYTE-WE|
000002B0: 52 54 2A 00 A8 22 D6 01  20 4A 53 52 43 48 4B 4B  |RT*..".. JSRCHKK|
000002C0: 4F 4D 3B 5A 57 45 49 2D  42 59 54 45 2D 57 45 52  |OM;ZWEI-BYTE-WER|
000002D0: 54 00 C6 22 E0 01 20 4A  53 52 41 44 52 42 59 54  |T..".. JSRADRBYT|
000002E0: 3B 2B 45 49 4E 2D 42 59  54 45 2D 57 45 52 54 00  |;+EIN-BYTE-WERT.|
000002F0: DD 22 EA 01 20 4C 44 41  23 30 3B 48 49 47 48 2D  |.".. LDA#0;HIGH-|
00000300: 42 59 54 45 3D 30 00 FC  22 F4 01 20 4A 53 52 49  |BYTE=0..".. JSRI|
00000310: 4E 54 4F 55 54 3B 31 20  42 59 54 45 20 41 55 53  |NTOUT;1 BYTE AUS|
00000320: 47 45 42 45 4E 00 08 23  FE 01 20 4C 44 41 23 31  |GEBEN..#.. LDA#1|
00000330: 33 00 16 23 08 02 20 4A  53 52 42 53 4F 55 54 00  |3..#.. JSRBSOUT.|
00000340: 28 23 12 02 20 4C 44 58  24 31 34 3B 58 3D 4C 4F  |(#.. LDX$14;X=LO|
00000350: 57 00 3B 23 1C 02 20 4C  44 41 24 31 35 3B 41 3D  |W.;#.. LDA$15;A=|
00000360: 48 49 47 48 00 53 23 26  02 20 4A 53 52 49 4E 54  |HIGH.S#&. JSRINT|
00000370: 4F 55 54 3B 41 55 53 47  45 42 45 4E 00 5F 23 30  |OUT;AUSGEBEN._#0|
00000380: 02 20 4C 44 41 23 31 33  00 6D 23 3A 02 20 4A 53  |. LDA#13.m#:. JS|
00000390: 52 42 53 4F 55 54 00 73  23 44 02 3B 00 8A 23 4E  |RBSOUT.s#D.;..#N|
000003A0: 02 3B 2A 42 45 4C 49 45  42 49 47 45 52 20 57 45  |.;*BELIEBIGER WE|
000003B0: 52 54 2A 00 A9 23 58 02  20 4A 53 52 43 48 4B 4B  |RT*..#X. JSRCHKK|
000003C0: 4F 4D 3B 42 45 4C 49 45  42 49 47 45 4E 20 4E 55  |OM;BELIEBIGEN NU|
000003D0: 4D 2E 00 CA 23 62 02 20  4A 53 52 46 52 4D 4E 55  |M...#b. JSRFRMNU|
000003E0: 4D 3B 41 55 53 44 52 55  43 4B 20 4E 41 43 48 20  |M;AUSDRUCK NACH |
000003F0: 46 41 43 00 E7 23 6C 02  20 4A 53 52 46 41 43 53  |FAC..#l. JSRFACS|
00000400: 54 52 3B 46 41 43 20 3D  3E 20 53 54 52 49 4E 47  |TR;FAC => STRING|
00000410: 00 06 24 76 02 20 4A 53  52 53 54 52 4F 55 54 3B  |..$v. JSRSTROUT;|
00000420: 53 54 52 49 4E 47 20 41  55 53 47 45 42 45 4E 00  |STRING AUSGEBEN.|
00000430: 0F 24 80 02 20 52 54 53  00 15 24 8A 02 3B 00 1B  |.$.. RTS..$..;..|
00000440: 24 94 02 3B 00 00 00                              |$..;...         |

X...D.;*** PARAMETER LESEN ***...N.;.. X
.;.. ...EQ CHKKOM=$AEFD.+ ...EQ GETBYT=$
B79E.@ ...EQ FRMNUM=$AD8A.U  ..EQ ADRFOR
=$B7F7.J ...EQ ADRBYT=$B7EB. ...EQ FACS
TR=$BDDD.. ...EQ STROUT=$AB1E.. H..EQ IN
TOUT=$BDCD.. R..EQ BSOUT =$FFD2.D ..;.. 
...BA $C000;PROGRAMMSTART.. ..;.. ..;..!
..;*EIN-BYTE-WERT*..!.. JSRCHKKOM.-!.. J
SRGETBYT;EIN-BYTE-WERT.D!". LDA#0;HIGH-B
YTE=0.\!,. JSRINTOUT;AUSGEBEN.H!6. LDA#1
3.V!@. JSRBSOUT.|!J.;..!T.;*ZWEI-BYTE-WE
RT*..!^. JSRCHKKOM;ZWEI-BYTE-WERT.H!H. J
SRFRMNUM;NACH FAC..!R. JSRADRFOR;INS INT
EGERFORMAT..!|. PHA;Y=LOW-BYTE..".. TYA;
INS..".. TAX;X-REGISTER.3".. PLA;UEBERTR
AGEN.K".. JSRINTOUT;AUSGEBEN.W".. LDA#13
.E".. JSRBSOUT.K"B.;.."L.;*ZWEI- UND EIN
-BYTE-WERT*.."V. JSRCHKKOM;ZWEI-BYTE-WER
T.F".. JSRADRBYT;+EIN-BYTE-WERT..".. LDA
#0;HIGH-BYTE=0..".. JSRINTOUT;1 BYTE AUS
GEBEN..#.. LDA#13..#.. JSRBSOUT.(#.. LDX
$14;X=LOW.;#.. LDA$15;A=HIGH.S#&. JSRINT
OUT;AUSGEBEN._#0. LDA#13.M#:. JSRBSOUT.S
#D.;..#N.;*BELIEBIGER WERT*..#X. JSRCHKK
OM;BELIEBIGEN NUM..J#B. JSRFRMNUM;AUSDRU
CK NACH FAC..#L. JSRFACSTR;FAC => STRING
..$V. JSRSTROUT;STRING AUSGEBEN..$.. RTS
..$..;..$..;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL