/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / dos-fns.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 4d 6f 6e 20 | 4d 61 79 20 20 32 20 30 | on Mon |May  2 0|
|00000040| 31 3a 33 33 3a 34 33 20 | 31 39 39 34 0a 3b 3b 3b |1:33:43 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 64 6f 73 2d 66 6e | 73 2e 65 6c 0a 3b 3b 3b |p/dos-fn|s.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 32 2e 39 31 2e | 35 2e 0a 3b 3b 3b 20 62 |9.22.91.|5..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 2f 68 6f 6d 65 2f 66 |(error "|`/home/f|
|000001a0| 73 66 2f 72 6d 73 2f 65 | 31 39 2f 6c 69 73 70 2f |sf/rms/e|19/lisp/|
|000001b0| 64 6f 73 2d 66 6e 73 2e | 65 6c 27 20 77 61 73 20 |dos-fns.|el' was |
|000001c0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001d0| 63 73 20 31 39 22 29 29 | 0a 0a 28 62 79 74 65 2d |cs 19"))|..(byte-|
|000001e0| 63 6f 64 65 20 22 c0 c1 | c2 c3 21 c4 c5 c2 c6 21 |code "..|..!....!|
|000001f0| c7 c2 c8 21 c2 c9 21 ca | cb cc c2 cd 21 c2 ce 21 |...!..!.|....!..!|
|00000200| c2 cf 21 c2 d0 21 c2 d1 | 21 af 0f 5c 22 87 22 20 |..!..!..|!..\"." |
|00000210| 5b 73 65 74 2d 64 65 66 | 61 75 6c 74 20 6d 6f 64 |[set-def|ault mod|
|00000220| 65 2d 6c 69 6e 65 2d 66 | 6f 72 6d 61 74 20 70 75 |e-line-f|ormat pu|
|00000230| 72 65 63 6f 70 79 20 22 | 22 20 6d 6f 64 65 2d 6c |recopy "|" mode-l|
|00000240| 69 6e 65 2d 6d 6f 64 69 | 66 69 65 64 20 6d 6f 64 |ine-modi|fied mod|
|00000250| 65 2d 6c 69 6e 65 2d 62 | 75 66 66 65 72 2d 69 64 |e-line-b|uffer-id|
|00000260| 65 6e 74 69 66 69 63 61 | 74 69 6f 6e 20 22 20 20 |entifica|tion "  |
|00000270| 20 22 20 67 6c 6f 62 61 | 6c 2d 6d 6f 64 65 2d 73 | " globa|l-mode-s|
|00000280| 74 72 69 6e 67 20 22 20 | 20 20 25 5b 28 22 20 22 |tring " |  %[(" "|
|00000290| 25 74 3a 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 6d |%t:" mod|e-name m|
|000002a0| 6f 64 65 2d 6c 69 6e 65 | 2d 70 72 6f 63 65 73 73 |ode-line|-process|
|000002b0| 20 6d 69 6e 6f 72 2d 6d | 6f 64 65 2d 61 6c 69 73 | minor-m|ode-alis|
|000002c0| 74 20 22 25 6e 22 20 22 | 29 25 5d 2d 2d 22 20 28 |t "%n" "|)%]--" (|
|000002d0| 6c 69 6e 65 2d 6e 75 6d | 62 65 72 2d 6d 6f 64 65 |line-num|ber-mode|
|000002e0| 20 22 4c 25 6c 2d 2d 22 | 29 20 28 2d 33 20 2e 20 | "L%l--"|) (-3 . |
|000002f0| 22 25 70 22 29 20 22 2d | 25 2d 22 5d 20 31 38 29 |"%p") "-|%-"] 18)|
|00000300| 0a 28 64 65 66 76 61 72 | 20 66 69 6c 65 2d 6e 61 |.(defvar| file-na|
|00000310| 6d 65 2d 62 75 66 66 65 | 72 2d 66 69 6c 65 2d 74 |me-buffe|r-file-t|
|00000320| 79 70 65 2d 61 6c 69 73 | 74 20 28 71 75 6f 74 65 |ype-alis|t (quote|
|00000330| 20 28 28 22 5b 3a 2f 5d | 2e 2a 63 6f 6e 66 69 67 | (("[:/]|.*config|
|00000340| 2e 73 79 73 24 22 29 20 | 28 22 5c 5c 2e 65 6c 63 |.sys$") |("\\.elc|
|00000350| 24 22 20 2e 20 74 29 20 | 28 22 5c 5c 2e 5c 5c 28 |$" . t) |("\\.\\(|
|00000360| 6f 62 6a 5c 5c 7c 65 78 | 65 5c 5c 7c 63 6f 6d 5c |obj\\|ex|e\\|com\|
|00000370| 5c 7c 6c 69 62 5c 5c 7c | 73 79 73 5c 5c 7c 63 68 |\|lib\\||sys\\|ch|
|00000380| 6b 5c 5c 7c 6f 75 74 5c | 5c 7c 62 69 6e 5c 5c 7c |k\\|out\|\|bin\\||
|00000390| 69 63 6f 5c 5c 7c 70 69 | 66 5c 5c 29 24 22 20 2e |ico\\|pi|f\\)$" .|
|000003a0| 20 74 29 20 28 22 5c 5c | 2e 5c 5c 28 61 72 63 5c | t) ("\\|.\\(arc\|
|000003b0| 5c 7c 7a 69 70 5c 5c 7c | 70 61 6b 5c 5c 7c 6c 7a |\|zip\\||pak\\|lz|
|000003c0| 68 5c 5c 7c 7a 6f 6f 5c | 5c 29 24 22 20 2e 20 74 |h\\|zoo\|\)$" . t|
|000003d0| 29 20 28 22 5c 5c 2e 5c | 5c 28 61 5c 5c 7c 6f 5c |) ("\\.\|\(a\\|o\|
|000003e0| 5c 7c 74 61 72 5c 5c 7c | 7a 5c 5c 7c 67 7a 5c 5c |\|tar\\||z\\|gz\\|
|000003f0| 7c 74 61 7a 5c 5c 29 24 | 22 20 2e 20 74 29 20 28 ||taz\\)$|" . t) (|
|00000400| 22 5c 5c 2e 74 70 5b 75 | 6c 70 77 5d 24 22 20 2e |"\\.tp[u|lpw]$" .|
|00000410| 20 74 29 20 28 22 5b 3a | 2f 5d 74 61 67 73 24 22 | t) ("[:|/]tags$"|
|00000420| 20 2e 20 74 29 29 29 20 | 22 5c 0a 2a 41 6c 69 73 | . t))) |"\.*Alis|
|00000430| 74 20 66 6f 72 20 64 69 | 73 74 69 6e 67 75 69 73 |t for di|stinguis|
|00000440| 68 69 6e 67 20 74 65 78 | 74 20 66 69 6c 65 73 20 |hing tex|t files |
|00000450| 66 72 6f 6d 20 62 69 6e | 61 72 79 20 66 69 6c 65 |from bin|ary file|
|00000460| 73 2e 0a 45 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |s..Each |element |
|00000470| 68 61 73 20 74 68 65 20 | 66 6f 72 6d 20 28 52 45 |has the |form (RE|
|00000480| 47 45 58 50 20 2e 20 54 | 59 50 45 29 2c 20 77 68 |GEXP . T|YPE), wh|
|00000490| 65 72 65 20 52 45 47 45 | 58 50 20 69 73 20 6d 61 |ere REGE|XP is ma|
|000004a0| 74 63 68 65 64 0a 61 67 | 61 69 6e 73 74 20 74 68 |tched.ag|ainst th|
|000004b0| 65 20 66 69 6c 65 20 6e | 61 6d 65 2c 20 61 6e 64 |e file n|ame, and|
|000004c0| 20 54 59 50 45 20 69 73 | 20 6e 69 6c 20 66 6f 72 | TYPE is| nil for|
|000004d0| 20 74 65 78 74 2c 20 74 | 20 66 6f 72 20 62 69 6e | text, t| for bin|
|000004e0| 61 72 79 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |ary.").(|defalias|
|000004f0| 20 28 71 75 6f 74 65 20 | 66 69 6e 64 2d 62 75 66 | (quote |find-buf|
|00000500| 66 65 72 2d 66 69 6c 65 | 2d 74 79 70 65 29 20 23 |fer-file|-type) #|
|00000510| 5b 28 66 69 6c 65 6e 61 | 6d 65 29 20 22 08 c1 89 |[(filena|me) "...|
|00000520| 1a 1b 1c c5 1e 06 c7 0e | 08 21 16 08 0b 84 2d 00 |........|.!....-.|
|00000530| 5c 66 83 2d 00 c9 5c 66 | 40 40 0e 08 5c 22 83 27 |\f.-..\f|@@..\".'|
|00000540| 00 5c 66 40 41 12 c5 13 | 5c 66 41 14 82 0f 00 29 |.\f@A...|\fA....)|
|00000550| 0b 83 4e 00 5c 6e ca 3e | 83 3c 00 5c 6e 82 50 00 |..N.\n.>|.<.\n.P.|
|00000560| 5c 6e 39 85 50 00 cb 5c | 6e 21 85 50 00 5c 6e 0e |\n9.P..\|n!.P.\n.|
|00000570| 08 21 82 50 00 0e 5c 66 | 2b 87 22 20 5b 66 69 6c |.!.P..\f|+." [fil|
|00000580| 65 2d 6e 61 6d 65 2d 62 | 75 66 66 65 72 2d 66 69 |e-name-b|uffer-fi|
|00000590| 6c 65 2d 74 79 70 65 2d | 61 6c 69 73 74 20 6e 69 |le-type-|alist ni|
|000005a0| 6c 20 63 6f 64 65 20 66 | 6f 75 6e 64 20 61 6c 69 |l code f|ound ali|
|000005b0| 73 74 20 74 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |st t cas|e-fold-s|
|000005c0| 65 61 72 63 68 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |earch fi|le-name-|
|000005d0| 73 61 6e 73 2d 76 65 72 | 73 69 6f 6e 73 20 66 69 |sans-ver|sions fi|
|000005e0| 6c 65 6e 61 6d 65 20 73 | 74 72 69 6e 67 2d 6d 61 |lename s|tring-ma|
|000005f0| 74 63 68 20 28 6e 69 6c | 20 74 29 20 66 62 6f 75 |tch (nil| t) fbou|
|00000600| 6e 64 70 20 64 65 66 61 | 75 6c 74 2d 62 75 66 66 |ndp defa|ult-buff|
|00000610| 65 72 2d 66 69 6c 65 2d | 74 79 70 65 5d 20 33 5d |er-file-|type] 3]|
|00000620| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 69 6e |).(defal|ias 'fin|
|00000630| 64 2d 66 69 6c 65 2d 62 | 69 6e 61 72 79 20 23 5b |d-file-b|inary #[|
|00000640| 28 66 69 6c 65 6e 61 6d | 65 29 20 22 c0 19 c2 0b |(filenam|e) "....|
|00000650| 21 29 87 22 20 5b 28 28 | 22 22 20 2e 20 74 29 29 |!)." [((|"" . t))|
|00000660| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 62 75 66 66 65 | file-na|me-buffe|
|00000670| 72 2d 66 69 6c 65 2d 74 | 79 70 65 2d 61 6c 69 73 |r-file-t|ype-alis|
|00000680| 74 20 66 69 6e 64 2d 66 | 69 6c 65 20 66 69 6c 65 |t find-f|ile file|
|00000690| 6e 61 6d 65 5d 20 32 20 | 22 5c 0a 56 69 73 69 74 |name] 2 |"\.Visit|
|000006a0| 20 66 69 6c 65 20 46 49 | 4c 45 4e 41 4d 45 20 61 | file FI|LENAME a|
|000006b0| 6e 64 20 74 72 65 61 74 | 20 69 74 20 61 73 20 62 |nd treat| it as b|
|000006c0| 69 6e 61 72 79 2e 22 20 | 22 46 46 69 6e 64 20 66 |inary." |"FFind f|
|000006d0| 69 6c 65 20 62 69 6e 61 | 72 79 3a 20 22 5d 29 0a |ile bina|ry: "]).|
|000006e0| 28 64 65 66 61 6c 69 61 | 73 20 27 66 69 6e 64 2d |(defalia|s 'find-|
|000006f0| 66 69 6c 65 2d 74 65 78 | 74 20 23 5b 28 66 69 6c |file-tex|t #[(fil|
|00000700| 65 6e 61 6d 65 29 20 22 | c0 19 c2 0b 21 29 87 22 |ename) "|....!)."|
|00000710| 20 5b 28 28 22 22 29 29 | 20 66 69 6c 65 2d 6e 61 | [((""))| file-na|
|00000720| 6d 65 2d 62 75 66 66 65 | 72 2d 66 69 6c 65 2d 74 |me-buffe|r-file-t|
|00000730| 79 70 65 2d 61 6c 69 73 | 74 20 66 69 6e 64 2d 66 |ype-alis|t find-f|
|00000740| 69 6c 65 20 66 69 6c 65 | 6e 61 6d 65 5d 20 32 20 |ile file|name] 2 |
|00000750| 22 5c 0a 56 69 73 69 74 | 20 66 69 6c 65 20 46 49 |"\.Visit| file FI|
|00000760| 4c 45 4e 41 4d 45 20 61 | 6e 64 20 74 72 65 61 74 |LENAME a|nd treat|
|00000770| 20 69 74 20 61 73 20 61 | 20 74 65 78 74 20 66 69 | it as a| text fi|
|00000780| 6c 65 2e 22 20 22 46 46 | 69 6e 64 20 66 69 6c 65 |le." "FF|ind file|
|00000790| 20 74 65 78 74 3a 20 22 | 5d 29 0a 28 62 79 74 65 | text: "|]).(byte|
|000007a0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c3 c4 c1 |-code ".|..\"....|
|000007b0| 5c 22 88 c5 43 16 06 c0 | 87 22 20 5b 64 65 66 61 |\"..C...|." [defa|
|000007c0| 6c 69 61 73 20 66 69 6e | 64 2d 66 69 6c 65 2d 6e |lias fin|d-file-n|
|000007d0| 6f 74 2d 66 6f 75 6e 64 | 2d 73 65 74 2d 62 75 66 |ot-found|-set-buf|
|000007e0| 66 65 72 2d 66 69 6c 65 | 2d 74 79 70 65 20 23 5b |fer-file|-type #[|
|000007f0| 6e 69 6c 20 22 8a 70 71 | 88 c0 c1 20 21 12 29 c3 |nil ".pq|... !.).|
|00000800| 87 22 20 5b 66 69 6e 64 | 2d 62 75 66 66 65 72 2d |." [find|-buffer-|
|00000810| 66 69 6c 65 2d 74 79 70 | 65 20 62 75 66 66 65 72 |file-typ|e buffer|
|00000820| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 62 75 66 66 65 |-file-na|me buffe|
|00000830| 72 2d 66 69 6c 65 2d 74 | 79 70 65 20 6e 69 6c 5d |r-file-t|ype nil]|
|00000840| 20 32 5d 20 61 64 64 2d | 68 6f 6f 6b 20 66 69 6e | 2] add-|hook fin|
|00000850| 64 2d 66 69 6c 65 2d 6e | 6f 74 2d 66 6f 75 6e 64 |d-file-n|ot-found|
|00000860| 2d 68 6f 6f 6b 73 20 22 | 63 3a 2f 65 6d 61 63 73 |-hooks "|c:/emacs|
|00000870| 2f 69 6e 66 6f 22 20 49 | 6e 66 6f 2d 64 65 66 61 |/info" I|nfo-defa|
|00000880| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 2d 6c 69 |ult-dire|ctory-li|
|00000890| 73 74 5d 20 33 29 0a 28 | 64 65 66 76 61 72 20 6d |st] 3).(|defvar m|
|000008a0| 73 64 6f 73 2d 73 68 65 | 6c 6c 73 20 28 71 75 6f |sdos-she|lls (quo|
|000008b0| 74 65 20 28 22 63 6f 6d | 6d 61 6e 64 2e 63 6f 6d |te ("com|mand.com|
|000008c0| 22 20 22 34 64 6f 73 2e | 63 6f 6d 22 20 22 6e 64 |" "4dos.|com" "nd|
|000008d0| 6f 73 2e 63 6f 6d 22 29 | 29 20 22 5c 0a 2a 4c 69 |os.com")|) "\.*Li|
|000008e0| 73 74 20 6f 66 20 73 68 | 65 6c 6c 73 20 74 68 61 |st of sh|ells tha|
|000008f0| 74 20 75 73 65 20 60 2f | 63 27 20 69 6e 73 74 65 |t use `/|c' inste|
|00000900| 61 64 20 6f 66 20 60 2d | 63 27 20 61 6e 64 20 61 |ad of `-|c' and a|
|00000910| 20 62 61 63 6b 73 6c 61 | 73 68 65 64 20 63 6f 6d | backsla|shed com|
|00000920| 6d 61 6e 64 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |mand.").|(byte-co|
|00000930| 64 65 20 22 c0 11 c2 c3 | c4 5c 22 88 c2 c5 c6 5c |de "....|.\"....\|
|00000940| 22 88 c2 c7 c8 5c 22 88 | c2 c9 ca 5c 22 88 cb c9 |"....\".|...\"...|
|00000950| cc cd 23 88 c2 ce cf 5c | 22 88 c2 d0 cf 5c 22 88 |..#....\|"....\".|
|00000960| d1 d2 4d 88 d3 cf 4d 88 | d4 d5 21 88 d6 d7 21 88 |..M...M.|..!...!.|
|00000970| d6 d8 21 88 d6 d9 21 87 | 22 20 5b 28 28 61 78 20 |..!...!.|" [((ax |
|00000980| 2e 20 30 29 20 28 62 78 | 20 2e 20 31 29 20 28 63 |. 0) (bx| . 1) (c|
|00000990| 78 20 2e 20 32 29 20 28 | 64 78 20 2e 20 33 29 20 |x . 2) (|dx . 3) |
|000009a0| 28 73 69 20 2e 20 34 29 | 20 28 64 69 20 2e 20 35 |(si . 4)| (di . 5|
|000009b0| 29 20 28 63 66 6c 61 67 | 20 2e 20 36 29 20 28 66 |) (cflag| . 6) (f|
|000009c0| 6c 61 67 73 20 2e 20 37 | 29 20 28 61 6c 20 30 20 |lags . 7|) (al 0 |
|000009d0| 2e 20 30 29 20 28 62 6c | 20 31 20 2e 20 30 29 20 |. 0) (bl| 1 . 0) |
|000009e0| 28 63 6c 20 32 20 2e 20 | 30 29 20 28 64 6c 20 33 |(cl 2 . |0) (dl 3|
|000009f0| 20 2e 20 30 29 20 28 61 | 68 20 30 20 2e 20 31 29 | . 0) (a|h 0 . 1)|
|00000a00| 20 28 62 68 20 31 20 2e | 20 31 29 20 28 63 68 20 | (bh 1 .| 1) (ch |
|00000a10| 32 20 2e 20 31 29 20 28 | 64 68 20 33 20 2e 20 31 |2 . 1) (|dh 3 . 1|
|00000a20| 29 29 20 72 65 67 69 73 | 74 65 72 2d 6e 61 6d 65 |)) regis|ter-name|
|00000a30| 2d 61 6c 69 73 74 20 64 | 65 66 61 6c 69 61 73 20 |-alist d|efalias |
|00000a40| 6d 61 6b 65 2d 72 65 67 | 69 73 74 65 72 20 23 5b |make-reg|ister #[|
|00000a50| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 6d 61 |nil "...|\"." [ma|
|00000a60| 6b 65 2d 76 65 63 74 6f | 72 20 38 20 30 5d 20 33 |ke-vecto|r 8 0] 3|
|00000a70| 5d 20 72 65 67 69 73 74 | 65 72 2d 76 61 6c 75 65 |] regist|er-value|
|00000a80| 20 23 5b 28 72 65 67 73 | 20 6e 61 6d 65 29 20 22 | #[(regs| name) "|
|00000a90| c0 09 5c 6e 5c 22 41 89 | 1b 3a 83 24 00 5c 66 0b |..\n\"A.|.:.$.\f.|
|00000aa0| 40 48 1d 0b 41 c6 55 83 | 1d 00 0d c7 a6 82 20 00 |@H..A.U.|...... .|
|00000ab0| 0d c7 a5 29 82 30 00 0b | a7 83 2f 00 5c 66 0b 48 |...).0..|../.\f.H|
|00000ac0| 82 30 00 c8 29 87 22 20 | 5b 61 73 73 6f 63 20 6e |.0..)." |[assoc n|
|00000ad0| 61 6d 65 20 72 65 67 69 | 73 74 65 72 2d 6e 61 6d |ame regi|ster-nam|
|00000ae0| 65 2d 61 6c 69 73 74 20 | 77 68 65 72 65 20 72 65 |e-alist |where re|
|00000af0| 67 73 20 74 65 6d 20 30 | 20 32 35 36 20 6e 69 6c |gs tem 0| 256 nil|
|00000b00| 5d 20 34 5d 20 73 65 74 | 2d 72 65 67 69 73 74 65 |] 4] set|-registe|
|00000b10| 72 2d 76 61 6c 75 65 20 | 23 5b 28 72 65 67 73 20 |r-value |#[(regs |
|00000b20| 6e 61 6d 65 20 76 61 6c | 75 65 29 20 22 08 a7 83 |name val|ue) "...|
|00000b30| 58 00 08 c1 59 83 58 00 | c2 0b 5c 66 5c 22 41 89 |X...Y.X.|..\f\"A.|
|00000b40| 1d 3a 83 49 00 0e 06 0d | 40 48 c7 08 c8 5c 22 18 |.:.I....|@H...\".|
|00000b50| 1e 09 0e 06 0d 40 0d 41 | c1 55 83 38 00 ca c7 0e |.....@.A|.U.8....|
|00000b60| 09 cb 5c 22 08 5c 22 82 | 43 00 ca c7 0e 09 c8 5c |..\".\".|C......\|
|00000b70| 22 cc 08 cd 5c 22 5c 22 | 49 88 2a 82 57 00 0d a7 |"...\"\"|I.*.W...|
|00000b80| 83 57 00 0e 06 0d c7 08 | ce 5c 22 49 88 29 0e 06 |.W......|.\"I.)..|
|00000b90| 87 22 20 5b 76 61 6c 75 | 65 20 30 20 61 73 73 6f |." [valu|e 0 asso|
|00000ba0| 63 20 6e 61 6d 65 20 72 | 65 67 69 73 74 65 72 2d |c name r|egister-|
|00000bb0| 6e 61 6d 65 2d 61 6c 69 | 73 74 20 77 68 65 72 65 |name-ali|st where|
|00000bc0| 20 72 65 67 73 20 6c 6f | 67 61 6e 64 20 32 35 35 | regs lo|gand 255|
|00000bd0| 20 74 65 6d 20 6c 6f 67 | 69 6f 72 20 36 35 32 38 | tem log|ior 6528|
|00000be0| 30 20 6c 73 68 20 38 20 | 36 35 35 33 35 5d 20 38 |0 lsh 8 |65535] 8|
|00000bf0| 5d 20 69 6e 74 64 6f 73 | 20 23 5b 28 72 65 67 73 |] intdos| #[(regs|
|00000c00| 29 20 22 c0 c1 5c 6e 5c | 22 87 22 20 5b 69 6e 74 |) "..\n\|"." [int|
|00000c10| 38 36 20 33 33 20 72 65 | 67 73 5d 20 33 5d 20 70 |86 33 re|gs] 3] p|
|00000c20| 75 74 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |ut byte-|optimize|
|00000c30| 72 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |r byte-c|ompile-i|
|00000c40| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 20 77 69 6e |nline-ex|pand win|
|00000c50| 64 6f 77 2d 66 72 61 6d | 65 20 69 67 6e 6f 72 65 |dow-fram|e ignore|
|00000c60| 20 78 2d 73 65 74 2d 73 | 65 6c 65 63 74 69 6f 6e | x-set-s|election|
|00000c70| 20 78 2d 67 65 74 2d 73 | 65 6c 65 63 74 69 6f 6e | x-get-s|election|
|00000c80| 20 28 6c 61 6d 62 64 61 | 20 28 26 72 65 73 74 20 | (lambda| (&rest |
|00000c90| 72 65 73 74 29 20 22 22 | 29 20 66 72 61 6d 65 2d |rest) ""|) frame-|
|00000ca0| 70 61 72 61 6d 65 74 65 | 72 73 20 66 6d 61 6b 75 |paramete|rs fmaku|
|00000cb0| 6e 62 6f 75 6e 64 20 66 | 6f 6e 74 2d 6d 65 6e 75 |nbound f|ont-menu|
|00000cc0| 2d 61 64 64 2d 64 65 66 | 61 75 6c 74 20 67 6c 6f |-add-def|ault glo|
|00000cd0| 62 61 6c 2d 75 6e 73 65 | 74 2d 6b 65 79 20 5b 43 |bal-unse|t-key [C|
|00000ce0| 2d 64 6f 77 6e 2d 6d 6f | 75 73 65 2d 31 5d 20 5b |-down-mo|use-1] [|
|00000cf0| 43 2d 64 6f 77 6e 2d 6d | 6f 75 73 65 2d 32 5d 20 |C-down-m|ouse-2] |
|00000d00| 5b 43 2d 64 6f 77 6e 2d | 6d 6f 75 73 65 2d 33 5d |[C-down-|mouse-3]|
|00000d10| 5d 20 34 29 0a          |                         |] 4).   |        |
+--------+-------------------------+-------------------------+--------+--------+