Advertisement
Guest User

copy_m_n

a guest
Sep 22nd, 2019
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. absentry inic
  2. ram equ $1000
  3. rom equ $4000
  4. nb equ $10
  5. sz equ 8
  6.  
  7. vreset equ $fffe
  8.  
  9. org ram
  10. m ds.b sz
  11.  
  12. org ram + nb
  13. n ds.b sz
  14.  
  15. ; copie m em n
  16.  
  17. org rom
  18. inic
  19. ldx #m - 1
  20. ldy #n - 1
  21.  
  22. nxt ldaa 1, +x
  23. staa 1, +y
  24.  
  25. cpx #m + sz - 1
  26. bne nxt
  27.  
  28. bra inic
  29.  
  30. ;-------------------------
  31. org vreset
  32. reset_ dc.w inic
  33. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement