*COMDECK ZERO 
         NAM   ZEROX
         ENT   ZEROX
          ENT    INITBF      START OF BUFFER AREA FOR SAMP AND PINIT
         EXT   BEGINX 
          EXT    NCBMAX      MAXIMUM NCB SIZE 
ZEROX    JMP+  BEGINX         GO TO MAIN INITIALIZATION PATH
          BZS    JUMP(2)     SPACE FOR JUMP INSTRUCTION BY SAMP 
INITBF    ADC    0           START OF BUFF AREA FOR SAMP AND PINIT
          ADC    NCBMAX      MAXIMUM NCB SIZE 
*                            SAMP SAVES A PART OF CCP BEYOND NCB
*                            LOAD AREA BASED ON THESE.
          BZS    FILL($3A)   PAD TO STACK AREA
         END
