home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 3.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 32 3a 31 36 3a 31 | 36 20 31 39 39 33 0a 3b | 22:16:1|6 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 61 73 6d | 2d 6d 6f 64 65 2e 65 6c |lisp/asm|-mode.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 35 | 2e 31 36 2e 0a 3b 3b 3b |on 19.15|.16..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 | (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 64 65 66 76 61 | 72 20 61 73 6d 2d 63 6f |..(defva|r asm-co|
|000001d0| 6d 6d 65 6e 74 2d 63 68 | 61 72 20 35 39 20 22 5c |mment-ch|ar 59 "\|
|000001e0| 0a 2a 54 68 65 20 63 6f | 6d 6d 65 6e 74 2d 73 74 |.*The co|mment-st|
|000001f0| 61 72 74 20 63 68 61 72 | 61 63 74 65 72 20 61 73 |art char|acter as|
|00000200| 73 75 6d 65 64 20 62 79 | 20 41 73 6d 20 6d 6f 64 |sumed by| Asm mod|
|00000210| 65 2e 22 29 0a 28 64 65 | 66 76 61 72 20 61 73 6d |e.").(de|fvar asm|
|00000220| 2d 6d 6f 64 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 |-mode-sy|ntax-tab|
|00000230| 6c 65 20 6e 69 6c 20 22 | 5c 0a 53 79 6e 74 61 78 |le nil "|\.Syntax|
|00000240| 20 74 61 62 6c 65 20 75 | 73 65 64 20 77 68 69 6c | table u|sed whil|
|00000250| 65 20 69 6e 20 41 73 6d | 20 6d 6f 64 65 2e 22 29 |e in Asm| mode.")|
|00000260| 0a 28 64 65 66 76 61 72 | 20 61 73 6d 2d 6d 6f 64 |.(defvar| asm-mod|
|00000270| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6e |e-abbrev|-table n|
|00000280| 69 6c 20 22 5c 0a 41 62 | 62 72 65 76 20 74 61 62 |il "\.Ab|brev tab|
|00000290| 6c 65 20 75 73 65 64 20 | 77 68 69 6c 65 20 69 6e |le used |while in|
|000002a0| 20 41 73 6d 20 6d 6f 64 | 65 2e 22 29 0a 28 64 65 | Asm mod|e.").(de|
|000002b0| 66 69 6e 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |fine-abb|rev-tabl|
|000002c0| 65 20 28 71 75 6f 74 65 | 20 61 73 6d 2d 6d 6f 64 |e (quote| asm-mod|
|000002d0| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 29 20 |e-abbrev|-table) |
|000002e0| 6e 69 6c 29 0a 28 64 65 | 66 76 61 72 20 61 73 6d |nil).(de|fvar asm|
|000002f0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6e 69 6c 20 22 5c |-mode-ma|p nil "\|
|00000300| 0a 4b 65 79 6d 61 70 20 | 66 6f 72 20 41 73 6d 20 |.Keymap |for Asm |
|00000310| 6d 6f 64 65 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |mode.").|(byte-co|
|00000320| 64 65 20 22 08 84 25 00 | c1 20 10 c2 08 c3 c4 23 |de "..%.|. .....#|
|00000330| 88 c2 08 c5 c6 23 88 c2 | 08 c7 c8 23 88 c2 08 c9 |.....#..|...#....|
|00000340| ca 23 88 c2 08 cb ca 23 | 88 cc cd 21 84 2e 00 ce |.#.....#|...!....|
|00000350| 16 0d cc cf 21 84 37 00 | ce 16 0f cc d0 21 84 40 |....!.7.|.....!.@|
|00000360| 00 ce 16 10 ce 87 22 20 | 5b 61 73 6d 2d 6d 6f 64 |......" |[asm-mod|
|00000370| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 73 70 61 72 73 |e-map ma|ke-spars|
|00000380| 65 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |e-keymap| define-|
|00000390| 6b 65 79 20 22 3b 22 20 | 61 73 6d 2d 63 6f 6d 6d |key ";" |asm-comm|
|000003a0| 65 6e 74 20 22 3a 22 20 | 61 73 6d 2d 63 6f 6c 6f |ent ":" |asm-colo|
|000003b0| 6e 20 22 09 22 20 74 61 | 62 2d 74 6f 2d 74 61 62 |n "." ta|b-to-tab|
|000003c0| 2d 73 74 6f 70 20 22 5c | 6e 22 20 61 73 6d 2d 6e |-stop "\|n" asm-n|
|000003d0| 65 77 6c 69 6e 65 20 22 | 0d 22 20 62 6f 75 6e 64 |ewline "|." bound|
|000003e0| 70 20 61 73 6d 2d 63 6f | 64 65 2d 6c 65 76 65 6c |p asm-co|de-level|
|000003f0| 2d 65 6d 70 74 79 2d 63 | 6f 6d 6d 65 6e 74 2d 70 |-empty-c|omment-p|
|00000400| 61 74 74 65 72 6e 20 6e | 69 6c 20 61 73 6d 2d 66 |attern n|il asm-f|
|00000410| 6c 75 73 68 2d 6c 65 66 | 74 2d 65 6d 70 74 79 2d |lush-lef|t-empty-|
|00000420| 63 6f 6d 6d 65 6e 74 2d | 70 61 74 74 65 72 6e 20 |comment-|pattern |
|00000430| 61 73 6d 2d 69 6e 6c 69 | 6e 65 2d 65 6d 70 74 79 |asm-inli|ne-empty|
|00000440| 2d 63 6f 6d 6d 65 6e 74 | 2d 70 61 74 74 65 72 6e |-comment|-pattern|
|00000450| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00000460| 61 73 6d 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |asm-mode| #[nil "|
|00000470| c0 20 88 c1 5c 6e 21 88 | c3 14 c5 16 06 0e 07 16 |. ..\n!.|........|
|00000480| 08 c9 ca 21 88 cb 20 16 | 5c 6e cc 0e 5c 6e 21 88 |...!.. .|\n..\n!.|
|00000490| cd ce 21 88 cf 0e 10 d1 | 0e 5c 6e 23 88 cf d2 d3 |..!.....|.\n#....|
|000004a0| 0e 5c 6e 23 88 d4 d5 0e | 10 21 21 1e 16 c9 d7 21 |.\n#....|.!!....!|
|000004b0| 88 0e 16 d8 50 16 17 c9 | d9 21 88 0e 16 da 50 16 |....P...|.!....P.|
|000004c0| 19 db 0e 16 dc 51 16 1d | de 0e 16 89 df 52 16 20 |.....Q..|.....R. |
|000004d0| e1 0e 16 89 89 df b0 05 | 16 5c 22 29 c9 e3 21 88 |........|.\")..!.|
|000004e0| e4 16 23 c9 e5 21 88 e6 | 16 25 e7 e8 21 88 e9 16 |..#..!..|.%..!...|
|000004f0| 2a cd eb 21 87 22 20 5b | 6b 69 6c 6c 2d 61 6c 6c |*..!." [|kill-all|
|00000500| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 73 |-local-v|ariables|
|00000510| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 61 | use-loc|al-map a|
|00000520| 73 6d 2d 6d 6f 64 65 2d | 6d 61 70 20 22 41 73 73 |sm-mode-|map "Ass|
|00000530| 65 6d 62 6c 65 72 22 20 | 6d 6f 64 65 2d 6e 61 6d |embler" |mode-nam|
|00000540| 65 20 61 73 6d 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |e asm-mo|de major|
|00000550| 2d 6d 6f 64 65 20 61 73 | 6d 2d 6d 6f 64 65 2d 61 |-mode as|m-mode-a|
|00000560| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 6c 6f 63 61 |bbrev-ta|ble loca|
|00000570| 6c 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6d |l-abbrev|-table m|
|00000580| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|00000590| 6c 65 20 61 73 6d 2d 6d | 6f 64 65 2d 73 79 6e 74 |le asm-m|ode-synt|
|000005a0| 61 78 2d 74 61 62 6c 65 | 20 6d 61 6b 65 2d 73 79 |ax-table| make-sy|
|000005b0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 73 65 74 2d 73 |ntax-tab|le set-s|
|000005c0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 72 75 6e 2d |yntax-ta|ble run-|
|000005d0| 68 6f 6f 6b 73 20 61 73 | 6d 2d 6d 6f 64 65 2d 73 |hooks as|m-mode-s|
|000005e0| 65 74 2d 63 6f 6d 6d 65 | 6e 74 2d 68 6f 6f 6b 20 |et-comme|nt-hook |
|000005f0| 6d 6f 64 69 66 79 2d 73 | 79 6e 74 61 78 2d 65 6e |modify-s|yntax-en|
|00000600| 74 72 79 20 61 73 6d 2d | 63 6f 6d 6d 65 6e 74 2d |try asm-|comment-|
|00000610| 63 68 61 72 20 22 3c 22 | 20 31 30 20 22 3e 22 20 |char "<"| 10 ">" |
|00000620| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 63 68 61 |regexp-q|uote cha|
|00000630| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 63 73 20 63 |r-to-str|ing cs c|
|00000640| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 20 22 20 22 |omment-s|tart " "|
|00000650| 20 63 6f 6d 6d 65 6e 74 | 2d 73 74 61 72 74 2d 73 | comment|-start-s|
|00000660| 6b 69 70 20 22 2b 5b 20 | 09 5d 2a 22 20 22 5e 2e |kip "+[ |.]*" "^.|
|00000670| 2b 22 20 22 2b 20 2a 24 | 22 20 61 73 6d 2d 69 6e |+" "+ *$|" asm-in|
|00000680| 6c 69 6e 65 2d 65 6d 70 | 74 79 2d 63 6f 6d 6d 65 |line-emp|ty-comme|
|00000690| 6e 74 2d 70 61 74 74 65 | 72 6e 20 22 5e 5b 09 20 |nt-patte|rn "^[. |
|000006a0| 5d 2b 22 20 22 20 2a 24 | 22 20 61 73 6d 2d 63 6f |]+" " *$|" asm-co|
|000006b0| 64 65 2d 6c 65 76 65 6c | 2d 65 6d 70 74 79 2d 63 |de-level|-empty-c|
|000006c0| 6f 6d 6d 65 6e 74 2d 70 | 61 74 74 65 72 6e 20 22 |omment-p|attern "|
|000006d0| 5e 22 20 61 73 6d 2d 66 | 6c 75 73 68 2d 6c 65 66 |^" asm-f|lush-lef|
|000006e0| 74 2d 65 6d 70 74 79 2d | 63 6f 6d 6d 65 6e 74 2d |t-empty-|comment-|
|000006f0| 70 61 74 74 65 72 6e 20 | 63 6f 6d 6d 65 6e 74 2d |pattern |comment-|
|00000700| 65 6e 64 20 22 22 20 63 | 6f 6d 6d 65 6e 74 2d 63 |end "" c|omment-c|
|00000710| 6f 6c 75 6d 6e 20 33 32 | 20 61 75 74 6f 2d 66 69 |olumn 32| auto-fi|
|00000720| 6c 6c 2d 6d 6f 64 65 20 | 31 20 22 09 22 20 66 69 |ll-mode |1 "." fi|
|00000730| 6c 6c 2d 70 72 65 66 69 | 78 20 61 73 6d 2d 6d 6f |ll-prefi|x asm-mo|
|00000740| 64 65 2d 68 6f 6f 6b 5d | 20 35 20 22 5c 0a 4d 61 |de-hook]| 5 "\.Ma|
|00000750| 6a 6f 72 20 6d 6f 64 65 | 20 66 6f 72 20 65 64 69 |jor mode| for edi|
|00000760| 74 69 6e 67 20 74 79 70 | 69 63 61 6c 20 61 73 73 |ting typ|ical ass|
|00000770| 65 6d 62 6c 65 72 20 63 | 6f 64 65 2e 0a 46 65 61 |embler c|ode..Fea|
|00000780| 74 75 72 65 73 20 61 20 | 70 72 69 76 61 74 65 20 |tures a |private |
|00000790| 61 62 62 72 65 76 20 74 | 61 62 6c 65 20 61 6e 64 |abbrev t|able and|
|000007a0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 62 | the fol|lowing b|
|000007b0| 69 6e 64 69 6e 67 73 3a | 0a 0a 5c 5c 5b 61 73 6d |indings:|..\\[asm|
|000007c0| 2d 63 6f 6c 6f 6e 5d 09 | 6f 75 74 64 65 6e 74 20 |-colon].|outdent |
|000007d0| 61 20 70 72 65 63 65 64 | 69 6e 67 20 6c 61 62 65 |a preced|ing labe|
|000007e0| 6c 2c 20 74 61 62 20 74 | 6f 20 6e 65 78 74 20 74 |l, tab t|o next t|
|000007f0| 61 62 20 73 74 6f 70 2e | 0a 5c 5c 5b 74 61 62 2d |ab stop.|.\\[tab-|
|00000800| 74 6f 2d 74 61 62 2d 73 | 74 6f 70 5d 09 74 61 62 |to-tab-s|top].tab|
|00000810| 20 74 6f 20 6e 65 78 74 | 20 74 61 62 20 73 74 6f | to next| tab sto|
|00000820| 70 2e 0a 5c 5c 5b 61 73 | 6d 2d 6e 65 77 6c 69 6e |p..\\[as|m-newlin|
|00000830| 65 5d 09 6e 65 77 6c 69 | 6e 65 2c 20 74 68 65 6e |e].newli|ne, then|
|00000840| 20 74 61 62 20 74 6f 20 | 6e 65 78 74 20 74 61 62 | tab to |next tab|
|00000850| 20 73 74 6f 70 2e 0a 5c | 5c 5b 61 73 6d 2d 63 6f | stop..\|\[asm-co|
|00000860| 6d 6d 65 6e 74 5d 09 73 | 6d 61 72 74 20 70 6c 61 |mment].s|mart pla|
|00000870| 63 65 6d 65 6e 74 20 6f | 66 20 61 73 73 65 6d 62 |cement o|f assemb|
|00000880| 6c 65 72 20 63 6f 6d 6d | 65 6e 74 73 2e 0a 0a 54 |ler comm|ents...T|
|00000890| 68 65 20 63 68 61 72 61 | 63 74 65 72 20 75 73 65 |he chara|cter use|
|000008a0| 64 20 66 6f 72 20 6d 61 | 6b 69 6e 67 20 63 6f 6d |d for ma|king com|
|000008b0| 6d 65 6e 74 73 20 69 73 | 20 73 65 74 20 62 79 20 |ments is| set by |
|000008c0| 74 68 65 20 76 61 72 69 | 61 62 6c 65 0a 60 61 73 |the vari|able.`as|
|000008d0| 6d 2d 63 6f 6d 6d 65 6e | 74 2d 63 68 61 72 27 20 |m-commen|t-char' |
|000008e0| 28 77 68 69 63 68 20 64 | 65 66 61 75 6c 74 73 20 |(which d|efaults |
|000008f0| 74 6f 20 60 3f 3b 27 29 | 2e 0a 0a 41 6c 74 65 72 |to `?;')|...Alter|
|00000900| 6e 61 74 69 76 65 6c 79 | 2c 20 79 6f 75 20 6d 61 |natively|, you ma|
|00000910| 79 20 73 65 74 20 74 68 | 69 73 20 76 61 72 69 61 |y set th|is varia|
|00000920| 62 6c 65 20 69 6e 20 60 | 61 73 6d 2d 73 65 74 2d |ble in `|asm-set-|
|00000930| 63 6f 6d 6d 65 6e 74 2d | 68 6f 6f 6b 27 2c 20 77 |comment-|hook', w|
|00000940| 68 69 63 68 20 69 73 0a | 63 61 6c 6c 65 64 20 6e |hich is.|called n|
|00000950| 65 61 72 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e |ear the |beginnin|
|00000960| 67 20 6f 66 20 6d 6f 64 | 65 20 69 6e 69 74 69 61 |g of mod|e initia|
|00000970| 6c 69 7a 61 74 69 6f 6e | 2e 0a 0a 54 75 72 6e 69 |lization|...Turni|
|00000980| 6e 67 20 6f 6e 20 41 73 | 6d 20 6d 6f 64 65 20 72 |ng on As|m mode r|
|00000990| 75 6e 73 20 74 68 65 20 | 68 6f 6f 6b 20 60 61 73 |uns the |hook `as|
|000009a0| 6d 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 27 20 61 74 20 |m-mode-h|ook' at |
|000009b0| 74 68 65 20 65 6e 64 20 | 6f 66 20 69 6e 69 74 69 |the end |of initi|
|000009c0| 61 6c 69 7a 61 74 69 6f | 6e 2e 0a 0a 53 70 65 63 |alizatio|n...Spec|
|000009d0| 69 61 6c 20 63 6f 6d 6d | 61 6e 64 73 3a 5c 5c 7b |ial comm|ands:\\{|
|000009e0| 61 73 6d 2d 6d 6f 64 65 | 2d 6d 61 70 7d 0a 22 20 |asm-mode|-map}." |
|000009f0| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000a00| 27 61 73 6d 2d 63 6f 6c | 6f 6e 20 23 5b 6e 69 6c |'asm-col|on #[nil|
|00000a10| 20 22 8a c0 79 88 c1 c2 | 21 83 0d 00 c3 20 88 29 | "..y...|!.... .)|
|00000a20| c4 63 88 c5 20 87 22 20 | 5b 30 20 6c 6f 6f 6b 69 |.c.. ." |[0 looki|
|00000a30| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2b 5c 5c 28 5c |ng-at "[| .]+\\(\|
|00000a40| 5c 73 77 5c 5c 7c 5c 5c | 73 5f 5c 5c 29 2b 24 22 |\sw\\|\\|s_\\)+$"|
|00000a50| 20 64 65 6c 65 74 65 2d | 68 6f 72 69 7a 6f 6e 74 | delete-|horizont|
|00000a60| 61 6c 2d 73 70 61 63 65 | 20 22 3a 22 20 74 61 62 |al-space| ":" tab|
|00000a70| 2d 74 6f 2d 74 61 62 2d | 73 74 6f 70 5d 20 32 20 |-to-tab-|stop] 2 |
|00000a80| 22 5c 0a 49 6e 73 65 72 | 74 20 61 20 63 6f 6c 6f |"\.Inser|t a colo|
|00000a90| 6e 3b 20 69 66 20 69 74 | 20 66 6f 6c 6c 6f 77 73 |n; if it| follows|
|00000aa0| 20 61 20 6c 61 62 65 6c | 2c 20 64 65 6c 65 74 65 | a label|, delete|
|00000ab0| 20 74 68 65 20 6c 61 62 | 65 6c 27 73 20 69 6e 64 | the lab|el's ind|
|00000ac0| 65 6e 74 61 74 69 6f 6e | 2e 22 20 6e 69 6c 5d 29 |entation|." nil])|
|00000ad0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 73 6d 2d |.(defali|as 'asm-|
|00000ae0| 6e 65 77 6c 69 6e 65 20 | 23 5b 6e 69 6c 20 22 6c |newline |#[nil "l|
|00000af0| 83 07 00 c0 20 88 c1 63 | 88 c2 20 87 22 20 5b 64 |.... ..c|.. ." [d|
|00000b00| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00000b10| 2d 73 70 61 63 65 20 22 | 5c 6e 22 20 74 61 62 2d |-space "|\n" tab-|
|00000b20| 74 6f 2d 74 61 62 2d 73 | 74 6f 70 5d 20 31 20 22 |to-tab-s|top] 1 "|
|00000b30| 5c 0a 49 6e 73 65 72 74 | 20 4c 46 44 20 2b 20 66 |\.Insert| LFD + f|
|00000b40| 69 6c 6c 2d 70 72 65 66 | 69 78 2c 20 74 6f 20 62 |ill-pref|ix, to b|
|00000b50| 72 69 6e 67 20 75 73 20 | 62 61 63 6b 20 74 6f 20 |ring us |back to |
|00000b60| 63 6f 64 65 2d 69 6e 64 | 65 6e 74 20 6c 65 76 65 |code-ind|ent leve|
|00000b70| 6c 2e 22 20 6e 69 6c 5d | 29 0a 28 62 79 74 65 2d |l." nil]|).(byte-|
|00000b80| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c0 c3 c4 5c |code "..|.\"....\|
|00000b90| 22 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 61 73 |"." [def|alias as|
|00000ba0| 6d 2d 6c 69 6e 65 2d 6d | 61 74 63 68 65 73 20 23 |m-line-m|atches #|
|00000bb0| 5b 28 70 61 74 74 65 72 | 6e 20 26 6f 70 74 69 6f |[(patter|n &optio|
|00000bc0| 6e 61 6c 20 77 69 74 68 | 63 6f 6d 6d 65 6e 74 29 |nal with|comment)|
|00000bd0| 20 22 8a c0 79 88 c1 5c | 6e 21 29 87 22 20 5b 30 | "..y..\|n!)." [0|
|00000be0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 70 61 74 74 | looking|-at patt|
|00000bf0| 65 72 6e 5d 20 32 5d 20 | 61 73 6d 2d 70 6f 70 2d |ern] 2] |asm-pop-|
|00000c00| 63 6f 6d 6d 65 6e 74 2d | 6c 65 76 65 6c 20 23 5b |comment-|level #[|
|00000c10| 6e 69 6c 20 22 c0 7f 88 | c1 20 88 68 5c 6e 55 83 |nil "...|. .h\nU.|
|00000c20| 13 00 c3 c4 21 88 82 06 | 00 c1 20 88 6e 3f 85 21 |....!...|.. .n?.!|
|00000c30| 00 c5 79 88 c6 c4 21 87 | 22 20 5b 6e 69 6c 20 64 |..y...!.|" [nil d|
|00000c40| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00000c50| 2d 73 70 61 63 65 20 61 | 73 6d 2d 63 6f 6d 6d 65 |-space a|sm-comme|
|00000c60| 6e 74 2d 63 68 61 72 20 | 64 65 6c 65 74 65 2d 62 |nt-char |delete-b|
|00000c70| 61 63 6b 77 61 72 64 2d | 63 68 61 72 20 31 20 30 |ackward-|char 1 0|
|00000c80| 20 6f 70 65 6e 2d 6c 69 | 6e 65 5d 20 32 5d 5d 20 | open-li|ne] 2]] |
|00000c90| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 73 |3).(defa|lias 'as|
|00000ca0| 6d 2d 63 6f 6d 6d 65 6e | 74 20 23 5b 6e 69 6c 20 |m-commen|t #[nil |
|00000cb0| 22 c0 c1 21 83 14 00 c2 | 20 88 c3 20 88 0c 0d b1 |"..!....| .. ....|
|00000cc0| 02 88 82 5b 00 c0 c6 c7 | 0c 5c 22 21 83 23 00 c8 |...[....|.\"!.#..|
|00000cd0| 20 88 82 5b 00 c0 0e 09 | 21 83 30 00 0c 63 88 82 | ..[....|!.0..c..|
|00000ce0| 5b 00 c0 0e 5c 6e 21 83 | 43 00 cb 20 88 0c 89 0d |[...\n!.|C.. ....|
|00000cf0| b1 03 88 82 5b 00 c0 0e | 0c 21 83 58 00 cb 20 88 |....[...|.!.X.. .|
|00000d00| c3 20 88 0c 0d b1 02 88 | 82 5b 00 0c 63 88 cd 7f |. ......|.[..c...|
|00000d10| 87 22 20 5b 61 73 6d 2d | 6c 69 6e 65 2d 6d 61 74 |." [asm-|line-mat|
|00000d20| 63 68 65 73 20 22 5e 5b | 20 09 5d 2a 24 22 20 64 |ches "^[| .]*$" d|
|00000d30| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00000d40| 2d 73 70 61 63 65 20 74 | 61 62 2d 74 6f 2d 74 61 |-space t|ab-to-ta|
|00000d50| 62 2d 73 74 6f 70 20 61 | 73 6d 2d 63 6f 6d 6d 65 |b-stop a|sm-comme|
|00000d60| 6e 74 2d 63 68 61 72 20 | 63 6f 6d 6d 65 6e 74 2d |nt-char |comment-|
|00000d70| 73 74 61 72 74 20 66 6f | 72 6d 61 74 20 22 5e 5b |start fo|rmat "^[|
|00000d80| 5e 25 63 5d 2b 24 22 20 | 69 6e 64 65 6e 74 2d 66 |^%c]+$" |indent-f|
|00000d90| 6f 72 2d 63 6f 6d 6d 65 | 6e 74 20 61 73 6d 2d 66 |or-comme|nt asm-f|
|00000da0| 6c 75 73 68 2d 6c 65 66 | 74 2d 65 6d 70 74 79 2d |lush-lef|t-empty-|
|00000db0| 63 6f 6d 6d 65 6e 74 2d | 70 61 74 74 65 72 6e 20 |comment-|pattern |
|00000dc0| 61 73 6d 2d 63 6f 64 65 | 2d 6c 65 76 65 6c 2d 65 |asm-code|-level-e|
|00000dd0| 6d 70 74 79 2d 63 6f 6d | 6d 65 6e 74 2d 70 61 74 |mpty-com|ment-pat|
|00000de0| 74 65 72 6e 20 61 73 6d | 2d 70 6f 70 2d 63 6f 6d |tern asm|-pop-com|
|00000df0| 6d 65 6e 74 2d 6c 65 76 | 65 6c 20 61 73 6d 2d 69 |ment-lev|el asm-i|
|00000e00| 6e 6c 69 6e 65 2d 65 6d | 70 74 79 2d 63 6f 6d 6d |nline-em|pty-comm|
|00000e10| 65 6e 74 2d 70 61 74 74 | 65 72 6e 20 6e 69 6c 5d |ent-patt|ern nil]|
|00000e20| 20 34 20 22 5c 0a 43 6f | 6e 76 65 72 74 20 61 6e | 4 "\.Co|nvert an|
|00000e30| 20 65 6d 70 74 79 20 63 | 6f 6d 6d 65 6e 74 20 74 | empty c|omment t|
|00000e40| 6f 20 61 20 60 6c 61 72 | 67 65 72 27 20 6b 69 6e |o a `lar|ger' kin|
|00000e50| 64 2c 20 6f 72 20 73 74 | 61 72 74 20 61 20 6e 65 |d, or st|art a ne|
|00000e60| 77 20 6f 6e 65 2e 0a 54 | 68 65 73 65 20 61 72 65 |w one..T|hese are|
|00000e70| 20 74 68 65 20 6b 6e 6f | 77 6e 20 63 6f 6d 6d 65 | the kno|wn comme|
|00000e80| 6e 74 20 63 6c 61 73 73 | 65 73 3a 0a 0a 20 20 20 |nt class|es:.. |
|00000e90| 31 20 2d 2d 20 63 6f 6d | 6d 65 6e 74 20 74 6f 20 |1 -- com|ment to |
|00000ea0| 74 68 65 20 72 69 67 68 | 74 20 6f 66 20 74 68 65 |the righ|t of the|
|00000eb0| 20 63 6f 64 65 20 28 61 | 74 20 74 68 65 20 63 6f | code (a|t the co|
|00000ec0| 6d 6d 65 6e 74 2d 63 6f | 6c 75 6d 6e 29 0a 20 20 |mment-co|lumn). |
|00000ed0| 20 32 20 2d 2d 20 63 6f | 6d 6d 65 6e 74 20 6f 6e | 2 -- co|mment on|
|00000ee0| 20 69 74 73 20 6f 77 6e | 20 6c 69 6e 65 2c 20 69 | its own| line, i|
|00000ef0| 6e 64 65 6e 74 65 64 20 | 6c 69 6b 65 20 63 6f 64 |ndented |like cod|
|00000f00| 65 0a 20 20 20 33 20 2d | 2d 20 63 6f 6d 6d 65 6e |e. 3 -|- commen|
|00000f10| 74 20 6f 6e 20 69 74 73 | 20 6f 77 6e 20 6c 69 6e |t on its| own lin|
|00000f20| 65 2c 20 62 65 67 69 6e | 6e 69 6e 67 20 61 74 20 |e, begin|ning at |
|00000f30| 74 68 65 20 6c 65 66 74 | 2d 6d 6f 73 74 20 63 6f |the left|-most co|
|00000f40| 6c 75 6d 6e 2e 0a 0a 53 | 75 67 67 65 73 74 65 64 |lumn...S|uggested|
|00000f50| 20 75 73 61 67 65 3a 20 | 20 77 68 69 6c 65 20 77 | usage: | while w|
|00000f60| 72 69 74 69 6e 67 20 79 | 6f 75 72 20 63 6f 64 65 |riting y|our code|
|00000f70| 2c 20 74 72 69 67 67 65 | 72 20 61 73 6d 2d 63 6f |, trigge|r asm-co|
|00000f80| 6d 6d 65 6e 74 0a 72 65 | 70 65 61 74 65 64 6c 79 |mment.re|peatedly|
|00000f90| 20 75 6e 74 69 6c 20 79 | 6f 75 20 61 72 65 20 73 | until y|ou are s|
|00000fa0| 61 74 69 73 66 69 65 64 | 20 77 69 74 68 20 74 68 |atisfied| with th|
|00000fb0| 65 20 6b 69 6e 64 20 6f | 66 20 63 6f 6d 6d 65 6e |e kind o|f commen|
|00000fc0| 74 2e 22 20 6e 69 6c 5d | 29 0a |t." nil]|). |
+--------+-------------------------+-------------------------+--------+--------+
