FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 62

1797 * 1798 * 1799 * *************** 1800 * *ERROR ROUTINE* 1801 * *************** 1802 * 1803 02615 0 000000 ER00 DAC ** ERROR ROUTINE 1804 02616 0 10 13321 JST PRSP BLANK OUT BUFFER 1805 002617 ER04 EQU * 1806 02617 0 35 00762 LDX K130 -6 1807 02620 0 02 02673 LDA ER91 SET ** INTO PRINT BUFFER 1808 02621 1 04 13752 ER03 STA PRI+6,1 X 1809 02622 0 12 00000 IRS 0 X 1810 02623 0 01 02621 JMP ER03 X 1811 02624 0 02 00656 LDA CC CARD COLUMN POINTER 1812 02625 0 11 00735 CAS K101 COMPARE IT TO 1 1813 02626 0 01 02634 JMP ER01 ERROR IS IN PRESENT CARD 1814 02627 0 01 02634 JMP ER01 X 1815 02630 0 02 02674 LDA ER92 USE TWO VERTICAL ARROWS FOR PREVIOUS CARD 1816 02631 0 04 13744 STA PRI X 1817 02632 0 35 00742 LDX K106 POSITION IN 1818 02633 0 01 02637 JMP ER02 X 1819 02634 0 02 00656 ER01 LDA CC CHECK COLUMN POSITION OF ERROR 1820 02635 0404 77 LGR 1 TRUNCATE TO WORD POSITION 1821 02636 0 04 00000 STA 0 X 1822 02637 -0 02 02615 ER02 LDA* ER00 PICK UP ERROR ID 1823 02640 1 04 13744 STA PRI,1 POSITION AS DETERMINED 1824 02641 0 02 00654 LDA EBAR (NEGATIVE IF NOT WITHIN EQUIVALENCE STMT.) 1825 02642 140320 CSA 1826 02643 0 02 00726 LDA KAEQ SET UP 'EQ' 1827 02644 101001 SSC CHECK IF EQUIVALENCE STMT. ERROR 1828 02645 1 04 13745 STA PRI+1,1 IF SO, APPEND 'EQ' TO ERROR ID 1829 02646 0 10 00000 CALL F4$SYM PRINT BUFFER 1830 02647 0 013744 CERR DAC PRI X 1831 02650 0 10 13321 JST PRSP BLANK OUT BUFFER 1832 02651 140040 CRA CLEAR 1833 02652 0 04 00642 STA D DO LOOP POINTER 1834 02653 0 02 00654 LDA EBAR 1835 02654 101400 SMI IS IT PROCESSING AN EQUIVALENCE 1836 02655 0 01 01233 JMP CH12 IF SO, CONSIDER THIS IN WRAP UP 1837 02656 -0 02 02615 LDA* ER00 SAVE ERROR ID 1838 02657 0 12 02615 IRS ER00 BUMP EXIT, RETURN IF END STMT. ERROR 1839 02660 101400 SMI ERROR ID IS + ONLY FOR RECOVERABLE ERRORS 1840 02661 -0 01 02615 JMP* ER00 RETURN TO PROCESSOR 1841 02662 0 02 00656 LDA CC CHECK FOR CONTINUATION CARD 1842 02663 101040 SNZ X 1843 02664 0 01 03723 JMP C7 IF NOT, INPUT NEXT STATEMENT 1844 02665 0 02 00067 LDA TC CHECK LAST CHARACTER READ 1845 02666 0 11 00702 ER20 CAS CRET WAS IT A CARRIAGE RETURN 1846 02667 100000 SKP