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