O$XA, SYMBOL

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

0301 00172 0 04 00000 STA 0 TO INDEX 0302 * 0303 * PICK UP SYMBOL CODE WORD AND OFFSET ADDRESS 0304 00173 1 02 00627 LOCA LDA TABL,1 SYMBOL CODE WORD TABLE 0305 00174 0 04 00574 STA CDWS FIRST WORD OF PAIR 0306 00175 1 02 00630 LDA TABL+1,1 OFFSET VALUES ADDRESS 0307 00176 0 04 00575 STA CDWS+1 SECOND WORD OF PAIR 0308 00177 -0 02 00575 LDA* CDWS+1 GET CURRENT OFFSET WORD 0309 00200 0 04 00607 STA WOFW CURRENT OFFSET WORD 0310 * 0311 * EXAMINE NUMBER OF OFFSET PAIRS 0312 00201 0 02 00574 LDA CDWS OFFSET VALUE CODE WORD 0313 00202 0 03 01511 ANA ='77 CONSIDER L.S SIX BITS 0314 00203 0 04 00605 STA NMBT NUMBER OF OFFSET PAIRS 0315 00204 101040 SNZ IS IT ZERO? 0316 00205 0 01 00303 JMP CLAP YES, NO OFFSET PAIRS, GO PUT PEN UP 0317 00206 0 02 00601 LDA SPCH NO, GET SPECIAL CHARACTER INDICATOR 0318 00207 100040 SZE IS CURRENT SYMBOL A SPECIAL CHARACTER? 0319 00210 0 01 00344 JMP SPZR YES, GIVE SPECIAL CHARACTER TREATMENT 0320 00211 0 02 00574 SPZS LDA CDWS NO, TAKE OFFSET PAIR 0321 00212 0404 72 LGR 6 EXAMINE FOR SHIFT INSTRUCTION CHOICE 0322 00213 0 04 00000 STA 0 PUT SHIFT VALUE IN X-REGISTER 0323 00214 1 02 00624 FRED LDA SHFT-1,1 SHIFT INSTRUCTION CHOICE 0324 00215 0 04 00217 STA SKIP ALS 4 OR ALS 10 0325 00216 0 02 00607 LDA WOFW CURRENT OFFSET WORD 0326 00217 0 00 00000 SKIP *** ** SHIFT INSTRUCTION 0327 00220 0 04 00607 STA WOFW SHIFTED TO BITS 1 TO 6 0328 00221 0 02 00000 LDA 0 X-REGISTER 0329 00222 0 06 01510 ADD =-3 0330 00223 0 04 00606 STA SWPW NUMBER OF SETS REMAINING IN THIS WORD 0331 * 0332 * EXAMINE VALUE OF CURRENT PAIR 0333 00224 0 02 00607 DLOC LDA WOFW CURRENT OFFSET WORD 0334 00225 0412 72 LLR 6 FIRST PAIR 0335 00226 0 04 00607 STA WOFW RESTORE BALANCE 0336 00227 000201 IAB BRING BACK FIRST PAIR 0337 00230 0 03 01511 ANA ='77 EXAMINE L.S. SIX BITS 0338 00231 0 04 00610 STA OFFW CURRENT PAIR 0339 00232 0400 75 LRL 3 EXAMINE VALUE OF CURRENT PAIR 0340 * 0341 * IF VALUE >6 PEN MUST BE LIFTED 0342 00233 0 11 01507 CAS =6 0343 00234 0 01 00237 JMP L3 VALUE>6. GO LIFT PEN 0344 00235 0 01 00431 JMP SYMD VALUE=6. GO PLOT POINT 0345 00236 0 01 00431 JMP SYMD VALUE<6. GO PLOT POINT 0346 * 0347 00237 0 02 01512 L3 LDA =3 INDICATE PEN UP 0348 00240 0 04 00600 STDA STA IC PEN POSITION INDICATOR 0349 * 0350 * GET NEXT OFFSET PAIR