as/minus2.casl

   1 MAIN    START
   2         LAD     GR1,-20
   3     CALL MINUS
   4         RET
   5     END
   6 MINUS   START
   7         CPA GR1,=#FFFF
   8     JZE MFIN
   9         XOR     GR1,=#FFFF
  10     LAD GR1,1,GR1
  11 MFIN    RET
  12         END