SHARE
TWEET

conta_1

a guest Sep 22nd, 2019 82 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.  
  10. ; contar o numero de 1 em kmo
  11. ; salvar em nums1
  12.           org       ram
  13. kmo       ds.b      1
  14.  
  15. aux       dc.b      8
  16.  
  17.           org       ram + nb
  18. nums1     ds.b      1
  19.  
  20.           org       rom
  21. inic
  22.           ldaa      #0
  23.           staa      nums1      ; clear nums1
  24.  
  25.           ldaa      aux
  26.           ldab      kmo       ; A = 8, kmo = valor
  27.  
  28. prog      rolb      
  29.           bcs       adiciona  ; tinha valor 1
  30.  
  31. volta     deca                ; A--          
  32.           bne       prog
  33.  
  34.           bra       inic
  35.  
  36. adiciona  ldaa      nums1     ; incremento resposta
  37.           inca
  38.           staa      nums1
  39.           bra       volta
  40.          
  41. ;-------------------------
  42.           org       vreset
  43. reset_    dc.w      inic
  44.           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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top