home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93b.d64 / setpoint.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.