as/ptn4.casl

   1 PTN4    START
   2         ST      GR1,WRK
   3         LD      GR1,GR2
   4         CALL    PTN1
   5         PUSH    0,GR2       ; PTN1 の結果を一時保存
   6         LD      GR1,WRK
   7         LAD     GR1,1,GR1   ; ビット番号の調整
   8         CALL    PTN2
   9         POP     GR1         ; 保存していた PTN1 の結果を GR1 ヘ
  10         XOR     GR2,GR1
  11         LD      GR1,WRK
  12         RET
  13 WRK     DS      1
  14         END