home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 30
/
64er_Magazin_Sonderheft_30_19xx_Markt__Technik_de_Side_B.d64
/
src.joystick
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
931b
|
43 lines
100 lda#<(983) ; lowbyte
110 sta$fa
120 lda#>(983)
130 sta$fb ; in zeropageadresse $fb
135 ; im original hiess der befehl 'sta $d000' (korrigiert von nh)
140 lda$d000 ; x position sprite 0
150 sec ; in bsc koordinaten umrechnen
160 sbc#16
170 staxpos
180 lda$d001 ; y-pos
190 sec
200 sbc#42
210 staypos
220 lsrxpos ; durch 8
230 lsrxpos
240 lsrxpos
250 lsrypos ; durch 8
260 lsrypos ; durch 8
270 lsrypos ; durch 8
280 loop1 lda$fa
290 clc ; position bestimmen
300 adc#1 ; plus 1
310 sta$fa
320 lda$fb
330 adc#0 ; overflows
340 sta$fb
350 decxpos
360 ldaxpos ; eigentlich unnoetig
370 bneloop1
380 loop2 lda$fa
390 clc
400 adc#40 ; hiess im original 'adc $40' ,korrigiert von nh
410 sta$fa
420 lda$fb
430 adc#0 ; overflows
440 sta$fa
450 decypos
460 ldaypos ; unnoetig
470 bneloop2
480 ldy#0
490 lda($fa),y ; zeichen unter dem sprite
500 rts ; tschuess