*COMDECK PBBEXIT
         NAM   PBBEXIT   SAVE APPLICABLE REGISTERS
         ENT   PBBEXIT   BEFORE GOING TO A PROCEDURE
         EXT   QTOPSK    THAT HAS A GOTO EXIT 
*                        FROM WITHIN A WITH STATEMENT 
PBBEXIT  NOP   0
         IIN   0
         LDQ*  (PBBEXIT)
         SR1+  0,Q       SAVE R1
         SR2-  1,Q       SAVE R2
         RAO*  PBBEXIT) 
         LDA   QTOPSK 
         SAN   1
         EIN   0
         JMP*  (PBBEXIT)
         END
