Advertisement
Guest User

Untitled

a guest
Jul 6th, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 0.66 KB | None | 0 0
  1.     ;Dynamika
  2.     opt cex,mex
  3. bufferN equ 4096
  4. tabN    equ 4096
  5. tabwyk  equ 12
  6. tab0    equ 12345   ;srodek tablicy nr 0
  7. tab1    equ 13345   ;srodek tablicy nr 1
  8.  
  9.     org P:$100
  10.    
  11.     init
  12.    
  13.     ;M0 - rejestr modulo dla probek sygnalu wejsciowego
  14.     ;R0 - rejestr adresowy
  15.    
  16.     ;R7 - rejestr adresowy wspolczynnikow skalowania
  17.    
  18.    
  19.    
  20.     move #(bufferN-1),m0
  21.     move #0,r0  ;tu piszemy
  22.        
  23.     repeat  ;glowna petla programu
  24.         in a
  25.        
  26.         move a,b
  27.        
  28.         asr #24-tabwyk,b,b ;teraz mamy calkowitaliczbowa wartosc sygnalu [-tabN/2;tabN/2). NIE KASUJ TEJ LINIJKI NAWET JAK NIE OGARNIASZ
  29.         add #tab0,b
  30.         move b,r7 ;indeks tablicty w r7
  31.         move y:(r7),x1
  32.         move a,y1
  33.         mpy x1,y1,a
  34.        
  35.         out a
  36.     forever
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement