*COMDECK UNLOCK 
         NAM   UNLOCK 
         ENT   UNLOCK 
         EXT   QTOPSK    INT COUNT
         EXT   PBHALT    SYSTEM HALT
          EXT    J0INTCNT    INTERRUPT COUNT < 0 HALT CODE
* 
UNLOCK   NOP   0
         IIN   0
         LDA   QTOPSK 
         INA   -1        DECREMENT INT COUNT
         STA   QTOPSK 
         SAZ   ENABLE    COUNT = 0, ENABLE INT
         SAP   DONT      COUNT > 0, DO NOT ENABLE INT 
         RTJ   PBHALT    COUNT < 0, ERROR 
         ADC   CODE 
* 
ENABLE   EIN   0
DONT     JMP*  (UNLOCK) 
* 
CODE      ADC    J0INTCNT 
         END
