FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 189

6328 * ************* 6329 * *OUTPUT ITEM* 6330 * ************* 6331 * 6332 * DRIVES BASIC OUTPUT ROUTINES. HANDLES SPECIAL 6333 * SUBSCRIPT PROCESSING. GENERATES NECESSARY 6334 * MODE CONVERSION CALLS AND HANDLES MODE 6335 * CHECKING. IN-LINE ARITHMETIC CODE IS 6336 * GENERATED WHERE POSSIBLE. OTHERWISE CALLS 6337 * TO ARITHMETIC ROUTINES ARE GENERATEO. 6338 * 6339 12241 0 00 00000 T0OM PZE 0 6340 12242 0 00 00000 T1OM PZE 0 6341 12243 0 00 00000 T2OM PZE 0 6342 12244 0 00 00000 T8OM PZE 0 6343 12245 0 00 00000 T9OM PZE 0 6344 12246 0 00 00000 TXOM PZE 0 6345 * 6346 *-------------OUTPUT ITEM 6347 12247 0 000000 OM00 DAC ** RETURN ADDR 6348 12250 0 04 12244 OM01 STA T8OM 6349 12251 140100 SSP 6350 12252 0 04 12241 STA T0OM R(0)=(A)='P' CODE 6351 12253 0 11 00754 CAS K134 6352 12254 0 01 12256 JMP *+2 6353 12255 0 01 12745 JMP OMD1 6354 12256 0 02 12246 LDA TXOM 6355 12257 0 11 00735 CAS K101 6356 12260 0 01 12747 JMP OME1 6357 12261 0 01 12751 JMP OME5 6358 12262 140040 OM05 CRA 6359 12263 0 04 12242 STA T1OM T(1)=0 6360 12264 0 04 12245 STA T9OM T(9)=0 6361 12265 0 02 00625 LDA A 6362 12266 0 04 12243 STA T2OM T(2)=A 6363 12267 100040 SZE 6364 12270 0 01 12273 JMP OM07 6365 12271 0 02 00630 LDA MFL 6366 12272 0 01 12305 JMP OM13 6367 12273 0 11 00113 OM07 CAS L0 6368 12274 0 01 12276 JMP *+2 6369 12275 0 01 13067 JMP OML1 6370 12276 0 11 00637 CAS ABAR 6371 12277 0 01 12511 JMP OM76 A .LE. ABAR....WITHIN TRIAD TABLE 6372 12300 0 01 12301 JMP *+1 6373 12301 0 35 00625 OM10 LDX A 6374 12302 1 02 17400 LDA DP,1 6375 12303 0405 67 ARS 9 SES IM=MODE OF ITEM 6376 12304 0 03 00743 ANA K107 6377 12305 0 04 00706 OM13 STA IM