as/ptn1.casl

   1 PTN1    START
   2         PUSH    0,GR1
   3             LAD     GR2,15
   4         SUBL    GR2,GR1
   5         LD      GR1,GR2
   6         LD      GR2,=#8000
   7         SRA     GR2,0,GR1
   8         POP     GR1
   9         RET
  10         END