*COMDECK PBAEXIT
         NAM   PBAEXIT   RESTORE APPLICABLE REGISTERS 
         ENT   PBAEXIT   AT THE EXIT POINT OF A GOTO EXIT 
         EXT   QTOPSK    WHERE THE EXIT WAS FROM WITHIN A 
*                        WITH STATEMENT 
PBAEXIT  NOP   0
         IIN   0
         LDQ*  (PBAEXIT)
         LR1+  0,Q       RESTORE R1 
         LR2-  1,Q       RESTORE R2 
         RAO*  PBAEXIT
         LDA   QTOPSK 
         SAN   1
         EIN   0
         JMP*  (PBAEXIT)
         END
