SUBAR  START
       LAD GR0,10
       SUBA GR0,AD1
       LAD GR1,1
       SUBA GR1,AD1
       LD GR2,AD3
       SUBA GR2,AD2
       RET
AD1    DC 5
AD2    DC 32000
AD3    DC -2000
       END