+; test for valid character for symbols\r
+; return z if valid\r
+\r
+test_sym_char:\r
+ cp '$'\r
+ ret z\r
+ cp '%'\r
+ ret z\r
+ cp '.'\r
+ ret z\r
+ cp '_'\r
+ ret z\r
+ call test_alphanum\r
+ ret c ; cy == 1 --> z == 0\r
+ cp a ; return z\r
+ ret\r
+\r
+\r
+; check if char is in [0..9,?,@,A..Z,a..z]\r
+; return cy if invalid\r
+; return nc if valid alfanumeric char\r
+\r
+test_alphanum:\r
+ cp 'z'+1\r
+ ccf\r
+ ret c\r
+ cp 'a'\r
+ ret nc\r
+ cp 'Z'+1\r
+ ccf\r
+ ret c\r
+ cp '?'\r
+ ret nc\r
+test_numeral:\r
+ cp '9'+1\r
+ ccf\r
+ ret c\r
+ cp '0'\r
+ ret\r
+\r
+test_symterm_ch:\r
+ cp CR\r
+ ret z\r
+ cp LF\r
+ ret z\r
+test_whitespace:\r
+ cp ' '\r
+ ret z\r
+ cp TAB\r
+ ret\r
+\r