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