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