O$XA, SYMBOL

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

0151 00001 0 15 00612 STX SAVX SAVE INDEX 0152 00002 140040 CRA 0153 00003 0 04 00601 STA SPCH SPECIFIC CHARACTER INDICATOR 0154 00004 0 10 00527 JST PCUP PICK UP X PARAMETER 0155 00005 101040 SNZ IS IT ZERO? 0156 00006 0 01 00012 JMP CONA YES, USE ORIGINAL X 0157 00007 0 04 00542 STA XFLO NO, STORE X PARAMETER - WORD A 0158 00010 000201 IAB 0159 00011 0 04 00543 STA XFLO+1 STORE X PARAMETER - WORD B 0160 * 0161 00012 0 10 00527 CONA JST PCUP PICK UP Y PARAMETER 0162 00013 101040 SNZ IS IT ZERO 0163 00014 0 01 00020 JMP CONB YES, USE ORIGINAL Y 0164 00015 0 04 00544 STA YFLO NO, STORE Y PARAMETER - WORD A 0165 00016 000201 IAB 0166 00017 0 04 00545 STA YFLO+1 STORE Y PARAMETER - WORD B 0167 * 0168 00020 0 10 00527 CONB JST PCUP PICK UP HEIGHT PARAMETER 0169 00021 0 04 00536 STA HGHT STORE HEIGHT PARAMETER - WORD A 0170 00022 000201 IAB 0171 00023 0 04 00537 STA HGHT+1 STORE HEIGHT PARAMETER - WORD B 0172 * 0173 00024 -0 02 00000 LDA* O$XA CHARACTER STRING ADDRESS 0174 00025 101400 BACK SMI IS IT INDIRECT? 0175 00026 0 01 00033 JMP L1 NO. GO SAVE ADDRESS 0176 00027 140320 CSA YES. REMOVE INDIRECT BIT 0177 00030 0 04 00000 STA 0 0178 00031 1 02 00000 LDA 0,1 PICK UP NEW ADDRESS 0179 00032 0 01 00025 JMP BACK GO MAKE SURE NOT INDIRECT 0180 00033 0 04 00576 L1 STA BCD SAVE ADDRESS OF ALPHANUMERIC LIST 0181 00034 0 12 00000 IRS O$XA INCREMENT ADDRESS FOR NEXT CHARACTER STRING 0182 * 0183 00035 0 10 00527 JST PCUP PICK UP ANGLE PARAMETER 0184 00036 0 04 00540 STA THTA STORE ANGLE PARAMETER - WORD A 0185 00037 000201 IAB 0186 00040 0 04 00541 STA THTA+1 STORE ANGLE PARAMETER - WORD B 0187 * 0188 00041 0 10 00527 JST PCUP PICK UP NUMBER OF CHARACTERS IN THE LABEL 0189 00042 0 04 00577 STA NS STORE NUMBER OF CHARACTERS IN THE LABEL 0190 * 0191 * CALCULATE SCALE FACTOR FACT=HGHT/7.0 0192 00043 0 02 00537 ASYM LDA HGHT+1 HEIGHT PARAMETER - WORD B 0193 00044 000201 IAB 0194 00045 0 02 00536 LDA HGHT HEIGHT PARAMETER - WORD A 0195 00046 0 10 00000 CALL D$22 FLOATING POINT DIVIDE 0196 00047 0 000621 DAC SEVN FLOATING POINT SEVEN 0197 00050 0 04 00552 STA FACT SCALE FACTOR - WORD A 0198 00051 000201 IAB 0199 00052 0 04 00553 STA FACT+1 SCALE FACTOR - WORD B 0200 *