Assembly:Tidsberegning

processor PIC18F452
radix DEC
i   equ 0
j   equ 1  ;(variablen j lagres i minneplass 1)
               goto start
 
 
start    movlw 2    ;1
         movwf i,0  ;1
 
ytre     movlw 3    ;1
         movwf j,0  ;1
 
indre    decf  j,1,0 ;1  //svaret legges tilbake til j, ikke til w-registeret
         bnz   indre ;2(1)  //"branch if not zero". Hvis ikke zero-flagget har blitt heist, går vi tilbake til "indre".
         decf  i,1,0 ;1
         bnz   ytre  ;2(1)   //Går tilbake til ytre hvis ikke zero.
 
ende     bra    ende  ;2   //Branche til linjen som heter ende, som er den samme linjen.En evig while-løkke!
 
         END ;Beskjed til oversetteren. Melder fra at oversetteren har oversatt alle programlinjene.

Kategori: Assembly