*DECK PBEXIT
         NAM   PBEXIT 
         ENT   PBEXIT 
         ENT   BACK      RETURN PT FROM UTOPIA
         EXT   DEBUGX    ENTRY PT TO UTOPIA 
         EXT   QTOPSK 
* 
PBEXIT   NOP   0
         IIN   0
         SRG   SAVE      SAVE REGISTERS 
         JMP   DEBUGX    EXIT- INT LOCKED 
* 
BACK     LRG   SAVE      RESTORE REGISTERS
         LDA   QTOPSK 
         SAN   1
         EIN   0
         JMP*  (PBEXIT)  RETURN TO CALLER 
* 
         BZS   AREA(10) 
SAVE     ADC   AREA-10
         END
