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 >
Commodore BASIC  |  2022-10-26  |  931b  |  43 lines
  1. 100  lda#<(983) ; lowbyte
  2. 110  sta$fa
  3. 120  lda#>(983)
  4. 130  sta$fb   ; in zeropageadresse $fb
  5. 135 ; im original hiess der befehl 'sta $d000' (korrigiert von nh)
  6. 140  lda$d000 ; x position sprite 0
  7. 150  sec      ; in bsc koordinaten umrechnen
  8. 160  sbc#16
  9. 170  staxpos
  10. 180  lda$d001 ; y-pos
  11. 190  sec
  12. 200  sbc#42
  13. 210  staypos
  14. 220  lsrxpos  ; durch 8
  15. 230  lsrxpos
  16. 240  lsrxpos
  17. 250  lsrypos  ; durch 8
  18. 260  lsrypos  ; durch 8
  19. 270  lsrypos  ; durch 8
  20. 280 loop1 lda$fa
  21. 290  clc      ; position bestimmen
  22. 300  adc#1    ; plus 1
  23. 310  sta$fa
  24. 320  lda$fb
  25. 330  adc#0    ; overflows
  26. 340  sta$fb
  27. 350  decxpos
  28. 360  ldaxpos  ; eigentlich unnoetig
  29. 370  bneloop1
  30. 380 loop2 lda$fa
  31. 390  clc
  32. 400  adc#40   ; hiess im original 'adc $40'  ,korrigiert von nh
  33. 410  sta$fa
  34. 420  lda$fb
  35. 430  adc#0    ; overflows
  36. 440  sta$fa
  37. 450  decypos
  38. 460  ldaypos  ; unnoetig
  39. 470  bneloop2
  40. 480  ldy#0
  41. 490  lda($fa),y ; zeichen unter dem sprite
  42. 500  rts      ; tschuess
  43.