QUICKROOT.2.ASS
FILE INFORMATION
FILENAME(S): QUICKROOT.2.ASS
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-02 00:10:13
APPEARS ON: 1 disk(s)
FILE HASH
3eb4a17cc99a1fdf4369da254916ca4e31172bb5d5d16e56af50d5fc7fa064ba
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10008 SEITE A | QUICKROOT.2.ASS | PRG | earthshaker | 32 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 FF FF |.DURCHL LDA($F..|
000001A0: FF FF FF 33 FF FF FF FF FF FF FF FF FF A9 A0 FF |...3............|
000001B0: 31 E0 26 98 FF FF FF FF FF FF FF FF FF FF FF FF |1.&.............|
000001C0: FF 24 E4 FF FF FF FF FF 2D F8 11 68 CA 88 A8 8B |.$......-..h....|
000001D0: FF 9A 48 9A 9A C8 14 A8 C9 F8 A8 89 99 DD FF 8F |..H.............|
000001E0: E8 CE 98 A8 8A 8B 99 D9 9D DE 8A C9 FF F8 19 A8 |................|
000001F0: 49 88 A8 89 99 DA 48 AC 0C 45 48 85 4B 4F 50 49 |I.....H..EH.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 56 FF FF DD FF FF EE 46 20 5B 31 2C 34 29 00 |AV......F [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 FF FF FF FF FF FF 8B 08 FF 5C 80 EE 8B 8F |R$.........\....|
00000480: FF 88 9F EC E8 A9 9C A4 0D 9D FF D0 54 88 D9 9C |............T...|
00000490: A8 9D 9F 9F 9D B9 ED 9D E8 DA 88 9F 9D EC 9D B9 |................|
000004A0: 88 FF 8B 49 FF 88 9F 99 9C A9 9C A4 0D BF 9C B9 |...I............|
000004B0: 81 FF 89 F8 FF 88 A8 AC AC ED DD E8 FF 4C 81 FF |.............L..|
000004C0: 89 78 FF 88 9F EC E8 81 86 8B F9 FF ED DD E8 FF |.x..............|
000004D0: 44 88 D9 9C FF 88 F4 8B 79 FF 88 9F 99 9C D9 9C |D.......y.......|
000004E0: A8 9D 9F 9F 9E 16 4A CA 8F FF 81 F4 8B FF FF 88 |......J.........|
000004F0: EC D9 9C A9 9C AC 27 4D 41 4E 00 DE 24 F2 08 20 |......'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 0B FF FF FF FF FF FF FF FF FF FF FF E2 D3 |%`..............|
000005C0: FF FF FC FF FF F3 FF FF FF FF FF FF FF FF FF FF |................|
000005D0: FF FF FF F3 FF FF BD FF FF F3 FF FF FF FF FF FF |................|
000005E0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF D2 FF |................|
000005F0: FF ED FF FF 20 58 49 00 E2 25 88 09 20 4C 44 59 |.... 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 FF FF FF FF E2 FF FF BD |&.. STAF........|
000006F0: FF FF 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 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |,...............|
00000910: FF FF FF FF FF FF FF FF FF 40 C4 C0 86 40 C4 FF |.........@...@..|
00000920: FF FF FF FF 3C 98 F9 F9 FF 98 F9 FF FF C9 FF FF |....<...........|
00000930: FF FF FF FF FF 98 F9 99 FF 98 F9 99 FF 98 F9 78 |...............x|
00000940: FF 98 F9 78 FF 98 F9 79 FF 98 F9 B8 FF 98 F9 B8 |...x...y........|
00000950: FF 98 F9 B9 FF 98 F9 B9 FF 98 F9 FF FF 23 13 92 |.............#..|
00000960: C3 23 13 92 C3 23 23 02 C3 23 23 02 C3 23 23 12 |.#...##..##..##.|
00000970: C3 23 23 10 09 32 91 C0 C2 ED FF FF FF FF FF FF |.##..2..........|
00000980: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000990: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
000009A0: FF FF FF FF B4 04 0C FF 64 04 0C FF 64 04 05 08 |........d...d...|
000009B0: FF FF FF FF C9 89 9F FF 99 8B FF FF B7 FF FF FF |................|
000009C0: FF FF FF FF FF FF C4 86 40 FF FF 3C 98 99 98 FF |........@..<....|
000009D0: 98 9B FF 64 0D 99 FF 99 89 97 FF F9 89 B4 2F 32 |...d........../2|
000009E0: 37 FF FF 40 44 CE 8F 40 44 D2 6A 22 2C 32 33 37 |7..@D..@D.j",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($F.....3.......... .1.&.....
.........$......-..HJ.....H..H..I.......
.N.....Y...I....I....ZH..EH.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; ANPAV......F [1,4)..#R. EOR#$01..#\
. CLC..#F. ADC#$81..$P. STAFAC'EXP..$Z.;
.+$.. LDX#<(DPL'RAD); MERKEN.?$.. LDY#>(
DPL'RAD).M$.. JSR$.........\............
...PT.Y..........Z.........I............
.............L...X..............D.Y.....
Y.....Y.......JJ.........Y....'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..%`.............S........
......................................R.
.... 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
&.. STAF........... 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,...............
.........@D..@D.....<........I..........
.......X...X...Y.....................#..
C#..C##.C##.C##.C##..2..B...............
................................D...D...
....I.................D.@..<.......D....
....../27..@DN.@DRJ",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...
> CLICK IMAGE PREVIEW FOR FULL MODAL