TY 10 10 4 2 0 0 0 * Configurazioene dei fusebit e dei registri del microcontrollore:
TY 10 15 4 2 0 0 0 * Oscillatore: Fast RC with PLL per circa 40 M istruzioni/secondo
TY 10 20 4 2 0 0 0 * Analog to Digital Converter: Tempo di campionamento+conversione =1,4 microsec
TY 10 25 4 2 0 0 0 * Timer: Periodo =280 count =7,1 microsec =Periodo della portante a 141 khz
RV 5 5 170 35
MC 60 65 1 0 074
LI 60 70 30 85
LI 30 85 60 100
LI 60 100 90 85
LI 90 85 60 70
TY 37 83 4 2 0 0 0 * Timer < 70 count
TY 80 83 4 2 0 0 0 * SI
TY 58 94 4 2 0 0 0 * NO
LI 90 85 100 85
LI 100 85 100 60
LI 100 60 65 60
MC 65 60 2 0 074
TY 10 130 4 2 0 0 0 * Aggiunge il risultato della sottrazione allo "accumulatore seno"
TY 10 125 4 2 0 0 0 * Esegue la sottrazione "seno in fase" - "seno in controfase"
TY 10 120 4 2 0 0 0 * Inizia un nuovo ciclo di campionamento+conversione ADC
TY 10 115 4 2 0 0 0 * Salva il registro di conversione ADC nella variabile "seno in fase"
TY 10 135 4 2 0 0 0 * Sottrae dallo "accumulatore seno" 1/64 del suo valore
RV 5 110 155 145
MC 60 105 1 0 074
LI 60 100 60 105
MC 60 160 1 0 074
LI 60 165 30 180
LI 30 180 60 195
LI 60 195 90 180
LI 90 180 60 165
TY 80 178 4 2 0 0 0 * SI
TY 58 189 4 2 0 0 0 * NO
LI 90 180 100 180
LI 100 180 100 155
LI 100 155 65 155
MC 65 155 2 0 074
LI 60 160 60 145
TY 10 215 4 2 0 0 0 * Inizia un nuovo ciclo di campionamento+conversione ADC
RV 5 205 155 240
MC 60 200 1 0 074
LI 60 195 60 200
TY 37 178 4 2 0 0 0 * Timer < 140 count
TY 10 210 4 2 0 0 0 * Salva il registro di conversione ADC nella variabile "coseno in fase"
TY 10 220 4 2 0 0 0 * Esegue la sottrazione "coseno in fase" - "coseno in controfase"
TY 10 225 4 2 0 0 0 * Aggiunge il risultato della sottrazione allo "accumulatore coseno"
TY 10 230 4 2 0 0 0 * Sottrae dallo "accumulatore coseno" 1/64 del suo valore
MC 60 255 1 0 074
LI 60 260 30 275
LI 30 275 60 290
LI 60 290 90 275
LI 90 275 60 260
TY 80 273 4 2 0 0 0 * SI
TY 58 284 4 2 0 0 0 * NO
LI 90 275 100 275
LI 100 275 100 250
LI 100 250 65 250
MC 65 250 2 0 074
LI 60 255 60 240
TY 10 310 4 2 0 0 0 * Inizia un nuovo ciclo di campionamento+conversione ADC
MC 60 295 1 0 074
LI 60 290 60 295
TY 36 273 4 2 0 0 0 * Timer < 210 count
TY 10 305 4 2 0 0 0 * Salva il registro di conversione ADC nella variabile "seno in controfase"
TY 10 315 4 2 0 0 0 * Esegue la sottrazione "seno in fase" - "seno in controfase"
TY 10 320 4 2 0 0 0 * Aggiunge il risultato della sottrazione allo "accumulatore seno"
TY 10 325 4 2 0 0 0 * Memorizza nella variabile "seno filtrato" 1/64 dello "accumulatore seno"
TY 10 330 4 2 0 0 0 * Memorizza nella variabile "coseno filtrato" 1/64 dello "accumulatore coseno"
TY 10 335 4 2 0 0 0 * Somma i moduli di "seno filtrato" e "coseno filtrato"
MC 60 365 1 0 074
LI 60 370 30 385
LI 30 385 60 400
LI 60 400 90 385
LI 90 385 60 370
TY 80 383 4 2 0 0 0 * SI
TY 58 394 4 2 0 0 0 * NO
LI 90 385 100 385
LI 100 385 100 360
LI 100 360 65 360
MC 65 360 2 0 074
LI 60 365 60 350
TY 10 420 4 2 0 0 0 * Inizia un nuovo ciclo di campionamento+conversione ADC
MC 60 405 1 0 074
LI 60 400 60 405
TY 10 425 4 2 0 0 0 * Esegue la sottrazione "coseno in fase" - "coseno in controfase"
TY 10 430 4 2 0 0 0 * Aggiunge il risultato della sottrazione allo "accumulatore coseno"
TY 37 382 4 2 0 0 0 * Timer >=210 count
TY 10 340 4 2 0 0 0 * Segnala il valore ottenuto mediante diodi luminosi
RV 5 300 165 350
LI 60 65 60 35
LI 185 460 185 50
MC 60 455 1 0 074
LI 60 455 60 440
MC 180 460 0 0 074
LI 60 460 180 460
MC 65 50 2 0 074
MC 185 55 3 0 074
LI 65 50 185 50
TY 10 415 4 2 0 0 0 * Salva il registro di conversione ADC nella variabile "coseno in controfase"
RV 5 410 165 440