EE.ZIP_zip

;************************************************************ ; PROGRAM DE TEST LABORATOR EE ;************************************************************; ; INCLUDEM FISIERUL SURSA .include "m64def.inc" .def R_temp = r16 .def R_temp1 = r17 .def R_temp2 = r18 .def R_temp3 = r19 .def R_temp4 = r20 .ORG 0x0000 rjmp inceput_program .org 0x0002 rjmp start .org 0x0004 rjmp fast .org 0x0006 rjmp slow .org 0x0018 rjmp TIMER1_COMPA .org 0x0046 inceput_program: ;**************************** ;initializarea perifericelor ;**************************** ;1 proramez stiva ldi R_temp,low(RAMEND) out SPL,R_temp ; Set stack pointer to last internal RAM location ldi R_temp,high(RAMEND) out SPH,R_temp ;2 programez porturile ............ ldi R_temp,0xf0 out DDRE,R_temp CLR R_temp out PORTE,R_temp ;3 programez timerul 1 pt. int. comparare ldi R_temp,0xAA sts EICRA,R_temp ; ldi R_temp,0x00 ; out EICRB,R_temp ldi R_temp,0x0F out EIMSK,R_temp ;registri de comparareH,L ldi R_temp,0x05 out OCR1AH,R_temp ldi R_temp,0x01 out OCR1AL,R_temp ;registri de control ldi R_temp,0x0c out TCCR1B,R_temp ldi R_temp3,0x0c ;registri de mascare ; ldi R_temp,0x10 ; out TIMSK,R_temp //programam int externe ldi R_temp,0xF0 out PORTE,R_temp sei ; ldi R_temp,0x11 ldi R_temp ,0x00 out PORTE,R_temp RELUARE: RJMP RELUARE ;************************8 ;intreruperea externa 0 ;************************8 TIMER1_COMPA: //complectati cu rutina de afisare segvential //rol R_temp //out PORTE,R_temp ; ldi R_temp ,0x00 ; out PORTE,R_temp cpi R_temp2,0x00 BREQ et0 cpi R_temp2,0x01 BREQ et1 cpi R_temp2,0x02 BREQ et2 cpi R_temp2,0x03 BREQ et3 cpi R_temp2,0x04 BREQ et4 cpi R_temp2,0x05 BREQ et5 cpi R_temp2,0x06 BREQ et6 cpi R_temp2,0x07 BREQ et7 et0: inc R_temp2 ldi R_temp,0x10 out PORTE,R_temp RJMP etf et1: ldi R_temp,0x30 out PORTE,R_temp inc R_temp2 RJMP etf et2: ldi R_temp,0x70 out PORTE,R_temp inc R_temp2 RJMP etf et3: ldi R_temp,0xf0 out PORTE,R_temp inc R_temp2 RJMP etf et4: ; ldi R_temp ,0x00 ; out PORTE,R_temp ldi R_temp,0x70 out PORTE,R_temp inc R_temp2 RJMP etf et5: ; ldi R_temp ,0x00 ; out PORTE,R_temp ldi R_temp,0x30 out PORTE,R_temp inc R_temp2 RJMP etf et6: ; ldi R_temp ,0x00 ; out PORTE,R_temp ldi R_temp,0x10 out PORTE,R_temp inc R_temp2 RJMP etf et7: ldi R_temp ,0x00 out PORTE,R_temp ldi R_temp2, 0x00 etf: /* ldi R_temp,0x10 out PORTE,R_temp ldi R_temp,0x20 out PORTE,R_temp ldi R_temp,0x40 out PORTE,R_temp ldi R_temp,0x80 out PORTE,R_temp */ reti ;end interrupt fast: ;registri de control dec R_temp3 ; ldi R_temp,R_temp3 // adica la fiecare 11 ms se aprinde cate un LED si apoi ; sts TCCR1B,R_temp // se stinge (la cat timp este activata intreruperea) sts TCCR1B,R_temp3 reti slow: ;registri de control inc R_temp3 ; ldi R_temp,R_temp3 // adica la fiecare 11 ms se aprinde cate un LED si apoi ; out TCCR1B,R_temp // se stinge (la cat timp este activata intreruperea) sts TCCR1B,R_temp3 reti start: cpi R_temp4,0x00 BREQ s1 cpi R_temp4,0x01 BREQ s2 s1: ;registri de mascare ldi R_temp2, 0 ldi R_temp3,0x0c ldi R_temp,0x10 out TIMSK,R_temp inc R_temp4 RJMP f s2: ldi R_temp ,0x00 out PORTE,R_temp ldi R_temp,0x01 out TIMSK,R_temp dec R_temp4 f: reti