BASIC-16A

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

2783 03101 141240 ICR PUT IT A(1-8) 2784 03102 0 10 03072 JST GCHX PUT NEXT CHARACTER IN A(9-16) 2785 03103 -0 01 03077 JMP* GCPK RETURN 2786 * 2787 * 2788 * GCCK - GET CRARACTER AND CHECK 2789 * 2790 * 2791 * CALLING SEQUENCE: 2792 * 2793 * LDA CHAR A CONTAINS CHARACTER EXPECTED 2794 * JST QCCK 2795 * ......RETURN IF CHAR FOUND (A ZERO) 2796 * 2797 * THE NEXT CHARACTER IS FETCHED, AND IF IT 2798 * DOES NOT MATCH THE CONTENTS OF A, A 'MX' ERROR 2799 * IS REPORTED, WHERE X IS THE CHARACTER IN A ON ENTRY. 2800 * 2801 * 2802 03104 0 000000 GCCK DAC ** 2803 03105 0 05 03115 ERA GCC1 FORM ERROR DIAGNOSTIC 2804 03106 0 04 03114 STA GCC2 SAVE IT IN CASE IT'S NEEDED 2805 03107 0 05 03115 ERA GCC1 RESTORE A 2806 03110 0 10 03072 JST GCHX XOR NEXT CHARACTER WITH IT 2807 03111 101040 SNZ A ZERO IF THEY MATCH 2808 03112 -0 01 03104 JMP* GCCK MATCH!!!...RETURN 2809 03113 0 10 05243 JST ERR DIFFERENT...REPORT ERROR 2810 03114 146730 GCC2 BCI 1,MX 2811 * 2812 03115 146400 GCC1 HEX CD00 ASCII M IN BITS -*8, ZERO IN BITS 9-16 2813 * 2814 * 2815 * GDLM - GET TERMINAL DELIMITER 2816 * 2817 * 2818 * CALLING SEQUENCE: 2819 * 2820 * JST GDLM 2821 * ......RETURN IF NEXT CHARACTER IS : OR C/R 2822 * 2823 * THE NEXT CHARACTER IS FETCHED AND IF IT IS 2824 * EITHER A : OR C/R, RETURN IS MADE WITH THE 2825 * DELIMITER CODE IN A. IF IT IS NOT A : OR C/R, 2826 * A 'DL' ERROR IS REPORTED. 2827 * 2828 * 2829 03116 0 000000 GDLM DAC ** 2830 03117 0 10 03047 JST GCHR GET THE NEXT CHARACTER 2831 03120 0 10 03173 JST DLCK TEST FOR : OR C/R 2832 03121 100000 SKP NO....ERROR