WERTETABELLE
FILE INFORMATION
FILENAME(S): WERTETABELLE
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
5e75d292f43ed12e65fb0d5d7b8bcbf896f580df6989ba0e960cacebd2f0e3e1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | WERTETABELLE | PRG | Treasure Chest - Klaus Der Suhler | 23 | 0 | DOWNLOAD FILE |
| 90571 | WERTETABELLE | PRG | BrainSkull, Georg Fuchs 1988 | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 27 2D 0A 00 3B 20 57 45 52 54 45 54 41 42 |.-'-..; WERTETAB|
00000010: 45 4C 4C 45 00 2D 2D 0B 00 3B 00 3B 2D 0C 00 20 |ELLE.--..;.;-.. |
00000020: 2E 42 41 24 43 30 30 30 00 41 2D 0D 00 3B 00 57 |.BA$C000.A-..;.W|
00000030: 2D 14 00 20 2E 45 51 4B 4F 4D 4D 41 20 3D 20 24 |-.. .EQKOMMA = $|
00000040: 41 45 46 44 00 6E 2D 15 00 20 2E 45 51 56 41 52 |AEFD.n-.. .EQVAR|
00000050: 45 41 4C 20 3D 20 24 41 44 38 41 00 85 2D 16 00 |EAL = $AD8A..-..|
00000060: 20 2E 45 51 46 41 43 4D 45 4D 20 3D 20 24 42 42 | .EQFACMEM = $BB|
00000070: 44 34 00 9F 2D 17 00 20 2E 45 51 53 54 52 49 4E |D4..-.. .EQSTRIN|
00000080: 47 4F 55 54 20 3D 20 24 41 42 31 45 00 B5 2D 18 |GOUT = $AB1E..-.|
00000090: 00 20 2E 45 51 58 57 45 52 54 20 3D 20 24 43 34 |. .EQXWERT = $C4|
000000A0: 30 30 00 CF 2D 1A 00 20 2E 45 51 4F 42 45 52 45 |00..-.. .EQOBERE|
000000B0: 20 3D 20 58 57 45 52 54 20 2B 20 35 00 EB 2D 1B | = XWERT + 5..-.|
000000C0: 00 20 2E 45 51 53 43 48 52 49 54 54 20 3D 20 58 |. .EQSCHRITT = X|
000000D0: 57 45 52 54 20 2B 31 30 00 03 2E 1C 00 20 2E 45 |WERT +10..... .E|
000000E0: 51 47 45 54 42 59 54 45 20 3D 20 24 42 37 39 45 |QGETBYTE = $B79E|
000000F0: 00 1B 2E 1E 00 20 2E 45 51 50 4F 4C 59 4E 4F 4D |..... .EQPOLYNOM|
00000100: 20 3D 20 24 45 30 35 39 00 30 2E 1F 00 20 2E 45 | = $E059.0... .E|
00000110: 51 4D 55 4C 54 20 3D 20 24 42 41 32 38 00 47 2E |QMULT = $BA28.G.|
00000120: 20 00 20 2E 45 51 50 4C 55 53 30 35 20 3D 20 24 | . .EQPLUS05 = $|
00000130: 42 38 34 39 00 5B 2E 21 00 20 2E 45 51 49 4E 54 |B849.[.!. .EQINT|
00000140: 20 3D 20 24 42 43 43 43 00 71 2E 22 00 20 2E 45 | = $BCCC.q.". .E|
00000150: 51 44 49 56 49 44 20 3D 20 24 42 41 46 45 00 87 |QDIVID = $BAFE..|
00000160: 2E 23 00 20 2E 45 51 42 53 4F 55 54 20 3D 20 24 |.#. .EQBSOUT = $|
00000170: 46 46 44 32 00 9E 2E 24 00 20 2E 45 51 4D 45 4D |FFD2...$. .EQMEM|
00000180: 46 41 43 20 3D 20 24 42 42 41 32 00 B5 2E 26 00 |FAC = $BBA2...&.|
00000190: 20 2E 45 51 43 55 52 53 4F 52 20 3D 20 24 45 35 | .EQCURSOR = $E5|
000001A0: 30 43 00 CC 2E 27 00 20 2E 45 51 46 41 43 53 54 |0C...'. .EQFACST|
000001B0: 52 20 3D 20 24 42 44 44 44 00 E1 2E 28 00 20 2E |R = $BDDD...(. .|
000001C0: 45 51 50 4C 55 53 20 3D 20 24 42 38 36 37 00 F8 |EQPLUS = $B867..|
000001D0: 2E 29 00 20 2E 45 51 43 4D 50 46 41 43 20 3D 20 |.). .EQCMPFAC = |
000001E0: 24 42 43 35 42 00 0C 2F 2A 00 20 2E 45 51 5A 45 |$BC5B../*. .EQZE|
000001F0: 49 4C 45 20 3D 20 24 44 36 00 23 2F 2B 00 20 2E |ILE = $D6.#/+. .|
00000200: 45 51 53 45 54 50 41 52 20 3D 20 24 46 46 42 41 |EQSETPAR = $FFBA|
00000210: 00 3B 2F 2C 00 20 2E 45 51 53 45 54 4E 41 4D 45 |.;/,. .EQSETNAME|
00000220: 20 3D 20 24 46 46 42 44 00 50 2F 2D 00 20 2E 45 | = $FFBD.P/-. .E|
00000230: 51 4F 50 45 4E 20 3D 20 24 46 46 43 30 00 66 2F |QOPEN = $FFC0.f/|
00000240: 2E 00 20 2E 45 51 43 4C 52 43 48 20 3D 20 24 46 |.. .EQCLRCH = $F|
00000250: 46 43 43 00 7C 2F 2F 00 20 2E 45 51 43 4C 4F 53 |FCC.|//. .EQCLOS|
00000260: 45 20 3D 20 24 46 46 43 33 00 93 2F 30 00 20 2E |E = $FFC3../0. .|
00000270: 45 51 43 48 4B 4F 55 54 20 3D 20 24 46 46 43 39 |EQCHKOUT = $FFC9|
00000280: 00 A8 2F 31 00 20 2E 45 51 4C 41 45 4E 47 45 20 |../1. .EQLAENGE |
00000290: 3D 20 24 46 41 00 AE 2F 59 00 3B 00 C8 2F 5A 00 |= $FA../Y.;../Z.|
000002A0: 3B 20 4B 4F 45 46 46 49 5A 49 45 4E 54 45 4E 20 |; KOEFFIZIENTEN |
000002B0: 48 4F 4C 45 4E 00 E2 2F 5B 00 3B 20 3D 3D 3D 3D |HOLEN../[.; ====|
000002C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000002D0: E8 2F 5C 00 3B 00 0F 30 64 00 53 54 41 52 54 20 |./\.;..0d.START |
000002E0: 20 4A 53 52 20 4B 4F 4D 4D 41 20 20 3B 50 52 55 | JSR KOMMA ;PRU|
000002F0: 45 46 20 41 55 46 20 4B 4F 4D 4D 41 00 36 30 65 |EF AUF KOMMA.60e|
00000300: 00 20 4A 53 52 56 41 52 45 41 4C 20 20 20 3B 4B |. JSRVAREAL ;K|
00000310: 4F 45 46 46 49 5A 49 45 4E 54 20 41 36 20 48 4F |OEFFIZIENT A6 HO|
00000320: 4C 45 4E 00 56 30 66 00 20 4C 44 58 23 3C 28 50 |LEN.V0f. LDX#<(P|
00000330: 4F 4C 59 2B 31 29 20 3B 41 42 53 50 45 49 43 48 |OLY+1) ;ABSPEICH|
00000340: 45 52 4E 00 69 30 67 00 20 4C 44 59 23 3E 28 50 |ERN.i0g. LDY#>(P|
00000350: 4F 4C 59 2B 31 29 00 78 30 68 00 20 4A 53 52 46 |OLY+1).x0h. JSRF|
00000360: 41 43 4D 45 4D 00 9A 30 68 00 20 4A 53 52 4B 4F |ACMEM..0h. JSRKO|
00000370: 4D 4D 41 20 20 20 20 3B 50 52 55 45 46 20 41 55 |MMA ;PRUEF AU|
00000380: 46 20 4B 4F 4D 4D 41 00 C1 30 69 00 20 4A 53 52 |F KOMMA..0i. JSR|
00000390: 56 41 52 45 41 4C 20 20 20 3B 4B 4F 45 46 46 49 |VAREAL ;KOEFFI|
000003A0: 5A 49 45 4E 54 20 41 35 20 48 4F 4C 45 4E 00 E1 |ZIENT A5 HOLEN..|
000003B0: 30 6A 00 20 4C 44 58 23 3C 28 50 4F 4C 59 2B 36 |0j. LDX#<(POLY+6|
000003C0: 29 20 3B 41 42 53 50 45 49 43 48 45 52 4E 00 F4 |) ;ABSPEICHERN..|
000003D0: 30 6B 00 20 4C 44 59 23 3E 28 50 4F 4C 59 2B 36 |0k. LDY#>(POLY+6|
000003E0: 29 00 03 31 6C 00 20 4A 53 52 46 41 43 4D 45 4D |)..1l. JSRFACMEM|
000003F0: 00 25 31 6C 00 20 4A 53 52 4B 4F 4D 4D 41 20 20 |.%1l. JSRKOMMA |
00000400: 20 20 3B 50 52 55 45 46 20 41 55 46 20 4B 4F 4D | ;PRUEF AUF KOM|
00000410: 4D 41 00 4C 31 6D 00 20 4A 53 52 56 41 52 45 41 |MA.L1m. JSRVAREA|
00000420: 4C 20 20 20 3B 4B 4F 45 46 46 49 5A 49 45 4E 54 |L ;KOEFFIZIENT|
00000430: 20 41 34 20 48 4F 4C 45 4E 00 6C 31 6E 00 20 4C | A4 HOLEN.l1n. L|
00000440: 44 58 23 3C 28 50 4F 4C 59 2B 31 31 29 3B 41 42 |DX#<(POLY+11);AB|
00000450: 53 50 45 49 43 48 45 52 4E 00 80 31 6F 00 20 4C |SPEICHERN..1o. L|
00000460: 44 59 23 3E 28 50 4F 4C 59 2B 31 31 29 00 8F 31 |DY#>(POLY+11)..1|
00000470: 70 00 20 4A 53 52 46 41 43 4D 45 4D 00 B1 31 70 |p. JSRFACMEM..1p|
00000480: 00 20 4A 53 52 4B 4F 4D 4D 41 20 20 20 20 3B 50 |. JSRKOMMA ;P|
00000490: 52 55 45 46 20 41 55 46 20 4B 4F 4D 4D 41 00 D8 |RUEF AUF KOMMA..|
000004A0: 31 71 00 20 4A 53 52 56 41 52 45 41 4C 20 20 20 |1q. JSRVAREAL |
000004B0: 3B 4B 4F 45 46 46 49 5A 49 45 4E 54 20 41 33 20 |;KOEFFIZIENT A3 |
000004C0: 48 4F 4C 45 4E 00 F8 31 72 00 20 4C 44 58 23 3C |HOLEN..1r. LDX#<|
000004D0: 28 50 4F 4C 59 2B 31 36 29 3B 41 42 53 50 45 49 |(POLY+16);ABSPEI|
000004E0: 43 48 45 52 4E 00 0C 32 73 00 20 4C 44 59 23 3E |CHERN..2s. LDY#>|
000004F0: 28 50 4F 4C 59 2B 31 36 29 00 1B 32 74 00 20 4A |(POLY+16)..2t. J|
00000500: 53 52 46 41 43 4D 45 4D 00 3D 32 74 00 20 4A 53 |SRFACMEM.=2t. JS|
00000510: 52 4B 4F 4D 4D 41 20 20 20 20 3B 50 52 55 45 46 |RKOMMA ;PRUEF|
00000520: 20 41 55 46 20 4B 4F 4D 4D 41 00 64 32 75 00 20 | AUF KOMMA.d2u. |
00000530: 4A 53 52 56 41 52 45 41 4C 20 20 20 3B 4B 4F 45 |JSRVAREAL ;KOE|
00000540: 46 46 49 5A 49 45 4E 54 20 41 32 20 48 4F 4C 45 |FFIZIENT A2 HOLE|
00000550: 4E 00 84 32 76 00 20 4C 44 58 23 3C 28 50 4F 4C |N..2v. LDX#<(POL|
00000560: 59 2B 32 31 29 3B 41 42 53 50 45 49 43 48 45 52 |Y+21);ABSPEICHER|
00000570: 4E 00 98 32 77 00 20 4C 44 59 23 3E 28 50 4F 4C |N..2w. LDY#>(POL|
00000580: 59 2B 32 31 29 00 A7 32 78 00 20 4A 53 52 46 41 |Y+21)..2x. JSRFA|
00000590: 43 4D 45 4D 00 C9 32 78 00 20 4A 53 52 4B 4F 4D |CMEM..2x. JSRKOM|
000005A0: 4D 41 20 20 20 20 3B 50 52 55 45 46 20 41 55 46 |MA ;PRUEF AUF|
000005B0: 20 4B 4F 4D 4D 41 00 F0 32 79 00 20 4A 53 52 56 | KOMMA..2y. JSRV|
000005C0: 41 52 45 41 4C 20 20 20 3B 4B 4F 45 46 46 49 5A |AREAL ;KOEFFIZ|
000005D0: 49 45 4E 54 20 41 31 20 48 4F 4C 45 4E 00 10 33 |IENT A1 HOLEN..3|
000005E0: 7A 00 20 4C 44 58 23 3C 28 50 4F 4C 59 2B 32 36 |z. LDX#<(POLY+26|
000005F0: 29 3B 41 42 53 50 45 49 43 48 45 52 4E 00 24 33 |);ABSPEICHERN.$3|
00000600: 7B 00 20 4C 44 59 23 3E 28 50 4F 4C 59 2B 32 36 |{. LDY#>(POLY+26|
00000610: 29 00 33 33 7C 00 20 4A 53 52 46 41 43 4D 45 4D |).33|. JSRFACMEM|
00000620: 00 55 33 7C 00 20 4A 53 52 4B 4F 4D 4D 41 20 20 |.U3|. JSRKOMMA |
00000630: 20 20 3B 50 52 55 45 46 20 41 55 46 20 4B 4F 4D | ;PRUEF AUF KOM|
00000640: 4D 41 00 7C 33 7D 00 20 4A 53 52 56 41 52 45 41 |MA.|3}. JSRVAREA|
00000650: 4C 20 20 20 3B 4B 4F 45 46 46 49 5A 49 45 4E 54 |L ;KOEFFIZIENT|
00000660: 20 41 30 20 48 4F 4C 45 4E 00 9C 33 7E 00 20 4C | A0 HOLEN..3~. L|
00000670: 44 58 23 3C 28 50 4F 4C 59 2B 33 31 29 3B 41 42 |DX#<(POLY+31);AB|
00000680: 53 50 45 49 43 48 45 52 4E 00 B0 33 7F 00 20 4C |SPEICHERN..3.. L|
00000690: 44 59 23 3E 28 50 4F 4C 59 2B 33 31 29 00 BF 33 |DY#>(POLY+31)..3|
000006A0: 80 00 20 4A 53 52 46 41 43 4D 45 4D 00 C5 33 80 |.. JSRFACMEM..3.|
000006B0: 00 3B 00 E3 33 81 00 3B 53 54 41 52 54 2D 20 55 |.;..3..;START- U|
000006C0: 4E 44 20 45 4E 44 57 45 52 54 20 48 4F 4C 45 4E |ND ENDWERT HOLEN|
000006D0: 00 01 34 82 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..4..;==========|
000006E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 07 |==============..|
000006F0: 34 83 00 3B 00 29 34 84 00 20 4A 53 52 4B 4F 4D |4..;.)4.. JSRKOM|
00000700: 4D 41 20 20 20 20 3B 50 52 55 45 46 20 41 55 46 |MA ;PRUEF AUF|
00000710: 20 4B 4F 4D 4D 41 00 4F 34 85 00 20 4A 53 52 56 | KOMMA.O4.. JSRV|
00000720: 41 52 45 41 4C 20 20 20 3B 55 4E 54 45 52 45 20 |AREAL ;UNTERE |
00000730: 47 52 45 4E 5A 45 20 48 4F 4C 45 4E 00 6F 34 86 |GRENZE HOLEN.o4.|
00000740: 00 20 4C 44 58 23 3C 28 58 57 45 52 54 29 20 20 |. LDX#<(XWERT) |
00000750: 3B 41 42 53 50 45 49 43 48 45 52 4E 00 92 34 87 |;ABSPEICHERN..4.|
00000760: 00 20 4C 44 59 23 3E 28 58 57 45 52 54 29 20 20 |. LDY#>(XWERT) |
00000770: 3B 28 3D 58 2D 53 54 41 52 54 57 45 52 54 29 00 |;(=X-STARTWERT).|
00000780: A1 34 88 00 20 4A 53 52 46 41 43 4D 45 4D 00 C3 |.4.. JSRFACMEM..|
00000790: 34 89 00 20 4A 53 52 4B 4F 4D 4D 41 20 20 20 20 |4.. JSRKOMMA |
000007A0: 3B 50 52 55 45 46 20 41 55 46 20 4B 4F 4D 4D 41 |;PRUEF AUF KOMMA|
000007B0: 00 E8 34 8A 00 20 4A 53 52 56 41 52 45 41 4C 20 |..4.. JSRVAREAL |
000007C0: 20 20 3B 4F 42 45 52 45 20 47 52 45 4E 5A 45 20 | ;OBERE GRENZE |
000007D0: 48 4F 4C 45 4E 00 08 35 8B 00 20 4C 44 58 23 3C |HOLEN..5.. LDX#<|
000007E0: 28 4F 42 45 52 45 29 20 20 3B 41 42 53 50 45 49 |(OBERE) ;ABSPEI|
000007F0: 43 48 45 52 4E 00 1A 35 8C 00 20 4C 44 59 23 3E |CHERN..5.. LDY#>|
00000800: 28 4F 42 45 52 45 29 00 29 35 8D 00 20 4A 53 52 |(OBERE).)5.. JSR|
00000810: 46 41 43 4D 45 4D 00 2F 35 8E 00 3B 00 47 35 8F |FACMEM./5..;.G5.|
00000820: 00 3B 53 43 48 52 49 54 54 57 45 49 54 45 20 48 |.;SCHRITTWEITE H|
00000830: 4F 4C 45 4E 00 5F 35 90 00 3B 3D 3D 3D 3D 3D 3D |OLEN._5..;======|
00000840: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 65 35 91 |============.e5.|
00000850: 00 3B 00 87 35 92 00 20 4A 53 52 4B 4F 4D 4D 41 |.;..5.. JSRKOMMA|
00000860: 20 20 20 20 3B 50 52 55 45 46 20 41 55 46 20 4B | ;PRUEF AUF K|
00000870: 4F 4D 4D 41 00 AC 35 93 00 20 4A 53 52 56 41 52 |OMMA..5.. JSRVAR|
00000880: 45 41 4C 20 20 20 3B 53 43 48 52 49 54 54 57 45 |EAL ;SCHRITTWE|
00000890: 49 54 45 20 48 4F 4C 45 4E 00 CC 35 94 00 20 4C |ITE HOLEN..5.. L|
000008A0: 44 58 23 3C 28 53 43 48 52 49 54 54 29 3B 41 42 |DX#<(SCHRITT);AB|
000008B0: 53 50 45 49 43 48 45 52 4E 00 E0 35 95 00 20 4C |SPEICHERN..5.. L|
000008C0: 44 59 23 3E 28 53 43 48 52 49 54 54 29 00 EF 35 |DY#>(SCHRITT)..5|
000008D0: 96 00 20 4A 53 52 46 41 43 4D 45 4D 00 F5 35 97 |.. JSRFACMEM..5.|
000008E0: 00 3B 00 10 36 98 00 3B 53 45 4B 55 4E 44 41 45 |.;..6..;SEKUNDAE|
000008F0: 52 47 45 52 41 45 54 20 48 4F 4C 45 4E 00 2B 36 |RGERAET HOLEN.+6|
00000900: 99 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..;=============|
00000910: 3D 3D 3D 3D 3D 3D 3D 3D 00 31 36 9A 00 3B 00 53 |========.16..;.S|
00000920: 36 9B 00 20 4A 53 52 4B 4F 4D 4D 41 20 20 20 20 |6.. JSRKOMMA |
00000930: 3B 50 52 55 45 46 20 41 55 46 20 4B 4F 4D 4D 41 |;PRUEF AUF KOMMA|
00000940: 00 79 36 9C 00 20 4A 53 52 47 45 54 42 59 54 45 |.y6.. JSRGETBYTE|
00000950: 20 20 3B 47 45 52 41 45 54 45 4E 55 4D 4D 45 52 | ;GERAETENUMMER|
00000960: 20 48 4F 4C 45 4E 00 96 36 9E 00 20 43 50 58 23 | HOLEN..6.. CPX#|
00000970: 30 33 20 20 20 20 20 20 3B 42 49 4C 44 53 43 48 |03 ;BILDSCH|
00000980: 49 52 4D 00 B8 36 9F 00 20 42 45 51 57 45 49 54 |IRM..6.. BEQWEIT|
00000990: 45 52 20 20 20 3B 4A 41 2C 20 4B 45 49 4E 20 22 |ER ;JA, KEIN "|
000009A0: 4F 50 45 4E 22 00 D8 36 A0 00 20 4A 53 52 4F 46 |OPEN"..6.. JSROF|
000009B0: 46 45 4E 20 20 20 20 3B 4B 41 4E 41 4C 20 4F 45 |FEN ;KANAL OE|
000009C0: 46 46 4E 45 4E 00 DE 36 A2 00 3B 00 F6 36 A3 00 |FFNEN..6..;..6..|
000009D0: 3B 54 49 54 45 4C 4B 4F 50 46 20 41 55 53 47 45 |;TITELKOPF AUSGE|
000009E0: 42 45 4E 00 0E 37 A4 00 3B 3D 3D 3D 3D 3D 3D 3D |BEN..7..;=======|
000009F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 14 37 A5 00 |===========..7..|
00000A00: 3B 00 2E 37 A6 00 57 45 49 54 45 52 20 4C 44 41 |;..7..WEITER LDA|
00000A10: 23 3C 28 53 54 52 49 4E 47 31 29 00 55 37 A7 00 |#<(STRING1).U7..|
00000A20: 20 4C 44 59 23 3E 28 53 54 52 49 4E 47 31 29 20 | LDY#>(STRING1) |
00000A30: 3B 31 2E 20 5A 45 49 4C 45 20 41 55 53 47 45 42 |;1. ZEILE AUSGEB|
00000A40: 45 4E 00 67 37 A8 00 20 4A 53 52 53 54 52 49 4E |EN.g7.. JSRSTRIN|
00000A50: 47 4F 55 54 00 8E 37 A9 00 20 4C 44 41 23 3C 28 |GOUT..7.. LDA#<(|
00000A60: 53 54 52 49 4E 47 32 29 20 3B 32 2E 20 5A 45 49 |STRING2) ;2. ZEI|
00000A70: 4C 45 20 41 55 53 47 45 42 45 4E 00 A2 37 AA 00 |LE AUSGEBEN..7..|
00000A80: 20 4C 44 59 23 3E 28 53 54 52 49 4E 47 32 29 00 | LDY#>(STRING2).|
00000A90: B4 37 AB 00 20 4A 53 52 53 54 52 49 4E 47 4F 55 |.7.. JSRSTRINGOU|
00000AA0: 54 00 BA 37 AC 00 3B 00 DE 37 AD 00 3B 53 43 48 |T..7..;..7..;SCH|
00000AB0: 4C 45 49 46 45 20 5A 55 52 20 50 4F 4C 59 4E 4F |LEIFE ZUR POLYNO|
00000AC0: 4D 42 45 52 45 43 48 4E 55 4E 47 00 02 38 AE 00 |MBERECHNUNG..8..|
00000AD0: 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;===============|
00000AE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00000AF0: 08 38 AF 00 3B 00 2B 38 B0 00 4C 4F 4F 50 20 20 |.8..;.+8..LOOP |
00000B00: 4C 44 41 20 23 31 33 20 3B 52 45 54 55 52 4E 20 |LDA #13 ;RETURN |
00000B10: 41 55 53 47 45 42 45 4E 00 39 38 B1 00 20 4A 53 |AUSGEBEN.98.. JS|
00000B20: 52 42 53 4F 55 54 00 58 38 B2 00 20 4C 44 41 23 |RBSOUT.X8.. LDA#|
00000B30: 33 32 20 20 20 20 20 20 20 3B 4C 45 45 52 5A 45 |32 ;LEERZE|
00000B40: 49 43 48 45 4E 00 74 38 B3 00 20 4A 53 52 42 53 |ICHEN.t8.. JSRBS|
00000B50: 4F 55 54 20 20 20 20 20 3B 41 55 53 47 45 42 45 |OUT ;AUSGEBE|
00000B60: 4E 00 88 38 B4 00 20 4C 44 41 23 3C 28 53 54 52 |N..8.. LDA#<(STR|
00000B70: 49 4E 47 33 29 00 AA 38 B5 00 20 4C 44 59 23 3E |ING3)..8.. LDY#>|
00000B80: 28 53 54 52 49 4E 47 33 29 20 3B 41 55 53 47 41 |(STRING3) ;AUSGA|
00000B90: 42 45 5A 45 49 4C 45 00 C5 38 B6 00 20 4A 53 52 |BEZEILE..8.. JSR|
00000BA0: 53 54 52 49 4E 47 4F 55 54 20 3B 44 52 55 43 4B |STRINGOUT ;DRUCK|
00000BB0: 45 4E 00 D7 38 BA 00 20 4C 44 41 23 3C 28 58 57 |EN..8.. LDA#<(XW|
00000BC0: 45 52 54 29 00 FE 38 BB 00 20 4C 44 59 23 3E 28 |ERT)..8.. LDY#>(|
00000BD0: 58 57 45 52 54 29 20 20 20 3B 46 41 43 20 4D 49 |XWERT) ;FAC MI|
00000BE0: 54 20 41 4B 54 55 45 4C 4C 45 4D 00 1E 39 BC 00 |T AKTUELLEM..9..|
00000BF0: 20 4A 53 52 4D 45 4D 46 41 43 20 20 20 20 3B 58 | JSRMEMFAC ;X|
00000C00: 2D 57 45 52 54 20 4C 41 44 45 4E 00 38 39 BD 00 |-WERT LADEN.89..|
00000C10: 20 4A 53 52 52 4F 55 4E 44 20 20 20 20 20 3B 52 | JSRROUND ;R|
00000C20: 55 4E 44 45 4E 00 5F 39 BE 00 20 4A 53 52 46 41 |UNDEN._9.. JSRFA|
00000C30: 43 53 54 52 20 20 20 20 3B 49 4E 20 53 54 52 49 |CSTR ;IN STRI|
00000C40: 4E 47 20 55 4D 57 41 4E 44 45 4C 4E 00 7F 39 C0 |NG UMWANDELN..9.|
00000C50: 00 20 4A 53 52 53 54 52 4F 55 54 20 20 20 20 3B |. JSRSTROUT ;|
00000C60: 55 4E 44 20 41 55 53 47 45 42 45 4E 00 9E 39 C4 |UND AUSGEBEN..9.|
00000C70: 00 20 4C 44 41 23 3C 28 58 57 45 52 54 29 20 20 |. LDA#<(XWERT) |
00000C80: 20 3B 58 2D 57 45 52 54 20 49 4E 00 BD 39 C5 00 | ;X-WERT IN..9..|
00000C90: 20 4C 44 59 23 3E 28 58 57 45 52 54 29 20 20 20 | LDY#>(XWERT) |
00000CA0: 3B 46 41 43 20 4C 41 44 45 4E 00 CC 39 C6 00 20 |;FAC LADEN..9.. |
00000CB0: 4A 53 52 4D 45 4D 46 41 43 00 DD 39 C7 00 20 4C |JSRMEMFAC..9.. L|
00000CC0: 44 41 23 3C 28 50 4F 4C 59 29 00 EE 39 C8 00 20 |DA#<(POLY)..9.. |
00000CD0: 4C 44 59 23 3E 28 50 4F 4C 59 29 00 13 3A C9 00 |LDY#>(POLY)..:..|
00000CE0: 20 4A 53 52 50 4F 4C 59 4E 4F 4D 20 20 20 3B 50 | JSRPOLYNOM ;P|
00000CF0: 4F 4C 59 4E 4F 4D 20 42 45 52 45 43 48 4E 45 4E |OLYNOM BERECHNEN|
00000D00: 00 2D 3A CA 00 20 4A 53 52 52 4F 55 4E 44 20 20 |.-:.. JSRROUND |
00000D10: 20 20 20 3B 52 55 4E 44 45 4E 00 33 3A D7 00 3B | ;RUNDEN.3:..;|
00000D20: 00 4B 3A D8 00 3B 41 55 53 47 41 42 45 20 56 4F |.K:..;AUSGABE VO|
00000D30: 4E 20 59 2D 57 45 52 54 00 63 3A D9 00 3B 3D 3D |N Y-WERT.c:..;==|
00000D40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000D50: 00 69 3A DA 00 3B 00 8E 3A DB 00 20 4A 53 52 46 |.i:..;..:.. JSRF|
00000D60: 41 43 53 54 52 20 20 20 20 3B 49 4E 20 53 54 52 |ACSTR ;IN STR|
00000D70: 49 4E 47 20 57 41 4E 44 45 4C 4E 00 AE 3A DC 00 |ING WANDELN..:..|
00000D80: 20 4A 53 52 53 54 52 4F 55 54 20 20 20 20 3B 55 | JSRSTROUT ;U|
00000D90: 4E 44 20 41 55 53 47 45 42 45 4E 00 BA 3A DD 00 |ND AUSGEBEN..:..|
00000DA0: 20 4C 44 41 23 31 33 00 DD 3A DE 00 20 4A 53 52 | LDA#13..:.. JSR|
00000DB0: 42 53 4F 55 54 20 20 20 20 20 3B 52 45 54 55 52 |BSOUT ;RETUR|
00000DC0: 4E 20 41 55 53 47 45 42 45 4E 00 E3 3A DF 00 3B |N AUSGEBEN..:..;|
00000DD0: 00 03 3B E0 00 3B 4E 41 45 43 48 53 54 45 4E 20 |..;..;NAECHSTEN |
00000DE0: 58 2D 57 45 52 54 20 42 45 52 45 43 48 4E 45 4E |X-WERT BERECHNEN|
00000DF0: 00 23 3B E1 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.#;..;==========|
00000E00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000E10: 00 29 3B E2 00 3B 00 4B 3B E3 00 20 4C 44 41 23 |.);..;.K;.. LDA#|
00000E20: 3C 28 58 57 45 52 54 29 20 20 20 3B 41 4C 54 45 |<(XWERT) ;ALTE|
00000E30: 4E 20 58 2D 57 45 52 54 00 66 3B E4 00 20 4C 44 |N X-WERT.f;.. LD|
00000E40: 59 23 3E 28 58 57 45 52 54 29 20 20 20 3B 4C 41 |Y#>(XWERT) ;LA|
00000E50: 44 45 4E 00 75 3B E5 00 20 4A 53 52 4D 45 4D 46 |DEN.u;.. JSRMEMF|
00000E60: 41 43 00 97 3B E6 00 20 4C 44 41 23 3C 28 53 43 |AC..;.. LDA#<(SC|
00000E70: 48 52 49 54 54 29 20 3B 53 43 48 52 49 54 54 57 |HRITT) ;SCHRITTW|
00000E80: 45 49 54 45 00 B5 3B E7 00 20 4C 44 59 23 3E 28 |EITE..;.. LDY#>(|
00000E90: 53 43 48 52 49 54 54 29 20 3B 41 44 44 49 45 52 |SCHRITT) ;ADDIER|
00000EA0: 45 4E 00 C2 3B E8 00 20 4A 53 52 50 4C 55 53 00 |EN..;.. JSRPLUS.|
00000EB0: E4 3B E9 00 20 4C 44 41 23 3C 28 4F 42 45 52 45 |.;.. LDA#<(OBERE|
00000EC0: 29 20 20 20 3B 4F 42 45 52 45 20 47 52 45 4E 5A |) ;OBERE GRENZ|
00000ED0: 45 00 02 3C EA 00 20 4C 44 59 23 3E 28 4F 42 45 |E..<.. LDY#>(OBE|
00000EE0: 52 45 29 20 20 20 3B 45 52 52 45 49 43 48 54 00 |RE) ;ERREICHT.|
00000EF0: 11 3C EB 00 20 4A 53 52 43 4D 50 46 41 43 00 2D |.<.. JSRCMPFAC.-|
00000F00: 3C EC 00 20 43 4D 50 23 30 31 20 20 20 20 20 20 |<.. CMP#01 |
00000F10: 20 3B 4A 41 2C 20 45 4E 44 45 00 3A 3C ED 00 20 | ;JA, ENDE.:<.. |
00000F20: 42 45 51 45 4E 44 45 00 5F 3C EE 00 20 4C 44 58 |BEQENDE._<.. LDX|
00000F30: 23 3C 28 58 57 45 52 54 29 20 20 20 3B 4E 45 49 |#<(XWERT) ;NEI|
00000F40: 4E 2C 20 4E 41 45 43 48 53 54 45 4E 00 7B 3C EF |N, NAECHSTEN.{<.|
00000F50: 00 20 4C 44 59 23 3E 28 58 57 45 52 54 29 20 20 |. LDY#>(XWERT) |
00000F60: 20 3B 58 2D 57 45 52 54 00 98 3C F0 00 20 4A 53 | ;X-WERT..<.. JS|
00000F70: 52 46 41 43 4D 45 4D 20 20 20 20 3B 42 45 52 45 |RFACMEM ;BERE|
00000F80: 43 48 4E 45 4E 00 A5 3C F1 00 20 4A 4D 50 4C 4F |CHNEN..<.. JMPLO|
00000F90: 4F 50 00 BF 3C F2 00 45 4E 44 45 20 20 4C 44 41 |OP..<..ENDE LDA|
00000FA0: 20 23 3C 28 53 54 52 49 4E 47 32 29 00 D3 3C F3 | #<(STRING2)..<.|
00000FB0: 00 20 4C 44 59 23 3E 28 53 54 52 49 4E 47 32 29 |. LDY#>(STRING2)|
00000FC0: 00 F5 3C F4 00 20 4A 53 52 53 54 52 49 4E 47 4F |..<.. JSRSTRINGO|
00000FD0: 55 54 20 3B 4C 49 4E 49 45 20 41 55 53 47 45 42 |UT ;LINIE AUSGEB|
00000FE0: 45 4E 00 19 3D F5 00 20 4A 53 52 43 4C 52 43 48 |EN..=.. JSRCLRCH|
00000FF0: 20 20 20 20 20 3B 4B 41 4E 41 4C 20 53 43 48 4C | ;KANAL SCHL|
00001000: 49 45 53 53 45 4E 00 3C 3D F6 00 20 4C 44 41 23 |IESSEN.<=.. LDA#|
00001010: 30 31 20 20 20 20 20 20 20 3B 46 49 4C 45 20 53 |01 ;FILE S|
00001020: 43 48 4C 49 45 53 53 45 4E 00 4A 3D F7 00 20 4A |CHLIESSEN.J=.. J|
00001030: 4D 50 43 4C 4F 53 45 00 50 3D F8 00 3B 00 70 3D |MPCLOSE.P=..;.p=|
00001040: F9 00 3B 4B 41 4E 41 4C 20 46 55 45 52 20 44 52 |..;KANAL FUER DR|
00001050: 55 43 4B 45 52 20 4F 45 46 46 4E 45 4E 00 90 3D |UCKER OEFFNEN..=|
00001060: FA 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..;=============|
00001070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 96 3D |=============..=|
00001080: FB 00 3B 00 BB 3D FC 00 4F 46 46 45 4E 20 20 43 |..;..=..OFFEN C|
00001090: 50 58 20 23 30 34 20 20 3B 47 45 52 41 45 54 45 |PX #04 ;GERAETE|
000010A0: 4E 55 4D 4D 45 52 20 34 00 DC 3D FD 00 20 42 4E |NUMMER 4..=.. BN|
000010B0: 45 4F 46 46 20 20 20 20 20 20 20 3B 4E 45 49 4E |EOFF ;NEIN|
000010C0: 2C 20 5A 55 52 55 45 43 4B 00 FA 3D FE 00 20 4C |, ZURUECK..=.. L|
000010D0: 44 41 23 30 31 20 20 20 20 20 20 20 3B 46 49 4C |DA#01 ;FIL|
000010E0: 45 4E 55 4D 4D 45 52 00 1E 3E FF 00 20 4C 44 59 |ENUMMER..>.. LDY|
000010F0: 23 30 30 20 20 20 20 20 20 20 3B 53 45 4B 55 4E |#00 ;SEKUN|
00001100: 44 41 45 52 41 44 52 45 53 53 45 00 42 3E 00 01 |DAERADRESSE.B>..|
00001110: 20 4A 53 52 53 45 54 50 41 52 20 20 20 20 3B 50 | JSRSETPAR ;P|
00001120: 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 |ARAMETER SETZEN.|
00001130: 62 3E 01 01 20 4C 44 41 23 30 30 20 20 20 20 20 |b>.. LDA#00 |
00001140: 20 20 3B 4B 45 49 4E 45 4E 20 4E 41 4D 45 4E 00 | ;KEINEN NAMEN.|
00001150: 7C 3E 02 01 20 4A 53 52 53 45 54 4E 41 4D 45 20 ||>.. JSRSETNAME |
00001160: 20 20 3B 53 45 54 5A 45 4E 00 96 3E 03 01 20 4A | ;SETZEN..>.. J|
00001170: 53 52 4F 50 45 4E 3B 46 49 4C 45 20 4F 45 46 46 |SROPEN;FILE OEFF|
00001180: 4E 45 4E 00 AE 3E 04 01 20 4C 44 58 23 30 31 3B |NEN..>.. LDX#01;|
00001190: 41 55 53 47 41 42 45 20 41 55 46 00 CF 3E 05 01 |AUSGABE AUF..>..|
000011A0: 20 4A 53 52 43 48 4B 4F 55 54 20 20 20 20 3B 44 | JSRCHKOUT ;D|
000011B0: 52 55 43 4B 45 52 20 4C 45 47 45 4E 00 DB 3E 06 |RUCKER LEGEN..>.|
000011C0: 01 4F 46 46 20 52 54 53 00 E1 3E 07 01 3B 00 01 |.OFF RTS..>..;..|
000011D0: 3F 08 01 3B 53 54 52 49 4E 47 20 46 4F 52 4D 41 |?..;STRING FORMA|
000011E0: 54 49 45 52 54 20 41 55 53 47 45 42 45 4E 00 21 |TIERT AUSGEBEN.!|
000011F0: 3F 09 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |?..;============|
00001200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 27 |==============.'|
00001210: 3F 0A 01 3B 00 4E 3F 0B 01 53 54 52 4F 55 54 20 |?..;.N?..STROUT |
00001220: 20 4A 53 52 20 24 42 34 38 37 20 3B 50 41 52 41 | JSR $B487 ;PARA|
00001230: 4D 45 54 45 52 20 48 4F 4C 45 4E 00 72 3F 0C 01 |METER HOLEN.r?..|
00001240: 20 4A 53 52 24 42 36 41 36 20 20 20 20 20 3B 53 | JSR$B6A6 ;S|
00001250: 54 52 49 4E 47 56 45 52 57 41 4C 54 55 4E 47 00 |TRINGVERWALTUNG.|
00001260: 93 3F 0D 01 20 53 54 41 4C 41 45 4E 47 45 20 20 |.?.. STALAENGE |
00001270: 20 20 3B 4C 41 45 4E 47 45 20 4D 45 52 4B 45 4E | ;LAENGE MERKEN|
00001280: 00 B8 3F 0E 01 20 4A 53 52 53 54 52 49 4E 47 4F |..?.. JSRSTRINGO|
00001290: 55 54 2B 36 20 3B 53 54 52 49 4E 47 20 41 55 53 |UT+6 ;STRING AUS|
000012A0: 47 45 42 45 4E 00 D6 3F 0F 01 20 4C 44 41 23 31 |GEBEN..?.. LDA#1|
000012B0: 36 20 20 20 20 20 20 20 3B 41 4E 5A 41 48 4C 20 |6 ;ANZAHL |
000012C0: 44 45 52 00 F5 3F 10 01 20 53 45 43 20 20 20 20 |DER..?.. SEC |
000012D0: 20 20 20 20 20 20 3B 4C 45 45 52 5A 45 49 43 48 | ;LEERZEICH|
000012E0: 45 4E 00 11 40 11 01 20 53 42 43 4C 41 45 4E 47 |EN..@.. SBCLAENG|
000012F0: 45 20 20 20 20 3B 42 45 52 45 43 48 45 4E 00 1A |E ;BERECHEN..|
00001300: 40 12 01 20 54 41 58 00 3D 40 13 01 20 4C 44 41 |@.. TAX.=@.. LDA|
00001310: 23 33 32 20 20 20 20 20 20 20 3B 43 4F 44 45 20 |#32 ;CODE |
00001320: 46 55 45 52 20 53 50 41 43 45 00 59 40 14 01 4C |FUER SPACE.Y@..L|
00001330: 31 20 20 4A 53 52 20 42 53 4F 55 54 20 3B 41 55 |1 JSR BSOUT ;AU|
00001340: 53 47 45 42 45 4E 00 62 40 15 01 20 44 45 58 00 |SGEBEN.b@.. DEX.|
00001350: 6D 40 16 01 20 42 4E 45 4C 31 00 90 40 17 01 20 |m@.. BNEL1..@.. |
00001360: 4C 44 41 23 3C 28 53 54 52 49 4E 47 33 29 20 3B |LDA#<(STRING3) ;|
00001370: 22 5E 20 22 20 41 55 53 47 45 42 45 4E 00 A4 40 |"^ " AUSGEBEN..@|
00001380: 18 01 20 4C 44 59 23 3E 28 53 54 52 49 4E 47 33 |.. LDY#>(STRING3|
00001390: 29 00 B6 40 19 01 20 4A 4D 50 53 54 52 49 4E 47 |)..@.. JMPSTRING|
000013A0: 4F 55 54 00 BC 40 1A 01 3B 00 E3 40 2F 01 3B 52 |OUT..@..;..@/.;R|
000013B0: 55 4E 44 55 4E 47 20 41 55 46 20 5A 57 45 49 20 |UNDUNG AUF ZWEI |
000013C0: 4E 41 43 48 4B 4F 4D 4D 41 53 54 45 4C 4C 45 4E |NACHKOMMASTELLEN|
000013D0: 00 0A 41 30 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..A0.;==========|
000013E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000013F0: 3D 3D 3D 3D 3D 3D 3D 00 10 41 31 01 3B 00 30 41 |=======..A1.;.0A|
00001400: 32 01 3B 46 41 43 3D 28 49 4E 54 28 46 41 43 2A |2.;FAC=(INT(FAC*|
00001410: 31 30 30 2B 30 2E 35 29 29 2F 31 30 30 00 36 41 |100+0.5))/100.6A|
00001420: 33 01 3B 00 51 41 34 01 52 4F 55 4E 44 20 20 4C |3.;.QA4.ROUND L|
00001430: 44 41 20 23 3C 28 48 55 4E 44 45 52 54 29 00 65 |DA #<(HUNDERT).e|
00001440: 41 35 01 20 4C 44 59 23 3E 28 48 55 4E 44 45 52 |A5. LDY#>(HUNDER|
00001450: 54 29 00 84 41 36 01 20 4A 53 52 4D 55 4C 54 20 |T)..A6. JSRMULT |
00001460: 20 20 20 20 20 3B 46 41 43 3D 46 41 43 2A 31 30 | ;FAC=FAC*10|
00001470: 30 00 A3 41 37 01 20 4A 53 52 50 4C 55 53 30 35 |0..A7. JSRPLUS05|
00001480: 20 20 20 20 3B 46 41 43 3D 46 41 43 2B 30 2E 35 | ;FAC=FAC+0.5|
00001490: 00 C3 41 38 01 20 4A 53 52 49 4E 54 20 20 20 20 |..A8. JSRINT |
000014A0: 20 20 20 3B 46 41 43 3D 49 4E 54 28 46 41 43 29 | ;FAC=INT(FAC)|
000014B0: 00 DA 41 39 01 20 4C 44 41 24 36 36 3B 56 4F 52 |..A9. LDA$66;VOR|
000014C0: 5A 45 49 43 48 45 4E 00 EA 41 3A 01 20 50 48 41 |ZEICHEN..A:. PHA|
000014D0: 3B 52 45 54 54 45 4E 00 03 42 3B 01 20 4A 53 52 |;RETTEN..B;. JSR|
000014E0: 44 49 56 49 44 3B 46 41 43 3D 46 41 43 2F 31 30 |DIVID;FAC=FAC/10|
000014F0: 00 1C 42 3C 01 20 4A 53 52 44 49 56 49 44 3B 46 |..B<. JSRDIVID;F|
00001500: 41 43 3D 46 41 43 2F 31 30 00 30 42 3D 01 20 50 |AC=FAC/10.0B=. P|
00001510: 4C 41 3B 56 4F 52 5A 45 49 43 48 45 4E 00 48 42 |LA;VORZEICHEN.HB|
00001520: 3E 01 20 53 54 41 24 36 36 3B 57 49 45 44 45 52 |>. STA$66;WIEDER|
00001530: 48 4F 4C 45 4E 00 51 42 3F 01 20 52 54 53 00 57 |HOLEN.QB?. RTS.W|
00001540: 42 40 01 3B 00 6B 42 E8 03 53 54 52 49 4E 47 31 |B@.;.kB..STRING1|
00001550: 20 20 2E 42 59 20 31 33 00 9B 42 E9 03 20 2E 54 | .BY 13..B.. .T|
00001560: 58 22 20 5E 20 20 20 20 20 20 20 20 58 20 20 20 |X" ^ X |
00001570: 20 20 20 20 20 5E 20 20 20 20 20 20 20 20 59 20 | ^ Y |
00001580: 20 20 20 20 20 20 20 5E 00 A5 42 E9 03 20 2E 42 | ^..B.. .B|
00001590: 59 30 00 B9 42 EA 03 53 54 52 49 4E 47 32 20 20 |Y0..B..STRING2 |
000015A0: 2E 42 59 20 31 33 00 EA 42 EB 03 20 2E 54 58 22 |.BY 13..B.. .TX"|
000015B0: 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | ...............|
000015C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000015D0: A3 A3 A3 A3 A3 A3 22 00 F4 42 EB 03 20 2E 42 59 |......"..B.. .BY|
000015E0: 30 00 0A 43 EC 03 53 54 52 49 4E 47 33 20 20 2E |0..C..STRING3 .|
000015F0: 54 58 20 22 5E 20 22 00 14 43 ED 03 20 2E 42 59 |TX "^ "..C.. .BY|
00001600: 30 00 30 43 F0 03 48 55 4E 44 45 52 54 20 2E 42 |0.0C..HUNDERT .B|
00001610: 59 31 33 35 2C 37 32 2C 30 2C 30 2C 30 00 36 43 |Y135,72,0,0,0.6C|
00001620: F1 03 3B 00 46 43 4C 04 50 4F 4C 59 20 20 2E 42 |..;.FCL.POLY .B|
00001630: 59 20 36 00 00 00 |Y 6... |
.-'-..; WERTETABELLE.--..;.;-.. .BA$C000
.A-..;.W-.. .EQKOMMA = $AEFD.N-.. .EQVAR
EAL = $AD8A..-.. .EQFACMEM = $BBD4..-..
.EQSTRINGOUT = $AB1E..-.. .EQXWERT = $C4
00.O-.. .EQOBERE = XWERT + 5..-.. .EQSCH
RITT = XWERT +10..... .EQGETBYTE = $B79E
..... .EQPOLYNOM = $E059.0... .EQMULT =
$BA28.G. . .EQPLUS05 = $B849.[.!. .EQINT
= $BCCC.Q.". .EQDIVID = $BAFE...#. .EQB
SOUT = $FFD2...$. .EQMEMFAC = $BBA2...&.
.EQCURSOR = $E50C.L.'. .EQFACSTR = $BDD
D...(. .EQPLUS = $B867...). .EQCMPFAC =
$BC5B../*. .EQZEILE = $D6.#/+. .EQSETPAR
= $FFBA.;/,. .EQSETNAME = $FFBD.P/-. .E
QOPEN = $FFC0.F/.. .EQCLRCH = $FFCC.|//.
.EQCLOSE = $FFC3../0. .EQCHKOUT = $FFC9
../1. .EQLAENGE = $FA../Y.;.H/Z.; KOEFFI
ZIENTEN HOLEN../[.; ===================.
./\.;..0D.START JSR KOMMA ;PRUEF AUF K
OMMA.60E. JSRVAREAL ;KOEFFIZIENT A6 HO
LEN.V0F. LDX#<(POLY+1) ;ABSPEICHERN.I0G.
LDY#>(POLY+1).X0H. JSRFACMEM..0H. JSRKO
MMA ;PRUEF AUF KOMMA.A0I. JSRVAREAL
;KOEFFIZIENT A5 HOLEN..0J. LDX#<(POLY+6
) ;ABSPEICHERN..0K. LDY#>(POLY+6)..1L. J
SRFACMEM.%1L. JSRKOMMA ;PRUEF AUF KOM
MA.L1M. JSRVAREAL ;KOEFFIZIENT A4 HOLE
N.L1N. LDX#<(POLY+11);ABSPEICHERN..1O. L
DY#>(POLY+11)..1P. JSRFACMEM..1P. JSRKOM
MA ;PRUEF AUF KOMMA.X1Q. JSRVAREAL
;KOEFFIZIENT A3 HOLEN..1R. LDX#<(POLY+16
);ABSPEICHERN..2S. LDY#>(POLY+16)..2T. J
SRFACMEM.=2T. JSRKOMMA ;PRUEF AUF KOM
MA.D2U. JSRVAREAL ;KOEFFIZIENT A2 HOLE
N..2V. LDX#<(POLY+21);ABSPEICHERN..2W. L
DY#>(POLY+21)..2X. JSRFACMEM.I2X. JSRKOM
MA ;PRUEF AUF KOMMA..2Y. JSRVAREAL
;KOEFFIZIENT A1 HOLEN..3Z. LDX#<(POLY+26
);ABSPEICHERN.$3{. LDY#>(POLY+26).33|. J
SRFACMEM.U3|. JSRKOMMA ;PRUEF AUF KOM
MA.|3}. JSRVAREAL ;KOEFFIZIENT A0 HOLE
N..3~. LDX#<(POLY+31);ABSPEICHERN..3. L
DY#>(POLY+31)..3.. JSRFACMEM.E3..;..3..;
START- UND ENDWERT HOLEN..4..;==========
==============..4..;.)4.. JSRKOMMA ;P
RUEF AUF KOMMA.O4.. JSRVAREAL ;UNTERE
GRENZE HOLEN.O4.. LDX#<(XWERT) ;ABSPEIC
HERN..4.. LDY#>(XWERT) ;(=X-STARTWERT).
.4.. JSRFACMEM.C4.. JSRKOMMA ;PRUEF A
UF KOMMA..4.. JSRVAREAL ;OBERE GRENZE
HOLEN..5.. LDX#<(OBERE) ;ABSPEICHERN..5
.. LDY#>(OBERE).)5.. JSRFACMEM./5..;.G5.
.;SCHRITTWEITE HOLEN._5..;==============
====.E5..;..5.. JSRKOMMA ;PRUEF AUF K
OMMA..5.. JSRVAREAL ;SCHRITTWEITE HOLE
N.L5.. LDX#<(SCHRITT);ABSPEICHERN..5.. L
DY#>(SCHRITT)..5.. JSRFACMEM..5..;..6..;
SEKUNDAERGERAET HOLEN.+6..;=============
========.16..;.S6.. JSRKOMMA ;PRUEF A
UF KOMMA.Y6.. JSRGETBYTE ;GERAETENUMMER
HOLEN..6.. CPX#03 ;BILDSCHIRM..6..
BEQWEITER ;JA, KEIN "OPEN".X6 . JSROF
FEN ;KANAL OEFFNEN..6..;..6..;TITELKO
PF AUSGEBEN..7..;==================..7..
;..7..WEITER LDA#<(STRING1).U7.. LDY#>(S
TRING1) ;1. ZEILE AUSGEBEN.G7.. JSRSTRIN
GOUT..7.. LDA#<(STRING2) ;2. ZEILE AUSGE
BEN..7.. LDY#>(STRING2)..7.. JSRSTRINGOU
T..7..;..7..;SCHLEIFE ZUR POLYNOMBERECHN
UNG..8..;==============================.
.8..;.+8..LOOP LDA #13 ;RETURN AUSGEBEN
.98.. JSRBSOUT.X8.. LDA#32 ;LEERZE
ICHEN.T8.. JSRBSOUT ;AUSGEBEN..8.. L
DA#<(STRING3)..8.. LDY#>(STRING3) ;AUSGA
BEZEILE.E8.. JSRSTRINGOUT ;DRUCKEN.W8..
LDA#<(XWERT)..8.. LDY#>(XWERT) ;FAC MI
T AKTUELLEM..9.. JSRMEMFAC ;X-WERT LA
DEN.89.. JSRROUND ;RUNDEN._9.. JSRFA
CSTR ;IN STRING UMWANDELN.9.. JSRSTR
OUT ;UND AUSGEBEN..9D. LDA#<(XWERT)
;X-WERT IN..9E. LDY#>(XWERT) ;FAC LAD
EN.L9F. JSRMEMFAC..9G. LDA#<(POLY)..9H.
LDY#>(POLY)..:I. JSRPOLYNOM ;POLYNOM B
ERECHNEN.-:J. JSRROUND ;RUNDEN.3:W.;
.K:X.;AUSGABE VON Y-WERT.C:Y.;==========
========.I:Z.;..:.. JSRFACSTR ;IN STR
ING WANDELN..:.. JSRSTROUT ;UND AUSGE
BEN..:.. LDA#13..:.. JSRBSOUT ;RETUR
N AUSGEBEN..:..;..;..;NAECHSTEN X-WERT B
ERECHNEN.#;..;==========================
.);..;.K;.. LDA#<(XWERT) ;ALTEN X-WERT
.F;.. LDY#>(XWERT) ;LADEN.U;.. JSRMEMF
AC..;.. LDA#<(SCHRITT) ;SCHRITTWEITE..;.
. LDY#>(SCHRITT) ;ADDIEREN.B;.. JSRPLUS.
.;.. LDA#<(OBERE) ;OBERE GRENZE..<.. L
DY#>(OBERE) ;ERREICHT..<.. JSRCMPFAC.-
<.. CMP#01 ;JA, ENDE.:<.. BEQENDE.
_<.. LDX#<(XWERT) ;NEIN, NAECHSTEN.{<.
. LDY#>(XWERT) ;X-WERT..<.. JSRFACMEM
;BERECHNEN..<.. JMPLOOP..<..ENDE LDA
#<(STRING2).S<.. LDY#>(STRING2)..<.. JS
RSTRINGOUT ;LINIE AUSGEBEN..=.. JSRCLRCH
;KANAL SCHLIESSEN.<=.. LDA#01
;FILE SCHLIESSEN.J=.. JMPCLOSE.P=..;.P=
..;KANAL FUER DRUCKER OEFFNEN..=..;=====
=====================..=..;..=..OFFEN C
PX #04 ;GERAETENUMMER 4..=.. BNEOFF
;NEIN, ZURUECK..=.. LDA#01 ;FIL
ENUMMER..>.. LDY#00 ;SEKUNDAERADRE
SSE.B>.. JSRSETPAR ;PARAMETER SETZEN.
B>.. LDA#00 ;KEINEN NAMEN.|>.. JSR
SETNAME ;SETZEN..>.. JSROPEN;FILE OEFF
NEN..>.. LDX#01;AUSGABE AUF.O>.. JSRCHKO
UT ;DRUCKER LEGEN..>..OFF RTS..>..;..
?..;STRING FORMATIERT AUSGEBEN.!?..;====
======================.'?..;.N?..STROUT
JSR $B487 ;PARAMETER HOLEN.R?.. JSR$B6A
6 ;STRINGVERWALTUNG..?.. STALAENGE
;LAENGE MERKEN..?.. JSRSTRINGOUT+6 ;ST
RING AUSGEBEN.V?.. LDA#16 ;ANZAHL
DER..?.. SEC ;LEERZEICHEN..@..
SBCLAENGE ;BERECHEN..@.. TAX.=@.. LDA
#32 ;CODE FUER SPACE.Y@..L1 JSR B
SOUT ;AUSGEBEN.B@.. DEX.M@.. BNEL1..@..
LDA#<(STRING3) ;"^ " AUSGEBEN..@.. LDY#>
(STRING3)..@.. JMPSTRINGOUT..@..;..@/.;R
UNDUNG AUF ZWEI NACHKOMMASTELLEN..A0.;==
===============================..A1.;.0A
2.;FAC=(INT(FAC*100+0.5))/100.6A3.;.QA4.
ROUND LDA #<(HUNDERT).EA5. LDY#>(HUNDER
T)..A6. JSRMULT ;FAC=FAC*100..A7. J
SRPLUS05 ;FAC=FAC+0.5.CA8. JSRINT
;FAC=INT(FAC).ZA9. LDA$66;VORZEICHEN.
.A:. PHA;RETTEN..B;. JSRDIVID;FAC=FAC/10
..B<. JSRDIVID;FAC=FAC/10.0B=. PLA;VORZE
ICHEN.HB>. STA$66;WIEDERHOLEN.QB?. RTS.W
B@.;.KB..STRING1 .BY 13..B.. .TX" ^
X ^ Y ^..B.. .B
Y0..B..STRING2 .BY 13..B.. .TX" .......
.............................."..B.. .BY
0..C..STRING3 .TX "^ "..C.. .BY0.0C..HU
NDERT .BY135,72,0,0,0.6C..;.FCL.POLY .B
Y 6...
> CLICK IMAGE PREVIEW FOR FULL MODAL