Help with a big mode map

[William Stevenson <yhvh2000@gmail.com>]

I create a huge mode map for the game board, one for each intersection of
lines, with entries like those below. Is there any way to collapse these
entries or alternately register a more generic map?

<A1>		Prefix Command
<B1>		Prefix Command
<A1> <mouse-1>	go-play-stone-mouse
<B1> <mouse-1>	go-play-stone-mouse

#+BEGIN_SRC elisp
;; Code lives at: https://github.com/yhvh/go-svg-mode

(defvar gosvg-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "g" 'go-board-update)
    (define-key map "k" 'gosvg-cleanup)
    (define-key map "p" 'go-play-stone)
    (define-key map "P" 'go-play-pass)
    (define-key map "m" 'go-genmove)
    (define-key map "l" 'go-level-set)
    (define-key map "b" 'go-boardsize-set)
    (define-key map "u" 'go-undo)
    (define-key map "e" 'go-estimate-score)
    (define-key map "F" 'go-final-score)
    (define-key map "L" 'go-load-sgf)
    (define-key map "S" 'go-save-sgf)
    ;; The svg image has a map of circles which show the pointer as
    ;; hand and fire an event like: <D4 mouse-1>. Here I bind all these
    ;; events to `go-play-stone-mouse'. This results in a great many
    ;; entries in the keymap.
    (dolist (pos go-position-map)
      (eval
       `(define-key map (vector (car pos)  'mouse-1) 'go-play-stone-mouse)))
    map)
  "Keymap for `gosvg-mode'")
#+END_SRC