; LEXLATE.CSM
; Lexical Character order translate
; *******************************************************************
; Returns a lexical order number of the character argument
; *******************************************************************
; '\0' translates to itself
; ' ' translates to the lowest lexical order
;
; The Other Ordering is:
;
; 0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
;
; ALL other bytes in the range 0 thru 255
; translate to a non-existence mark (0xff)
;
; The equivalent C code if statics and static initialization
; were available would be:
;
; char
; lexlate(c)
;   char c;
; {
;	static char xlate[] = {THE_ORDER_SEQUENCE_256_BYTES};
;
;	return (xlate[c]);
; }
;
; Alternatively, if external initialization were available:
;
; char xlate[] = {THE_ORDER_SEQUENCE_256_BYTES};
; #define lexlate(c) (xlate[c & 0xff])
;
; *******************************************************************
;

	maclib	bds
	
X	equ	0ffh		; Non-Existence Mark

	FUNCTION lexlate
	pop	d		; DE = return address
	pop	h		; HL = argument
	push	h		; argument = HL
	push	d		; return address = DE
	lxi	d,xlate		; DE = &xlate[0]
	mvi	h,0		; HL = offset into xlate
	dad	d		; hl = &xlate[argument]
	mov	l,m	
	mvi	h,0		; hl = xlate[argument]
	ret
;
xlate:	db	0,X,X,X,X,X,X,X		; ^@^A^B^C^D^E^F^G
	db	X,X,X,X,X,X,X,X		; ^H^I^J^K^L^M^N^O
	db	X,X,X,X,X,X,X,X		; ^P^Q^R^S^T^U^V^W
	db	X,X,X,X,X,X,X,X		; ^X^Y^Z^[^\^]^^^_
	db	1,X,X,X,X,X,X,X		; <sp><EXCLAIM>"#$%&'
	db	X,X,X,X,X,X,X,X		; ()*+,-./
	db	2,3,4,5,6,7,8,9		; 01234567
	db	10,11,X,X,X,X,X,X	; 89:;<=>?
	; note: state 12 not used (WAS previously inadvertently assigned to :)
	db	X,13,15,17,19,21,23,25	; @ABCDEFG
	db	27,29,31,33,35,37,39,41	; HIJKLMNO
	db	43,45,47,49,51,53,55,57	; PQRSTUVW
	db	59,61,63,X,X,X,X,X	; XYZ[\]^_
	db	X,14,16,18,20,22,24,26	; `abcdefg
	db	28,30,32,34,36,38,40,42	; hijklmno
	db	44,46,48,50,52,54,56,58	; pqrstuvw
	db	60,62,64,X,X,X,X,X	; xyz{|}~<del>
;
;	 Same Stuff with MSB SET
;
	db	X,X,X,X,X,X,X,X		; ^@^A^B^C^D^E^F^G
	db	X,X,X,X,X,X,X,X		; ^H^I^J^K^L^M^N^O
	db	X,X,X,X,X,X,X,X		; ^P^Q^R^S^T^U^V^W
	db	X,X,X,X,X,X,X,X		; ^X^Y^Z^[^\^]^^^_
	db	X,X,X,X,X,X,X,X		; <sp><EXCLAIM>"#$%&'
	db	X,X,X,X,X,X,X,X		; ()*+,-./
	db	X,X,X,X,X,X,X,X		; 01234567
	db	X,X,X,X,X,X,X,X		; 89:;<=>?
	db	X,X,X,X,X,X,X,X		; @ABCDEFG
	db	X,X,X,X,X,X,X,X		; HIJKLMNO
	db	X,X,X,X,X,X,X,X		; PQRSTUVW
	db	X,X,X,X,X,X,X,X		; XYZ[\]^_
	db	X,X,X,X,X,X,X,X		; `abcdefg
	db	X,X,X,X,X,X,X,X		; hijklmno
	db	X,X,X,X,X,X,X,X		; pqrstuvw
	db	X,X,X,X,X,X,X,X		; xyz{|}~<del>

	endfunc

.