SHARE
TWEET

Untitled

a guest Jan 21st, 2020 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data
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
Top