O$XA, SYMBOL

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

0351 00241 0 02 00605 LDA NMBT NUMBER OF OFFSET PAIRS 0352 00242 0 06 01506 ADD =-1 TEST FOR END OF SYMBOL PLOT 0353 00243 101040 SNZ 0354 00244 0 01 00303 JMP CLAP GO FOR NEXT SYMBOL 0355 00245 0 04 00605 STA NMBT REMAINING NUMBER OF OFFSET PAIRS 0356 * 0357 00246 0 12 00606 IRS SWPW IS IT LAST PAIR OF THIS WORD? 0358 00247 0 01 00224 JMP DLOC NO, CONTINUE EXAMINING OFFSET PAIR 0359 00250 0 02 01514 LDA =-2 0360 00251 0 04 00606 STA SWPW REMAINING SETS THIS WORD 0361 00252 0 12 00575 IRS CDWS+1 ADDRESS OF NEXT SYMBOL CODE WORD 0362 00253 -0 02 00575 LDA* CDWS+1 NEXT SYMBOL CODE WORD 0363 00254 0 04 00607 STA WOFW NEW OFFSET WORD 0364 00255 0 35 01517 LDX =1 RESET X-REGISTER 0365 00256 0 01 00214 JMP FRED GO EXAMINE NEW OFFSET WORD 0366 * 0367 * 0368 * SPECIAL CHARACTER TREATMENT 0369 00257 000201 MORE IAB BRING BACK FIRST WORD OF CHARACTER LIST 0370 00260 0 04 00000 STA 0 TO INDEX 0371 00261 0 11 01515 CAS =15 IS SYMBOL TO BE CENTERED? 0372 00262 0 01 00265 JMP L4 NO. 0373 00263 0 01 00301 JMP LOCB YES, GO AND ADD CENTERING FACTOR 0374 00264 0 01 00301 JMP LOCB YES, GO AND ADD CENTERING FACTOR 0375 * 0376 00265 140040 L4 CRA 0377 00266 0 04 00601 STA SPCH CLEAR SPECIAL CHARACTER INDICATOR 0378 00267 0 02 00611 LDA SBCD NEXT CURRENT SYMBOL WORD 0379 00270 0 11 01505 CAS =24 IS IT A SPECIAL CHARACTER? 0380 00271 0 01 00274 JMP L5 YES, GO LOOK AT SIX BIT CHARACTER TO PLOT 0381 00272 0 01 00301 JMP LOCB NO, GO TREAT THIS AS NORMAL CHARACTER 0382 00273 0 01 00301 JMP LOCB NO, GO TREAT THIS AS NORMAL CHARACTER 0383 * 0384 00274 0 03 01511 L5 ANA ='77 EXAMINE L.S. SIX BITS 0385 00275 0415 77 L9 ALS 1 TIMES TWO 0386 00276 0 04 00000 LOCZ STA 0 TO INDEX 0387 00277 0 04 00604 STA CSMS CURRENT SIX BIT CHARACTER TO PLOT 0388 00300 0 01 00173 JMP LOCA GO LOOK UP NEXT SYMBOL CODE WORD 0389 * 0390 00301 0 06 01504 LOCB ADD ='100 ADD T0 CURRENT SYMBOL WORD 0391 00302 0 01 00275 JMP L9 RETURN TO LOOK UP SYMBOL CODE WORD 0392 * 0393 * CALCULATE THE COORDINATES TO PLOT THE SYMBOL 0394 00303 0 02 01512 CLAP LDA =3 INDICATE PEN UP 0395 00304 0 04 00600 STA IC PEN POSITION INDICATOR 0396 00305 0 02 00543 LDA XFLO+1 X PARAMETER - WORD B 0397 00306 000201 IAB 0398 00307 0 02 00542 LDA XFLO X PARAMETER - WORD A 0399 00310 0 10 00000 CALL A$22 FLOATING POINT ADD 0400 00311 0 000562 DAC XT OFFSET FOR X