CPA2J1  START
       LD GR1,AD1
       CPA GR1,AD2
       RET
AD1    DC  9
AD2    DC  5
       END