CPLR  START
       LD  GR6,AD1
       CPL GR6,AD2
       RET
AD1    DC  -32768
AD2    DC  32767
       END