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

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

6486 13366 0 02 13730 LDA OMI2 SET T(1) = JST 6487 13367 0 01 13377 JMP OM66 6488 13370 0 02 00655 OM64 LDA IU 6489 13371 0 07 00721 SUB K103 CHECK FOR IV=3 (ARRAY) 6490 13372 100040 SZE 6491 13373 0 01 13354 JMP OM62 6492 13374 0 02 00717 LDA K101 SET CURRENT MODE TO INTEGER 6493 13375 0 04 00045 STA MFL 6494 13376 0 02 13731 LDA OMI3 SET T(1) = LDA* 6495 13377 0 04 13142 OM66 STA T1OM 6496 13400 0 01 13611 JMP OMB3 6497 * 6498 13401 0 02 00717 OM70 LDA K101 6499 13402 0 11 00653 CAS IM CHECK ITEM MODE EQUALS INTEGER 6500 13403 0 01 13405 JMP *+2 6501 13404 0 01 13410 JMP OM74 6502 13405 0 02 00723 LDA K105 CHECK FOR MODE = COMPLEX 6503 13406 0 10 13313 JST OM44 6504 13407 0 01 13231 JMP OM20 6505 13410 0 02 00721 OM74 LDA K103 CHECK FOR MODE = LOGICAL 6506 13411 0 10 13313 JST OM44 6507 13412 0 01 13256 JMP OM30 OUTPUT SUBROUTINE CALL 6508 * 6509 13413 0 10 02672 OM76 JST STXA INDEX=A 6510 13414 1 02 15400 LDA DP,1 02(A) 6511 13415 0 04 13143 STA T2OM T(2)=02(A) 6512 13416 1 02 15402 LDA DP+2,1 P(A) 6513 13417 0 03 10027 ANA K133 ='77 6514 13420 101040 SNZ 6515 13421 0 01 13466 JMP OM84 P(A)='0' (SUBSCRIPTED VARIABLE) 6516 13422 0 11 00755 CAS K139 6517 13423 0 01 13425 JMP *+2 6518 13424 0 01 13433 JMP OM80 P(A) = 'X' (END OF ARRAY CALCULATION) 6519 13425 0 11 00754 CAS K138 6520 13426 0 01 13430 JMP *+2 6521 13427 0 01 13510 JMP OMHW 6522 13430 0 02 13143 OM78 LDA T2OM P(4)= 'H' (HOLLERITH DATA) 6523 13431 0 04 00040 STA A RESET A 6524 13432 0 01 13201 JMP OM10 6525 * 6526 13433 0 10 02676 OM80 JST STXI INDEX=I 6527 13434 0 02 13143 LDA T2OM 6528 13435 1 04 15401 STA DP+1,1 O1(I) = T(2) 6529 13436 140040 CRA 6530 13437 0 04 12676 STA T1OT SET T(1) OF OUTPUT TRIADS TO ZERO 6531 13440 0 02 00040 LDA A SAVE A 6532 13441 0 04 13142 STA T1OM 6533 13442 140040 CRA SET A=0 (NOT SYMBOLIC) 6534 13443 0 04 00040 STA A 6535 13444 0 02 00060 LDA RPL