.include"m8def.inc"

.def		temp1	=	r16



		ldi		temp1,low(ramend)
		out		spl,temp1

		ldi		temp1,high(ramend)
		out		sph,temp1

		ldi		temp1,0b11101111
		out		ddrb,temp1

		ldi		temp1,0b11111111
		out		ddrd,temp1

		ldi 		temp1, (1<<spe)|(0<<mstr)
		out 		spcr,temp1

		ldi 		temp1,(1<<spi2x)
		out 		spsr,temp1
		
main:
		in	 	temp1,spdr
		
		out		portd,temp1
		rcall		pause
		rjmp 		main


pause:
; ============================= 
;    delay loop generator 
;     1000000 cycles:
; ----------------------------- 
; delaying 999999 cycles:
          ldi  R18, $09
WGLOOP0:  ldi  R19, $BC
WGLOOP1:  ldi  R20, $C4
WGLOOP2:  dec  R20
          brne WGLOOP2
          dec  R19
          brne WGLOOP1
          dec  R18
          brne WGLOOP0
; ----------------------------- 
; delaying 1 cycle:
          nop
; ============================= 
ret