Alba tramonto -st6
© Vittorio Crapella - i2viu
© Vittorio Crapella - i2viu
Visti gli altri due modi per ottenere l'effetto alba/tramonto per gli acquari qui di seguito viene presentato un altro progetto per ottenere gli stessi risultati.
LISTATO PROGRAMMA PER ST6220
;*******************************;*** GESTORI di INTERRUPT    ***;*******************************ad_int   retitim_int ldi  wdog,255  dec   durata    ;nr per ottenere un secondo (12)  jrz   dur    ;jrnz ritor  jp      ritordur  ldi   durata,50  dec  sec3    ;ritardo 3 secondi  jrnz  ritor  ldi  ctrl,1    ;setta 1 il flag   ldi  sec3,4ritor  ldi  tscr,01011110b  ldi  tcr,124  reti  BC_int  retiA_int   retinmi_int   reti;*********************;PROGRAMMA PRINCIPALE;*********************main  ldi   wdog,255  ldi  livello,1  ;livello DAC output  ldi  tscr,01011110b  ldi  tcr,124   ldi  durata,50  set  4,ior  ldi  sec3,4  clr  ctrl      ;diventa 1 ogni 3 sec in TIM_INT  ldi  port_a,1  ;attiva rele`out_  ld  a,livello  ld  port_b,a  ;uscita livello DACqui  ldi  wdog,255  ld  a,port_a  jrs  3,a,fine        ;se si riapre TIMER esterno finisce  jrr  0,ctrl,qui  clr  ctrl  inc  livello  ld  a,livello  jrz  resta  jp  out_resta  ldi  wdog,255  ld  a,port_a  jrr  3,a,resta  clr  ctrl  dec  livello     ;livello = 255 pronto per la discesadiscesa  ld  a,livello  ld  port_b,a    ;mette in uscita livello DACqui2  ldi  wdog,255  jrr  0,ctrl,qui2  clr  ctrl  dec  livello    ;abbassa luce  ld  a,livello  jrz  fine  jp  discesafine  clr  a    ;spegne ADC=0  ld   port_b,a  ld  a,port_a  res  0,a      ;diseccita relé - tutto spento  ld  port_a,a  ldi   wdog,255  jp  fine                            Preleva FILE.ASM  SCHEMA