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 6

0251 00064 100400 SPL IS IT NEGATIVE? 0252 00065 140407 TCA YES, MAKE IT POSITIVE 0253 00066 0 07 00540 SUB =10 0254 00067 100400 SPL IS IC>10? 0255 00070 0 01 00115 JMP NOFF NO, NO OFFSET 0256 * 0257 * OFFSET ROUTINE 0258 * OFFSET X X=(X-XMIN)/XFAC 0259 00071 0 02 00445 OFST LDA XFLT+1 FLOATING POINT X VALUE - WORD B 0260 00072 000201 IAB 0261 00073 0 02 00444 LDA XFLT FLOATING POINT X VALUE - WORD A 0262 00074 0 10 00000 CALL S$22 FLOATING POINT SUBTRACT 0263 00075 0 000461 DAC XMIN X FROM OFFSET ENTRY 0264 00076 0 10 00000 CALL D$22 FLOATING POINT DIVIDE 0265 00077 0 000465 DAC XFAC X SCALE FACTOR 0266 00100 0 04 00444 STA XFLT VALUE OF OFFSET X - WORD A 0267 00101 000201 IAB 0268 00102 0 04 00445 STA XFLT+1 VALUE OF OFFSET X - WORD B 0269 * 0270 * OFFSET Y Y=(Y-YMIN)/YFAC 0271 00103 0 02 00447 LDA YFLT+1 FLOATING POINT Y VALUE - WORD B 0272 00104 000201 IAB 0273 00105 0 02 00446 LDA YFLT FLOATING POINT Y VALUE - WORD A 0274 00106 0 10 00000 CALL S$22 FLOATING POINT SUBTRACT 0275 00107 0 000463 DAC YMIN Y FROM OFFSET ENTRY 0276 00110 0 10 00000 CALL D$22 FLOATING POINT DIVIDE 0277 00111 0 000467 DAC YFAC Y SCALE FACTOR 0278 00112 0 04 00446 STA YFLT VALUE OF OFFSET Y - WORD A 0279 00113 000201 IAB 0280 00114 0 04 00447 STA YFLT+1 VALUE OF OFFSET Y - WORD B 0281 * 0282 * NO OFFSET ACTION 0283 * CONVERT X TO FIXED POINT VALUE IX=X*SFCT 0284 00115 0 02 00445 NOFF LDA XFLT+1 FLOATING POINT X VALUE - WORD B 0285 00116 000201 IAB 0286 00117 0 02 00444 LDA XFLT FLOATING POINT X VALUF - WORD A 0287 00120 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0288 00121 0 000512 DAC SFCT SCALE FACTOR 0289 00122 0 10 00000 CALL C$21 FLOATING POINT TO FIXED POINT 0290 00123 0 04 00471 STA IX FIXED POINT VALUE OF X 0291 * 0292 * CONVERT Y TO FIXED POINT VALUE IY=Y*SFCT 0293 00124 0 02 00447 LDA YFLT+1 FLOATING POINT Y VALUE - WORD B 0294 00125 000201 IAB 0295 00126 0 02 00446 LDA YFLT FLOATING POINT Y VALUE - WORD A 0296 00127 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0297 00130 0 000512 DAC SFCT SCALE FACTOR 0298 00131 0 10 00000 CALL C$21 FLOATING POINT TO FIXED POINT 0299 00132 0 04 00472 STA IY FIXED POINT VALUE OF Y 0300 *