;ELC   
;;; compiled by jwz@thalidomide on Sat May 21 06:38:57 1994
;;; from file /th/jwz/emacs19/lisp/modes/asm-mode.el
;;; emacs version 19.10 Lucid (beta25).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(defvar asm-comment-char 59 "\
*The comment-start character assumed by Asm mode.")
(defvar asm-mode-syntax-table nil "\
Syntax table used while in Asm mode.")
(defvar asm-mode-abbrev-table nil "\
Abbrev table used while in Asm mode.")
(define-abbrev-table 'asm-mode-abbrev-table nil)
(defvar asm-mode-map nil "\
Keymap for Asm mode.")
(byte-code "¬¦Б ВА\"€ГДЕ#€ГЖЗ#€ГИЙ#€ГКЛ#€ГМЛ#€НО!¬ѓПНР!¬ѓПНС!¬ѓПП‡" [asm-mode-map make-sparse-keymap set-keymap-name define-key ";" asm-comment ":" asm-colon "	" tab-to-tab-stop "\n" asm-newline "" boundp asm-code-level-empty-comment-pattern nil asm-flush-left-empty-comment-pattern asm-inline-empty-comment-pattern] 4)
(fset 'asm-mode #[nil "А €Б\n!€ГЕЙК!€Л \nМ\n!€НО!€ПС\n#€ПТУ\n#€ФХ!!ЙЧ!€ШPЙЩ!€ЪPЫЬQЮ‰ЯR б‰‰Я°\")Йг!€д#Йе!€ж%з(Нй!‡" [kill-all-local-variables use-local-map asm-mode-map "Assembler" mode-name asm-mode major-mode asm-mode-abbrev-table local-abbrev-table make-local-variable asm-mode-syntax-table make-syntax-table set-syntax-table run-hooks asm-mode-set-comment-hook modify-syntax-entry asm-comment-char "<" 10 ">" regexp-quote char-to-string cs comment-start " " comment-start-skip "+[ 	]*" "^.+" "+ *$" asm-inline-empty-comment-pattern "^[	 ]+" " *$" asm-code-level-empty-comment-pattern "^" asm-flush-left-empty-comment-pattern comment-end "" comment-column 32 "	" fill-prefix asm-mode-hook] 5 "\
Major mode for editing typical assembler code.
Features a private abbrev table and the following bindings:

\\[asm-colon]	outdent a preceding label, tab to next tab stop.
\\[tab-to-tab-stop]	tab to next tab stop.
\\[asm-newline]	newline, then tab to next tab stop.
\\[asm-comment]	smart placement of assembler comments.

The character used for making comments is set by the variable
`asm-comment-char' (which defaults to `?;').

Alternatively, you may set this variable in `asm-set-comment-hook', which is
called near the beginning of mode initialization.

Turning on Asm mode runs the hook `asm-mode-hook' at the end of initialization.

Special commands:\\{asm-mode-map}
" nil])
(fset 'asm-colon #[nil "ЉАy€БВ!«ѓГ €)Дc€Е ‡" [0 looking-at "[ 	]+\\(\\sw\\|\\s_\\)+$" delete-horizontal-space ":" tab-to-tab-stop] 2 "\
Insert a colon; if it follows a label, delete the label's indentation." nil])
(fset 'asm-newline #[nil "l«ѓА €Бc€В ‡" [delete-horizontal-space "\n" tab-to-tab-stop] 1 "\
Insert LFD + fill-prefix, to bring us back to code-indent level." nil])
(byte-code "АБM€ВГM‡" [asm-line-matches #[(pattern &optional withcomment) "ЉАy€Б\n!)‡" [0 looking-at pattern] 2] asm-pop-comment-level #[nil "А€Б €h\nU«†ГД!€ЄuБ €n?­†Еy€ЖД!‡" [nil delete-horizontal-space asm-comment-char delete-backward-char 1 0 open-line] 2]] 2)
(fset 'asm-comment #[nil "АБ!«ЌВ €Г €±€ЄїАЖЗ\"!«…И €ЄІА	!«…c€Є§А\n!«‹Л €‰±€Є–А!«ЌЛ €Г €±€Єѓc€Н‡" [asm-line-matches "^[ 	]*$" delete-horizontal-space tab-to-tab-stop asm-comment-char comment-start format "^[^%c\n]+$" indent-for-comment asm-flush-left-empty-comment-pattern asm-code-level-empty-comment-pattern asm-pop-comment-level asm-inline-empty-comment-pattern nil] 4 "\
Convert an empty comment to a `larger' kind, or start a new one.
These are the known comment classes:

   1 -- comment to the right of the code (at the comment-column)
   2 -- comment on its own line, indented like code
   3 -- comment on its own line, beginning at the left-most column.

Suggested usage:  while writing your code, trigger asm-comment
repeatedly until you are satisfied with the kind of comment." nil])