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

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

1850 03213 1 04 00001 STA 1,1 1851 03214 000201 IAB 1852 03215 1 04 00000 STA 0,1 1853 03216 141216 ACA 1854 03217 0401 77 LRS 1 1855 03220 1 02 00002 LDA 2,1 1856 03221 0411 77 LLS 1 1857 03222 140320 CSA 1858 03223 1 04 00002 STA 2,1 1859 03224 0 10 03016 JST RST 1860 03225 0 12 03202 IRS SFT 1861 03226 -0 01 03202 JMP* SFT 1862 * 1863 03227 0 000000 LIST DAC ** 1864 03230 0 10 14301 JST PRSP 1865 03231 100010 SR2 1866 03232 0 01 03235 JMP *+3 1867 03233 0 10 00000 CALL F4$SYM PRINT BLANK LINE 1868 03234 0 014702 DAC PRI 1869 03235 0 10 00000 CALL F4$SYM PRINT SOURCE INPUT LINE 1870 03236 0 001155 DAC CI 1871 03237 -0 01 03227 JMP* LIST 1872 * ************* 1873 * *ASSIGN ITEM* 1874 * ************* 1875 * CHECKS ASSIGNMENT AREA OF DATA POOL (A0 TO ABAR) 1876 * FOR ITEM DEFINED BY ID, IM, IU, ETC. 1877 * IF FOUND, EXIT WITH POINTER AND 1878 * ASSIGNMENTS DATA SET, OTHERWISE 1879 * ASSIGN THE ITEM. 1880 * 1881 * 1882 * 1883 03240 0 00 00000 T0AS PZE 0 1884 03241 0 000000 AS00 DAC ** 1885 03242 140040 CRA 1886 03243 0 04 00040 STA A A = A (0) 1887 03244 0 10 02672 AS04 JST STXA 1888 03245 0 10 04062 JST NXT GET NEXT ENTRY 1889 03246 0 01 03355 JMP AS30 AT END, GO TO AS30 1890 03247 0 02 00573 LDA NT 1891 03250 0 07 00617 SUB NTA NT = NT(A) 1892 03251 100040 SZE 1893 03252 0 01 03244 JMP AS04 NO, G0 TO AS04 1894 03253 0 02 01475 LDA TID 1895 03254 0 07 03634 SUB TIDA 1896 03255 100040 SZE 1897 03256 0 01 03244 JMP AS04 TID = TID(A) 1898 03257 0 02 01476 LDA TID+1 1899 03260 0 07 03635 SUB TIDA+1