O$XP, PLOT, O$XO, OFFSET, O$XF, FACTOR, O$XW, WHERE, O$XG, ORIGIN

* 0078-001-H908 (O$XP) DRAWING NO. 41285371-301-02 PAGE 3

0101 * CALL O$XF PROVIDE THE SCALE VALUE FOR BOTH AXES 0102 * DAC FACT SCALE VALUE 0103 * NORMAL RETURN 0104 * 0105 * FACTOR IS AN IDENTICAL ENTRY TO O$XF 0106 * 0107 * REQUEST PRESENT PEN POSITION AND SCALE VALUE 0108 * 0109 * CALL O$XW (X,Y,FACT) 0110 * 0111 * OR 0112 * 0113 * CALL O$XW PRESENT PEN POSITION AND SCALE VALUE 0114 * DAC X PRESENT PEN POSITION, X CO-ORDINATE 0115 * DAC Y PRESENT PEN POSITION, Y CO-ORDINATE 0116 * DAC FACT CURRENT SCALE VALUE 0117 * OCT 0 END OF PARAMETER LIST 0118 * NORMAL RETURN 0119 * 0120 * WHERE IS AN IDENTICAL ENTRY TO O$XW 0121 * 0122 * SET PEN AT ORIGIN 0123 * 0124 * CALL O$XG 0125 * ' 0126 * OR 0127 * 0128 * CALL O$XG SET PEN AT ORIGIN 0129 * NORMAL RETURN 0130 * 0131 * ORIGIN IS AN IDENTICAL ENTRY TO O$XG 0132 * 0133 * 0134 * METHOD 0135 * 0136 * A CALL ON THE O$XP ROUTINE WILL MOVE THE PEN FROM ITS PRESENT 0137 * POSITION (GIVEN BY THE O$XW ROUTINE) TO THE POINT SPECIFIED IN THE 0138 * CALL. THE MOVE WILL BE MADE WITH THE PEN DOWN IF IC=2 OR UP IF 0139 * IC=3. IF IC IS NEGATIVE THE PLOT WILL BE ENDED AFTER THE MOVE IS 0140 * MADE AND CONTROL RETURNED TO THE CALLING PROGRAM. IF IC=12 OR 13 0141 * THE INPUTS FROM THE O$XO ENTRANCE WILL BE USED. 0142 * 0143 * A CALL ON THE O$XO ROUTINE WILL CAUSE THE ORIGIN AND ITS AXES TO BE 0144 * OFFSET TO THE POINT CALLED. WITH SCALES AS SPECIFIED. SUBSEOUENT 0145 * PLOTS WILL REFER TO THIS NEW ORIGIN. 0146 * 0147 * THE O$XF ROUTINE PROVIDES THE SCALE FOR BOTH AXES. WHETHER OFFSET 0148 * OR BASED ON THE ORIGIN. 0149 * 0150 * THE O$XG ROUTINE MOVES THE PEN WEST 360 MILLIMETRES AND BACK EAST