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

SETPOINT.SRC

FILE INFORMATION

FILENAME(S): SETPOINT.SRC

FILE TYPE(S): PRG

FILE SIZE: 857b

FIRST SEEN: 2025-10-20 14:37:18

APPEARS ON: 2 disk(s)

FILE HASH

0c5ef5280aa393ff48c56934926d469b9d62493c257de4c176f32e24881f78a4

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
15723 SEITE C SETPOINT.SRC PRG C64er, Treasure Chest - LehrerMIL 10 9 DOWNLOAD FILE
64 ER SONDERH 93 SETPOINT.SRC PRG C64er 9 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1C 08 05 00 20 A9  22 40 3A 53 45 54 50 4F  |...... ."@:SETPO|
00000010: 49 4E 54 2E 4F 42 4A 2C  50 2C 57 22 00 28 08 0A  |INT.OBJ,P,W".(..|
00000020: 00 20 AA 24 43 30 30 30  00 36 08 14 00 20 A4 42  |. .$C000.6... .B|
00000030: 41 4C 3D 24 46 39 00 44  08 1E 00 20 A4 42 41 48  |AL=$F9.D... .BAH|
00000040: 3D 24 46 41 00 54 08 28  00 20 A4 59 57 45 52 54  |=$FA.T.(. .YWERT|
00000050: 3D 24 46 42 00 65 08 32  00 20 A4 58 57 45 52 54  |=$FB.e.2. .XWERT|
00000060: 4C 3D 24 31 34 00 76 08  3C 00 20 A4 58 57 45 52  |L=$14.v.<. .XWER|
00000070: 54 48 3D 24 31 35 00 89  08 46 00 20 A4 43 48 4B  |TH=$15...F. .CHK|
00000080: 43 4F 4D 3D 24 41 45 46  44 00 9C 08 50 00 20 A4  |COM=$AEFD...P. .|
00000090: 47 45 54 50 41 52 3D 24  42 37 45 42 00 A9 08 5A  |GETPAR=$B7EB...Z|
000000A0: 00 20 D6 43 48 4B 43 4F  4D 00 C4 08 64 00 20 D6  |. .CHKCOM...d. .|
000000B0: 47 45 54 50 41 52 3B 20  58 55 4E 44 20 59 20 48  |GETPAR; XUND Y H|
000000C0: 4F 4C 45 4E 00 D0 08 6E  00 20 D3 59 57 45 52 54  |OLEN...n. .YWERT|
000000D0: 00 EC 08 78 00 53 45 54  20 CA 23 24 30 30 3B 20  |...x.SET .#$00; |
000000E0: 42 41 4C 20 4C 4F 45 53  43 48 45 4E 00 F6 08 82  |BAL LOESCHEN....|
000000F0: 00 20 D2 42 41 4C 00 05  09 8C 00 20 CA 59 57 45  |. .BAL..... .YWE|
00000100: 52 54 3B 20 59 00 12 09  96 00 20 CD 3B 5B 59 2F  |RT; Y..... .;[Y/|
00000110: 38 5D 00 19 09 A0 00 20  CD 00 20 09 AA 00 20 CD  |8]..... .. ... .|
00000120: 00 3D 09 B4 00 20 D2 42  41 48 3B 41 28 5B 59 2F  |.=... .BAH;A([Y/|
00000130: 38 5D 29 2A 35 20 3D 20  41 2A 34 2B 41 00 44 09  |8])*5 = A*4+A.D.|
00000140: BE 00 20 CB 00 4B 09 C8  00 20 CB 00 55 09 D2 00  |.. ..K... ..U...|
00000150: 20 C5 42 41 48 00 73 09  DC 00 20 CD 3B 20 41 28  | .BAH.s... .; A(|
00000160: 35 2A 5B 59 2F 38 5D 29  2A 36 34 3D 41 2A 32 35  |5*[Y/8])*64=A*25|
00000170: 36 2F 34 00 98 09 E6 00  20 D0 42 41 4C 3B 20 3D  |6/4..... .BAL; =|
00000180: 3E 4D 53 42 20 4D 49 54  20 4C 53 42 20 56 45 52  |>MSB MIT LSB VER|
00000190: 54 41 55 53 43 48 45 4E  00 B6 09 F0 00 20 CD 3B  |TAUSCHEN..... .;|
000001A0: 20 31 36 2D 42 49 54 2D  44 49 56 49 53 49 4F 4E  | 16-BIT-DIVISION|
000001B0: 20 4D 49 54 20 34 00 C0  09 FA 00 20 D0 42 41 4C  | MIT 4..... .BAL|
000001C0: 00 DC 09 04 01 20 C5 23  24 32 30 3B 20 42 49 54  |..... .#$20; BIT|
000001D0: 4D 41 50 20 41 44 44 49  45 52 45 4E 00 F9 09 0E  |MAP ADDIEREN....|
000001E0: 01 20 D2 42 41 48 3B 41  28 33 32 30 2A 5B 59 2F  |. .BAH;A(320*[Y/|
000001F0: 38 5D 2B 24 45 30 30 30  29 00 0D 0A 18 01 20 CA  |8]+$E000)..... .|
00000200: 58 57 45 52 54 4C 3B 4C  53 42 28 58 29 00 20 0A  |XWERTL;LSB(X). .|
00000210: 22 01 20 C6 23 24 46 38  3B 5B 58 2F 38 5D 2A 38  |". .#$F8;[X/8]*8|
00000220: 00 38 0A 2C 01 20 C5 42  41 4C 3B 41 28 5B 58 2F  |.8.,. .BAL;A([X/|
00000230: 38 5D 2A 38 29 2B 42 41  00 42 0A 36 01 20 D2 42  |8]*8)+BA.B.6. .B|
00000240: 41 4C 00 4F 0A 40 01 20  CA 58 57 45 52 54 48 00  |AL.O.@. .XWERTH.|
00000250: 59 0A 4A 01 20 C5 42 41  48 00 63 0A 54 01 20 D2  |Y.J. .BAH.c.T. .|
00000260: 42 41 48 00 8B 0A 5E 01  20 CA 59 57 45 52 54 3B  |BAH...^. .YWERT;|
00000270: 59 2D 5B 59 2F 38 5D 2A  38 2C 52 45 53 54 20 44  |Y-[Y/8]*8,REST D|
00000280: 45 52 20 44 49 56 49 53  49 4F 4E 00 96 0A 68 01  |ER DIVISION...h.|
00000290: 20 C6 23 24 30 37 00 A3  0A 72 01 20 DA 3B 49 4E  | .#$07...r. .;IN|
000002A0: 44 45 58 00 B7 0A 7C 01  20 CA 58 57 45 52 54 4C  |DEX...|. .XWERTL|
000002B0: 3B 4C 53 42 28 58 29 00  DE 0A 86 01 20 C6 23 24  |;LSB(X)..... .#$|
000002C0: 30 37 3B 58 2D 5B 58 2F  38 5D 2A 38 2C 45 52 42  |07;X-[X/8]*8,ERB|
000002D0: 49 42 54 20 42 49 54 2F  4E 55 4D 4D 45 52 00 EB  |IBT BIT/NUMMER..|
000002E0: 0A 90 01 20 D8 3B 49 4E  44 45 58 00 04 0B 9A 01  |... .;INDEX.....|
000002F0: 20 CA 50 4F 54 2C 58 3B  50 55 4E 4B 54 20 53 45  | .POT,X;PUNKT SE|
00000300: 54 5A 45 4E 00 12 0B A4  01 20 CE 28 42 41 4C 29  |TZEN..... .(BAL)|
00000310: 2C 59 00 20 0B AE 01 20  D2 28 42 41 4C 29 2C 59  |,Y. ... .(BAL),Y|
00000320: 00 27 0B B8 01 20 E3 00  40 0B C2 01 50 4F 54 20  |.'... ..@...POT |
00000330: A5 24 38 30 2C 24 34 30  2C 24 32 30 2C 24 31 30  |.$80,$40,$20,$10|
00000340: 00 56 0B CC 01 20 A5 24  30 38 2C 24 30 34 2C 24  |.V... .$08,$04,$|
00000350: 30 32 2C 24 30 31 00 00  00                       |02,$01...       |

...... ."@:SETPOINT.OBJ,P,W".(... .$C000
.6... .BAL=$F9.D... .BAH=$FA.T.(. .YWERT
=$FB.E.2. .XWERTL=$14.V.<. .XWERTH=$15..
.F. .CHKCOM=$AEFD...P. .GETPAR=$B7EB...Z
. VCHKCOM.D.D. VGETPAR; XUND Y HOLEN.P.N
. SYWERT...X.SET J#$00; BAL LOESCHEN....
. RBAL..... JYWERT; Y..... M;[Y/8]... . 
M. ... M.=... RBAH;A([Y/8])*5 = A*4+A.D.
.. K.K.H. K.U.R. EBAH.S... M; A(5*[Y/8])
*64=A*256/4..... PBAL; =>MSB MIT LSB VER
TAUSCHEN..... M; 16-BIT-DIVISION MIT 4..
... PBAL..... E#$20; BITMAP ADDIEREN....
. RBAH;A(320*[Y/8]+$E000)..... JXWERTL;L
SB(X). .". F#$F8;[X/8]*8.8.,. EBAL;A([X/
8]*8)+BA.B.6. RBAL.O.@. JXWERTH.Y.J. EBA
H.C.T. RBAH...^. JYWERT;Y-[Y/8]*8,REST D
ER DIVISION...H. F#$07...R. Z;INDEX...|.
 JXWERTL;LSB(X)..... F#$07;X-[X/8]*8,ERB
IBT BIT/NUMMER..... X;INDEX..... JPOT,X;
PUNKT SETZEN..... N(BAL),Y. ... R(BAL),Y
.'... ..@.B.POT .$80,$40,$20,$10.V.L. .$
08,$04,$02,$01...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL