/main program 
         EXTRN minod                                     
ans1     RES    1                                      
ans2     RES    1
ans3     RES    1
n1        5
n2        10     
n3        7
start   loco   4020 
        swap            /initialize sp
        loco    n1 
        push            /push address  n1 
        loco    data 
        push            /push array start address 
one     call    minod 
        stod    ans1 
        insp     2   
        loco    n2      /push address  n2 
        push    
        loco    data 
        addd    (3)  
        push            /push array start address 
two     call    minod 
        stod    ans2 
        insp     2   
        loco    n3      /push address  n3 
        push    
        loco    data 
        addd    (7) 
        push            /push array start address 
three   call    minod 
        stod    ans3 
        insp    2    
        halt         
data     58
          0
        128
        -34
          8
          3
        -29
         -2
         -3
        347
        -15
          6
         35
       -413
        END     start