API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 21st, 2020
121
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.61 KB | None | 0 0
raw download clone embed print report
  1. 000000r 1
  2. 000000r 1 ;Slightly more efficient
  3. 000000r 1 .macro var name
  4. 000000r 1 name=zp_counter
  5. 000000r 1 zp_counter .set zp_counter+1
  6. 000000r 1 .endmacro
  7. 000000r 1
  8. 000000r 1 .macro local name
  9. 000000r 1 name .set zp_counter
  10. 000000r 1 zp_counter .set zp_counter+1
  11. 000000r 1 .endmacro
  12. 000000r 1
  13. 000000r 1 zp_base=$80
  14. 000000r 1 zp_counter .set zp_base
  15. 000000r 1 var foo1
  16. 000000r 1 var foo2
  17. 000000r 1 var foo3
  18. 000000r 1 var bar1
  19. 000000r 1 ;bar2-98
  20. 000000r 1 var bar99
  21. 000000r 1
  22. 000000r 1 .org $C000
  23. 00C000 1 A5 80 LDA foo1
  24. 00C002 1 A5 81 LDA foo2
  25. 00C004 1 A5 82 LDA foo3
  26. 00C006 1
  27. 00C006 1 20 09 C0 JSR func1
  28. 00C009 1
  29. 00C009 1 func1:
  30. 00C009 1 local foo
  31. 00C009 1 local bar
  32. 00C009 1 85 85 STA foo
  33. 00C00B 1 85 86 STA bar
  34. 00C00D 1 20 11 C0 JSR func2
  35. 00C010 1 60 RTS
  36. 00C011 1
  37. 00C011 1 func2:
  38. 00C011 1 local foo
  39. 00C011 1 local bar
  40. 00C011 1 85 87 STA foo
  41. 00C013 1 85 88 STA bar
  42. 00C015 1 60 RTS
  43. 00C016 1
  44. 00C016 1 .out .sprintf("%d of %d zero page bytes used",zp_counter-zp_base,255-zp_base)
  45. 00C016 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!