; initiera variabler    ;(a=0)
move    a,x:STATUS      ;transparent överföring
move    a,x:PEAK        ;tidigare toppvärde=0
; initiera reglarna
move    #I_gain,b       ;b=förstärkningsfaktorn
rep     #Nr_levels-Nr_inputs ;utgångar men ej återkoppling
move    b,x:(r0)+       ;uppdatera en regel i taget
rep     #Nr_inputs
move    a,x:(r0)+       ;initiera återkopplingen till noll
; initiera SSI och SCI porten
movep   #$3000,x:M_IPR  ;interrupt level 2
movep   #$0000,x:M_HCR  ;turn off XMT and RCV interrupts
movep   #$0001,x:M_PBC  ;port B: Host Interface
movep   #$6000,x:M_CRA  ;SSI word length 24
movep   #$0300,x:M_SCR  ;8 bitars synkron SCI mottagare och sändare
movep   #$0000,x:M_SCCR ;intern klocka för SCI (redan nollställd)
movep   #$01FF,x:M_PCC  ;port C: SSI och SCI
movep   #$B200,x:M_CRB  ;receive interrupt enable, word sync length