/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / asm-mode.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 61 73 |jade/3.2|/lisp/as|
|00000030| 6d 2d 6d 6f 64 65 2e 6a | 6c 0a 3b 3b 3b 20 43 6f |m-mode.j|l.;;; Co|
|00000040| 6d 70 69 6c 65 64 20 62 | 79 20 6a 73 68 40 6f 72 |mpiled b|y jsh@or|
|00000050| 63 72 69 73 74 20 6f 6e | 20 53 75 6e 20 4f 63 74 |crist on| Sun Oct|
|00000060| 20 31 36 20 32 30 3a 32 | 31 3a 33 33 20 31 39 39 | 16 20:2|1:33 199|
|00000070| 34 0a 3b 3b 3b 20 4a 61 | 64 65 20 33 2e 32 0a 0a |4.;;; Ja|de 3.2..|
|00000080| 28 70 72 6f 76 69 64 65 | 20 28 71 75 6f 74 65 20 |(provide| (quote |
|00000090| 61 73 6d 2d 6d 6f 64 65 | 29 29 0a 0a 28 64 65 66 |asm-mode|))..(def|
|000000a0| 76 61 72 20 61 73 6d 2d | 69 6e 64 65 6e 74 20 74 |var asm-|indent t|
|000000b0| 20 31 30 32 30 38 33 29 | 0a 0a 28 64 65 66 76 61 | 102083)|..(defva|
|000000c0| 72 20 61 73 6d 2d 63 6f | 6d 6d 65 6e 74 20 22 3b |r asm-co|mment ";|
|000000d0| 22 20 31 30 32 31 34 36 | 29 0a 0a 28 64 65 66 76 |" 102146|)..(defv|
|000000e0| 61 72 20 61 73 6d 2d 6b | 65 79 6d 61 70 20 28 6d |ar asm-k|eymap (m|
|000000f0| 61 6b 65 2d 6b 65 79 6c | 69 73 74 29 29 0a 0a 28 |ake-keyl|ist))..(|
|00000100| 62 69 6e 64 2d 6b 65 79 | 73 20 61 73 6d 2d 6b 65 |bind-key|s asm-ke|
|00000110| 79 6d 61 70 20 22 52 45 | 54 22 20 28 71 75 6f 74 |ymap "RE|T" (quot|
|00000120| 65 20 61 73 6d 2d 72 65 | 74 29 20 22 53 68 69 66 |e asm-re|t) "Shif|
|00000130| 74 2d 52 45 54 22 20 28 | 71 75 6f 74 65 20 73 70 |t-RET" (|quote sp|
|00000140| 6c 69 74 2d 6c 69 6e 65 | 29 20 22 3a 22 20 28 71 |lit-line|) ":" (q|
|00000150| 75 6f 74 65 20 61 73 6d | 2d 63 6f 6c 6f 6e 29 20 |uote asm|-colon) |
|00000160| 22 2e 22 20 28 71 75 6f | 74 65 20 61 73 6d 2d 64 |"." (quo|te asm-d|
|00000170| 6f 74 29 29 0a 0a 28 64 | 65 66 75 6e 20 61 73 6d |ot))..(d|efun asm|
|00000180| 2d 6d 6f 64 65 20 6e 69 | 6c 20 31 30 32 32 30 34 |-mode ni|l 102204|
|00000190| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|000001a0| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|000001b0| 18 fe 00 09 11 18 49 b2 | 0a 48 12 23 14 25 16 06 |......I.|.H.#.%..|
|000001c0| 20 16 07 26 08 16 09 1e | 0a 4b 46 26 0a 48 16 0b | ..&....|.KF&.H..|
|000001d0| 16 0c 09 22 20 5b 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |..." [ma|jor-mode|
|000001e0| 2d 6b 69 6c 6c 20 66 75 | 6e 63 61 6c 6c 20 22 41 |-kill fu|ncall "A|
|000001f0| 73 73 65 6d 62 6c 65 72 | 22 20 6d 6f 64 65 2d 6e |ssembler|" mode-n|
|00000200| 61 6d 65 20 61 73 6d 2d | 6d 6f 64 65 20 6d 61 6a |ame asm-|mode maj|
|00000210| 6f 72 2d 6d 6f 64 65 20 | 61 73 6d 2d 6d 6f 64 65 |or-mode |asm-mode|
|00000220| 2d 6b 69 6c 6c 20 61 73 | 6d 2d 69 6e 73 65 72 74 |-kill as|m-insert|
|00000230| 2d 63 6f 6d 6d 65 6e 74 | 20 6d 6f 64 65 2d 63 6f |-comment| mode-co|
|00000240| 6d 6d 65 6e 74 2d 66 75 | 6e 20 61 73 6d 2d 6b 65 |mment-fu|n asm-ke|
|00000250| 79 6d 61 70 20 6b 65 79 | 6d 61 70 2d 70 61 74 68 |ymap key|map-path|
|00000260| 20 65 76 61 6c 2d 68 6f | 6f 6b 20 61 73 6d 2d 6d | eval-ho|ok asm-m|
|00000270| 6f 64 65 2d 68 6f 6f 6b | 5d 20 33 29 29 0a 0a 28 |ode-hook|] 3))..(|
|00000280| 64 65 66 75 6e 20 61 73 | 6d 2d 63 70 70 2d 6d 6f |defun as|m-cpp-mo|
|00000290| 64 65 20 6e 69 6c 20 31 | 30 32 34 35 37 20 28 69 |de nil 1|02457 (i|
|000002a0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|000002b0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 18 fe 00 |e-byte-c|ode "...|
|000002c0| 09 11 18 49 b2 0a 48 12 | 23 14 25 16 06 20 16 07 |...I..H.|#.%.. ..|
|000002d0| 26 08 16 09 1e 0a 4b 46 | 26 0a 48 16 0b 16 0c 09 |&.....KF|&.H.....|
|000002e0| 48 16 0b 16 0d 09 22 20 | 5b 6d 61 6a 6f 72 2d 6d |H....." |[major-m|
|000002f0| 6f 64 65 2d 6b 69 6c 6c | 20 66 75 6e 63 61 6c 6c |ode-kill| funcall|
|00000300| 20 22 41 73 73 65 6d 62 | 6c 65 72 2d 43 50 50 22 | "Assemb|ler-CPP"|
|00000310| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 61 73 6d 2d 63 | mode-na|me asm-c|
|00000320| 70 70 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |pp-mode |major-mo|
|00000330| 64 65 20 61 73 6d 2d 6d | 6f 64 65 2d 6b 69 6c 6c |de asm-m|ode-kill|
|00000340| 20 63 2d 69 6e 73 65 72 | 74 2d 63 6f 6d 6d 65 6e | c-inser|t-commen|
|00000350| 74 20 6d 6f 64 65 2d 63 | 6f 6d 6d 65 6e 74 2d 66 |t mode-c|omment-f|
|00000360| 75 6e 20 61 73 6d 2d 6b | 65 79 6d 61 70 20 6b 65 |un asm-k|eymap ke|
|00000370| 79 6d 61 70 2d 70 61 74 | 68 20 65 76 61 6c 2d 68 |ymap-pat|h eval-h|
|00000380| 6f 6f 6b 20 61 73 6d 2d | 6d 6f 64 65 2d 68 6f 6f |ook asm-|mode-hoo|
|00000390| 6b 20 61 73 6d 2d 63 70 | 70 2d 6d 6f 64 65 2d 68 |k asm-cp|p-mode-h|
|000003a0| 6f 6f 6b 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ook] 3))|..(defun|
|000003b0| 20 61 73 6d 2d 6d 6f 64 | 65 2d 6b 69 6c 6c 20 6e | asm-mod|e-kill n|
|000003c0| 69 6c 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |il (jade|-byte-co|
|000003d0| 64 65 20 22 49 20 49 21 | 49 5c 22 49 23 14 1d 8b |de "I I!|I\"I#...|
|000003e0| 46 25 22 20 5b 6d 6f 64 | 65 2d 6e 61 6d 65 20 6d |F%" [mod|e-name m|
|000003f0| 61 6a 6f 72 2d 6d 6f 64 | 65 20 6d 61 6a 6f 72 2d |ajor-mod|e major-|
|00000400| 6d 6f 64 65 2d 6b 69 6c | 6c 20 6d 6f 64 65 2d 63 |mode-kil|l mode-c|
|00000410| 6f 6d 6d 65 6e 74 2d 66 | 75 6e 20 61 73 6d 2d 6b |omment-f|un asm-k|
|00000420| 65 79 6d 61 70 20 6b 65 | 79 6d 61 70 2d 70 61 74 |eymap ke|ymap-pat|
|00000430| 68 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 61 |h] 2))..|(defun a|
|00000440| 73 6d 2d 72 65 74 20 6e | 69 6c 20 28 69 6e 74 65 |sm-ret n|il (inte|
|00000450| 72 61 63 74 69 76 65 29 | 20 28 6a 61 64 65 2d 62 |ractive)| (jade-b|
|00000460| 79 74 65 2d 63 6f 64 65 | 20 22 10 19 fc 00 09 12 |yte-code| "......|
|00000470| fb 00 0a 13 09 22 20 5b | 69 6e 73 65 72 74 20 61 |....." [|insert a|
|00000480| 73 6d 2d 69 6e 64 65 6e | 74 20 22 0a 09 22 20 22 |sm-inden|t ".." "|
|00000490| 0a 22 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |."] 2)).|.(defun |
|000004a0| 61 73 6d 2d 63 6f 6c 6f | 6e 20 6e 69 6c 20 28 69 |asm-colo|n nil (i|
|000004b0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|000004c0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 11 12 |e-byte-c|ode "...|
|000004d0| 49 0a 09 48 13 1c fc 00 | 10 15 fb 00 12 16 06 09 |I..H....|........|
|000004e0| 22 20 5b 73 65 74 2d 69 | 6e 64 65 6e 74 2d 70 6f |" [set-i|ndent-po|
|000004f0| 73 20 70 6f 73 20 30 20 | 69 6e 73 65 72 74 20 61 |s pos 0 |insert a|
|00000500| 73 6d 2d 69 6e 64 65 6e | 74 20 22 3a 09 22 20 22 |sm-inden|t ":." "|
|00000510| 3a 22 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |:"] 4)).|.(defun |
|00000520| 61 73 6d 2d 64 6f 74 20 | 6e 69 6c 20 28 69 6e 74 |asm-dot |nil (int|
|00000530| 65 72 61 63 74 69 76 65 | 29 20 28 6a 61 64 65 2d |eractive|) (jade-|
|00000540| 62 79 74 65 2d 63 6f 64 | 65 20 22 10 08 fe 00 0b |byte-cod|e ".....|
|00000550| 11 12 13 49 0a 09 48 14 | 15 09 22 20 5b 65 6d 70 |...I..H.|.." [emp|
|00000560| 74 79 2d 6c 69 6e 65 2d | 70 20 73 65 74 2d 69 6e |ty-line-|p set-in|
|00000570| 64 65 6e 74 2d 70 6f 73 | 20 70 6f 73 20 30 20 69 |dent-pos| pos 0 i|
|00000580| 6e 73 65 72 74 20 22 2e | 22 5d 20 34 29 29 0a 0a |nsert ".|"] 4))..|
|00000590| 28 64 65 66 75 6e 20 61 | 73 6d 2d 69 6e 73 65 72 |(defun a|sm-inser|
|000005a0| 74 2d 63 6f 6d 6d 65 6e | 74 20 6e 69 6c 20 28 69 |t-commen|t nil (i|
|000005b0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 6a 61 64 |nteracti|ve) (jad|
|000005c0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 08 48 |e-byte-c|ode "..H|
|000005d0| 11 1a 09 22 20 5b 66 69 | 6e 64 2d 63 6f 6d 6d 65 |..." [fi|nd-comme|
|000005e0| 6e 74 2d 70 6f 73 20 69 | 6e 73 65 72 74 20 61 73 |nt-pos i|nsert as|
|000005f0| 6d 2d 63 6f 6d 6d 65 6e | 74 5d 20 32 29 29 0a    |m-commen|t] 2)). |
+--------+-------------------------+-------------------------+--------+--------+