;
; $Id: 2B_JIS,v 1.1 1991/09/09 22:39:28 ohm 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))
X20(hex3)(hex4)	(error)
X7F(hex3)(hex4)	(error)
X7f(hex3)(hex4)	(error)
X(hex1)(hex2)20	(error)
X(hex1)(hex2)7F	(error)
X(hex1)(hex2)7f	(error)
X(hex1)(hex2)(hex3)(hex4)  (+ (+ (* (value (hex1)) '\x1000')
				     (+ (* (value (hex2)) '\x100')
					(+ (* (value (hex3)) '\x10')
					   (value (hex4)))))
				  '\x8080')
