as/ptn2.casl

   1 PTN2    START
   2         PUSH    0,GR1
   3         LAD     GR2,16
   4         SUBL    GR2,GR1
   5         LD      GR1,GR2
   6         LD      GR2,=#FFFF
   7         SRL     GR2,0,GR1
   8         POP     GR1
   9         RET
  10         END