WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/asm-mode.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:15 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/asm-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\207" [custom-declare-group asm nil "Mode for editing assembler code." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages custom-declare-variable asm-comment-char 59 "The comment-start character assumed by Asm mode." :type character] 8)
#@38 Syntax table used while in Asm mode.
(defvar asm-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [st make-syntax-table modify-syntax-entry 10 "> b" 47 ". 124b" 42 ". 23"] 4) (#$ . 919))
#@38 Abbrev table used while in Asm mode.
(defvar asm-mode-abbrev-table nil (#$ . 1161))
(define-abbrev-table 'asm-mode-abbrev-table nil)
#@22 Keymap for Asm mode.
(defvar asm-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\313\301 B#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210)\207" [map make-sparse-keymap define-key ":" asm-colon ";" comment-region "\n" newline-and-indent "
" [menu-bar asm-mode] "Asm" [menu-bar asm-mode comment-region] (menu-item "Comment Region" comment-region :help "Comment or uncomment each line in the region") [menu-bar asm-mode newline-and-indent] (menu-item "Insert Newline and Indent" newline-and-indent :help "Insert a newline, then indent according to major mode") [menu-bar asm-mode asm-colon] (menu-item "Insert Colon" asm-colon :help "Insert a colon; if it follows a label, delete the label's indentation")] 5) (#$ . 1300))
#@56 Additional expressions to highlight in Assembler mode.
(defconst asm-font-lock-keywords (append '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ 	]*\\(\\sw+\\(\\.\\sw+\\)*\\)?" (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t)) ("^\\(\\.\\(\\sw\\|\\s_\\)+\\)\\>:" 1 font-lock-function-name-face) ("^\\((\\sw+)\\)?\\s +\\(\\(\\.?\\sw\\|\\s_\\)+\\(\\.\\sw+\\)*\\)" 2 font-lock-keyword-face) ("^\\(\\.\\(\\sw\\|\\s_\\)+\\)\\>[^:]?" 1 font-lock-keyword-face) ("%\\sw+" . font-lock-variable-name-face)) cpp-font-lock-keywords) (#$ . 2101))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [asm-mode-hook variable-documentation put purecopy "Hook run when entering Assembler mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp asm-mode-map definition-name asm-mode] 5)
(defvar asm-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [asm-mode-map variable-documentation put purecopy "Keymap for `asm-mode'." boundp asm-mode-syntax-table definition-name asm-mode] 5)
(defvar asm-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [asm-mode-syntax-table variable-documentation put purecopy "Syntax table for `asm-mode'." asm-mode-abbrev-table definition-name asm-mode] 5)
(defvar asm-mode-abbrev-table (progn (define-abbrev-table 'asm-mode-abbrev-table nil) asm-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [asm-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `asm-mode'." asm-mode derived-mode-parent prog-mode] 5)
#@675 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-mode-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}
(defalias 'asm-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\3245\325\"\204V56=\204V\3265\3256C#\210\327!\210\330\f!\2105656\306\331!\210\332\306\333!\210\334\306\335!\210\336\337\340!\210\327\341 \244!\210\342\3437!\344\"\210\330\345\f!!\210\3467\347\"\210\306\350!\210\3517!(\306\352!\210\353*\306\354!\210\355,\306\356!\210\357.\306\360!\210\3610\3628)\363\364!\207" [delay-mode-hooks major-mode mode-name asm-mode-map asm-mode-syntax-table parent make-local-variable t prog-mode asm-mode "Assembler" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults (asm-font-lock-keywords) indent-line-function asm-indent-line tab-always-indent nil run-hooks asm-mode-set-comment-hook make-sparse-keymap local-set-key vector asm-comment make-syntax-table modify-syntax-entry "< b" comment-start string comment-add 1 comment-start-skip "\\(?:\\s<+\\|/[/*]+\\)[ 	]*" comment-end-skip "[ 	]*\\(\\s>\\|\\*+/\\)" comment-end "" "	" run-mode-hooks asm-mode-hook asm-mode-abbrev-table local-abbrev-table asm-comment-char fill-prefix] 6 (#$ . 3875) nil])
#@31 Auto-indent the current line.
(defalias 'asm-indent-line #[nil "`\302\303\304\217\203\212\305	!)\202\305	!*\207" [savep indent nil (byte-code "\212\301y\210\302\303w\210`Y\203\303\304 \301])\207" [savep 0 " 	" nil asm-calculate-indentation] 2) ((error 0)) indent-line-to] 3 (#$ . 5924) nil])
(defalias 'asm-calculate-indentation #[nil "\303\304!\203\305\207\303\306!\203\305\207\303\307!\203\206 	@\206 \n\207" [comment-column tab-stop-list tab-width looking-at "\\(\\sw\\|\\s_\\)+:" 0 "\\s<\\s<\\s<" "\\s<\\(\\S<\\|\\'\\)"] 2])
#@72 Insert a colon; if it follows a label, delete the label's indentation.
(defalias 'asm-colon #[nil "\301\212\302\303!\210\302\304!\210n\211\203\305 \210)\306\307!\210\205\"\305 \210\310 )\207" [labelp nil skip-syntax-backward "w_" " " delete-horizontal-space call-interactively self-insert-command tab-to-tab-stop] 2 (#$ . 6479) nil])
(defalias 'asm-newline 'newline-and-indent)
#@414 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.
(defalias 'asm-comment #[nil "\303 \210\304\211\212\305 \210\306\307 \310\"\311\312!)\212\305 \210\311\313!)\203,\314 \210\n\211\315\261\202|\2036`W\203;\316 \202|	\203H\212b\210n)\203M\nc\202|\212b\210\317\304x\210n)\203eb\210\nc\210\316 \202|b\210\317\304x\210`\307 |\210\305 \210\320c\210\321u\210\322 *\207" [comment comempty asm-comment-char comment-normalize-vars nil beginning-of-line comment-search-forward line-end-position t looking-at "[ 	]*$" "^[ 	]*$" indent-according-to-mode 32 indent-for-comment " 	" "\n" -1 asm-comment] 3 (#$ . 6870) nil])
(provide 'asm-mode)
F1l3 Manager
