O$XA, SYMBOL

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

0201 * TEST FOR SPECIAL CHARACTER 0202 00053 0 02 00577 LDA NS NUMBER OF CHARACTERS PARAMETER 0203 00054 100400 SPL IS IT NEGATIVE? 0204 00055 0 01 00060 JMP SPEC YES, SPECIAL CHARACTER 0205 00056 0 04 00602 STA NSCM NO, NUMBER OF CHARACTERS IN LIST 0206 00057 0 01 00107 JMP NORM CONTINUE WITH NORMAL CHARACTER LIST 0207 * 0208 * SPECIAL CHARACTER TREATMENT 0209 00060 0 02 01517 SPEC LDA =1 0210 00061 0 04 00602 STA NSCM ONE SPECIAL CHARACTER 0211 00062 0 02 01516 LDA ='77777 0212 00063 0 04 00601 STA SPCH INDICATE SPECIAL CHARACTER 0213 00064 -0 02 00576 LDA* BCD SYMBOL 0214 00065 0 11 01515 CAS =15 IS IT TO BE CENTERED? 0215 00066 0 01 00100 JMP SPCA NO 0216 00067 101000 NOP YES 0217 * 0218 * CALCULATE SCALE FACTOR FOR CENTRALISED SPECIAL CHARACTER 0219 00070 0 02 00537 LDA HGHT+1 SYMBOL HEIGHT - WORD B 0220 00071 000201 IAB 0221 00072 0 02 00536 LDA HGHT SYMBOL HEIGHT - WORD A 0222 00073 0 10 00000 CALL D$22 FLOATING POINT DIVIDE 0223 00074 0 000615 DAC FOUR FLOATING POINT FOUR 0224 00075 0 04 00552 STA FACT FACTOR=HGHT/4.0 - WORD A 0225 00076 000201 IAB 0226 00077 0 04 00553 STA FACT+1 FACTOR - WORD B 0227 * 0228 * SET PEN READY TO PLOT SPECIAL CHARACTER 0229 00100 0 02 00577 SPCA LDA NS NUMBER OF CHARACTERS 0230 00101 0 11 01514 CAS =-2 PEN DOWN? 0231 00102 0 01 00107 JMP NORM NO 0232 00103 0 01 00105 JMP L2 NS=-2, REQUIRES PEN DOWN 0233 00104 0 01 00107 JMP NORM NO 0234 00105 0 02 01513 L2 LDA =2 PUT PEN DOWN 0235 00106 0 01 00110 JMP IND GO INDICATE PEN DOWN 0236 00107 0 02 01512 NORM LDA =3 PUT PEN UP 0237 00110 0 04 00600 IND STA IC PEN POSITION INDICATOR 0238 * 0239 * CONVERT THE ANGLE TO RADIANS 0240 00111 0 02 00541 LDA THTA+1 ORIENTATION ANGLE - WORD B 0241 00112 000201 IAB 0242 00113 0 02 00540 LDA THTA ORIENTATION ANGLE - WORD A 0243 00114 0 10 00000 CALL D$22 CONVERT DEGREES TO RADIANS 0244 00115 0 000623 DAC RADN CONVERSION FACTOR 0245 00116 0 04 00554 STA RTHT ANGLE IN RADIANS - WORD A 0246 00117 000201 IAB 0247 00120 0 04 00555 STA RTHT+1 ANGLE IN RADIANS - WORD B 0248 * 0249 * CALCULATE THE SINE POLAR OFFSET FACTOR 0250 00121 0 10 00000 CALL SIN SINE ROUTINE