BASIC-16A

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

2898 * CHARACTER CHECK ROUTINES 2899 * 2900 * 2901 * ALFA - ALPHABETIC CHARACTER TEST ROUTINE 2902 * 2903 * 2904 * CALLING SEQUENCE: 2905 * 2906 * LDA CHAR A CONTAINS CHARACTER TO BE TESTED 2907 * JST ALFA 2908 * ......RETURN IF NOT ALPHABETIC CHARACTER 2909 * ......RETURN IF ALPHABETIC CHARACTER 2910 * 2911 * 2912 03155 0 000000 ALFA DAC ** 2913 03156 0 11 00427 CAS C300 LOW ALPHABETCI RANGE - 1 2914 03157 0 11 00432 CAS C333 HIGH ALPHABETIC TANGE + 1 2915 03160 -0 01 03155 JMP* ALFA RETURN 1 ... NOT ALPHABETIC 2916 03161 -0 01 03155 JMP* ALFA RETURN 1 ... NOT ALPHABETIC 2917 03162 0 12 03155 IRS ALFA ALPHABETIC ... TAKE SECOND RETURN 2918 03163 -0 01 03155 JMP* ALFA X 2919 * 2920 * 2921 * NUMC - NUMERIC CHARACTER TEST ROUTINE 2922 * 2923 * 2924 * CALLING SEQUENCE: 2925 * 2926 * LDA CHAR A CONTAINS CHARACTER TO BE TESTED 2927 * JST NUMC 2928 * ......RETURN IF NOT NUMERIC CHARACTER 2929 * ......REOURN IF NUMERIC CHARACTER 2930 * 2931 * 2932 03164 0 000000 NUMC DAC ** 2933 03165 0 11 00417 CAS C257 LOW NUMERIC RANGE - 1 2934 03166 0 11 00422 CAS C272 HIGH NUMERIC RANGE + 1 2935 03167 -0 01 03164 JMP* NUMC RETURN 1 ... NOT NUMERIC 2936 03170 -0 01 03164 JMP* NUMC RETURN 1 ... NOT NUMERIC 2937 03171 0 12 03164 IRS NUMC NUMERIC ... TAKE SECOND RETURN 2938 03172 -0 01 03164 JMP* NUMC 2939 * 2940 * 2941 * DLCK - TERMINAL DELIMITER TEST ROUTINE 2942 * 2943 * 2944 * CALLING SEQUENCE: 2945 * 2946 * LDA CHAR A CONTAINS CHARACTER TO BE TESTED 2947 * JST DLCK