. Racunanje polinoma s subrutino ki vsebuje loop
ps START 0
        LDX     #0      . X je idx za tocke
        LDL     #3
        LDF     len
outer_loop
        LDT     in, X   . V T je trenutno obravnavana tocka      
        LDA     a4      . V A bomo računali z vmesnimi rezultati 
        STA     temp    . V temp vmesni rezultati
        LDB     #0      . B bo idx za koeficiente
        LDS     a3      . Z S se bomo pomikali po koeficientih

inner_loop    
        LDA     temp        
        MULR    T, A        
        SUBR    B, S    
        ADDR    S, A    . V prvem loopu je B=0, pol B=3, pol B=6 itd       
        STA     temp       

        ADDR    L, B           
        COMPR   B, F     
        JLT     inner_loop

        STA     poly, X
        ADDR    L, X
        COMPR   X, F
        JLT     outer_loop

        RSUB                

halt    J       halt
        END     ps

. Tocke
in  WORD    1
    WORD    2
    WORD    3
    WORD    4
    WORD    5   

lastin  EQU *
len EQU lastin - in . Stevilo tock v bajtih  

. Rezultat
poly    RESW    5
temp    RESW    1
        

. Koeficienti
a0  WORD    5
a1  WORD    4
a2  WORD    3
a3  WORD    2
a4  WORD    1