home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / setpoint.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  857b  |  48 lines
  1. 5  step"@:setpoint.obj,p,w"
  2. 10  +$c000
  3. 20  tobal=$f9
  4. 30  tobah=$fa
  5. 40  toywert=$fb
  6. 50  toxwertl=$14
  7. 60  toxwerth=$15
  8. 70  tochkcom=$aefd
  9. 80  togetpar=$b7eb
  10. 90  (NULL)chkcom
  11. 100  (NULL)getpar; xund y holen
  12. 110  (NULL)ywert
  13. 120 set mid$#$00; bal loeschen
  14. 130  (NULL)bal
  15. 140  mid$ywert; y
  16. 150  (NULL);[y/8]
  17. 160  (NULL)
  18. 170  (NULL)
  19. 180  (NULL)bah;a([y/8])*5 = a*4+a
  20. 190  (NULL)
  21. 200  (NULL)
  22. 210  valbah
  23. 220  (NULL); a(5*[y/8])*64=a*256/4
  24. 230  (NULL)bal; =>msb mit lsb vertauschen
  25. 240  (NULL); 16-bit-division mit 4
  26. 250  (NULL)bal
  27. 260  val#$20; bitmap addieren
  28. 270  (NULL)bah;a(320*[y/8]+$e000)
  29. 280  mid$xwertl;lsb(x)
  30. 290  asc#$f8;[x/8]*8
  31. 300  valbal;a([x/8]*8)+ba
  32. 310  (NULL)bal
  33. 320  mid$xwerth
  34. 330  valbah
  35. 340  (NULL)bah
  36. 350  mid$ywert;y-[y/8]*8,rest der division
  37. 360  asc#$07
  38. 370  (NULL);index
  39. 380  mid$xwertl;lsb(x)
  40. 390  asc#$07;x-[x/8]*8,erbibt bit/nummer
  41. 400  (NULL);index
  42. 410  mid$pot,x;punkt setzen
  43. 420  (NULL)(bal),y
  44. 430  (NULL)(bal),y
  45. 440  (NULL)
  46. 450 pot fn$80,$40,$20,$10
  47. 460  fn$08,$04,$02,$01
  48.