C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 131

6336 13150 0 04 13144 STA T8OM 6337 13151 140100 SSP 6338 13152 0 04 13141 STA T0OM R(0)=(A)='P' CODE 6339 13153 0 11 00752 CAS K134 6340 13154 0 01 13156 JMP *+2 6341 13155 0 01 13653 JMP OMD1 6342 13156 0 02 13146 LDA TXOM 6343 13157 0 11 00717 CAS K101 6344 13160 0 01 13655 JMP OME1 6345 13161 0 01 13660 JMP OME5 6346 13162 140040 OM05 CRA 6347 13163 0 04 13142 STA T1OM T(1)=0 6348 13164 0 04 13145 STA T9OM T(9)=0 6349 13165 0 02 00040 LDA A 6350 13166 0 04 13143 STA T2OM T(2)=A 6351 13167 100040 SZE 6352 13170 0 01 13173 JMP OM07 6353 13171 0 02 00045 LDA MFL 6354 13172 0 01 13205 JMP OM13 6355 13173 0 11 00113 OM07 CAS L0 6356 13174 0 01 13176 JMP *+2 6357 13175 0 01 13770 JMP OML1 6358 13176 0 11 00054 CAS ABAR 6359 13177 0 01 13413 JMP OM76 A .LE. ABAR....WITHIN TRIAD TABLE 6360 13200 0 01 13201 JMP *+1 6361 13201 0 10 02672 OM10 JST STXA SET INDEX=A 6362 13202 1 02 15400 LDA DP,1 6363 13203 0405 67 ARS 9 SES IM=MODE OF ITEM 6364 13204 0 03 00725 ANA K107 6365 13205 0 04 00653 OM13 STA IM 6366 13206 0 02 00045 OM14 LDA MFL SET MFL,IM AS DIGITS INTO NAMF 6367 13207 0415 70 ALS 8 6368 13210 0 06 00653 ADD IM 6369 13211 0 05 13516 ERA OM90 ADD '0''0' 6370 13212 0 04 00571 STA NAMF+1 6371 13213 0 02 10030 LDA K130 6372 13214 0 04 00000 STA 0 INDEX=-6 6373 13215 0 02 13141 LDA T0OM 6374 13216 1 11 13333 CAS OM50+6,1 CHECK FOR SPECIAL OPERATOR 6375 13217 0 01 13221 JMP *+2 '1 6376 13220 -1 01 13341 JMP* OM52+6,1 'P'='Q',',','0','A'F', OR 'E' 6377 13221 0 12 00000 IRS 0 6378 13222 0 01 13216 JMP *-4 6379 13223 0 02 00045 LDA MFL 6380 13224 101040 SNZ 6381 13225 0 01 13354 JMP OM62 SPECIAL LIBRARY FIX FOR ( A= ) 6382 13226 0 11 00653 CAS IM CHECK FOR MODE MIXING 6383 13227 0 01 13231 JMP *+2 6384 13230 0 01 13526 JMP OMA1 ITEM MODE SAME AS CURRENT MODE 6385 13231 0 02 00721 OM20 LDA K103