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 12

0551 00433 0 02 00443 LDA SAV4 RESTORE INDEX 0552 00434 0 10 00000 CALL H$22 SINGLE PRECISION HOLD 0553 00435 0 00 00000 L4 *** ** PEN POSITIONING ENTRY ADDRESS 0554 00436 -0 01 00426 JMP* STOR EXIT 0555 * 0556 * VARIABLES 0557 * 0558 00437 000000 SAVE BSZ 1 PLOT ROUTINE INDEX 0559 00440 000000 SAV1 BSZ 1 OFFSET ROUTINE INDEX 0560 00441 000000 SAV2 BSZ 1 FACTOR ROUTINE INDEX 0561 00442 000000 SAV3 BSZ 1 POSITIONING ROUTINE INDEX 0562 00443 000000 SAV4 BSZ 1 STORE ROUTINE INDEX 0563 * 0564 00444 000000 XFLT BSZ 2 FLOATING POINT X VALUE 0565 00446 000000 YFLT BSZ 2 FLOATING POINT Y VALUE 0566 * 0567 00450 000000 IPNX BSZ 1 PREVIOUS PEN POSITION 0568 00451 000000 IPNY BSZ 1 PREVIOUS PEN POSITION 0569 00452 000000 XFX BSZ 2 FLOATING POINT X POSITION 0570 00454 000000 YFY BSZ 2 FLOATING POINT Y POSITION 0571 * 0572 00456 000000 IC BSZ 1 PEN CONTROL PARAMETER 0573 00457 000000 IP BSZ 1 ABSOLUTE PEN CONTROL PARAMETER 0574 00460 000000 PENP BSZ 1 PEN POSITION INDICATOR 0575 * 0576 00461 000000 XMIN BSZ 2 X FROM OFFSET ENTRY 0577 00463 000000 YMIN BSZ 2 Y FROM OFFSET ENTRY 0578 00465 000000 XFAC BSZ 2 FLOATING POINT X SCALE 0579 00467 000000 YFAC BSZ 2 FLOATING POINT Y SCALE 0580 * 0581 00471 000000 IX BSZ 1 FIXED POINT X VALUE 0582 00472 000000 IY BSZ 1 FIXED POINT Y VALUE 0583 00473 000000 TEMP BSZ 1 TEMPORARY STORE 0584 00474 000000 DLTX BSZ 1 DELTA X 0585 00475 000000 DLTY BSZ 1 DELTA Y 0586 00476 000000 IDLX BSZ 1 ABSOLUTE DELTA X 0587 00477 000000 IDLY BSZ 1 ABSOLUTE DELTA Y 0588 00500 000000 XPLT BSZ 1 X DIRECTION 0589 00501 000000 YPLT BSZ 1 Y DIRECTION 0590 00502 000000 XYPL BSZ 1 COMBINATION MOVE 0591 00503 000000 TDX BSZ 1 2*DELTA X 0592 00504 000000 TDY BSZ 1 2*DELTA Y 0593 00505 000000 N BSZ 1 COUNTER 0594 * 0595 * 0596 * CONSTANTS 0597 * 0598 00506 14 0027 OCP OCP DADP BASIC OCP INSTRUCTION 0599 00507 000002 PNER OCT 2 PEN ERROR 0600 00510 040300 FACT DEC 1.0 FLOATING POINT SCALE VALUE