Previous File Previous Page Single Page Next Page Next File

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 50

1753 01727 000201 IL17 IAB SAVE INTEGER VALUE IN B 1754 01730 0 02 00455 LDA INTF PUT INTEGER CONSTANT FLAG IN TEXT 1755 01731 0 01 01717 JMP IL18 GO PUT VALUE IN TEXT 1756 * 1757 * 1758 * HERE TO CHECK FOR RESERVED IDENTIFIER 1759 * 1760 01732 0 10 03065 IL07 JST UCHR BACK UR OVER LEADING CHARACTER 1761 01733 0 02 00461 LDA LSBP SET PRINTER TO START OF 1765 01734 0 04 00060 STA ILT3 RESERVED IDENTIFIER LIST 1766 01735 0 02 00037 LDA SBP SAVE POINTER TO CURRENT ROSITION IN 1767 01736 0 04 00056 STA ILT1 THE SOURCE STREAM 1768 01737 0 35 00471 LDX M53 SET COUNTER TO - NO. OF ENTRIES IN LIST 1769 01740 0 02 00037 IL20 LDA SBP SWAP SOURCE POINTER WITH RESERVED 1770 01741 0 13 00060 IMA ILT3 NAME LIST POINTER 1771 01742 0 04 00037 STA SBP X 1772 01743 0 10 03047 JST GCHR GET NEXT CHAR FROM RESERVED NAME LIST 1773 01744 0 13 00037 IMA SBP SWAP BACK THE POINTERS LEAVING 1774 01745 0 13 00060 IMA ILT3 THE CHAR IN A 1775 01746 0 13 00037 IMA SBP X 1776 01747 101040 SNZ HAS A NAME BEEN RECOGNIZED ^ 1777 01750 0 01 01772 JMP IL21 YES!!!! 1778 01751 0 04 00057 STA ILT2 SAVE TARGET CHAR WHILE GETTING SOURCE CHAR 1779 01752 0 10 03125 JST GNBC GET THE NEXT SOURCE CHAR (WE IGNORE SPACES) 1780 01753 0 05 00057 ERA ILT2 COMPARE WITH TARGET 1781 01754 101040 SNZ DO THEY MATCH ^ 1782 01755 0 01 01740 JMP IL20 YES...CONTINUE CHECK 1783 * 1784 * RUNOUT NON-MATCHING LIST ENTRY 1785 * 1786 01756 0 02 00060 LDA ILT3 SET BYTE POINTER TO NEXT 1787 01757 0 04 00037 STA SBP BYTE IN NON-MATCHING NAME 1788 01760 0 10 03047 JST GCHR GET NEXT CHARACTER OF IT 1789 01761 100040 SZE END OF THE NAME ^ 1790 01762 0 01 01760 JMP *-2 NO...KEEP TRYING 1791 01763 0 02 00056 LDA ILT1 RESTORE POINTER TO START OF NAME 1792 01764 0 13 00037 IMA SBP IN SOURCE STREAM 1793 01765 0 04 00060 STA ILT3 SAVE POINTER TO NEXT NAME IN TARGET LIST 1794 01766 0 12 00000 IRS 0 BUMP COUNT OF IDENTIFIERS SKIPPED 1795 01767 0 01 01740 JMP IL20 STILL MORE TO CHECK 1796 01770 0 10 03047 JST GCHR NOT A RESERVED NAME...STORE 1797 01771 0 01 01534 JMP IL22 THE CHARACTER LITERALLY 1798 * 1799 * HERE WHEN RESERVED NAME IS RECOGNIZED 1800 * 1801 01772 0 02 00000 IL21 LDA 0 GET LIST POSITION OF 1802 01773 0 06 00441 ADD C54 THE IDENTIFIER 1803 01774 0 11 00375 CAS REMF IS IT START OF A REMARK ^ 1804 01775 0 01 01534 JMP IL22 A NO...GO 1805 01776 100000 SKP YES...NO COMPRESSION UNTIL NEXT ; OR C/R
Previous File Previous Page Single Page Next Page Next File