O$XA, SYMBOL

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

0401 00312 0 04 00542 STA XFLO OFFSET X PARAMETER - WORD A 0402 00313 000201 IAB 0403 00314 0 04 00543 STA XFLO+1 OFFSET X PARAMETER - WORD B 0404 * 0405 00315 0 02 00545 LDA YFLO+1 Y PARAMETER - WORD B 0406 00316 000201 IAB 0407 00317 0 02 00544 LDA YFLO Y PARAMETER - WORD A 0408 00320 0 10 00000 CALL A$22 FLOATING POINT ADD 0409 00321 0 000564 DAC YT OFFSET FOR Y 0410 00322 0 04 00544 STA YFLO OFFSET Y PARAMETER - WORD A 0411 00323 000201 IAB 0412 00324 0 04 00545 STA YFLO+1 OFFSET Y PARAMETER - WORD B 0413 * 0414 * HAS THE END OF THE ALPHANUMERIC LIST BEEN REACHED? 0415 00325 0 12 00603 IRS SCWM TALLY SYMBOL COUNT 0416 00326 0 01 00334 JMP SYME NOT END OF LIST, CHECK NO. OF CHARACTERS 0417 00327 0 02 01514 LDA =-2 0418 00330 0 04 00603 STA SCWM SYMBOL COUNT FOR NEXT WORD 0419 00331 0 12 00576 IRS BCD TALLY ADDRESS OF ALPHANUMERIC LIST 0420 00332 -0 02 00576 LDA* BCD ALPHANUMERIC LIST 0421 00333 0 04 00611 STA SBCD NEXT CURRENT SYMBOL WORD 0422 * 0423 00334 0 02 00602 SYME LDA NSCM NUMBER OF CHARACTERS 0424 00335 0 06 01506 ADD =-1 DECREASE BY ONE 0425 00336 0 04 00602 STA NSCM NUMBER OF CHARACTERS 0426 00337 100040 SZE END OF CHARACTER LIST? 0427 00340 0 01 00163 JMP LOC GO AND PROCESS NEXT CHARACTER ON LIST 0428 00341 0 35 00612 LDX SAVX RESTORE INDEX 0429 00342 0 12 00000 IRS O$XA INCREMENT EXIT 0430 00343 -0 01 00000 JMP* O$XA EXIT 0431 * 0432 * SPECIAL CHARACTER TREATMENT 0433 * 0434 * OFFSET FLOATING POINT X VALUE - XFLO=XFLO+2.0*(INCS-INCC) 0435 00344 0 02 00557 SPZR LDA INCS+1 POLAR OFFSET FACTOR (SINE) - WORD B 0436 00345 000201 IAB 0437 00346 0 02 00556 LDA INCS POLAR OFFSET FACTOR (SINE) - WORD A 0438 00347 0 10 00000 CALL S$22 FLOATING POINT SUBTRACT 0439 00350 0 000560 DAC INCC POLAR OFFSET FACTOR (COSINE) 0440 00351 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0441 00352 0 000613 DAC TWOO FLOATING POINT TWO 0442 00353 0 04 00572 STA CAMP RESULT =2.0*(INCS-INCC) - WORD A 0443 00354 000201 IAB 0444 00355 0 04 00573 STA CAMP+1 RESULT =2.0*(INCS-INCC) - WORD B 0445 * 0446 00356 0 02 00563 LDA XT+1 OFFSET X - WORD B 0447 00357 000201 IAB 0448 00360 0 02 00562 LDA XT OFFSET X - WORD A 0449 00361 0 10 00000 CALL S$22 FLOATING POINT SUBTRACT 0450 00362 0 000572 DAC CAMP 2.0*(INCS-INCC)