CPA2J1  START
       LD GR1,AD1
       CPA GR1,AD2
       LD GR3,AD3
       CPA GR3,AD3
       LD GR4,AD4
       CPA GR4,AD5
       RET
AD1    DC  2
AD2    DC  1
AD3    DC  3       
AD4    DC  4       
AD5    DC  10       
       END