home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 25.5 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
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 34 35 3a 32 35 20 |Feb 1 1|8:45:25 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 65 6d 75 | 6c 61 74 6f 72 73 2f 74 |lisp/emu|lators/t|
|00000080| 65 63 6f 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |eco.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 34 2e 31 33 | version| 19.4.13|
|000000a0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000b0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 31 |comp ver|sion 2.1|
|000000c0| 30 3b 20 20 31 2d 66 65 | 62 2d 39 33 2e 0a 3b 3b |0; 1-fe|b-93..;;|
|000000d0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000e0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000f0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000100| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000110| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 31 38 2e 0a |ist in E|macs18..|
|00000120| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000130| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000140| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000150| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000160| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000170| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|00000180| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000190| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|000001a0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 | (err|or "This|
|000001b0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001c0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 31 39 2e 22 |ed for E|macs19."|
|000001d0| 29 29 0a 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |))..(byt|e-code "|
|000001e0| c0 c1 21 88 c2 c3 4d 88 | c4 c5 4d 87 22 20 5b 72 |..!...M.|..M." [r|
|000001f0| 65 71 75 69 72 65 20 62 | 61 63 6b 71 75 6f 74 65 |equire b|ackquote|
|00000200| 20 74 65 63 6f 2d 73 65 | 74 2d 65 6c 65 6d 65 6e | teco-se|t-elemen|
|00000210| 74 73 20 23 5b 28 61 72 | 72 61 79 20 73 74 61 72 |ts #[(ar|ray star|
|00000220| 74 20 65 6e 64 20 76 61 | 6c 75 65 29 20 22 08 89 |t end va|lue) "..|
|00000230| 19 5c 6e 58 ad 8b 0b 09 | 0c 49 88 09 54 89 11 aa |.\nX....|.I..T...|
|00000240| 71 29 87 22 20 5b 73 74 | 61 72 74 20 69 20 65 6e |q)." [st|art i en|
|00000250| 64 20 61 72 72 61 79 20 | 76 61 6c 75 65 5d 20 34 |d array |value] 4|
|00000260| 5d 20 74 65 63 6f 2d 73 | 65 74 2d 65 6c 65 6d 65 |] teco-s|et-eleme|
|00000270| 6e 74 73 2d 69 6e 64 65 | 78 20 23 5b 28 61 72 72 |nts-inde|x #[(arr|
|00000280| 61 79 20 73 74 61 72 74 | 20 65 6e 64 20 6f 66 66 |ay start| end off|
|00000290| 73 65 74 29 20 22 08 89 | 19 5c 6e 58 ad 8d 0b 09 |set) "..|.\nX....|
|000002a0| 89 0c 5c 5c 49 88 09 54 | 89 11 aa 6f 29 87 22 20 |..\\I..T|...o)." |
|000002b0| 5b 73 74 61 72 74 20 69 | 20 65 6e 64 20 61 72 72 |[start i| end arr|
|000002c0| 61 79 20 6f 66 66 73 65 | 74 5d 20 35 5d 5d 20 32 |ay offse|t] 5]] 2|
|000002d0| 29 0a 28 64 65 66 76 61 | 72 20 74 65 63 6f 2d 63 |).(defva|r teco-c|
|000002e0| 6f 6d 6d 61 6e 64 2d 73 | 74 72 69 6e 67 20 22 22 |ommand-s|tring ""|
|000002f0| 20 22 5c 0a 54 68 65 20 | 63 75 72 72 65 6e 74 20 | "\.The |current |
|00000300| 63 6f 6d 6d 61 6e 64 20 | 73 74 72 69 6e 67 20 62 |command |string b|
|00000310| 65 69 6e 67 20 65 78 65 | 63 75 74 65 64 2e 22 29 |eing exe|cuted.")|
|00000320| 0a 28 64 65 66 76 61 72 | 20 74 65 63 6f 2d 63 6f |.(defvar| teco-co|
|00000330| 6d 6d 61 6e 64 2d 70 6f | 69 6e 74 65 72 20 6e 69 |mmand-po|inter ni|
|00000340| 6c 20 22 5c 0a 50 6f 69 | 6e 74 65 72 20 69 6e 74 |l "\.Poi|nter int|
|00000350| 6f 20 74 65 63 6f 2d 63 | 6f 6d 6d 61 6e 64 2d 73 |o teco-c|ommand-s|
|00000360| 74 72 69 6e 67 20 73 68 | 6f 77 69 6e 67 20 6e 65 |tring sh|owing ne|
|00000370| 78 74 20 63 68 61 72 61 | 63 74 65 72 20 74 6f 20 |xt chara|cter to |
|00000380| 62 65 20 65 78 65 63 75 | 74 65 64 2e 22 29 0a 28 |be execu|ted.").(|
|00000390| 64 65 66 76 61 72 20 74 | 65 63 6f 2d 63 74 72 6c |defvar t|eco-ctrl|
|000003a0| 2d 72 20 31 30 20 22 5c | 0a 43 75 72 72 65 6e 74 |-r 10 "\|.Current|
|000003b0| 20 6e 75 6d 62 65 72 20 | 72 61 64 69 78 2e 22 29 | number |radix.")|
|000003c0| 0a 28 64 65 66 76 61 72 | 20 74 65 63 6f 2d 64 69 |.(defvar| teco-di|
|000003d0| 67 69 74 2d 73 77 69 74 | 63 68 20 6e 69 6c 20 22 |git-swit|ch nil "|
|000003e0| 5c 0a 53 65 74 20 69 66 | 20 77 65 20 68 61 76 65 |\.Set if| we have|
|000003f0| 20 6a 75 73 74 20 65 78 | 65 63 75 74 65 64 20 61 | just ex|ecuted a|
|00000400| 20 64 69 67 69 74 2e 22 | 29 0a 28 64 65 66 76 61 | digit."|).(defva|
|00000410| 72 20 74 65 63 6f 2d 65 | 78 70 2d 65 78 70 20 6e |r teco-e|xp-exp n|
|00000420| 69 6c 20 22 5c 0a 45 78 | 70 72 65 73 73 69 6f 6e |il "\.Ex|pression|
|00000430| 20 76 61 6c 75 65 20 70 | 72 65 63 65 65 64 69 6e | value p|receedin|
|00000440| 67 20 6f 70 65 72 61 74 | 6f 72 2e 22 29 0a 28 64 |g operat|or.").(d|
|00000450| 65 66 76 61 72 20 74 65 | 63 6f 2d 65 78 70 2d 76 |efvar te|co-exp-v|
|00000460| 61 6c 31 20 6e 69 6c 20 | 22 5c 0a 43 75 72 72 65 |al1 nil |"\.Curre|
|00000470| 6e 74 20 61 72 67 75 6d | 65 6e 74 20 76 61 6c 75 |nt argum|ent valu|
|00000480| 65 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 65 63 |e.").(de|fvar tec|
|00000490| 6f 2d 65 78 70 2d 76 61 | 6c 32 20 6e 69 6c 20 22 |o-exp-va|l2 nil "|
|000004a0| 5c 0a 41 72 67 75 6d 65 | 6e 74 20 62 65 66 6f 72 |\.Argume|nt befor|
|000004b0| 65 20 63 6f 6d 6d 61 2e | 22 29 0a 28 64 65 66 76 |e comma.|").(defv|
|000004c0| 61 72 20 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |ar teco-|exp-flag|
|000004d0| 31 20 6e 69 6c 20 22 5c | 0a 74 20 69 66 20 61 72 |1 nil "\|.t if ar|
|000004e0| 67 75 6d 65 6e 74 20 69 | 73 20 70 72 65 73 65 6e |gument i|s presen|
|000004f0| 74 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 65 63 |t.").(de|fvar tec|
|00000500| 6f 2d 65 78 70 2d 66 6c | 61 67 32 20 6e 69 6c 20 |o-exp-fl|ag2 nil |
|00000510| 22 5c 0a 74 20 69 66 20 | 61 72 67 75 6d 65 6e 74 |"\.t if |argument|
|00000520| 20 62 65 66 6f 72 65 20 | 63 6f 6d 6d 61 20 69 73 | before |comma is|
|00000530| 20 70 72 65 73 65 6e 74 | 2e 22 29 0a 28 64 65 66 | present|.").(def|
|00000540| 76 61 72 20 74 65 63 6f | 2d 65 78 70 2d 6f 70 20 |var teco|-exp-op |
|00000550| 6e 69 6c 20 22 5c 0a 50 | 65 6e 64 69 6e 67 20 61 |nil "\.P|ending a|
|00000560| 72 69 74 68 6d 65 74 69 | 63 20 6f 70 65 72 61 74 |rithmeti|c operat|
|00000570| 69 6f 6e 20 6f 6e 20 61 | 72 67 75 6d 65 6e 74 2e |ion on a|rgument.|
|00000580| 22 29 0a 28 64 65 66 76 | 61 72 20 74 65 63 6f 2d |").(defv|ar teco-|
|00000590| 65 78 70 2d 73 74 61 63 | 6b 20 6e 69 6c 20 22 5c |exp-stac|k nil "\|
|000005a0| 0a 53 74 61 63 6b 20 66 | 6f 72 20 70 61 72 65 6e |.Stack f|or paren|
|000005b0| 74 68 65 73 69 7a 65 64 | 20 65 78 70 72 65 73 73 |thesized| express|
|000005c0| 69 6f 6e 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ions.").|(defvar |
|000005d0| 74 65 63 6f 2d 6d 61 63 | 72 6f 2d 73 74 61 63 6b |teco-mac|ro-stack|
|000005e0| 20 6e 69 6c 20 22 5c 0a | 53 74 61 63 6b 20 66 6f | nil "\.|Stack fo|
|000005f0| 72 20 6d 61 63 72 6f 20 | 69 6e 76 6f 63 61 74 69 |r macro |invocati|
|00000600| 6f 6e 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |ons.").(|defvar t|
|00000610| 65 63 6f 2d 6d 61 70 63 | 68 2d 6c 20 6e 69 6c 20 |eco-mapc|h-l nil |
|00000620| 22 5c 0a 54 72 61 6e 73 | 6c 61 74 69 6f 6e 20 74 |"\.Trans|lation t|
|00000630| 61 62 6c 65 20 74 6f 20 | 6c 6f 77 65 72 2d 63 61 |able to |lower-ca|
|00000640| 73 65 20 6c 65 74 74 65 | 72 73 2e 22 29 0a 28 62 |se lette|rs.").(b|
|00000650| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 13 |yte-code| "...\".|
|00000660| c4 0b c2 c5 c2 24 88 c4 | 0b c6 c7 c8 24 87 22 20 |.....$..|....$." |
|00000670| 5b 6d 61 6b 65 2d 76 65 | 63 74 6f 72 20 32 35 36 |[make-ve|ctor 256|
|00000680| 20 30 20 74 65 63 6f 2d | 6d 61 70 63 68 2d 6c 20 | 0 teco-|mapch-l |
|00000690| 74 65 63 6f 2d 73 65 74 | 2d 65 6c 65 6d 65 6e 74 |teco-set|-element|
|000006a0| 73 2d 69 6e 64 65 78 20 | 32 35 35 20 36 35 20 39 |s-index |255 65 9|
|000006b0| 30 20 33 32 5d 20 35 29 | 0a 28 64 65 66 76 61 72 |0 32] 5)|.(defvar|
|000006c0| 20 74 65 63 6f 2d 74 72 | 61 63 65 20 6e 69 6c 20 | teco-tr|ace nil |
|000006d0| 22 5c 0a 74 20 69 66 20 | 74 72 61 63 69 6e 67 20 |"\.t if |tracing |
|000006e0| 69 73 20 6f 6e 2e 22 29 | 0a 28 64 65 66 76 61 72 |is on.")|.(defvar|
|000006f0| 20 74 65 63 6f 2d 61 74 | 2d 66 6c 61 67 20 6e 69 | teco-at|-flag ni|
|00000700| 6c 20 22 5c 0a 74 20 69 | 66 20 61 6e 20 40 20 66 |l "\.t i|f an @ f|
|00000710| 6c 61 67 20 69 73 20 70 | 65 6e 64 69 6e 67 2e 22 |lag is p|ending."|
|00000720| 29 0a 28 64 65 66 76 61 | 72 20 74 65 63 6f 2d 63 |).(defva|r teco-c|
|00000730| 6f 6c 6f 6e 2d 66 6c 61 | 67 20 6e 69 6c 20 22 5c |olon-fla|g nil "\|
|00000740| 0a 31 20 69 66 20 61 20 | 3a 20 66 6c 61 67 20 69 |.1 if a |: flag i|
|00000750| 73 20 70 65 6e 64 69 6e | 67 2c 20 32 20 69 66 20 |s pendin|g, 2 if |
|00000760| 61 20 3a 3a 20 66 6c 61 | 67 20 69 73 20 70 65 6e |a :: fla|g is pen|
|00000770| 64 69 6e 67 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ding.").|(defvar |
|00000780| 74 65 63 6f 2d 71 73 70 | 65 63 2d 76 61 6c 69 64 |teco-qsp|ec-valid|
|00000790| 20 6e 69 6c 20 22 5c 0a | 46 6c 61 67 73 20 64 65 | nil "\.|Flags de|
|000007a0| 73 63 72 69 62 69 6e 67 | 20 77 68 65 74 68 65 72 |scribing| whether|
|000007b0| 20 61 20 63 68 61 72 61 | 63 74 65 72 20 69 73 20 | a chara|cter is |
|000007c0| 61 20 76 61 69 64 20 71 | 2d 72 65 67 69 73 74 65 |a vaid q|-registe|
|000007d0| 72 20 6e 61 6d 65 2e 0a | 33 20 6d 65 61 6e 73 20 |r name..|3 means |
|000007e0| 79 65 73 2c 20 32 20 6d | 65 61 6e 73 20 79 65 73 |yes, 2 m|eans yes|
|000007f0| 20 62 75 74 20 6f 6e 6c | 79 20 66 6f 72 20 66 69 | but onl|y for fi|
|00000800| 6c 65 20 61 6e 64 20 73 | 65 61 72 63 68 20 6f 70 |le and s|earch op|
|00000810| 65 72 61 74 69 6f 6e 73 | 2e 22 29 0a 28 62 79 74 |erations|.").(byt|
|00000820| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 13 c4 0b |e-code "|...\"...|
|00000830| c5 c6 c7 24 88 c4 0b c8 | c9 c7 24 88 0b ca cb 49 |...$....|..$....I|
|00000840| 88 0b cc cb 49 88 0b cd | cb 49 88 0b ce cb 49 87 |....I...|.I....I.|
|00000850| 22 20 5b 6d 61 6b 65 2d | 76 65 63 74 6f 72 20 32 |" [make-|vector 2|
|00000860| 35 36 20 30 20 74 65 63 | 6f 2d 71 73 70 65 63 2d |56 0 tec|o-qspec-|
|00000870| 76 61 6c 69 64 20 74 65 | 63 6f 2d 73 65 74 2d 65 |valid te|co-set-e|
|00000880| 6c 65 6d 65 6e 74 73 20 | 39 37 20 31 32 32 20 33 |lements |97 122 3|
|00000890| 20 34 38 20 35 37 20 39 | 35 20 32 20 34 32 20 33 | 48 57 9|5 2 42 3|
|000008a0| 37 20 33 35 5d 20 35 29 | 0a 28 64 65 66 76 61 72 |7 35] 5)|.(defvar|
|000008b0| 20 74 65 63 6f 2d 65 78 | 65 63 2d 66 6c 61 67 73 | teco-ex|ec-flags|
|000008c0| 20 30 20 22 5c 0a 46 6c | 61 67 73 20 66 6f 72 20 | 0 "\.Fl|ags for |
|000008d0| 69 74 65 72 61 74 69 6f | 6e 20 69 6e 20 70 72 6f |iteratio|n in pro|
|000008e0| 63 65 73 73 2c 20 65 69 | 20 6d 61 63 72 6f 2c 20 |cess, ei| macro, |
|000008f0| 65 74 63 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |etc.").(|defvar t|
|00000900| 65 63 6f 2d 69 74 65 72 | 61 74 69 6f 6e 2d 73 74 |eco-iter|ation-st|
|00000910| 61 63 6b 20 6e 69 6c 20 | 22 5c 0a 49 74 65 72 61 |ack nil |"\.Itera|
|00000920| 74 69 6f 6e 20 6c 69 73 | 74 2e 22 29 0a 28 64 65 |tion lis|t.").(de|
|00000930| 66 76 61 72 20 74 65 63 | 6f 2d 63 6f 6e 64 2d 73 |fvar tec|o-cond-s|
|00000940| 74 61 63 6b 20 6e 69 6c | 20 22 5c 0a 43 6f 6e 64 |tack nil| "\.Cond|
|00000950| 69 74 69 6f 6e 61 6c 20 | 73 74 61 63 6b 2e 22 29 |itional |stack.")|
|00000960| 0a 28 64 65 66 76 61 72 | 20 74 65 63 6f 2d 71 72 |.(defvar| teco-qr|
|00000970| 65 67 2d 74 65 78 74 20 | 28 6d 61 6b 65 2d 76 65 |eg-text |(make-ve|
|00000980| 63 74 6f 72 20 32 35 36 | 20 22 22 29 20 22 5c 0a |ctor 256| "") "\.|
|00000990| 54 68 65 20 74 65 78 74 | 20 63 6f 6e 74 65 6e 74 |The text| content|
|000009a0| 73 20 6f 66 20 74 68 65 | 20 71 2d 72 65 67 69 73 |s of the| q-regis|
|000009b0| 74 65 72 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ters.").|(defvar |
|000009c0| 74 65 63 6f 2d 71 72 65 | 67 2d 6e 75 6d 62 65 72 |teco-qre|g-number|
|000009d0| 20 28 6d 61 6b 65 2d 76 | 65 63 74 6f 72 20 32 35 | (make-v|ector 25|
|000009e0| 36 20 30 29 20 22 5c 0a | 54 68 65 20 6e 75 6d 62 |6 0) "\.|The numb|
|000009f0| 65 72 20 63 6f 6e 74 65 | 6e 74 73 20 6f 66 20 74 |er conte|nts of t|
|00000a00| 68 65 20 71 2d 72 65 67 | 69 73 74 65 72 73 2e 22 |he q-reg|isters."|
|00000a10| 29 0a 28 64 65 66 76 61 | 72 20 74 65 63 6f 2d 71 |).(defva|r teco-q|
|00000a20| 72 65 67 2d 73 74 61 63 | 6b 20 6e 69 6c 20 22 5c |reg-stac|k nil "\|
|00000a30| 0a 54 68 65 20 73 74 61 | 63 6b 20 6f 66 20 73 61 |.The sta|ck of sa|
|00000a40| 76 65 64 20 71 2d 72 65 | 67 69 73 74 65 72 73 2e |ved q-re|gisters.|
|00000a50| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 74 65 63 |").(defc|onst tec|
|00000a60| 6f 2d 70 72 6f 6d 70 74 | 20 22 2a 22 20 22 5c 0a |o-prompt| "*" "\.|
|00000a70| 2a 50 72 6f 6d 70 74 20 | 74 6f 20 62 65 20 75 73 |*Prompt |to be us|
|00000a80| 65 64 20 77 68 65 6e 20 | 69 6e 70 75 74 74 69 6e |ed when |inputtin|
|00000a90| 67 20 54 65 63 6f 20 63 | 6f 6d 6d 61 6e 64 2e 22 |g Teco c|ommand."|
|00000aa0| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 74 65 63 6f |).(defco|nst teco|
|00000ab0| 2d 65 78 65 63 2d 31 20 | 28 6d 61 6b 65 2d 76 65 |-exec-1 |(make-ve|
|00000ac0| 63 74 6f 72 20 32 35 36 | 20 6e 69 6c 29 20 22 5c |ctor 256| nil) "\|
|00000ad0| 0a 4e 61 6d 65 73 20 6f | 66 20 72 6f 75 74 69 6e |.Names o|f routin|
|00000ae0| 65 73 20 68 61 6e 64 6c | 69 6e 67 20 74 79 70 65 |es handl|ing type|
|00000af0| 20 31 20 63 68 61 72 61 | 63 74 65 72 73 20 28 63 | 1 chara|cters (c|
|00000b00| 68 61 72 61 63 74 65 72 | 73 20 74 68 61 74 20 61 |haracter|s that a|
|00000b10| 72 65 0a 70 61 72 74 20 | 6f 66 20 65 78 70 72 65 |re.part |of expre|
|00000b20| 73 73 69 6f 6e 20 70 72 | 6f 63 65 73 73 69 6e 67 |ssion pr|ocessing|
|00000b30| 29 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 74 |).").(de|fconst t|
|00000b40| 65 63 6f 2d 65 78 65 63 | 2d 32 20 28 6d 61 6b 65 |eco-exec|-2 (make|
|00000b50| 2d 76 65 63 74 6f 72 20 | 32 35 36 20 6e 69 6c 29 |-vector |256 nil)|
|00000b60| 20 22 5c 0a 4e 61 6d 65 | 73 20 6f 66 20 72 6f 75 | "\.Name|s of rou|
|00000b70| 74 69 6e 65 73 20 68 61 | 6e 64 6c 69 6e 67 20 74 |tines ha|ndling t|
|00000b80| 79 70 65 20 32 20 63 68 | 61 72 61 63 74 65 72 73 |ype 2 ch|aracters|
|00000b90| 20 28 63 68 61 72 61 63 | 74 65 72 73 20 74 68 61 | (charac|ters tha|
|00000ba0| 74 20 61 72 65 0a 6e 6f | 74 20 70 61 72 74 20 6f |t are.no|t part o|
|00000bb0| 66 20 65 78 70 72 65 73 | 73 69 6f 6e 20 70 72 6f |f expres|sion pro|
|00000bc0| 63 65 73 73 69 6e 67 29 | 2e 22 29 0a 28 64 65 66 |cessing)|.").(def|
|00000bd0| 76 61 72 20 74 65 63 6f | 2d 6c 61 73 74 2d 73 65 |var teco|-last-se|
|00000be0| 61 72 63 68 2d 73 74 72 | 69 6e 67 20 22 22 20 22 |arch-str|ing "" "|
|00000bf0| 5c 0a 4c 61 73 74 20 73 | 74 72 69 6e 67 20 73 65 |\.Last s|tring se|
|00000c00| 61 72 63 68 65 64 20 66 | 6f 72 2e 22 29 0a 28 64 |arched f|or.").(d|
|00000c10| 65 66 76 61 72 20 74 65 | 63 6f 2d 6c 61 73 74 2d |efvar te|co-last-|
|00000c20| 73 65 61 72 63 68 2d 72 | 65 67 65 78 70 20 22 22 |search-r|egexp ""|
|00000c30| 20 22 5c 0a 52 65 67 65 | 78 70 20 76 65 72 73 69 | "\.Rege|xp versi|
|00000c40| 6f 6e 20 6f 66 20 74 65 | 63 6f 2d 6c 61 73 74 2d |on of te|co-last-|
|00000c50| 73 65 61 72 63 68 2d 73 | 74 72 69 6e 67 2e 22 29 |search-s|tring.")|
|00000c60| 0a 28 66 73 65 74 20 27 | 74 65 63 6f 2d 64 65 66 |.(fset '|teco-def|
|00000c70| 69 6e 65 2d 74 79 70 65 | 2d 31 20 27 28 6d 61 63 |ine-type|-1 '(mac|
|00000c80| 72 6f 20 2e 20 23 5b 28 | 63 68 61 72 20 26 72 65 |ro . #[(|char &re|
|00000c90| 73 74 20 62 6f 64 79 29 | 20 22 c0 c1 c2 0b 21 50 |st body)| "....!P|
|00000ca0| 21 1c c5 c6 c7 0c 43 c8 | 0e 09 24 ca cb 0b cc 0c |!.....C.|..$.....|
|00000cb0| 44 46 45 29 87 22 20 5b | 69 6e 74 65 72 6e 20 22 |DFE)." [|intern "|
|00000cc0| 74 65 63 6f 2d 74 79 70 | 65 2d 31 2d 22 20 63 68 |teco-typ|e-1-" ch|
|00000cd0| 61 72 2d 74 6f 2d 73 74 | 72 69 6e 67 20 63 68 61 |ar-to-st|ring cha|
|00000ce0| 72 20 73 20 70 72 6f 67 | 6e 20 61 70 70 65 6e 64 |r s prog|n append|
|00000cf0| 20 28 64 65 66 75 6e 29 | 20 28 6e 69 6c 29 20 62 | (defun)| (nil) b|
|00000d00| 6f 64 79 20 61 73 65 74 | 20 74 65 63 6f 2d 65 78 |ody aset| teco-ex|
|00000d10| 65 63 2d 31 20 71 75 6f | 74 65 5d 20 37 20 22 5c |ec-1 quo|te] 7 "\|
|00000d20| 0a 44 65 66 69 6e 65 20 | 74 68 65 20 63 6f 64 65 |.Define |the code|
|00000d30| 20 74 6f 20 70 72 6f 63 | 65 73 73 20 61 20 74 79 | to proc|ess a ty|
|00000d40| 70 65 20 31 20 63 68 61 | 72 61 63 74 65 72 2e 0a |pe 1 cha|racter..|
|00000d50| 54 72 61 6e 73 66 6f 72 | 6d 73 0a 09 28 74 65 63 |Transfor|ms..(tec|
|00000d60| 6f 2d 64 65 66 69 6e 65 | 2d 74 79 70 65 2d 31 20 |o-define|-type-1 |
|00000d70| 3f 78 0a 09 20 20 63 6f | 64 65 20 2e 2e 2e 29 0a |?x.. co|de ...).|
|00000d80| 69 6e 74 6f 0a 20 20 20 | 20 20 20 20 20 28 64 65 |into. | (de|
|00000d90| 66 75 6e 20 74 65 63 6f | 2d 74 79 70 65 2d 31 2d |fun teco|-type-1-|
|00000da0| 78 20 28 29 0a 09 20 20 | 63 6f 64 65 20 2e 2e 2e |x ().. |code ...|
|00000db0| 29 0a 61 6e 64 20 64 6f | 65 73 0a 09 28 61 73 65 |).and do|es..(ase|
|00000dc0| 74 20 74 65 63 6f 2d 65 | 78 65 63 2d 31 20 3f 78 |t teco-e|xec-1 ?x|
|00000dd0| 20 27 74 65 63 6f 2d 74 | 79 70 65 2d 31 2d 78 29 | 'teco-t|ype-1-x)|
|00000de0| 22 5d 29 29 0a 28 66 73 | 65 74 20 27 74 65 63 6f |"])).(fs|et 'teco|
|00000df0| 2d 64 65 66 69 6e 65 2d | 74 79 70 65 2d 32 20 27 |-define-|type-2 '|
|00000e00| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 63 68 61 72 |(macro .| #[(char|
|00000e10| 20 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 c1 | &rest b|ody) "..|
|00000e20| c2 0b 21 50 21 1c c5 c6 | c7 0c 43 c8 0e 09 24 ca |..!P!...|..C...$.|
|00000e30| cb 0b cc 0c 44 46 45 29 | 87 22 20 5b 69 6e 74 65 |....DFE)|." [inte|
|00000e40| 72 6e 20 22 74 65 63 6f | 2d 74 79 70 65 2d 32 2d |rn "teco|-type-2-|
|00000e50| 22 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |" char-t|o-string|
|00000e60| 20 63 68 61 72 20 73 20 | 70 72 6f 67 6e 20 61 70 | char s |progn ap|
|00000e70| 70 65 6e 64 20 28 64 65 | 66 75 6e 29 20 28 6e 69 |pend (de|fun) (ni|
|00000e80| 6c 29 20 62 6f 64 79 20 | 61 73 65 74 20 74 65 63 |l) body |aset tec|
|00000e90| 6f 2d 65 78 65 63 2d 32 | 20 71 75 6f 74 65 5d 20 |o-exec-2| quote] |
|00000ea0| 37 20 22 5c 0a 44 65 66 | 69 6e 65 20 74 68 65 20 |7 "\.Def|ine the |
|00000eb0| 63 6f 64 65 20 74 6f 20 | 70 72 6f 63 65 73 73 20 |code to |process |
|00000ec0| 61 20 74 79 70 65 20 32 | 20 63 68 61 72 61 63 74 |a type 2| charact|
|00000ed0| 65 72 2e 0a 54 72 61 6e | 73 66 6f 72 6d 73 0a 09 |er..Tran|sforms..|
|00000ee0| 28 74 65 63 6f 2d 64 65 | 66 69 6e 65 2d 74 79 70 |(teco-de|fine-typ|
|00000ef0| 65 2d 32 20 3f 78 0a 09 | 20 20 63 6f 64 65 20 2e |e-2 ?x..| code .|
|00000f00| 2e 2e 29 0a 69 6e 74 6f | 0a 20 20 20 20 20 20 20 |..).into|. |
|00000f10| 20 28 64 65 66 75 6e 20 | 74 65 63 6f 2d 74 79 70 | (defun |teco-typ|
|00000f20| 65 2d 32 2d 78 20 28 29 | 0a 09 20 20 63 6f 64 65 |e-2-x ()|.. code|
|00000f30| 20 2e 2e 2e 29 0a 61 6e | 64 20 64 6f 65 73 0a 09 | ...).an|d does..|
|00000f40| 28 61 73 65 74 20 74 65 | 63 6f 2d 65 78 65 63 2d |(aset te|co-exec-|
|00000f50| 32 20 3f 78 20 27 74 65 | 63 6f 2d 74 79 70 65 2d |2 ?x 'te|co-type-|
|00000f60| 32 2d 78 29 22 5d 29 29 | 0a 28 64 65 66 63 6f 6e |2-x)"]))|.(defcon|
|00000f70| 73 74 20 74 65 63 6f 2d | 63 68 61 72 2d 74 79 70 |st teco-|char-typ|
|00000f80| 65 73 20 28 6d 61 6b 65 | 2d 76 65 63 74 6f 72 20 |es (make|-vector |
|00000f90| 32 35 36 20 30 29 20 22 | 5c 0a 44 65 66 69 6e 65 |256 0) "|\.Define|
|00000fa0| 20 74 68 65 20 63 68 61 | 72 61 63 74 65 72 69 73 | the cha|racteris|
|00000fb0| 74 69 63 73 20 6f 66 20 | 63 68 61 72 61 63 74 65 |tics of |characte|
|00000fc0| 72 73 2c 20 61 73 20 74 | 65 73 74 65 64 20 62 79 |rs, as t|ested by|
|00000fd0| 20 5c 22 3a 0a 09 31 09 | 61 6c 70 68 61 62 65 74 | \":..1.|alphabet|
|00000fe0| 69 63 0a 09 32 09 61 6c | 70 68 61 62 65 74 69 63 |ic..2.al|phabetic|
|00000ff0| 2c 20 24 2c 20 6f 72 20 | 2e 0a 09 34 09 64 69 67 |, $, or |...4.dig|
|00001000| 69 74 0a 09 38 09 61 6c | 70 68 61 62 65 74 69 63 |it..8.al|phabetic|
|00001010| 20 6f 72 20 64 69 67 69 | 74 0a 09 31 36 09 6c 6f | or digi|t..16.lo|
|00001020| 77 65 72 2d 63 61 73 65 | 20 61 6c 70 68 61 62 65 |wer-case| alphabe|
|00001030| 74 69 63 0a 09 33 32 09 | 75 70 70 65 72 2d 63 61 |tic..32.|upper-ca|
|00001040| 73 65 20 61 6c 70 68 61 | 62 65 74 69 63 22 29 0a |se alpha|betic").|
|00001050| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 c2 c3 |(byte-co|de "....|
|00001060| c4 24 88 c0 09 c5 c6 c7 | 24 88 c0 09 c8 c9 ca 24 |.$......|$......$|
|00001070| 88 09 cb cc 49 88 09 cd | cc 49 88 ce 16 0f c0 87 |....I...|.I......|
|00001080| 22 20 5b 74 65 63 6f 2d | 73 65 74 2d 65 6c 65 6d |" [teco-|set-elem|
|00001090| 65 6e 74 73 20 74 65 63 | 6f 2d 63 68 61 72 2d 74 |ents tec|o-char-t|
|000010a0| 79 70 65 73 20 34 38 20 | 35 37 20 31 32 20 36 35 |ypes 48 |57 12 65|
|000010b0| 20 39 30 20 34 33 20 39 | 37 20 31 32 32 20 32 37 | 90 43 9|7 122 27|
|000010c0| 20 33 36 20 32 20 34 36 | 20 28 28 22 42 4e 49 22 | 36 2 46| (("BNI"|
|000010d0| 20 2e 20 22 3e 20 6e 6f | 74 20 69 6e 20 69 74 65 | . "> no|t in ite|
|000010e0| 72 61 74 69 6f 6e 22 29 | 20 28 22 43 50 51 22 20 |ration")| ("CPQ" |
|000010f0| 2e 20 22 43 61 6e 27 74 | 20 70 6f 70 20 51 20 72 |. "Can't| pop Q r|
|00001100| 65 67 69 73 74 65 72 22 | 29 20 28 22 43 4f 46 22 |egister"|) ("COF"|
|00001110| 20 2e 20 22 43 61 6e 27 | 74 20 6f 70 65 6e 20 6f | . "Can'|t open o|
|00001120| 75 74 70 75 74 20 66 69 | 6c 65 20 22 29 20 28 22 |utput fi|le ") ("|
|00001130| 46 4e 46 22 20 2e 20 22 | 46 69 6c 65 20 6e 6f 74 |FNF" . "|File not|
|00001140| 20 66 6f 75 6e 64 20 22 | 29 20 28 22 49 45 43 22 | found "|) ("IEC"|
|00001150| 20 2e 20 22 49 6e 76 61 | 6c 69 64 20 45 20 63 68 | . "Inva|lid E ch|
|00001160| 61 72 61 63 74 65 72 22 | 29 20 28 22 49 46 43 22 |aracter"|) ("IFC"|
|00001170| 20 2e 20 22 49 6e 76 61 | 6c 69 64 20 46 20 63 68 | . "Inva|lid F ch|
|00001180| 61 72 61 63 74 65 72 22 | 29 20 28 22 49 49 41 22 |aracter"|) ("IIA"|
|00001190| 20 2e 20 22 49 6e 76 61 | 6c 69 64 20 69 6e 73 65 | . "Inva|lid inse|
|000011a0| 72 74 20 61 72 67 22 29 | 20 28 22 49 4c 4c 22 20 |rt arg")| ("ILL" |
|000011b0| 2e 20 22 49 6e 76 61 6c | 69 64 20 63 6f 6d 6d 61 |. "Inval|id comma|
|000011c0| 6e 64 22 29 20 28 22 49 | 4c 4e 22 20 2e 20 22 49 |nd") ("I|LN" . "I|
|000011d0| 6e 76 61 6c 69 64 20 6e | 75 6d 62 65 72 22 29 20 |nvalid n|umber") |
|000011e0| 28 22 49 50 41 22 20 2e | 20 22 49 6e 76 61 6c 69 |("IPA" .| "Invali|
|000011f0| 64 20 50 20 61 72 67 22 | 29 20 28 22 49 51 43 22 |d P arg"|) ("IQC"|
|00001200| 20 2e 20 22 49 6e 76 61 | 6c 69 64 20 5c 22 20 63 | . "Inva|lid \" c|
|00001210| 68 61 72 61 63 74 65 72 | 22 29 20 28 22 49 51 4e |haracter|") ("IQN|
|00001220| 22 20 2e 20 22 49 6e 76 | 61 6c 69 64 20 51 2d 72 |" . "Inv|alid Q-r|
|00001230| 65 67 20 6e 61 6d 65 22 | 29 20 28 22 49 52 41 22 |eg name"|) ("IRA"|
|00001240| 20 2e 20 22 49 6e 76 61 | 6c 69 64 20 72 61 64 69 | . "Inva|lid radi|
|00001250| 78 20 61 72 67 22 29 20 | 28 22 49 53 41 22 20 2e |x arg") |("ISA" .|
|00001260| 20 22 49 6e 76 61 6c 69 | 64 20 73 65 61 72 63 68 | "Invali|d search|
|00001270| 20 61 72 67 22 29 20 28 | 22 49 53 53 22 20 2e 20 | arg") (|"ISS" . |
|00001280| 22 49 6e 76 61 6c 69 64 | 20 73 65 61 72 63 68 20 |"Invalid| search |
|00001290| 73 74 72 69 6e 67 22 29 | 20 28 22 49 55 43 22 20 |string")| ("IUC" |
|000012a0| 2e 20 22 49 6e 76 61 6c | 69 64 20 5e 20 63 68 61 |. "Inval|id ^ cha|
|000012b0| 72 61 63 74 65 72 22 29 | 20 28 22 4c 4e 46 22 20 |racter")| ("LNF" |
|000012c0| 2e 20 22 4c 61 62 65 6c | 20 6e 6f 74 20 66 6f 75 |. "Label| not fou|
|000012d0| 6e 64 22 29 20 28 22 4d | 45 4d 22 20 2e 20 22 49 |nd") ("M|EM" . "I|
|000012e0| 6e 73 75 66 66 69 63 69 | 65 6e 74 20 6d 65 6d 6f |nsuffici|ent memo|
|000012f0| 72 79 20 61 76 61 69 6c | 61 62 6c 65 22 29 20 28 |ry avail|able") (|
|00001300| 22 4d 52 50 22 20 2e 20 | 22 4d 69 73 73 69 6e 67 |"MRP" . |"Missing|
|00001310| 20 29 22 29 20 28 22 4e | 41 42 22 20 2e 20 22 4e | )") ("N|AB" . "N|
|00001320| 6f 20 61 72 67 20 62 65 | 66 6f 72 65 20 5e 5f 22 |o arg be|fore ^_"|
|00001330| 29 20 28 22 4e 41 43 22 | 20 2e 20 22 4e 6f 20 61 |) ("NAC"| . "No a|
|00001340| 72 67 20 62 65 66 6f 72 | 65 20 2c 22 29 20 28 22 |rg befor|e ,") ("|
|00001350| 4e 41 45 22 20 2e 20 22 | 4e 6f 20 61 72 67 20 62 |NAE" . "|No arg b|
|00001360| 65 66 6f 72 65 20 3d 22 | 29 20 28 22 4e 41 50 22 |efore ="|) ("NAP"|
|00001370| 20 2e 20 22 4e 6f 20 61 | 72 67 20 62 65 66 6f 72 | . "No a|rg befor|
|00001380| 65 20 29 22 29 20 28 22 | 4e 41 51 22 20 2e 20 22 |e )") ("|NAQ" . "|
|00001390| 4e 6f 20 61 72 67 20 62 | 65 66 6f 72 65 20 5c 22 |No arg b|efore \"|
|000013a0| 22 29 20 28 22 4e 41 53 | 22 20 2e 20 22 4e 6f 20 |") ("NAS|" . "No |
|000013b0| 61 72 67 20 62 65 66 6f | 72 65 20 3b 22 29 20 28 |arg befo|re ;") (|
|000013c0| 22 4e 41 55 22 20 2e 20 | 22 4e 6f 20 61 72 67 20 |"NAU" . |"No arg |
|000013d0| 62 65 66 6f 72 65 20 55 | 22 29 20 28 22 4e 46 49 |before U|") ("NFI|
|000013e0| 22 20 2e 20 22 4e 6f 20 | 66 69 6c 65 20 66 6f 72 |" . "No |file for|
|000013f0| 20 69 6e 70 75 74 22 29 | 20 28 22 4e 46 4f 22 20 | input")| ("NFO" |
|00001400| 2e 20 22 4e 6f 20 66 69 | 6c 65 20 66 6f 72 20 6f |. "No fi|le for o|
|00001410| 75 74 70 75 74 22 29 20 | 28 22 4e 59 41 22 20 2e |utput") |("NYA" .|
|00001420| 20 22 4e 75 6d 65 72 69 | 63 20 61 72 67 20 77 69 | "Numeri|c arg wi|
|00001430| 74 68 20 59 22 29 20 28 | 22 4f 46 4f 22 20 2e 20 |th Y") (|"OFO" . |
|00001440| 22 4f 75 74 70 75 74 20 | 66 69 6c 65 20 61 6c 72 |"Output |file alr|
|00001450| 65 61 64 79 20 6f 70 65 | 6e 22 29 20 28 22 50 44 |eady ope|n") ("PD|
|00001460| 4f 22 20 2e 20 22 50 75 | 73 68 64 6f 77 6e 20 6c |O" . "Pu|shdown l|
|00001470| 69 73 74 20 6f 76 65 72 | 66 6c 6f 77 22 29 20 28 |ist over|flow") (|
|00001480| 22 50 4f 50 22 20 2e 20 | 22 50 6f 69 6e 74 65 72 |"POP" . |"Pointer|
|00001490| 20 6f 66 66 20 70 61 67 | 65 22 29 20 28 22 53 4e | off pag|e") ("SN|
|000014a0| 49 22 20 2e 20 22 3b 20 | 6e 6f 74 20 69 6e 20 69 |I" . "; |not in i|
|000014b0| 74 65 72 61 74 69 6f 6e | 22 29 20 28 22 53 52 48 |teration|") ("SRH|
|000014c0| 22 20 2e 20 22 53 65 61 | 72 63 68 20 66 61 69 6c |" . "Sea|rch fail|
|000014d0| 75 72 65 20 22 29 20 28 | 22 53 54 4c 22 20 2e 20 |ure ") (|"STL" . |
|000014e0| 22 53 74 72 69 6e 67 20 | 74 6f 6f 20 6c 6f 6e 67 |"String |too long|
|000014f0| 22 29 20 28 22 55 54 43 | 22 20 2e 20 22 55 6e 74 |") ("UTC|" . "Unt|
|00001500| 65 72 6d 69 6e 61 74 65 | 64 20 63 6f 6d 6d 61 6e |erminate|d comman|
|00001510| 64 22 29 20 28 22 55 54 | 4d 22 20 2e 20 22 55 6e |d") ("UT|M" . "Un|
|00001520| 74 65 72 6d 69 6e 61 74 | 65 64 20 6d 61 63 72 6f |terminat|ed macro|
|00001530| 22 29 20 28 22 58 41 42 | 22 20 2e 20 22 45 78 65 |") ("XAB|" . "Exe|
|00001540| 63 75 74 69 6f 6e 20 69 | 6e 74 65 72 72 75 70 74 |cution i|nterrupt|
|00001550| 65 64 22 29 20 28 22 59 | 43 41 22 20 2e 20 22 59 |ed") ("Y|CA" . "Y|
|00001560| 20 63 6f 6d 6d 61 6e 64 | 20 73 75 70 70 72 65 73 | command| suppres|
|00001570| 73 65 64 22 29 20 28 22 | 49 57 41 22 20 2e 20 22 |sed") ("|IWA" . "|
|00001580| 49 6e 76 61 6c 69 64 20 | 57 20 61 72 67 22 29 20 |Invalid |W arg") |
|00001590| 28 22 4e 46 52 22 20 2e | 20 22 4e 75 6d 65 72 69 |("NFR" .| "Numeri|
|000015a0| 63 20 61 72 67 20 77 69 | 74 68 20 46 52 22 29 20 |c arg wi|th FR") |
|000015b0| 28 22 49 4e 54 22 20 2e | 20 22 49 6e 74 65 72 6e |("INT" .| "Intern|
|000015c0| 61 6c 20 65 72 72 6f 72 | 22 29 20 28 22 45 46 49 |al error|") ("EFI|
|000015d0| 22 20 2e 20 22 45 4f 46 | 20 72 65 61 64 20 66 72 |" . "EOF| read fr|
|000015e0| 6f 6d 20 73 74 64 20 69 | 6e 70 75 74 22 29 20 28 |om std i|nput") (|
|000015f0| 22 49 41 41 22 20 2e 20 | 22 49 6e 76 61 6c 69 64 |"IAA" . |"Invalid|
|00001600| 20 41 20 61 72 67 22 29 | 29 20 74 65 63 6f 2d 65 | A arg")|) teco-e|
|00001610| 72 72 6f 72 2d 74 65 78 | 74 73 5d 20 35 29 0a 28 |rror-tex|ts] 5).(|
|00001620| 64 65 66 63 6f 6e 73 74 | 20 74 65 63 6f 2d 73 70 |defconst| teco-sp|
|00001630| 65 63 2d 63 68 61 72 73 | 20 5b 30 20 31 20 30 20 |ec-chars| [0 1 0 |
|00001640| 30 20 30 20 36 34 20 30 | 20 30 20 30 20 32 20 31 |0 0 64 0| 0 0 2 1|
|00001650| 32 38 20 31 32 38 20 31 | 32 38 20 30 20 36 34 20 |28 128 1|28 0 64 |
|00001660| 30 20 30 20 36 34 20 36 | 34 20 36 34 20 30 20 33 |0 0 64 6|4 64 0 3|
|00001670| 34 20 30 20 30 20 36 34 | 20 30 20 30 20 30 20 30 |4 0 0 64| 0 0 0 0|
|00001680| 20 30 20 31 20 30 20 30 | 20 31 20 31 36 20 30 20 | 0 1 0 0| 1 16 0 |
|00001690| 30 20 30 20 30 20 31 36 | 20 30 20 30 20 30 20 30 |0 0 0 16| 0 0 0 0|
|000016a0| 20 30 20 30 20 30 20 30 | 20 30 20 30 20 30 20 30 | 0 0 0 0| 0 0 0 0|
|000016b0| 20 30 20 30 20 30 20 30 | 20 30 20 30 20 30 20 30 | 0 0 0 0| 0 0 0 0|
|000016c0| 20 31 36 20 30 20 31 36 | 20 30 20 31 20 30 20 31 | 16 0 16| 0 1 0 1|
|000016d0| 32 20 30 20 30 20 31 20 | 31 20 33 32 20 30 20 36 |2 0 0 1 |1 32 0 6|
|000016e0| 20 30 20 30 20 30 20 33 | 32 20 31 30 20 32 20 30 | 0 0 0 3|2 10 2 0|
|000016f0| 20 33 32 20 34 20 31 30 | 20 30 20 33 32 20 30 20 | 32 4 10| 0 32 0 |
|00001700| 34 20 33 32 20 30 20 30 | 20 33 32 20 30 20 33 32 |4 32 0 0| 32 0 32|
|00001710| 20 31 20 36 20 30 20 30 | 20 31 32 20 30 20 30 20 | 1 6 0 0| 12 0 0 |
|00001720| 31 20 31 20 33 32 20 30 | 20 36 20 30 20 30 20 30 |1 1 32 0| 6 0 0 0|
|00001730| 20 33 32 20 31 30 20 32 | 20 30 20 33 32 20 34 20 | 32 10 2| 0 32 4 |
|00001740| 31 30 20 30 20 33 32 20 | 30 20 34 20 33 32 20 30 |10 0 32 |0 4 32 0|
|00001750| 20 30 20 30 20 31 36 20 | 30 20 30 20 30 5d 20 22 | 0 0 16 |0 0 0] "|
|00001760| 5c 0a 54 68 65 20 73 70 | 65 63 69 61 6c 20 70 72 |\.The sp|ecial pr|
|00001770| 6f 70 65 72 74 69 65 73 | 20 6f 66 20 63 68 61 72 |operties| of char|
|00001780| 61 63 74 65 72 73 3a 0a | 09 31 09 73 6b 69 70 74 |acters:.|.1.skipt|
|00001790| 6f 28 29 20 73 70 65 63 | 69 61 6c 20 63 68 61 72 |o() spec|ial char|
|000017a0| 61 63 74 65 72 0a 09 32 | 09 63 6f 6d 6d 61 6e 64 |acter..2|.command|
|000017b0| 20 77 69 74 68 20 73 74 | 64 20 74 65 78 74 20 61 | with st|d text a|
|000017c0| 72 67 75 6d 65 6e 74 0a | 09 34 09 45 3c 63 68 61 |rgument.|.4.E<cha|
|000017d0| 72 3e 20 74 61 6b 65 73 | 20 61 20 74 65 78 74 20 |r> takes| a text |
|000017e0| 61 72 67 75 6d 65 6e 74 | 0a 09 38 09 46 3c 63 68 |argument|..8.F<ch|
|000017f0| 61 72 3e 20 74 61 6b 65 | 73 20 61 20 74 65 78 74 |ar> take|s a text|
|00001800| 20 61 72 67 75 6d 65 6e | 74 0a 09 31 36 09 63 68 | argumen|t..16.ch|
|00001810| 61 72 20 63 61 75 73 65 | 73 20 73 6b 69 70 74 6f |ar cause|s skipto|
|00001820| 28 29 20 74 6f 20 65 78 | 69 74 0a 09 33 32 09 63 |() to ex|it..32.c|
|00001830| 6f 6d 6d 61 6e 64 20 77 | 69 74 68 20 71 2d 72 65 |ommand w|ith q-re|
|00001840| 67 69 73 74 65 72 20 61 | 72 67 75 6d 65 6e 74 0a |gister a|rgument.|
|00001850| 09 36 34 09 73 70 65 63 | 69 61 6c 20 63 68 61 72 |.64.spec|ial char|
|00001860| 20 69 6e 20 73 65 61 72 | 63 68 20 73 74 72 69 6e | in sear|ch strin|
|00001870| 67 0a 09 31 32 38 09 63 | 68 61 72 61 63 74 65 72 |g..128.c|haracter|
|00001880| 20 69 73 20 61 20 6c 69 | 6e 65 20 73 65 70 61 72 | is a li|ne separ|
|00001890| 61 74 6f 72 22 29 0a 28 | 66 73 65 74 20 27 74 65 |ator").(|fset 'te|
|000018a0| 63 6f 2d 65 78 65 63 75 | 74 65 2d 63 6f 6d 6d 61 |co-execu|te-comma|
|000018b0| 6e 64 20 23 5b 28 73 74 | 72 69 6e 67 29 20 22 08 |nd #[(st|ring) ".|
|000018c0| c1 c2 89 89 89 89 89 c3 | c2 89 89 c1 c2 89 89 89 |........|........|
|000018d0| 89 1c 1d 1e 06 1e 07 1e | 08 1e 09 1e 5c 6e 1e 0b |........|....\n..|
|000018e0| 1e 0c 1e 0d 1e 0e 1e 0f | 1e 10 1e 11 1e 12 1e 13 |........|........|
|000018f0| 1e 14 1e 15 d6 20 88 d7 | d8 8d 2e 12 87 22 20 5b |..... ..|....." [|
|00001900| 73 74 72 69 6e 67 20 30 | 20 6e 69 6c 20 73 74 61 |string 0| nil sta|
|00001910| 72 74 20 74 65 63 6f 2d | 71 72 65 67 2d 73 74 61 |rt teco-|qreg-sta|
|00001920| 63 6b 20 74 65 63 6f 2d | 6d 61 63 72 6f 2d 73 74 |ck teco-|macro-st|
|00001930| 61 63 6b 20 74 65 63 6f | 2d 65 78 70 2d 73 74 61 |ack teco|-exp-sta|
|00001940| 63 6b 20 74 65 63 6f 2d | 63 6f 6e 64 2d 73 74 61 |ck teco-|cond-sta|
|00001950| 63 6b 20 74 65 63 6f 2d | 69 74 65 72 61 74 69 6f |ck teco-|iteratio|
|00001960| 6e 2d 73 74 61 63 6b 20 | 74 65 63 6f 2d 65 78 65 |n-stack |teco-exe|
|00001970| 63 2d 66 6c 61 67 73 20 | 74 65 63 6f 2d 63 6f 6c |c-flags |teco-col|
|00001980| 6f 6e 2d 66 6c 61 67 20 | 74 65 63 6f 2d 61 74 2d |on-flag |teco-at-|
|00001990| 66 6c 61 67 20 74 65 63 | 6f 2d 74 72 61 63 65 20 |flag tec|o-trace |
|000019a0| 74 65 63 6f 2d 65 78 70 | 2d 6f 70 20 74 65 63 6f |teco-exp|-op teco|
|000019b0| 2d 65 78 70 2d 66 6c 61 | 67 32 20 74 65 63 6f 2d |-exp-fla|g2 teco-|
|000019c0| 65 78 70 2d 66 6c 61 67 | 31 20 74 65 63 6f 2d 65 |exp-flag|1 teco-e|
|000019d0| 78 70 2d 76 61 6c 32 20 | 74 65 63 6f 2d 65 78 70 |xp-val2 |teco-exp|
|000019e0| 2d 76 61 6c 31 20 74 65 | 63 6f 2d 65 78 70 2d 65 |-val1 te|co-exp-e|
|000019f0| 78 70 20 74 65 63 6f 2d | 64 69 67 69 74 2d 73 77 |xp teco-|digit-sw|
|00001a00| 69 74 63 68 20 74 65 63 | 6f 2d 63 6f 6d 6d 61 6e |itch tec|o-comman|
|00001a10| 64 2d 70 6f 69 6e 74 65 | 72 20 74 65 63 6f 2d 63 |d-pointe|r teco-c|
|00001a20| 6f 6d 6d 61 6e 64 2d 73 | 74 72 69 6e 67 20 74 65 |ommand-s|tring te|
|00001a30| 63 6f 2d 6f 75 74 2d 69 | 6e 69 74 20 74 65 63 6f |co-out-i|nit teco|
|00001a40| 2d 65 78 69 74 20 28 62 | 79 74 65 2d 63 6f 64 65 |-exit (b|yte-code|
|00001a50| 20 22 c0 09 21 89 1a c3 | 3d ab 87 c4 c5 09 21 c6 | "..!...|=.....!.|
|00001a60| 5c 22 12 c7 5c 6e 58 ab | ae 5c 6e c8 58 ab a9 5c |\"..\nX.|.\n.X..\|
|00001a70| 6e c7 5a 89 12 0e 09 59 | ab 84 ca cb 21 88 0e 0c |n.Z....Y|....!...|
|00001a80| ab 8b 0e 0d 0e 09 5f 5c | 6e 5c 5c 16 0d aa 86 5c |......_\|n\\....\|
|00001a90| 6e 16 0d ce 16 0c ce 16 | 0f 82 ef 00 d0 16 0c 0e |n.......|........|
|00001aa0| 11 5c 6e 48 12 0e 12 5c | 6e 48 89 1e 13 ab 87 0e |.\nH...\|nH......|
|00001ab0| 13 20 88 82 ee 00 0e 0f | ab fb 0e 14 d5 3d ac f5 |. ......|.....=..|
|00001ac0| 0e 14 d6 3d ab 8c 0e 17 | 0e 0d 5c 5c 16 0d d5 16 |...=....|..\\....|
|00001ad0| 14 aa e3 0e 14 d8 3d ab | 8c 0e 17 0e 0d 5a 16 0d |......=.|.....Z..|
|00001ae0| d5 16 14 aa d1 0e 14 d9 | 3d ab 8c 0e 17 0e 0d 5f |........|=......_|
|00001af0| 16 0d d5 16 14 aa bf 0e | 14 da 3d ab 95 0e 0d db |........|..=.....|
|00001b00| 55 ac 87 0e 17 0e 0d a5 | aa 81 db 16 0d d5 16 14 |U.......|........|
|00001b10| aa a4 0e 14 dc 3d ab 8d | c4 0e 17 0e 0d 5c 22 16 |.....=..|.....\".|
|00001b20| 0d d5 16 14 aa 91 0e 14 | dd 3d ab 8b de 0e 17 0e |........|.=......|
|00001b30| 0d 5c 22 16 0d d5 16 14 | 0e 1f 5c 6e 48 89 1e 13 |.\".....|..\nH...|
|00001b40| ab 86 0e 13 20 88 aa 84 | ca e0 21 88 29 29 29 82 |.... ...|..!.))).|
|00001b50| 00 00 22 20 5b 74 65 63 | 6f 2d 67 65 74 2d 63 6f |.." [tec|o-get-co|
|00001b60| 6d 6d 61 6e 64 30 20 74 | 65 63 6f 2d 74 72 61 63 |mmand0 t|eco-trac|
|00001b70| 65 20 63 6d 64 63 20 39 | 34 20 6c 6f 67 61 6e 64 |e cmdc 9|4 logand|
|00001b80| 20 74 65 63 6f 2d 67 65 | 74 2d 63 6f 6d 6d 61 6e | teco-ge|t-comman|
|00001b90| 64 20 33 31 20 34 38 20 | 35 37 20 74 65 63 6f 2d |d 31 48 |57 teco-|
|00001ba0| 63 74 72 6c 2d 72 20 74 | 65 63 6f 2d 65 72 72 6f |ctrl-r t|eco-erro|
|00001bb0| 72 20 22 49 4c 4e 22 20 | 74 65 63 6f 2d 64 69 67 |r "ILN" |teco-dig|
|00001bc0| 69 74 2d 73 77 69 74 63 | 68 20 74 65 63 6f 2d 65 |it-switc|h teco-e|
|00001bd0| 78 70 2d 76 61 6c 31 20 | 74 20 74 65 63 6f 2d 65 |xp-val1 |t teco-e|
|00001be0| 78 70 2d 66 6c 61 67 31 | 20 6e 69 6c 20 74 65 63 |xp-flag1| nil tec|
|00001bf0| 6f 2d 6d 61 70 63 68 2d | 6c 20 74 65 63 6f 2d 65 |o-mapch-|l teco-e|
|00001c00| 78 65 63 2d 31 20 72 20 | 74 65 63 6f 2d 65 78 70 |xec-1 r |teco-exp|
|00001c10| 2d 6f 70 20 73 74 61 72 | 74 20 61 64 64 20 74 65 |-op star|t add te|
|00001c20| 63 6f 2d 65 78 70 2d 65 | 78 70 20 73 75 62 20 6d |co-exp-e|xp sub m|
|00001c30| 75 6c 74 20 64 69 76 20 | 30 20 61 6e 64 20 6f 72 |ult div |0 and or|
|00001c40| 20 6c 6f 67 69 6f 72 20 | 74 65 63 6f 2d 65 78 65 | logior |teco-exe|
|00001c50| 63 2d 32 20 22 49 4c 4c | 22 5d 20 34 29 5d 20 31 |c-2 "ILL|"] 4)] 1|
|00001c60| 38 20 22 5c 0a 45 78 65 | 63 75 74 65 20 74 65 63 |8 "\.Exe|cute tec|
|00001c70| 6f 20 63 6f 6d 6d 61 6e | 64 20 73 74 72 69 6e 67 |o comman|d string|
|00001c80| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00001c90| 22 c0 c1 4d 88 5c 6e c3 | c0 49 88 c4 c5 4d 88 5c |"..M.\n.|.I...M.\|
|00001ca0| 6e c6 c4 49 88 c7 c8 4d | 88 5c 6e c9 c7 49 88 ca |n..I...M|.\n..I..|
|00001cb0| cb 4d 88 5c 6e cc ca 49 | 88 cd ce 4d 88 5c 6e cf |.M.\n..I|...M.\n.|
|00001cc0| cd 49 88 d0 d1 4d 88 5c | 6e d2 d0 49 88 d3 d4 4d |.I...M.\|n..I...M|
|00001cd0| 88 5c 6e d5 d3 49 88 d6 | d7 4d 88 5c 6e d8 d6 49 |.\n..I..|.M.\n..I|
|00001ce0| 88 d9 da 4d 88 5c 6e db | d9 49 88 dc dd 4d 88 5c |...M.\n.|.I...M.\|
|00001cf0| 6e de dc 49 88 df e0 4d | 88 5c 6e e1 df 49 88 e2 |n..I...M|.\n..I..|
|00001d00| e3 4d 88 5c 6e e4 e2 49 | 88 e5 e6 4d 88 5c 6e e7 |.M.\n..I|...M.\n.|
|00001d10| e5 49 88 e8 e9 4d 88 5c | 6e ea e8 49 88 eb ec 4d |.I...M.\|n..I...M|
|00001d20| 88 5c 6e ed eb 49 88 ee | ef 4d 88 5c 6e f0 ee 49 |.\n..I..|.M.\n..I|
|00001d30| 88 f1 f2 4d 88 5c 6e f3 | f1 49 88 f4 f5 4d 88 5c |...M.\n.|.I...M.\|
|00001d40| 6e f6 f4 49 88 f7 f8 4d | 88 5c 6e f9 f7 49 88 fa |n..I...M|.\n..I..|
|00001d50| fb 4d 88 0e 3c fd fa 49 | 88 fe ff 4d 88 0e 3c 81 |.M..<..I|...M..<.|
|00001d60| 40 00 fe 49 88 81 41 00 | 81 42 00 4d 88 0e 3c 81 |@..I..A.|.B.M..<.|
|00001d70| 43 00 81 41 00 49 88 81 | 44 00 81 45 00 4d 88 0e |C..A.I..|D..E.M..|
|00001d80| 3c 81 46 00 81 44 00 49 | 88 81 47 00 81 48 00 4d |<.F..D.I|..G..H.M|
|00001d90| 88 0e 3c 81 49 00 81 47 | 00 49 88 81 4a 00 81 4b |..<.I..G|.I..J..K|
|00001da0| 00 4d 88 0e 3c 81 4c 00 | 81 4a 00 49 88 81 4d 00 |.M..<.L.|.J.I..M.|
|00001db0| 81 4e 00 4d 88 0e 3c 81 | 4f 00 81 4d 00 49 88 81 |.N.M..<.|O..M.I..|
|00001dc0| 50 00 81 51 00 4d 88 0e | 3c 81 52 00 81 50 00 49 |P..Q.M..|<.R..P.I|
|00001dd0| 88 81 53 00 81 54 00 4d | 88 0e 3c 81 55 00 81 53 |..S..T.M|..<.U..S|
|00001de0| 00 49 88 81 56 00 81 57 | 00 4d 88 0e 3c 81 58 00 |.I..V..W|.M..<.X.|
|00001df0| 81 56 00 49 88 81 59 00 | 81 5a 00 4d 88 0e 3c 81 |.V.I..Y.|.Z.M..<.|
|00001e00| 5b 00 81 59 00 49 88 81 | 5c 5c 00 81 5d 00 4d 88 |[..Y.I..|\\..].M.|
|00001e10| 0e 3c 81 5e 00 81 5c 5c | 00 49 88 81 5f 00 81 60 |.<.^..\\|.I.._..`|
|00001e20| 00 4d 88 0e 3c 81 61 00 | 81 5f 00 49 88 81 62 00 |.M..<.a.|._.I..b.|
|00001e30| 81 63 00 4d 88 0e 3c 81 | 64 00 81 62 00 49 88 81 |.c.M..<.|d..b.I..|
|00001e40| 65 00 81 66 00 4d 88 0e | 3c c3 81 65 00 49 87 22 |e..f.M..|<..e.I."|
|00001e50| 20 5b 74 65 63 6f 2d 74 | 79 70 65 2d 31 2d 6d 20 | [teco-t|ype-1-m |
|00001e60| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 29 20 74 65 63 |(lambda |nil) tec|
|00001e70| 6f 2d 65 78 65 63 2d 31 | 20 31 30 39 20 74 65 63 |o-exec-1| 109 tec|
|00001e80| 6f 2d 74 79 70 65 2d 31 | 2d 5c 0a 20 28 6c 61 6d |o-type-1|-\. (lam|
|00001e90| 62 64 61 20 6e 69 6c 29 | 20 31 30 20 74 65 63 6f |bda nil)| 10 teco|
|00001ea0| 2d 74 79 70 65 2d 31 2d | 5c 0b 20 28 6c 61 6d 62 |-type-1-|\. (lamb|
|00001eb0| 64 61 20 6e 69 6c 29 20 | 31 31 20 74 65 63 6f 2d |da nil) |11 teco-|
|00001ec0| 74 79 70 65 2d 31 2d 5c | 0c 20 28 6c 61 6d 62 64 |type-1-\|. (lambd|
|00001ed0| 61 20 6e 69 6c 29 20 31 | 32 20 74 65 63 6f 2d 74 |a nil) 1|2 teco-t|
|00001ee0| 79 70 65 2d 31 2d 5c 20 | 20 28 6c 61 6d 62 64 61 |ype-1-\ | (lambda|
|00001ef0| 20 6e 69 6c 29 20 33 32 | 20 74 65 63 6f 2d 74 79 | nil) 32| teco-ty|
|00001f00| 70 65 2d 31 2d 5c 1b 20 | 23 5b 6e 69 6c 20 22 c0 |pe-1-\. |#[nil ".|
|00001f10| c1 21 ab 83 c2 20 87 c3 | 14 c5 89 16 06 87 22 20 |.!... ..|......" |
|00001f20| 5b 74 65 63 6f 2d 70 65 | 65 6b 2d 63 6f 6d 6d 61 |[teco-pe|ek-comma|
|00001f30| 6e 64 20 32 37 20 74 65 | 63 6f 2d 70 6f 70 2d 6d |nd 27 te|co-pop-m|
|00001f40| 61 63 72 6f 2d 73 74 61 | 63 6b 20 6e 69 6c 20 74 |acro-sta|ck nil t|
|00001f50| 65 63 6f 2d 65 78 70 2d | 66 6c 61 67 31 20 73 74 |eco-exp-|flag1 st|
|00001f60| 61 72 74 20 74 65 63 6f | 2d 65 78 70 2d 6f 70 5d |art teco|-exp-op]|
|00001f70| 20 32 5d 20 32 37 20 74 | 65 63 6f 2d 74 79 70 65 | 2] 27 t|eco-type|
|00001f80| 2d 31 2d 21 20 23 5b 6e | 69 6c 20 22 c0 09 21 c2 |-1-! #[n|il "..!.|
|00001f90| 55 3f ad 82 aa 76 87 22 | 20 5b 74 65 63 6f 2d 67 |U?...v."| [teco-g|
|00001fa0| 65 74 2d 63 6f 6d 6d 61 | 6e 64 20 74 65 63 6f 2d |et-comma|nd teco-|
|00001fb0| 74 72 61 63 65 20 33 33 | 5d 20 32 5d 20 33 33 20 |trace 33|] 2] 33 |
|00001fc0| 74 65 63 6f 2d 74 79 70 | 65 2d 31 2d 40 20 23 5b |teco-typ|e-1-@ #[|
|00001fd0| 6e 69 6c 20 22 c0 89 11 | 87 22 20 5b 74 20 74 65 |nil "...|." [t te|
|00001fe0| 63 6f 2d 61 74 2d 66 6c | 61 67 5d 20 32 5d 20 36 |co-at-fl|ag] 2] 6|
|00001ff0| 34 20 74 65 63 6f 2d 74 | 79 70 65 2d 31 2d 3a 20 |4 teco-t|ype-1-: |
|00002000| 23 5b 6e 69 6c 20 22 c0 | c1 21 ab 88 c2 0b 21 88 |#[nil ".|.!....!.|
|00002010| c4 89 15 87 c6 89 15 87 | 22 20 5b 74 65 63 6f 2d |........|" [teco-|
|00002020| 70 65 65 6b 2d 63 6f 6d | 6d 61 6e 64 20 35 38 20 |peek-com|mand 58 |
|00002030| 74 65 63 6f 2d 67 65 74 | 2d 63 6f 6d 6d 61 6e 64 |teco-get|-command|
|00002040| 20 74 65 63 6f 2d 74 72 | 61 63 65 20 32 20 74 65 | teco-tr|ace 2 te|
|00002050| 63 6f 2d 63 6f 6c 6f 6e | 2d 66 6c 61 67 20 31 5d |co-colon|-flag 1]|
|00002060| 20 32 5d 20 35 38 20 74 | 65 63 6f 2d 74 79 70 65 | 2] 58 t|eco-type|
|00002070| 2d 31 2d 5c 3f 20 23 5b | 6e 69 6c 20 22 08 3f 89 |-1-\? #[|nil ".?.|
|00002080| 10 87 22 20 5b 74 65 63 | 6f 2d 74 72 61 63 65 5d |.." [tec|o-trace]|
|00002090| 20 32 5d 20 36 33 20 74 | 65 63 6f 2d 74 79 70 65 | 2] 63 t|eco-type|
|000020a0| 2d 31 2d 5c 2e 20 23 5b | 6e 69 6c 20 22 60 10 c1 |-1-\. #[|nil "`..|
|000020b0| 89 12 87 22 20 5b 74 65 | 63 6f 2d 65 78 70 2d 76 |..." [te|co-exp-v|
|000020c0| 61 6c 31 20 74 20 74 65 | 63 6f 2d 65 78 70 2d 66 |al1 t te|co-exp-f|
|000020d0| 6c 61 67 31 5d 20 32 5d | 20 34 36 20 74 65 63 6f |lag1] 2]| 46 teco|
|000020e0| 2d 74 79 70 65 2d 31 2d | 7a 20 23 5b 6e 69 6c 20 |-type-1-|z #[nil |
|000020f0| 22 64 10 c1 89 12 87 22 | 20 5b 74 65 63 6f 2d 65 |"d....."| [teco-e|
|00002100| 78 70 2d 76 61 6c 31 20 | 74 20 74 65 63 6f 2d 65 |xp-val1 |t teco-e|
|00002110| 78 70 2d 66 6c 61 67 31 | 5d 20 32 5d 20 31 32 32 |xp-flag1|] 2] 122|
|00002120| 20 74 65 63 6f 2d 74 79 | 70 65 2d 31 2d 62 20 23 | teco-ty|pe-1-b #|
|00002130| 5b 6e 69 6c 20 22 65 10 | c1 89 12 87 22 20 5b 74 |[nil "e.|...." [t|
|00002140| 65 63 6f 2d 65 78 70 2d | 76 61 6c 31 20 74 20 74 |eco-exp-|val1 t t|
|00002150| 65 63 6f 2d 65 78 70 2d | 66 6c 61 67 31 5d 20 32 |eco-exp-|flag1] 2|
|00002160| 5d 20 39 38 20 74 65 63 | 6f 2d 74 79 70 65 2d 31 |] 98 tec|o-type-1|
|00002170| 2d 68 20 23 5b 6e 69 6c | 20 22 64 10 65 11 c2 13 |-h #[nil| "d.e...|
|00002180| c2 14 c5 89 16 06 87 22 | 20 5b 74 65 63 6f 2d 65 |......."| [teco-e|
|00002190| 78 70 2d 76 61 6c 31 20 | 74 65 63 6f 2d 65 78 70 |xp-val1 |teco-exp|
|000021a0| 2d 76 61 6c 32 20 74 20 | 74 65 63 6f 2d 65 78 70 |-val2 t |teco-exp|
|000021b0| 2d 66 6c 61 67 31 20 74 | 65 63 6f 2d 65 78 70 2d |-flag1 t|eco-exp-|
|000021c0| 66 6c 61 67 32 20 73 74 | 61 72 74 20 74 65 63 6f |flag2 st|art teco|
|000021d0| 2d 65 78 70 2d 6f 70 5d | 20 32 5d 20 31 30 34 20 |-exp-op]| 2] 104 |
|000021e0| 74 65 63 6f 2d 74 79 70 | 65 2d 31 2d 5c 13 20 23 |teco-typ|e-1-\. #|
|000021f0| 5b 6e 69 6c 20 22 08 11 | c2 89 13 87 22 20 5b 74 |[nil "..|...." [t|
|00002200| 65 63 6f 2d 63 74 72 6c | 2d 73 20 74 65 63 6f 2d |eco-ctrl|-s teco-|
|00002210| 65 78 70 2d 76 61 6c 31 | 20 74 20 74 65 63 6f 2d |exp-val1| t teco-|
|00002220| 65 78 70 2d 66 6c 61 67 | 31 5d 20 32 5d 20 31 39 |exp-flag|1] 2] 19|
|00002230| 20 74 65 63 6f 2d 74 79 | 70 65 2d 31 2d 5c 19 20 | teco-ty|pe-1-\. |
|00002240| 23 5b 6e 69 6c 20 22 60 | 08 5c 5c 11 60 12 c3 14 |#[nil "`|.\\.`...|
|00002250| c3 15 c6 89 16 07 87 22 | 20 5b 74 65 63 6f 2d 63 |......."| [teco-c|
|00002260| 74 72 6c 2d 73 20 74 65 | 63 6f 2d 65 78 70 2d 76 |trl-s te|co-exp-v|
|00002270| 61 6c 31 20 74 65 63 6f | 2d 65 78 70 2d 76 61 6c |al1 teco|-exp-val|
|00002280| 32 20 74 20 74 65 63 6f | 2d 65 78 70 2d 66 6c 61 |2 t teco|-exp-fla|
|00002290| 67 31 20 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |g1 teco-|exp-flag|
|000022a0| 32 20 73 74 61 72 74 20 | 74 65 63 6f 2d 65 78 70 |2 start |teco-exp|
|000022b0| 2d 6f 70 5d 20 32 5d 20 | 32 35 20 74 65 63 6f 2d |-op] 2] |25 teco-|
|000022c0| 74 79 70 65 2d 31 2d 5c | 28 20 23 5b 6e 69 6c 20 |type-1-\|( #[nil |
|000022d0| 22 c0 20 88 c1 12 c1 13 | c4 89 15 87 22 20 5b 74 |". .....|...." [t|
|000022e0| 65 63 6f 2d 70 75 73 68 | 2d 65 78 70 2d 73 74 61 |eco-push|-exp-sta|
|000022f0| 63 6b 20 6e 69 6c 20 74 | 65 63 6f 2d 65 78 70 2d |ck nil t|eco-exp-|
|00002300| 66 6c 61 67 31 20 74 65 | 63 6f 2d 65 78 70 2d 66 |flag1 te|co-exp-f|
|00002310| 6c 61 67 32 20 73 74 61 | 72 74 20 74 65 63 6f 2d |lag2 sta|rt teco-|
|00002320| 65 78 70 2d 6f 70 5d 20 | 32 5d 20 34 30 20 74 65 |exp-op] |2] 40 te|
|00002330| 63 6f 2d 74 79 70 65 2d | 31 2d 5c 10 20 23 5b 6e |co-type-|1-\. #[n|
|00002340| 69 6c 20 22 c0 20 87 22 | 20 5b 74 65 63 6f 2d 64 |il ". ."| [teco-d|
|00002350| 6f 2d 63 74 72 6c 2d 70 | 5d 20 31 5d 20 31 36 20 |o-ctrl-p|] 1] 16 |
|00002360| 74 65 63 6f 2d 74 79 70 | 65 2d 31 2d 5c 1e 20 23 |teco-typ|e-1-\. #|
|00002370| 5b 6e 69 6c 20 22 c0 09 | 21 12 c3 89 14 87 22 20 |[nil "..|!....." |
|00002380| 5b 74 65 63 6f 2d 67 65 | 74 2d 63 6f 6d 6d 61 6e |[teco-ge|t-comman|
|00002390| 64 20 74 65 63 6f 2d 74 | 72 61 63 65 20 74 65 63 |d teco-t|race tec|
|000023a0| 6f 2d 65 78 70 2d 76 61 | 6c 31 20 74 20 74 65 63 |o-exp-va|l1 t tec|
|000023b0| 6f 2d 65 78 70 2d 66 6c | 61 67 31 5d 20 32 5d 20 |o-exp-fl|ag1] 2] |
|000023c0| 33 30 20 74 65 63 6f 2d | 74 79 70 65 2d 32 2d 2b |30 teco-|type-2-+|
|000023d0| 20 23 5b 6e 69 6c 20 22 | 08 ab 83 09 aa 81 c2 13 | #[nil "|........|
|000023e0| c4 10 c5 89 16 06 87 22 | 20 5b 74 65 63 6f 2d 65 |......."| [teco-e|
|000023f0| 78 70 2d 66 6c 61 67 31 | 20 74 65 63 6f 2d 65 78 |xp-flag1| teco-ex|
|00002400| 70 2d 76 61 6c 31 20 30 | 20 74 65 63 6f 2d 65 78 |p-val1 0| teco-ex|
|00002410| 70 2d 65 78 70 20 6e 69 | 6c 20 61 64 64 20 74 65 |p-exp ni|l add te|
|00002420| 63 6f 2d 65 78 70 2d 6f | 70 5d 20 32 5d 20 74 65 |co-exp-o|p] 2] te|
|00002430| 63 6f 2d 65 78 65 63 2d | 32 20 34 33 20 74 65 63 |co-exec-|2 43 tec|
|00002440| 6f 2d 74 79 70 65 2d 32 | 2d 2d 20 23 5b 6e 69 6c |o-type-2|-- #[nil|
|00002450| 20 22 08 ab 83 09 aa 81 | c2 13 c4 10 c5 89 16 06 | "......|........|
|00002460| 87 22 20 5b 74 65 63 6f | 2d 65 78 70 2d 66 6c 61 |." [teco|-exp-fla|
|00002470| 67 31 20 74 65 63 6f 2d | 65 78 70 2d 76 61 6c 31 |g1 teco-|exp-val1|
|00002480| 20 30 20 74 65 63 6f 2d | 65 78 70 2d 65 78 70 20 | 0 teco-|exp-exp |
|00002490| 6e 69 6c 20 73 75 62 20 | 74 65 63 6f 2d 65 78 70 |nil sub |teco-exp|
|000024a0| 2d 6f 70 5d 20 32 5d 20 | 34 35 20 74 65 63 6f 2d |-op] 2] |45 teco-|
|000024b0| 74 79 70 65 2d 32 2d 2a | 20 23 5b 6e 69 6c 20 22 |type-2-*| #[nil "|
|000024c0| 08 ab 83 09 aa 81 c2 13 | c4 10 c5 89 16 06 87 22 |........|......."|
|000024d0| 20 5b 74 65 63 6f 2d 65 | 78 70 2d 66 6c 61 67 31 | [teco-e|xp-flag1|
|000024e0| 20 74 65 63 6f 2d 65 78 | 70 2d 76 61 6c 31 20 30 | teco-ex|p-val1 0|
|000024f0| 20 74 65 63 6f 2d 65 78 | 70 2d 65 78 70 20 6e 69 | teco-ex|p-exp ni|
|00002500| 6c 20 6d 75 6c 74 20 74 | 65 63 6f 2d 65 78 70 2d |l mult t|eco-exp-|
|00002510| 6f 70 5d 20 32 5d 20 34 | 32 20 74 65 63 6f 2d 74 |op] 2] 4|2 teco-t|
|00002520| 79 70 65 2d 32 2d 2f 20 | 23 5b 6e 69 6c 20 22 08 |ype-2-/ |#[nil ".|
|00002530| ab 83 09 aa 81 c2 13 c4 | 10 c5 89 16 06 87 22 20 |........|......" |
|00002540| 5b 74 65 63 6f 2d 65 78 | 70 2d 66 6c 61 67 31 20 |[teco-ex|p-flag1 |
|00002550| 74 65 63 6f 2d 65 78 70 | 2d 76 61 6c 31 20 30 20 |teco-exp|-val1 0 |
|00002560| 74 65 63 6f 2d 65 78 70 | 2d 65 78 70 20 6e 69 6c |teco-exp|-exp nil|
|00002570| 20 64 69 76 20 74 65 63 | 6f 2d 65 78 70 2d 6f 70 | div tec|o-exp-op|
|00002580| 5d 20 32 5d 20 34 37 20 | 74 65 63 6f 2d 74 79 70 |] 2] 47 |teco-typ|
|00002590| 65 2d 32 2d 26 20 23 5b | 6e 69 6c 20 22 08 ab 83 |e-2-& #[|nil "...|
|000025a0| 09 aa 81 c2 13 c4 10 c5 | 89 16 06 87 22 20 5b 74 |........|...." [t|
|000025b0| 65 63 6f 2d 65 78 70 2d | 66 6c 61 67 31 20 74 65 |eco-exp-|flag1 te|
|000025c0| 63 6f 2d 65 78 70 2d 76 | 61 6c 31 20 30 20 74 65 |co-exp-v|al1 0 te|
|000025d0| 63 6f 2d 65 78 70 2d 65 | 78 70 20 6e 69 6c 20 61 |co-exp-e|xp nil a|
|000025e0| 6e 64 20 74 65 63 6f 2d | 65 78 70 2d 6f 70 5d 20 |nd teco-|exp-op] |
|000025f0| 32 5d 20 33 38 20 74 65 | 63 6f 2d 74 79 70 65 2d |2] 38 te|co-type-|
|00002600| 32 2d 5c 23 20 23 5b 6e | 69 6c 20 22 08 ab 83 09 |2-\# #[n|il "....|
|00002610| aa 81 c2 13 c4 10 c5 89 | 16 06 87 22 20 5b 74 65 |........|..." [te|
|00002620| 63 6f 2d 65 78 70 2d 66 | 6c 61 67 31 20 74 65 63 |co-exp-f|lag1 tec|
|00002630| 6f 2d 65 78 70 2d 76 61 | 6c 31 20 30 20 74 65 63 |o-exp-va|l1 0 tec|
|00002640| 6f 2d 65 78 70 2d 65 78 | 70 20 6e 69 6c 20 6f 72 |o-exp-ex|p nil or|
|00002650| 20 74 65 63 6f 2d 65 78 | 70 2d 6f 70 5d 20 32 5d | teco-ex|p-op] 2]|
|00002660| 20 33 35 20 74 65 63 6f | 2d 74 79 70 65 2d 32 2d | 35 teco|-type-2-|
|00002670| 5c 29 20 23 5b 6e 69 6c | 20 22 08 ab 83 09 ac 84 |\) #[nil| "......|
|00002680| c2 c3 21 88 0c 1d c6 20 | 88 0d 14 c7 89 10 29 87 |..!.... |......).|
|00002690| 22 20 5b 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |" [teco-|exp-flag|
|000026a0| 31 20 74 65 63 6f 2d 65 | 78 70 2d 73 74 61 63 6b |1 teco-e|xp-stack|
|000026b0| 20 74 65 63 6f 2d 65 72 | 72 6f 72 20 22 4e 41 50 | teco-er|ror "NAP|
|000026c0| 22 20 74 65 63 6f 2d 65 | 78 70 2d 76 61 6c 31 20 |" teco-e|xp-val1 |
|000026d0| 76 20 74 65 63 6f 2d 70 | 6f 70 2d 65 78 70 2d 73 |v teco-p|op-exp-s|
|000026e0| 74 61 63 6b 20 74 5d 20 | 32 5d 20 34 31 20 74 65 |tack t] |2] 41 te|
|000026f0| 63 6f 2d 74 79 70 65 2d | 32 2d 5c 2c 20 23 5b 6e |co-type-|2-\, #[n|
|00002700| 69 6c 20 22 08 ac 84 c1 | c2 21 88 0b 14 c5 16 06 |il "....|.!......|
|00002710| c7 89 10 87 22 20 5b 74 | 65 63 6f 2d 65 78 70 2d |...." [t|eco-exp-|
|00002720| 66 6c 61 67 31 20 74 65 | 63 6f 2d 65 72 72 6f 72 |flag1 te|co-error|
|00002730| 20 22 4e 41 43 22 20 74 | 65 63 6f 2d 65 78 70 2d | "NAC" t|eco-exp-|
|00002740| 76 61 6c 31 20 74 65 63 | 6f 2d 65 78 70 2d 76 61 |val1 tec|o-exp-va|
|00002750| 6c 32 20 74 20 74 65 63 | 6f 2d 65 78 70 2d 66 6c |l2 t tec|o-exp-fl|
|00002760| 61 67 32 20 6e 69 6c 5d | 20 32 5d 20 34 34 20 74 |ag2 nil]| 2] 44 t|
|00002770| 65 63 6f 2d 74 79 70 65 | 2d 32 2d 5c 1f 20 23 5b |eco-type|-2-\. #[|
|00002780| 6e 69 6c 20 22 08 ac 84 | c1 c2 21 87 c3 0c 21 89 |nil "...|..!...!.|
|00002790| 14 87 22 20 5b 74 65 63 | 6f 2d 65 78 70 2d 66 6c |.." [tec|o-exp-fl|
|000027a0| 61 67 31 20 74 65 63 6f | 2d 65 72 72 6f 72 20 22 |ag1 teco|-error "|
|000027b0| 4e 41 42 22 20 6c 6f 67 | 6e 6f 74 20 74 65 63 6f |NAB" log|not teco|
|000027c0| 2d 65 78 70 2d 76 61 6c | 31 5d 20 32 5d 20 33 31 |-exp-val|1] 2] 31|
|000027d0| 20 74 65 63 6f 2d 74 79 | 70 65 2d 32 2d 5c 04 20 | teco-ty|pe-2-\. |
|000027e0| 23 5b 6e 69 6c 20 22 c0 | 11 c2 13 c4 89 15 87 22 |#[nil ".|......."|
|000027f0| 20 5b 31 30 20 74 65 63 | 6f 2d 63 74 72 6c 2d 72 | [10 tec|o-ctrl-r|
|00002800| 20 6e 69 6c 20 74 65 63 | 6f 2d 65 78 70 2d 66 6c | nil tec|o-exp-fl|
|00002810| 61 67 31 20 73 74 61 72 | 74 20 74 65 63 6f 2d 65 |ag1 star|t teco-e|
|00002820| 78 70 2d 6f 70 5d 20 32 | 5d 20 34 20 74 65 63 6f |xp-op] 2|] 4 teco|
|00002830| 2d 74 79 70 65 2d 32 2d | 5c 0f 20 23 5b 6e 69 6c |-type-2-|\. #[nil|
|00002840| 20 22 c0 11 c2 13 c4 89 | 15 87 22 20 5b 38 20 74 | "......|.." [8 t|
|00002850| 65 63 6f 2d 63 74 72 6c | 2d 72 20 6e 69 6c 20 74 |eco-ctrl|-r nil t|
|00002860| 65 63 6f 2d 65 78 70 2d | 66 6c 61 67 31 20 73 74 |eco-exp-|flag1 st|
|00002870| 61 72 74 20 74 65 63 6f | 2d 65 78 70 2d 6f 70 5d |art teco|-exp-op]|
|00002880| 20 32 5d 20 31 35 20 74 | 65 63 6f 2d 74 79 70 65 | 2] 15 t|eco-type|
|00002890| 2d 32 2d 5c 12 20 23 5b | 6e 69 6c 20 22 08 ab 87 |-2-\. #[|nil "...|
|000028a0| c1 20 88 c2 89 10 87 0b | ab 9d 0c c5 55 ac 8e 0c |. ......|....U...|
|000028b0| c6 55 ac 89 0c c7 55 ac | 84 c8 c9 21 88 0c 16 5c |.U....U.|...!...\|
|000028c0| 6e c2 13 cb 89 16 0c 87 | 0e 5c 6e 14 cd 89 13 87 |n.......|.\n.....|
|000028d0| 22 20 5b 74 65 63 6f 2d | 63 6f 6c 6f 6e 2d 66 6c |" [teco-|colon-fl|
|000028e0| 61 67 20 72 65 63 75 72 | 73 69 76 65 2d 65 64 69 |ag recur|sive-edi|
|000028f0| 74 20 6e 69 6c 20 74 65 | 63 6f 2d 65 78 70 2d 66 |t nil te|co-exp-f|
|00002900| 6c 61 67 31 20 74 65 63 | 6f 2d 65 78 70 2d 76 61 |lag1 tec|o-exp-va|
|00002910| 6c 31 20 38 20 31 30 20 | 31 36 20 74 65 63 6f 2d |l1 8 10 |16 teco-|
|00002920| 65 72 72 6f 72 20 22 49 | 52 41 22 20 74 65 63 6f |error "I|RA" teco|
|00002930| 2d 63 74 72 6c 2d 72 20 | 73 74 61 72 74 20 74 65 |-ctrl-r |start te|
|00002940| 63 6f 2d 65 78 70 2d 6f | 70 20 74 5d 20 32 5d 20 |co-exp-o|p t] 2] |
|00002950| 31 38 20 74 65 63 6f 2d | 74 79 70 65 2d 32 2d 5c |18 teco-|type-2-\|
|00002960| 03 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 ab 85 c2 c3 |. #[nil |"..!....|
|00002970| c4 5c 22 87 0d ab 83 c6 | 20 87 c2 c3 c4 5c 22 87 |.\".....| ....\".|
|00002980| 22 20 5b 74 65 63 6f 2d | 70 65 65 6b 2d 63 6f 6d |" [teco-|peek-com|
|00002990| 6d 61 6e 64 20 33 20 74 | 68 72 6f 77 20 74 65 63 |mand 3 t|hrow tec|
|000029a0| 6f 2d 65 78 69 74 20 6e | 69 6c 20 74 65 63 6f 2d |o-exit n|il teco-|
|000029b0| 6d 61 63 72 6f 2d 73 74 | 61 63 6b 20 74 65 63 6f |macro-st|ack teco|
|000029c0| 2d 70 6f 70 2d 6d 61 63 | 72 6f 2d 73 74 61 63 6b |-pop-mac|ro-stack|
|000029d0| 5d 20 33 5d 20 33 20 74 | 65 63 6f 2d 74 79 70 65 |] 3] 3 t|eco-type|
|000029e0| 2d 32 2d 5c 18 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-2-\. #[|nil "..!|
|000029f0| 87 22 20 5b 74 65 63 6f | 2d 73 65 74 2d 76 61 72 |." [teco|-set-var|
|00002a00| 20 74 65 63 6f 2d 63 74 | 72 6c 2d 78 5d 20 32 5d | teco-ct|rl-x] 2]|
|00002a10| 20 32 34 20 74 65 63 6f | 2d 74 79 70 65 2d 32 2d | 24 teco|-type-2-|
|00002a20| 6d 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 0b 21 5c 22 |m #[nil |"....!\"|
|00002a30| 1c c5 20 88 0e 06 0c 48 | 16 07 c8 89 16 09 29 87 |.. ....H|......).|
|00002a40| 22 20 5b 74 65 63 6f 2d | 67 65 74 2d 71 73 70 65 |" [teco-|get-qspe|
|00002a50| 63 20 6e 69 6c 20 74 65 | 63 6f 2d 67 65 74 2d 63 |c nil te|co-get-c|
|00002a60| 6f 6d 6d 61 6e 64 20 74 | 65 63 6f 2d 74 72 61 63 |ommand t|eco-trac|
|00002a70| 65 20 6d 61 63 72 6f 2d | 6e 61 6d 65 20 74 65 63 |e macro-|name tec|
|00002a80| 6f 2d 70 75 73 68 2d 6d | 61 63 72 6f 2d 73 74 61 |o-push-m|acro-sta|
|00002a90| 63 6b 20 74 65 63 6f 2d | 71 72 65 67 2d 74 65 78 |ck teco-|qreg-tex|
|00002aa0| 74 20 74 65 63 6f 2d 63 | 6f 6d 6d 61 6e 64 2d 73 |t teco-c|ommand-s|
|00002ab0| 74 72 69 6e 67 20 30 20 | 74 65 63 6f 2d 63 6f 6d |tring 0 |teco-com|
|00002ac0| 6d 61 6e 64 2d 70 6f 69 | 6e 74 65 72 5d 20 34 5d |mand-poi|nter] 4]|
|00002ad0| 5d 20 33 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |] 3).(by|te-code |
|00002ae0| 22 c0 c1 4d 88 5c 6e c3 | c0 49 88 c4 c5 4d 88 5c |"..M.\n.|.I...M.\|
|00002af0| 6e c6 c4 49 88 c7 c8 4d | 88 5c 6e c9 c7 49 88 ca |n..I...M|.\n..I..|
|00002b00| cb 4d 88 5c 6e cc ca 49 | 88 cd ce 4d 88 5c 6e cf |.M.\n..I|...M.\n.|
|00002b10| cd 49 88 d0 d1 4d 88 5c | 6e d2 d0 49 88 d3 d4 4d |.I...M.\|n..I...M|
|00002b20| 88 5c 6e d5 d3 49 88 d6 | d7 4d 88 5c 6e d8 d6 49 |.\n..I..|.M.\n..I|
|00002b30| 88 d9 da 4d 88 5c 6e db | d9 49 88 dc dd 4d 88 5c |...M.\n.|.I...M.\|
|00002b40| 6e de dc 49 88 df e0 4d | 88 5c 6e e1 df 49 88 e2 |n..I...M|.\n..I..|
|00002b50| e3 4d 88 5c 6e e4 e2 49 | 88 e5 e6 4d 88 5c 6e e7 |.M.\n..I|...M.\n.|
|00002b60| e5 49 88 e8 e9 4d 88 5c | 6e ea e8 49 88 eb ec 4d |.I...M.\|n..I...M|
|00002b70| 88 5c 6e ed eb 49 88 ee | ef 4d 88 5c 6e f0 ee 49 |.\n..I..|.M.\n..I|
|00002b80| 88 f1 f2 4d 88 5c 6e f3 | f1 49 88 f4 f5 4d 88 5c |...M.\n.|.I...M.\|
|00002b90| 6e f6 f4 49 88 f7 f8 4d | 88 5c 6e f9 f7 49 88 fa |n..I...M|.\n..I..|
|00002ba0| fb 4d 88 5c 6e fc fa 49 | 88 fd fe 4d 88 5c 6e ff |.M.\n..I|...M.\n.|
|00002bb0| fd 49 88 81 40 00 81 41 | 00 4d 88 5c 6e 81 42 00 |.I..@..A|.M.\n.B.|
|00002bc0| 81 40 00 49 88 81 43 00 | 81 44 00 4d 88 5c 6e 81 |.@.I..C.|.D.M.\n.|
|00002bd0| 45 00 81 43 00 49 88 81 | 46 00 81 47 00 4d 88 5c |E..C.I..|F..G.M.\|
|00002be0| 6e 81 48 00 81 46 00 49 | 88 81 49 00 81 4a 00 4d |n.H..F.I|..I..J.M|
|00002bf0| 88 5c 6e 81 4b 00 81 49 | 00 49 88 81 4c 00 81 4d |.\n.K..I|.I..L..M|
|00002c00| 00 4d 88 5c 6e 81 4e 00 | 81 4c 00 49 88 81 4f 00 |.M.\n.N.|.L.I..O.|
|00002c10| 81 50 00 4d 88 5c 6e 81 | 51 00 81 4f 00 49 88 81 |.P.M.\n.|Q..O.I..|
|00002c20| 52 00 81 53 00 4d 88 5c | 6e 81 54 00 81 52 00 49 |R..S.M.\|n.T..R.I|
|00002c30| 88 81 55 00 81 56 00 4d | 88 5c 6e 81 57 00 81 55 |..U..V.M|.\n.W..U|
|00002c40| 00 49 88 81 58 00 81 59 | 00 4d 88 5c 6e 81 5a 00 |.I..X..Y|.M.\n.Z.|
|00002c50| 81 58 00 49 88 81 5b 00 | 81 5c 5c 00 4d 88 81 5d |.X.I..[.|.\\.M..]|
|00002c60| 00 81 5e 00 4d 88 81 5f | 00 81 60 00 4d 88 81 61 |..^.M.._|..`.M..a|
|00002c70| 00 81 62 00 4d 88 81 63 | 00 81 64 00 4d 88 81 65 |..b.M..c|..d.M..e|
|00002c80| 00 81 66 00 4d 88 81 67 | 00 81 68 00 4d 88 81 69 |..f.M..g|..h.M..i|
|00002c90| 00 81 6a 00 4d 87 22 20 | 5b 74 65 63 6f 2d 74 79 |..j.M." |[teco-ty|
|00002ca0| 70 65 2d 32 2d 3c 20 23 | 5b 6e 69 6c 20 22 08 ab |pe-2-< #|[nil "..|
|00002cb0| 88 09 c2 58 ab 83 c3 20 | 87 c4 0d 08 09 23 88 c6 |...X... |.....#..|
|00002cc0| 89 10 87 22 20 5b 74 65 | 63 6f 2d 65 78 70 2d 66 |..." [te|co-exp-f|
|00002cd0| 6c 61 67 31 20 74 65 63 | 6f 2d 65 78 70 2d 76 61 |lag1 tec|o-exp-va|
|00002ce0| 6c 31 20 30 20 74 65 63 | 6f 2d 66 69 6e 64 2d 65 |l1 0 tec|o-find-e|
|00002cf0| 6e 64 69 74 65 72 20 74 | 65 63 6f 2d 70 75 73 68 |nditer t|eco-push|
|00002d00| 2d 69 74 65 72 2d 73 74 | 61 63 6b 20 74 65 63 6f |-iter-st|ack teco|
|00002d10| 2d 63 6f 6d 6d 61 6e 64 | 2d 70 6f 69 6e 74 65 72 |-command|-pointer|
|00002d20| 20 6e 69 6c 5d 20 34 5d | 20 74 65 63 6f 2d 65 78 | nil] 4]| teco-ex|
|00002d30| 65 63 2d 32 20 36 30 20 | 74 65 63 6f 2d 74 79 70 |ec-2 60 |teco-typ|
|00002d40| 65 2d 32 2d 3e 20 23 5b | 6e 69 6c 20 22 08 ac 84 |e-2-> #[|nil "...|
|00002d50| c1 c2 21 88 c3 c4 21 88 | c4 15 c4 16 06 c7 89 16 |..!...!.|........|
|00002d60| 08 87 22 20 5b 74 65 63 | 6f 2d 69 74 65 72 61 74 |.." [tec|o-iterat|
|00002d70| 69 6f 6e 2d 73 74 61 63 | 6b 20 74 65 63 6f 2d 65 |ion-stac|k teco-e|
|00002d80| 72 72 6f 72 20 22 42 4e | 49 22 20 74 65 63 6f 2d |rror "BN|I" teco-|
|00002d90| 70 6f 70 2d 69 74 65 72 | 2d 73 74 61 63 6b 20 6e |pop-iter|-stack n|
|00002da0| 69 6c 20 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |il teco-|exp-flag|
|00002db0| 31 20 74 65 63 6f 2d 65 | 78 70 2d 66 6c 61 67 32 |1 teco-e|xp-flag2|
|00002dc0| 20 73 74 61 72 74 20 74 | 65 63 6f 2d 65 78 70 2d | start t|eco-exp-|
|00002dd0| 6f 70 5d 20 32 5d 20 36 | 32 20 74 65 63 6f 2d 74 |op] 2] 6|2 teco-t|
|00002de0| 79 70 65 2d 32 2d 5c 3b | 20 23 5b 6e 69 6c 20 22 |ype-2-\;| #[nil "|
|00002df0| 08 ac 84 c1 c2 21 88 0b | ab 83 0c aa 81 0d c6 59 |.....!..|.......Y|
|00002e00| ab 85 0e 07 3f aa 82 0e | 07 ab 87 c8 20 88 c9 ca |....?...|.... ...|
|00002e10| 21 88 cb 13 cb 16 07 cc | 89 16 0d 87 22 20 5b 74 |!.......|...." [t|
|00002e20| 65 63 6f 2d 69 74 65 72 | 61 74 69 6f 6e 2d 73 74 |eco-iter|ation-st|
|00002e30| 61 63 6b 20 74 65 63 6f | 2d 65 72 72 6f 72 20 22 |ack teco|-error "|
|00002e40| 53 4e 49 22 20 74 65 63 | 6f 2d 65 78 70 2d 66 6c |SNI" tec|o-exp-fl|
|00002e50| 61 67 31 20 74 65 63 6f | 2d 65 78 70 2d 76 61 6c |ag1 teco|-exp-val|
|00002e60| 31 20 74 65 63 6f 2d 73 | 65 61 72 63 68 2d 72 65 |1 teco-s|earch-re|
|00002e70| 73 75 6c 74 20 30 20 74 | 65 63 6f 2d 63 6f 6c 6f |sult 0 t|eco-colo|
|00002e80| 6e 2d 66 6c 61 67 20 74 | 65 63 6f 2d 66 69 6e 64 |n-flag t|eco-find|
|00002e90| 2d 65 6e 64 69 74 65 72 | 20 74 65 63 6f 2d 70 6f |-enditer| teco-po|
|00002ea0| 70 2d 69 74 65 72 2d 73 | 74 61 63 6b 20 74 20 6e |p-iter-s|tack t n|
|00002eb0| 69 6c 20 73 74 61 72 74 | 20 74 65 63 6f 2d 65 78 |il start| teco-ex|
|00002ec0| 70 2d 6f 70 5d 20 32 5d | 20 35 39 20 74 65 63 6f |p-op] 2]| 59 teco|
|00002ed0| 2d 74 79 70 65 2d 32 2d | 5c 22 20 23 5b 6e 69 6c |-type-2-|\" #[nil|
|00002ee0| 20 22 08 ac 84 c1 c2 21 | 88 c3 10 c4 15 0e 06 c7 | ".....!|........|
|00002ef0| 0e 08 21 48 89 1e 09 ca | 3d ab 8e cb 0e 0c 0e 0d |..!H....|=.......|
|00002f00| 48 ce 5c 22 cf 55 3f 82 | e6 00 0e 09 d0 3d ab 8e |H.\".U?.|.....=..|
|00002f10| cb 0e 0c 0e 0d 48 d1 5c | 22 cf 55 3f 82 e6 00 0e |.....H.\|".U?....|
|00002f20| 09 d2 3d ab 8e cb 0e 0c | 0e 0d 48 d3 5c 22 cf 55 |..=.....|..H.\".U|
|00002f30| 3f 82 e6 00 0e 09 d4 3d | ac 92 0e 09 d5 3d ac 8c |?......=|.....=..|
|00002f40| 0e 09 d6 3d ac 86 0e 09 | d7 3d ab 86 0e 0d cf 55 |...=....|.=.....U|
|00002f50| aa f9 0e 09 d8 3d ac 86 | 0e 09 d9 3d ab 86 0e 0d |.....=..|...=....|
|00002f60| cf 56 aa e7 0e 09 da 3d | ac 92 0e 09 db 3d ac 8c |.V.....=|.....=..|
|00002f70| 0e 09 dc 3d ac 86 0e 09 | dd 3d ab 86 0e 0d cf 57 |...=....|.=.....W|
|00002f80| aa c9 0e 09 de 3d ab 87 | 0e 0d cf 55 3f aa bc 0e |.....=..|...U?...|
|00002f90| 09 df 3d ab 8d cb 0e 0c | 0e 0d 48 e0 5c 22 cf 55 |..=.....|..H.\".U|
|00002fa0| 3f aa a9 0e 09 e1 3d ab | 8d cb 0e 0c 0e 0d 48 e2 |?.....=.|......H.|
|00002fb0| 5c 22 cf 55 3f aa 96 0e | 09 e3 3d ab 8d cb 0e 0c |\".U?...|..=.....|
|00002fc0| 0e 0d 48 e4 5c 22 cf 55 | 3f aa 83 c1 e5 21 89 1e |..H.\".U|?....!..|
|00002fd0| 26 3f ad c7 ce c3 1e 09 | 1e 27 0e 27 cf 56 ad ba |&?......|.'.'.V..|
|00002fe0| e8 20 89 16 09 e9 55 ac | 71 0e 09 ea 55 ac 6b 0e |. ....U.|q...U.k.|
|00002ff0| 09 eb 55 ac 65 0e 09 e9 | 55 ab 87 0e 27 54 16 27 |..U.e...|U...'T.'|
|00003000| aa 5e 0e 09 eb 55 ab 87 | 0e 27 53 16 27 aa 51 0e |.^...U..|.'S.'.Q.|
|00003010| 27 ce 55 ab 4b ec 20 88 | aa 46 2a 2a 87 22 20 5b |'.U.K. .|.F**." [|
|00003020| 74 65 63 6f 2d 65 78 70 | 2d 66 6c 61 67 31 20 74 |teco-exp|-flag1 t|
|00003030| 65 63 6f 2d 65 72 72 6f | 72 20 22 4e 41 51 22 20 |eco-erro|r "NAQ" |
|00003040| 6e 69 6c 20 73 74 61 72 | 74 20 74 65 63 6f 2d 65 |nil star|t teco-e|
|00003050| 78 70 2d 6f 70 20 74 65 | 63 6f 2d 6d 61 70 63 68 |xp-op te|co-mapch|
|00003060| 2d 6c 20 74 65 63 6f 2d | 67 65 74 2d 63 6f 6d 6d |-l teco-|get-comm|
|00003070| 61 6e 64 20 74 65 63 6f | 2d 74 72 61 63 65 20 63 |and teco|-trace c|
|00003080| 20 39 37 20 6c 6f 67 61 | 6e 64 20 74 65 63 6f 2d | 97 loga|nd teco-|
|00003090| 63 68 61 72 2d 74 79 70 | 65 73 20 74 65 63 6f 2d |char-typ|es teco-|
|000030a0| 65 78 70 2d 76 61 6c 31 | 20 31 20 30 20 39 39 20 |exp-val1| 1 0 99 |
|000030b0| 32 20 31 30 30 20 34 20 | 31 30 31 20 31 30 32 20 |2 100 4 |101 102 |
|000030c0| 31 31 37 20 36 31 20 31 | 30 33 20 36 32 20 31 30 |117 61 1|03 62 10|
|000030d0| 38 20 31 31 35 20 31 31 | 36 20 36 30 20 31 31 30 |8 115 11|6 60 110|
|000030e0| 20 31 31 34 20 38 20 31 | 31 38 20 31 36 20 31 31 | 114 8 1|18 16 11|
|000030f0| 39 20 33 32 20 22 49 51 | 43 22 20 74 65 73 74 20 |9 32 "IQ|C" test |
|00003100| 6c 6c 20 74 65 63 6f 2d | 73 6b 69 70 74 6f 20 33 |ll teco-|skipto 3|
|00003110| 34 20 31 32 34 20 33 39 | 20 62 72 65 61 6b 5d 20 |4 124 39| break] |
|00003120| 34 5d 20 33 34 20 74 65 | 63 6f 2d 74 79 70 65 2d |4] 34 te|co-type-|
|00003130| 32 2d 5c 27 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |2-\' (la|mbda nil|
|00003140| 20 74 29 20 33 39 20 74 | 65 63 6f 2d 74 79 70 65 | t) 39 t|eco-type|
|00003150| 2d 32 2d 7c 20 23 5b 6e | 69 6c 20 22 c0 c1 1a 89 |-2-| #[n|il "....|
|00003160| 1b c4 56 ad 9e c5 20 89 | 12 c6 55 ac 85 5c 6e c7 |..V... .|..U..\n.|
|00003170| 55 ab 73 5c 6e c6 55 ab | 86 0b 54 89 13 aa 64 0b |U.s\n.U.|..T...d.|
|00003180| 53 89 13 aa 5e 2a 87 22 | 20 5b 31 20 6e 69 6c 20 |S...^*."| [1 nil |
|00003190| 63 20 6c 6c 20 30 20 74 | 65 63 6f 2d 73 6b 69 70 |c ll 0 t|eco-skip|
|000031a0| 74 6f 20 33 34 20 33 39 | 5d 20 33 5d 20 31 32 34 |to 34 39|] 3] 124|
|000031b0| 20 74 65 63 6f 2d 74 79 | 70 65 2d 32 2d 75 20 23 | teco-ty|pe-2-u #|
|000031c0| 5b 6e 69 6c 20 22 08 ac | 84 c1 c2 21 88 0b c4 c5 |[nil "..|...!....|
|000031d0| c6 0e 07 21 5c 22 0e 08 | 49 88 0e 09 10 0e 5c 6e |...!\"..|I.....\n|
|000031e0| 16 08 cb 16 09 cc 89 16 | 0d 87 22 20 5b 74 65 63 |........|.." [tec|
|000031f0| 6f 2d 65 78 70 2d 66 6c | 61 67 31 20 74 65 63 6f |o-exp-fl|ag1 teco|
|00003200| 2d 65 72 72 6f 72 20 22 | 4e 41 55 22 20 74 65 63 |-error "|NAU" tec|
|00003210| 6f 2d 71 72 65 67 2d 6e | 75 6d 62 65 72 20 74 65 |o-qreg-n|umber te|
|00003220| 63 6f 2d 67 65 74 2d 71 | 73 70 65 63 20 30 20 74 |co-get-q|spec 0 t|
|00003230| 65 63 6f 2d 67 65 74 2d | 63 6f 6d 6d 61 6e 64 20 |eco-get-|command |
|00003240| 74 65 63 6f 2d 74 72 61 | 63 65 20 74 65 63 6f 2d |teco-tra|ce teco-|
|00003250| 65 78 70 2d 76 61 6c 31 | 20 74 65 63 6f 2d 65 78 |exp-val1| teco-ex|
|00003260| 70 2d 66 6c 61 67 32 20 | 74 65 63 6f 2d 65 78 70 |p-flag2 |teco-exp|
|00003270| 2d 76 61 6c 32 20 6e 69 | 6c 20 73 74 61 72 74 20 |-val2 ni|l start |
|00003280| 74 65 63 6f 2d 65 78 70 | 2d 6f 70 5d 20 35 5d 20 |teco-exp|-op] 5] |
|00003290| 31 31 37 20 74 65 63 6f | 2d 74 79 70 65 2d 32 2d |117 teco|-type-2-|
|000032a0| 71 20 23 5b 6e 69 6c 20 | 22 c0 09 ae 81 5c 6e c3 |q #[nil |"....\n.|
|000032b0| 0c 21 5c 22 1d 5c 6e ac | 94 09 ab 87 0e 06 0d 48 |.!\".\n.|.......H|
|000032c0| 47 aa 84 0e 07 0d 48 16 | 08 c9 12 aa 90 0e 06 0d |G.....H.|........|
|000032d0| 48 1e 5c 6e cb cc cd 8f | 16 08 ce 16 0f 29 cb 89 |H.\n....|.....)..|
|000032e0| 11 29 87 22 20 5b 74 65 | 63 6f 2d 67 65 74 2d 71 |.)." [te|co-get-q|
|000032f0| 73 70 65 63 20 74 65 63 | 6f 2d 63 6f 6c 6f 6e 2d |spec tec|o-colon-|
|00003300| 66 6c 61 67 20 74 65 63 | 6f 2d 65 78 70 2d 66 6c |flag tec|o-exp-fl|
|00003310| 61 67 31 20 74 65 63 6f | 2d 67 65 74 2d 63 6f 6d |ag1 teco|-get-com|
|00003320| 6d 61 6e 64 20 74 65 63 | 6f 2d 74 72 61 63 65 20 |mand tec|o-trace |
|00003330| 6d 6d 20 74 65 63 6f 2d | 71 72 65 67 2d 74 65 78 |mm teco-|qreg-tex|
|00003340| 74 20 74 65 63 6f 2d 71 | 72 65 67 2d 6e 75 6d 62 |t teco-q|reg-numb|
|00003350| 65 72 20 74 65 63 6f 2d | 65 78 70 2d 76 61 6c 31 |er teco-|exp-val1|
|00003360| 20 74 20 76 20 6e 69 6c | 20 28 61 72 65 66 20 76 | t v nil| (aref v|
|00003370| 20 74 65 63 6f 2d 65 78 | 70 2d 76 61 6c 31 29 20 | teco-ex|p-val1) |
|00003380| 28 28 65 72 72 6f 72 20 | 2d 31 29 29 20 73 74 61 |((error |-1)) sta|
|00003390| 72 74 20 74 65 63 6f 2d | 65 78 70 2d 6f 70 5d 20 |rt teco-|exp-op] |
|000033a0| 34 5d 20 31 31 33 20 74 | 65 63 6f 2d 74 79 70 65 |4] 113 t|eco-type|
|000033b0| 2d 32 2d 25 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 0b |-2-% #[n|il "....|
|000033c0| 21 5c 22 1c 0d 0c 48 c6 | c7 21 5c 5c 1e 08 0d 0c |!\"...H.|.!\\....|
|000033d0| 0e 08 49 88 0e 08 16 09 | ca 89 16 0b 2a 87 22 20 |..I.....|....*." |
|000033e0| 5b 74 65 63 6f 2d 67 65 | 74 2d 71 73 70 65 63 20 |[teco-ge|t-qspec |
|000033f0| 6e 69 6c 20 74 65 63 6f | 2d 67 65 74 2d 63 6f 6d |nil teco|-get-com|
|00003400| 6d 61 6e 64 20 74 65 63 | 6f 2d 74 72 61 63 65 20 |mand tec|o-trace |
|00003410| 6d 6d 20 74 65 63 6f 2d | 71 72 65 67 2d 6e 75 6d |mm teco-|qreg-num|
|00003420| 62 65 72 20 74 65 63 6f | 2d 67 65 74 2d 76 61 6c |ber teco|-get-val|
|00003430| 75 65 20 31 20 76 20 74 | 65 63 6f 2d 65 78 70 2d |ue 1 v t|eco-exp-|
|00003440| 76 61 6c 31 20 74 20 74 | 65 63 6f 2d 65 78 70 2d |val1 t t|eco-exp-|
|00003450| 66 6c 61 67 31 5d 20 34 | 5d 20 33 37 20 74 65 63 |flag1] 4|] 37 tec|
|00003460| 6f 2d 74 79 70 65 2d 32 | 2d 63 20 23 5b 6e 69 6c |o-type-2|-c #[nil|
|00003470| 20 22 60 c0 c1 21 5c 5c | 89 1a 65 57 ac 85 5c 6e | "`..!\\|..eW..\n|
|00003480| 64 56 ab 85 c3 c4 21 aa | 87 5c 6e 62 88 c5 89 16 |dV....!.|.\nb....|
|00003490| 06 29 87 22 20 5b 74 65 | 63 6f 2d 67 65 74 2d 76 |.)." [te|co-get-v|
|000034a0| 61 6c 75 65 20 31 20 70 | 20 74 65 63 6f 2d 65 72 |alue 1 p| teco-er|
|000034b0| 72 6f 72 20 22 50 4f 50 | 22 20 6e 69 6c 20 74 65 |ror "POP|" nil te|
|000034c0| 63 6f 2d 65 78 70 2d 66 | 6c 61 67 32 5d 20 34 5d |co-exp-f|lag2] 4]|
|000034d0| 20 39 39 20 74 65 63 6f | 2d 74 79 70 65 2d 32 2d | 99 teco|-type-2-|
|000034e0| 72 20 23 5b 6e 69 6c 20 | 22 60 c0 c1 21 5a 89 1a |r #[nil |"`..!Z..|
|000034f0| 65 57 ac 85 5c 6e 64 56 | ab 85 c3 c4 21 aa 87 5c |eW..\ndV|....!..\|
|00003500| 6e 62 88 c5 89 16 06 29 | 87 22 20 5b 74 65 63 6f |nb.....)|." [teco|
|00003510| 2d 67 65 74 2d 76 61 6c | 75 65 20 31 20 70 20 74 |-get-val|ue 1 p t|
|00003520| 65 63 6f 2d 65 72 72 6f | 72 20 22 50 4f 50 22 20 |eco-erro|r "POP" |
|00003530| 6e 69 6c 20 74 65 63 6f | 2d 65 78 70 2d 66 6c 61 |nil teco|-exp-fla|
|00003540| 67 32 5d 20 34 5d 20 31 | 31 34 20 74 65 63 6f 2d |g2] 4] 1|14 teco-|
|00003550| 74 79 70 65 2d 32 2d 6a | 20 23 5b 6e 69 6c 20 22 |type-2-j| #[nil "|
|00003560| c0 65 21 89 19 65 57 ac | 85 09 64 56 ab 85 c2 c3 |.e!..eW.|..dV....|
|00003570| 21 aa 86 09 62 88 c4 89 | 15 29 87 22 20 5b 74 65 |!...b...|.)." [te|
|00003580| 63 6f 2d 67 65 74 2d 76 | 61 6c 75 65 20 70 20 74 |co-get-v|alue p t|
|00003590| 65 63 6f 2d 65 72 72 6f | 72 20 22 50 4f 50 22 20 |eco-erro|r "POP" |
|000035a0| 6e 69 6c 20 74 65 63 6f | 2d 65 78 70 2d 66 6c 61 |nil teco|-exp-fla|
|000035b0| 67 32 5d 20 33 5d 20 31 | 30 36 20 74 65 63 6f 2d |g2] 3] 1|06 teco-|
|000035c0| 74 79 70 65 2d 32 2d 6c | 20 23 5b 6e 69 6c 20 22 |type-2-l| #[nil "|
|000035d0| c0 c1 c2 21 21 75 87 22 | 20 5b 74 65 63 6f 2d 6c |...!!u."| [teco-l|
|000035e0| 69 6e 65 73 20 74 65 63 | 6f 2d 67 65 74 2d 76 61 |ines tec|o-get-va|
|000035f0| 6c 75 65 20 31 5d 20 33 | 5d 20 31 30 38 20 74 65 |lue 1] 3|] 108 te|
|00003600| 63 6f 2d 74 79 70 65 2d | 32 2d 5c 11 20 23 5b 6e |co-type-|2-\. #[n|
|00003610| 69 6c 20 22 c0 c1 c2 21 | 21 13 c4 89 15 87 22 20 |il "...!|!....." |
|00003620| 5b 74 65 63 6f 2d 6c 69 | 6e 65 73 20 74 65 63 6f |[teco-li|nes teco|
|00003630| 2d 67 65 74 2d 76 61 6c | 75 65 20 31 20 74 65 63 |-get-val|ue 1 tec|
|00003640| 6f 2d 65 78 70 2d 76 61 | 6c 31 20 74 20 74 65 63 |o-exp-va|l1 t tec|
|00003650| 6f 2d 65 78 70 2d 66 6c | 61 67 31 5d 20 33 5d 20 |o-exp-fl|ag1] 3] |
|00003660| 31 37 20 74 65 63 6f 2d | 74 79 70 65 2d 32 2d 3d |17 teco-|type-2-=|
|00003670| 20 23 5b 6e 69 6c 20 22 | 08 ac 84 c1 c2 21 88 c3 | #[nil "|.....!..|
|00003680| c4 c5 c6 21 ab 95 c7 0e | 08 21 88 c5 c6 21 ab 88 |...!....|.!...!..|
|00003690| c7 0e 08 21 88 c9 aa 84 | ca aa 81 cb 0e 0c 5c 22 |...!....|......\"|
|000036a0| 21 88 0e 0d ac 84 c3 ce | 21 88 cf 10 cf 16 10 cf |!.......|!.......|
|000036b0| 16 0d d1 89 16 12 87 22 | 20 5b 74 65 63 6f 2d 65 |......."| [teco-e|
|000036c0| 78 70 2d 66 6c 61 67 31 | 20 74 65 63 6f 2d 65 72 |xp-flag1| teco-er|
|000036d0| 72 6f 72 20 22 4e 41 45 | 22 20 74 65 63 6f 2d 6f |ror "NAE|" teco-o|
|000036e0| 75 74 70 75 74 20 66 6f | 72 6d 61 74 20 74 65 63 |utput fo|rmat tec|
|000036f0| 6f 2d 70 65 65 6b 2d 63 | 6f 6d 6d 61 6e 64 20 36 |o-peek-c|ommand 6|
|00003700| 31 20 74 65 63 6f 2d 67 | 65 74 2d 63 6f 6d 6d 61 |1 teco-g|et-comma|
|00003710| 6e 64 20 74 65 63 6f 2d | 74 72 61 63 65 20 22 25 |nd teco-|trace "%|
|00003720| 78 22 20 22 25 6f 22 20 | 22 25 64 22 20 74 65 63 |x" "%o" |"%d" tec|
|00003730| 6f 2d 65 78 70 2d 76 61 | 6c 31 20 74 65 63 6f 2d |o-exp-va|l1 teco-|
|00003740| 63 6f 6c 6f 6e 2d 66 6c | 61 67 20 31 30 20 6e 69 |colon-fl|ag 10 ni|
|00003750| 6c 20 74 65 63 6f 2d 65 | 78 70 2d 66 6c 61 67 32 |l teco-e|xp-flag2|
|00003760| 20 73 74 61 72 74 20 74 | 65 63 6f 2d 65 78 70 2d | start t|eco-exp-|
|00003770| 6f 70 5d 20 34 5d 20 36 | 31 20 74 65 63 6f 2d 74 |op] 4] 6|1 teco-t|
|00003780| 79 70 65 2d 32 2d 5c 09 | 20 23 5b 6e 69 6c 20 22 |ype-2-\.| #[nil "|
|00003790| 08 ab 84 c1 c2 21 88 c3 | 20 1c c5 0c b1 02 88 0c |.....!..| .......|
|000037a0| 47 54 16 06 29 c7 16 08 | c7 16 09 c7 89 16 5c 6e |GT..)...|......\n|
|000037b0| 87 22 20 5b 65 78 70 2d | 66 6c 61 67 31 20 74 65 |." [exp-|flag1 te|
|000037c0| 63 6f 2d 65 72 72 6f 72 | 20 22 49 49 41 22 20 74 |co-error| "IIA" t|
|000037d0| 65 63 6f 2d 67 65 74 2d | 74 65 78 74 2d 61 72 67 |eco-get-|text-arg|
|000037e0| 20 74 65 78 74 20 39 20 | 74 65 63 6f 2d 63 74 72 | text 9 |teco-ctr|
|000037f0| 6c 2d 73 20 6e 69 6c 20 | 74 65 63 6f 2d 63 6f 6c |l-s nil |teco-col|
|00003800| 6f 6e 2d 66 6c 61 67 20 | 74 65 63 6f 2d 65 78 70 |on-flag |teco-exp|
|00003810| 2d 66 6c 61 67 31 20 74 | 65 63 6f 2d 65 78 70 2d |-flag1 t|eco-exp-|
|00003820| 66 6c 61 67 32 5d 20 32 | 5d 20 39 20 74 65 63 6f |flag2] 2|] 9 teco|
|00003830| 2d 74 79 70 65 2d 32 2d | 69 20 23 5b 6e 69 6c 20 |-type-2-|i #[nil |
|00003840| 22 c0 20 19 5c 6e ab 95 | 09 c3 98 ac 84 c4 c5 21 |". .\n..|.......!|
|00003850| 88 0e 06 63 88 c7 16 08 | c9 16 5c 6e aa 87 09 63 |...c....|..\n...c|
|00003860| 88 09 47 16 08 cb 16 0c | cb 12 cb 89 16 0d 29 87 |..G.....|......).|
|00003870| 22 20 5b 74 65 63 6f 2d | 67 65 74 2d 74 65 78 74 |" [teco-|get-text|
|00003880| 2d 61 72 67 20 74 65 78 | 74 20 74 65 63 6f 2d 65 |-arg tex|t teco-e|
|00003890| 78 70 2d 66 6c 61 67 31 | 20 22 22 20 74 65 63 6f |xp-flag1| "" teco|
|000038a0| 2d 65 72 72 6f 72 20 22 | 49 49 41 22 20 74 65 63 |-error "|IIA" tec|
|000038b0| 6f 2d 65 78 70 2d 76 61 | 6c 31 20 31 20 74 65 63 |o-exp-va|l1 1 tec|
|000038c0| 6f 2d 63 74 72 6c 2d 73 | 20 73 74 61 72 74 20 74 |o-ctrl-s| start t|
|000038d0| 65 63 6f 2d 65 78 70 2d | 6f 70 20 6e 69 6c 20 74 |eco-exp-|op nil t|
|000038e0| 65 63 6f 2d 63 6f 6c 6f | 6e 2d 66 6c 61 67 20 74 |eco-colo|n-flag t|
|000038f0| 65 63 6f 2d 65 78 70 2d | 66 6c 61 67 32 5d 20 32 |eco-exp-|flag2] 2|
|00003900| 5d 20 31 30 35 20 74 65 | 63 6f 2d 74 79 70 65 2d |] 105 te|co-type-|
|00003910| 32 2d 74 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 1a c3 |2-t #[ni|l "..!..|
|00003920| 5c 6e 40 5c 6e 41 7b 21 | 29 87 22 20 5b 74 65 63 |\n@\nA{!|)." [tec|
|00003930| 6f 2d 6c 69 6e 65 2d 61 | 72 67 73 20 6e 69 6c 20 |o-line-a|rgs nil |
|00003940| 61 72 67 73 20 74 65 63 | 6f 2d 6f 75 74 70 75 74 |args tec|o-output|
|00003950| 5d 20 33 5d 20 31 31 36 | 20 74 65 63 6f 2d 74 79 |] 3] 116| teco-ty|
|00003960| 70 65 2d 32 2d 76 20 23 | 5b 6e 69 6c 20 22 c0 c1 |pe-2-v #|[nil "..|
|00003970| 21 1a c3 60 c4 c1 5c 6e | 5a 21 5c 5c 60 c4 5c 6e |!..`..\n|Z!\\`.\n|
|00003980| 21 5c 5c 7b 21 29 87 22 | 20 5b 74 65 63 6f 2d 67 |!\\{!)."| [teco-g|
|00003990| 65 74 2d 76 61 6c 75 65 | 20 31 20 6c 6c 20 74 65 |et-value| 1 ll te|
|000039a0| 63 6f 2d 6f 75 74 70 75 | 74 20 74 65 63 6f 2d 6c |co-outpu|t teco-l|
|000039b0| 69 6e 65 73 5d 20 35 5d | 20 31 31 38 20 74 65 63 |ines] 5]| 118 tec|
|000039c0| 6f 2d 74 79 70 65 2d 32 | 2d 5c 01 20 23 5b 6e 69 |o-type-2|-\. #[ni|
|000039d0| 6c 20 22 c0 c1 c2 c3 5c | 22 21 88 c2 14 c2 15 c2 |l "....\|"!......|
|000039e0| 16 06 c2 16 07 c8 89 16 | 09 87 22 20 5b 74 65 63 |........|.." [tec|
|000039f0| 6f 2d 6f 75 74 70 75 74 | 20 74 65 63 6f 2d 67 65 |o-output| teco-ge|
|00003a00| 74 2d 74 65 78 74 2d 61 | 72 67 20 6e 69 6c 20 31 |t-text-a|rg nil 1|
|00003a10| 20 74 65 63 6f 2d 61 74 | 2d 66 6c 61 67 20 74 65 | teco-at|-flag te|
|00003a20| 63 6f 2d 63 6f 6c 6f 6e | 2d 66 6c 61 67 20 74 65 |co-colon|-flag te|
|00003a30| 63 6f 2d 65 78 70 2d 66 | 6c 61 67 31 20 74 65 63 |co-exp-f|lag1 tec|
|00003a40| 6f 2d 65 78 70 2d 66 6c | 61 67 32 20 73 74 61 72 |o-exp-fl|ag2 star|
|00003a50| 74 20 74 65 63 6f 2d 65 | 78 70 2d 6f 70 5d 20 34 |t teco-e|xp-op] 4|
|00003a60| 5d 20 31 20 74 65 63 6f | 2d 74 79 70 65 2d 32 2d |] 1 teco|-type-2-|
|00003a70| 64 20 23 5b 6e 69 6c 20 | 22 08 ac 86 c1 c2 c3 21 |d #[nil |"......!|
|00003a80| 21 87 c4 c3 21 89 1d 40 | 0d 41 7c 29 87 22 20 5b |!...!..@|.A|)." [|
|00003a90| 74 65 63 6f 2d 65 78 70 | 2d 66 6c 61 67 32 20 64 |teco-exp|-flag2 d|
|00003aa0| 65 6c 65 74 65 2d 63 68 | 61 72 20 74 65 63 6f 2d |elete-ch|ar teco-|
|00003ab0| 67 65 74 2d 76 61 6c 75 | 65 20 31 20 74 65 63 6f |get-valu|e 1 teco|
|00003ac0| 2d 6c 69 6e 65 2d 61 72 | 67 73 20 6c 6c 5d 20 34 |-line-ar|gs ll] 4|
|00003ad0| 5d 20 31 30 30 20 74 65 | 63 6f 2d 74 79 70 65 2d |] 100 te|co-type-|
|00003ae0| 32 2d 6b 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 89 1a |2-k #[ni|l "..!..|
|00003af0| 40 5c 6e 41 7c 29 87 22 | 20 5b 74 65 63 6f 2d 6c |@\nA|)."| [teco-l|
|00003b00| 69 6e 65 2d 61 72 67 73 | 20 31 20 6c 6c 5d 20 33 |ine-args| 1 ll] 3|
|00003b10| 5d 20 31 30 37 20 74 65 | 63 6f 2d 74 79 70 65 2d |] 107 te|co-type-|
|00003b20| 32 2d 5c 15 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 0b |2-\. #[n|il "....|
|00003b30| 21 5c 22 1c c5 20 1e 06 | 0e 07 ac 84 0e 06 aa 8f |!\".. ..|........|
|00003b40| 0e 06 c8 98 ab 86 c9 0e | 5c 6e 21 aa 83 cb cc 21 |........|\n!....!|
|00003b50| 1e 0d 0e 0e 0c 0e 0f ab | 89 0e 0e 0c 48 0e 0d 50 |........|....H..P|
|00003b60| aa 82 0e 0d 49 88 c1 16 | 07 c1 16 10 c1 16 0f c1 |....I...|........|
|00003b70| 89 16 07 2b 87 22 20 5b | 74 65 63 6f 2d 67 65 74 |...+." [|teco-get|
|00003b80| 2d 71 73 70 65 63 20 6e | 69 6c 20 74 65 63 6f 2d |-qspec n|il teco-|
|00003b90| 67 65 74 2d 63 6f 6d 6d | 61 6e 64 20 74 65 63 6f |get-comm|and teco|
|00003ba0| 2d 74 72 61 63 65 20 6d | 6d 20 74 65 63 6f 2d 67 |-trace m|m teco-g|
|00003bb0| 65 74 2d 74 65 78 74 2d | 61 72 67 20 74 65 78 74 |et-text-|arg text|
|00003bc0| 2d 61 72 67 20 74 65 63 | 6f 2d 65 78 70 2d 66 6c |-arg tec|o-exp-fl|
|00003bd0| 61 67 31 20 22 22 20 63 | 68 61 72 2d 74 6f 2d 73 |ag1 "" c|har-to-s|
|00003be0| 74 72 69 6e 67 20 74 65 | 63 6f 2d 65 78 70 2d 76 |tring te|co-exp-v|
|00003bf0| 61 6c 31 20 74 65 63 6f | 2d 65 72 72 6f 72 20 22 |al1 teco|-error "|
|00003c00| 49 49 41 22 20 74 65 78 | 74 20 74 65 63 6f 2d 71 |IIA" tex|t teco-q|
|00003c10| 72 65 67 2d 74 65 78 74 | 20 74 65 63 6f 2d 63 6f |reg-text| teco-co|
|00003c20| 6c 6f 6e 2d 66 6c 61 67 | 20 74 65 63 6f 2d 61 74 |lon-flag| teco-at|
|00003c30| 2d 66 6c 61 67 5d 20 34 | 5d 20 32 31 20 74 65 63 |-flag] 4|] 21 tec|
|00003c40| 6f 2d 74 79 70 65 2d 32 | 2d 78 20 23 5b 6e 69 6c |o-type-2|-x #[nil|
|00003c50| 20 22 c0 c1 c2 0b 21 5c | 22 1c c5 c6 21 89 1e 07 | "....!\|"...!...|
|00003c60| 40 0e 07 41 7b 1e 08 0e | 09 0c 0e 5c 6e ab 89 0e |@..A{...|...\n...|
|00003c70| 09 0c 48 0e 08 50 aa 82 | 0e 08 49 88 c1 16 0b c1 |..H..P..|..I.....|
|00003c80| 16 0c c1 16 5c 6e c1 89 | 16 0b 2b 87 22 20 5b 74 |....\n..|..+." [t|
|00003c90| 65 63 6f 2d 67 65 74 2d | 71 73 70 65 63 20 6e 69 |eco-get-|qspec ni|
|00003ca0| 6c 20 74 65 63 6f 2d 67 | 65 74 2d 63 6f 6d 6d 61 |l teco-g|et-comma|
|00003cb0| 6e 64 20 74 65 63 6f 2d | 74 72 61 63 65 20 6d 6d |nd teco-|trace mm|
|00003cc0| 20 74 65 63 6f 2d 6c 69 | 6e 65 2d 61 72 67 73 20 | teco-li|ne-args |
|00003cd0| 30 20 61 72 67 73 20 74 | 65 78 74 20 74 65 63 6f |0 args t|ext teco|
|00003ce0| 2d 71 72 65 67 2d 74 65 | 78 74 20 74 65 63 6f 2d |-qreg-te|xt teco-|
|00003cf0| 63 6f 6c 6f 6e 2d 66 6c | 61 67 20 74 65 63 6f 2d |colon-fl|ag teco-|
|00003d00| 65 78 70 2d 66 6c 61 67 | 31 20 74 65 63 6f 2d 61 |exp-flag|1 teco-a|
|00003d10| 74 2d 66 6c 61 67 5d 20 | 35 5d 20 31 32 30 20 74 |t-flag] |5] 120 t|
|00003d20| 65 63 6f 2d 74 79 70 65 | 2d 32 2d 67 20 23 5b 6e |eco-type|-2-g #[n|
|00003d30| 69 6c 20 22 c0 c1 c2 0b | 21 5c 22 1c 0d ab 89 c6 |il "....|!\".....|
|00003d40| 0e 07 0c 48 21 88 aa 86 | 0e 07 0c 48 63 88 c8 89 |...H!...|...Hc...|
|00003d50| 15 29 87 22 20 5b 74 65 | 63 6f 2d 67 65 74 2d 71 |.)." [te|co-get-q|
|00003d60| 73 70 65 63 20 74 20 74 | 65 63 6f 2d 67 65 74 2d |spec t t|eco-get-|
|00003d70| 63 6f 6d 6d 61 6e 64 20 | 74 65 63 6f 2d 74 72 61 |command |teco-tra|
|00003d80| 63 65 20 6d 6d 20 74 65 | 63 6f 2d 63 6f 6c 6f 6e |ce mm te|co-colon|
|00003d90| 2d 66 6c 61 67 20 74 65 | 63 6f 2d 6f 75 74 70 75 |-flag te|co-outpu|
|00003da0| 74 20 74 65 63 6f 2d 71 | 72 65 67 2d 74 65 78 74 |t teco-q|reg-text|
|00003db0| 20 6e 69 6c 5d 20 34 5d | 20 31 30 33 20 74 65 63 | nil] 4]| 103 tec|
|00003dc0| 6f 2d 74 79 70 65 2d 32 | 2d 5c 5b 20 23 5b 6e 69 |o-type-2|-\[ #[ni|
|00003dd0| 6c 20 22 c0 c1 c2 0b 21 | 5c 22 1c 0d 0c 48 0e 06 |l "....!|\"...H..|
|00003de0| 0c 48 42 0e 07 42 89 16 | 07 29 87 22 20 5b 74 65 |.HB..B..|.)." [te|
|00003df0| 63 6f 2d 67 65 74 2d 71 | 73 70 65 63 20 74 20 74 |co-get-q|spec t t|
|00003e00| 65 63 6f 2d 67 65 74 2d | 63 6f 6d 6d 61 6e 64 20 |eco-get-|command |
|00003e10| 74 65 63 6f 2d 74 72 61 | 63 65 20 6d 6d 20 74 65 |teco-tra|ce mm te|
|00003e20| 63 6f 2d 71 72 65 67 2d | 74 65 78 74 20 74 65 63 |co-qreg-|text tec|
|00003e30| 6f 2d 71 72 65 67 2d 6e | 75 6d 62 65 72 20 74 65 |o-qreg-n|umber te|
|00003e40| 63 6f 2d 71 72 65 67 2d | 73 74 61 63 6b 5d 20 34 |co-qreg-|stack] 4|
|00003e50| 5d 20 39 31 20 74 65 63 | 6f 2d 74 79 70 65 2d 32 |] 91 tec|o-type-2|
|00003e60| 2d 5c 5d 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 0b 21 |-\] #[ni|l "....!|
|00003e70| 5c 22 1c 0d ab 8f c1 16 | 06 0e 07 ab 83 c8 aa 81 |\"......|........|
|00003e80| c9 16 5c 6e aa a5 0e 07 | ab 9d 0e 07 40 1e 0b 0e |..\n....|....@...|
|00003e90| 0c 0c 0e 0b 40 49 88 0e | 0d 0c 0e 0b 41 49 88 0e |....@I..|....AI..|
|00003ea0| 07 41 16 07 29 aa 84 ce | cf 21 88 d0 89 15 29 87 |.A..)...|.!....).|
|00003eb0| 22 20 5b 74 65 63 6f 2d | 67 65 74 2d 71 73 70 65 |" [teco-|get-qspe|
|00003ec0| 63 20 74 20 74 65 63 6f | 2d 67 65 74 2d 63 6f 6d |c t teco|-get-com|
|00003ed0| 6d 61 6e 64 20 74 65 63 | 6f 2d 74 72 61 63 65 20 |mand tec|o-trace |
|00003ee0| 6d 6d 20 74 65 63 6f 2d | 63 6f 6c 6f 6e 2d 66 6c |mm teco-|colon-fl|
|00003ef0| 61 67 20 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |ag teco-|exp-flag|
|00003f00| 31 20 74 65 63 6f 2d 71 | 72 65 67 2d 73 74 61 63 |1 teco-q|reg-stac|
|00003f10| 6b 20 2d 31 20 30 20 74 | 65 63 6f 2d 65 78 70 2d |k -1 0 t|eco-exp-|
|00003f20| 76 61 6c 31 20 70 6f 70 | 20 74 65 63 6f 2d 71 72 |val1 pop| teco-qr|
|00003f30| 65 67 2d 74 65 78 74 20 | 74 65 63 6f 2d 71 72 65 |eg-text |teco-qre|
|00003f40| 67 2d 6e 75 6d 62 65 72 | 20 74 65 63 6f 2d 65 72 |g-number| teco-er|
|00003f50| 72 6f 72 20 22 43 50 51 | 22 20 6e 69 6c 5d 20 34 |ror "CPQ|" nil] 4|
|00003f60| 5d 20 39 33 20 74 65 63 | 6f 2d 74 79 70 65 2d 32 |] 93 tec|o-type-2|
|00003f70| 2d 5c 5c 20 23 5b 6e 69 | 6c 20 22 08 84 cf 00 60 |-\\ #[ni|l "....`|
|00003f80| c1 c2 c3 1c 1d 1e 06 89 | 1e 07 66 89 14 ab 99 0c |........|..f.....|
|00003f90| c8 55 ab 87 0e 07 54 16 | 07 aa 8d 0c c9 55 ab 88 |.U....T.|.....U..|
|00003fa0| 0e 07 54 16 07 ca 16 06 | 0e 0b cc 55 ab a1 0e 07 |..T.....|...U....|
|00003fb0| 66 89 14 83 be 00 0c cd | 59 ab fe 0c ce 58 ab f9 |f.......|Y....X..|
|00003fc0| 0e 07 54 16 07 0c 0d cc | 5f cf 5c 5c 5c 5c 15 aa |..T.....|_.\\\\..|
|00003fd0| 5f 0e 0b d0 55 ab a0 0e | 07 66 89 14 ab dd 0c cd |_...U...|.f......|
|00003fe0| 59 ab d8 0c d1 58 ab d3 | 0e 07 54 16 07 0c 0d d0 |Y....X..|..T.....|
|00003ff0| 5f cf 5c 5c 5c 5c 15 aa | 60 0e 07 66 89 14 ab bd |_.\\\\..|`..f....|
|00004000| 0c cd 59 ab 85 0c d1 58 | ac 94 0c d2 59 ab 85 0c |..Y....X|....Y...|
|00004010| d3 58 ac 8a 0c d4 59 ab | a4 0c d5 58 ab 9f 0e 07 |.X....Y.|...X....|
|00004020| 54 16 07 0c 89 d5 56 ab | 83 d6 aa 89 0c d1 56 ab |T.....V.|......V.|
|00004030| 83 d7 aa 81 cf 0d d8 5f | 5c 5c 5c 5c 15 aa 3c 0d |......._|\\\\..<.|
|00004040| 0e 06 5f 16 19 da 10 60 | 0e 07 5a 89 16 1b 2c 87 |.._....`|..Z...,.|
|00004050| dc 0e 0b cc 55 ab 83 dd | aa 8a 0e 0b d0 55 ab 83 |....U...|.....U..|
|00004060| de aa 81 df 0e 19 5c 22 | 63 88 c3 10 e0 89 16 21 |......\"|c......!|
|00004070| 87 22 20 5b 74 65 63 6f | 2d 65 78 70 2d 66 6c 61 |." [teco|-exp-fla|
|00004080| 67 31 20 31 20 30 20 6e | 69 6c 20 63 20 6e 20 73 |g1 1 0 n|il c n s|
|00004090| 69 67 6e 20 70 20 34 33 | 20 34 35 20 2d 31 20 74 |ign p 43| 45 -1 t|
|000040a0| 65 63 6f 2d 63 74 72 6c | 2d 72 20 38 20 34 38 20 |eco-ctrl|-r 8 48 |
|000040b0| 35 35 20 2d 34 38 20 31 | 30 20 35 37 20 39 37 20 |55 -48 1|0 57 97 |
|000040c0| 31 30 32 20 36 35 20 37 | 30 20 2d 38 37 20 2d 35 |102 65 7|0 -87 -5|
|000040d0| 35 20 31 36 20 74 65 63 | 6f 2d 65 78 70 2d 76 61 |5 16 tec|o-exp-va|
|000040e0| 6c 31 20 74 20 74 65 63 | 6f 2d 63 74 72 6c 2d 73 |l1 t tec|o-ctrl-s|
|000040f0| 20 66 6f 72 6d 61 74 20 | 22 25 6f 22 20 22 25 64 | format |"%o" "%d|
|00004100| 22 20 22 25 78 22 20 73 | 74 61 72 74 20 74 65 63 |" "%x" s|tart tec|
|00004110| 6f 2d 65 78 70 2d 6f 70 | 5d 20 35 5d 20 39 32 20 |o-exp-op|] 5] 92 |
|00004120| 74 65 63 6f 2d 74 79 70 | 65 2d 32 2d 5c 14 20 23 |teco-typ|e-2-\. #|
|00004130| 5b 6e 69 6c 20 22 08 ab | 88 c1 5c 6e 21 88 c3 89 |[nil "..|..\n!...|
|00004140| 10 87 c4 1d c6 20 1e 07 | c1 0e 07 21 88 0e 07 12 |..... ..|...!....|
|00004150| c8 89 10 2a 87 22 20 5b | 74 65 63 6f 2d 65 78 70 |...*." [|teco-exp|
|00004160| 2d 66 6c 61 67 31 20 74 | 65 63 6f 2d 6f 75 74 70 |-flag1 t|eco-outp|
|00004170| 75 74 20 74 65 63 6f 2d | 65 78 70 2d 76 61 6c 31 |ut teco-|exp-val1|
|00004180| 20 6e 69 6c 20 30 20 65 | 63 68 6f 2d 6b 65 79 73 | nil 0 e|cho-keys|
|00004190| 74 72 6f 6b 65 73 20 72 | 65 61 64 2d 63 68 61 72 |trokes r|ead-char|
|000041a0| 20 63 20 74 5d 20 32 5d | 20 32 30 20 74 65 63 6f | c t] 2]| 20 teco|
|000041b0| 2d 74 79 70 65 2d 32 2d | 73 20 23 5b 6e 69 6c 20 |-type-2-|s #[nil |
|000041c0| 22 c0 20 09 ab 83 5c 6e | aa 81 c3 c4 1d 1e 06 89 |". ...\n|........|
|000041d0| 1e 07 c8 98 ac 8e c9 0e | 07 21 15 0e 07 16 5c 6e |........|.!....\n|
|000041e0| 0d 16 0b aa 87 cb 20 15 | 0e 5c 6e 16 07 60 0e 06 |...... .|.\n..`..|
|000041f0| cc 56 ab 89 cd 0d c4 ce | 0e 06 24 aa 90 0e 06 cc |.V......|..$.....|
|00004200| 57 ab 89 cf 0d c4 ce 0e | 06 24 aa 81 ce 1e 10 1e |W.......|.$......|
|00004210| 11 0e 12 d3 3d ab 84 0e | 11 62 88 0e 10 ac 8e 0e |....=...|.b......|
|00004220| 12 ac 8a d4 20 d5 55 ac | 84 d6 d7 21 88 c4 16 18 |.... .U.|...!....|
|00004230| c4 16 12 c4 16 19 da 16 | 1b 0e 12 ab 8f ce 11 0e |........|........|
|00004240| 10 ab 83 dc aa 81 cc 89 | 16 1d aa 83 c4 89 11 2d |........|.......-|
|00004250| 87 22 20 5b 74 65 63 6f | 2d 67 65 74 2d 74 65 78 |." [teco|-get-tex|
|00004260| 74 2d 61 72 67 20 74 65 | 63 6f 2d 65 78 70 2d 66 |t-arg te|co-exp-f|
|00004270| 6c 61 67 31 20 74 65 63 | 6f 2d 65 78 70 72 2d 76 |lag1 tec|o-expr-v|
|00004280| 61 6c 31 20 31 20 6e 69 | 6c 20 72 65 67 65 78 70 |al1 1 ni|l regexp|
|00004290| 20 63 6f 75 6e 74 20 61 | 72 67 20 22 22 20 74 65 | count a|rg "" te|
|000042a0| 63 6f 2d 70 61 72 73 65 | 2d 73 65 61 72 63 68 2d |co-parse|-search-|
|000042b0| 73 74 72 69 6e 67 20 74 | 65 63 6f 2d 6c 61 73 74 |string t|eco-last|
|000042c0| 2d 73 65 61 72 63 68 2d | 73 74 72 69 6e 67 20 74 |-search-|string t|
|000042d0| 65 63 6f 2d 6c 61 73 74 | 2d 73 65 61 72 63 68 2d |eco-last|-search-|
|000042e0| 72 65 67 65 78 70 20 30 | 20 72 65 2d 73 65 61 72 |regexp 0| re-sear|
|000042f0| 63 68 2d 66 6f 72 77 61 | 72 64 20 74 20 72 65 2d |ch-forwa|rd t re-|
|00004300| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00004310| 72 65 73 75 6c 74 20 70 | 20 74 65 63 6f 2d 63 6f |result p| teco-co|
|00004320| 6c 6f 6e 2d 66 6c 61 67 | 20 32 20 74 65 63 6f 2d |lon-flag| 2 teco-|
|00004330| 70 65 65 6b 63 6d 64 63 | 20 33 34 20 74 65 63 6f |peekcmdc| 34 teco|
|00004340| 2d 65 72 72 6f 72 20 22 | 53 52 48 22 20 74 65 63 |-error "|SRH" tec|
|00004350| 6f 2d 65 78 70 2d 66 6c | 61 67 32 20 74 65 63 6f |o-exp-fl|ag2 teco|
|00004360| 2d 61 74 2d 66 6c 61 67 | 20 73 74 61 72 74 20 74 |-at-flag| start t|
|00004370| 65 63 6f 2d 65 78 70 2d | 6f 70 20 2d 31 20 74 65 |eco-exp-|op -1 te|
|00004380| 63 6f 2d 65 78 70 2d 76 | 61 6c 31 5d 20 37 5d 20 |co-exp-v|al1] 7] |
|00004390| 31 31 35 20 74 65 63 6f | 2d 70 61 72 73 65 2d 73 |115 teco|-parse-s|
|000043a0| 65 61 72 63 68 2d 73 74 | 72 69 6e 67 20 23 5b 28 |earch-st|ring #[(|
|000043b0| 73 29 20 22 c0 09 47 c2 | c3 1c 1d 1e 06 1e 07 0e |s) "..G.|........|
|000043c0| 07 0e 06 57 ab 87 0d c8 | 20 50 15 aa 72 0d 2c 87 |...W....| P..r.,.|
|000043d0| 22 20 5b 30 20 73 20 22 | 22 20 6e 69 6c 20 63 20 |" [0 s "|" nil c |
|000043e0| 72 20 6c 20 69 20 74 65 | 63 6f 2d 70 61 72 73 65 |r l i te|co-parse|
|000043f0| 2d 73 65 61 72 63 68 2d | 73 74 72 69 6e 67 2d 31 |-search-|string-1|
|00004400| 5d 20 34 5d 20 74 65 63 | 6f 2d 70 61 72 73 65 2d |] 4] tec|o-parse-|
|00004410| 73 65 61 72 63 68 2d 73 | 74 72 69 6e 67 2d 31 20 |search-s|tring-1 |
|00004420| 23 5b 6e 69 6c 20 22 08 | 09 59 ab 84 c2 c3 21 88 |#[nil ".|.Y....!.|
|00004430| 0c 08 48 15 08 54 10 0d | c6 3d ab 83 c7 20 87 0d |..H..T..|.=... ..|
|00004440| c8 3d ab 83 c9 20 87 0d | ca 3d ab 83 cb 20 87 0d |.=... ..|.=... ..|
|00004450| cc 3d ab 82 cd 87 0d ce | 3d ab 82 cf 87 d0 0d 21 |.=......|=......!|
|00004460| 87 22 20 5b 69 20 6c 20 | 74 65 63 6f 2d 65 72 72 |." [i l |teco-err|
|00004470| 6f 72 20 22 49 53 53 22 | 20 73 20 63 20 35 20 74 |or "ISS"| s c 5 t|
|00004480| 65 63 6f 2d 70 61 72 73 | 65 2d 73 65 61 72 63 68 |eco-pars|e-search|
|00004490| 2d 73 74 72 69 6e 67 2d | 65 20 31 34 20 74 65 63 |-string-|e 14 tec|
|000044a0| 6f 2d 70 61 72 73 65 2d | 73 65 61 72 63 68 2d 73 |o-parse-|search-s|
|000044b0| 74 72 69 6e 67 2d 6e 20 | 31 37 20 74 65 63 6f 2d |tring-n |17 teco-|
|000044c0| 70 61 72 73 65 2d 73 65 | 61 72 63 68 2d 73 74 72 |parse-se|arch-str|
|000044d0| 69 6e 67 2d 71 20 31 39 | 20 22 5b 5e 41 2d 5a 61 |ing-q 19| "[^A-Za|
|000044e0| 2d 7a 30 2d 39 5d 22 20 | 32 34 20 22 5b 00 2d ff |-z0-9]" |24 "[.-.|
|000044f0| 5d 22 20 74 65 63 6f 2d | 70 61 72 73 65 2d 73 65 |]" teco-|parse-se|
|00004500| 61 72 63 68 2d 73 74 72 | 69 6e 67 2d 63 68 61 72 |arch-str|ing-char|
|00004510| 5d 20 32 5d 20 74 65 63 | 6f 2d 70 61 72 73 65 2d |] 2] tec|o-parse-|
|00004520| 73 65 61 72 63 68 2d 73 | 74 72 69 6e 67 2d 63 68 |search-s|tring-ch|
|00004530| 61 72 20 23 5b 28 63 29 | 20 22 c0 c1 5c 6e 21 21 |ar #[(c)| "..\n!!|
|00004540| 87 22 20 5b 72 65 67 65 | 78 70 2d 71 75 6f 74 65 |." [rege|xp-quote|
|00004550| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 | char-to|-string |
|00004560| 63 5d 20 33 5d 20 74 65 | 63 6f 2d 70 61 72 73 65 |c] 3] te|co-parse|
|00004570| 2d 73 65 61 72 63 68 2d | 73 74 72 69 6e 67 2d 71 |-search-|string-q|
|00004580| 20 23 5b 6e 69 6c 20 22 | 08 09 59 ab 84 c2 c3 21 | #[nil "|..Y....!|
|00004590| 88 0c 08 48 15 08 54 10 | c6 0d 21 87 22 20 5b 69 |...H..T.|..!." [i|
|000045a0| 20 6c 20 74 65 63 6f 2d | 65 72 72 6f 72 20 22 49 | l teco-|error "I|
|000045b0| 53 53 22 20 73 20 63 20 | 74 65 63 6f 2d 70 61 72 |SS" s c |teco-par|
|000045c0| 73 65 2d 73 65 61 72 63 | 68 2d 73 74 72 69 6e 67 |se-searc|h-string|
|000045d0| 2d 63 68 61 72 5d 20 32 | 5d 20 74 65 63 6f 2d 70 |-char] 2|] teco-p|
|000045e0| 61 72 73 65 2d 73 65 61 | 72 63 68 2d 73 74 72 69 |arse-sea|rch-stri|
|000045f0| 6e 67 2d 65 20 23 5b 6e | 69 6c 20 22 08 09 59 ab |ng-e #[n|il "..Y.|
|00004600| 84 c2 c3 21 88 0c 08 48 | 15 08 54 10 0d c6 3d ac |...!...H|..T...=.|
|00004610| 85 0d c7 3d ab 82 c8 87 | 0d c9 3d ac 85 0d ca 3d |...=....|..=....=|
|00004620| ab 82 cb 87 0d cc 3d ac | 85 0d cd 3d ab 82 ce 87 |......=.|...=....|
|00004630| 0d cf 3d ab 83 d0 20 87 | 0d d1 3d ac 85 0d d2 3d |..=... .|..=....=|
|00004640| ab 82 d3 87 0d d4 3d ab | 83 d5 20 87 0d d6 3d ab |......=.|.. ...=.|
|00004650| 82 d7 87 0d d8 3d ab 82 | d9 87 0d da 3d ab 82 db |.....=..|....=...|
|00004660| 87 0d dc 3d ab 82 dd 87 | 0d de 3d ab 82 df 87 c2 |...=....|..=.....|
|00004670| c3 21 87 22 20 5b 69 20 | 6c 20 74 65 63 6f 2d 65 |.!." [i |l teco-e|
|00004680| 72 72 6f 72 20 22 49 53 | 53 22 20 73 20 63 20 39 |rror "IS|S" s c 9|
|00004690| 37 20 36 35 20 22 5b 41 | 2d 5a 61 2d 7a 5d 22 20 |7 65 "[A|-Za-z]" |
|000046a0| 39 39 20 36 37 20 22 5b | 41 2d 5a 61 2d 7a 2e 24 |99 67 "[|A-Za-z.$|
|000046b0| 5d 22 20 31 30 30 20 36 | 38 20 22 5b 30 2d 39 5d |]" 100 6|8 "[0-9]|
|000046c0| 22 20 31 30 33 20 74 65 | 63 6f 2d 70 61 72 73 65 |" 103 te|co-parse|
|000046d0| 2d 73 65 61 72 63 68 2d | 73 74 72 69 6e 67 2d 65 |-search-|string-e|
|000046e0| 2d 67 20 31 30 38 20 37 | 36 20 22 5b 5c 6e 0b 0c |-g 108 7|6 "[\n..|
|000046f0| 5d 22 20 31 31 33 20 74 | 65 63 6f 2d 70 61 72 73 |]" 113 t|eco-pars|
|00004700| 65 2d 73 65 61 72 63 68 | 2d 73 74 72 69 6e 67 2d |e-search|-string-|
|00004710| 65 2d 71 20 31 31 34 20 | 22 5b 41 2d 5a 61 2d 7a |e-q 114 |"[A-Za-z|
|00004720| 30 2d 39 5d 22 20 31 31 | 35 20 22 5b 20 09 5d 2b |0-9]" 11|5 "[ .]+|
|00004730| 22 20 31 31 38 20 22 5b | 61 2d 7a 5d 22 20 31 31 |" 118 "[|a-z]" 11|
|00004740| 39 20 22 5b 41 2d 5a 5d | 22 20 31 32 30 20 22 5b |9 "[A-Z]|" 120 "[|
|00004750| 00 2d ff 5d 22 5d 20 32 | 5d 20 74 65 63 6f 2d 70 |.-.]"] 2|] teco-p|
|00004760| 61 72 73 65 2d 73 65 61 | 72 63 68 2d 73 74 72 69 |arse-sea|rch-stri|
|00004770| 6e 67 2d 65 2d 71 20 23 | 5b 6e 69 6c 20 22 08 09 |ng-e-q #|[nil "..|
|00004780| 59 ab 84 c2 c3 21 88 0c | 08 48 15 08 54 10 c6 0e |Y....!..|.H..T...|
|00004790| 07 0d 48 21 87 22 20 5b | 69 20 6c 20 74 65 63 6f |..H!." [|i l teco|
|000047a0| 2d 65 72 72 6f 72 20 22 | 49 53 53 22 20 73 20 63 |-error "|ISS" s c|
|000047b0| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 72 65 | regexp-|quote re|
|000047c0| 63 6f 3a 71 2d 72 65 67 | 2d 74 65 78 74 5d 20 33 |co:q-reg|-text] 3|
|000047d0| 5d 20 74 65 63 6f 2d 70 | 61 72 73 65 2d 73 65 61 |] teco-p|arse-sea|
|000047e0| 72 63 68 2d 73 74 72 69 | 6e 67 2d 65 2d 67 20 23 |rch-stri|ng-e-g #|
|000047f0| 5b 6e 69 6c 20 22 08 09 | 59 ab 84 c2 c3 21 88 0c |[nil "..|Y....!..|
|00004800| 08 48 15 08 54 10 0e 06 | 0d 48 89 1e 07 47 89 1e |.H..T...|.H...G..|
|00004810| 08 c9 55 1e 5c 6e 0e 08 | cb 55 1e 0c cd ce 0e 07 |..U.\n..|.U......|
|00004820| 5c 22 1e 0f cd d0 0e 07 | 5c 22 1e 11 cd d2 0e 07 |\"......|\"......|
|00004830| 5c 22 1e 13 d4 1e 15 0e | 5c 6e ab 83 d6 aa c0 0e |\"......|\n......|
|00004840| 0c ab 85 d7 0d 21 aa b7 | cd d8 21 89 16 15 ab 92 |.....!..|..!.....|
|00004850| 0e 07 cb 0e 15 4f 0e 07 | 0e 15 54 d4 4f 50 16 07 |.....O..|..T.OP..|
|00004860| aa 66 d9 0e 13 ab 83 d2 | aa 81 da 0e 0f ab 83 db |.f......|........|
|00004870| aa 81 da 0e 07 0e 11 ab | 83 dc aa 81 da b0 05 2e |........|........|
|00004880| 08 87 22 20 5b 69 20 6c | 20 74 65 63 6f 2d 65 72 |.." [i l| teco-er|
|00004890| 72 6f 72 20 22 49 53 53 | 22 20 73 20 63 20 74 65 |ror "ISS|" s c te|
|000048a0| 63 6f 2d 71 72 65 67 2d | 74 65 78 74 20 71 20 6c |co-qreg-|text q l|
|000048b0| 65 6e 20 30 20 6e 75 6c | 6c 20 31 20 6f 6e 65 2d |en 0 nul|l 1 one-|
|000048c0| 63 68 61 72 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |char str|ing-matc|
|000048d0| 68 20 22 2d 22 20 64 61 | 73 68 2d 70 72 65 73 65 |h "-" da|sh-prese|
|000048e0| 6e 74 20 22 5c 5c 5e 22 | 20 63 61 72 65 74 2d 70 |nt "\\^"| caret-p|
|000048f0| 72 65 73 65 6e 74 20 22 | 5d 22 20 6f 75 74 62 72 |resent "|]" outbr|
|00004900| 61 63 6b 65 74 2d 70 72 | 65 73 65 6e 74 20 6e 69 |acket-pr|esent ni|
|00004910| 6c 20 70 20 22 5b 5e 00 | 2d ff 5d 22 20 74 65 63 |l p "[^.|-.]" tec|
|00004920| 6f 2d 70 61 72 73 65 2d | 73 65 61 72 63 68 2d 73 |o-parse-|search-s|
|00004930| 74 72 69 6e 67 2d 63 68 | 61 72 20 22 5e 5d 5c 5c |tring-ch|ar "^]\\|
|00004940| 5e 22 20 22 5b 22 20 22 | 22 20 22 2d 2d 2d 22 20 |^" "[" "|" "---" |
|00004950| 22 5e 22 5d 20 36 5d 20 | 74 65 63 6f 2d 70 61 72 |"^"] 6] |teco-par|
|00004960| 73 65 2d 73 65 61 72 63 | 68 2d 73 74 72 69 6e 67 |se-searc|h-string|
|00004970| 2d 6e 20 23 5b 6e 69 6c | 20 22 c0 20 89 19 c2 48 |-n #[nil| ". ...H|
|00004980| c3 55 ab a4 09 c4 48 c5 | 55 ab 95 09 47 c6 55 ab |.U....H.|U...G.U.|
|00004990| 87 c7 09 c8 48 21 aa ac | c9 09 c8 ca 4f 50 aa a4 |....H!..|....OP..|
|000049a0| cb 09 c4 ca 4f 50 aa 9c | 09 c2 48 cc 55 ab 89 cb |....OP..|..H.U...|
|000049b0| 09 c4 ca 4f cd 51 aa 8c | 09 ce 98 ab 83 cf aa 84 |...O.Q..|........|
|000049c0| cb 09 cd 51 29 87 22 20 | 5b 74 65 63 6f 2d 70 61 |...Q)." |[teco-pa|
|000049d0| 72 73 65 2d 73 65 61 72 | 63 68 2d 73 74 72 69 6e |rse-sear|ch-strin|
|000049e0| 67 2d 31 20 70 20 30 20 | 39 31 20 31 20 39 34 20 |g-1 p 0 |91 1 94 |
|000049f0| 34 20 74 65 63 6f 2d 70 | 61 72 73 65 2d 73 65 61 |4 teco-p|arse-sea|
|00004a00| 72 63 68 2d 73 74 72 69 | 6e 67 2d 63 68 61 72 20 |rch-stri|ng-char |
|00004a10| 32 20 22 5b 22 20 6e 69 | 6c 20 22 5b 5e 22 20 39 |2 "[" ni|l "[^" 9|
|00004a20| 32 20 22 5d 22 20 22 2d | 22 20 22 5b 5e 2d 2d 2d |2 "]" "-|" "[^---|
|00004a30| 5d 22 5d 20 35 5d 5d 20 | 33 29 0a 28 62 79 74 65 |]"] 5]] |3).(byte|
|00004a40| 2d 63 6f 64 65 20 22 c0 | c1 4d 88 5c 6e c3 c0 49 |-code ".|.M.\n..I|
|00004a50| 88 c4 c5 4d 88 5c 6e c6 | c4 49 88 c7 c8 4d 88 c9 |...M.\n.|.I...M..|
|00004a60| ca 4d 88 cb cc 4d 88 cd | ce 4d 88 cf d0 4d 88 d1 |.M...M..|.M...M..|
|00004a70| d2 4d 88 d3 d4 4d 88 d5 | d6 4d 88 d7 d8 4d 88 d9 |.M...M..|.M...M..|
|00004a80| da 4d 88 db dc 4d 87 22 | 20 5b 74 65 63 6f 2d 74 |.M...M."| [teco-t|
|00004a90| 79 70 65 2d 32 2d 6f 20 | 23 5b 6e 69 6c 20 22 c0 |ype-2-o |#[nil ".|
|00004aa0| 20 09 ad 81 5c 6e 1b 1c | c5 11 0b ab be 0b c6 57 | ...\n..|.......W|
|00004ab0| ab 84 c7 14 aa b5 0c c8 | 50 14 c6 1e 09 0b c6 56 |........|P......V|
|00004ac0| ab 99 ca c8 0c 0e 09 23 | 89 16 09 ab 8e 0e 09 54 |.......#|.......T|
|00004ad0| 89 16 09 ab 86 0b 53 89 | 13 aa 63 ca c8 0c 0e 09 |......S.|..c.....|
|00004ae0| 23 16 0b 0c 0e 09 0e 0b | 4f 14 29 0e 0c ab 87 0e |#.......|O.).....|
|00004af0| 0c 40 c6 48 aa 81 c6 16 | 0d c4 ce 8d 2a 87 22 20 |.@.H....|....*." |
|00004b00| 5b 74 65 63 6f 2d 67 65 | 74 2d 74 65 78 74 2d 61 |[teco-ge|t-text-a|
|00004b10| 72 67 20 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |rg teco-|exp-flag|
|00004b20| 31 20 74 65 63 6f 2d 65 | 78 70 2d 76 61 6c 31 20 |1 teco-e|xp-val1 |
|00004b30| 69 6e 64 65 78 20 6c 61 | 62 65 6c 20 6e 69 6c 20 |index la|bel nil |
|00004b40| 30 20 22 22 20 22 2c 22 | 20 70 20 73 74 72 69 6e |0 "" ","| p strin|
|00004b50| 67 2d 6d 61 74 63 68 20 | 71 20 74 65 63 6f 2d 69 |g-match |q teco-i|
|00004b60| 74 65 72 61 74 69 6f 6e | 2d 73 74 61 63 6b 20 74 |teration|-stack t|
|00004b70| 65 63 6f 2d 63 6f 6d 6d | 61 6e 64 2d 70 6f 69 6e |eco-comm|and-poin|
|00004b80| 74 65 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ter (byt|e-code "|
|00004b90| c0 c1 89 89 1a 1b 1c 1d | c6 c7 21 89 14 c8 55 ab |........|..!...U.|
|00004ba0| 85 0d 54 15 aa 72 0c c9 | 55 ab 90 0d c0 55 ab 86 |..T..r..|U....U..|
|00004bb0| ca c7 21 88 aa 62 0d 53 | 15 aa 5d 0c cb 55 ab 58 |..!..b.S|..]..U.X|
|00004bc0| cc cd 0e 0e 0e 0f 23 89 | 13 ab 4d 0e 10 0e 0e 0e |......#.|..M.....|
|00004bd0| 0f 0b 4f 98 ab 42 0b 54 | 16 0f d1 d0 c1 5c 22 88 |..O..B.T|.....\".|
|00004be0| aa 37 22 20 5b 30 20 6e | 69 6c 20 6c 20 70 20 63 |.7" [0 n|il l p c|
|00004bf0| 20 6c 65 76 65 6c 20 74 | 65 63 6f 2d 73 6b 69 70 | level t|eco-skip|
|00004c00| 74 6f 20 74 20 36 30 20 | 36 32 20 74 65 63 6f 2d |to t 60 |62 teco-|
|00004c10| 70 6f 70 2d 69 74 65 72 | 2d 73 74 61 63 6b 20 33 |pop-iter|-stack 3|
|00004c20| 33 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |3 string|-match "|
|00004c30| 21 22 20 74 65 63 6f 2d | 63 6f 6d 6d 61 6e 64 2d |!" teco-|command-|
|00004c40| 73 74 72 69 6e 67 20 74 | 65 63 6f 2d 63 6f 6d 6d |string t|eco-comm|
|00004c50| 61 6e 64 2d 70 6f 69 6e | 74 65 72 20 6c 61 62 65 |and-poin|ter labe|
|00004c60| 6c 20 74 68 72 6f 77 5d | 20 35 29 5d 20 35 5d 20 |l throw]| 5)] 5] |
|00004c70| 74 65 63 6f 2d 65 78 65 | 63 2d 32 20 31 31 31 20 |teco-exe|c-2 111 |
|00004c80| 74 65 63 6f 2d 74 79 70 | 65 2d 32 2d 61 20 23 5b |teco-typ|e-2-a #[|
|00004c90| 6e 69 6c 20 22 08 ab 9c | 09 ab 99 60 5c 6e 5c 5c |nil "...|...`\n\\|
|00004ca0| 89 1b 65 59 ab 89 0b 64 | 57 ab 84 0b 66 aa 81 c4 |..eY...d|W...f...|
|00004cb0| 12 c5 89 11 29 87 c6 c7 | 21 87 22 20 5b 74 65 63 |....)...|!." [tec|
|00004cc0| 6f 2d 65 78 70 2d 66 6c | 61 67 31 20 74 65 63 6f |o-exp-fl|ag1 teco|
|00004cd0| 2d 63 6f 6c 6f 6e 2d 66 | 6c 61 67 20 74 65 63 6f |-colon-f|lag teco|
|00004ce0| 2d 65 78 70 2d 76 61 6c | 31 20 63 68 61 72 20 2d |-exp-val|1 char -|
|00004cf0| 31 20 6e 69 6c 20 74 65 | 63 6f 2d 65 72 72 6f 72 |1 nil te|co-error|
|00004d00| 20 22 49 4c 4c 22 5d 20 | 33 5d 20 39 37 20 74 65 | "ILL"] |3] 97 te|
|00004d10| 63 6f 2d 67 65 74 2d 63 | 6f 6d 6d 61 6e 64 30 20 |co-get-c|ommand0 |
|00004d20| 23 5b 28 74 72 61 63 65 | 29 20 22 c0 19 c0 c2 c3 |#[(trace|) ".....|
|00004d30| 8f ab 7a 0c 54 14 0d ab | 84 c6 09 21 88 09 29 87 |..z.T...|...!..).|
|00004d40| 22 20 5b 6e 69 6c 20 63 | 68 61 72 20 28 62 79 74 |" [nil c|har (byt|
|00004d50| 65 2d 63 6f 64 65 20 22 | 08 09 48 89 12 87 22 20 |e-code "|..H..." |
|00004d60| 5b 74 65 63 6f 2d 63 6f | 6d 6d 61 6e 64 2d 73 74 |[teco-co|mmand-st|
|00004d70| 72 69 6e 67 20 74 65 63 | 6f 2d 63 6f 6d 6d 61 6e |ring tec|o-comman|
|00004d80| 64 2d 70 6f 69 6e 74 65 | 72 20 63 68 61 72 5d 20 |d-pointe|r char] |
|00004d90| 32 29 20 28 28 65 72 72 | 6f 72 20 28 74 65 63 6f |2) ((err|or (teco|
|00004da0| 2d 70 6f 70 2d 6d 61 63 | 72 6f 2d 73 74 61 63 6b |-pop-mac|ro-stack|
|00004db0| 29 20 6e 69 6c 29 29 20 | 74 65 63 6f 2d 63 6f 6d |) nil)) |teco-com|
|00004dc0| 6d 61 6e 64 2d 70 6f 69 | 6e 74 65 72 20 74 72 61 |mand-poi|nter tra|
|00004dd0| 63 65 20 74 65 63 6f 2d | 74 72 61 63 65 2d 74 79 |ce teco-|trace-ty|
|00004de0| 70 65 5d 20 33 5d 20 74 | 65 63 6f 2d 67 65 74 2d |pe] 3] t|eco-get-|
|00004df0| 63 6f 6d 6d 61 6e 64 20 | 23 5b 28 74 72 61 63 65 |command |#[(trace|
|00004e00| 29 20 22 c0 c1 c2 8f 1b | 0c 54 14 0d ab 84 c6 0b |) ".....|.T......|
|00004e10| 21 88 0b 29 87 22 20 5b | 6e 69 6c 20 28 61 72 65 |!..)." [|nil (are|
|00004e20| 66 20 74 65 63 6f 2d 63 | 6f 6d 6d 61 6e 64 2d 73 |f teco-c|ommand-s|
|00004e30| 74 72 69 6e 67 20 74 65 | 63 6f 2d 63 6f 6d 6d 61 |tring te|co-comma|
|00004e40| 6e 64 2d 70 6f 69 6e 74 | 65 72 29 20 28 28 65 72 |nd-point|er) ((er|
|00004e50| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00004e60| c0 09 ab 83 c2 aa 81 c3 | 21 87 22 20 5b 74 65 63 |........|!." [tec|
|00004e70| 6f 2d 65 72 72 6f 72 20 | 74 65 63 6f 2d 6d 61 63 |o-error |teco-mac|
|00004e80| 72 6f 2d 73 74 61 63 6b | 20 22 55 54 4d 22 20 22 |ro-stack| "UTM" "|
|00004e90| 55 54 43 22 5d 20 32 29 | 29 29 20 63 68 61 72 20 |UTC"] 2)|)) char |
|00004ea0| 74 65 63 6f 2d 63 6f 6d | 6d 61 6e 64 2d 70 6f 69 |teco-com|mand-poi|
|00004eb0| 6e 74 65 72 20 74 72 61 | 63 65 20 74 65 63 6f 2d |nter tra|ce teco-|
|00004ec0| 74 72 61 63 65 2d 74 79 | 70 65 5d 20 33 5d 20 74 |trace-ty|pe] 3] t|
|00004ed0| 65 63 6f 2d 70 65 65 6b | 2d 63 6f 6d 6d 61 6e 64 |eco-peek|-command|
|00004ee0| 20 23 5b 28 61 72 67 29 | 20 22 c0 c1 c2 8f 87 22 | #[(arg)| "....."|
|00004ef0| 20 5b 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 | [nil (b|yte-code|
|00004f00| 20 22 08 09 5c 6e 48 48 | 08 0b 48 3d 87 22 20 5b | "..\nHH|..H=." [|
|00004f10| 74 65 63 6f 2d 6d 61 70 | 63 68 2d 6c 20 74 65 63 |teco-map|ch-l tec|
|00004f20| 6f 2d 63 6f 6d 6d 61 6e | 64 2d 73 74 72 69 6e 67 |o-comman|d-string|
|00004f30| 20 74 65 63 6f 2d 63 6f | 6d 6d 61 6e 64 2d 70 6f | teco-co|mmand-po|
|00004f40| 69 6e 74 65 72 20 61 72 | 67 5d 20 33 29 20 28 28 |inter ar|g] 3) ((|
|00004f50| 65 72 72 6f 72 29 29 5d | 20 33 5d 20 74 65 63 6f |error))]| 3] teco|
|00004f60| 2d 67 65 74 2d 74 65 78 | 74 2d 61 72 67 20 23 5b |-get-tex|t-arg #[|
|00004f70| 28 26 6f 70 74 69 6f 6e | 61 6c 20 74 65 72 6d 2d |(&option|al term-|
|00004f80| 63 68 61 72 20 64 65 66 | 61 75 6c 74 2d 74 65 72 |char def|ault-ter|
|00004f90| 6d 2d 63 68 61 72 29 20 | 22 08 ae 8c 09 ab 85 c2 |m-char) |".......|
|00004fa0| 0b 21 aa 84 0c ae 81 c5 | 16 06 c7 16 08 c9 c7 1e |.!......|........|
|00004fb0| 5c 6e 1e 0b c2 0b 21 89 | 16 5c 6e 0e 06 55 ac 8b |\n....!.|.\n..U..|
|00004fc0| 0e 0b cc 0e 5c 6e 21 50 | 16 0b aa 6a 0e 0b 2a 87 |....\n!P|...j..*.|
|00004fd0| 22 20 5b 74 65 72 6d 2d | 63 68 61 72 20 74 65 63 |" [term-|char tec|
|00004fe0| 6f 2d 61 74 2d 66 6c 61 | 67 20 74 65 63 6f 2d 67 |o-at-fla|g teco-g|
|00004ff0| 65 74 2d 63 6f 6d 6d 61 | 6e 64 20 74 65 63 6f 2d |et-comma|nd teco-|
|00005000| 74 72 61 63 65 20 64 65 | 66 61 75 6c 74 2d 74 65 |trace de|fault-te|
|00005010| 72 6d 2d 63 68 61 72 20 | 32 37 20 74 65 63 6f 2d |rm-char |27 teco-|
|00005020| 74 65 72 6d 2d 63 68 61 | 72 20 6e 69 6c 20 74 65 |term-cha|r nil te|
|00005030| 63 6f 2d 61 74 5f 66 6c | 61 67 20 22 22 20 63 20 |co-at_fl|ag "" c |
|00005040| 73 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |s char-t|o-string|
|00005050| 5d 20 34 5d 20 74 65 63 | 6f 2d 70 6f 70 2d 6d 61 |] 4] tec|o-pop-ma|
|00005060| 63 72 6f 2d 73 74 61 63 | 6b 20 23 5b 6e 69 6c 20 |cro-stac|k #[nil |
|00005070| 22 08 ab a0 08 40 19 08 | 41 10 09 c2 48 13 09 c4 |"....@..|A...H...|
|00005080| 48 15 09 c6 48 16 07 09 | c8 48 16 09 09 ca 48 89 |H...H...|.H....H.|
|00005090| 16 0b 29 87 cc cd ce 5c | 22 87 22 20 5b 74 65 63 |..)....\|"." [tec|
|000050a0| 6f 2d 6d 61 63 72 6f 2d | 73 74 61 63 6b 20 66 72 |o-macro-|stack fr|
|000050b0| 61 6d 65 20 30 20 74 65 | 63 6f 2d 63 6f 6d 6d 61 |ame 0 te|co-comma|
|000050c0| 6e 64 2d 73 74 72 69 6e | 67 20 31 20 74 65 63 6f |nd-strin|g 1 teco|
|000050d0| 2d 63 6f 6d 6d 61 6e 64 | 2d 70 6f 69 6e 74 65 72 |-command|-pointer|
|000050e0| 20 32 20 74 65 63 6f 2d | 65 78 65 63 2d 66 6c 61 | 2 teco-|exec-fla|
|000050f0| 67 73 20 33 20 74 65 63 | 6f 2d 69 74 65 72 61 74 |gs 3 tec|o-iterat|
|00005100| 69 6f 6e 2d 73 74 61 63 | 6b 20 34 20 74 65 63 6f |ion-stac|k 4 teco|
|00005110| 2d 63 6f 6e 64 2d 73 74 | 61 63 6b 20 74 68 72 6f |-cond-st|ack thro|
|00005120| 77 20 74 65 63 6f 2d 65 | 78 69 74 20 6e 69 6c 5d |w teco-e|xit nil]|
|00005130| 20 33 5d 20 74 65 63 6f | 2d 70 75 73 68 2d 6d 61 | 3] teco|-push-ma|
|00005140| 63 72 6f 2d 73 74 61 63 | 6b 20 23 5b 6e 69 6c 20 |cro-stac|k #[nil |
|00005150| 22 c0 09 5c 6e 0b 0c 0d | 25 0e 06 42 89 16 06 87 |"..\n...|%..B....|
|00005160| 22 20 5b 76 65 63 74 6f | 72 20 74 65 63 6f 2d 63 |" [vecto|r teco-c|
|00005170| 6f 6d 6d 61 6e 64 2d 73 | 74 72 69 6e 67 20 74 65 |ommand-s|tring te|
|00005180| 63 6f 2d 63 6f 6d 6d 61 | 6e 64 2d 70 6f 69 6e 74 |co-comma|nd-point|
|00005190| 65 72 20 74 65 63 6f 2d | 65 78 65 63 2d 66 6c 61 |er teco-|exec-fla|
|000051a0| 67 73 20 74 65 63 6f 2d | 69 74 65 72 61 74 69 6f |gs teco-|iteratio|
|000051b0| 6e 2d 73 74 61 63 6b 20 | 74 65 63 6f 2d 63 6f 6e |n-stack |teco-con|
|000051c0| 64 2d 73 74 61 63 6b 20 | 74 65 63 6f 2d 6d 61 63 |d-stack |teco-mac|
|000051d0| 72 6f 2d 73 74 61 63 6b | 5d 20 36 5d 20 74 65 63 |ro-stack|] 6] tec|
|000051e0| 6f 2d 70 6f 70 2d 65 78 | 70 2d 73 74 61 63 6b 20 |o-pop-ex|p-stack |
|000051f0| 23 5b 6e 69 6c 20 22 08 | 40 19 08 41 10 09 c2 48 |#[nil ".|@..A...H|
|00005200| 13 09 c4 48 15 09 c6 48 | 16 07 09 c8 48 16 09 09 |...H...H|....H...|
|00005210| ca 48 16 0b 09 cc 48 89 | 16 0d 29 87 22 20 5b 74 |.H....H.|..)." [t|
|00005220| 65 63 6f 2d 65 78 70 2d | 73 74 61 63 6b 20 66 72 |eco-exp-|stack fr|
|00005230| 61 6d 65 20 30 20 74 65 | 63 6f 2d 65 78 70 2d 76 |ame 0 te|co-exp-v|
|00005240| 61 6c 31 20 31 20 74 65 | 63 6f 2d 65 78 70 2d 66 |al1 1 te|co-exp-f|
|00005250| 6c 61 67 31 20 32 20 74 | 65 63 6f 2d 65 78 70 2d |lag1 2 t|eco-exp-|
|00005260| 76 61 6c 32 20 33 20 74 | 65 63 6f 2d 65 78 70 2d |val2 3 t|eco-exp-|
|00005270| 66 6c 61 67 32 20 34 20 | 74 65 63 6f 2d 65 78 70 |flag2 4 |teco-exp|
|00005280| 2d 65 78 70 20 35 20 74 | 65 63 6f 2d 65 78 70 2d |-exp 5 t|eco-exp-|
|00005290| 6f 70 5d 20 32 5d 20 74 | 65 63 6f 2d 70 75 73 68 |op] 2] t|eco-push|
|000052a0| 2d 65 78 70 2d 73 74 61 | 63 6b 20 23 5b 6e 69 6c |-exp-sta|ck #[nil|
|000052b0| 20 22 c0 09 5c 6e 0b 0c | 0d 0e 06 26 06 0e 07 42 | "..\n..|...&...B|
|000052c0| 89 16 07 87 22 20 5b 76 | 65 63 74 6f 72 20 74 65 |...." [v|ector te|
|000052d0| 63 6f 2d 65 78 70 2d 76 | 61 6c 31 20 74 65 63 6f |co-exp-v|al1 teco|
|000052e0| 2d 65 78 70 2d 66 6c 61 | 67 31 20 74 65 63 6f 2d |-exp-fla|g1 teco-|
|000052f0| 65 78 70 2d 76 61 6c 32 | 20 74 65 63 6f 2d 65 78 |exp-val2| teco-ex|
|00005300| 70 2d 66 6c 61 67 32 20 | 74 65 63 6f 2d 65 78 70 |p-flag2 |teco-exp|
|00005310| 2d 65 78 70 20 74 65 63 | 6f 2d 65 78 70 2d 6f 70 |-exp tec|o-exp-op|
|00005320| 20 74 65 63 6f 2d 65 78 | 70 2d 73 74 61 63 6b 5d | teco-ex|p-stack]|
|00005330| 20 37 5d 20 74 65 63 6f | 2d 70 6f 70 2d 69 74 65 | 7] teco|-pop-ite|
|00005340| 72 2d 73 74 61 63 6b 20 | 23 5b 28 61 72 67 29 20 |r-stack |#[(arg) |
|00005350| 22 08 40 19 5c 6e ac 8c | 09 c3 48 ab 87 09 c4 48 |".@.\n..|..H....H|
|00005360| c3 58 ab 86 08 41 89 10 | aa 8e 09 c4 09 c4 48 53 |.X...A..|......HS|
|00005370| 49 88 09 c5 48 89 16 06 | 29 87 22 20 5b 74 65 63 |I...H...|)." [tec|
|00005380| 6f 2d 69 74 65 72 61 74 | 69 6f 6e 2d 73 74 61 63 |o-iterat|ion-stac|
|00005390| 6b 20 66 72 61 6d 65 20 | 61 72 67 20 31 20 32 20 |k frame |arg 1 2 |
|000053a0| 30 20 74 65 63 6f 2d 63 | 6f 6d 6d 61 6e 64 2d 70 |0 teco-c|ommand-p|
|000053b0| 6f 69 6e 74 65 72 5d 20 | 34 5d 20 74 65 63 6f 2d |ointer] |4] teco-|
|000053c0| 70 75 73 68 2d 69 74 65 | 72 2d 73 74 61 63 6b 20 |push-ite|r-stack |
|000053d0| 23 5b 28 70 6f 69 6e 74 | 65 72 20 66 6c 61 67 20 |#[(point|er flag |
|000053e0| 63 6f 75 6e 74 29 20 22 | c0 09 5c 6e 0b 23 0c 42 |count) "|..\n.#.B|
|000053f0| 89 14 87 22 20 5b 76 65 | 63 74 6f 72 20 70 6f 69 |..." [ve|ctor poi|
|00005400| 6e 74 65 72 20 66 6c 61 | 67 20 63 6f 75 6e 74 20 |nter fla|g count |
|00005410| 74 65 63 6f 2d 69 74 65 | 72 61 74 69 6f 6e 2d 73 |teco-ite|ration-s|
|00005420| 74 61 63 6b 5d 20 34 5d | 20 74 65 63 6f 2d 66 69 |tack] 4]| teco-fi|
|00005430| 6e 64 2d 65 6e 64 69 74 | 65 72 20 23 5b 6e 69 6c |nd-endit|er #[nil|
|00005440| 20 22 c0 c1 1a 1b 0b c4 | 56 ad 9c c5 20 89 12 c6 | "......|V... ...|
|00005450| 55 ac 73 5c 6e c7 55 ac | 6e 5c 6e c6 55 ab 85 0b |U.s\n.U.|n\n.U...|
|00005460| 54 13 aa 69 0b 53 13 aa | 64 2a 87 22 20 5b 31 20 |T..i.S..|d*." [1 |
|00005470| 6e 69 6c 20 63 20 69 63 | 6e 74 20 30 20 74 65 63 |nil c ic|nt 0 tec|
|00005480| 6f 2d 73 6b 69 70 74 6f | 20 36 30 20 36 32 5d 20 |o-skipto| 60 62] |
|00005490| 33 5d 5d 20 33 29 0a 28 | 64 65 66 76 61 72 20 74 |3]] 3).(|defvar t|
|000054a0| 65 63 6f 2d 6f 75 74 70 | 75 74 2d 62 75 66 66 65 |eco-outp|ut-buffe|
|000054b0| 72 20 28 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |r (get-b|uffer-cr|
|000054c0| 65 61 74 65 20 22 2a 54 | 65 63 6f 20 4f 75 74 70 |eate "*T|eco Outp|
|000054d0| 75 74 2a 22 29 20 22 5c | 0a 54 68 65 20 62 75 66 |ut*") "\|.The buf|
|000054e0| 66 65 72 20 69 6e 74 6f | 20 77 68 69 63 68 20 54 |fer into| which T|
|000054f0| 65 63 6f 20 6f 75 74 70 | 75 74 20 69 73 20 77 72 |eco outp|ut is wr|
|00005500| 69 74 74 65 6e 2e 22 29 | 0a 28 62 79 74 65 2d 63 |itten.")|.(byte-c|
|00005510| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|00005520| 88 c6 c7 4d 88 c8 c9 4d | 88 ca cb 4d 88 cc cd 4d |...M...M|...M...M|
|00005530| 88 ce cf 4d 88 d0 d1 4d | 88 d2 d3 4d 88 d4 d5 4d |...M...M|...M...M|
|00005540| 87 22 20 5b 74 65 63 6f | 2d 6f 75 74 2d 69 6e 69 |." [teco|-out-ini|
|00005550| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 12 8a 5c 6e |t #[nil |"..!..\n|
|00005560| 71 88 64 62 88 c3 63 88 | 60 14 c5 8b 88 c6 5c 6e |q.db..c.|`.....\n|
|00005570| 21 89 1e 07 ad 8b c8 0e | 07 0c 5c 22 88 c9 0e 07 |!.......|..\"....|
|00005580| 0c 5c 22 2a 87 22 20 5b | 67 65 74 2d 62 75 66 66 |.\"*." [|get-buff|
|00005590| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 54 65 63 6f |er-creat|e "*Teco|
|000055a0| 20 4f 75 74 70 75 74 2a | 22 20 74 65 63 6f 2d 6f | Output*|" teco-o|
|000055b0| 75 74 70 75 74 2d 62 75 | 66 66 65 72 20 31 30 20 |utput-bu|ffer 10 |
|000055c0| 74 65 63 6f 2d 6f 75 74 | 70 75 74 2d 73 74 61 72 |teco-out|put-star|
|000055d0| 74 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |t ((byte|-code ".|
|000055e0| c1 20 21 88 c2 20 87 22 | 20 5b 73 65 6c 65 63 74 |. !.. ."| [select|
|000055f0| 2d 77 69 6e 64 6f 77 20 | 6d 69 6e 69 62 75 66 66 |-window |minibuff|
|00005600| 65 72 2d 77 69 6e 64 6f | 77 20 65 72 61 73 65 2d |er-windo|w erase-|
|00005610| 62 75 66 66 65 72 5d 20 | 32 29 29 20 67 65 74 2d |buffer] |2)) get-|
|00005620| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 20 77 20 |buffer-w|indow w |
|00005630| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 73 74 61 72 74 |set-wind|ow-start|
|00005640| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 70 6f 69 6e | set-win|dow-poin|
|00005650| 74 5d 20 34 5d 20 74 65 | 63 6f 2d 6f 75 74 70 75 |t] 4] te|co-outpu|
|00005660| 74 20 23 5b 28 73 29 20 | 22 c0 09 21 70 c2 20 1b |t #[(s) |"..!p. .|
|00005670| 1c 1d 09 71 88 64 62 88 | 0e 06 63 88 60 1e 07 0c |...q.db.|..c.`...|
|00005680| 71 88 0d ab 87 c8 0d 0e | 07 5c 22 aa b3 8a 09 71 |q.......|.\"....q|
|00005690| 88 c9 ca 21 88 cb cc 0e | 0d ce 23 29 ab a0 cf 8b |...!....|..#)....|
|000056a0| 88 ce 1e 10 d1 09 21 88 | 0e 07 62 88 d2 0d 0e 0d |......!.|..b.....|
|000056b0| 5c 22 88 c8 0d 0e 07 5c | 22 88 d3 0b 21 29 aa 82 |\".....\|"...!)..|
|000056c0| d4 8b 2c 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |..,." [g|et-buffe|
|000056d0| 72 2d 77 69 6e 64 6f 77 | 20 74 65 63 6f 2d 6f 75 |r-window| teco-ou|
|000056e0| 74 70 75 74 2d 62 75 66 | 66 65 72 20 73 65 6c 65 |tput-buf|fer sele|
|000056f0| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 73 77 20 62 |cted-win|dow sw b|
|00005700| 20 77 20 73 20 70 20 73 | 65 74 2d 77 69 6e 64 6f | w s p s|et-windo|
|00005710| 77 2d 70 6f 69 6e 74 20 | 62 61 63 6b 77 61 72 64 |w-point |backward|
|00005720| 2d 63 68 61 72 20 31 20 | 73 65 61 72 63 68 2d 62 |-char 1 |search-b|
|00005730| 61 63 6b 77 61 72 64 20 | 22 5c 6e 22 20 74 65 63 |ackward |"\n" tec|
|00005740| 6f 2d 6f 75 74 70 75 74 | 2d 73 74 61 72 74 20 74 |o-output|-start t|
|00005750| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|00005760| 20 21 88 c2 20 87 22 20 | 5b 73 65 6c 65 63 74 2d | !.. ." |[select-|
|00005770| 77 69 6e 64 6f 77 20 6d | 69 6e 69 62 75 66 66 65 |window m|inibuffe|
|00005780| 72 2d 77 69 6e 64 6f 77 | 20 65 72 61 73 65 2d 62 |r-window| erase-b|
|00005790| 75 66 66 65 72 5d 20 32 | 29 29 20 70 6f 70 2d 75 |uffer] 2|)) pop-u|
|000057a0| 70 2d 77 69 6e 64 6f 77 | 73 20 70 6f 70 2d 74 6f |p-window|s pop-to|
|000057b0| 2d 62 75 66 66 65 72 20 | 73 65 74 2d 77 69 6e 64 |-buffer |set-wind|
|000057c0| 6f 77 2d 73 74 61 72 74 | 20 73 65 6c 65 63 74 2d |ow-start| select-|
|000057d0| 77 69 6e 64 6f 77 20 28 | 28 62 79 74 65 2d 63 6f |window (|(byte-co|
|000057e0| 64 65 20 22 c0 c1 20 21 | 88 64 62 88 5c 6e 63 87 |de ".. !|.db.\nc.|
|000057f0| 22 20 5b 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 |" [selec|t-window|
|00005800| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 77 69 6e 64 | minibuf|fer-wind|
|00005810| 6f 77 20 73 5d 20 32 29 | 29 5d 20 34 5d 20 74 65 |ow s] 2)|)] 4] te|
|00005820| 63 6f 2d 74 72 61 63 65 | 2d 74 79 70 65 20 23 5b |co-trace|-type #[|
|00005830| 28 63 29 20 22 c0 09 c2 | 55 ab 83 c3 aa 81 09 21 |(c) "...|U......!|
|00005840| 87 22 20 5b 74 65 63 6f | 2d 6f 75 74 70 75 74 20 |." [teco|-output |
|00005850| 63 20 32 37 20 33 36 5d | 20 33 5d 20 74 65 63 6f |c 27 36]| 3] teco|
|00005860| 2d 65 72 72 6f 72 20 23 | 5b 28 63 6f 64 65 29 20 |-error #|[(code) |
|00005870| 22 c0 09 5c 6e 5c 22 41 | 1b c4 8a 0d 71 88 60 0e |"..\n\"A|....q.`.|
|00005880| 06 55 29 ac 83 c7 aa 81 | c8 c9 09 ca 0b b0 05 21 |.U).....|.......!|
|00005890| 88 cb 20 88 0e 0c ab 86 | cd ce 09 0b 23 88 cf d0 |.. .....|....#...|
|000058a0| ce 5c 22 29 87 22 20 5b | 61 73 73 6f 63 20 63 6f |.\")." [|assoc co|
|000058b0| 64 65 20 74 65 63 6f 2d | 65 72 72 6f 72 2d 74 65 |de teco-|error-te|
|000058c0| 78 74 73 20 74 65 78 74 | 20 74 65 63 6f 2d 6f 75 |xts text| teco-ou|
|000058d0| 74 70 75 74 20 74 65 63 | 6f 2d 6f 75 74 70 75 74 |tput tec|o-output|
|000058e0| 2d 62 75 66 66 65 72 20 | 74 65 63 6f 2d 6f 75 74 |-buffer |teco-out|
|000058f0| 70 75 74 2d 73 74 61 72 | 74 20 22 5c 6e 22 20 22 |put-star|t "\n" "|
|00005900| 22 20 22 3f 20 22 20 22 | 20 22 20 62 65 65 70 20 |" "? " "| " beep |
|00005910| 64 65 62 75 67 2d 6f 6e | 2d 65 72 72 6f 72 20 64 |debug-on|-error d|
|00005920| 65 62 75 67 20 6e 69 6c | 20 74 68 72 6f 77 20 74 |ebug nil| throw t|
|00005930| 65 63 6f 2d 65 78 69 74 | 5d 20 36 5d 20 74 65 63 |eco-exit|] 6] tec|
|00005940| 6f 2d 6d 6f 76 65 75 6e | 74 69 6c 20 23 5b 28 73 |o-moveun|til #[(s|
|00005950| 74 72 69 6e 67 20 70 6f | 69 6e 74 65 72 20 74 65 |tring po|inter te|
|00005960| 72 6d 69 6e 61 74 65 20 | 74 72 61 63 65 29 20 22 |rminate |trace) "|
|00005970| c0 19 c2 c3 c4 8f 88 09 | 29 87 22 20 5b 30 20 63 |........|)." [0 c|
|00005980| 6f 75 6e 74 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |ount nil| (byte-c|
|00005990| 6f 64 65 20 22 08 09 48 | 5c 6e 55 ac 96 0b ab 86 |ode "..H|\nU.....|
|000059a0| c4 08 09 48 21 88 08 09 | 48 63 88 09 54 11 0d 54 |...H!...|Hc..T..T|
|000059b0| 15 aa 63 c4 87 22 20 5b | 73 74 72 69 6e 67 20 70 |..c.." [|string p|
|000059c0| 6f 69 6e 74 65 72 20 74 | 65 72 6d 69 6e 61 74 65 |ointer t|erminate|
|000059d0| 20 74 65 63 6f 2d 74 72 | 61 63 65 20 74 65 63 6f | teco-tr|ace teco|
|000059e0| 2d 74 72 61 63 65 2d 74 | 79 70 65 20 63 6f 75 6e |-trace-t|ype coun|
|000059f0| 74 5d 20 33 29 20 28 28 | 65 72 72 6f 72 20 28 62 |t] 3) ((|error (b|
|00005a00| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 ab 83 c2 aa |yte-code| "......|
|00005a10| 81 c3 21 87 22 20 5b 74 | 65 63 6f 2d 65 72 72 6f |..!." [t|eco-erro|
|00005a20| 72 20 74 65 63 6f 2d 6d | 61 63 72 6f 2d 73 74 61 |r teco-m|acro-sta|
|00005a30| 63 6b 20 22 55 54 4d 22 | 20 22 55 54 43 22 5d 20 |ck "UTM"| "UTC"] |
|00005a40| 32 29 29 29 5d 20 33 5d | 20 74 65 63 6f 2d 67 65 |2)))] 3]| teco-ge|
|00005a50| 74 2d 71 73 70 65 63 20 | 23 5b 28 66 69 6c 65 2d |t-qspec |#[(file-|
|00005a60| 6f 72 2d 73 65 61 72 63 | 68 20 63 68 61 72 29 20 |or-searc|h char) |
|00005a70| 22 08 09 48 11 c2 0b 09 | 48 0c ab 83 c5 aa 81 c6 |"..H....|H.......|
|00005a80| 5c 22 c7 55 ab 84 c8 c9 | 21 88 09 87 22 20 5b 74 |\".U....|!..." [t|
|00005a90| 65 63 6f 2d 6d 61 70 63 | 68 2d 6c 20 63 68 61 72 |eco-mapc|h-l char|
|00005aa0| 20 6c 6f 67 61 6e 64 20 | 74 65 63 6f 2d 71 73 70 | logand |teco-qsp|
|00005ab0| 65 63 2d 76 61 6c 69 64 | 20 66 69 6c 65 2d 6f 72 |ec-valid| file-or|
|00005ac0| 2d 73 65 61 72 63 68 20 | 32 20 31 20 30 20 74 65 |-search |2 1 0 te|
|00005ad0| 63 6f 2d 65 72 72 6f 72 | 20 22 49 51 4e 22 5d 20 |co-error| "IQN"] |
|00005ae0| 33 5d 20 74 65 63 6f 2d | 73 65 74 2d 76 61 72 20 |3] teco-|set-var |
|00005af0| 23 5b 28 76 61 72 29 20 | 22 08 ab 9f 09 ab 91 5c |#[(var) |"......\|
|00005b00| 6e c3 c4 5c 6e 4a c5 0e | 06 21 5c 22 0e 07 5c 22 |n..\nJ..|.!\"..\"|
|00005b10| 4c 88 aa 85 5c 6e 0e 07 | 4c 88 c8 11 c8 89 10 87 |L...\n..|L.......|
|00005b20| 5c 6e 4a 16 07 c9 89 10 | 87 22 20 5b 74 65 63 6f |\nJ.....|." [teco|
|00005b30| 2d 65 78 70 2d 66 6c 61 | 67 31 20 74 65 63 6f 2d |-exp-fla|g1 teco-|
|00005b40| 65 78 70 2d 66 6c 61 67 | 32 20 76 61 72 20 6c 6f |exp-flag|2 var lo|
|00005b50| 67 69 6f 72 20 6c 6f 67 | 61 6e 64 20 6c 6f 67 6e |gior log|and logn|
|00005b60| 6f 74 20 74 65 63 6f 2d | 65 78 70 2d 76 61 6c 32 |ot teco-|exp-val2|
|00005b70| 20 74 65 63 6f 2d 65 78 | 70 2d 76 61 6c 31 20 6e | teco-ex|p-val1 n|
|00005b80| 69 6c 20 74 5d 20 36 5d | 20 74 65 63 6f 2d 67 65 |il t] 6]| teco-ge|
|00005b90| 74 2d 76 61 6c 75 65 20 | 23 5b 28 64 65 66 61 75 |t-value |#[(defau|
|00005ba0| 6c 74 29 20 22 08 ab 83 | 09 aa 8a 5c 6e c3 3d ab |lt) "...|...\n.=.|
|00005bb0| 84 0c 5b aa 81 0c c5 10 | c6 12 87 22 20 5b 74 65 |..[.....|..." [te|
|00005bc0| 63 6f 2d 65 78 70 2d 66 | 6c 61 67 31 20 74 65 63 |co-exp-f|lag1 tec|
|00005bd0| 6f 2d 65 78 70 2d 76 61 | 6c 31 20 74 65 63 6f 2d |o-exp-va|l1 teco-|
|00005be0| 65 78 70 2d 6f 70 20 73 | 75 62 20 64 65 66 61 75 |exp-op s|ub defau|
|00005bf0| 6c 74 20 6e 69 6c 20 73 | 74 61 72 74 5d 20 32 5d |lt nil s|tart] 2]|
|00005c00| 20 74 65 63 6f 2d 6c 69 | 6e 65 73 20 23 5b 28 72 | teco-li|nes #[(r|
|00005c10| 29 20 22 8a 08 c1 56 ab | 8e c2 c3 c4 c5 08 24 ab |) "...V.|......$.|
|00005c20| 83 60 aa 92 64 aa 8f c6 | c3 c4 c5 c7 08 5a 24 ab |.`..d...|.....Z$.|
|00005c30| 84 60 54 aa 81 65 29 60 | 5a 87 22 20 5b 72 20 30 |.`T..e)`|Z." [r 0|
|00005c40| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00005c50| 22 5c 6e 22 20 6e 69 6c | 20 74 20 73 65 61 72 63 |"\n" nil| t searc|
|00005c60| 68 2d 62 61 63 6b 77 61 | 72 64 20 31 5d 20 36 5d |h-backwa|rd 1] 6]|
|00005c70| 20 74 65 63 6f 2d 6c 69 | 6e 65 2d 61 72 67 73 20 | teco-li|ne-args |
|00005c80| 23 5b 28 61 72 67 29 20 | 22 08 ab 84 09 5c 6e 42 |#[(arg) |"....\nB|
|00005c90| 87 60 60 c3 0c ab 83 09 | aa 81 c5 21 5c 5c 42 87 |.``.....|...!\\B.|
|00005ca0| 22 20 5b 74 65 63 6f 2d | 65 78 70 2d 66 6c 61 67 |" [teco-|exp-flag|
|00005cb0| 32 20 74 65 63 6f 2d 65 | 78 70 2d 76 61 6c 31 20 |2 teco-e|xp-val1 |
|00005cc0| 74 65 63 6f 2d 65 78 70 | 2d 76 61 6c 32 20 74 65 |teco-exp|-val2 te|
|00005cd0| 63 6f 2d 6c 69 6e 65 73 | 20 74 65 63 6f 2d 65 78 |co-lines| teco-ex|
|00005ce0| 70 2d 66 6c 61 67 31 20 | 31 5d 20 34 5d 20 74 65 |p-flag1 |1] 4] te|
|00005cf0| 63 6f 2d 73 6b 69 70 74 | 6f 20 23 5b 28 26 6f 70 |co-skipt|o #[(&op|
|00005d00| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 c1 8d |tional a|rg) "...|
|00005d10| 87 22 20 5b 74 65 63 6f | 2d 73 6b 69 70 20 28 62 |." [teco|-skip (b|
|00005d20| 79 74 65 2d 63 6f 64 65 | 20 22 c0 89 89 89 19 1a |yte-code| "......|
|00005d30| 1b 1c c5 c0 21 11 0e 06 | 09 48 13 09 c7 3d ab 8c |....!...|.H...=..|
|00005d40| c8 c5 c0 21 c9 5c 22 11 | 0e 06 09 48 13 c8 0b ca |...!.\".|...H....|
|00005d50| 5c 22 cb 55 ac 5e c8 0b | cc 5c 22 cb 55 ac 84 c5 |\".U.^..|.\".U...|
|00005d60| c0 21 88 c8 0b cd 5c 22 | cb 55 ac 8e 09 ce 55 ab |.!....\"|.U....U.|
|00005d70| 84 c5 c0 21 88 cf d0 09 | 5c 22 88 c8 0b d1 5c 22 |...!....|\"....\"|
|00005d80| cb 55 ac c3 09 d2 3d ab | 84 d3 14 aa ba 09 d4 3d |.U....=.|.......=|
|00005d90| ab 86 c5 c0 21 88 aa af | 09 d1 3d ab 95 0c ab 85 |....!...|..=.....|
|00005da0| c5 c0 21 aa 81 d1 12 c0 | 14 c5 c0 21 5c 6e 55 ab |..!.....|...!\nU.|
|00005db0| 79 aa 95 09 d5 3d ab 90 | 0e 16 ab 85 cf d0 09 5c |y....=..|.......\|
|00005dc0| 22 88 c5 c0 21 d5 55 ab | 79 c8 0b d7 5c 22 cb 55 |"...!.U.|y...\".U|
|00005dd0| 84 08 00 0c ab 85 c5 c0 | 21 aa 81 d8 12 c0 14 c5 |........|!.......|
|00005de0| c0 21 5c 6e 55 ab 79 82 | 08 00 22 20 5b 6e 69 6c |.!\nU.y.|.." [nil|
|00005df0| 20 73 6b 69 70 63 20 74 | 65 72 6d 20 74 61 20 61 | skipc t|erm ta a|
|00005e00| 74 73 77 20 74 65 63 6f | 2d 67 65 74 2d 63 6f 6d |tsw teco|-get-com|
|00005e10| 6d 61 6e 64 20 74 65 63 | 6f 2d 73 70 65 63 2d 63 |mand tec|o-spec-c|
|00005e20| 68 61 72 73 20 39 34 20 | 6c 6f 67 61 6e 64 20 33 |hars 94 |logand 3|
|00005e30| 31 20 35 31 20 30 20 33 | 32 20 31 36 20 33 34 20 |1 51 0 3|2 16 34 |
|00005e40| 74 68 72 6f 77 20 74 65 | 63 6f 2d 73 6b 69 70 20 |throw te|co-skip |
|00005e50| 31 20 36 34 20 74 20 33 | 30 20 33 33 20 61 72 67 |1 64 t 3|0 33 arg|
|00005e60| 20 32 20 32 37 5d 20 34 | 29 5d 20 32 5d 5d 20 32 | 2 27] 4|)] 2]] 2|
|00005e70| 29 0a 28 64 65 66 76 61 | 72 20 74 65 63 6f 2d 63 |).(defva|r teco-c|
|00005e80| 6f 6d 6d 61 6e 64 2d 6b | 65 79 6d 61 70 20 28 6d |ommand-k|eymap (m|
|00005e90| 61 6b 65 2d 76 65 63 74 | 6f 72 20 31 32 38 20 27 |ake-vect|or 128 '|
|00005ea0| 74 65 63 6f 2d 63 6f 6d | 6d 61 6e 64 2d 73 65 6c |teco-com|mand-sel|
|00005eb0| 66 2d 69 6e 73 65 72 74 | 29 20 22 5c 0a 4b 65 79 |f-insert|) "\.Key|
|00005ec0| 6d 61 70 20 75 73 65 64 | 20 77 68 69 6c 65 20 72 |map used| while r|
|00005ed0| 65 61 64 69 6e 67 20 74 | 65 63 6f 20 63 6f 6d 6d |eading t|eco comm|
|00005ee0| 61 6e 64 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ands.").|(byte-co|
|00005ef0| 64 65 20 22 c0 09 c2 c3 | 23 88 c0 09 c4 c5 23 88 |de "....|#.....#.|
|00005f00| c0 09 c6 c7 23 88 c0 09 | c8 c9 23 88 c0 09 ca cb |....#...|..#.....|
|00005f10| 23 87 22 20 5b 64 65 66 | 69 6e 65 2d 6b 65 79 20 |#." [def|ine-key |
|00005f20| 74 65 63 6f 2d 63 6f 6d | 6d 61 6e 64 2d 6b 65 79 |teco-com|mand-key|
|00005f30| 6d 61 70 20 22 07 22 20 | 74 65 63 6f 2d 63 6f 6d |map "." |teco-com|
|00005f40| 6d 61 6e 64 2d 63 74 72 | 6c 2d 67 20 22 0d 22 20 |mand-ctr|l-g "." |
|00005f50| 74 65 63 6f 2d 63 6f 6d | 6d 61 6e 64 2d 72 65 74 |teco-com|mand-ret|
|00005f60| 75 72 6e 20 22 15 22 20 | 74 65 63 6f 2d 63 6f 6d |urn "." |teco-com|
|00005f70| 6d 61 6e 64 2d 63 74 72 | 6c 2d 75 20 22 1b 22 20 |mand-ctr|l-u "." |
|00005f80| 74 65 63 6f 2d 63 6f 6d | 6d 61 6e 64 2d 65 73 63 |teco-com|mand-esc|
|00005f90| 61 70 65 20 22 7f 22 20 | 74 65 63 6f 2d 63 6f 6d |ape "." |teco-com|
|00005fa0| 6d 61 6e 64 2d 64 65 6c | 65 74 65 5d 20 34 29 0a |mand-del|ete] 4).|
|00005fb0| 28 64 65 66 76 61 72 20 | 74 65 63 6f 2d 63 6f 6d |(defvar |teco-com|
|00005fc0| 6d 61 6e 64 2d 65 73 63 | 61 70 65 73 20 6e 69 6c |mand-esc|apes nil|
|00005fd0| 20 22 5c 0a 52 65 63 6f | 72 64 73 20 77 68 65 72 | "\.Reco|rds wher|
|00005fe0| 65 20 45 53 43 73 20 61 | 72 65 2c 20 73 69 6e 63 |e ESCs a|re, sinc|
|00005ff0| 65 20 74 68 65 79 20 61 | 72 65 20 72 65 70 72 65 |e they a|re repre|
|00006000| 73 65 6e 74 65 64 20 69 | 6e 20 74 68 65 20 63 6f |sented i|n the co|
|00006010| 6d 6d 61 6e 64 20 62 75 | 66 66 65 72 0a 62 79 20 |mmand bu|ffer.by |
|00006020| 24 2e 22 29 0a 28 66 73 | 65 74 20 27 74 65 63 6f |$.").(fs|et 'teco|
|00006030| 2d 63 6f 6d 6d 61 6e 64 | 20 23 5b 6e 69 6c 20 22 |-command| #[nil "|
|00006040| c0 19 c2 c3 8d 89 1c ad | a6 09 ab 8c 0c 09 40 c5 |........|......@.|
|00006050| 49 88 09 41 89 11 ac 74 | c6 c7 21 16 08 8a 0e 08 |I..A...t|..!.....|
|00006060| 71 88 64 62 88 0e 09 0c | b1 02 88 29 ca 0c 21 2a |q.db....|...)..!*|
|00006070| 87 22 20 5b 6e 69 6c 20 | 74 65 63 6f 2d 63 6f 6d |." [nil |teco-com|
|00006080| 6d 61 6e 64 2d 65 73 63 | 61 70 65 73 20 74 65 63 |mand-esc|apes tec|
|00006090| 6f 2d 63 6f 6d 6d 61 6e | 64 2d 71 75 69 74 20 28 |o-comman|d-quit (|
|000060a0| 72 65 61 64 2d 66 72 6f | 6d 2d 6d 69 6e 69 62 75 |read-fro|m-minibu|
|000060b0| 66 66 65 72 20 74 65 63 | 6f 2d 70 72 6f 6d 70 74 |ffer tec|o-prompt|
|000060c0| 20 6e 69 6c 20 74 65 63 | 6f 2d 63 6f 6d 6d 61 6e | nil tec|o-comman|
|000060d0| 64 2d 6b 65 79 6d 61 70 | 29 20 63 6f 6d 6d 61 6e |d-keymap|) comman|
|000060e0| 64 20 32 37 20 67 65 74 | 2d 62 75 66 66 65 72 2d |d 27 get|-buffer-|
|000060f0| 63 72 65 61 74 65 20 22 | 2a 54 65 63 6f 20 4f 75 |create "|*Teco Ou|
|00006100| 74 70 75 74 2a 22 20 74 | 65 63 6f 2d 6f 75 74 70 |tput*" t|eco-outp|
|00006110| 75 74 2d 62 75 66 66 65 | 72 20 74 65 63 6f 2d 70 |ut-buffe|r teco-p|
|00006120| 72 6f 6d 70 74 20 74 65 | 63 6f 2d 65 78 65 63 75 |rompt te|co-execu|
|00006130| 74 65 2d 63 6f 6d 6d 61 | 6e 64 5d 20 34 20 22 5c |te-comma|nd] 4 "\|
|00006140| 0a 52 65 61 64 20 61 6e | 64 20 65 78 65 63 75 74 |.Read an|d execut|
|00006150| 65 20 61 20 54 65 63 6f | 20 63 6f 6d 6d 61 6e 64 |e a Teco| command|
|00006160| 20 73 74 72 69 6e 67 2e | 22 20 6e 69 6c 5d 29 0a | string.|" nil]).|
|00006170| 28 66 73 65 74 20 27 74 | 65 63 6f 2d 72 65 61 64 |(fset 't|eco-read|
|00006180| 2d 63 6f 6d 6d 61 6e 64 | 20 23 5b 6e 69 6c 20 22 |-command| #[nil "|
|00006190| c0 c1 8d c2 1b 89 1c ab | 91 0b ab 8e c5 0c c6 0b |........|........|
|000061a0| c7 5c 22 5c 22 88 0b 41 | 89 13 ac 72 0c 2a 87 22 |.\"\"..A|...r.*."|
|000061b0| 20 5b 74 65 63 6f 2d 63 | 6f 6d 6d 61 6e 64 2d 71 | [teco-c|ommand-q|
|000061c0| 75 69 74 20 28 72 65 61 | 64 2d 66 72 6f 6d 2d 6d |uit (rea|d-from-m|
|000061d0| 69 6e 69 62 75 66 66 65 | 72 20 74 65 63 6f 2d 70 |inibuffe|r teco-p|
|000061e0| 72 6f 6d 70 74 20 6e 69 | 6c 20 74 65 63 6f 2d 63 |rompt ni|l teco-c|
|000061f0| 6f 6d 6d 61 6e 64 2d 6b | 65 79 6d 61 70 29 20 6e |ommand-k|eymap) n|
|00006200| 69 6c 20 74 65 63 6f 2d | 63 6f 6d 6d 61 6e 64 2d |il teco-|command-|
|00006210| 65 73 63 61 70 65 73 20 | 63 6f 6d 6d 61 6e 64 20 |escapes |command |
|00006220| 61 73 65 74 20 63 61 72 | 20 32 37 5d 20 36 20 22 |aset car| 27] 6 "|
|00006230| 5c 0a 52 65 61 64 20 61 | 20 74 65 63 6f 20 63 6f |\.Read a| teco co|
|00006240| 6d 6d 61 6e 64 20 73 74 | 72 69 6e 67 20 66 72 6f |mmand st|ring fro|
|00006250| 6d 20 74 68 65 20 75 73 | 65 72 2e 22 5d 29 0a 28 |m the us|er."]).(|
|00006260| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00006270| c3 4d 88 c4 c5 4d 88 c6 | c7 4d 88 c8 c9 4d 88 ca |.M...M..|.M...M..|
|00006280| cb 4d 88 cc cd 21 87 22 | 20 5b 74 65 63 6f 2d 63 |.M...!."| [teco-c|
|00006290| 6f 6d 6d 61 6e 64 2d 73 | 65 6c 66 2d 69 6e 73 65 |ommand-s|elf-inse|
|000062a0| 72 74 20 23 5b 6e 69 6c | 20 22 08 63 88 c1 20 3f |rt #[nil| ".c.. ?|
|000062b0| ad 83 c2 c3 21 87 22 20 | 5b 6c 61 73 74 2d 63 6f |....!." |[last-co|
|000062c0| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 70 6f 73 2d 76 |mmand-ch|ar pos-v|
|000062d0| 69 73 69 62 6c 65 2d 69 | 6e 2d 77 69 6e 64 6f 77 |isible-i|n-window|
|000062e0| 2d 70 20 65 6e 6c 61 72 | 67 65 2d 77 69 6e 64 6f |-p enlar|ge-windo|
|000062f0| 77 20 31 5d 20 32 20 6e | 69 6c 20 6e 69 6c 5d 20 |w 1] 2 n|il nil] |
|00006300| 74 65 63 6f 2d 63 6f 6d | 6d 61 6e 64 2d 63 74 72 |teco-com|mand-ctr|
|00006310| 6c 2d 67 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 c2 |l-g #[ni|l ". ...|
|00006320| c3 5c 22 87 22 20 5b 62 | 65 65 70 20 74 68 72 6f |.\"." [b|eep thro|
|00006330| 77 20 74 65 63 6f 2d 63 | 6f 6d 6d 61 6e 64 2d 71 |w teco-c|ommand-q|
|00006340| 75 69 74 20 6e 69 6c 5d | 20 33 20 6e 69 6c 20 6e |uit nil]| 3 nil n|
|00006350| 69 6c 5d 20 74 65 63 6f | 2d 63 6f 6d 6d 61 6e 64 |il] teco|-command|
|00006360| 2d 72 65 74 75 72 6e 20 | 23 5b 6e 69 6c 20 22 c0 |-return |#[nil ".|
|00006370| 11 c2 20 87 22 20 5b 31 | 30 20 6c 61 73 74 2d 63 |.. ." [1|0 last-c|
|00006380| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 74 65 63 6f |ommand-c|har teco|
|00006390| 2d 63 6f 6d 6d 61 6e 64 | 2d 73 65 6c 66 2d 69 6e |-command|-self-in|
|000063a0| 73 65 72 74 5d 20 31 20 | 6e 69 6c 20 6e 69 6c 5d |sert] 1 |nil nil]|
|000063b0| 20 74 65 63 6f 2d 63 6f | 6d 6d 61 6e 64 2d 65 73 | teco-co|mmand-es|
|000063c0| 63 61 70 65 20 23 5b 6e | 69 6c 20 22 08 c1 3d ab |cape #[n|il "..=.|
|000063d0| 86 c2 c3 c4 20 5c 22 88 | 60 53 0d 42 15 c6 16 07 |.... \".|`S.B....|
|000063e0| c8 20 87 22 20 5b 6c 61 | 73 74 2d 63 6f 6d 6d 61 |. ." [la|st-comma|
|000063f0| 6e 64 20 74 65 63 6f 2d | 63 6f 6d 6d 61 6e 64 2d |nd teco-|command-|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
