as/suba_p.casl

   1 MAIN    START
   2 BEGIN   LD      GR1,A
   3         SUBA    GR1,B
   4     CALL        ITOA
   5     RET
   6 A       DC      0
   7 B       DC      #7FFF
   8 C       DS      1
   9         END