Previous File Previous Page Single Page Next Page Next File

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

0251 00122 0 000554 DAC RTHT SIN THETA 0252 00123 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0253 00124 0 000552 DAC FACT (HGHT/4.0) OR (HGHT/7.0) 0254 00125 0 04 00556 STA INCS POLAR OFFSET FACTOR (SINE) - WORD A 0255 00126 000201 IAB 0256 00127 0 04 00557 STA INCS+1 POLAR OFFSET FACTOR (SINE) - WORD B 0257 * 0258 * CALCULATE OFFSET Y VALUE YT=INCS*6.0 0259 00130 000201 IAB BRING BACK INCS 0260 00131 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0261 00132 0 000617 DAC SSIX FLOATING POINT SIX 0262 00133 0 04 00564 STA YT OFFSET Y - WORD A 0263 00134 000201 IAB 0264 00135 0 04 00565 STA YT+1 OFFSET Y - WORD B 0265 * 0266 * CALCULATE THE COSINE POLAR OFFSET FACTOR 0267 00136 0 10 00000 CALL COS COSINE ROUTINE 0268 00137 0 000554 DAC RTHT ANGLE IN RADIANS 0269 00140 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0270 00141 0 000552 DAC FACT (HGHT/4.0) OR (HGHT/7.0) 0271 00142 0 04 00560 STA INCC POLAR OFFSET FACTOR (COSINE) - WORD A 0272 00143 000201 IAB 0273 00144 0 04 00561 STA INCC+1 POLAR OFFSET FACTOR (COSINE) - WORD B 0274 * 0275 * CALCULATE OFFSET X VALUE XT=INCC*6.0 0276 00145 000201 IAB BRING BACK INCC 0277 00146 0 10 00000 CALL M$22 FLOATING POINT MULTIPLY 0278 00147 0 000617 DAC SSIX FLOATING POINT SIX 0279 00150 0 04 00562 STA XT OFFSET X - WORD A 0280 00151 000201 IAB 0281 00152 0 04 00563 STA XT+1 OFFSET X - WORD B 0282 * 0283 * SET UP NUMBER OF SYMBOLS IN CURRENT WORD 0284 00153 0 02 01514 LDA =-2 0285 00154 0 04 00603 STA SCWM NO. OF SYMBOLS IN CURRENT WORD T 0286 00155 -0 02 00576 LDA* BCD FIRST WORD OF CHARACTER LIST 0287 00156 0 04 00611 STA SBCD STORE ITS ADDRESS 0288 00157 000201 IAB 0289 00160 0 02 00601 LDA SPCH SPECIAL CHARACTER INDICATOR 0290 00161 100040 SZE IS IT ZERO? 0291 00162 0 01 00257 JMP MORE NO. SPECIAL CHARACTER 0292 * 0293 * GET CURRENT G-BIT CHARACTER TO PLOT 0294 00163 0 02 00611 LOC LDA SBCD CURRENT SYMBOL WORD 0295 00164 0412 70 LLR 8 TAKE LEAST SIGNIFICANT HALF 0296 00165 0 04 00611 STA SBCD BALANCE OF MESSAGE WORD 0297 00166 000201 IAB BRING BACK MOST SIGNIFICANT HALF 0298 00167 0 03 01511 ANA ='77 CONSIDER L.S. SIX BITS 0299 00170 0 04 00604 STA CSMS CURRENT SIX BIT CHARACTER TO PLOT 0300 00171 0415 77 ALS 1 TIMES TWO
Previous File Previous Page Single Page Next Page Next File