FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 67

1913 * ************* 1914 * *ASSIGN ITEM* 1915 * ************* 1916 * CHECKS ASSIGNMENT AREA OF DATA POOL (A0 TO ABAR) 1917 * FOR ITEM DEFINED BY ID, IM, IU, ETC. 1918 * IF FOUND, EXIT WITH POINTER AND 1919 * ASSIGNMENTS DATA SET, OTHERWISE 1920 * ASSIGN THE ITEM. 1921 * 1922 * 1923 * 1924 02761 0 00 00000 T0AS PZE 0 1925 02762 0 000000 AS00 DAC ** 1926 02763 0 02 00741 LDA K105 INITIALIZE A TO BEG. OF 1927 02764 0 01 02767 JMP AS05 TABLE 1928 02765 0 02 00625 AS04 LDA A ADVANCE A TO NEXT ENTRY 1929 02766 0 06 00741 ADD K105 1930 02767 0 04 00625 AS05 STA A 1931 02770 0 04 00000 STA 0 1932 02771 0 11 00637 CAS ABAR 1933 02772 0 01 03113 JMP AS30 AT END. GO TO AS30 1934 02773 101000 NOP 1935 02774 1 02 17400 LDA DP,1 1936 02775 0400 61 LRL 15 NT(A) 1937 02776 0 07 00054 SUB NT IS NT=NT(A) 1938 02777 100040 SZE I 1939 03000 0 01 02765 JMP AS04 NO. GO TO AS04 1940 03001 0 02 00774 LDA TID 1941 03002 1 07 17404 SUB DP+4,1 TID(A) 1942 03003 101040 SNZ IS TID= TID(A) 1943 03004 0 01 03011 JMP *+5 YES, PROCEED 1944 03005 0 03 00670 ANA K111 MAYBE, TEST FURTHER 1945 03006 0 06 00054 ADD NT 1946 03007 100040 SZE 1947 03010 0 01 02765 JMP AS04 TID = TID(A) 1948 03011 0 02 00775 LDA TID+1 1949 03012 1 07 17403 SUB DP+3,1 TID+1(A) 1950 03013 100040 SZE 1951 03014 0 01 02765 JMP AS04 NO. GO TO ASO4 1952 03015 0 02 00776 LDA TID+2 1953 03016 1 07 17402 SUB DP+2,1 TID+2(A) 1954 03017 100040 SZE 1955 03020 0 01 02765 JMP AS04 1956 03021 0 02 00054 LDA NT IF NT (A) .NE. 0, 1957 03022 101040 SNZ GO TO AS10 1958 03023 0 01 03066 JMP AS16 GO TO AS16 (4) 1959 03024 1 02 17400 LDA DP,1 1960 03025 0400 67 LRL 9 1961 03026 0 03 00743 ANA K107 IM(A) 1962 03027 0 07 00706 SUB IM IF (IM.NE.IM(A)) GO TO AS04