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

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

2050 03474 0 04 00000 STA 0 SET INDEX 2051 03475 0 02 01476 TG04 LDA ID+1 CHARACTERS 3 AND 4 2052 03476 1 11 03607 CAS TGT2+21,1 IMPLICIT MODE SUBR. NAME TABLE 2053 03477 0 01 03501 JMP *+2 2054 03500 0 01 03514 JMP TG10 2055 03501 0 12 00000 TG06 IRS 0 2056 03502 0 01 03475 JMP TG04 NOT DONE WITH TABLE 2057 03503 0 02 00717 TG08 LDA K101 =1 (IU=SUBR.) 2058 03504 0 04 00655 STA IU 2059 03505 0 10 02672 JST STXA 2060 03506 1 02 15401 LDA DP+1,1 IU(A) = SUB 2061 03507 0414 77 LGL 1 2062 03510 140500 SSM 2063 03511 0404 77 LGR 1 2064 03512 1 04 15401 STA DP+1,1 2065 03513 -0 01 03465 JMP* TG00 RETURN 2066 * 2067 03514 0 02 01475 TG10 LDA ID CHARACTERS 1 AND 2 2068 03515 0 03 00730 ANA K111 ='37777 2069 03516 0 06 00760 ADD HBIT ='140000 2070 03517 1 07 03562 SUB TGT1+21,1 2071 03520 100040 SZE 2072 03521 0 01 03501 JMP TG06 CONTINUE SEARCH 2073 03522 0 02 01477 LDA ID+2 CHARACTERS 5 AND 6 2074 03523 1 07 03634 SUB TGT3+21,1 2075 03524 100040 SZE 2076 03525 0 01 03501 JMP TG06 CONTINUE SEARCH 2077 03526 1 02 03562 LDA TGT1+21,1 2078 03527 0404 70 LGR 8 2079 03530 0 03 00725 ANA K107 =7 (=3 IF CPX, 4 IF DBL) 2080 03531 0 06 00720 ADD K102 =2 (=5 IF CPX, 6 IF DBL) 2081 03532 0 10 04026 JST DM00 DEFINE IM 2082 03533 0 01 03503 JMP TG08 2083 * 2084 03534 177753 TG22 OCT 177753 =-21 2085 * 2086 *...........IMPLICIT MODE SUBROUTINE NAME TABLE 2087 03535 142305 TGT1 BCI 6,DECEDLCLDLDS 03536 141705 03537 142314 03540 141714 03541 142314 03542 142323 2088 03543 141723 BCI 6,CSDCCCDSCSDA 03544 142303 03545 141703 03546 142323 03547 141723 03550 142301 2089 03551 142301 BCI 6,DADMDADMDMDS