QUICKROOT.1.ASS

FILE INFORMATION

FILENAME(S): QUICKROOT.1.ASS

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 01:12:45

APPEARS ON: 1 disk(s)

FILE HASH

387f6f2f6ba813d677d41f341bccd6ed73ab0fe5b13b8dd38dcaacc76043d90a

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10008 SEITE A	QUICKROOT.1.ASS	PRG	BrainSkull, Sammlung, C64er, DuncanTwain	4	15	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 31 00 03  20 6E 00 3B 00 25 20 C8  |ROOT.1.. 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 30 39 32 3B  |DPL'RAD = $C092;|
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 30 39 37  | DPL'XI  = $C097|
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 78 24 AC  |R$BBD4.S$..;.x$.|
00000480: 08 20 4C 44 41 4D 52 4B  27 45 58 50 3B 20 31 2E  |. LDAMRK'EXP; 1.|
00000490: 20 44 55 52 43 48 4C 41  55 46 20 44 49 52 45 4B  | DURCHLAUF DIREK|
000004A0: 54 00 81 24 B6 08 20 4C  53 52 00 8E 24 C0 08 20  |T..$.. LSR..$.. |
000004B0: 4C 44 41 23 24 38 30 00  9C 24 CA 08 20 42 43 53  |LDA#$80..$.. BCS|
000004C0: 57 55 52 5A 33 00 A5 24  D4 08 20 41 53 4C 00 BA  |WURZ3..$.. ASL..|
000004D0: 24 DE 08 57 55 52 5A 33  20 45 4F 52 46 41 43 27  |$..WURZ3 EORFAC'|
000004E0: 4D 41 4E 00 C3 24 E8 08  20 52 4F 52 00 D3 24 F2  |MAN..$.. ROR..$.|
000004F0: 08 20 53 54 41 46 41 43  27 4D 41 4E 00 E5 24 FC  |. STAFAC'MAN..$.|
00000500: 08 20 52 4F 52 46 41 43  27 4D 41 4E 2B 31 00 F7  |. RORFAC'MAN+1..|
00000510: 24 06 09 20 52 4F 52 46  41 43 27 4D 41 4E 2B 32  |$.. RORFAC'MAN+2|
00000520: 00 09 25 10 09 20 52 4F  52 46 41 43 27 4D 41 4E  |..%.. RORFAC'MAN|
00000530: 2B 33 00 16 25 1A 09 20  4C 44 41 23 24 38 31 00  |+3..%.. LDA#$81.|
00000540: 26 25 24 09 20 53 54 41  46 41 43 27 45 58 50 00  |&%$. STAFAC'EXP.|
00000550: 2C 25 2E 09 3B 00 46 25  38 09 20 4C 44 41 23 24  |,%..;.F%8. LDA#$|
00000560: 30 33 3B 20 44 55 52 43  48 4C 41 45 55 46 45 00  |03; DURCHLAEUFE.|
00000570: 54 25 42 09 20 53 54 41  5A 41 45 48 4C 00 5A 25  |T%B. STAZAEHL.Z%|
00000580: 4C 09 3B 00 7A 25 56 09  57 55 52 5A 34 20 4C 44  |L.;.z%V.WURZ4 LD|
00000590: 58 23 3C 28 44 50 4C 27  58 49 29 3B 20 4D 45 52  |X#<(DPL'XI); MER|
000005A0: 4B 45 4E 00 8D 25 60 09  20 4C 44 59 23 3E 28 44  |KEN..%`. LDY#>(D|
000005B0: 50 4C 27 58 49 29 00 9B  25 6A 09 20 4A 53 52 24  |PL'XI)..%j. JSR$|
000005C0: 42 42 44 34 00 A1 25 74  09 3B 00 C3 25 7E 09 20  |BBD4..%t.;..%~. |
000005D0: 4C 44 41 23 3C 28 44 50  4C 27 52 41 44 29 3B 20  |LDA#<(DPL'RAD); |
000005E0: 52 41 44 49 41 4E 54 20  2F 20 58 49 00 D7 25 88  |RADIANT / XI..%.|
000005F0: 09 20 4C 44 59 23 3E 28  44 50 4C 27 52 41 44 29  |. LDY#>(DPL'RAD)|
00000600: 00 E5 25 92 09 20 4A 53  52 24 42 42 30 46 00 EB  |..%.. JSR$BB0F..|
00000610: 25 9C 09 3B 00 08 26 A6  09 20 4C 44 41 23 3C 28  |%..;..&.. LDA#<(|
00000620: 44 50 4C 27 58 49 29 3B  20 2E 2E 2E 20 2B 20 58  |DPL'XI); ... + X|
00000630: 49 00 1B 26 B0 09 20 4C  44 59 23 3E 28 44 50 4C  |I..&.. LDY#>(DPL|
00000640: 27 58 49 29 00 29 26 BA  09 20 4A 53 52 24 42 38  |'XI).)&.. JSR$B8|
00000650: 36 37 00 2F 26 C4 09 3B  00 48 26 CE 09 20 44 45  |67./&..;.H&.. DE|
00000660: 43 46 41 43 27 45 58 50  3B 20 2E 2E 2E 20 2F 20  |CFAC'EXP; ... / |
00000670: 32 00 4E 26 D8 09 3B 00  5C 26 E2 09 20 44 45 43  |2.N&..;.\&.. DEC|
00000680: 5A 41 45 48 4C 00 6A 26  EC 09 20 42 4E 45 57 55  |ZAEHL.j&.. BNEWU|
00000690: 52 5A 34 00 70 26 F6 09  3B 00 94 26 00 0A 20 4C  |RZ4.p&..;..&.. L|
000006A0: 44 41 4D 52 4B 27 45 58  50 3B 20 45 58 50 4F 4E  |DAMRK'EXP; EXPON|
000006B0: 45 4E 54 20 42 45 52 45  43 48 4E 45 4E 00 9D 26  |ENT BERECHNEN..&|
000006C0: 0A 0A 20 4C 53 52 00 AA  26 14 0A 20 41 44 43 23  |.. LSR..&.. ADC#|
000006D0: 24 34 30 00 BA 26 1E 0A  20 53 54 41 46 41 43 27  |$40..&.. STAFAC'|
000006E0: 45 58 50 00 C3 26 28 0A  20 52 54 53 00 00 00     |EXP..&(. RTS... |

X...D..BA $C000          ; QUICKROOT.1..
 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 = $C092; RADIANT..!,..GL DPL'XI 
 = $C097; 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$..;.X$.. LDAMRK
'EXP; 1. DURCHLAUF DIREKT..$.. LSR..$.. 
LDA#$80..$J. BCSWURZ3..$T. ASL..$..WURZ3
 EORFAC'MAN.C$.. ROR.S$.. STAFAC'MAN..$.
. RORFAC'MAN+1..$.. RORFAC'MAN+2..%.. RO
RFAC'MAN+3..%.. LDA#$81.&%$. STAFAC'EXP.
,%..;.F%8. LDA#$03; DURCHLAEUFE.T%B. STA
ZAEHL.Z%L.;.Z%V.WURZ4 LDX#<(DPL'XI); MER
KEN..%`. LDY#>(DPL'XI)..%J. JSR$BBD4..%T
.;.C%~. LDA#<(DPL'RAD); RADIANT / XI.W%.
. LDY#>(DPL'RAD)..%.. JSR$BB0F..%..;..&.
. LDA#<(DPL'XI); ... + XI..&.. LDY#>(DPL
'XI).)&.. JSR$B867./&D.;.H&N. DECFAC'EXP
; ... / 2.N&X.;.\&.. DECZAEHL.J&.. BNEWU
RZ4.P&..;..&.. LDAMRK'EXP; EXPONENT BERE
CHNEN..&.. LSR..&.. ADC#$40..&.. STAFAC'
EXP.C&(. RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL