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 10

0451 00321 0 12 00302 IRS O$XO ADDRESS OF NEXT PARAMETER 0452 00322 0 10 00421 JST PCUP PICK UP YMIN 0453 00323 0 04 00463 STA YMIN Y FROM OFFSET ENTRY - WORD A 0454 00324 000201 IAB 0455 00325 0 04 00464 STA YMIN+1 Y FROM OFFSET ENTRY - WORD B 0456 00326 -0 02 00302 LDA* O$XO ADDRESS OF YFAC 0457 00327 0 12 00302 IRS O$XO ADDRESS OF END OF PARAMETER LIST 0458 00330 0 12 00302 IRS O$XO RETURN ADDRESS 0459 00331 0 10 00421 JST PCUP PICK UP YFAC 0460 00332 0 04 00467 STA YFAC SCALE FACTOR FOR Y - WORD A 0461 00333 000201 IAB 0462 00334 0 04 00470 STA YFAC+1 SCALE FACTOR FOR Y - WORD B 0463 * 0464 00335 0 35 00440 LDX SAV1 RESTORE INDEX 0465 00336 -0 01 00302 JMP* O$XO EXIT 0466 * 0467 * 0468 * PROVIDE THE SCALE VALUE FOR BOTH AXES 0469 * 0470 00337 0 000000 O$XF DAC ** PROVIDE SCALE VALUE FOR BOTH AXES 0471 00340 0 15 00441 STX SAV2 SAVE INDEX 0472 00341 -0 02 00337 LDA* O$XF SCALE FACTOR ADDRESS 0473 00342 0 12 00337 IRS O$XF RETURN ADDRESS 0474 00343 0 10 00421 JST PCUP PICK UP SCALE FACTOR 0475 00344 0 04 00510 STA FACT FLOATING POINT SCALE FACTOR - WORD A 0476 00345 000201 IAB 0477 00346 0 04 00511 STA FACT+1 FLOATING POINT SCALE FACTOR - WORD B 0478 00347 000201 IAB 0479 00350 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0480 00351 0 000514 DAC FFCT UNITS CONVERSION FACTOR 0481 00352 0 04 00512 STA SFCT CONVERTED SCALE FACTOR - WORD A 0482 00353 000201 IAB 0483 00354 0 04 00513 STA SFCT+1 CONVERTED SCALE FACTOR - WORD B 0484 00355 0 35 00441 LDX SAV2 RESTORE INDEX 0485 00356 -0 01 00337 JMP* O$XF EXIT 0486 * 0487 * 0488 * REOUEST PRESENT PEN POSITION 0489 * 0490 00357 0 000000 O$XW DAC ** REOUEST PRESENT PEN POSITION 0491 00360 0 15 00442 STX SAV3 SAVE INDEX 0492 00361 0 02 00453 LDA XFX+1 X POSITION - WORD B 0493 00362 000201 IAB 0494 00363 0 02 00452 LDA XFX X POSITION - WORD A 0495 00364 0 10 00426 JST STOR STORE X POSITION 0496 * 0497 00365 0 02 00455 LDA YFY+1 Y POSITION - WORD B 0498 00366 000201 IAB 0499 00367 0 02 00454 LDA YFY Y POSITION - WORD A 0500 00370 0 10 00426 JST STOR STORE Y POSITION