SUBROUTINE LOXY (IX0,IY0)
C
C     SUBROUTINE TO POSITION BEAM
C     FORTRAN2
C
C
C     MAX-PLANCK-INSTITUT FUER PSYCHIATRIE
C     STEPHAN V. BECHTOLHEIM, ULRICH GSCHREI
C     KRAEPELINSTR.5
C     8 MUENCHEN 40
C     WESTERN GERMANY
C
C     DATE: SATURDAY  APRIL 5, 1975
C 
C     VERSION A
C
C
C
C     THE USER MUST EDIT THE VARIABLES ADXPOS AND ADYPOS
C     INCLUDING THE INSTRUCTION CDFHEL ACCORDING TO THE
C     PARAMETER FILE
C
C
C
C
C
C     IX0=X-POSITION OF BEAM
C     IY0=Y-POSITION OF BEAM
C
C
C
      IX=IX0
      IY=IY0
C
C
S OPDEF CLAL    7300    /CLEAR AC AND LINK
S OPDEF RDF     6214    /READ DATA FIELD
S OPDEF CDFHEL  6231    /CDF FIELD OF PROGRAM HELP
S                       /REFER TO THE PARAMETER FILE
S OPDEF DILX    6053    /LOAD X-REGISTER OF VC8E
S OPDEF DILY    6064    /LOAD Y-REGISTER OF VC8E
S       CLAL
S       RDF
S       TAD ICDF
S       DCA CDFCF       /INSTRUCTION CDF
S                       /CURRENT FILED
S       CDFHEL          /CDF FOR LOADING XPOS
S                       /AND YPOS IN PROGRAM HELP
S       TAD \IX
S       DILX
S M,    3661            /DCA I ADXPOS
S       TAD \IY
S       DILY
S N,    3662            /DCA I ADYPOS
S CDFCF,0               /RESTORE CURRENT DATA FIELD
S       CLAL
      RETURN
S ADXPOS,3356           /ADDRESS OF XPOS IN PROGRAM
S                       /HELP. REFER TO THE PARAMETER FILE
S ADYPOS,3357           /SAME TO YPOS
S ICDF, 6201            /CDF
      END