Multiple names: PROGRAMM 3 QUELL, LISTING 30
FILE INFORMATION
FILENAME(S):
• PROGRAMM 3 QUELL<br>• LISTING 30
FILE TYPE(S): PRG
FILE SIZE: 11.1K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 2 disk(s)
FILE HASH
fdd06f9f242c47c617d7f22fa1d28617f09eb867294403d73e0b3a5e30ca3656
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 10 86 II | PROGRAMM 3 QUELL | PRG | C64er, DuncanTwain | 26 | 5 | DOWNLOAD FILE |
| 15721 SEITE B | LISTING 30 | PRG | C64er | 19 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FC 1F 0A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |......;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 20 20 14 00 3B 2A 20 20 20 20 |*****. ..;* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 2A 00 44 20 1E 00 3B 2A | *.D ..;*|
00000050: 20 20 20 20 D0 D2 CF C7 D2 C1 CD CD 20 33 20 2F | ........ 3 /|
00000060: 20 CD CF C4 D5 CC 20 31 20 20 20 20 2A 00 68 20 | ..... 1 *.h |
00000070: 28 00 3B 2A 20 20 20 20 20 20 C5 52 57 45 49 54 |(.;* .RWEIT|
00000080: 45 52 55 4E 47 20 44 45 52 20 20 20 20 20 20 20 |ERUNG DER |
00000090: 2A 00 8C 20 32 00 3B 2A 20 20 20 20 C9 4E 54 45 |*.. 2.;* .NTE|
000000A0: 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 45 20 |RPRETERSCHLEIFE |
000000B0: 20 20 20 20 2A 00 B0 20 3C 00 3B 2A 20 20 20 20 | *.. <.;* |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 2A 00 D4 20 46 00 3B 2A | *.. F.;*|
000000E0: 20 20 C8 45 49 4D 4F 20 D0 4F 4E 4E 41 54 48 20 | .EIMO .ONNATH |
000000F0: 20 C8 C8 20 20 31 39 38 36 20 20 20 2A 00 F8 20 | .. 1986 *.. |
00000100: 50 00 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |P.;* |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 2A 00 1C 21 5A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..!Z.;*********|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 00 22 21 64 00 3B 00 30 21 6E 00 |*****."!d.;.0!n.|
00000150: 20 2E 42 41 24 35 30 30 30 00 36 21 78 00 3B 00 | .BA$5000.6!x.;.|
00000160: 5A 21 82 00 3B 2D 2D 2D 2D 2D 2D 20 CC 41 42 45 |Z!..;------ .ABE|
00000170: 4C 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |LS -------------|
00000180: 2D 2D 2D 00 60 21 8C 00 3B 00 83 21 96 00 20 2E |---.`!..;..!.. .|
00000190: 45 51 46 4F 52 50 4E 54 3D 24 34 39 3B D6 41 52 |EQFORPNT=$49;.AR|
000001A0: 49 41 42 4C 45 4E 5A 45 49 47 45 52 00 A5 21 A0 |IABLENZEIGER..!.|
000001B0: 00 20 2E 45 51 43 48 52 47 45 54 3D 24 37 33 3B |. .EQCHRGET=$73;|
000001C0: 43 48 52 47 45 54 2D D2 4F 55 54 49 4E 45 00 C7 |CHRGET-.OUTINE..|
000001D0: 21 AA 00 20 2E 45 51 43 48 52 47 4F 54 3D 24 37 |!.. .EQCHRGOT=$7|
000001E0: 39 3B 43 48 52 47 4F 54 2D D2 4F 55 54 49 4E 45 |9;CHRGOT-.OUTINE|
000001F0: 00 E8 21 B4 00 20 2E 45 51 54 58 54 50 54 52 3D |..!.. .EQTXTPTR=|
00000200: 24 37 41 3B 43 48 52 47 45 54 2D DA 45 49 47 45 |$7A;CHRGET-.EIGE|
00000210: 52 00 EE 21 BE 00 3B 00 1C 22 C8 00 20 2E 45 51 |R..!..;..".. .EQ|
00000220: 49 47 4F 4E 45 3D 24 30 33 30 38 3B D6 45 4B 54 |IGONE=$0308;.EKT|
00000230: 4F 52 20 5A 55 4D 20 D2 4F 55 54 49 4E 45 4E 41 |OR ZUM .OUTINENA|
00000240: 55 46 52 55 46 00 22 22 D2 00 3B 00 4E 22 DC 00 |UFRUF.""..;.N"..|
00000250: 20 2E 45 51 45 52 52 4F 52 3D 24 41 34 33 37 3B | .EQERROR=$A437;|
00000260: C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 55 4E |.EHLERMELDUNG UN|
00000270: 44 20 D2 C5 C1 C4 D9 00 77 22 E6 00 20 2E 45 51 |D ......w".. .EQ|
00000280: 4E 45 57 53 54 54 3D 24 41 37 41 45 3B 49 4E 54 |NEWSTT=$A7AE;INT|
00000290: 45 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 45 |ERPRETERSCHLEIFE|
000002A0: 00 A2 22 F0 00 20 2E 45 51 47 4F 4E 45 31 3D 24 |..".. .EQGONE1=$|
000002B0: 41 37 45 34 3B 41 4C 54 45 52 20 C9 4E 48 41 4C |A7E4;ALTER .NHAL|
000002C0: 54 20 56 4F 4E 20 49 47 4F 4E 45 00 D0 22 FA 00 |T VON IGONE.."..|
000002D0: 20 2E 45 51 49 4E 54 45 4E 44 3D 24 41 37 45 37 | .EQINTEND=$A7E7|
000002E0: 3B C5 4E 44 45 20 49 4E 54 45 52 50 52 45 54 45 |;.NDE INTERPRETE|
000002F0: 52 53 43 48 4C 45 49 46 45 00 FF 22 04 01 20 2E |RSCHLEIFE..".. .|
00000300: 45 51 46 52 4D 4E 55 4D 3D 24 41 44 38 41 3B CE |EQFRMNUM=$AD8A;.|
00000310: 55 4D 45 52 49 53 43 48 45 4E 20 D7 45 52 54 20 |UMERISCHEN .ERT |
00000320: 45 49 4E 4C 45 53 45 4E 00 25 23 0E 01 20 2E 45 |EINLESEN.%#.. .E|
00000330: 51 43 48 4B 43 4F 4D 3D 24 41 45 46 44 3B CB 4F |QCHKCOM=$AEFD;.O|
00000340: 4D 4D 41 20 55 45 42 45 52 4C 45 53 45 4E 00 50 |MMA UEBERLESEN.P|
00000350: 23 18 01 20 2E 45 51 46 41 43 49 4E 58 3D 24 42 |#.. .EQFACINX=$B|
00000360: 31 41 41 3B C6 C1 C3 20 5A 55 20 C9 4E 54 45 47 |1AA;... ZU .NTEG|
00000370: 45 52 20 49 4E 20 D9 2F C1 00 82 23 22 01 20 2E |ER IN ./...#". .|
00000380: 45 51 47 45 54 42 59 54 43 3D 24 42 37 39 42 3B |EQGETBYTC=$B79B;|
00000390: C2 59 54 45 20 49 4E 20 D8 2D D2 45 47 49 53 54 |.YTE IN .-.EGIST|
000003A0: 45 52 20 45 49 4E 4C 45 53 45 4E 00 A1 23 2C 01 |ER EINLESEN..#,.|
000003B0: 20 2E 45 51 46 53 55 42 3D 24 42 38 35 30 3B C6 | .EQFSUB=$B850;.|
000003C0: C1 C3 3D CD 45 4D 2D C6 C1 C3 00 BE 23 36 01 20 |..=.EM-.....#6. |
000003D0: 2E 45 51 45 49 4E 53 3D 24 42 39 42 43 3B 44 41 |.EQEINS=$B9BC;DA|
000003E0: 53 20 49 53 54 20 31 00 DD 23 40 01 20 2E 45 51 |S IST 1..#@. .EQ|
000003F0: 4C 4F 47 3D 24 42 39 45 41 3B C6 C1 C3 3D 4C 4F |LOG=$B9EA;...=LO|
00000400: 47 28 C6 C1 C3 29 00 FD 23 4A 01 20 2E 45 51 46 |G(...)..#J. .EQF|
00000410: 4D 55 4C 54 3D 24 42 41 32 38 3B C6 C1 C3 3D C6 |MULT=$BA28;...=.|
00000420: C1 C3 2A CD 45 4D 00 1C 24 54 01 20 2E 45 51 46 |..*.EM..$T. .EQF|
00000430: 44 49 56 3D 24 42 42 30 46 3B C6 C1 C3 3D CD 45 |DIV=$BB0F;...=.E|
00000440: 4D 2F C6 C1 C3 00 3B 24 5E 01 20 2E 45 51 4D 4F |M/....;$^. .EQMO|
00000450: 56 46 4D 3D 24 42 42 41 32 3B CD 45 4D 20 49 4E |VFM=$BBA2;.EM IN|
00000460: 20 C6 C1 C3 00 5F 24 68 01 20 2E 45 51 4D 4F 56 | ...._$h. .EQMOV|
00000470: 4D 46 3D 24 42 42 44 34 3B C6 C1 C3 20 49 4E 20 |MF=$BBD4;... IN |
00000480: D3 50 45 49 43 48 45 52 00 7E 24 72 01 20 2E 45 |.PEICHER.~$r. .E|
00000490: 51 41 42 53 3D 24 42 43 35 38 3B C6 C1 C3 3D 41 |QABS=$BC58;...=A|
000004A0: 42 53 28 C6 C1 C3 29 00 A8 24 7C 01 20 2E 45 51 |BS(...)..$|. .EQ|
000004B0: 46 43 4F 4D 50 3D 24 42 43 35 42 3B D6 45 52 47 |FCOMP=$BC5B;.ERG|
000004C0: 4C 45 49 43 48 20 C6 C1 C3 20 4D 49 54 20 CD 45 |LEICH ... MIT .E|
000004D0: 4D 00 C7 24 86 01 20 2E 45 51 53 51 52 3D 24 42 |M..$.. .EQSQR=$B|
000004E0: 46 37 31 3B C6 C1 C3 3D 53 51 52 28 C6 C1 C3 29 |F71;...=SQR(...)|
000004F0: 00 ED 24 90 01 20 2E 45 51 50 4F 4C 59 58 3D 24 |..$.. .EQPOLYX=$|
00000500: 45 30 35 39 3B D0 4F 4C 59 4E 4F 4D 41 55 53 57 |E059;.OLYNOMAUSW|
00000510: 45 52 54 55 4E 47 00 0C 25 9A 01 20 2E 45 51 43 |ERTUNG..%.. .EQC|
00000520: 4F 53 3D 24 45 32 36 34 3B C6 C1 C3 3D 43 4F 53 |OS=$E264;...=COS|
00000530: 28 C6 C1 C3 29 00 2B 25 A4 01 20 2E 45 51 53 49 |(...).+%.. .EQSI|
00000540: 4E 3D 24 45 32 36 42 3B C6 C1 C3 3D 53 49 4E 28 |N=$E26B;...=SIN(|
00000550: C6 C1 C3 29 00 4D 25 AE 01 20 2E 45 51 50 49 48 |...).M%.. .EQPIH|
00000560: 41 4C 42 3D 24 45 32 45 30 3B 44 41 53 20 49 53 |ALB=$E2E0;DAS IS|
00000570: 54 20 D0 49 2F 32 00 6C 25 B8 01 20 2E 45 51 41 |T .I/2.l%.. .EQA|
00000580: 54 4E 3D 24 45 33 30 45 3B C6 C1 C3 3D 41 54 4E |TN=$E30E;...=ATN|
00000590: 28 C6 C1 C3 29 00 72 25 C2 01 3B 00 8C 25 CC 01 |(...).r%..;..%..|
000005A0: 20 2E 45 51 50 4F 4C 59 56 41 52 3D 50 4F 4C 59 | .EQPOLYVAR=POLY|
000005B0: 54 41 42 2D 34 00 92 25 D6 01 3B 00 B6 25 E0 01 |TAB-4..%..;..%..|
000005C0: 3B 2D 2D 2D 2D 2D 2D 20 C9 4E 49 54 49 41 4C 49 |;------ .NITIALI|
000005D0: 53 49 45 52 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 00 |SIERUNG -------.|
000005E0: BC 25 EA 01 3B 00 E5 25 F4 01 49 4E 49 54 20 4C |.%..;..%..INIT L|
000005F0: 44 41 23 3C 28 53 54 41 52 54 29 3B 4C 53 42 20 |DA#<(START);LSB |
00000600: 45 49 47 45 4E 45 20 D2 4F 55 54 49 4E 45 00 07 |EIGENE .OUTINE..|
00000610: 26 FE 01 20 53 54 41 49 47 4F 4E 45 3B 49 4E 20 |&.. STAIGONE;IN |
00000620: 56 45 4B 54 4F 52 20 53 43 48 52 45 49 42 45 4E |VEKTOR SCHREIBEN|
00000630: 00 1D 26 08 02 20 4C 44 41 23 3E 28 53 54 41 52 |..&.. LDA#>(STAR|
00000640: 54 29 3B 4D 53 42 00 2D 26 12 02 20 53 54 41 49 |T);MSB.-&.. STAI|
00000650: 47 4F 4E 45 2B 31 00 36 26 1C 02 20 52 54 53 00 |GONE+1.6&.. RTS.|
00000660: 3C 26 26 02 3B 00 60 26 30 02 3B 2D 2D 2D 2D 2D |<&&.;.`&0.;-----|
00000670: 2D 20 C1 42 53 43 48 41 4C 54 45 4E 20 2D 2D 2D |- .BSCHALTEN ---|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 66 26 3A 02 3B 00 |---------.f&:.;.|
00000690: 86 26 44 02 41 55 53 20 4C 44 41 23 3C 28 47 4F |.&D.AUS LDA#<(GO|
000006A0: 4E 45 31 29 3B 56 45 4B 54 4F 52 20 41 55 46 00 |NE1);VEKTOR AUF.|
000006B0: 9F 26 4E 02 20 53 54 41 49 47 4F 4E 45 3B CE 4F |.&N. STAIGONE;.O|
000006C0: 52 4D 41 4C 57 45 52 54 00 C0 26 58 02 20 4C 44 |RMALWERT..&X. LD|
000006D0: 41 23 3E 28 47 4F 4E 45 31 29 3B 5A 55 52 55 45 |A#>(GONE1);ZURUE|
000006E0: 43 4B 53 54 45 4C 4C 45 4E 00 D0 26 62 02 20 53 |CKSTELLEN..&b. S|
000006F0: 54 41 49 47 4F 4E 45 2B 31 00 D9 26 6C 02 20 52 |TAIGONE+1..&l. R|
00000700: 54 53 00 DF 26 76 02 3B 00 05 27 80 02 3B 2D C5 |TS..&v.;..'..;-.|
00000710: 52 57 45 49 54 45 52 54 45 20 C9 4E 54 45 52 50 |RWEITERTE .NTERP|
00000720: 52 45 54 45 52 53 43 48 4C 45 49 46 45 2D 00 0B |RETERSCHLEIFE-..|
00000730: 27 8A 02 3B 00 2D 27 94 02 53 54 41 52 54 20 4A |'..;.-'..START J|
00000740: 53 52 43 48 52 47 45 54 3B DA 45 49 43 48 45 4E |SRCHRGET;.EICHEN|
00000750: 20 48 4F 4C 45 4E 00 45 27 9E 02 20 43 4D 50 23 | HOLEN.E'.. CMP#|
00000760: 24 36 30 3B C2 55 43 48 53 54 41 42 45 3F 00 5D |$60;.UCHSTABE?.]|
00000770: 27 A8 02 20 42 43 53 45 4E 44 45 3B C2 41 53 49 |'.. BCSENDE;.ASI|
00000780: 43 2D C3 4F 44 45 00 78 27 B2 02 20 43 4D 50 23 |C-.ODE.x'.. CMP#|
00000790: 24 34 31 3B C2 55 43 48 53 54 41 42 45 20 C1 20 |$41;.UCHSTABE . |
000007A0: 3F 00 93 27 BC 02 20 42 43 43 45 4E 44 45 3B D3 |?..'.. BCCENDE;.|
000007B0: 4F 4E 44 45 52 5A 45 49 43 48 45 4E 00 AD 27 C6 |ONDERZEICHEN..'.|
000007C0: 02 20 53 54 41 41 4B 4B 55 3B C1 4B 4B 55 20 53 |. STAAKKU;.KKU S|
000007D0: 49 43 48 45 52 4E 00 BA 27 D0 02 20 4C 44 58 23 |ICHERN..'.. LDX#|
000007E0: 24 30 30 00 D9 27 DA 02 20 53 54 58 42 45 46 4E |$00..'.. STXBEFN|
000007F0: 52 3B C2 45 46 45 48 4C 53 4E 52 2E 20 41 55 46 |R;.EFEHLSNR. AUF|
00000800: 20 30 00 EA 27 E4 02 49 4E 54 31 20 4C 44 59 23 | 0..'..INT1 LDY#|
00000810: 24 30 30 00 07 28 EE 02 20 49 4E 43 42 45 46 4E |$00..(.. INCBEFN|
00000820: 52 3B C2 45 46 45 48 4C 53 4E 52 2E 20 2B 20 31 |R;.EFEHLSNR. + 1|
00000830: 00 33 28 F8 02 20 4C 44 41 42 45 46 54 41 42 2C |.3(.. LDABEFTAB,|
00000840: 58 3B DA 45 49 43 48 45 4E 20 41 55 53 20 C2 45 |X;.EICHEN AUS .E|
00000850: 46 45 48 4C 53 54 41 42 45 4C 4C 45 00 52 28 02 |FEHLSTABELLE.R(.|
00000860: 03 20 42 4E 45 49 4E 54 32 3B 4B 45 49 4E 20 D4 |. BNEINT2;KEIN .|
00000870: 52 45 4E 4E 5A 45 49 43 48 45 4E 00 58 28 0C 03 |RENNZEICHEN.X(..|
00000880: 3B 00 71 28 16 03 20 4C 44 41 41 4B 4B 55 3B DA |;.q(.. LDAAKKU;.|
00000890: 55 52 55 45 43 4B 20 49 4E 53 00 92 28 20 03 45 |URUECK INS..( .E|
000008A0: 4E 44 45 20 4A 53 52 43 48 52 47 4F 54 3B 4E 4F |NDE JSRCHRGOT;NO|
000008B0: 52 4D 41 4C 45 20 C2 41 53 49 43 00 AA 28 2A 03 |RMALE .ASIC..(*.|
000008C0: 20 4A 4D 50 49 4E 54 45 4E 44 3B 53 50 52 49 4E | JMPINTEND;SPRIN|
000008D0: 47 45 4E 00 B0 28 34 03 3B 00 D4 28 3E 03 3B 2D |GEN..(4.;..(>.;-|
000008E0: 2D 2D 20 C1 44 52 45 53 53 45 20 53 55 43 48 45 |-- .DRESSE SUCHE|
000008F0: 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 DA 28 |N -----------..(|
00000900: 48 03 3B 00 09 29 52 03 49 4E 54 32 20 43 4D 50 |H.;..)R.INT2 CMP|
00000910: 28 54 58 54 50 54 52 29 2C 59 3B D6 45 52 47 4C |(TXTPTR),Y;.ERGL|
00000920: 45 49 43 48 20 4D 49 54 20 C2 41 53 49 43 54 45 |EICH MIT .ASICTE|
00000930: 58 54 00 1F 29 5C 03 20 42 4E 45 52 45 53 54 3B |XT..)\. BNEREST;|
00000940: 55 4E 47 4C 45 49 43 48 00 39 29 66 03 20 49 4E |UNGLEICH.9)f. IN|
00000950: 59 3B C2 41 53 49 43 54 45 58 54 49 4E 44 45 58 |Y;.ASICTEXTINDEX|
00000960: 2B 31 00 55 29 70 03 20 49 4E 58 3B C2 45 46 45 |+1.U)p. INX;.EFE|
00000970: 48 4C 54 41 42 2E 2D C9 4E 44 45 58 2B 31 00 78 |HLTAB.-.NDEX+1.x|
00000980: 29 7A 03 20 4C 44 41 42 45 46 54 41 42 2C 58 3B |)z. LDABEFTAB,X;|
00000990: 4E 41 45 43 48 53 54 45 53 20 DA 45 49 43 48 45 |NAECHSTES .EICHE|
000009A0: 4E 00 8D 29 84 03 20 42 4E 45 49 4E 54 32 3B 50 |N..).. BNEINT2;P|
000009B0: 52 55 45 46 45 4E 00 96 29 8E 03 20 43 4C 43 00 |RUEFEN..).. CLC.|
000009C0: AF 29 98 03 20 54 59 41 3B C2 45 46 45 48 4C 53 |.).. TYA;.EFEHLS|
000009D0: 49 4E 44 45 58 20 55 4D 00 CC 29 A2 03 20 41 44 |INDEX UM..).. AD|
000009E0: 43 54 58 54 50 54 52 3B C2 45 46 45 48 4C 53 4C |CTXTPTR;.EFEHLSL|
000009F0: 41 45 4E 47 45 00 E4 29 AC 03 20 53 54 41 54 58 |AENGE..).. STATX|
00000A00: 54 50 54 52 3B 45 52 48 4F 45 48 45 4E 00 FC 29 |TPTR;ERHOEHEN..)|
00000A10: B6 03 20 42 43 43 4C 41 42 31 3B D5 45 42 45 52 |.. BCCLAB1;.EBER|
00000A20: 54 52 41 47 3F 00 1A 2A C0 03 20 49 4E 43 54 58 |TRAG?..*.. INCTX|
00000A30: 54 50 54 52 2B 31 3B 4D 53 42 20 45 52 48 4F 45 |TPTR+1;MSB ERHOE|
00000A40: 48 45 4E 00 37 2A CA 03 4C 41 42 31 20 4C 44 41 |HEN.7*..LAB1 LDA|
00000A50: 42 45 46 4E 52 3B C2 45 46 45 48 4C 53 4E 52 2E |BEFNR;.EFEHLSNR.|
00000A60: 00 4B 2A D4 03 20 41 53 4C 3B 56 45 52 44 4F 50 |.K*.. ASL;VERDOP|
00000A70: 50 45 4C 4E 00 65 2A DE 03 20 54 41 58 3B 55 4E |PELN.e*.. TAX;UN|
00000A80: 44 20 41 4C 53 20 C9 4E 44 45 58 20 49 4E 00 84 |D ALS .NDEX IN..|
00000A90: 2A E8 03 20 4C 44 41 53 50 52 54 41 42 2C 58 3B |*.. LDASPRTAB,X;|
00000AA0: D3 50 52 55 4E 47 54 41 42 45 4C 4C 45 00 A0 2A |.PRUNGTABELLE..*|
00000AB0: F2 03 20 53 54 41 53 50 52 55 4E 47 2B 31 3B 4C |.. STASPRUNG+1;L|
00000AC0: 53 42 20 D3 50 52 55 4E 47 00 BC 2A FC 03 20 4C |SB .PRUNG..*.. L|
00000AD0: 44 41 53 50 52 54 41 42 31 2C 58 3B 4D 53 42 20 |DASPRTAB1,X;MSB |
00000AE0: 4C 45 53 45 4E 00 D1 2A 06 04 20 53 54 41 53 50 |LESEN..*.. STASP|
00000AF0: 52 55 4E 47 2B 32 3B 4D 53 42 00 D7 2A 10 04 3B |RUNG+2;MSB..*..;|
00000B00: 00 FD 2A 1A 04 3B 2D 2D 20 D3 45 4C 42 53 54 4D |..*..;-- .ELBSTM|
00000B10: 4F 44 49 46 49 5A 49 45 52 45 4E 44 45 52 20 D4 |ODIFIZIERENDER .|
00000B20: 45 49 4C 20 2D 2D 00 03 2B 24 04 3B 00 1D 2B 2E |EIL --..+$.;..+.|
00000B30: 04 53 50 52 55 4E 47 20 4A 53 52 24 46 46 46 46 |.SPRUNG JSR$FFFF|
00000B40: 3B C4 55 4D 4D 59 00 23 2B 38 04 3B 00 49 2B 42 |;.UMMY.#+8.;.I+B|
00000B50: 04 3B 2D 2D 20 DA 55 52 55 45 43 4B 20 5A 55 4D |.;-- .URUECK ZUM|
00000B60: 20 C9 4E 54 45 52 50 52 45 54 45 52 20 2D 2D 2D | .NTERPRETER ---|
00000B70: 2D 2D 00 4F 2B 4C 04 3B 00 5C 2B 56 04 20 4A 4D |--.O+L.;.\+V. JM|
00000B80: 50 45 4E 44 45 00 62 2B 60 04 3B 00 88 2B 6A 04 |PENDE.b+`.;..+j.|
00000B90: 3B 2D 52 45 53 54 4C 2E 20 C2 45 46 45 48 4C 53 |;-RESTL. .EFEHLS|
00000BA0: 54 45 58 54 20 55 45 42 45 52 4C 45 53 45 4E 2D |TEXT UEBERLESEN-|
00000BB0: 2D 00 8E 2B 74 04 3B 00 9B 2B 7E 04 52 45 53 54 |-..+t.;..+~.REST|
00000BC0: 20 49 4E 58 00 AC 2B 88 04 20 4C 44 41 42 45 46 | INX..+.. LDABEF|
00000BD0: 54 41 42 2C 58 00 CA 2B 92 04 20 42 4E 45 52 45 |TAB,X..+.. BNERE|
00000BE0: 53 54 3B 42 49 53 20 D4 52 45 4E 4E 5A 45 49 43 |ST;BIS .RENNZEIC|
00000BF0: 48 45 4E 00 D3 2B 9C 04 20 49 4E 58 00 F1 2B A6 |HEN..+.. INX..+.|
00000C00: 04 20 4A 4D 50 49 4E 54 31 3B 4E 41 45 43 48 53 |. JMPINT1;NAECHS|
00000C10: 54 45 52 20 C2 45 46 45 48 4C 00 F7 2B B0 04 3B |TER .EFEHL..+..;|
00000C20: 00 FD 2B BA 04 3B 00 24 2C C4 04 3B 2A 2A 2A 2A |..+..;.$,..;****|
00000C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 2C |*************.K,|
00000C50: CE 04 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |..;* |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C70: 20 20 20 2A 00 72 2C D8 04 3B 2A 20 20 20 20 20 | *.r,..;* |
00000C80: 20 D0 52 4F 47 52 41 4D 4D 20 33 20 20 CD 4F 44 | .ROGRAMM 3 .OD|
00000C90: 55 4C 20 32 20 20 20 20 20 20 2A 00 99 2C E2 04 |UL 2 *..,..|
00000CA0: 3B 2A 20 D5 4D 52 45 43 48 4E 55 4E 47 20 49 4E |;* .MRECHNUNG IN|
00000CB0: 20 C2 4F 47 45 4E 4D 41 53 53 20 28 C2 CF C7 29 | .OGENMASS (...)|
00000CC0: 20 2A 00 C0 2C EC 04 3B 2A 20 20 20 20 20 20 20 | *..,..;* |
00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CE0: 20 20 20 20 20 20 20 20 2A 00 E7 2C F6 04 3B 2A | *..,..;*|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D10: 00 ED 2C 00 05 3B 00 1A 2D 0A 05 42 4F 47 20 4C |..,..;..-..BOG L|
00000D20: 44 41 46 4F 52 50 4E 54 3B D6 41 52 49 41 42 4C |DAFORPNT;.ARIABL|
00000D30: 45 4E 5A 45 49 47 45 52 20 41 55 46 20 D3 54 41 |ENZEIGER AUF .TA|
00000D40: 50 45 4C 00 23 2D 14 05 20 50 48 41 00 34 2D 1E |PEL.#-.. PHA.4-.|
00000D50: 05 20 4C 44 41 46 4F 52 50 4E 54 2B 31 00 3D 2D |. LDAFORPNT+1.=-|
00000D60: 28 05 20 50 48 41 00 5A 2D 32 05 20 4A 53 52 43 |(. PHA.Z-2. JSRC|
00000D70: 48 4B 43 4F 4D 3B CB 4F 4D 4D 41 20 50 52 55 45 |HKCOM;.OMMA PRUE|
00000D80: 46 45 4E 00 84 2D 3C 05 20 4A 53 52 46 52 4D 4E |FEN..-<. JSRFRMN|
00000D90: 55 4D 3B CE 55 4D 45 52 49 53 43 48 45 4E 20 C1 |UM;.UMERISCHEN .|
00000DA0: 55 53 44 52 55 43 4B 20 48 4F 4C 45 4E 00 A5 2D |USDRUCK HOLEN..-|
00000DB0: 46 05 20 4C 44 41 23 3C 28 42 4F 47 46 41 4B 29 |F. LDA#<(BOGFAK)|
00000DC0: 3B C6 41 4B 54 4F 52 20 D0 49 2F 31 38 30 00 B8 |;.AKTOR .I/180..|
00000DD0: 2D 50 05 20 4C 44 59 23 3E 28 42 4F 47 46 41 4B |-P. LDY#>(BOGFAK|
00000DE0: 29 00 D5 2D 5A 05 20 4A 53 52 46 4D 55 4C 54 3B |)..-Z. JSRFMULT;|
00000DF0: CD 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 00 EF |.ULTIPLIKATION..|
00000E00: 2D 64 05 20 50 4C 41 3B 58 2F 59 20 41 55 46 20 |-d. PLA;X/Y AUF |
00000E10: D6 41 52 49 41 42 4C 45 00 F8 2D 6E 05 20 54 41 |.ARIABLE..-n. TA|
00000E20: 59 00 01 2E 78 05 20 50 4C 41 00 0A 2E 82 05 20 |Y...x. PLA..... |
00000E30: 54 41 58 00 28 2E 8C 05 20 4A 53 52 4D 4F 56 4D |TAX.(... JSRMOVM|
00000E40: 46 3B C6 C1 C3 20 49 4E 20 D6 41 52 49 41 42 4C |F;... IN .ARIABL|
00000E50: 45 00 31 2E 96 05 20 52 54 53 00 37 2E A0 05 3B |E.1... RTS.7...;|
00000E60: 00 3D 2E AA 05 3B 00 64 2E B4 05 3B 2A 2A 2A 2A |.=...;.d...;****|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 2E |*************...|
00000E90: BE 05 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |..;* |
00000EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EB0: 20 20 20 2A 00 B2 2E C8 05 3B 2A 20 20 20 20 20 | *.....;* |
00000EC0: 20 D0 52 4F 47 52 41 4D 4D 20 33 20 20 CD 4F 44 | .ROGRAMM 3 .OD|
00000ED0: 55 4C 20 33 20 20 20 20 20 20 2A 00 D9 2E D2 05 |UL 3 *.....|
00000EE0: 3B 2A 20 D5 4D 52 45 43 48 4E 55 4E 47 20 49 4E |;* .MRECHNUNG IN|
00000EF0: 20 C7 52 41 44 4D 41 53 53 20 28 C7 D2 C4 29 20 | .RADMASS (...) |
00000F00: 20 2A 00 00 2F DC 05 3B 2A 20 20 20 20 20 20 20 | *../..;* |
00000F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F20: 20 20 20 20 20 20 20 20 2A 00 27 2F E6 05 3B 2A | *.'/..;*|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F50: 00 2D 2F F0 05 3B 00 5A 2F FA 05 47 52 44 20 4C |.-/..;.Z/..GRD L|
00000F60: 44 41 46 4F 52 50 4E 54 3B D6 41 52 49 41 42 4C |DAFORPNT;.ARIABL|
00000F70: 45 4E 5A 45 49 47 45 52 20 41 55 46 20 D3 54 41 |ENZEIGER AUF .TA|
00000F80: 50 45 4C 00 63 2F 04 06 20 50 48 41 00 74 2F 0E |PEL.c/.. PHA.t/.|
00000F90: 06 20 4C 44 41 46 4F 52 50 4E 54 2B 31 00 7D 2F |. LDAFORPNT+1.}/|
00000FA0: 18 06 20 50 48 41 00 9A 2F 22 06 20 4A 53 52 43 |.. PHA../". JSRC|
00000FB0: 48 4B 43 4F 4D 3B CB 4F 4D 4D 41 20 50 52 55 45 |HKCOM;.OMMA PRUE|
00000FC0: 46 45 4E 00 C4 2F 2C 06 20 4A 53 52 46 52 4D 4E |FEN../,. JSRFRMN|
00000FD0: 55 4D 3B CE 55 4D 45 52 49 53 43 48 45 4E 20 C1 |UM;.UMERISCHEN .|
00000FE0: 55 53 44 52 55 43 4B 20 48 4F 4C 45 4E 00 E5 2F |USDRUCK HOLEN../|
00000FF0: 36 06 20 4C 44 41 23 3C 28 47 52 44 46 41 4B 29 |6. LDA#<(GRDFAK)|
00001000: 3B C6 41 4B 54 4F 52 20 31 38 30 2F D0 49 00 F8 |;.AKTOR 180/.I..|
00001010: 2F 40 06 20 4C 44 59 23 3E 28 47 52 44 46 41 4B |/@. LDY#>(GRDFAK|
00001020: 29 00 15 30 4A 06 20 4A 53 52 46 4D 55 4C 54 3B |)..0J. JSRFMULT;|
00001030: CD 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 00 2F |.ULTIPLIKATION./|
00001040: 30 54 06 20 50 4C 41 3B 58 2F 59 20 41 55 46 20 |0T. PLA;X/Y AUF |
00001050: D6 41 52 49 41 42 4C 45 00 38 30 5E 06 20 54 41 |.ARIABLE.80^. TA|
00001060: 59 00 41 30 68 06 20 50 4C 41 00 4A 30 72 06 20 |Y.A0h. PLA.J0r. |
00001070: 54 41 58 00 68 30 7C 06 20 4A 53 52 4D 4F 56 4D |TAX.h0|. JSRMOVM|
00001080: 46 3B C6 C1 C3 20 49 4E 20 D6 41 52 49 41 42 4C |F;... IN .ARIABL|
00001090: 45 00 71 30 86 06 20 52 54 53 00 77 30 90 06 3B |E.q0.. RTS.w0..;|
000010A0: 00 7D 30 9A 06 3B 00 A4 30 A4 06 3B 2A 2A 2A 2A |.}0..;..0..;****|
000010B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CB 30 |*************..0|
000010D0: AE 06 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |..;* |
000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010F0: 20 20 20 2A 00 F2 30 B8 06 3B 2A 20 20 20 20 20 | *..0..;* |
00001100: 20 D0 52 4F 47 52 41 4D 4D 20 33 20 20 CD 4F 44 | .ROGRAMM 3 .OD|
00001110: 55 4C 20 34 20 20 20 20 20 20 2A 00 19 31 C2 06 |UL 4 *..1..|
00001120: 3B 2A 20 C4 45 4B 41 44 49 53 43 48 45 52 20 CC |;* .EKADISCHER .|
00001130: 4F 47 41 52 49 54 48 4D 55 53 28 C4 CC C7 D2 29 |OGARITHMUS(....)|
00001140: 20 2A 00 40 31 CC 06 3B 2A 20 20 20 20 20 20 20 | *.@1..;* |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001160: 20 20 20 20 20 20 20 20 2A 00 67 31 D6 06 3B 2A | *.g1..;*|
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001190: 00 6D 31 E0 06 3B 00 9B 31 EA 06 44 4C 4F 47 20 |.m1..;..1..DLOG |
000011A0: 4C 44 41 46 4F 52 50 4E 54 3B D6 41 52 49 41 42 |LDAFORPNT;.ARIAB|
000011B0: 4C 45 4E 5A 45 49 47 45 52 20 41 55 46 20 D3 54 |LENZEIGER AUF .T|
000011C0: 41 50 45 4C 00 A4 31 F4 06 20 50 48 41 00 B5 31 |APEL..1.. PHA..1|
000011D0: FE 06 20 4C 44 41 46 4F 52 50 4E 54 2B 31 00 BE |.. LDAFORPNT+1..|
000011E0: 31 08 07 20 50 48 41 00 DB 31 12 07 20 4A 53 52 |1.. PHA..1.. JSR|
000011F0: 43 48 4B 43 4F 4D 3B CB 4F 4D 4D 41 20 50 52 55 |CHKCOM;.OMMA PRU|
00001200: 45 46 45 4E 00 05 32 1C 07 20 4A 53 52 46 52 4D |EFEN..2.. JSRFRM|
00001210: 4E 55 4D 3B CE 55 4D 45 52 49 53 43 48 45 4E 20 |NUM;.UMERISCHEN |
00001220: C1 55 53 44 52 55 43 4B 20 48 4F 4C 45 4E 00 20 |.USDRUCK HOLEN. |
00001230: 32 26 07 20 4A 53 52 4C 4F 47 3B CC 4F 47 41 52 |2&. JSRLOG;.OGAR|
00001240: 49 54 48 4D 49 45 52 45 4E 00 41 32 30 07 20 4C |ITHMIEREN.A20. L|
00001250: 44 41 23 3C 28 4C 4F 47 46 41 4B 29 3B C6 41 4B |DA#<(LOGFAK);.AK|
00001260: 54 4F 52 20 31 2F 4C 4E 31 30 00 54 32 3A 07 20 |TOR 1/LN10.T2:. |
00001270: 4C 44 59 23 3E 28 4C 4F 47 46 41 4B 29 00 71 32 |LDY#>(LOGFAK).q2|
00001280: 44 07 20 4A 53 52 46 4D 55 4C 54 3B CD 55 4C 54 |D. JSRFMULT;.ULT|
00001290: 49 50 4C 49 4B 41 54 49 4F 4E 00 8B 32 4E 07 20 |IPLIKATION..2N. |
000012A0: 50 4C 41 3B 58 2F 59 20 41 55 46 20 D6 41 52 49 |PLA;X/Y AUF .ARI|
000012B0: 41 42 4C 45 00 94 32 58 07 20 54 41 59 00 9D 32 |ABLE..2X. TAY..2|
000012C0: 62 07 20 50 4C 41 00 A6 32 6C 07 20 54 41 58 00 |b. PLA..2l. TAX.|
000012D0: C4 32 76 07 20 4A 53 52 4D 4F 56 4D 46 3B C6 C1 |.2v. JSRMOVMF;..|
000012E0: C3 20 49 4E 20 D6 41 52 49 41 42 4C 45 00 CD 32 |. IN .ARIABLE..2|
000012F0: 80 07 20 52 54 53 00 D3 32 8A 07 3B 00 D9 32 94 |.. RTS..2..;..2.|
00001300: 07 3B 00 00 33 9E 07 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;..3..;********|
00001310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 27 33 A8 07 3B 2A |*********.'3..;*|
00001330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00001350: 00 4E 33 B2 07 3B 2A 20 20 20 20 20 20 D0 52 4F |.N3..;* .RO|
00001360: 47 52 41 4D 4D 20 33 20 20 CD 4F 44 55 4C 20 35 |GRAMM 3 .ODUL 5|
00001370: 20 20 20 20 20 20 2A 00 75 33 BC 07 3B 2A 20 20 | *.u3..;* |
00001380: 20 20 CB 4F 54 41 4E 47 45 4E 53 46 55 4E 4B 54 | .OTANGENSFUNKT|
00001390: 49 4F 4E 20 28 C3 CF D4 29 20 20 20 20 2A 00 9C |ION (...) *..|
000013A0: 33 C6 07 3B 2A 20 20 20 20 20 20 20 20 20 20 20 |3..;* |
000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013C0: 20 20 20 20 2A 00 C3 33 D0 07 3B 2A 2A 2A 2A 2A | *..3..;*****|
000013D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 33 DA |************..3.|
000013F0: 07 3B 00 F6 33 E4 07 43 4F 54 20 4C 44 41 46 4F |.;..3..COT LDAFO|
00001400: 52 50 4E 54 3B D6 41 52 49 41 42 4C 45 4E 5A 45 |RPNT;.ARIABLENZE|
00001410: 49 47 45 52 20 41 55 46 20 D3 54 41 50 45 4C 00 |IGER AUF .TAPEL.|
00001420: FF 33 EE 07 20 50 48 41 00 10 34 F8 07 20 4C 44 |.3.. PHA..4.. LD|
00001430: 41 46 4F 52 50 4E 54 2B 31 00 19 34 02 08 20 50 |AFORPNT+1..4.. P|
00001440: 48 41 00 36 34 0C 08 20 4A 53 52 43 48 4B 43 4F |HA.64.. JSRCHKCO|
00001450: 4D 3B CB 4F 4D 4D 41 20 50 52 55 45 46 45 4E 00 |M;.OMMA PRUEFEN.|
00001460: 60 34 16 08 20 4A 53 52 46 52 4D 4E 55 4D 3B CE |`4.. JSRFRMNUM;.|
00001470: 55 4D 45 52 49 53 43 48 45 4E 20 C1 55 53 44 52 |UMERISCHEN .USDR|
00001480: 55 43 4B 20 48 4F 4C 45 4E 00 85 34 20 08 20 4C |UCK HOLEN..4 . L|
00001490: 44 58 23 3C 28 5A 57 53 50 31 29 3B 55 4E 44 20 |DX#<(ZWSP1);UND |
000014A0: 42 45 49 53 45 49 54 45 20 4C 45 47 45 4E 00 97 |BEISEITE LEGEN..|
000014B0: 34 2A 08 20 4C 44 59 23 3E 28 5A 57 53 50 31 29 |4*. LDY#>(ZWSP1)|
000014C0: 00 A5 34 34 08 20 4A 53 52 4D 4F 56 4D 46 00 C0 |..44. JSRMOVMF..|
000014D0: 34 3E 08 20 4A 53 52 43 4F 53 3B C3 4F 53 49 4E |4>. JSRCOS;.OSIN|
000014E0: 55 53 20 42 49 4C 44 45 4E 00 DE 34 48 08 20 4C |US BILDEN..4H. L|
000014F0: 44 58 23 3C 28 5A 57 53 50 32 29 3B 55 4E 44 20 |DX#<(ZWSP2);UND |
00001500: 53 49 43 48 45 52 4E 00 F0 34 52 08 20 4C 44 59 |SICHERN..4R. LDY|
00001510: 23 3E 28 5A 57 53 50 32 29 00 FE 34 5C 08 20 4A |#>(ZWSP2)..4\. J|
00001520: 53 52 4D 4F 56 4D 46 00 22 35 66 08 20 4C 44 41 |SRMOVMF."5f. LDA|
00001530: 23 3C 28 5A 57 53 50 31 29 3B D7 45 52 54 20 5A |#<(ZWSP1);.ERT Z|
00001540: 55 52 55 45 43 4B 48 4F 4C 45 4E 00 34 35 70 08 |URUECKHOLEN.45p.|
00001550: 20 4C 44 59 23 3E 28 5A 57 53 50 31 29 00 42 35 | LDY#>(ZWSP1).B5|
00001560: 7A 08 20 4A 53 52 4D 4F 56 46 4D 00 5B 35 84 08 |z. JSRMOVFM.[5..|
00001570: 20 4A 53 52 53 49 4E 3B D3 49 4E 55 53 20 42 49 | JSRSIN;.INUS BI|
00001580: 4C 44 45 4E 00 76 35 8E 08 20 4C 44 41 23 3C 28 |LDEN.v5.. LDA#<(|
00001590: 5A 57 53 50 32 29 3B C4 49 56 49 53 49 4F 4E 00 |ZWSP2);.IVISION.|
000015A0: 96 35 98 08 20 4C 44 59 23 3E 28 5A 57 53 50 32 |.5.. LDY#>(ZWSP2|
000015B0: 29 3B C6 C1 C3 3D 5A 57 53 50 32 2F C6 C1 C3 00 |);...=ZWSP2/....|
000015C0: A3 35 A2 08 20 4A 53 52 46 44 49 56 00 BD 35 AC |.5.. JSRFDIV..5.|
000015D0: 08 20 50 4C 41 3B 58 2F 59 20 41 55 46 20 D6 41 |. PLA;X/Y AUF .A|
000015E0: 52 49 41 42 4C 45 00 C6 35 B6 08 20 54 41 59 00 |RIABLE..5.. TAY.|
000015F0: CF 35 C0 08 20 50 4C 41 00 D8 35 CA 08 20 54 41 |.5.. PLA..5.. TA|
00001600: 58 00 F6 35 D4 08 20 4A 53 52 4D 4F 56 4D 46 3B |X..5.. JSRMOVMF;|
00001610: C6 C1 C3 20 49 4E 20 D6 41 52 49 41 42 4C 45 00 |... IN .ARIABLE.|
00001620: FF 35 DE 08 20 52 54 53 00 05 36 E8 08 3B 00 0B |.5.. RTS..6..;..|
00001630: 36 F2 08 3B 00 32 36 FC 08 3B 2A 2A 2A 2A 2A 2A |6..;.26..;******|
00001640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 36 06 09 |***********.Y6..|
00001660: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001680: 20 2A 00 80 36 10 09 3B 2A 20 20 20 20 20 20 D0 | *..6..;* .|
00001690: 52 4F 47 52 41 4D 4D 20 33 20 20 CD 4F 44 55 4C |ROGRAMM 3 .ODUL|
000016A0: 20 36 20 20 20 20 20 20 2A 00 A7 36 1A 09 3B 2A | 6 *..6..;*|
000016B0: 20 C1 52 43 55 53 43 4F 54 41 4E 47 45 4E 53 46 | .RCUSCOTANGENSF|
000016C0: 55 4E 4B 54 49 4F 4E 20 28 C1 C3 CF D4 29 20 2A |UNKTION (....) *|
000016D0: 00 CE 36 24 09 3B 2A 20 20 20 20 20 20 20 20 20 |..6$.;* |
000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016F0: 20 20 20 20 20 20 2A 00 F5 36 2E 09 3B 2A 2A 2A | *..6..;***|
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FB |**************..|
00001720: 36 38 09 3B 00 29 37 42 09 41 43 4F 54 20 4C 44 |68.;.)7B.ACOT LD|
00001730: 41 46 4F 52 50 4E 54 3B D6 41 52 49 41 42 4C 45 |AFORPNT;.ARIABLE|
00001740: 4E 5A 45 49 47 45 52 20 41 55 46 20 D3 54 41 50 |NZEIGER AUF .TAP|
00001750: 45 4C 00 32 37 4C 09 20 50 48 41 00 43 37 56 09 |EL.27L. PHA.C7V.|
00001760: 20 4C 44 41 46 4F 52 50 4E 54 2B 31 00 4C 37 60 | LDAFORPNT+1.L7`|
00001770: 09 20 50 48 41 00 69 37 6A 09 20 4A 53 52 43 48 |. PHA.i7j. JSRCH|
00001780: 4B 43 4F 4D 3B CB 4F 4D 4D 41 20 50 52 55 45 46 |KCOM;.OMMA PRUEF|
00001790: 45 4E 00 93 37 74 09 20 4A 53 52 46 52 4D 4E 55 |EN..7t. JSRFRMNU|
000017A0: 4D 3B CE 55 4D 45 52 49 53 43 48 45 4E 20 C1 55 |M;.UMERISCHEN .U|
000017B0: 53 44 52 55 43 4B 20 48 4F 4C 45 4E 00 B3 37 7E |SDRUCK HOLEN..7~|
000017C0: 09 20 4A 53 52 41 54 4E 3B C1 52 43 55 53 54 41 |. JSRATN;.RCUSTA|
000017D0: 4E 47 45 4E 53 20 42 49 4C 44 45 4E 00 D6 37 88 |NGENS BILDEN..7.|
000017E0: 09 20 4C 44 41 23 3C 28 50 49 48 41 4C 42 29 3B |. LDA#<(PIHALB);|
000017F0: DA 45 49 47 45 52 20 41 55 46 20 D0 49 2F 32 00 |.EIGER AUF .I/2.|
00001800: E9 37 92 09 20 4C 44 59 23 3E 28 50 49 48 41 4C |.7.. LDY#>(PIHAL|
00001810: 42 29 00 05 38 9C 09 20 4A 53 52 46 53 55 42 3B |B)..8.. JSRFSUB;|
00001820: C6 C1 C3 3D 50 49 48 41 4C 42 2D C6 C1 C3 00 1F |...=PIHALB-.....|
00001830: 38 A6 09 20 50 4C 41 3B 58 2F 59 20 41 55 46 20 |8.. PLA;X/Y AUF |
00001840: D6 41 52 49 41 42 4C 45 00 28 38 B0 09 20 54 41 |.ARIABLE.(8.. TA|
00001850: 59 00 31 38 BA 09 20 50 4C 41 00 3A 38 C4 09 20 |Y.18.. PLA.:8.. |
00001860: 54 41 58 00 58 38 CE 09 20 4A 53 52 4D 4F 56 4D |TAX.X8.. JSRMOVM|
00001870: 46 3B C6 C1 C3 20 49 4E 20 D6 41 52 49 41 42 4C |F;... IN .ARIABL|
00001880: 45 00 61 38 D8 09 20 52 54 53 00 67 38 E2 09 3B |E.a8.. RTS.g8..;|
00001890: 00 6D 38 EC 09 3B 00 94 38 F6 09 3B 2A 2A 2A 2A |.m8..;..8..;****|
000018A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB 38 |*************..8|
000018C0: 00 0A 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |..;* |
000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018E0: 20 20 20 2A 00 E2 38 0A 0A 3B 2A 20 20 20 20 20 | *..8..;* |
000018F0: 20 D0 52 4F 47 52 41 4D 4D 20 33 20 20 CD 4F 44 | .ROGRAMM 3 .OD|
00001900: 55 4C 20 37 20 20 20 20 20 20 2A 00 09 39 14 0A |UL 7 *..9..|
00001910: 3B 2A 20 20 20 C1 52 43 55 53 53 49 4E 55 53 46 |;* .RCUSSINUSF|
00001920: 55 4E 4B 54 49 4F 4E 20 28 C1 D2 C3 D3 29 20 20 |UNKTION (....) |
00001930: 20 2A 00 30 39 1E 0A 3B 2A 20 20 20 20 20 20 20 | *.09..;* |
00001940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001950: 20 20 20 20 20 20 20 20 2A 00 57 39 28 0A 3B 2A | *.W9(.;*|
00001960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001980: 00 5D 39 32 0A 3B 00 8B 39 3C 0A 41 53 49 4E 20 |.]92.;..9<.ASIN |
00001990: 4C 44 41 46 4F 52 50 4E 54 3B D6 41 52 49 41 42 |LDAFORPNT;.ARIAB|
000019A0: 4C 45 4E 5A 45 49 47 45 52 20 41 55 46 20 D3 54 |LENZEIGER AUF .T|
000019B0: 41 50 45 4C 00 94 39 46 0A 20 50 48 41 00 A5 39 |APEL..9F. PHA..9|
000019C0: 50 0A 20 4C 44 41 46 4F 52 50 4E 54 2B 31 00 AE |P. LDAFORPNT+1..|
000019D0: 39 5A 0A 20 50 48 41 00 CB 39 64 0A 20 4C 44 41 |9Z. PHA..9d. LDA|
000019E0: 23 24 30 30 3B C6 4C 41 47 47 45 20 41 55 46 20 |#$00;.LAGGE AUF |
000019F0: CE 55 4C 4C 00 DF 39 6E 0A 20 53 54 41 46 4C 41 |.ULL..9n. STAFLA|
00001A00: 47 3B 53 45 54 5A 45 4E 00 FC 39 78 0A 20 4A 53 |G;SETZEN..9x. JS|
00001A10: 52 43 48 4B 43 4F 4D 3B CB 4F 4D 4D 41 20 50 52 |RCHKCOM;.OMMA PR|
00001A20: 55 45 46 45 4E 00 26 3A 82 0A 20 4A 53 52 46 52 |UEFEN.&:.. JSRFR|
00001A30: 4D 4E 55 4D 3B CE 55 4D 45 52 49 53 43 48 45 4E |MNUM;.UMERISCHEN|
00001A40: 20 C1 55 53 44 52 55 43 4B 20 48 4F 4C 45 4E 00 | .USDRUCK HOLEN.|
00001A50: 49 3A 8C 0A 45 41 53 49 4E 20 4C 44 58 23 3C 28 |I:..EASIN LDX#<(|
00001A60: 5A 57 53 50 31 29 3B 55 4E 44 20 53 49 43 48 45 |ZWSP1);UND SICHE|
00001A70: 52 4E 00 5B 3A 96 0A 20 4C 44 59 23 3E 28 5A 57 |RN.[:.. LDY#>(ZW|
00001A80: 53 50 31 29 00 69 3A A0 0A 20 4A 53 52 4D 4F 56 |SP1).i:.. JSRMOV|
00001A90: 4D 46 00 8B 3A AA 0A 20 4A 53 52 41 42 53 3B C1 |MF..:.. JSRABS;.|
00001AA0: 42 53 4F 4C 55 54 57 45 52 54 20 42 45 52 45 43 |BSOLUTWERT BEREC|
00001AB0: 48 4E 45 4E 00 AA 3A B4 0A 20 4C 44 41 23 3C 28 |HNEN..:.. LDA#<(|
00001AC0: 45 49 4E 53 29 3B D6 45 52 47 4C 45 49 43 48 20 |EINS);.ERGLEICH |
00001AD0: 4D 49 54 00 CB 3A BE 0A 20 4C 44 59 23 3E 28 45 |MIT..:.. LDY#>(E|
00001AE0: 49 4E 53 29 3B C6 4C 49 45 53 53 4B 4F 4D 4D 41 |INS);.LIESSKOMMA|
00001AF0: 57 45 52 54 00 DF 3A C8 0A 20 4A 53 52 46 43 4F |WERT..:.. JSRFCO|
00001B00: 4D 50 3B 56 4F 4E 20 31 00 F6 3A D2 0A 20 42 45 |MP;VON 1..:.. BE|
00001B10: 51 41 52 47 4F 4B 3B 47 4C 45 49 43 48 20 31 00 |QARGOK;GLEICH 1.|
00001B20: 0E 3B DC 0A 20 52 4F 4C 3B C2 49 54 20 37 20 49 |.;.. ROL;.IT 7 I|
00001B30: 4E 20 C3 41 52 52 59 00 26 3B E6 0A 20 42 43 53 |N .ARRY.&;.. BCS|
00001B40: 41 52 47 4F 4B 3B 4B 4C 45 49 4E 45 52 20 31 00 |ARGOK;KLEINER 1.|
00001B50: 3D 3B F0 0A 20 50 4C 41 3B D3 54 41 50 45 4C 20 |=;.. PLA;.TAPEL |
00001B60: 4C 45 45 52 45 4E 00 46 3B FA 0A 20 50 4C 41 00 |LEEREN.F;.. PLA.|
00001B70: 60 3B 04 0B 20 4C 44 58 23 24 30 45 3B C6 45 48 |`;.. LDX#$0E;.EH|
00001B80: 4C 45 52 4E 55 4D 4D 45 52 00 7F 3B 0E 0B 20 4A |LERNUMMER..;.. J|
00001B90: 4D 50 45 52 52 4F 52 3B C6 45 48 4C 45 52 20 55 |MPERROR;.EHLER U|
00001BA0: 4E 44 20 D2 45 41 44 59 00 A3 3B 18 0B 41 52 47 |ND .EADY..;..ARG|
00001BB0: 4F 4B 20 4C 44 41 23 3C 28 5A 57 53 50 31 29 3B |OK LDA#<(ZWSP1);|
00001BC0: D7 45 52 54 20 5A 55 52 55 45 43 4B 00 BC 3B 22 |.ERT ZURUECK..;"|
00001BD0: 0B 20 4C 44 59 23 3E 28 5A 57 53 50 31 29 3B 49 |. LDY#>(ZWSP1);I|
00001BE0: 4E 20 C6 C1 C3 00 CA 3B 2C 0B 20 4A 53 52 4D 4F |N .....;,. JSRMO|
00001BF0: 56 46 4D 00 E7 3B 36 0B 20 4C 44 41 23 3C 28 5A |VFM..;6. LDA#<(Z|
00001C00: 57 53 50 31 29 3B C2 49 4C 44 45 4E 20 56 4F 4E |WSP1);.ILDEN VON|
00001C10: 00 FD 3B 40 0B 20 4C 44 59 23 3E 28 5A 57 53 50 |..;@. LDY#>(ZWSP|
00001C20: 31 29 3B 58 2A 58 00 13 3C 4A 0B 20 4A 53 52 46 |1);X*X..<J. JSRF|
00001C30: 4D 55 4C 54 3B C6 C1 C3 3D 58 5E 32 00 2F 3C 54 |MULT;...=X^2./<T|
00001C40: 0B 20 4C 44 41 23 3C 28 45 49 4E 53 29 3B C2 49 |. LDA#<(EINS);.I|
00001C50: 4C 44 45 4E 20 56 4F 4E 00 46 3C 5E 0B 20 4C 44 |LDEN VON.F<^. LD|
00001C60: 59 23 3E 28 45 49 4E 53 29 3B 31 2D C6 C1 C3 00 |Y#>(EINS);1-....|
00001C70: 5D 3C 68 0B 20 4A 53 52 46 53 55 42 3B C6 C1 C3 |]<h. JSRFSUB;...|
00001C80: 3D 31 2D 58 5E 32 00 78 3C 72 0B 20 4A 53 52 53 |=1-X^2.x<r. JSRS|
00001C90: 51 52 3B C6 C1 C3 3D D3 D1 D2 28 31 2D 58 5E 32 |QR;...=...(1-X^2|
00001CA0: 29 00 95 3C 7C 0B 20 4C 44 41 23 3C 28 5A 57 53 |)..<|. LDA#<(ZWS|
00001CB0: 50 31 29 3B C2 49 4C 44 45 4E 20 56 4F 4E 00 AD |P1);.ILDEN VON..|
00001CC0: 3C 86 0B 20 4C 44 59 23 3E 28 5A 57 53 50 31 29 |<.. LDY#>(ZWSP1)|
00001CD0: 3B 58 2F C6 C1 C3 00 CB 3C 90 0B 20 4A 53 52 46 |;X/.....<.. JSRF|
00001CE0: 44 49 56 3B C6 C1 C3 3D 58 2F D3 D1 D2 28 31 2D |DIV;...=X/...(1-|
00001CF0: 58 5E 32 29 00 E1 3C 9A 0B 20 4A 53 52 41 54 4E |X^2)..<.. JSRATN|
00001D00: 3B C6 C1 C3 3D C1 D3 C9 CE 21 00 FD 3C A4 0B 20 |;...=....!..<.. |
00001D10: 4C 44 41 46 4C 41 47 3B C6 4C 41 47 47 45 20 50 |LDAFLAG;.LAGGE P|
00001D20: 52 55 45 46 45 4E 00 1C 3D AE 0B 20 42 4E 45 52 |RUEFEN..=.. BNER|
00001D30: 45 54 4F 55 52 3B 5A 55 52 55 45 43 4B 20 5A 55 |ETOUR;ZURUECK ZU|
00001D40: 20 C1 C3 CF D3 00 31 3D B8 0B 20 50 4C 41 3B 49 | .....1=.. PLA;I|
00001D50: 4E 20 D6 41 52 49 41 42 4C 45 00 44 3D C2 0B 20 |N .ARIABLE.D=.. |
00001D60: 54 41 59 3B 53 43 48 52 45 49 42 45 4E 00 4D 3D |TAY;SCHREIBEN.M=|
00001D70: CC 0B 20 50 4C 41 00 56 3D D6 0B 20 54 41 58 00 |.. PLA.V=.. TAX.|
00001D80: 74 3D E0 0B 20 4A 53 52 4D 4F 56 4D 46 3B C6 C1 |t=.. JSRMOVMF;..|
00001D90: C3 20 49 4E 20 D6 41 52 49 41 42 4C 45 00 83 3D |. IN .ARIABLE..=|
00001DA0: EA 0B 52 45 54 4F 55 52 20 52 54 53 00 89 3D F4 |..RETOUR RTS..=.|
00001DB0: 0B 3B 00 8F 3D FE 0B 3B 00 B6 3D 08 0C 3B 2A 2A |.;..=..;..=..;**|
00001DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001DE0: DD 3D 12 0C 3B 2A 20 20 20 20 20 20 20 20 20 20 |.=..;* |
00001DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E00: 20 20 20 20 20 2A 00 04 3E 1C 0C 3B 2A 20 20 20 | *..>..;* |
00001E10: 20 20 20 D0 52 4F 47 52 41 4D 4D 20 33 20 20 CD | .ROGRAMM 3 .|
00001E20: 4F 44 55 4C 20 38 20 20 20 20 20 20 2A 00 2B 3E |ODUL 8 *.+>|
00001E30: 26 0C 3B 2A 20 20 C1 52 43 55 53 43 4F 53 49 4E |&.;* .RCUSCOSIN|
00001E40: 55 53 46 55 4E 4B 54 49 4F 4E 20 28 C1 D2 C3 C3 |USFUNKTION (....|
00001E50: 29 20 20 2A 00 52 3E 30 0C 3B 2A 20 20 20 20 20 |) *.R>0.;* |
00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E70: 20 20 20 20 20 20 20 20 20 20 2A 00 79 3E 3A 0C | *.y>:.|
00001E80: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00001E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EA0: 2A 2A 00 7F 3E 44 0C 3B 00 AD 3E 4E 0C 41 43 4F |**..>D.;..>N.ACO|
00001EB0: 53 20 4C 44 41 46 4F 52 50 4E 54 3B D6 41 52 49 |S LDAFORPNT;.ARI|
00001EC0: 41 42 4C 45 4E 5A 45 49 47 45 52 20 41 55 46 20 |ABLENZEIGER AUF |
00001ED0: D3 54 41 50 45 4C 00 B6 3E 58 0C 20 50 48 41 00 |.TAPEL..>X. PHA.|
00001EE0: C7 3E 62 0C 20 4C 44 41 46 4F 52 50 4E 54 2B 31 |.>b. LDAFORPNT+1|
00001EF0: 00 D0 3E 6C 0C 20 50 48 41 00 EC 3E 76 0C 20 4C |..>l. PHA..>v. L|
00001F00: 44 41 23 24 46 46 3B C6 4C 41 47 47 45 20 41 55 |DA#$FF;.LAGGE AU|
00001F10: 46 20 32 35 35 00 00 3F 80 0C 20 53 54 41 46 4C |F 255..?.. STAFL|
00001F20: 41 47 3B 53 45 54 5A 45 4E 00 1D 3F 8A 0C 20 4A |AG;SETZEN..?.. J|
00001F30: 53 52 43 48 4B 43 4F 4D 3B CB 4F 4D 4D 41 20 50 |SRCHKCOM;.OMMA P|
00001F40: 52 55 45 46 45 4E 00 47 3F 94 0C 20 4A 53 52 46 |RUEFEN.G?.. JSRF|
00001F50: 52 4D 4E 55 4D 3B CE 55 4D 45 52 49 53 43 48 45 |RMNUM;.UMERISCHE|
00001F60: 4E 20 C1 55 53 44 52 55 43 4B 20 48 4F 4C 45 4E |N .USDRUCK HOLEN|
00001F70: 00 68 3F 9E 0C 20 4A 53 52 45 41 53 49 4E 3B C2 |.h?.. JSREASIN;.|
00001F80: 45 52 45 43 48 4E 45 4E 20 44 45 53 20 41 53 49 |ERECHNEN DES ASI|
00001F90: 4E 00 86 3F A8 0C 20 4C 44 41 23 3C 28 50 49 48 |N..?.. LDA#<(PIH|
00001FA0: 41 4C 42 29 3B C2 49 4C 44 45 4E 20 44 45 52 00 |ALB);.ILDEN DER.|
00001FB0: A3 3F B2 0C 20 4C 44 59 23 3E 28 50 49 48 41 4C |.?.. LDY#>(PIHAL|
00001FC0: 42 29 3B C4 49 46 46 45 52 45 4E 5A 00 C5 3F BC |B);.IFFERENZ..?.|
00001FD0: 0C 20 4A 53 52 46 53 55 42 3B C6 C1 C3 3D 50 49 |. JSRFSUB;...=PI|
00001FE0: 48 41 4C 42 2D 41 53 49 4E 3D 41 43 4F 53 00 E8 |HALB-ASIN=ACOS..|
00001FF0: 3F C6 0C 20 4C 44 41 23 24 30 30 3B C6 4C 41 47 |?.. LDA#$00;.LAG|
00002000: 47 45 20 5A 55 52 55 45 43 4B 53 54 45 4C 4C 45 |GE ZURUECKSTELLE|
00002010: 4E 00 F5 3F D0 0C 20 53 54 41 46 4C 41 47 00 0A |N..?.. STAFLAG..|
00002020: 40 DA 0C 20 50 4C 41 3B 49 4E 20 D6 41 52 49 41 |@.. PLA;IN .ARIA|
00002030: 42 4C 45 00 1D 40 E4 0C 20 54 41 59 3B 53 43 48 |BLE..@.. TAY;SCH|
00002040: 52 45 49 42 45 4E 00 26 40 EE 0C 20 50 4C 41 00 |REIBEN.&@.. PLA.|
00002050: 2F 40 F8 0C 20 54 41 58 00 4D 40 02 0D 20 4A 53 |/@.. TAX.M@.. JS|
00002060: 52 4D 4F 56 4D 46 3B C6 C1 C3 20 49 4E 20 D6 41 |RMOVMF;... IN .A|
00002070: 52 49 41 42 4C 45 00 56 40 0C 0D 20 52 54 53 00 |RIABLE.V@.. RTS.|
00002080: 5C 40 16 0D 3B 00 62 40 20 0D 3B 00 89 40 2A 0D |\@..;.b@ .;..@*.|
00002090: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000020A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020B0: 2A 2A 00 B0 40 34 0D 3B 2A 20 20 20 20 20 20 20 |**..@4.;* |
000020C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020D0: 20 20 20 20 20 20 20 20 2A 00 D7 40 3E 0D 3B 2A | *..@>.;*|
000020E0: 20 20 20 20 20 20 D0 52 4F 47 52 41 4D 4D 20 33 | .ROGRAMM 3|
000020F0: 20 20 CD 4F 44 55 4C 20 39 20 20 20 20 20 20 2A | .ODUL 9 *|
00002100: 00 FE 40 48 0D 3B 2A 20 20 D0 4F 4C 59 4E 4F 4D |..@H.;* .OLYNOM|
00002110: 42 45 52 45 43 48 4E 55 4E 47 20 20 20 20 28 D0 |BERECHNUNG (.|
00002120: CF CC D9 29 20 20 2A 00 25 41 52 0D 3B 2A 20 20 |...) *.%AR.;* |
00002130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002140: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 4C | *.L|
00002150: 41 5C 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |A\.;************|
00002160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002170: 2A 2A 2A 2A 2A 00 52 41 66 0D 3B 00 80 41 70 0D |*****.RAf.;..Ap.|
00002180: 50 4F 4C 59 20 4C 44 41 46 4F 52 50 4E 54 3B D6 |POLY LDAFORPNT;.|
00002190: 41 52 49 41 42 4C 45 4E 5A 45 49 47 45 52 20 41 |ARIABLENZEIGER A|
000021A0: 55 46 20 D3 54 41 50 45 4C 00 89 41 7A 0D 20 50 |UF .TAPEL..Az. P|
000021B0: 48 41 00 9A 41 84 0D 20 4C 44 41 46 4F 52 50 4E |HA..A.. LDAFORPN|
000021C0: 54 2B 31 00 A3 41 8E 0D 20 50 48 41 00 C0 41 98 |T+1..A.. PHA..A.|
000021D0: 0D 20 4A 53 52 43 48 4B 43 4F 4D 3B CB 4F 4D 4D |. JSRCHKCOM;.OMM|
000021E0: 41 20 50 52 55 45 46 45 4E 00 EA 41 A2 0D 20 4A |A PRUEFEN..A.. J|
000021F0: 53 52 46 52 4D 4E 55 4D 3B CE 55 4D 45 52 49 53 |SRFRMNUM;.UMERIS|
00002200: 43 48 45 4E 20 C1 55 53 44 52 55 43 4B 20 48 4F |CHEN .USDRUCK HO|
00002210: 4C 45 4E 00 08 42 AC 0D 20 4C 44 58 23 3C 28 5A |LEN..B.. LDX#<(Z|
00002220: 57 53 50 31 29 3B 55 4E 44 20 53 49 43 48 45 52 |WSP1);UND SICHER|
00002230: 4E 00 1A 42 B6 0D 20 4C 44 59 23 3E 28 5A 57 53 |N..B.. LDY#>(ZWS|
00002240: 50 31 29 00 28 42 C0 0D 20 4A 53 52 4D 4F 56 4D |P1).(B.. JSRMOVM|
00002250: 46 00 43 42 CA 0D 20 4A 53 52 43 48 4B 43 4F 4D |F.CB.. JSRCHKCOM|
00002260: 3B D0 4F 4C 59 4E 4F 4D 47 52 41 44 00 64 42 D4 |;.OLYNOMGRAD.dB.|
00002270: 0D 20 4A 53 52 46 52 4D 4E 55 4D 3B 4E 41 45 43 |. JSRFRMNUM;NAEC|
00002280: 48 53 54 45 DA 41 48 4C 48 4F 4C 45 4E 00 8D 42 |HSTE.AHLHOLEN..B|
00002290: DE 0D 20 4A 53 52 46 41 43 49 4E 58 3B 49 4E 20 |.. JSRFACINX;IN |
000022A0: C9 4E 54 45 47 45 52 20 57 41 4E 44 45 4C 4E 20 |.NTEGER WANDELN |
000022B0: 49 4E 20 D9 2F C1 00 A9 42 E8 0D 20 53 54 59 50 |IN ./...B.. STYP|
000022C0: 4F 4C 59 54 41 42 3B 55 4E 44 20 41 42 4C 45 47 |OLYTAB;UND ABLEG|
000022D0: 45 4E 00 C4 42 F2 0D 20 49 4E 59 3B CB 4F 45 46 |EN..B.. INY;.OEF|
000022E0: 46 49 5A 49 45 4E 54 45 4E 5A 41 48 4C 00 DB 42 |FIZIENTENZAHL..B|
000022F0: FC 0D 4D 30 20 53 54 59 46 4C 41 47 3B 53 49 43 |..M0 STYFLAG;SIC|
00002300: 48 45 52 4E 00 ED 42 06 0E 20 43 4C 43 3B C1 44 |HERN..B.. CLC;.D|
00002310: 44 49 45 52 45 4E 00 04 43 10 0E 20 4C 44 41 4D |DIEREN..C.. LDAM|
00002320: 31 2B 31 3B 56 4F 4E 20 35 20 5A 55 52 00 1F 43 |1+1;VON 5 ZUR..C|
00002330: 1A 0E 20 41 44 43 23 24 30 35 3B C1 42 4C 45 47 |.. ADC#$05;.BLEG|
00002340: 45 41 44 52 45 53 53 45 00 2C 43 24 0E 20 53 54 |EADRESSE.,C$. ST|
00002350: 41 4D 31 2B 31 00 39 43 2E 0E 20 4C 44 41 4D 32 |AM1+1.9C.. LDAM2|
00002360: 2B 31 00 46 43 38 0E 20 41 44 43 23 24 30 30 00 |+1.FC8. ADC#$00.|
00002370: 53 43 42 0E 20 53 54 41 4D 32 2B 31 00 6C 43 4C |SCB. STAM2+1.lCL|
00002380: 0E 20 4A 53 52 43 48 4B 43 4F 4D 3B 4E 41 45 43 |. JSRCHKCOM;NAEC|
00002390: 48 53 54 45 52 00 87 43 56 0E 20 4A 53 52 46 52 |HSTER..CV. JSRFR|
000023A0: 4D 4E 55 4D 3B CB 4F 45 46 46 49 5A 49 45 4E 54 |MNUM;.OEFFIZIENT|
000023B0: 00 AD 43 60 0E 4D 31 20 4C 44 58 23 3C 28 50 4F |..C`.M1 LDX#<(PO|
000023C0: 4C 59 56 41 52 29 3B 4C 53 42 20 DA 49 45 4C 41 |LYVAR);LSB .IELA|
000023D0: 44 52 45 53 53 45 00 C7 43 6A 0E 4D 32 20 4C 44 |DRESSE..Cj.M2 LD|
000023E0: 59 23 3E 28 50 4F 4C 59 56 41 52 29 3B 4D 53 42 |Y#>(POLYVAR);MSB|
000023F0: 00 DD 43 74 0E 20 4A 53 52 4D 4F 56 4D 46 3B 41 |..Ct. JSRMOVMF;A|
00002400: 42 4C 45 47 45 4E 00 F8 43 7E 0E 20 4C 44 59 46 |BLEGEN..C~. LDYF|
00002410: 4C 41 47 3B DA 41 45 48 4C 45 52 20 4C 41 44 45 |LAG;.AEHLER LADE|
00002420: 4E 00 01 44 88 0E 20 44 45 59 00 20 44 92 0E 20 |N..D.. DEY. D.. |
00002430: 42 4E 45 4D 30 3B 4E 4F 43 48 20 CB 4F 45 46 46 |BNEM0;NOCH .OEFF|
00002440: 49 5A 49 45 4E 54 45 4E 3F 00 41 44 9C 0E 20 4C |IZIENTEN?.AD.. L|
00002450: 44 41 23 3C 28 50 4F 4C 59 56 41 52 29 3B 52 45 |DA#<(POLYVAR);RE|
00002460: 53 54 41 55 52 49 45 52 45 4E 00 5E 44 A6 0E 20 |STAURIEREN.^D.. |
00002470: 53 54 41 4D 31 2B 31 3B 44 45 52 20 DA 49 45 4C |STAM1+1;DER .IEL|
00002480: 41 44 52 45 53 53 45 00 72 44 B0 0E 20 4C 44 41 |ADRESSE.rD.. LDA|
00002490: 23 3E 28 50 4F 4C 59 56 41 52 29 00 7F 44 BA 0E |#>(POLYVAR)..D..|
000024A0: 20 53 54 41 4D 32 2B 31 00 9A 44 C4 0E 20 4C 44 | STAM2+1..D.. LD|
000024B0: 41 23 3C 28 5A 57 53 50 31 29 3B C1 52 47 55 4D |A#<(ZWSP1);.RGUM|
000024C0: 45 4E 54 00 B4 44 CE 0E 20 4C 44 59 23 3E 28 5A |ENT..D.. LDY#>(Z|
000024D0: 57 53 50 31 29 3B 5A 55 52 55 45 43 4B 00 C9 44 |WSP1);ZURUECK..D|
000024E0: D8 0E 20 4A 53 52 4D 4F 56 46 4D 3B 49 4E 20 C6 |.. JSRMOVFM;IN .|
000024F0: C1 C3 00 E4 44 E2 0E 20 4C 44 41 23 3C 28 50 4F |....D.. LDA#<(PO|
00002500: 4C 59 54 41 42 29 3B C1 55 46 52 55 46 00 04 45 |LYTAB);.UFRUF..E|
00002510: EC 0E 20 4C 44 59 23 3E 28 50 4F 4C 59 54 41 42 |.. LDY#>(POLYTAB|
00002520: 29 3B 44 45 52 20 D2 4F 55 54 49 4E 45 00 1E 45 |);DER .OUTINE..E|
00002530: F6 0E 20 4A 53 52 50 4F 4C 59 58 3B C6 C1 C3 3D |.. JSRPOLYX;...=|
00002540: D0 CF CC D9 28 58 29 00 33 45 00 0F 20 50 4C 41 |....(X).3E.. PLA|
00002550: 3B 49 4E 20 D6 41 52 49 41 42 4C 45 00 46 45 0A |;IN .ARIABLE.FE.|
00002560: 0F 20 54 41 59 3B 53 43 48 52 45 49 42 45 4E 00 |. TAY;SCHREIBEN.|
00002570: 4F 45 14 0F 20 50 4C 41 00 58 45 1E 0F 20 54 41 |OE.. PLA.XE.. TA|
00002580: 58 00 76 45 28 0F 20 4A 53 52 4D 4F 56 4D 46 3B |X.vE(. JSRMOVMF;|
00002590: C6 C1 C3 20 49 4E 20 D6 41 52 49 41 42 4C 45 00 |... IN .ARIABLE.|
000025A0: 7F 45 32 0F 20 52 54 53 00 85 45 3C 0F 3B 00 8B |.E2. RTS..E<.;..|
000025B0: 45 46 0F 3B 00 B1 45 50 0F 3B 2A 2A 2A 2A 2A 2A |EF.;..EP.;******|
000025C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D7 45 5A 0F 3B |**********..EZ.;|
000025E0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000025F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00002600: 00 FD 45 64 0F 3B 2A 20 20 20 D0 52 4F 47 52 41 |..Ed.;* .ROGRA|
00002610: 4D 4D 20 33 20 D4 41 42 45 4C 4C 45 4E 4D 4F 44 |MM 3 .ABELLENMOD|
00002620: 55 4C 20 20 20 2A 00 23 46 6E 0F 3B 2A 20 20 20 |UL *.#Fn.;* |
00002630: D4 41 42 45 4C 4C 45 4E 20 55 4E 44 20 C8 49 4C |.ABELLEN UND .IL|
00002640: 46 53 5A 45 4C 4C 45 4E 20 20 20 2A 00 49 46 78 |FSZELLEN *.IFx|
00002650: 0F 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.;* |
00002660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002670: 20 2A 00 6F 46 82 0F 3B 2A 2A 2A 2A 2A 2A 2A 2A | *.oF..;********|
00002680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002690: 2A 2A 2A 2A 2A 2A 2A 2A 00 75 46 8C 0F 3B 00 99 |********.uF..;..|
000026A0: 46 96 0F 3B 2D 2D 2D 2D 2D 2D 20 CB 4F 4E 53 54 |F..;------ .ONST|
000026B0: 41 4E 54 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ANTEN ----------|
000026C0: 2D 2D 00 9F 46 A0 0F 3B 00 C8 46 AA 0F 42 4F 47 |--..F..;..F..BOG|
000026D0: 46 41 4B 20 2E 42 59 24 37 42 2C 24 30 45 2C 24 |FAK .BY$7B,$0E,$|
000026E0: 46 41 2C 24 33 35 2C 24 30 46 3B D0 49 2F 31 38 |FA,$35,$0F;.I/18|
000026F0: 30 00 F1 46 B4 0F 47 52 44 46 41 4B 20 2E 42 59 |0..F..GRDFAK .BY|
00002700: 24 38 36 2C 24 36 35 2C 24 32 45 2C 24 45 30 2C |$86,$65,$2E,$E0,|
00002710: 24 44 32 3B 31 38 30 2F D0 49 00 1A 47 BE 0F 4C |$D2;180/.I..G..L|
00002720: 4F 47 46 41 4B 20 2E 42 59 24 37 46 2C 24 35 45 |OGFAK .BY$7F,$5E|
00002730: 2C 24 35 42 2C 24 44 38 2C 24 41 41 3B 31 2F 4C |,$5B,$D8,$AA;1/L|
00002740: 4E 31 30 00 4E 47 C8 0F 5A 57 53 50 31 20 2E 42 |N10.NG..ZWSP1 .B|
00002750: 59 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 |Y$00,$00,$00,$00|
00002760: 2C 24 30 30 3B DA 57 49 53 43 48 45 4E 53 50 45 |,$00;.WISCHENSPE|
00002770: 49 43 48 45 52 20 31 00 75 47 D2 0F 5A 57 53 50 |ICHER 1.uG..ZWSP|
00002780: 32 20 2E 42 59 24 30 30 2C 24 30 30 2C 24 30 30 |2 .BY$00,$00,$00|
00002790: 2C 24 30 30 2C 24 30 30 3B 55 4E 44 20 32 00 99 |,$00,$00;UND 2..|
000027A0: 47 DC 0F 3B 2D 2D 2D 2D 2D 2D 20 C8 49 4C 46 53 |G..;------ .ILFS|
000027B0: 5A 45 4C 4C 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |ZELLEN ---------|
000027C0: 2D 2D 00 9F 47 E6 0F 3B 00 BE 47 F0 0F 42 45 46 |--..G..;..G..BEF|
000027D0: 4E 52 20 2E 42 59 24 30 30 3B C2 45 46 45 48 4C |NR .BY$00;.EFEHL|
000027E0: 53 4E 55 4D 4D 45 52 00 E2 47 FA 0F 41 4B 4B 55 |SNUMMER..G..AKKU|
000027F0: 20 2E 42 59 24 30 30 3B DA 57 27 D3 50 45 49 43 | .BY$00;.W'.PEIC|
00002800: 48 45 52 20 46 2E 20 C1 4B 4B 55 00 15 48 04 10 |HER F. .KKU..H..|
00002810: 46 4C 41 47 20 2E 42 59 24 30 30 3B CD 41 52 4B |FLAG .BY$00;.ARK|
00002820: 45 20 46 55 45 52 20 C1 C3 CF D3 2C 20 DA 41 45 |E FUER ...., .AE|
00002830: 48 4C 45 52 20 46 55 45 52 20 D0 CF CC D9 00 1B |HLER FUER ......|
00002840: 48 0E 10 3B 00 41 48 18 10 3B 2D 2D 2D 2D 20 D3 |H..;.AH..;---- .|
00002850: 50 52 55 4E 47 54 41 42 45 4C 4C 45 20 2D 2D 2D |PRUNGTABELLE ---|
00002860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 47 48 22 10 3B |----------.GH".;|
00002870: 00 59 48 2C 10 53 50 52 54 41 42 20 2E 42 59 24 |.YH,.SPRTAB .BY$|
00002880: 45 37 00 6C 48 36 10 53 50 52 54 41 42 31 20 2E |E7.lH6.SPRTAB1 .|
00002890: 42 59 24 41 37 00 78 48 40 10 20 2E 57 4F 41 55 |BY$A7.xH@. .WOAU|
000028A0: 53 00 84 48 4A 10 20 2E 57 4F 42 4F 47 00 90 48 |S..HJ. .WOBOG..H|
000028B0: 54 10 20 2E 57 4F 47 52 44 00 9D 48 5E 10 20 2E |T. .WOGRD..H^. .|
000028C0: 57 4F 44 4C 4F 47 00 A9 48 68 10 20 2E 57 4F 43 |WODLOG..Hh. .WOC|
000028D0: 4F 54 00 B6 48 72 10 20 2E 57 4F 41 43 4F 54 00 |OT..Hr. .WOACOT.|
000028E0: C3 48 7C 10 20 2E 57 4F 41 53 49 4E 00 D0 48 86 |.H|. .WOASIN..H.|
000028F0: 10 20 2E 57 4F 41 43 4F 53 00 DD 48 90 10 20 2E |. .WOACOS..H.. .|
00002900: 57 4F 50 4F 4C 59 00 05 49 9A 10 20 2E 42 59 30 |WOPOLY..I.. .BY0|
00002910: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00002920: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 0B |,0,0,0,0,0,0,0..|
00002930: 49 A4 10 3B 00 31 49 AE 10 3B 2D 2D 2D 2D 20 C2 |I..;.1I..;---- .|
00002940: 45 46 45 48 4C 53 54 41 42 45 4C 4C 45 20 2D 2D |EFEHLSTABELLE --|
00002950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 37 49 B8 10 3B |----------.7I..;|
00002960: 00 4B 49 C2 10 42 45 46 54 41 42 20 2E 54 58 22 |.KI..BEFTAB .TX"|
00002970: 41 55 53 22 00 55 49 CC 10 20 2E 42 59 30 00 63 |AUS".UI.. .BY0.c|
00002980: 49 D6 10 20 2E 54 58 22 42 4F 47 22 00 6D 49 E0 |I.. .TX"BOG".mI.|
00002990: 10 20 2E 42 59 30 00 7B 49 EA 10 20 2E 54 58 22 |. .BY0.{I.. .TX"|
000029A0: 47 52 44 22 00 85 49 F4 10 20 2E 42 59 30 00 94 |GRD"..I.. .BY0..|
000029B0: 49 FE 10 20 2E 54 58 22 44 4C 47 52 22 00 9E 49 |I.. .TX"DLGR"..I|
000029C0: 08 11 20 2E 42 59 30 00 AC 49 12 11 20 2E 54 58 |.. .BY0..I.. .TX|
000029D0: 22 43 4F 54 22 00 B6 49 1C 11 20 2E 42 59 30 00 |"COT"..I.. .BY0.|
000029E0: C5 49 26 11 20 2E 54 58 22 41 43 4F 54 22 00 CF |.I&. .TX"ACOT"..|
000029F0: 49 30 11 20 2E 42 59 30 00 DE 49 3A 11 20 2E 54 |I0. .BY0..I:. .T|
00002A00: 58 22 41 52 43 53 22 00 E8 49 44 11 20 2E 42 59 |X"ARCS"..ID. .BY|
00002A10: 30 00 F7 49 4E 11 20 2E 54 58 22 41 52 43 43 22 |0..IN. .TX"ARCC"|
00002A20: 00 01 4A 58 11 20 2E 42 59 30 00 10 4A 62 11 20 |..JX. .BY0..Jb. |
00002A30: 2E 54 58 22 50 4F 4C 59 22 00 1C 4A 6C 11 20 2E |.TX"POLY"..Jl. .|
00002A40: 42 59 30 2C 30 00 22 4A 76 11 3B 00 48 4A 80 11 |BY0,0."Jv.;.HJ..|
00002A50: 3B C8 49 45 52 4E 41 43 48 20 4E 4F 43 48 20 D0 |;.IERNACH NOCH .|
00002A60: 4C 41 54 5A 20 46 55 45 52 20 57 45 49 54 45 52 |LATZ FUER WEITER|
00002A70: 45 00 64 4A 8A 11 3B 38 20 C2 45 46 45 48 4C 53 |E.dJ..;8 .EFEHLS|
00002A80: 54 45 58 54 45 20 4C 41 53 53 45 4E 2E 00 6A 4A |TEXTE LASSEN..jJ|
00002A90: 94 11 3B 00 86 4A 9E 11 20 2E 42 59 30 2C 30 2C |..;..J.. .BY0,0,|
00002AA0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 |0,0,0,0,0,0,0,0.|
00002AB0: A2 4A A8 11 20 2E 42 59 30 2C 30 2C 30 2C 30 2C |.J.. .BY0,0,0,0,|
00002AC0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 BE 4A B2 11 |0,0,0,0,0,0..J..|
00002AD0: 20 2E 42 59 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C | .BY0,0,0,0,0,0,|
00002AE0: 30 2C 30 2C 30 2C 30 00 DA 4A BC 11 20 2E 42 59 |0,0,0,0..J.. .BY|
00002AF0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00002B00: 30 2C 30 00 F6 4A C6 11 20 2E 42 59 30 2C 30 2C |0,0..J.. .BY0,0,|
00002B10: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 |0,0,0,0,0,0,0,0.|
00002B20: 12 4B D0 11 20 2E 42 59 30 2C 30 2C 30 2C 30 2C |.K.. .BY0,0,0,0,|
00002B30: 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 18 4B DA 11 |0,0,0,0,0,0..K..|
00002B40: 3B 00 3B 4B E4 11 3B 2D 2D 2D 20 D4 41 42 45 4C |;.;K..;--- .ABEL|
00002B50: 4C 45 20 46 55 45 52 20 D0 4F 4C 59 4E 4F 4D 45 |LE FUER .OLYNOME|
00002B60: 20 2D 2D 2D 00 41 4B EE 11 3B 00 64 4B F8 11 50 | ---.AK..;.dK..P|
00002B70: 4F 4C 59 54 41 42 20 2E 42 59 30 2C 30 2C 30 2C |OLYTAB .BY0,0,0,|
00002B80: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 80 4B |0,0,0,0,0,0,0..K|
00002B90: 02 12 20 2E 42 59 30 2C 30 2C 30 2C 30 2C 30 2C |.. .BY0,0,0,0,0,|
00002BA0: 30 2C 30 2C 30 2C 30 2C 30 00 9C 4B 0C 12 20 2E |0,0,0,0,0..K.. .|
00002BB0: 42 59 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |BY0,0,0,0,0,0,0,|
00002BC0: 30 2C 30 2C 30 00 B8 4B 16 12 20 2E 42 59 30 2C |0,0,0..K.. .BY0,|
00002BD0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00002BE0: 30 00 D4 4B 20 12 20 2E 42 59 30 2C 30 2C 30 2C |0..K . .BY0,0,0,|
00002BF0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 F0 4B |0,0,0,0,0,0,0..K|
00002C00: 2A 12 20 2E 42 59 30 2C 30 2C 30 2C 30 2C 30 2C |*. .BY0,0,0,0,0,|
00002C10: 30 2C 30 2C 30 2C 30 2C 30 00 0C 4C 34 12 20 2E |0,0,0,0,0..L4. .|
00002C20: 42 59 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |BY0,0,0,0,0,0,0,|
00002C30: 30 2C 30 2C 30 00 28 4C 3E 12 20 2E 42 59 30 2C |0,0,0.(L>. .BY0,|
00002C40: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00002C50: 30 00 2E 4C 48 12 3B 00 00 00 20 |0..LH.;... |
X.....;******************************.
..;* *.D ..;*
PROGRAMM 3 / MODUL 1 *.H (.;*
ERWEITERUNG DER *.. 2.;* INTE
RPRETERSCHLEIFE *.. <.;*
*.T F.;* HEIMO PONNATH
HH 1986 *.. P.;*
*..!Z.;*************************
*****."!D.;.0!N. .BA$5000.6!X.;.Z!..;---
--- LABELS ----------------.`!..;..!.. .
EQFORPNT=$49;VARIABLENZEIGER..! . .EQCHR
GET=$73;CHRGET-ROUTINE.G!.. .EQCHRGOT=$7
9;CHRGOT-ROUTINE..!.. .EQTXTPTR=$7A;CHRG
ET-ZEIGER..!..;.."H. .EQIGONE=$0308;VEKT
OR ZUM ROUTINENAUFRUF.""R.;.N".. .EQERRO
R=$A437;FEHLERMELDUNG UND READY.W".. .EQ
NEWSTT=$A7AE;INTERPRETERSCHLEIFE..".. .E
QGONE1=$A7E4;ALTER INHALT VON IGONE.P"..
.EQINTEND=$A7E7;ENDE INTERPRETERSCHLEIF
E..".. .EQFRMNUM=$AD8A;NUMERISCHEN WERT
EINLESEN.%#.. .EQCHKCOM=$AEFD;KOMMA UEBE
RLESEN.P#.. .EQFACINX=$B1AA;FAC ZU INTEG
ER IN Y/A..#". .EQGETBYTC=$B79B;BYTE IN
X-REGISTER EINLESEN..#,. .EQFSUB=$B850;F
AC=MEM-FAC..#6. .EQEINS=$B9BC;DAS IST 1.
.#@. .EQLOG=$B9EA;FAC=LOG(FAC)..#J. .EQF
MULT=$BA28;FAC=FAC*MEM..$T. .EQFDIV=$BB0
F;FAC=MEM/FAC.;$^. .EQMOVFM=$BBA2;MEM IN
FAC._$H. .EQMOVMF=$BBD4;FAC IN SPEICHER
.~$R. .EQABS=$BC58;FAC=ABS(FAC)..$|. .EQ
FCOMP=$BC5B;VERGLEICH FAC MIT MEM.G$.. .
EQSQR=$BF71;FAC=SQR(FAC)..$.. .EQPOLYX=$
E059;POLYNOMAUSWERTUNG..%.. .EQCOS=$E264
;FAC=COS(FAC).+%.. .EQSIN=$E26B;FAC=SIN(
FAC).M%.. .EQPIHALB=$E2E0;DAS IST PI/2.L
%.. .EQATN=$E30E;FAC=ATN(FAC).R%B.;..%L.
.EQPOLYVAR=POLYTAB-4..%V.;..%..;------
INITIALISIERUNG -------..%..;..%..INIT L
DA#<(START);LSB EIGENE ROUTINE..&.. STAI
GONE;IN VEKTOR SCHREIBEN..&.. LDA#>(STAR
T);MSB.-&.. STAIGONE+1.6&.. RTS.<&&.;.`&
0.;------ ABSCHALTEN ------------.F&:.;.
.&D.AUS LDA#<(GONE1);VEKTOR AUF..&N. STA
IGONE;NORMALWERT..&X. LDA#>(GONE1);ZURUE
CKSTELLEN.P&B. STAIGONE+1.Y&L. RTS..&V.;
..'..;-ERWEITERTE INTERPRETERSCHLEIFE-..
'..;.-'..START JSRCHRGET;ZEICHEN HOLEN.E
'.. CMP#$60;BUCHSTABE?.]'.. BCSENDE;BASI
C-CODE.X'.. CMP#$41;BUCHSTABE A ?..'.. B
CCENDE;SONDERZEICHEN..'F. STAAKKU;AKKU S
ICHERN..'P. LDX#$00.Y'Z. STXBEFNR;BEFEHL
SNR. AUF 0..'..INT1 LDY#$00..(.. INCBEFN
R;BEFEHLSNR. + 1.3(.. LDABEFTAB,X;ZEICHE
N AUS BEFEHLSTABELLE.R(.. BNEINT2;KEIN T
RENNZEICHEN.X(..;.Q(.. LDAAKKU;ZURUECK I
NS..( .ENDE JSRCHRGOT;NORMALE BASIC..(*.
JMPINTEND;SPRINGEN..(4.;.T(>.;--- ADRES
SE SUCHEN -----------.Z(H.;..)R.INT2 CMP
(TXTPTR),Y;VERGLEICH MIT BASICTEXT..)\.
BNEREST;UNGLEICH.9)F. INY;BASICTEXTINDEX
+1.U)P. INX;BEFEHLTAB.-INDEX+1.X)Z. LDAB
EFTAB,X;NAECHSTES ZEICHEN..).. BNEINT2;P
RUEFEN..).. CLC..).. TYA;BEFEHLSINDEX UM
.L).. ADCTXTPTR;BEFEHLSLAENGE..).. STATX
TPTR;ERHOEHEN..).. BCCLAB1;UEBERTRAG?..*
.. INCTXTPTR+1;MSB ERHOEHEN.7*J.LAB1 LDA
BEFNR;BEFEHLSNR..K*T. ASL;VERDOPPELN.E*.
. TAX;UND ALS INDEX IN..*.. LDASPRTAB,X;
SPRUNGTABELLE. *.. STASPRUNG+1;LSB SPRUN
G..*.. LDASPRTAB1,X;MSB LESEN.Q*.. STASP
RUNG+2;MSB.W*..;..*..;-- SELBSTMODIFIZIE
RENDER TEIL --..+$.;..+..SPRUNG JSR$FFFF
;DUMMY.#+8.;.I+B.;-- ZURUECK ZUM INTERPR
ETER -----.O+L.;.\+V. JMPENDE.B+`.;..+J.
;-RESTL. BEFEHLSTEXT UEBERLESEN--..+T.;.
.+~.REST INX..+.. LDABEFTAB,X.J+.. BNERE
ST;BIS TRENNZEICHEN.S+.. INX..+.. JMPINT
1;NAECHSTER BEFEHL..+..;..+..;.$,D.;****
*****************************.K,N.;*
*.R,X.;*
PROGRAMM 3 MODUL 2 *..,..;* UMREC
HNUNG IN BOGENMASS (BOG) *..,..;*
*..,..;*********
************************..,..;..-..BOG L
DAFORPNT;VARIABLENZEIGER AUF STAPEL.#-..
PHA.4-.. LDAFORPNT+1.=-(. PHA.Z-2. JSRC
HKCOM;KOMMA PRUEFEN..-<. JSRFRMNUM;NUMER
ISCHEN AUSDRUCK HOLEN..-F. LDA#<(BOGFAK)
;FAKTOR PI/180..-P. LDY#>(BOGFAK).U-Z. J
SRFMULT;MULTIPLIKATION..-D. PLA;X/Y AUF
VARIABLE..-N. TAY...X. PLA..... TAX.(...
JSRMOVMF;FAC IN VARIABLE.1... RTS.7. .;
.=...;.D...;****************************
*****.....;*
*...H.;* PROGRAMM 3 MODUL 3
*.Y.R.;* UMRECHNUNG IN GRADMASS (GRD)
*../..;*
*.'/..;*********************************
.-/..;.Z/..GRD LDAFORPNT;VARIABLENZEIGER
AUF STAPEL.C/.. PHA.T/.. LDAFORPNT+1.}/
.. PHA../". JSRCHKCOM;KOMMA PRUEFEN.D/,.
JSRFRMNUM;NUMERISCHEN AUSDRUCK HOLEN../
6. LDA#<(GRDFAK);FAKTOR 180/PI../@. LDY#
>(GRDFAK)..0J. JSRFMULT;MULTIPLIKATION./
0T. PLA;X/Y AUF VARIABLE.80^. TAY.A0H. P
LA.J0R. TAX.H0|. JSRMOVMF;FAC IN VARIABL
E.Q0.. RTS.W0..;.}0..;..0..;************
*********************.K0..;*
*..0..;* PROGRAM
M 3 MODUL 4 *..1B.;* DEKADISCHER L
OGARITHMUS(DLGR) *.@1L.;*
*.G1V.;*****************
****************.M1..;..1..DLOG LDAFORPN
T;VARIABLENZEIGER AUF STAPEL..1.. PHA..1
.. LDAFORPNT+1..1.. PHA..1.. JSRCHKCOM;K
OMMA PRUEFEN..2.. JSRFRMNUM;NUMERISCHEN
AUSDRUCK HOLEN. 2&. JSRLOG;LOGARITHMIERE
N.A20. LDA#<(LOGFAK);FAKTOR 1/LN10.T2:.
LDY#>(LOGFAK).Q2D. JSRFMULT;MULTIPLIKATI
ON..2N. PLA;X/Y AUF VARIABLE..2X. TAY..2
B. PLA..2L. TAX.D2V. JSRMOVMF;FAC IN VAR
IABLE.M2.. RTS.S2..;.Y2..;..3..;********
*************************.'3..;*
*.N3..;* PRO
GRAMM 3 MODUL 5 *.U3..;* KOTANG
ENSFUNKTION (COT) *..3F.;*
*.C3P.;*************
********************.I3Z.;..3..COT LDAFO
RPNT;VARIABLENZEIGER AUF STAPEL..3.. PHA
..4.. LDAFORPNT+1..4.. PHA.64.. JSRCHKCO
M;KOMMA PRUEFEN.`4.. JSRFRMNUM;NUMERISCH
EN AUSDRUCK HOLEN..4 . LDX#<(ZWSP1);UND
BEISEITE LEGEN..4*. LDY#>(ZWSP1)..44. JS
RMOVMF..4>. JSRCOS;COSINUS BILDEN..4H. L
DX#<(ZWSP2);UND SICHERN..4R. LDY#>(ZWSP2
)..4\. JSRMOVMF."5F. LDA#<(ZWSP1);WERT Z
URUECKHOLEN.45P. LDY#>(ZWSP1).B5Z. JSRMO
VFM.[5.. JSRSIN;SINUS BILDEN.V5.. LDA#<(
ZWSP2);DIVISION..5.. LDY#>(ZWSP2);FAC=ZW
SP2/FAC..5.. JSRFDIV..5.. PLA;X/Y AUF VA
RIABLE.F5.. TAY.O5.. PLA.X5J. TAX..5T. J
SRMOVMF;FAC IN VARIABLE..5.. RTS..6..;..
6..;.26..;******************************
***.Y6..;*
*..6..;* PROGRAMM 3 MODUL 6
*..6..;* ARCUSCOTANGENSFUNKTION (ACOT) *
.N6$.;* *.
.6..;*********************************..
68.;.)7B.ACOT LDAFORPNT;VARIABLENZEIGER
AUF STAPEL.27L. PHA.C7V. LDAFORPNT+1.L7`
. PHA.I7J. JSRCHKCOM;KOMMA PRUEFEN..7T.
JSRFRMNUM;NUMERISCHEN AUSDRUCK HOLEN..7~
. JSRATN;ARCUSTANGENS BILDEN.V7.. LDA#<(
PIHALB);ZEIGER AUF PI/2..7.. LDY#>(PIHAL
B)..8.. JSRFSUB;FAC=PIHALB-FAC..8.. PLA;
X/Y AUF VARIABLE.(8.. TAY.18.. PLA.:8D.
TAX.X8N. JSRMOVMF;FAC IN VARIABLE.A8X. R
TS.G8..;.M8..;..8..;********************
*************..8..;*
*..8..;* PROGRAMM 3 MOD
UL 7 *..9..;* ARCUSSINUSFUNKTION
(ARCS) *.09..;*
*.W9(.;*************************
********.]92.;..9<.ASIN LDAFORPNT;VARIAB
LENZEIGER AUF STAPEL..9F. PHA..9P. LDAFO
RPNT+1..9Z. PHA.K9D. LDA#$00;FLAGGE AUF
NULL..9N. STAFLAG;SETZEN..9X. JSRCHKCOM;
KOMMA PRUEFEN.&:.. JSRFRMNUM;NUMERISCHEN
AUSDRUCK HOLEN.I:..EASIN LDX#<(ZWSP1);U
ND SICHERN.[:.. LDY#>(ZWSP1).I: . JSRMOV
MF..:.. JSRABS;ABSOLUTWERT BERECHNEN..:.
. LDA#<(EINS);VERGLEICH MIT.K:.. LDY#>(E
INS);FLIESSKOMMAWERT..:H. JSRFCOMP;VON 1
..:R. BEQARGOK;GLEICH 1..;.. ROL;BIT 7 I
N CARRY.&;.. BCSARGOK;KLEINER 1.=;.. PLA
;STAPEL LEEREN.F;.. PLA.`;.. LDX#$0E;FEH
LERNUMMER.;.. JMPERROR;FEHLER UND READY
..;..ARGOK LDA#<(ZWSP1);WERT ZURUECK..;"
. LDY#>(ZWSP1);IN FAC.J;,. JSRMOVFM..;6.
LDA#<(ZWSP1);BILDEN VON..;@. LDY#>(ZWSP
1);X*X..<J. JSRFMULT;FAC=X^2./<T. LDA#<(
EINS);BILDEN VON.F<^. LDY#>(EINS);1-FAC.
]<H. JSRFSUB;FAC=1-X^2.X<R. JSRSQR;FAC=S
QR(1-X^2)..<|. LDA#<(ZWSP1);BILDEN VON..
<.. LDY#>(ZWSP1);X/FAC.K<.. JSRFDIV;FAC=
X/SQR(1-X^2)..<.. JSRATN;FAC=ASIN!..<..
LDAFLAG;FLAGGE PRUEFEN..=.. BNERETOUR;ZU
RUECK ZU ACOS.1=.. PLA;IN VARIABLE.D=B.
TAY;SCHREIBEN.M=L. PLA.V=V. TAX.T=.. JSR
MOVMF;FAC IN VARIABLE..=..RETOUR RTS..=.
.;..=..;..=..;**************************
*******..=..;*
*..>..;* PROGRAMM 3 MODUL 8
*.+>&.;* ARCUSCOSINUSFUNKTION (ARCC
) *.R>0.;*
*.Y>:.;*******************************
**.>D.;..>N.ACOS LDAFORPNT;VARIABLENZEI
GER AUF STAPEL..>X. PHA.G>B. LDAFORPNT+1
.P>L. PHA..>V. LDA#$FF;FLAGGE AUF 255..?
.. STAFLAG;SETZEN..?.. JSRCHKCOM;KOMMA P
RUEFEN.G?.. JSRFRMNUM;NUMERISCHEN AUSDRU
CK HOLEN.H?.. JSREASIN;BERECHNEN DES ASI
N..?.. LDA#<(PIHALB);BILDEN DER..?.. LDY
#>(PIHALB);DIFFERENZ.E?.. JSRFSUB;FAC=PI
HALB-ASIN=ACOS..?F. LDA#$00;FLAGGE ZURUE
CKSTELLEN..?P. STAFLAG..@Z. PLA;IN VARIA
BLE..@.. TAY;SCHREIBEN.&@.. PLA./@.. TAX
.M@.. JSRMOVMF;FAC IN VARIABLE.V@.. RTS.
\@..;.B@ .;..@*.;***********************
**********..@4.;*
*.W@>.;* PROGRAMM 3 MODUL
9 *..@H.;* POLYNOMBERECHNUNG (P
OLY) *.%AR.;*
*.LA\.;****************************
*****.RAF.;..AP.POLY LDAFORPNT;VARIABLEN
ZEIGER AUF STAPEL..AZ. PHA..A.. LDAFORPN
T+1..A.. PHA..A.. JSRCHKCOM;KOMMA PRUEFE
N..A.. JSRFRMNUM;NUMERISCHEN AUSDRUCK HO
LEN..B.. LDX#<(ZWSP1);UND SICHERN..B.. L
DY#>(ZWSP1).(B.. JSRMOVMF.CBJ. JSRCHKCOM
;POLYNOMGRAD.DBT. JSRFRMNUM;NAECHSTEZAHL
HOLEN..B.. JSRFACINX;IN INTEGER WANDELN
IN Y/A..B.. STYPOLYTAB;UND ABLEGEN.DB..
INY;KOEFFIZIENTENZAHL..B..M0 STYFLAG;SIC
HERN..B.. CLC;ADDIEREN..C.. LDAM1+1;VON
5 ZUR..C.. ADC#$05;ABLEGEADRESSE.,C$. ST
AM1+1.9C.. LDAM2+1.FC8. ADC#$00.SCB. STA
M2+1.LCL. JSRCHKCOM;NAECHSTER..CV. JSRFR
MNUM;KOEFFIZIENT..C`.M1 LDX#<(POLYVAR);L
SB ZIELADRESSE.GCJ.M2 LDY#>(POLYVAR);MSB
..CT. JSRMOVMF;ABLEGEN..C~. LDYFLAG;ZAEH
LER LADEN..D.. DEY. D.. BNEM0;NOCH KOEFF
IZIENTEN?.AD.. LDA#<(POLYVAR);RESTAURIER
EN.^D.. STAM1+1;DER ZIELADRESSE.RD.. LDA
#>(POLYVAR).D.. STAM2+1..DD. LDA#<(ZWSP
1);ARGUMENT..DN. LDY#>(ZWSP1);ZURUECK.ID
X. JSRMOVFM;IN FAC..D.. LDA#<(POLYTAB);A
UFRUF..E.. LDY#>(POLYTAB);DER ROUTINE..E
.. JSRPOLYX;FAC=POLY(X).3E.. PLA;IN VARI
ABLE.FE.. TAY;SCHREIBEN.OE.. PLA.XE.. TA
X.VE(. JSRMOVMF;FAC IN VARIABLE.E2. RTS
..E<.;..EF.;..EP.;**********************
**********.WEZ.;*
*..ED.;* PROGRAMM 3 TABELLENMOD
UL *.#FN.;* TABELLEN UND HILFSZELLEN
*.IFX.;*
*.OF..;********************************
.UF..;..F..;------ KONSTANTEN ----------
--..F .;.HF..BOGFAK .BY$7B,$0E,$FA,$35,$
0F;PI/180..F..GRDFAK .BY$86,$65,$2E,$E0,
$D2;180/PI..G..LOGFAK .BY$7F,$5E,$5B,$D8
,$AA;1/LN10.NGH.ZWSP1 .BY$00,$00,$00,$00
,$00;ZWISCHENSPEICHER 1.UGR.ZWSP2 .BY$00
,$00,$00,$00,$00;UND 2..G..;------ HILFS
ZELLEN -----------..G..;..G..BEFNR .BY$0
0;BEFEHLSNUMMER..G..AKKU .BY$00;ZW'SPEIC
HER F. AKKU..H..FLAG .BY$00;MARKE FUER A
COS, ZAEHLER FUER POLY..H..;.AH..;---- S
PRUNGTABELLE -------------.GH".;.YH,.SPR
TAB .BY$E7.LH6.SPRTAB1 .BY$A7.XH@. .WOAU
S..HJ. .WOBOG..HT. .WOGRD..H^. .WODLOG..
HH. .WOCOT..HR. .WOACOT.CH|. .WOASIN.PH.
. .WOACOS..H.. .WOPOLY..I.. .BY0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0..I..;.1I..;---- B
EFEHLSTABELLE ------------.7I..;.KIB.BEF
TAB .TX"AUS".UIL. .BY0.CIV. .TX"BOG".MI.
. .BY0.{I.. .TX"GRD"..I.. .BY0..I.. .TX"
DLGR"..I.. .BY0..I.. .TX"COT"..I.. .BY0.
EI&. .TX"ACOT".OI0. .BY0..I:. .TX"ARCS".
.ID. .BY0..IN. .TX"ARCC"..JX. .BY0..JB.
.TX"POLY"..JL. .BY0,0."JV.;.HJ..;HIERNAC
H NOCH PLATZ FUER WEITERE.DJ..;8 BEFEHLS
TEXTE LASSEN..JJ..;..J.. .BY0,0,0,0,0,0,
0,0,0,0..J.. .BY0,0,0,0,0,0,0,0,0,0..J..
.BY0,0,0,0,0,0,0,0,0,0.ZJ.. .BY0,0,0,0,
0,0,0,0,0,0..JF. .BY0,0,0,0,0,0,0,0,0,0.
.KP. .BY0,0,0,0,0,0,0,0,0,0..KZ.;.;K..;-
-- TABELLE FUER POLYNOME ---.AK..;.DK..P
OLYTAB .BY0,0,0,0,0,0,0,0,0,0..K.. .BY0,
0,0,0,0,0,0,0,0,0..K.. .BY0,0,0,0,0,0,0,
0,0,0..K.. .BY0,0,0,0,0,0,0,0,0,0.TK . .
BY0,0,0,0,0,0,0,0,0,0..K*. .BY0,0,0,0,0,
0,0,0,0,0..L4. .BY0,0,0,0,0,0,0,0,0,0.(L
>. .BY0,0,0,0,0,0,0,0,0,0..LH.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL