FTN,L 
C 
C 
C 
CC************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
CC************************************************************
C 
C 
C 
C      NAME: LABEL ORIGIN 
C      SOURCE: 92840 - 18030
C      RELOC:  92840 - 16001
C 
C 
C 
CC*********************************************************** 
C 
      SUBROUTINE XLORG(INN,IGCB,MODE), 92840-16001 REV.1819 780515
      DIMENSION IBUFR(2),LRBUF(2) 
      EQUIVALENCE (IB2,IBUFR(2)),(LRBUF,L1),(LRBUF(2),L2) 
      EQUIVALENCE (IBUFR,LRG) 
      DATA LRG/6401B/ 
      DATA LORNG/34002B/
      DATA LARG/21/ 
C 
C     THIS MODULE IS FOR THE AGL COMMAND LABLE ORIGIN (LORG)
C 
CCCC
C     THIS CALL ESTABLISHES AN ADDRESS LINK BETWEEN THE GRAPGHICS 
C  PACKAGE AND THE CURRENT GCB AND ALSO CHECKS FOR A SUSPENDED GCB. 
C 
      ISUSP= 0
      CALL GCBIM(99,1,IGCB,ISUSP) 
      IF(ISUSP.NE.0)RETURN
C 
C     LORG RANGE
C 
      CALL OUTPT(1,LORNG,1) 
      CALL GCBIM(16,1,LRBUF,2,1)
C 
C     SEE IF MODE IS: 0<MODE<9
C 
      IF(MODE.LT.0.OR.MODE.GT.9)GO TO 800 
      IB2 = MODE
      IF(MODE.LT.L1)IB2= L1 
      IF(MODE.GT.L2)IB2 = L2
      CALL OUTPT(1,IBUFR,2) 
      CALL GCBIM(LARG,1,MODE,0,2) 
      RETURN
800   CALL PLTER(24,21) 
      RETURN
      END 
      END$
                                                                                                                                                                                                                                                      