Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Dynamika
- opt cex,mex
- bufferN equ 4096
- tabN equ 4096
- tabwyk equ 12
- tab0 equ 12345 ;srodek tablicy nr 0
- tab1 equ 13345 ;srodek tablicy nr 1
- org P:$100
- init
- ;M0 - rejestr modulo dla probek sygnalu wejsciowego
- ;R0 - rejestr adresowy
- ;R7 - rejestr adresowy wspolczynnikow skalowania
- move #(bufferN-1),m0
- move #0,r0 ;tu piszemy
- repeat ;glowna petla programu
- in a
- move a,b
- asr #24-tabwyk,b,b ;teraz mamy calkowitaliczbowa wartosc sygnalu [-tabN/2;tabN/2). NIE KASUJ TEJ LINIJKI NAWET JAK NIE OGARNIASZ
- add #tab0,b
- move b,r7 ;indeks tablicty w r7
- move y:(r7),x1
- move a,y1
- mpy x1,y1,a
- out a
- forever
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement