_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

USR-VEKTOR

FILE INFORMATION

FILENAME(S): USR-VEKTOR

FILE TYPE(S): PRG

FILE SIZE: 724b

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

APPEARS ON: 3 disk(s)

FILE HASH

a54f4ccb1a3d6031e4b26e06611377b1342491e65e86d951350ed8a808a5e9b2

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SONDERHEFT 7 86 USR-VEKTOR PRG C64er 19 9 DOWNLOAD FILE
SONDERHEFT 7 86 USR-VEKTOR PRG DuncanTwain 19 9 DOWNLOAD FILE
SONDERHEFT 7 86 USR-VEKTOR PRG DuncanTwain 19 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F0 1F 64 00 3B 2A  2A 2A 20 55 53 52 2D 56  |....d.;*** USR-V|
00000010: 45 4B 54 4F 52 20 2A 2A  2A 00 F6 1F 6E 00 3B 00  |EKTOR ***...n.;.|
00000020: FC 1F 78 00 3B 00 11 20  82 00 2E 45 51 20 53 51  |..x.;.. ...EQ SQ|
00000030: 52 20 20 20 3D 24 42 46  37 31 00 33 20 96 00 2E  |R   =$BF71.3 ...|
00000040: 45 51 20 4D 55 4C 54 20  20 3D 24 42 41 32 42 20  |EQ MULT  =$BA2B |
00000050: 3B 46 41 43 3D 41 52 47  2A 46 41 43 00 46 20 AA  |;FAC=ARG*FAC.F .|
00000060: 00 2E 45 51 20 46 41 43  20 20 20 3D 24 36 31 00  |..EQ FAC   =$61.|
00000070: 59 20 B4 00 2E 45 51 20  41 52 47 20 20 20 3D 24  |Y ...EQ ARG   =$|
00000080: 36 39 00 6E 20 D2 00 2E  45 51 20 46 41 43 41 52  |69.n ...EQ FACAR|
00000090: 47 3D 24 42 43 30 43 00  74 20 FA 00 3B 00 90 20  |G=$BC0C.t ..;.. |
000000A0: 04 01 2E 42 41 20 24 43  30 30 30 3B 50 52 4F 47  |...BA $C000;PROG|
000000B0: 52 41 4D 4D 53 54 41 52  54 00 96 20 0E 01 3B 00  |RAMMSTART.. ..;.|
000000C0: 9C 20 18 01 3B 00 B7 20  22 01 3B 2A 57 55 52 5A  |. ..;.. ".;*WURZ|
000000D0: 45 4C 20 28 58 29 20 42  45 52 45 43 48 4E 45 4E  |EL (X) BERECHNEN|
000000E0: 00 D7 20 2C 01 20 4A 53  52 53 51 52 3B 57 55 52  |.. ,. JSRSQR;WUR|
000000F0: 5A 45 4C 28 58 29 20 42  45 52 45 43 48 4E 45 4E  |ZEL(X) BERECHNEN|
00000100: 00 F6 20 36 01 20 4A 53  52 46 41 43 50 55 46 3B  |.. 6. JSRFACPUF;|
00000110: 45 52 47 45 42 4E 49 53  20 52 45 54 54 45 4E 00  |ERGEBNIS RETTEN.|
00000120: FF 20 40 01 20 52 54 53  00 05 21 4A 01 3B 00 0B  |. @. RTS..!J.;..|
00000130: 21 54 01 3B 00 26 21 5E  01 2E 42 41 20 24 43 31  |!T.;.&!^..BA $C1|
00000140: 30 30 3B 53 54 41 52 54  20 54 45 49 4C 20 32 00  |00;START TEIL 2.|
00000150: 2C 21 68 01 3B 00 50 21  72 01 3B 2A 5A 41 48 4C  |,!h.;.P!r.;*ZAHL|
00000160: 28 59 29 20 44 55 52 43  48 20 57 55 52 5A 45 4C  |(Y) DURCH WURZEL|
00000170: 28 58 29 20 44 49 56 49  2A 00 70 21 7C 01 20 4A  |(X) DIVI*.p!|. J|
00000180: 53 52 46 41 43 41 52 47  3B 5A 41 48 4C 28 59 29  |SRFACARG;ZAHL(Y)|
00000190: 20 4E 41 43 48 20 46 41  43 00 92 21 86 01 20 4A  | NACH FAC..!.. J|
000001A0: 53 52 50 55 46 46 41 43  3B 57 55 52 5A 45 4C 28  |SRPUFFAC;WURZEL(|
000001B0: 58 29 20 4E 41 43 48 20  41 52 47 00 AB 21 90 01  |X) NACH ARG..!..|
000001C0: 20 4A 53 52 4D 55 4C 54  3B 46 41 43 3D 41 52 47  | JSRMULT;FAC=ARG|
000001D0: 2A 46 41 43 00 B4 21 9A  01 20 52 54 53 00 BA 21  |*FAC..!.. RTS..!|
000001E0: A4 01 3B 00 CC 21 AE 01  3B 2A 46 41 43 20 52 45  |..;..!..;*FAC RE|
000001F0: 54 54 45 4E 2A 00 DD 21  B8 01 46 41 43 50 55 46  |TTEN*..!..FACPUF|
00000200: 20 4C 44 58 23 35 00 F0  21 C2 01 4C 4F 4F 50 31  | LDX#5..!..LOOP1|
00000210: 20 4C 44 41 46 41 43 2C  58 00 01 22 CC 01 20 53  | LDAFAC,X..".. S|
00000220: 54 41 50 55 46 46 45 52  2C 58 00 0A 22 D6 01 20  |TAPUFFER,X..".. |
00000230: 44 45 58 00 18 22 E0 01  20 42 50 4C 4C 4F 4F 50  |DEX..".. BPLLOOP|
00000240: 31 00 21 22 EA 01 20 52  54 53 00 27 22 F4 01 3B  |1.!".. RTS.'"..;|
00000250: 00 38 22 FE 01 3B 2A 46  41 43 20 48 4F 4C 45 4E  |.8"..;*FAC HOLEN|
00000260: 2A 00 49 22 08 02 50 55  46 46 41 43 20 4C 44 58  |*.I"..PUFFAC LDX|
00000270: 23 35 00 5F 22 12 02 4C  4F 4F 50 32 20 4C 44 41  |#5._"..LOOP2 LDA|
00000280: 50 55 46 46 45 52 2C 58  00 6D 22 1C 02 20 53 54  |PUFFER,X.m".. ST|
00000290: 41 46 41 43 2C 58 00 76  22 26 02 20 44 45 58 00  |AFAC,X.v"&. DEX.|
000002A0: 84 22 30 02 20 42 50 4C  4C 4F 4F 50 32 00 8D 22  |."0. BPLLOOP2.."|
000002B0: 3A 02 20 52 54 53 00 93  22 44 02 3B 00 A2 22 4E  |:. RTS.."D.;.."N|
000002C0: 02 50 55 46 46 45 52 20  4E 4F 50 00 A8 22 58 02  |.PUFFER NOP.."X.|
000002D0: 3B 00 00 00                                       |;...            |

X...D.;*** USR-VEKTOR ***...N.;...X.;.. 
...EQ SQR   =$BF71.3 ...EQ MULT  =$BA2B 
;FAC=ARG*FAC.F ...EQ FAC   =$61.Y ...EQ 
ARG   =$69.N R..EQ FACARG=$BC0C.T ..;.. 
...BA $C000;PROGRAMMSTART.. ..;.. ..;.. 
".;*WURZEL (X) BERECHNEN.W ,. JSRSQR;WUR
ZEL(X) BERECHNEN.. 6. JSRFACPUF;ERGEBNIS
 RETTEN.. @. RTS..!J.;..!T.;.&!^..BA $C1
00;START TEIL 2.,!H.;.P!R.;*ZAHL(Y) DURC
H WURZEL(X) DIVI*.P!|. JSRFACARG;ZAHL(Y)
 NACH FAC..!.. JSRPUFFAC;WURZEL(X) NACH 
ARG..!.. JSRMULT;FAC=ARG*FAC..!.. RTS..!
..;.L!..;*FAC RETTEN*..!..FACPUF LDX#5..
!B.LOOP1 LDAFAC,X.."L. STAPUFFER,X.."V. 
DEX..".. BPLLOOP1.!".. RTS.'"..;.8"..;*F
AC HOLEN*.I"..PUFFAC LDX#5._"..LOOP2 LDA
PUFFER,X.M".. STAFAC,X.V"&. DEX.."0. BPL
LOOP2..":. RTS.."D.;.."N.PUFFER NOP.."X.
;...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL