LISTING 35
FILE INFORMATION
FILENAME(S): LISTING 35
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 01:13:13
APPEARS ON: 1 disk(s)
FILE HASH
8cce713c8b8f1f26a329f78b7edc7b27b0d16b738801f06470154c857d06ae99
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE B | LISTING 35 | PRG | C64er | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E2 1F 0A 00 3B 44 55 4D 50 00 FE 1F 14 00 |......;DUMP.....| 00000010: 3B 4C 49 53 54 45 4E 20 41 4C 4C 45 52 20 56 41 |;LISTEN ALLER VA| 00000020: 52 49 41 42 4C 45 4E 00 0D 20 1E 00 3B 55 4E 44 |RIABLEN.. ..;UND| 00000030: 20 57 45 52 54 45 00 2B 20 64 00 3B 2D 2D 2D 2D | WERTE.+ d.;----| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 2D 2D 2D 2D 00 39 20 6E 00 2E 42 41 20 24 43 30 |----.9 n..BA $C0| 00000060: 30 30 00 3F 20 78 00 3B 00 5A 20 82 00 3B 2D 2D |00.? x.;.Z ..;--| 00000070: 2D 2D 56 45 52 57 45 4E 44 45 54 45 20 4C 41 42 |--VERWENDETE LAB| 00000080: 45 4C 53 00 60 20 8C 00 3B 00 88 20 96 00 2E 45 |ELS.` ..;.. ...E| 00000090: 51 20 49 4E 44 45 58 3D 24 32 32 3B 5A 45 49 47 |Q INDEX=$22;ZEIG| 000000A0: 45 52 20 46 55 45 52 20 4F 55 54 53 54 52 49 4E |ER FUER OUTSTRIN| 000000B0: 47 00 B2 20 A0 00 2E 45 51 20 56 41 52 54 41 42 |G.. ...EQ VARTAB| 000000C0: 3D 24 32 44 3B 53 54 41 52 54 20 56 41 52 49 41 |=$2D;START VARIA| 000000D0: 42 4C 45 4E 54 41 42 45 4C 4C 45 00 DB 20 AA 00 |BLENTABELLE.. ..| 000000E0: 2E 45 51 20 41 52 59 54 41 42 3D 24 32 46 3B 45 |.EQ ARYTAB=$2F;E| 000000F0: 4E 44 45 20 56 41 52 49 41 42 4C 45 4E 54 41 42 |NDE VARIABLENTAB| 00000100: 45 4C 4C 45 00 F8 20 B4 00 2E 45 51 20 48 45 4C |ELLE.. ...EQ HEL| 00000110: 50 3D 24 46 42 3B 48 49 4C 46 53 5A 45 49 47 45 |P=$FB;HILFSZEIGE| 00000120: 52 00 FE 20 BE 00 3B 00 20 21 C8 00 2E 45 51 20 |R.. ..;. !...EQ | 00000130: 4E 55 4D 44 4F 4E 3D 24 41 41 42 43 3B 46 41 43 |NUMDON=$AABC;FAC| 00000140: 20 41 55 53 47 45 42 45 4E 00 46 21 D2 00 2E 45 | AUSGEBEN.F!...E| 00000150: 51 20 4F 55 54 53 54 52 20 3D 24 41 42 32 35 3B |Q OUTSTR =$AB25;| 00000160: 53 54 52 49 4E 47 20 41 55 53 47 45 42 45 4E 00 |STRING AUSGEBEN.| 00000170: 71 21 DC 00 2E 45 51 20 4D 4F 56 46 4D 3D 24 42 |q!...EQ MOVFM=$B| 00000180: 42 41 32 3B 4C 41 45 44 54 20 46 41 43 20 41 55 |BA2;LAEDT FAC AU| 00000190: 53 20 53 50 45 49 43 48 45 52 00 97 21 E6 00 2E |S SPEICHER..!...| 000001A0: 45 51 20 4C 49 4E 50 52 54 3D 24 42 44 43 44 3B |EQ LINPRT=$BDCD;| 000001B0: 49 4E 54 45 47 45 52 20 41 55 53 47 45 42 45 4E |INTEGER AUSGEBEN| 000001C0: 00 C0 21 F0 00 2E 45 51 20 43 48 52 4F 55 54 3D |..!...EQ CHROUT=| 000001D0: 24 46 46 44 32 3B 41 4B 4B 55 49 4E 48 41 4C 54 |$FFD2;AKKUINHALT| 000001E0: 20 41 55 53 47 45 42 45 4E 00 C6 21 FA 00 3B 00 | AUSGEBEN..!..;.| 000001F0: E4 21 04 01 3B 2D 2D 2D 2D 2D 44 41 53 20 50 52 |.!..;-----DAS PR| 00000200: 4F 47 52 41 4D 4D 2D 2D 2D 2D 2D 2D 2D 00 EA 21 |OGRAMM-------..!| 00000210: 0E 01 3B 00 14 22 18 01 49 4E 49 54 20 4C 44 41 |..;.."..INIT LDA| 00000220: 56 41 52 54 41 42 3B 56 41 52 49 41 42 4C 45 4E |VARTAB;VARIABLEN| 00000230: 54 41 42 45 4C 4C 45 20 53 54 41 52 54 00 21 22 |TABELLE START.!"| 00000240: 22 01 20 53 54 41 48 45 4C 50 00 32 22 2C 01 20 |". STAHELP.2",. | 00000250: 4C 44 41 56 41 52 54 41 42 2B 31 00 41 22 36 01 |LDAVARTAB+1.A"6.| 00000260: 20 53 54 41 48 45 4C 50 2B 31 00 5F 22 40 01 20 | STAHELP+1._"@. | 00000270: 4C 44 41 23 24 30 44 3B 20 43 41 52 52 49 41 47 |LDA#$0D; CARRIAG| 00000280: 45 20 52 45 54 55 52 4E 00 78 22 4A 01 20 4A 53 |E RETURN.x"J. JS| 00000290: 52 43 48 52 4F 55 54 3B 20 41 55 53 47 45 42 45 |RCHROUT; AUSGEBE| 000002A0: 4E 00 99 22 54 01 48 4F 4C 45 20 4C 44 59 23 24 |N.."T.HOLE LDY#$| 000002B0: 30 30 3B 4F 46 46 53 45 54 20 41 55 46 20 4E 55 |00;OFFSET AUF NU| 000002C0: 4C 4C 00 C5 22 5E 01 20 4C 44 41 28 48 45 4C 50 |LL.."^. LDA(HELP| 000002D0: 29 2C 59 3B 45 52 53 54 45 53 20 4E 41 4D 45 4E |),Y;ERSTES NAMEN| 000002E0: 53 5A 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 DC |SZEICHEN HOLEN..| 000002F0: 22 68 01 20 50 48 50 3B 53 54 41 54 55 53 20 4D |"h. PHP;STATUS M| 00000300: 45 52 4B 45 4E 00 FD 22 72 01 20 41 4E 44 23 24 |ERKEN.."r. AND#$| 00000310: 37 46 3B 20 4C 4F 45 53 43 48 45 4E 20 56 4F 4E |7F; LOESCHEN VON| 00000320: 20 42 49 54 20 37 00 1D 23 7C 01 20 4A 53 52 43 | BIT 7..#|. JSRC| 00000330: 48 52 4F 55 54 3B 5A 45 49 43 48 45 4E 20 41 55 |HROUT;ZEICHEN AU| 00000340: 53 47 45 42 45 4E 00 26 23 86 01 20 49 4E 59 00 |SGEBEN.&#.. INY.| 00000350: 56 23 90 01 20 4C 44 41 28 48 45 4C 50 29 2C 59 |V#.. LDA(HELP),Y| 00000360: 3B 5A 57 45 49 54 45 53 20 4E 41 4D 45 4E 53 5A |;ZWEITES NAMENSZ| 00000370: 45 49 43 48 45 4E 20 41 55 53 47 45 42 45 4E 00 |EICHEN AUSGEBEN.| 00000380: 74 23 9A 01 20 50 48 50 3B 57 49 45 44 45 52 20 |t#.. PHP;WIEDER | 00000390: 53 54 41 54 55 53 20 4D 45 52 4B 45 4E 00 94 23 |STATUS MERKEN..#| 000003A0: A4 01 20 41 4E 44 23 24 37 46 3B 55 4E 44 20 42 |.. AND#$7F;UND B| 000003B0: 49 54 20 37 20 4C 4F 45 53 43 48 45 4E 00 B6 23 |IT 7 LOESCHEN..#| 000003C0: AE 01 20 42 4E 45 41 55 53 47 3B 32 2E 20 5A 45 |.. BNEAUSG;2. ZE| 000003D0: 49 43 48 45 4E 20 45 58 49 53 54 49 45 52 54 00 |ICHEN EXISTIERT.| 000003E0: C9 23 B8 01 20 4C 44 41 23 24 32 30 3B 53 50 41 |.#.. LDA#$20;SPA| 000003F0: 43 45 00 E6 23 C2 01 41 55 53 47 20 4A 53 52 43 |CE..#..AUSG JSRC| 00000400: 48 52 4F 55 54 3B 20 41 55 53 47 45 42 45 4E 00 |HROUT; AUSGEBEN.| 00000410: 06 24 CC 01 20 50 4C 50 3B 32 2E 20 53 54 41 54 |.$.. PLP;2. STAT| 00000420: 55 53 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 |US ZURUECKHOLEN.| 00000430: 27 24 D6 01 20 42 4D 49 54 45 53 54 3B 49 4E 54 |'$.. BMITEST;INT| 00000440: 45 47 45 52 20 4F 44 45 52 20 53 54 52 49 4E 47 |EGER ODER STRING| 00000450: 00 4C 24 E0 01 3B 53 4F 4E 53 54 20 46 55 4E 4B |.L$..;SONST FUNK| 00000460: 54 49 4F 4E 20 4F 44 45 52 20 46 4C 49 45 53 53 |TION ODER FLIESS| 00000470: 4B 4F 4D 4D 41 00 66 24 EA 01 20 50 4C 50 3B 31 |KOMMA.f$.. PLP;1| 00000480: 20 53 54 41 54 55 53 20 5A 55 52 55 45 43 4B 00 | STATUS ZURUECK.| 00000490: 8A 24 F4 01 20 42 4D 49 46 55 4E 4B 54 49 4F 4E |.$.. BMIFUNKTION| 000004A0: 3B 46 55 4E 4B 54 49 4F 4E 20 4C 49 45 47 54 20 |;FUNKTION LIEGT | 000004B0: 56 4F 52 00 B6 24 FE 01 20 4A 4D 50 46 4C 4F 41 |VOR..$.. JMPFLOA| 000004C0: 54 3B 46 4C 49 45 53 53 4B 4F 4D 4D 41 56 41 52 |T;FLIESSKOMMAVAR| 000004D0: 49 41 42 4C 45 20 4C 49 45 47 54 20 56 4F 52 00 |IABLE LIEGT VOR.| 000004E0: D8 24 08 02 46 55 4E 4B 54 49 4F 4E 20 4C 44 41 |.$..FUNKTION LDA| 000004F0: 23 24 32 31 3B 41 53 43 49 49 20 46 55 45 52 20 |#$21;ASCII FUER | 00000500: 21 00 F0 24 12 02 20 4A 53 52 43 48 52 4F 55 54 |!..$.. JSRCHROUT| 00000510: 3B 41 55 53 47 45 42 45 4E 00 FD 24 1C 02 20 4A |;AUSGEBEN..$.. J| 00000520: 4D 50 52 45 53 54 00 1C 25 26 02 54 45 53 54 20 |MPREST..%&.TEST | 00000530: 50 4C 50 3B 31 2E 20 53 54 41 54 55 53 20 5A 55 |PLP;1. STATUS ZU| 00000540: 52 55 45 43 4B 00 4D 25 30 02 20 42 4D 49 49 4E |RUECK.M%0. BMIIN| 00000550: 54 45 47 45 52 3B 20 42 45 49 44 45 20 42 49 54 |TEGER; BEIDE BIT| 00000560: 20 37 20 47 45 53 45 54 5A 54 3D 20 49 4E 54 45 | 7 GESETZT= INTE| 00000570: 47 45 52 56 41 52 00 6B 25 3A 02 3B 53 54 52 49 |GERVAR.k%:.;STRI| 00000580: 4E 47 56 41 52 49 41 42 4C 45 20 4C 49 45 47 54 |NGVARIABLE LIEGT| 00000590: 20 56 4F 52 00 88 25 44 02 53 54 52 49 4E 47 20 | VOR..%D.STRING | 000005A0: 4C 44 41 23 24 32 34 3B 24 2D 5A 45 49 43 48 45 |LDA#$24;$-ZEICHE| 000005B0: 4E 00 A0 25 4E 02 20 4A 53 52 43 48 52 4F 55 54 |N..%N. JSRCHROUT| 000005C0: 3B 41 55 53 47 45 42 45 4E 00 B9 25 58 02 20 4C |;AUSGEBEN..%X. L| 000005D0: 44 41 23 24 32 30 3B 4C 45 45 52 5A 45 49 43 48 |DA#$20;LEERZEICH| 000005E0: 45 4E 00 C8 25 62 02 20 4A 53 52 43 48 52 4F 55 |EN..%b. JSRCHROU| 000005F0: 54 00 DF 25 6C 02 20 4C 44 41 23 24 33 44 3B 3D |T..%l. LDA#$3D;=| 00000600: 2D 5A 45 49 43 48 45 4E 00 EE 25 76 02 20 4A 53 |-ZEICHEN..%v. JS| 00000610: 52 43 48 52 4F 55 54 00 07 26 80 02 20 4C 44 41 |RCHROUT..&.. LDA| 00000620: 23 24 32 30 3B 4C 45 45 52 5A 45 49 43 48 45 4E |#$20;LEERZEICHEN| 00000630: 00 16 26 8A 02 20 4A 53 52 43 48 52 4F 55 54 00 |..&.. JSRCHROUT.| 00000640: 37 26 94 02 20 49 4E 59 3B 4F 46 46 53 45 54 20 |7&.. INY;OFFSET | 00000650: 41 55 53 20 53 54 52 49 4E 47 4C 41 45 4E 47 45 |AUS STRINGLAENGE| 00000660: 00 55 26 9E 02 20 4C 44 41 28 48 45 4C 50 29 2C |.U&.. LDA(HELP),| 00000670: 59 3B 4C 41 45 4E 47 45 20 4C 41 44 45 4E 00 69 |Y;LAENGE LADEN.i| 00000680: 26 A8 02 20 54 41 58 3B 55 4E 44 20 4D 45 52 4B |&.. TAX;UND MERK| 00000690: 45 4E 00 8B 26 B2 02 20 49 4E 59 3B 4F 46 46 53 |EN..&.. INY;OFFS| 000006A0: 45 54 20 41 55 46 20 53 54 52 49 4E 47 41 44 52 |ET AUF STRINGADR| 000006B0: 45 53 53 45 00 A8 26 BC 02 20 4C 44 41 28 48 45 |ESSE..&.. LDA(HE| 000006C0: 4C 50 29 2C 59 3B 4C 53 42 20 41 44 52 45 53 53 |LP),Y;LSB ADRESS| 000006D0: 45 00 B6 26 C6 02 20 53 54 41 49 4E 44 45 58 00 |E..&.. STAINDEX.| 000006E0: BF 26 D0 02 20 49 4E 59 00 DC 26 DA 02 20 4C 44 |.&.. INY..&.. LD| 000006F0: 41 28 48 45 4C 50 29 2C 59 3B 4D 53 42 20 41 44 |A(HELP),Y;MSB AD| 00000700: 52 45 53 53 45 00 EC 26 E4 02 20 53 54 41 49 4E |RESSE..&.. STAIN| 00000710: 44 45 58 2B 31 00 0B 27 EE 02 20 4A 53 52 4F 55 |DEX+1..'.. JSROU| 00000720: 54 53 54 52 3B 53 54 52 49 4E 47 20 41 55 53 47 |TSTR;STRING AUSG| 00000730: 45 42 45 4E 00 18 27 F8 02 20 4A 4D 50 52 45 53 |EBEN..'.. JMPRES| 00000740: 54 00 1E 27 02 03 3B 00 3C 27 0C 03 49 4E 54 45 |T..'..;.<'..INTE| 00000750: 47 45 52 20 4C 44 41 23 24 32 35 3B 25 2D 5A 45 |GER LDA#$25;%-ZE| 00000760: 49 43 48 45 4E 00 54 27 16 03 20 4A 53 52 43 48 |ICHEN.T'.. JSRCH| 00000770: 52 4F 55 54 3B 41 55 53 47 45 42 45 4E 00 61 27 |ROUT;AUSGEBEN.a'| 00000780: 20 03 20 4C 44 41 23 24 32 30 00 70 27 2A 03 20 | . LDA#$20.p'*. | 00000790: 4A 53 52 43 48 52 4F 55 54 00 7D 27 34 03 20 4C |JSRCHROUT.}'4. L| 000007A0: 44 41 23 24 33 44 00 8C 27 3E 03 20 4A 53 52 43 |DA#$3D..'>. JSRC| 000007B0: 48 52 4F 55 54 00 99 27 48 03 20 4C 44 41 23 24 |HROUT..'H. LDA#$| 000007C0: 32 30 00 A8 27 52 03 20 4A 53 52 43 48 52 4F 55 |20..'R. JSRCHROU| 000007D0: 54 00 BF 27 5C 03 20 49 4E 59 3B 4F 46 46 53 54 |T..'\. INY;OFFST| 000007E0: 20 41 55 46 20 4D 53 42 00 D0 27 66 03 20 4C 44 | AUF MSB..'f. LD| 000007F0: 41 28 48 45 4C 50 29 2C 59 00 EE 27 70 03 20 50 |A(HELP),Y..'p. P| 00000800: 48 41 3B 4C 53 42 20 4C 41 44 45 4E 20 55 4E 44 |HA;LSB LADEN UND| 00000810: 20 4D 45 52 4B 45 4E 00 F7 27 7A 03 20 49 4E 59 | MERKEN..'z. INY| 00000820: 00 12 28 84 03 20 4C 44 41 28 48 45 4C 50 29 2C |..(.. LDA(HELP),| 00000830: 59 3B 4C 53 42 20 4C 41 44 45 4E 00 27 28 8E 03 |Y;LSB LADEN.'(..| 00000840: 20 54 41 58 3B 20 55 4E 44 20 4D 45 52 4B 45 4E | TAX; UND MERKEN| 00000850: 00 3C 28 98 03 20 50 4C 41 3B 4D 53 42 20 49 4E |.<(.. PLA;MSB IN| 00000860: 20 41 4B 4B 55 00 60 28 A2 03 20 4A 53 52 4C 49 | AKKU.`(.. JSRLI| 00000870: 4E 50 52 54 3B 49 4E 54 45 47 45 52 5A 41 48 4C |NPRT;INTEGERZAHL| 00000880: 20 41 55 53 47 45 42 45 4E 00 6D 28 AC 03 20 4A | AUSGEBEN.m(.. J| 00000890: 4D 50 52 45 53 54 00 73 28 B6 03 3B 00 91 28 C0 |MPREST.s(..;..(.| 000008A0: 03 46 4C 4F 41 54 20 4C 44 41 23 24 32 30 3B 4C |.FLOAT LDA#$20;L| 000008B0: 45 45 52 5A 45 49 43 48 45 4E 00 A0 28 CA 03 20 |EERZEICHEN..(.. | 000008C0: 4A 53 52 43 48 52 4F 55 54 00 AD 28 D4 03 20 4C |JSRCHROUT..(.. L| 000008D0: 44 41 23 24 32 30 00 BC 28 DE 03 20 4A 53 52 43 |DA#$20..(.. JSRC| 000008E0: 48 52 4F 55 54 00 D3 28 E8 03 20 4C 44 41 23 24 |HROUT..(.. LDA#$| 000008F0: 33 44 3B 3D 2D 5A 45 49 43 48 45 4E 00 E2 28 F2 |3D;=-ZEICHEN..(.| 00000900: 03 20 4A 53 52 43 48 52 4F 55 54 00 EF 28 FC 03 |. JSRCHROUT..(..| 00000910: 20 4C 44 41 23 24 32 30 00 FE 28 06 04 20 4A 53 | LDA#$20..(.. JS| 00000920: 52 43 48 52 4F 55 54 00 1C 29 10 04 20 43 4C 43 |RCHROUT..).. CLC| 00000930: 3B 41 44 44 49 54 49 4F 4E 20 56 4F 52 42 45 52 |;ADDITION VORBER| 00000940: 45 49 54 45 4E 00 4A 29 1A 04 20 49 4E 59 3B 4F |EITEN.J).. INY;O| 00000950: 46 46 53 45 54 20 41 55 46 20 45 52 53 54 45 53 |FFSET AUF ERSTES| 00000960: 20 57 45 52 54 45 42 59 54 45 20 53 43 48 49 45 | WERTEBYTE SCHIE| 00000970: 42 45 4E 00 69 29 24 04 20 54 59 41 3B 20 55 4E |BEN.i)$. TYA; UN| 00000980: 44 20 49 4E 20 41 4B 4B 55 20 53 43 48 49 45 42 |D IN AKKU SCHIEB| 00000990: 45 4E 00 81 29 2E 04 20 41 44 43 48 45 4C 50 3B |EN..).. ADCHELP;| 000009A0: 45 52 47 49 42 54 20 4C 53 42 00 91 29 38 04 20 |ERGIBT LSB..)8. | 000009B0: 50 48 41 3B 4D 45 52 4B 45 4E 00 A4 29 42 04 20 |PHA;MERKEN..)B. | 000009C0: 4C 44 41 48 45 4C 50 2B 31 3B 4D 53 42 00 CA 29 |LDAHELP+1;MSB..)| 000009D0: 4C 04 20 41 44 43 23 24 30 30 3B 45 56 45 4E 54 |L. ADC#$00;EVENT| 000009E0: 55 45 4C 4C 20 43 41 52 52 59 20 41 44 44 49 45 |UELL CARRY ADDIE| 000009F0: 52 45 4E 00 DE 29 56 04 20 54 41 59 3B 4D 53 42 |REN..)V. TAY;MSB| 00000A00: 20 4D 45 52 4B 45 4E 00 F3 29 60 04 20 50 4C 41 | MERKEN..)`. PLA| 00000A10: 3B 4C 53 42 20 5A 55 52 55 45 43 4B 00 1D 2A 6A |;LSB ZURUECK..*j| 00000A20: 04 20 4A 53 52 4D 4F 56 46 4D 3B 46 41 43 20 4D |. JSRMOVFM;FAC M| 00000A30: 49 54 20 56 41 52 49 41 42 4C 45 4E 57 45 52 54 |IT VARIABLENWERT| 00000A40: 20 4C 41 44 45 4E 00 39 2A 74 04 20 4A 53 52 4E | LADEN.9*t. JSRN| 00000A50: 55 4D 44 4F 4E 3B 46 41 43 20 41 55 53 47 45 42 |UMDON;FAC AUSGEB| 00000A60: 45 4E 00 5A 2A 7E 04 52 45 53 54 20 4C 44 41 23 |EN.Z*~.REST LDA#| 00000A70: 24 30 44 3B 43 41 52 52 49 41 47 45 20 52 45 54 |$0D;CARRIAGE RET| 00000A80: 55 52 4E 00 72 2A 88 04 20 4A 53 52 43 48 52 4F |URN.r*.. JSRCHRO| 00000A90: 55 54 3B 41 55 53 47 45 42 45 4E 00 90 2A 92 04 |UT;AUSGEBEN..*..| 00000AA0: 20 43 4C 43 3B 41 44 44 49 54 49 4F 4E 20 56 4F | CLC;ADDITION VO| 00000AB0: 52 42 45 52 45 49 54 45 4E 00 A1 2A 9C 04 20 4C |RBEREITEN..*.. L| 00000AC0: 44 41 48 45 4C 50 3B 4C 53 42 00 C4 2A A6 04 20 |DAHELP;LSB..*.. | 00000AD0: 41 44 43 23 24 30 37 3B 41 55 46 20 4E 41 45 43 |ADC#$07;AUF NAEC| 00000AE0: 48 53 54 45 20 56 41 52 49 41 42 4C 45 00 D1 2A |HSTE VARIABLE..*| 00000AF0: B0 04 20 53 54 41 48 45 4C 50 00 E4 2A BA 04 20 |.. STAHELP..*.. | 00000B00: 4C 44 41 48 45 4C 50 2B 31 3B 4D 53 42 00 0A 2B |LDAHELP+1;MSB..+| 00000B10: C4 04 20 41 44 43 23 24 30 30 3B 45 56 45 4E 54 |.. ADC#$00;EVENT| 00000B20: 55 45 4C 4C 20 43 41 52 52 59 20 41 44 44 49 45 |UELL CARRY ADDIE| 00000B30: 52 45 4E 00 19 2B CE 04 20 53 54 41 48 45 4C 50 |REN..+.. STAHELP| 00000B40: 2B 31 00 1F 2B D8 04 3B 00 3F 2B E2 04 20 4C 44 |+1..+..;.?+.. LD| 00000B50: 41 48 45 4C 50 3B 20 56 45 52 47 4C 45 49 43 48 |AHELP; VERGLEICH| 00000B60: 20 4F 42 20 45 4E 44 45 00 64 2B EC 04 20 43 4D | OB ENDE.d+.. CM| 00000B70: 50 41 52 59 54 41 42 3B 20 44 45 52 20 56 41 52 |PARYTAB; DER VAR| 00000B80: 49 41 42 4C 45 4E 54 41 42 45 4C 4C 45 00 73 2B |IABLENTABELLE.s+| 00000B90: F6 04 20 4C 44 41 48 45 4C 50 2B 31 00 84 2B 00 |.. LDAHELP+1..+.| 00000BA0: 05 20 53 42 43 41 52 59 54 41 42 2B 31 00 91 2B |. SBCARYTAB+1..+| 00000BB0: 0A 05 20 42 43 53 45 4E 44 45 00 B0 2B 14 05 20 |.. BCSENDE..+.. | 00000BC0: 4A 4D 50 48 4F 4C 45 3B 4E 41 45 43 48 53 54 45 |JMPHOLE;NAECHSTE| 00000BD0: 20 56 41 52 49 41 42 4C 45 00 BD 2B 1E 05 45 4E | VARIABLE..+..EN| 00000BE0: 44 45 20 52 54 53 00 C3 2B 28 05 3B 00 00 00 5A |DE RTS..+(.;...Z|
X.....;DUMP.....;LISTEN ALLER VARIABLEN. . ..;UND WERTE.+ D.;-------------------- ----.9 N..BA $C000.? X.;.Z ..;----VERWEN DETE LABELS.` ..;.. ...EQ INDEX=$22;ZEIG ER FUER OUTSTRING.. ..EQ VARTAB=$2D;STA RT VARIABLENTABELLE.. ...EQ ARYTAB=$2F;E NDE VARIABLENTABELLE.. ...EQ HELP=$FB;HI LFSZEIGER.. ..;. !H..EQ NUMDON=$AABC;FAC AUSGEBEN.F!R..EQ OUTSTR =$AB25;STRING A USGEBEN.Q!...EQ MOVFM=$BBA2;LAEDT FAC AU S SPEICHER..!...EQ LINPRT=$BDCD;INTEGER AUSGEBEN..!...EQ CHROUT=$FFD2;AKKUINHALT AUSGEBEN.F!..;..!..;-----DAS PROGRAMM-- -----..!..;.."..INIT LDAVARTAB;VARIABLEN TABELLE START.!"". STAHELP.2",. LDAVARTA B+1.A"6. STAHELP+1._"@. LDA#$0D; CARRIAG E RETURN.X"J. JSRCHROUT; AUSGEBEN.."T.HO LE LDY#$00;OFFSET AUF NULL.E"^. LDA(HELP ),Y;ERSTES NAMENSZEICHEN HOLEN.."H. PHP; STATUS MERKEN.."R. AND#$7F; LOESCHEN VON BIT 7..#|. JSRCHROUT;ZEICHEN AUSGEBEN.& #.. INY.V#.. LDA(HELP),Y;ZWEITES NAMENSZ EICHEN AUSGEBEN.T#.. PHP;WIEDER STATUS M ERKEN..#.. AND#$7F;UND BIT 7 LOESCHEN..# .. BNEAUSG;2. ZEICHEN EXISTIERT.I#.. LDA #$20;SPACE..#B.AUSG JSRCHROUT; AUSGEBEN. .$L. PLP;2. STATUS ZURUECKHOLEN.'$V. BMI TEST;INTEGER ODER STRING.L$..;SONST FUNK TION ODER FLIESSKOMMA.F$.. PLP;1 STATUS ZURUECK..$.. BMIFUNKTION;FUNKTION LIEGT VOR..$.. JMPFLOAT;FLIESSKOMMAVARIABLE LI EGT VOR.X$..FUNKTION LDA#$21;ASCII FUER !..$.. JSRCHROUT;AUSGEBEN..$.. JMPREST.. %&.TEST PLP;1. STATUS ZURUECK.M%0. BMIIN TEGER; BEIDE BIT 7 GESETZT= INTEGERVAR.K %:.;STRINGVARIABLE LIEGT VOR..%D.STRING LDA#$24;$-ZEICHEN. %N. JSRCHROUT;AUSGEBE N..%X. LDA#$20;LEERZEICHEN.H%B. JSRCHROU T..%L. LDA#$3D;=-ZEICHEN..%V. JSRCHROUT. .&.. LDA#$20;LEERZEICHEN..&.. JSRCHROUT. 7&.. INY;OFFSET AUS STRINGLAENGE.U&.. LD A(HELP),Y;LAENGE LADEN.I&.. TAX;UND MERK EN..&.. INY;OFFSET AUF STRINGADRESSE..&. . LDA(HELP),Y;LSB ADRESSE..&F. STAINDEX. .&P. INY..&Z. LDA(HELP),Y;MSB ADRESSE..& .. STAINDEX+1..'.. JSROUTSTR;STRING AUSG EBEN..'.. JMPREST..'..;.<'..INTEGER LDA# $25;%-ZEICHEN.T'.. JSRCHROUT;AUSGEBEN.A' . LDA#$20.P'*. JSRCHROUT.}'4. LDA#$3D.. '>. JSRCHROUT..'H. LDA#$20..'R. JSRCHROU T..'\. INY;OFFST AUF MSB.P'F. LDA(HELP), Y..'P. PHA;LSB LADEN UND MERKEN..'Z. INY ..(.. LDA(HELP),Y;LSB LADEN.'(.. TAX; UN D MERKEN.<(.. PLA;MSB IN AKKU.`(.. JSRLI NPRT;INTEGERZAHL AUSGEBEN.M(.. JMPREST.S (..;..(..FLOAT LDA#$20;LEERZEICHEN. (J. JSRCHROUT..(T. LDA#$20..(.. JSRCHROUT.S( .. LDA#$3D;=-ZEICHEN..(.. JSRCHROUT..(.. LDA#$20..(.. JSRCHROUT..).. CLC;ADDITIO N VORBEREITEN.J).. INY;OFFSET AUF ERSTES WERTEBYTE SCHIEBEN.I)$. TYA; UND IN AKK U SCHIEBEN..).. ADCHELP;ERGIBT LSB..)8. PHA;MERKEN..)B. LDAHELP+1;MSB.J)L. ADC#$ 00;EVENTUELL CARRY ADDIEREN..)V. TAY;MSB MERKEN..)`. PLA;LSB ZURUECK..*J. JSRMOV FM;FAC MIT VARIABLENWERT LADEN.9*T. JSRN UMDON;FAC AUSGEBEN.Z*~.REST LDA#$0D;CARR IAGE RETURN.R*.. JSRCHROUT;AUSGEBEN..*.. CLC;ADDITION VORBEREITEN..*.. LDAHELP;L SB.D*.. ADC#$07;AUF NAECHSTE VARIABLE.Q* .. STAHELP..*.. LDAHELP+1;MSB..+D. ADC#$ 00;EVENTUELL CARRY ADDIEREN..+N. STAHELP +1..+X.;.?+.. LDAHELP; VERGLEICH OB ENDE .D+.. CMPARYTAB; DER VARIABLENTABELLE.S+ .. LDAHELP+1..+.. SBCARYTAB+1..+.. BCSEN DE..+.. JMPHOLE;NAECHSTE VARIABLE..+..EN DE RTS.C+(.;...Z
> CLICK IMAGE PREVIEW FOR FULL MODAL