ASMB,R,L
* 
*      NAME:     GETSP
*      SOURCE:   92067-18459
*      RELOC:    92067-16104
*      PGMR:     C.M.M. 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM GETSP,7 92067-16104 REV.1903 790503 
* 
      ENT GETSP 
      EXT $SPCR,OVRD. 
* 
* 
GETSP NOP 
      ISZ GETSP     SET UP RETURN ADDRESS 
      ISZ GETSP 
      LDA OVRD.     GET THE I CAN WRITE ON LU 2 & 3 WORD
      ADA B40K      SET BIT 14
      STA OVRD.     & PUT IT BACK 
* 
      LDA $SPCR 
      JMP GETSP,I   RETURN
* 
* 
A     EQU 0 
B     EQU 1 
B40K  OCT 40000 
*$SPCR  DEC -50 
      END 
                                                