VECNA: mov r2,#1         @ LED,BUZZ 1  
       str r2,[r3]
       str r2,[r4]
       bl  WRITEOUT
       
       
@      delay half cycle
       bl DELAY
       
       
       mov r2,#0         @ LED,BUZZ 0       
       str r2,[r3]
       str r2,[r4]
       bl  WRITEOUT
       
@      delay half cycle
       bl DELAY
        
       b VECNA
  
DELAY:
       adr r0,STEVEC
       mov r1,#500

zunanja:  ldr r2, [r0]

notranja:   subs r2, r2, #1
            bne notranja
          subs r1, r1, #1
          bne zunanja
       
       mov r15, r14