;
; $Id: 2C_KSC,v 1.1 1994/06/28 02:30:47 kuwa Exp $
;
(defvar (hex1 hex3) (between 2 7))
(defvar (hex2 hex4) (list 0 1 2 3 4 5 6 7 8 9 A a B b C c D d E e F f))
(defvar (hex_27) (list 0 1 8 9 A a B b C c D d E e F f G g H h I i J j K k L l M m  N n O o P p Q q R r S s T t U u V v W w X x Y y Z z))
(defvar (hex_0f) (list G g H h I i J j K k L l M m  N n O o P p Q q R r S s T t U u V v W w X x Y y Z z))
(defvar (hex_1e) (list 0 F f G g H h I i J j K k L l M m  N n O o P p Q q R r S s T t U u V v W w X x Y y Z z))

X(hex_27)			(error)
X(hex1)(hex_0f)			(error)
X20				(error)
X7E				(error)
X7e				(error)
X7F				(error)
X7f				(error)
X(hex1)(hex2)(hex_27)		(error)
X(hex1)(hex2)(hex3)(hex_0f)	(error)
X2120				(error)
X7d7F				(error)
X7d7f				(error)
X(hex1)(hex2)(hex3)(hex4)  (+ (+ (* (value (hex1)) '\x1000')
				     (+ (* (value (hex2)) '\x100')
					(+ (* (value (hex3)) '\x10')
					   (value (hex4)))))
				  '\x8080')
