O$XA, SYMBOL

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

0451 00363 0 04 00562 STA XT OFFSET X - WORD A XT=XT-2.0*(INCS-INCC) 0452 00364 000201 IAB 0453 00365 0 04 00563 STA XT+1 OFFSET X - WORD B 0454 00366 0 02 00573 LDA CAMP+1 2.0*(INCS-INCC) - WORD B 0455 00367 000201 IAB 0456 00370 0 02 00572 LDA CAMP 2.0*(INCS-INCC) - WORD A 0457 00371 0 10 00000 CALL A$22 FLOATING POINT ADDITION 0458 00372 0 000542 DAC XFLO FLOATING POINT X PARAMETER 0459 00373 0 04 00542 STA XFLO OFFSET FLOATING POINT X VALUE - WORD A 0460 00374 000201 IAB 0461 00375 0 04 00543 STA XFLO+1 OFFSET FLOATING POINT X VALUE - WORD B 0462 * 0463 * OFFSET FLOATING POINT Y VALUE - YFLO=YFLO-2.0*(INCC+INCS) 0464 00376 0 02 00561 LDA INCC+1 POLAR OFFSET FACTOR (COSINE) - WORD B 0465 00377 000201 IAB 0466 00400 0 02 00560 LDA INCC POLAR OFFSET FACTOR (COSINE) - WORD A 0467 00401 0 10 00000 CALL A$22 FLOATING POINT ADDITION 0468 00402 0 000556 DAC INCS POLAR OFFSET FACTOR (SINE) 0469 00403 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0470 00404 0 000613 DAC TWOO FLOATING POINT TWO 0471 00405 0 04 00572 STA CAMP RESULT - WORD A 0472 00406 000201 IAB 0473 00407 0 04 00573 STA CAMP+1 RESULT - WORD B 0474 00410 0 02 00545 LDA YFLO+1 FLOATING POINT Y PARAMETER - WORD B 0475 00411 000201 IAB 0476 00412 0 02 00544 LDA YFLO FLOATING POINT Y PARAMETER - WORD A 0477 00413 0 10 00000 CALL S$22 FLOATING POINT SUBTRACT 0478 00414 0 000572 DAC CAMP RESULT 0479 00415 0 04 00544 STA YFLO OFFSET FLOATING POINT Y VALUE - WORD A 0480 00416 000201 IAB 0481 00417 0 04 00545 STA YFLO+1 OFFSET FLOATING POINT Y VALUE - WORD B 0482 00420 0 02 00573 LDA CAMP+1 RESULT - WORD B 0483 00421 000201 IAB 0484 00422 0 02 00572 LDA CAMP RESULT - WORD A 0485 00423 0 10 00000 CALL A$22 FLOATING POINT ADDITION 0486 00424 0 000564 DAC YT OFFSET Y 0487 00425 0 04 00564 STA YT OFFSET Y - WORD A YT=YT+2.0*(INCC+INCS) 0488 00426 000201 IAB 0489 00427 0 04 00565 STA YT+1 OFFSET Y - WORD B 0490 00430 0 01 00211 JMP SPZS GO AND PLOT THIS SYMBOL 0491 * 0492 * PLOT THE CURRENT SYMBOL 0493 00431 0 35 01503 SYMD LDX =-4 X-REGISTER FOR COUNT OF 4 0494 00432 1 02 00546 L6 LDA XFLO+4,1 FLOATING POINT X & Y VALUES 0495 00433 1 04 00552 STA XX+4,1 TEMPORARY FLOATING POINT X & Y VALUES 0496 00434 0 12 00000 IRS 0 TALLY COUNT 0497 00435 0 01 00432 JMP L6 RETURN FOR NEXT VALUE 0498 00436 0 02 00610 LDA OFFW CURRENT PAIR TO PLOT 0499 00437 0400 75 LRL 3 TAKE X PART OF PAIR 0500 00440 0 10 00000 CALL C$12 FIXED TO FLOATING