BASIC-16A

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

2833 03122 -0 01 03116 JMP* GDLM YES...RETURN 2834 03123 0 10 05243 JST ERR REPORT THE ERROR 2835 03124 142314 BCI 1,DL X 2836 * 2837 * 2838 * GNBC - GET NEXT NON-BLANK CHARACTER 2839 * 2840 * 2841 * CALLING SEQUENCE: 2842 * 2843 * JST GNBC 2844 * ......RETURN CHARACTER IN A AND CHAR 2845 * 2846 * THE NEXT NON BLANK CHARACTER (<> '240) IS 2847 * FETCHED AND LEFT IN A AND CHAR. 2848 * 2849 * 2850 * 2851 03125 0 000000 GNBC DAC ** 2852 03126 0 10 03047 JST GCHR GET THE NEXT CHARACTER 2853 03127 0 11 00405 CAS C240 TEST FOR BLANK 2854 03130 -0 01 03125 JMP* GNBC NO...RETURN 2855 03131 0 01 03126 JMP *-3 YES...TRY NEXT CHARACTER 2856 03132 -0 01 03125 JMP* GNBC NO...RETURN 2857 * 2858 * 2859 * 2860 * SCHR - STORE CHARACTER 2861 * 2862 * 2863 * CALLING SEQUENCE: 2864 * 2865 * LDA CHAR A CONTAINS CHARACTER TO BE STORED 2866 * JST SCHR 2867 * ......RETURN A UNCHANGED 2868 * 2869 * THE CHARACTER IN A IS TRUNCATED TO 8 BITS AND LEFT 2870 * IN THE LOCATION LCHR. IT IS THEN INSERTED IN THE BYTE 2871 * POINTED TO BY DBP WITHOUT DESTROYING THE OTHER BYTE IN 2872 * THE TARGET WORD. DBP IS INCREMENTED FOLLOWING THE 2873 * INSETION. THE INITIAL A REGISTER CONTENTS ARE RETURNED 2874 * UNCHANGED. 2875 * 2876 * 2877 03133 0 000000 SCHR DAC ** 2878 03134 0 04 00077 STA TMP2 SAVE INITIAL A CONTENTS 2879 03135 141050 CAL TRUNCATE TO 8 BITS 2880 03136 0 04 00075 STA LCHR SAVE FOR LATER REFERENCE 2881 03137 0 02 00040 LDA DBP GET POINTER TO TARGET BYTE 2882 03140 0404 77 LGR 1 WORD NO. IN A, BYTE INDICATOR IN C