FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 64

1853 * 1854 * 1855 02675 0 000000 SRT DAC ** 1856 02676 0 15 02717 STX SRXS SAVE INDEX 1857 02677 -0 35 02675 LDX* SRT SHIFT RIGHT ONE PLACE, TRIPLE PRECISION 1858 02700 1 02 00000 LDA 0,1 1859 02701 000201 IAB 1860 02702 1 02 00001 LDA 1,1 1861 02703 0401 77 LRS 1 1862 02704 0414 77 LGL 1 1863 02705 000201 IAB 1864 02706 1 04 00000 STA 0,1 1865 02707 1 02 00002 LDA 2,1 1866 02710 0401 77 LRS 1 1867 02711 1 04 00002 STA 2,1 1868 02712 000201 IAB 1869 02713 1 04 00001 STA 1,1 1870 02714 0 35 02717 LDX SRXS RESTORE INDEX 1871 02715 0 12 02675 IRS SRT 1872 02716 -0 01 02675 JMP* SRT 1873 02717 SRXS BSS 1 TEMP STORAGE FOR INDEX 1874 EJCT