O$XA, SYMBOL

* 0078-001-H902 (OSXA) DRAWING NO. 41285374-001-02 PAGE 12

0551 00512 0 000550 DAC YY FLOATING POINT Y VALUE 0552 00513 0 10 00000 CALL A$22 FLOATING POINT ADDITION 0553 00514 0 000572 DAC CAMP RESULT 0554 00515 0 04 00550 STA YY Y CO-ORDINATE TO PLOT - WORD A 0555 00516 000201 IAB 0556 00517 0 04 00551 STA YY+1 Y CO-ORDINATE TO PLOT - WORD B 0557 * 0558 00520 0 10 00000 CALL O$XP PLOT A LINE 0559 00521 0 000546 DAC XX X CO-ORDINATE 0560 00522 0 000550 DAC YY Y CO-ORDINATE 0561 00523 0 000600 DAC IC PEN POSITION INDICATOR 0562 00524 000000 HLT END OF PARAMETER LIST 0563 * 0564 00525 0 02 01513 LDA =2 INDICATE PEN DOWN 0565 00526 0 01 00240 JMP STDA RETURN FOR NEXT POINT 0566 * 0567 * 0568 * SUBROUTINES 0569 * 0570 * PICK UP A FLOATING POINT PARAMETER 0571 00527 0 000000 PCUP DAC ** ENTRY POINT 0572 00530 -0 02 00000 LDA* O$XA PARAMETER ADDRESS 0573 00531 0 04 00533 STA PCUA PARAMETER VALUE 0574 00532 0 10 00000 CALL L$22 FLOATING POINT LOAD 0575 00533 0 00 00000 PCUA *** ** PARAMETER VALUE 0576 00534 0 12 00000 IRS O$XA TALLY PARAMETER ADDRESS 0577 00535 -0 01 00527 JMP* PCUP EXIT 0578 * 0579 * 0580 * VARIABLES 0581 * 0582 00536 000000 HGHT BSZ 2 HEIGHT OF SYMBOL 0583 00540 000000 THTA BSZ 2 ANGLE OF INCLINATION OF SYMBOL 0584 00542 000000 XFLO BSZ 2 FLOATING POINT X PARAMETER 0585 00544 000000 YFLO BSZ 2 FLOATING POINT Y PARAMETER 0586 00546 000000 XX BSZ 2 X CO-ORDINATE TO PLOT 0587 00550 000000 YY BSZ 2 Y CO-ORDINATE TO PLOT 0588 00552 000000 FACT BSZ 2 SCALE FACTOR 0589 00554 000000 RTHT BSZ 2 ANGLE IN RADIANS 0590 00556 000000 INCS BSZ 2 POLAR OFFSET FACTOR (SINE) 0591 00560 000000 INCC BSZ 2 POLAR OFFSET FACTOR (COSINE) 0592 00562 000000 XT BSZ 2 OFFSET X 0593 00564 000000 YT BSZ 2 OFFSET Y 0594 00566 000000 OFFX BSZ 2 X PART OF CURRENT PAIR 0595 00570 000000 OFFY BSZ 2 Y PART OF CURRENT PAIR 0596 00572 000000 CAMP BSZ 2 RESULT 0597 00574 000000 CDWS BSZ 2 OFFSET VALUE CODE WORD 0598 * 0599 00576 000000 BCD BSZ 1 SYMBOL LOCATION 0600 00577 000000 NS BSZ 1 NUMBER OF CHARACTERS PARAMETER