O$XA, SYMBOL

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

0501 00441 0 04 00566 STA OFFX X PART OF CURRENT PAIR - WORD A 0502 00442 000201 IAB 0503 00443 0 04 00567 STA OFFX+1 X PART OF CURRENT PAIR - WORD B 0504 * 0505 00444 0 02 00610 LDA OFFW CURRENT PAIR TO PLOT 0506 00445 0 03 01502 ANA ='7 TAKE Y PART OF PAIR 0507 00446 0 10 00000 CALL C$12 FIXED TO FLOATING 0508 00447 0 04 00570 STA OFFY Y PART OF CURRENT PAIR - WORD A 0509 00450 000201 IAB 0510 00451 0 04 00571 STA OFFY+1 Y PART OF CURRENT PAIR - WORD B 0511 * 0512 * CALCULATE ACTUAL COORDINATES FOR PLOTTING 0513 * 0514 * XX=XX+(OFFX*INCC)-(OFFY*INCS) 0515 00452 000201 IAB BRING BACK OFFY 0516 00453 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0517 00454 0 000556 DAC INCS POLAR OFFSET FACTOR (SINE) 0518 00455 0 04 00572 STA CAMP RESULT - WORD A 0519 00456 000201 IAB 0520 00457 0 04 00573 STA CAMP+1 RESULT - WORD B 0521 * 0522 00460 0 02 00567 LDA OFFX+1 X PART OF CURRENT PAIR - WORD B 0523 00461 000201 IAB 0524 00462 0 02 00566 LDA OFFX X PART OF CURRENT PAIR - WORD A 0525 00463 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0526 00464 0 000560 DAC INCC POLAR OFFSET FACTOR (COSINE) 0527 00465 0 10 00000 CALL A$22 FLOATING POINT ADDITION 0528 00466 0 000546 DAC XX FLOATING POINT X VALUE 0529 00467 0 10 00000 CALL S$22 FLOATING POINT SUBTRACT 0530 00470 0 000572 DAC CAMP RESULT 0531 00471 0 04 00546 STA XX X CO-ORDINATE TO PLOT - WORD A 0532 00472 000201 IAB 0533 00473 0 04 00547 STA XX+1 X CO-ORDINATE TO PLOT - WORD B 0534 * 0535 * YY=YY+(OFFX*INCS)+(OFFY*INCC) 0536 00474 0 02 00571 LDA OFFY+1 Y PART OF CURRENT PAIR - WORD B 0537 00475 000201 IAB 0538 00476 0 02 00570 LDA OFFY Y PART OF CURRENT PAIR - WORD A 0539 00477 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0540 00500 0 000560 DAC INCC POLAR OFFSET FACTOR (COSINE) 0541 00501 0 04 00572 STA CAMP RESULT - WORD A 0542 00502 000201 IAB 0543 00503 0 04 00573 STA CAMP+1 RESULT - WORD B 0544 * 0545 00504 0 02 00567 LDA OFFX+1 X PART OF CURRENT PAIR - WORD B 0546 00505 000201 IAB 0547 00506 0 02 00566 LDA OFFX X PART OF CURRENT PAIR - WORD A 0548 00507 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0549 00510 0 000556 DAC INCS POLAR OFFSET FACTOR (SINE) 0550 00511 0 10 00000 CALL A$22 FLOATING POINT ADDITION