CPA2J1  START
       LD GR1,AD1
       CPA GR1,AD2
       RET
AD1    DC  -32767
AD2    DC   32767
       END