;;; Source file: /usr/local/lib/jade/3.2/lisp/asm-mode.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:33 1994
;;; Jade 3.2

(provide (quote asm-mode))

(defvar asm-indent t 102083)

(defvar asm-comment ";" 102146)

(defvar asm-keymap (make-keylist))

(bind-keys asm-keymap "RET" (quote asm-ret) "Shift-RET" (quote split-line) ":" (quote asm-colon) "." (quote asm-dot))

(defun asm-mode nil 102204 (interactive) (jade-byte-code "ş 	I²
H#% &	
KF&
H	" [major-mode-kill funcall "Assembler" mode-name asm-mode major-mode asm-mode-kill asm-insert-comment mode-comment-fun asm-keymap keymap-path eval-hook asm-mode-hook] 3))

(defun asm-cpp-mode nil 102457 (interactive) (jade-byte-code "ş 	I²
H#% &	
KF&
H	H	" [major-mode-kill funcall "Assembler-CPP" mode-name asm-cpp-mode major-mode asm-mode-kill c-insert-comment mode-comment-fun asm-keymap keymap-path eval-hook asm-mode-hook asm-cpp-mode-hook] 3))

(defun asm-mode-kill nil (jade-byte-code "I I!I\"I#‹F%" [mode-name major-mode major-mode-kill mode-comment-fun asm-keymap keymap-path] 2))

(defun asm-ret nil (interactive) (jade-byte-code "ü 	û 
	" [insert asm-indent "
	" "
"] 2))

(defun asm-colon nil (interactive) (jade-byte-code "I
	Hü û 	" [set-indent-pos pos 0 insert asm-indent ":	" ":"] 4))

(defun asm-dot nil (interactive) (jade-byte-code "ş I
	H	" [empty-line-p set-indent-pos pos 0 insert "."] 4))

(defun asm-insert-comment nil (interactive) (jade-byte-code "H	" [find-comment-pos insert asm-comment] 2))