home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh23c.d64
/
setpoint.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
857b
|
48 lines
5 STEP"@:SETPOINT.OBJ,P,W"
10 +$C000
20 TOBAL=$F9
30 TOBAH=$FA
40 TOYWERT=$FB
50 TOXWERTL=$14
60 TOXWERTH=$15
70 TOCHKCOM=$AEFD
80 TOGETPAR=$B7EB
90 (null)CHKCOM
100 (null)GETPAR; XUND Y HOLEN
110 (null)YWERT
120 SET MID$#$00; BAL LOESCHEN
130 (null)BAL
140 MID$YWERT; Y
150 (null);[Y/8]
160 (null)
170 (null)
180 (null)BAH;A([Y/8])*5 = A*4+A
190 (null)
200 (null)
210 VALBAH
220 (null); A(5*[Y/8])*64=A*256/4
230 (null)BAL; =>MSB MIT LSB VERTAUSCHEN
240 (null); 16-BIT-DIVISION MIT 4
250 (null)BAL
260 VAL#$20; BITMAP ADDIEREN
270 (null)BAH;A(320*[Y/8]+$E000)
280 MID$XWERTL;LSB(X)
290 ASC#$F8;[X/8]*8
300 VALBAL;A([X/8]*8)+BA
310 (null)BAL
320 MID$XWERTH
330 VALBAH
340 (null)BAH
350 MID$YWERT;Y-[Y/8]*8,REST DER DIVISION
360 ASC#$07
370 (null);INDEX
380 MID$XWERTL;LSB(X)
390 ASC#$07;X-[X/8]*8,ERBIBT BIT/NUMMER
400 (null);INDEX
410 MID$POT,X;PUNKT SETZEN
420 (null)(BAL),Y
430 (null)(BAL),Y
440 (null)
450 POT FN$80,$40,$20,$10
460 FN$08,$04,$02,$01