.include "m8def.inc"

.def temp = r16
.def i = r17
.def t = r18;
.def reg = r19;

.equ AD_DATA = 5;
.equ AD_CLK = 4;
.equ AD_UP = 3;

// ram
.equ sramData = SRAM_START;  5 bytes
// end of ram
.cseg
.org 0x00
   rjmp main;

data:
.db 35,142, 56,227,  0, 0;  0b00100011, 0b10001110, 0b00111000, 0b11100011, 0b00000000, 1 nula v powe4e


///////////// pgmDDS //////////////////////////////////////////////
pgmDDS:
   ldi i, 5; // shte se pratqt 5 bytes informaciq kym AD9850
   
   ;zarejdane na ukazatelq kym data
   ldi YL, low(sramData)
   ldi YH, high(sramData)

pgmLoop:
   ld temp, Y+; zarejdane sydyrjanieto na Y v temp i uveli4awane na Y ukazatelq s 1
   ldi t, 8; 8 bita shte se izprashtat

pgmBitsRotate:
   ror temp; rotaciq na dqsno, bit-a otiwa c carry flag-a
   in reg, SREG;

   sbrs reg, SREG_C
   cbi PORTC, AD_DATA ; carry flaga e bil 0
   sbrc reg, SREG_C;
   sbi PORTC, AD_DATA ; carry flaga e bil 1

   ; 1 impuls na clock-a na ad9850
   sbi PORTC, AD_CLK;
   nop;
   nop;
   nop;
   cbi PORTC, AD_CLK;

   dec t
   tst t;
   breq pgmBitsLoopEnd;

   rjmp pgmBitsRotate;
pgmBitsLoopEnd:
   
   sbi PORTC, AD_UP;
   nop;
   nop;
   cbi PORTC, AD_UP;

   dec i;
   tst i;   
   breq pgmLoopEnd;

   rjmp pgmLoop;

pgmLoopEnd:
   ret;
//////////////////////////////////////////////////////

main:
   ;stack init
   ldi temp, LOW(RAMEND)
   out SPL, temp;
   ldi temp, HIGH(RAMEND);
   out SPH, temp;
   ;end of stack init

;///////////////////////
   ; PORTC - izhodi
   ldi temp, (1<<AD_UP) | (1<<AD_CLK) | (1<<AD_DATA);
   out DDRC, temp;

; kopirane na 5 bytes ot programnoto prostranstvo v RAM-a
   ldi i, 5;

   ldi ZL, LOW(2*data);
   ldi ZH, HIGH(2*data);

   ldi YL, LOW(sramData);
   ldi YH, HIGH(sramData);
copyLoop:
   lpm; zarejda stojnostta na ukazatelq Z w R0
   adiw Z, 1; Z++

   mov temp, r0; kopirane na R0 w temp
   st Y+, temp; zapametqwane na temp v RAM adresa so4en ot Y. Y++

   dec i;
   tst i;
   breq copyLoopEnd;
   rjmp copyLoop;
copyLoopEnd:

   ;programirane na AD9850
   rcall pgmDDS;

mainLoop:

   ldi YL, LOW(sramData);
   ldi YH, HIGH(sramData);
   
   ld r1, Y+;
   ld r2, Y+;
   ld r3, Y+;
   ld r4, Y
   
   ldi temp, 1; stypka
   
   ; data = data + stypka
   add r4, temp;
   ldi temp, 0;
   adc r3, temp;
   adc r2, temp;
   adc r1, temp;

   ldi YL, LOW(sramData);
   ldi YH, HIGH(sramData);

   st Y+, r1;
   st Y+, r2;
   st Y+, r3;
   st Y,  r4;

   rcall pgmDDS;

   ldi i, 0xFF;

mainDelay:
   ldi temp, 0xFF;

md2:
   dec temp;
   tst temp;
   breq md2end;
   rjmp md2;
md2end:

   dec i;
   tst i;
   breq mainDelayEnd;
   rjmp mainDelay;
mainDelayEnd:
   rjmp mainLoop;

end:
rjmp end;