SHARE
TWEET

copy_m_n

a guest Sep 22nd, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
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