QUICKROOT.2.ASS

00000000: D8 1F FD 1F 64 00 2E 42  41 20 24 43 30 30 30 20  |....d..BA $C000 |
00000010: 20 20 20 20 20 20 20 20  20 3B 20 51 55 49 43 4B  |         ; QUICK|
00000020: 52 4F 4F 54 2E 32 00 03  20 6E 00 3B 00 25 20 C8  |ROOT.2.. n.;.% .|
00000030: 00 2E 47 4C 20 4D 52 4B  27 45 58 50 20 3D 20 24  |..GL MRK'EXP = $|
00000040: 30 32 20 20 3B 20 45 58  50 4F 4E 45 4E 54 00 4A  |02  ; EXPONENT.J|
00000050: 20 D2 00 2E 47 4C 20 5A  41 45 48 4C 20 20 20 3D  | ...GL ZAEHL   =|
00000060: 20 24 42 44 20 20 3B 20  44 55 52 43 48 4C 41 45  | $BD  ; DURCHLAE|
00000070: 55 46 45 00 50 20 DC 00  3B 00 76 20 E6 00 2E 47  |UFE.P ..;.v ...G|
00000080: 4C 20 46 41 43 27 45 58  50 20 3D 20 24 36 31 20  |L FAC'EXP = $61 |
00000090: 20 3B 20 46 41 43 2D 41  44 52 45 53 53 45 4E 00  | ; FAC-ADRESSEN.|
000000A0: 8C 20 F0 00 2E 47 4C 20  46 41 43 27 4D 41 4E 20  |. ...GL FAC'MAN |
000000B0: 3D 20 24 36 32 00 A2 20  FA 00 2E 47 4C 20 46 41  |= $62.. ...GL FA|
000000C0: 43 27 56 4F 52 20 3D 20  24 36 36 00 A8 20 04 01  |C'VOR = $66.. ..|
000000D0: 3B 00 B8 20 0E 01 3B 20  44 55 50 4C 49 4B 41 54  |;.. ..; DUPLIKAT|
000000E0: 45 00 BE 20 18 01 3B 00  DF 20 22 01 2E 47 4C 20  |E.. ..;.. "..GL |
000000F0: 44 50 4C 27 52 41 44 20  3D 20 24 43 31 35 34 3B  |DPL'RAD = $C154;|
00000100: 20 52 41 44 49 41 4E 54  00 04 21 2C 01 2E 47 4C  | RADIANT..!,..GL|
00000110: 20 44 50 4C 27 58 49 20  20 3D 20 24 43 31 35 39  | DPL'XI  = $C159|
00000120: 3B 20 46 4F 4C 47 45 4E  47 4C 49 45 44 00 0A 21  |; FOLGENGLIED..!|
00000130: 36 01 3B 00 10 21 40 01  3B 00 31 21 E8 03 20 4C  |6.;..!@.;.1!.. L|
00000140: 44 59 23 24 30 30 3B 20  42 41 53 49 43 2D 52 4F  |DY#$00; BASIC-RO|
00000150: 4D 20 4B 4F 50 49 45 52  45 4E 00 3E 21 F2 03 20  |M KOPIEREN.>!.. |
00000160: 4C 44 41 23 24 41 30 00  4A 21 FC 03 20 53 54 59  |LDA#$A0.J!.. STY|
00000170: 24 46 42 00 56 21 06 04  20 53 54 41 24 46 43 00  |$FB.V!.. STA$FC.|
00000180: 63 21 10 04 20 4C 44 58  23 24 32 30 00 79 21 1A  |c!.. LDX#$20.y!.|
00000190: 04 44 55 52 43 48 4C 20  4C 44 41 28 24 46 42 29  |.DURCHL LDA($FB)|
000001A0: 2C 59 00 89 21 24 04 20  53 54 41 28 24 46 42 29  |,Y..!$. STA($FB)|
000001B0: 2C 59 00 92 21 2E 04 20  49 4E 59 00 A1 21 38 04  |,Y..!.. INY..!8.|
000001C0: 20 42 4E 45 44 55 52 43  48 4C 00 AD 21 42 04 20  | BNEDURCHL..!B. |
000001D0: 49 4E 43 24 46 43 00 B6  21 4C 04 20 44 45 58 00  |INC$FC..!L. DEX.|
000001E0: C5 21 56 04 20 42 4E 45  44 55 52 43 48 4C 00 E4  |.!V. BNEDURCHL..|
000001F0: 21 60 04 20 44 45 43 24  30 31 3B 20 4B 4F 50 49  |!`. DEC$01; KOPI|
00000200: 45 20 45 49 4E 53 43 48  41 4C 54 45 4E 00 EA 21  |E EINSCHALTEN..!|
00000210: 6A 04 3B 00 12 22 74 04  20 4C 44 41 23 3C 28 57  |j.;.."t. LDA#<(W|
00000220: 55 52 5A 45 4C 29 3B 20  53 51 52 2D 5A 45 49 47  |URZEL); SQR-ZEIG|
00000230: 45 52 20 55 4D 53 45 54  5A 45 4E 00 20 22 7E 04  |ER UMSETZEN. "~.|
00000240: 20 53 54 41 24 41 30 35  45 00 33 22 88 04 20 4C  | STA$A05E.3".. L|
00000250: 44 41 23 3E 28 57 55 52  5A 45 4C 29 00 41 22 92  |DA#>(WURZEL).A".|
00000260: 04 20 53 54 41 24 41 30  35 46 00 4A 22 9C 04 20  |. STA$A05F.J".. |
00000270: 52 54 53 00 50 22 A6 04  3B 00 56 22 B0 04 3B 00  |RTS.P"..;.V"..;.|
00000280: 78 22 DC 05 20 4C 44 41  23 24 34 43 3B 20 55 53  |x".. LDA#$4C; US|
00000290: 52 2D 5A 45 49 47 45 52  20 55 4D 53 45 54 5A 45  |R-ZEIGER UMSETZE|
000002A0: 4E 00 86 22 E6 05 20 53  54 41 24 30 33 31 30 00  |N..".. STA$0310.|
000002B0: 99 22 F0 05 20 4C 44 41  23 3C 28 57 55 52 5A 45  |.".. LDA#<(WURZE|
000002C0: 4C 29 00 AC 22 FA 05 20  4C 44 58 23 3E 28 57 55  |L)..".. LDX#>(WU|
000002D0: 52 5A 45 4C 29 00 BA 22  04 06 20 53 54 41 24 30  |RZEL)..".. STA$0|
000002E0: 33 31 31 00 C8 22 0E 06  20 53 54 58 24 30 33 31  |311..".. STX$031|
000002F0: 32 00 D1 22 18 06 20 52  54 53 00 D7 22 22 06 3B  |2..".. RTS.."".;|
00000300: 00 DD 22 2C 06 3B 00 F9  22 D0 07 57 55 52 5A 45  |..",.;.."..WURZE|
00000310: 4C 20 4A 53 52 24 42 43  31 42 3B 20 52 55 4E 44  |L JSR$BC1B; RUND|
00000320: 45 4E 00 FF 22 DA 07 3B  00 15 23 E4 07 20 4C 44  |EN.."..;..#.. LD|
00000330: 41 46 41 43 27 45 58 50  3B 20 3D 30 20 3F 00 23  |AFAC'EXP; =0 ?.#|
00000340: 23 EE 07 20 42 4E 45 57  55 52 5A 31 00 34 23 F8  |#.. BNEWURZ1.4#.|
00000350: 07 20 52 54 53 3B 20 46  45 52 54 49 47 00 3A 23  |. RTS; FERTIG.:#|
00000360: 02 08 3B 00 55 23 0C 08  57 55 52 5A 31 20 42 49  |..;.U#..WURZ1 BI|
00000370: 54 46 41 43 27 56 4F 52  3B 20 3C 30 20 3F 00 63  |TFAC'VOR; <0 ?.c|
00000380: 23 16 08 20 42 50 4C 57  55 52 5A 32 00 83 23 20  |#.. BPLWURZ2..# |
00000390: 08 20 4A 4D 50 24 42 32  34 38 3B 20 49 4C 4C 45  |. JMP$B248; ILLE|
000003A0: 47 41 4C 20 51 55 41 4E  54 49 54 59 00 89 23 2A  |GAL QUANTITY..#*|
000003B0: 08 3B 00 AF 23 34 08 57  55 52 5A 32 20 53 54 41  |.;..#4.WURZ2 STA|
000003C0: 4D 52 4B 27 45 58 50 3B  20 45 58 50 4F 4E 45 4E  |MRK'EXP; EXPONEN|
000003D0: 54 20 4D 45 52 4B 45 4E  00 B5 23 3E 08 3B 00 D6  |T MERKEN..#>.;..|
000003E0: 23 48 08 20 41 4E 44 23  24 30 31 3B 20 41 4E 50  |#H. AND#$01; ANP|
000003F0: 41 53 53 45 4E 20 41 55  46 20 5B 31 2C 34 29 00  |ASSEN AUF [1,4).|
00000400: E3 23 52 08 20 45 4F 52  23 24 30 31 00 EC 23 5C  |.#R. EOR#$01..#\|
00000410: 08 20 43 4C 43 00 F9 23  66 08 20 41 44 43 23 24  |. CLC..#f. ADC#$|
00000420: 38 31 00 09 24 70 08 20  53 54 41 46 41 43 27 45  |81..$p. STAFAC'E|
00000430: 58 50 00 0F 24 7A 08 3B  00 2B 24 84 08 20 4C 44  |XP..$z.;.+$.. LD|
00000440: 58 23 3C 28 44 50 4C 27  52 41 44 29 3B 20 4D 45  |X#<(DPL'RAD); ME|
00000450: 52 4B 45 4E 00 3F 24 8E  08 20 4C 44 59 23 3E 28  |RKEN.?$.. LDY#>(|
00000460: 44 50 4C 27 52 41 44 29  00 4D 24 98 08 20 4A 53  |DPL'RAD).M$.. JS|
00000470: 52 24 42 42 44 34 00 53  24 A2 08 3B 00 77 24 AC  |R$BBD4.S$..;.w$.|
00000480: 08 20 4C 53 52 46 41 43  27 45 58 50 3B 20 54 41  |. LSRFAC'EXP; TA|
00000490: 42 45 4C 4C 45 4E 57 45  52 54 20 4C 45 53 45 4E  |BELLENWERT LESEN|
000004A0: 00 87 24 B6 08 20 4C 44  41 46 41 43 27 4D 41 4E  |..$.. LDAFAC'MAN|
000004B0: 00 95 24 C0 08 20 42 43  43 57 55 52 5A 33 00 9E  |..$.. BCCWURZ3..|
000004C0: 24 CA 08 20 4C 53 52 00  AC 24 D4 08 57 55 52 5A  |$.. LSR..$..WURZ|
000004D0: 33 20 54 41 58 00 C1 24  DE 08 20 4C 44 41 54 41  |3 TAX..$.. LDATA|
000004E0: 42 45 4C 4C 45 2D 36 34  2C 58 00 D1 24 E8 08 20  |BELLE-64,X..$.. |
000004F0: 53 54 41 46 41 43 27 4D  41 4E 00 DE 24 F2 08 20  |STAFAC'MAN..$.. |
00000500: 4C 44 41 23 24 30 30 00  F0 24 FC 08 20 53 54 41  |LDA#$00..$.. STA|
00000510: 46 41 43 27 4D 41 4E 2B  31 00 02 25 06 09 20 53  |FAC'MAN+1..%.. S|
00000520: 54 41 46 41 43 27 4D 41  4E 2B 32 00 14 25 10 09  |TAFAC'MAN+2..%..|
00000530: 20 53 54 41 46 41 43 27  4D 41 4E 2B 33 00 21 25  | STAFAC'MAN+3.!%|
00000540: 1A 09 20 4C 44 41 23 24  38 31 00 31 25 24 09 20  |.. LDA#$81.1%$. |
00000550: 53 54 41 46 41 43 27 45  58 50 00 37 25 2E 09 3B  |STAFAC'EXP.7%..;|
00000560: 00 51 25 38 09 20 4C 44  41 23 24 30 32 3B 20 44  |.Q%8. LDA#$02; D|
00000570: 55 52 43 48 4C 41 45 55  46 45 00 5F 25 42 09 20  |URCHLAEUFE._%B. |
00000580: 53 54 41 5A 41 45 48 4C  00 65 25 4C 09 3B 00 85  |STAZAEHL.e%L.;..|
00000590: 25 56 09 57 55 52 5A 34  20 4C 44 58 23 3C 28 44  |%V.WURZ4 LDX#<(D|
000005A0: 50 4C 27 58 49 29 3B 20  4D 45 52 4B 45 4E 00 98  |PL'XI); MERKEN..|
000005B0: 25 60 09 20 4C 44 59 23  3E 28 44 50 4C 27 58 49  |%`. LDY#>(DPL'XI|
000005C0: 29 00 A6 25 6A 09 20 4A  53 52 24 42 42 44 34 00  |)..%j. JSR$BBD4.|
000005D0: AC 25 74 09 3B 00 CE 25  7E 09 20 4C 44 41 23 3C  |.%t.;..%~. LDA#<|
000005E0: 28 44 50 4C 27 52 41 44  29 3B 20 52 41 44 49 41  |(DPL'RAD); RADIA|
000005F0: 4E 54 20 2F 20 58 49 00  E2 25 88 09 20 4C 44 59  |NT / XI..%.. LDY|
00000600: 23 3E 28 44 50 4C 27 52  41 44 29 00 F0 25 92 09  |#>(DPL'RAD)..%..|
00000610: 20 4A 53 52 24 42 42 30  46 00 F6 25 9C 09 3B 00  | JSR$BB0F..%..;.|
00000620: 13 26 A6 09 20 4C 44 41  23 3C 28 44 50 4C 27 58  |.&.. LDA#<(DPL'X|
00000630: 49 29 3B 20 2E 2E 2E 20  2B 20 58 49 00 26 26 B0  |I); ... + XI.&&.|
00000640: 09 20 4C 44 59 23 3E 28  44 50 4C 27 58 49 29 00  |. LDY#>(DPL'XI).|
00000650: 34 26 BA 09 20 4A 53 52  24 42 38 36 37 00 3A 26  |4&.. JSR$B867.:&|
00000660: C4 09 3B 00 53 26 CE 09  20 44 45 43 46 41 43 27  |..;.S&.. DECFAC'|
00000670: 45 58 50 3B 20 2E 2E 2E  20 2F 20 32 00 59 26 D8  |EXP; ... / 2.Y&.|
00000680: 09 3B 00 67 26 E2 09 20  44 45 43 5A 41 45 48 4C  |.;.g&.. DECZAEHL|
00000690: 00 75 26 EC 09 20 42 4E  45 57 55 52 5A 34 00 7B  |.u&.. BNEWURZ4.{|
000006A0: 26 F6 09 3B 00 9F 26 00  0A 20 4C 44 41 4D 52 4B  |&..;..&.. LDAMRK|
000006B0: 27 45 58 50 3B 20 45 58  50 4F 4E 45 4E 54 20 42  |'EXP; EXPONENT B|
000006C0: 45 52 45 43 48 4E 45 4E  00 A8 26 0A 0A 20 4C 53  |ERECHNEN..&.. LS|
000006D0: 52 00 B5 26 14 0A 20 41  44 43 23 24 34 30 00 C5  |R..&.. ADC#$40..|
000006E0: 26 1E 0A 20 53 54 41 46  41 43 27 45 58 50 00 CE  |&.. STAFAC'EXP..|
000006F0: 26 28 0A 20 52 54 53 00  D4 26 32 0A 3B 00 DA 26  |&(. RTS..&2.;..&|
00000700: 3C 0A 3B 00 05 27 B8 0B  54 41 42 45 4C 4C 45 20  |<.;..'..TABELLE |
00000710: 2E 42 59 31 32 38 3B 20  55 4E 47 45 46 41 45 48  |.BY128; UNGEFAEH|
00000720: 52 45 20 57 55 52 5A 45  4C 57 45 52 54 45 00 0B  |RE WURZELWERTE..|
00000730: 27 C2 0B 3B 00 53 27 CC  0B 2E 42 59 20 20 20 20  |'..;.S'...BY    |
00000740: 20 31 32 39 2C 31 33 30  2C 31 33 31 2C 31 33 32  | 129,130,131,132|
00000750: 2C 31 33 33 2C 31 33 34  2C 31 33 35 2C 31 33 36  |,133,134,135,136|
00000760: 2C 31 33 37 2C 31 33 38  2C 31 33 39 2C 31 34 30  |,137,138,139,140|
00000770: 2C 31 34 31 2C 31 34 32  2C 31 34 33 00 9B 27 D6  |,141,142,143..'.|
00000780: 0B 2E 42 59 20 31 34 34  2C 31 34 34 2C 31 34 35  |..BY 144,144,145|
00000790: 2C 31 34 36 2C 31 34 37  2C 31 34 38 2C 31 34 39  |,146,147,148,149|
000007A0: 2C 31 35 30 2C 31 35 31  2C 31 35 31 2C 31 35 32  |,150,151,151,152|
000007B0: 2C 31 35 33 2C 31 35 34  2C 31 35 35 2C 31 35 36  |,153,154,155,156|
000007C0: 2C 31 35 36 00 E3 27 E0  0B 2E 42 59 20 31 35 37  |,156..'...BY 157|
000007D0: 2C 31 35 38 2C 31 35 39  2C 31 36 30 2C 31 36 30  |,158,159,160,160|
000007E0: 2C 31 36 31 2C 31 36 32  2C 31 36 33 2C 31 36 34  |,161,162,163,164|
000007F0: 2C 31 36 34 2C 31 36 35  2C 31 36 36 2C 31 36 37  |,164,165,166,167|
00000800: 2C 31 36 37 2C 31 36 38  2C 31 36 39 00 2B 28 EA  |,167,168,169.+(.|
00000810: 0B 2E 42 59 20 31 37 30  2C 31 37 30 2C 31 37 31  |..BY 170,170,171|
00000820: 2C 31 37 32 2C 31 37 33  2C 31 37 33 2C 31 37 34  |,172,173,173,174|
00000830: 2C 31 37 35 2C 31 37 36  2C 31 37 36 2C 31 37 37  |,175,176,176,177|
00000840: 2C 31 37 38 2C 31 37 39  2C 31 37 39 2C 31 38 30  |,178,179,179,180|
00000850: 2C 31 38 31 00 73 28 F4  0B 2E 42 59 20 31 38 31  |,181.s(...BY 181|
00000860: 2C 31 38 32 2C 31 38 33  2C 31 38 33 2C 31 38 34  |,182,183,183,184|
00000870: 2C 31 38 35 2C 31 38 36  2C 31 38 36 2C 31 38 37  |,185,186,186,187|
00000880: 2C 31 38 38 2C 31 38 38  2C 31 38 39 2C 31 39 30  |,188,188,189,190|
00000890: 2C 31 39 30 2C 31 39 31  2C 31 39 32 00 BB 28 FE  |,190,191,192..(.|
000008A0: 0B 2E 42 59 20 31 39 32  2C 31 39 33 2C 31 39 34  |..BY 192,193,194|
000008B0: 2C 31 39 34 2C 31 39 35  2C 31 39 36 2C 31 39 36  |,194,195,196,196|
000008C0: 2C 31 39 37 2C 31 39 38  2C 31 39 38 2C 31 39 39  |,197,198,198,199|
000008D0: 2C 32 30 30 2C 32 30 30  2C 32 30 31 2C 32 30 31  |,200,200,201,201|
000008E0: 2C 32 30 32 00 03 29 08  0C 2E 42 59 20 32 30 33  |,202..)...BY 203|
000008F0: 2C 32 30 33 2C 32 30 34  2C 32 30 35 2C 32 30 35  |,203,204,205,205|
00000900: 2C 32 30 36 2C 32 30 36  2C 32 30 37 2C 32 30 38  |,206,206,207,208|
00000910: 2C 32 30 38 2C 32 30 39  2C 32 31 30 2C 32 31 30  |,208,209,210,210|
00000920: 2C 32 31 31 2C 32 31 31  2C 32 31 32 00 4B 29 12  |,211,211,212.K).|
00000930: 0C 2E 42 59 20 32 31 33  2C 32 31 33 2C 32 31 34  |..BY 213,213,214|
00000940: 2C 32 31 34 2C 32 31 35  2C 32 31 36 2C 32 31 36  |,214,215,216,216|
00000950: 2C 32 31 37 2C 32 31 37  2C 32 31 38 2C 32 31 39  |,217,217,218,219|
00000960: 2C 32 31 39 2C 32 32 30  2C 32 32 30 2C 32 32 31  |,219,220,220,221|
00000970: 2C 32 32 31 00 93 29 1C  0C 2E 42 59 20 32 32 32  |,221..)...BY 222|
00000980: 2C 32 32 33 2C 32 32 33  2C 32 32 34 2C 32 32 34  |,223,223,224,224|
00000990: 2C 32 32 35 2C 32 32 35  2C 32 32 36 2C 32 32 37  |,225,225,226,227|
000009A0: 2C 32 32 37 2C 32 32 38  2C 32 32 38 2C 32 32 39  |,227,228,228,229|
000009B0: 2C 32 32 39 2C 32 33 30  2C 32 33 30 00 DB 29 26  |,229,230,230..)&|
000009C0: 0C 2E 42 59 20 32 33 31  2C 32 33 32 2C 32 33 32  |..BY 231,232,232|
000009D0: 2C 32 33 33 2C 32 33 33  2C 32 33 34 2C 32 33 34  |,233,233,234,234|
000009E0: 2C 32 33 35 2C 32 33 35  2C 32 33 36 2C 32 33 37  |,235,235,236,237|
000009F0: 2C 32 33 37 2C 32 33 38  2C 32 33 38 2C 32 33 39  |,237,238,238,239|
00000A00: 2C 32 33 39 00 23 2A 30  0C 2E 42 59 20 32 34 30  |,239.#*0..BY 240|
00000A10: 2C 32 34 30 2C 32 34 31  2C 32 34 31 2C 32 34 32  |,240,241,241,242|
00000A20: 2C 32 34 32 2C 32 34 33  2C 32 34 33 2C 32 34 34  |,242,243,243,244|
00000A30: 2C 32 34 34 2C 32 34 35  2C 32 34 36 2C 32 34 36  |,244,245,246,246|
00000A40: 2C 32 34 37 2C 32 34 37  2C 32 34 38 00 6B 2A 3A  |,247,247,248.k*:|
00000A50: 0C 2E 42 59 20 32 34 38  2C 32 34 39 2C 32 34 39  |..BY 248,249,249|
00000A60: 2C 32 35 30 2C 32 35 30  2C 32 35 31 2C 32 35 31  |,250,250,251,251|
00000A70: 2C 32 35 32 2C 32 35 32  2C 32 35 33 2C 32 35 33  |,252,252,253,253|
00000A80: 2C 32 35 34 2C 32 35 34  2C 32 35 35 2C 32 35 35  |,254,254,255,255|
00000A90: 2C 32 35 35 00 00 00                              |,255...         |

X...D..BA $C000          ; QUICKROOT.2..
 N.;.% H..GL MRK'EXP = $02  ; EXPONENT.J
 R..GL ZAEHL   = $BD  ; DURCHLAEUFE.P ..
;.V ...GL FAC'EXP = $61  ; FAC-ADRESSEN.
. ...GL FAC'MAN = $62.. ...GL FAC'VOR = 
$66.. ..;.. ..; DUPLIKATE.. ..;.. "..GL 
DPL'RAD = $C154; RADIANT..!,..GL DPL'XI 
 = $C159; FOLGENGLIED..!6.;..!@.;.1!.. L
DY#$00; BASIC-ROM KOPIEREN.>!.. LDA#$A0.
J!.. STY$FB.V!.. STA$FC.C!.. LDX#$20.Y!.
.DURCHL LDA($FB),Y..!$. STA($FB),Y..!.. 
INY..!8. BNEDURCHL..!B. INC$FC..!L. DEX.
E!V. BNEDURCHL..!`. DEC$01; KOPIE EINSCH
ALTEN..!J.;.."T. LDA#<(WURZEL); SQR-ZEIG
ER UMSETZEN. "~. STA$A05E.3".. LDA#>(WUR
ZEL).A".. STA$A05F.J".. RTS.P"..;.V"..;.
X".. LDA#$4C; USR-ZEIGER UMSETZEN..".. S
TA$0310..".. LDA#<(WURZEL)..".. LDX#>(WU
RZEL)..".. STA$0311.H".. STX$0312.Q".. R
TS.W"".;..",.;.."P.WURZEL JSR$BC1B; RUND
EN.."Z.;..#.. LDAFAC'EXP; =0 ?.##.. BNEW
URZ1.4#.. RTS; FERTIG.:#..;.U#..WURZ1 BI
TFAC'VOR; <0 ?.C#.. BPLWURZ2..# . JMP$B2
48; ILLEGAL QUANTITY..#*.;..#4.WURZ2 STA
MRK'EXP; EXPONENT MERKEN..#>.;.V#H. AND#
$01; ANPASSEN AUF [1,4)..#R. EOR#$01..#\
. CLC..#F. ADC#$81..$P. STAFAC'EXP..$Z.;
.+$.. LDX#<(DPL'RAD); MERKEN.?$.. LDY#>(
DPL'RAD).M$.. JSR$BBD4.S$..;.W$.. LSRFAC
'EXP; TABELLENWERT LESEN..$.. LDAFAC'MAN
..$.. BCCWURZ3..$J. LSR..$T.WURZ3 TAX.A$
.. LDATABELLE-64,X.Q$.. STAFAC'MAN..$.. 
LDA#$00..$.. STAFAC'MAN+1..%.. STAFAC'MA
N+2..%.. STAFAC'MAN+3.!%.. LDA#$81.1%$. 
STAFAC'EXP.7%..;.Q%8. LDA#$02; DURCHLAEU
FE._%B. STAZAEHL.E%L.;..%V.WURZ4 LDX#<(D
PL'XI); MERKEN..%`. LDY#>(DPL'XI)..%J. J
SR$BBD4..%T.;.N%~. LDA#<(DPL'RAD); RADIA
NT / XI..%.. LDY#>(DPL'RAD)..%.. JSR$BB0
F..%..;..&.. LDA#<(DPL'XI); ... + XI.&&.
. LDY#>(DPL'XI).4&.. JSR$B867.:&D.;.S&N.
 DECFAC'EXP; ... / 2.Y&X.;.G&.. DECZAEHL
.U&.. BNEWURZ4.{&..;..&.. LDAMRK'EXP; EX
PONENT BERECHNEN..&.. LSR..&.. ADC#$40.E
&.. STAFAC'EXP.N&(. RTS.T&2.;.Z&<.;..'..
TABELLE .BY128; UNGEFAEHRE WURZELWERTE..
'B.;.S'L..BY     129,130,131,132,133,134
,135,136,137,138,139,140,141,142,143..'V
..BY 144,144,145,146,147,148,149,150,151
,151,152,153,154,155,156,156..'...BY 157
,158,159,160,160,161,162,163,164,164,165
,166,167,167,168,169.+(...BY 170,170,171
,172,173,173,174,175,176,176,177,178,179
,179,180,181.S(...BY 181,182,183,183,184
,185,186,186,187,188,188,189,190,190,191
,192..(...BY 192,193,194,194,195,196,196
,197,198,198,199,200,200,201,201,202..).
..BY 203,203,204,205,205,206,206,207,208
,208,209,210,210,211,211,212.K)...BY 213
,213,214,214,215,216,216,217,217,218,219
,219,220,220,221,221..)...BY 222,223,223
,224,224,225,225,226,227,227,228,228,229
,229,230,230..)&..BY 231,232,232,233,233
,234,234,235,235,236,237,237,238,238,239
,239.#*0..BY 240,240,241,241,242,242,243
,243,244,244,245,246,246,247,247,248.K*:
..BY 248,249,249,250,250,251,251,252,252
,253,253,254,254,255,255,255...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL