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

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

1800 03135 0 02 00660 LDA EBAR (NEGATIVE IF NOT WITHIN AN EQUIVALENCE ST.) 1801 03136 100400 SPL SKIP IF PROCESSING AN EQUIVALENCE STATEMENT 1802 03137 0 01 03142 JMP *+3 1803 03140 0 02 00761 LDA KAEQ ='142721 (=(E)(Q) ) 1804 03141 1 04 14703 STA PRI+1,1 1805 03142 -0 02 03116 LDA* ER00 1806 03143 1 04 14702 STA PRI,1 SET ERROR TYPE LETTERS INTO THE BUFFER 1807 03144 0 10 00000 CALL F4$SYM PRINT THE BUFFER 1808 03145 0 014702 DAC PRI 1809 03146 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 1810 03147 0 02 00607 LDA TC 1811 03150 0 11 00756 ER20 CAS CRET INPUT CHARACTERS UNTIL C/R 1812 03151 0 01 03153 JMP *+2 1813 03152 0 01 04353 JMP C7 GO TO STATEMENT INPUT 1814 03153 0 10 01256 JST CH00 1815 03154 0 01 03150 JMP ER20 1816 03155 125252 ER91 BCI 1,** 1817 03156 177735 ER93 OCT 177735 -35 1818 * 1819 * 1820 03157 0 000000 SRT DAC ** 1821 03160 0 10 03007 JST SAV 1822 03161 -0 02 03157 LDA* SRT SHIFT RIGHT ONE PLACE 1823 03162 0 04 00000 STA XR TRIPLE PRECISION 1824 03163 1 02 00000 LDA 0,1 1825 03164 000201 IAB 1826 03165 1 02 00001 LDA 1,1 1827 03166 0401 77 LRS 1 1828 03167 0414 77 LGL 1 1829 03170 000201 IAB 1830 03171 1 04 00000 STA 0,1 1831 03172 1 02 00002 LDA 2,1 1832 03173 0401 77 LRS 1 1833 03174 1 04 00002 STA 2,1 1834 03175 000201 IAB 1835 03176 1 04 00001 STA 1,1 1836 03177 0 10 03016 JST RST 1837 03200 0 12 03157 IRS SRT 1838 03201 -0 01 03157 JMP* SRT 1839 * 1840 * 1841 03202 0 000000 SFT DAC ** TRIPLE PRECISION 1842 03203 0 10 03007 JST SAV SHIFT LEFT ONE PLACE 1843 03204 -0 02 03202 LDA* SFT 1844 03205 0 04 00000 STA XR 1845 03206 1 02 00000 LDA 0,1 1846 03207 000201 IAB 1847 03210 1 02 00001 LDA 1,1 1848 03211 0411 77 LLS 1 1849 03212 140320 CSA