ASMB,L,R,C
      HED J.PUT 
*     NAME:   J.PUT 
*     SOURCE: 92067-18148 
*     RELOC:  92067-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (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 J.PUT,8 92067-16125 REV.1903 740801 
      ENT J.PUT 
      EXT $LIBR,$LIBX 
      EXT .ENTR 
* 
*     J.PUT IS CALLED TO REQUEST A TRACK FOR THE FMGR 
* 
*     THE CALL IS:
* 
*     CALL J.PUT(TAT1,CD,ER)
* 
*     W H E R E:
* 
*     TATA1   IS THE ADDRESS OF THE TAT WORD FOR THE DESIRED TRACK
*     CD      IS THE CODE TO BE SET IN THE TAT. 
*     ER      IS 0 IF SUCCESSFUL OR NON-ZERO IF NOT.
* 
*     IF THE ERROR RETURN IS MADE NO TRACK WILL BE ASSIGNED.
* 
* 
TATA1 NOP 
CD    NOP 
ER    NOP 
JPUT  NOP 
      JSB .ENTR     DO ENTRY
      DEF TATA1 
      JSB $LIBR     INHIBIT CHANGES 
      NOP           WHILE WE WORK 
      LDB TATA1,I   GET HIGH END OF TAT 
NEX   LDA B,I       GET CURRENT ASSIGNMENT
      SZA           IF AVAILABLE
      CPA GLOBL     OR GLOBAL 
      CCA,RSS       SKIP A _ -1 
      JMP EXIT      ELSE ERROR RETURN 
      LDA CD,I      GET THE DESIRED CODE
      STA B,I       SET IN TAT
EXIT1 CLB           SET B FOR GOOD ASSIGNMENT 
EXIT  STB ER,I      IT IS TRACK ON LU3 - SO SET IT
      JSB $LIBX     EXIT
      DEF JPUT      TO CALLER 
      SPC 2 
GLOBL OCT 77776 
      SPC 2 
J.PUT EQU JPUT
A     EQU 0 
B     EQU 1 
      SPC 1 
ENQ   EQU * 
      SPC 1 
      END 
                                                                                                                                                                                                                                        