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: PLOT ORIGIN (PORG) C SOURCE: 92840 - 18041 C RELOC: 92840 - 16001 C C C CC*********************************************************** C SUBROUTINE XPORG(IN,IGCB,X,Y), 92840-16001 REV.1819 780515 DIMENSION XY(2) EQUIVALENCE (XY(2),YX) DATA IPORG/17/ 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 SET BIT INDICATING PORG HAS BEEN CALLED C CALL GRSTS(2,77377B,400B) XY = X YX = Y CALL GCBIM(IPORG,1,XY,0,2) RETURN END END$