/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / disass.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 34 39 3a 34 | 37 20 31 39 39 33 0a 3b | 22:49:4|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 64 69 73 | 61 73 73 2e 65 6c 0a 3b |lisp/dis|ass.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 31 35 2e 31 | 36 2e 0a 3b 3b 3b 20 62 | 19.15.1|6..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001a0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001c0| 28 72 65 71 75 69 72 65 | 20 28 71 75 6f 74 65 20 |(require| (quote |
|000001d0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 29 20 22 62 |byte-com|pile) "b|
|000001e0| 79 74 65 63 6f 6d 70 22 | 29 0a 28 64 65 66 76 61 |ytecomp"|).(defva|
|000001f0| 72 20 64 69 73 61 73 73 | 65 6d 62 6c 65 2d 63 6f |r disass|emble-co|
|00000200| 6c 75 6d 6e 2d 31 2d 69 | 6e 64 65 6e 74 20 35 20 |lumn-1-i|ndent 5 |
|00000210| 22 5c 0a 2a 22 29 0a 28 | 64 65 66 76 61 72 20 64 |"\.*").(|defvar d|
|00000220| 69 73 61 73 73 65 6d 62 | 6c 65 2d 63 6f 6c 75 6d |isassemb|le-colum|
|00000230| 6e 2d 32 2d 69 6e 64 65 | 6e 74 20 31 30 20 22 5c |n-2-inde|nt 10 "\|
|00000240| 0a 2a 22 29 0a 28 64 65 | 66 76 61 72 20 64 69 73 |.*").(de|fvar dis|
|00000250| 61 73 73 65 6d 62 6c 65 | 2d 72 65 63 75 72 73 69 |assemble|-recursi|
|00000260| 76 65 2d 69 6e 64 65 6e | 74 20 33 20 22 5c 0a 2a |ve-inden|t 3 "\.*|
|00000270| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |").(defa|lias 'di|
|00000280| 73 61 73 73 65 6d 62 6c | 65 20 23 5b 28 6f 62 6a |sassembl|e #[(obj|
|00000290| 65 63 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 62 75 |ect &opt|ional bu|
|000002a0| 66 66 65 72 20 69 6e 64 | 65 6e 74 20 69 6e 74 65 |ffer ind|ent inte|
|000002b0| 72 61 63 74 69 76 65 2d | 70 29 20 22 08 a2 c1 3d |ractive-|p) "...=|
|000002c0| 83 0c 00 c2 c3 08 45 10 | 0c 84 12 00 c5 14 8a 0e |......E.|........|
|000002d0| 06 84 1d 00 0e 07 84 2e | 00 c8 90 c8 71 88 c9 08 |........|....q...|
|000002e0| 0c 0e 06 3f 23 91 88 82 | 38 00 0e 07 71 88 c9 08 |...?#...|8...q...|
|000002f0| 0c c3 23 88 29 c3 87 22 | 20 5b 6f 62 6a 65 63 74 |..#.).."| [object|
|00000300| 20 62 79 74 65 2d 63 6f | 64 65 20 6c 61 6d 62 64 | byte-co|de lambd|
|00000310| 61 20 6e 69 6c 20 69 6e | 64 65 6e 74 20 30 20 69 |a nil in|dent 0 i|
|00000320| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 20 62 75 66 |nteracti|ve-p buf|
|00000330| 66 65 72 20 22 2a 44 69 | 73 61 73 73 65 6d 62 6c |fer "*Di|sassembl|
|00000340| 65 2a 22 20 64 69 73 61 | 73 73 65 6d 62 6c 65 2d |e*" disa|ssemble-|
|00000350| 69 6e 74 65 72 6e 61 6c | 5d 20 35 20 22 5c 0a 50 |internal|] 5 "\.P|
|00000360| 72 69 6e 74 20 64 69 73 | 61 73 73 65 6d 62 6c 65 |rint dis|assemble|
|00000370| 64 20 63 6f 64 65 20 66 | 6f 72 20 4f 42 4a 45 43 |d code f|or OBJEC|
|00000380| 54 20 69 6e 20 28 6f 70 | 74 69 6f 6e 61 6c 29 20 |T in (op|tional) |
|00000390| 42 55 46 46 45 52 2e 0a | 4f 42 4a 45 43 54 20 63 |BUFFER..|OBJECT c|
|000003a0| 61 6e 20 62 65 20 61 20 | 73 79 6d 62 6f 6c 20 64 |an be a |symbol d|
|000003b0| 65 66 69 6e 65 64 20 61 | 73 20 61 20 66 75 6e 63 |efined a|s a func|
|000003c0| 74 69 6f 6e 2c 20 6f 72 | 20 61 20 66 75 6e 63 74 |tion, or| a funct|
|000003d0| 69 6f 6e 20 69 74 73 65 | 6c 66 0a 28 61 20 6c 61 |ion itse|lf.(a la|
|000003e0| 6d 62 64 61 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |mbda exp|ression |
|000003f0| 6f 72 20 61 20 63 6f 6d | 70 69 6c 65 64 2d 66 75 |or a com|piled-fu|
|00000400| 6e 63 74 69 6f 6e 20 6f | 62 6a 65 63 74 29 2e 0a |nction o|bject)..|
|00000410| 49 66 20 4f 42 4a 45 43 | 54 20 69 73 20 6e 6f 74 |If OBJEC|T is not|
|00000420| 20 61 6c 72 65 61 64 79 | 20 63 6f 6d 70 69 6c 65 | already| compile|
|00000430| 64 2c 20 77 65 20 63 6f | 6d 70 69 6c 65 20 69 74 |d, we co|mpile it|
|00000440| 2c 20 62 75 74 20 64 6f | 20 6e 6f 74 0a 72 65 64 |, but do| not.red|
|00000450| 65 66 69 6e 65 20 4f 42 | 4a 45 43 54 20 69 66 20 |efine OB|JECT if |
|00000460| 69 74 20 69 73 20 61 20 | 73 79 6d 62 6f 6c 2e 22 |it is a |symbol."|
|00000470| 20 28 6c 69 73 74 20 28 | 69 6e 74 65 72 6e 20 28 | (list (|intern (|
|00000480| 63 6f 6d 70 6c 65 74 69 | 6e 67 2d 72 65 61 64 20 |completi|ng-read |
|00000490| 22 44 69 73 61 73 73 65 | 6d 62 6c 65 20 66 75 6e |"Disasse|mble fun|
|000004a0| 63 74 69 6f 6e 3a 20 22 | 20 6f 62 61 72 72 61 79 |ction: "| obarray|
|000004b0| 20 28 71 75 6f 74 65 20 | 66 62 6f 75 6e 64 70 29 | (quote |fboundp)|
|000004c0| 20 74 29 29 20 6e 69 6c | 20 30 20 74 29 5d 29 0a | t)) nil| 0 t)]).|
|000004d0| 28 64 65 66 61 6c 69 61 | 73 20 28 71 75 6f 74 65 |(defalia|s (quote|
|000004e0| 20 64 69 73 61 73 73 65 | 6d 62 6c 65 2d 69 6e 74 | disasse|mble-int|
|000004f0| 65 72 6e 61 6c 29 20 23 | 5b 28 6f 62 6a 20 69 6e |ernal) #|[(obj in|
|00000500| 64 65 6e 74 20 69 6e 74 | 65 72 61 63 74 69 76 65 |dent int|eractive|
|00000510| 2d 70 29 20 22 c0 89 89 | 89 19 1a 1b 1c 0d 39 83 |-p) "...|......9.|
|00000520| 16 00 0d 13 0d 4b 89 15 | 82 09 00 c6 0d 21 83 21 |.....K..|.....!.!|
|00000530| 00 c7 c8 0b 5c 22 88 0d | 3c 83 36 00 0d 40 c9 3d |....\"..|<.6..@.=|
|00000540| 83 36 00 ca 0d 41 40 21 | 88 0b 4b 15 0d a2 c4 3d |.6...A@!|..K....=|
|00000550| 83 42 00 cb 14 0d 41 15 | 0d 3c 83 52 00 0d 40 cc |.B....A.|.<.R..@.|
|00000560| 3d 84 52 00 c7 cd 21 88 | 0d 3a 83 7c 00 ce 0d 9e |=.R...!.|.:.|....|
|00000570| 84 7c 00 0e 0f 83 6f 00 | d0 0b 83 6b 00 d1 82 6c |.|....o.|...k...l|
|00000580| 00 d2 0b 5c 22 88 d3 0d | 21 15 0e 0f 83 7c 00 d0 |...\"...|!....|..|
|00000590| d4 21 88 0d 3a 83 8d 00 | 0d 41 89 15 40 11 0d 41 |.!..:...|.A..@..A|
|000005a0| 15 82 91 00 0d d5 48 11 | 0e 16 d5 55 83 c3 00 0e |......H.|...U....|
|000005b0| 16 6a 88 d7 d8 0c 84 a6 | 00 0b 83 aa 00 d9 82 ab |.j......|........|
|000005c0| 00 da 0c 83 b3 00 db 82 | b4 00 da 0b 83 bf 00 d7 |........|........|
|000005d0| dc 0b 5c 22 82 c0 00 da | 24 63 88 0d 3a 83 d3 00 |..\"....|$c..:...|
|000005e0| 0d 40 3b 85 dd 00 0d 40 | 82 dd 00 0d 47 dd 56 85 |.@;....@|....G.V.|
|000005f0| dd 00 0d dd 48 89 1a 83 | 0c 01 5c 6e 3b 83 0c 01 |....H...|..\n;...|
|00000600| 0d 3a 83 ef 00 0d 41 15 | 0e 16 6a 88 de df 70 5c |.:....A.|..j...p\|
|00000610| 22 88 e0 e1 5c 6e 5c 22 | 83 07 01 5c 6e d5 89 94 |"...\n\"|...\n...|
|00000620| 4f e2 50 12 5c 6e e1 b1 | 02 88 29 0e 16 6a 88 e3 |O.P.\n..|..)..j..|
|00000630| 63 88 e4 09 70 5c 22 88 | e1 63 88 0d 3a 83 27 01 |c...p\".|.c..:.'.|
|00000640| e5 0d 9e 82 33 01 0d 47 | e6 56 85 33 01 e5 0d e6 |....3..G|.V.3....|
|00000650| 48 44 89 1e 25 83 76 01 | 0e 25 41 40 16 25 0d a2 |HD..%.v.|.%A@.%..|
|00000660| a2 e5 3d 83 4a 01 0d 41 | 15 0e 16 6a 88 e7 63 88 |..=.J..A|...j..c.|
|00000670| 0e 25 a2 ce 3d 83 69 01 | e1 63 88 e8 0e 25 0e 16 |.%..=.i.|.c...%..|
|00000680| 0e 29 5c 5c 5c 22 88 82 | 73 01 cb 1e 2a e4 0e 25 |.)\\\"..|s...*..%|
|00000690| 70 5c 22 88 29 e1 63 88 | 29 0d 3a 83 8d 01 ce 0d |p\".).c.|).:.....|
|000006a0| 9e 83 8d 01 e8 ce 0d 9e | 0e 16 5c 22 88 82 b4 01 |........|..\"....|
|000006b0| eb 0d 21 83 9c 01 e8 0d | 0e 16 5c 22 88 82 b4 01 |..!.....|..\"....|
|000006c0| ec 63 88 cb 1e 2a e4 0d | 41 83 ae 01 ed 0d 42 82 |.c...*..|A.....B.|
|000006d0| b0 01 0d 40 70 5c 22 88 | 29 2c 0e 0f 85 bd 01 d0 |...@p\".|),......|
|000006e0| da 21 87 22 20 5b 6e 69 | 6c 20 61 72 67 73 20 64 |.!." [ni|l args d|
|000006f0| 6f 63 20 6e 61 6d 65 20 | 6d 61 63 72 6f 20 6f 62 |oc name |macro ob|
|00000700| 6a 20 73 75 62 72 70 20 | 65 72 72 6f 72 20 22 43 |j subrp |error "C|
|00000710| 61 6e 27 74 20 64 69 73 | 61 73 73 65 6d 62 6c 65 |an't dis|assemble|
|00000720| 20 23 3c 73 75 62 72 20 | 25 73 3e 22 20 61 75 74 | #<subr |%s>" aut|
|00000730| 6f 6c 6f 61 64 20 6c 6f | 61 64 20 74 20 6c 61 6d |oload lo|ad t lam|
|00000740| 62 64 61 20 22 6e 6f 74 | 20 61 20 66 75 6e 63 74 |bda "not| a funct|
|00000750| 69 6f 6e 22 20 62 79 74 | 65 2d 63 6f 64 65 20 69 |ion" byt|e-code i|
|00000760| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 20 6d 65 73 |nteracti|ve-p mes|
|00000770| 73 61 67 65 20 22 43 6f | 6d 70 69 6c 69 6e 67 20 |sage "Co|mpiling |
|00000780| 25 73 27 73 20 64 65 66 | 69 6e 69 74 69 6f 6e 2e |%s's def|inition.|
|00000790| 2e 2e 22 20 22 43 6f 6d | 70 69 6c 69 6e 67 20 64 |.." "Com|piling d|
|000007a0| 65 66 69 6e 69 74 69 6f | 6e 2e 2e 2e 22 20 62 79 |efinitio|n..." by|
|000007b0| 74 65 2d 63 6f 6d 70 69 | 6c 65 20 22 44 6f 6e 65 |te-compi|le "Done|
|000007c0| 20 63 6f 6d 70 69 6c 69 | 6e 67 2e 20 20 44 69 73 | compili|ng.  Dis|
|000007d0| 61 73 73 65 6d 62 6c 69 | 6e 67 2e 2e 2e 22 20 30 |assembli|ng..." 0|
|000007e0| 20 69 6e 64 65 6e 74 20 | 66 6f 72 6d 61 74 20 22 | indent |format "|
|000007f0| 62 79 74 65 20 63 6f 64 | 65 25 73 25 73 25 73 3a |byte cod|e%s%s%s:|
|00000800| 5c 6e 22 20 22 20 66 6f | 72 22 20 22 22 20 22 20 |\n" " fo|r" "" " |
|00000810| 6d 61 63 72 6f 22 20 22 | 20 25 73 22 20 34 20 70 |macro" "| %s" 4 p|
|00000820| 72 69 6e 63 20 22 20 20 | 64 6f 63 3a 20 20 22 20 |rinc "  |doc:  " |
|00000830| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 6e |string-m|atch "\n|
|00000840| 22 20 22 20 2e 2e 2e 22 | 20 22 20 20 61 72 67 73 |" " ..."| "  args|
|00000850| 3a 20 22 20 70 72 69 6e | 31 20 69 6e 74 65 72 61 |: " prin|1 intera|
|00000860| 63 74 69 76 65 20 35 20 | 22 20 69 6e 74 65 72 61 |ctive 5 |" intera|
|00000870| 63 74 69 76 65 3a 20 22 | 20 64 69 73 61 73 73 65 |ctive: "| disasse|
|00000880| 6d 62 6c 65 2d 31 20 64 | 69 73 61 73 73 65 6d 62 |mble-1 d|isassemb|
|00000890| 6c 65 2d 72 65 63 75 72 | 73 69 76 65 2d 69 6e 64 |le-recur|sive-ind|
|000008a0| 65 6e 74 20 70 72 69 6e | 74 2d 65 73 63 61 70 65 |ent prin|t-escape|
|000008b0| 2d 6e 65 77 6c 69 6e 65 | 73 20 62 79 74 65 2d 63 |-newline|s byte-c|
|000008c0| 6f 64 65 2d 66 75 6e 63 | 74 69 6f 6e 2d 70 20 22 |ode-func|tion-p "|
|000008d0| 55 6e 63 6f 6d 70 69 6c | 65 64 20 62 6f 64 79 3a |Uncompil|ed body:|
|000008e0| 20 20 22 20 70 72 6f 67 | 6e 5d 20 38 5d 29 0a 28 |  " prog|n] 8]).(|
|000008f0| 64 65 66 61 6c 69 61 73 | 20 27 64 69 73 61 73 73 |defalias| 'disass|
|00000900| 65 6d 62 6c 65 2d 31 20 | 23 5b 28 6f 62 6a 20 69 |emble-1 |#[(obj i|
|00000910| 6e 64 65 6e 74 29 20 22 | c0 89 19 1a 0b 3a 83 15 |ndent) "|.....:..|
|00000920| 00 0b 41 40 12 0b 41 41 | 40 11 82 1d 00 0b c4 48 |..A@..AA|@......H|
|00000930| 12 0b c5 48 11 c6 5c 6e | 09 5c 22 c0 89 89 1e 07 |...H..\n|.\".....|
|00000940| 1e 08 1e 09 1e 5c 6e cb | c0 0e 5c 6e 1e 5c 6e 1e |.....\n.|..\n.\n.|
|00000950| 0c 1e 0d ce 0e 5c 6e 9e | 89 16 0c 83 56 00 0e 0c |.....\n.|....V...|
|00000960| 41 0e 0d 54 89 16 0d a0 | 88 0e 0c 0e 5c 6e 3e 41 |A..T....|....\n>A|
|00000970| 16 5c 6e 82 36 00 2b 0e | 5c 6e 83 aa 01 0e 5c 6e |.\n.6.+.|\n....\n|
|00000980| 40 40 16 09 0e 5c 6e 40 | 41 16 08 0e 0f 6a 88 0e |@@...\n@|A....j..|
|00000990| 09 ce 3d 83 7f 00 d0 0e | 08 40 21 d1 b1 02 88 82 |..=.....|.@!.....|
|000009a0| a1 01 0e 0f 0e 12 5c 5c | 6a 88 0e 09 83 a2 00 d3 |......\\|j.......|
|000009b0| d4 d5 0e 09 21 89 16 07 | 5c 22 83 a2 00 0e 07 d6 |....!...|\"......|
|000009c0| c0 4f 16 07 82 a5 00 d7 | 16 07 0e 09 d8 3d 83 af |.O......|.....=..|
|000009d0| 00 d9 63 88 0e 07 63 88 | 0e 0f 0e 12 0e 1a db 5c |..c...c.|.......\|
|000009e0| 5c 5c 5c 5c 5c 6a 88 dc | 63 88 0e 09 0e 1d 3e 83 |\\\\\j..|c.....>.|
|000009f0| d5 00 d0 0e 08 41 40 21 | 63 88 82 9e 01 0e 09 de |.....A@!|c.......|
|00000a00| 3e 83 e5 00 d0 0e 08 21 | 63 88 82 9e 01 0e 09 df |>......!|c.......|
|00000a10| 3e 83 f6 00 e0 0e 08 40 | 70 5c 22 88 82 9e 01 0e |>......@|p\".....|
|00000a20| 09 e1 3e 83 9e 01 0e 08 | 40 16 08 e2 0e 08 21 84 |..>.....|@.....!.|
|00000a30| 39 01 0e 08 a2 e3 3d 83 | 18 01 e4 0e 08 9e 84 39 |9.....=.|.......9|
|00000a40| 01 0e 08 a2 e5 3d 83 67 | 01 e2 0e 08 41 21 84 39 |.....=.g|....A!.9|
|00000a50| 01 0e 08 41 a2 e3 3d 83 | 67 01 e4 0e 08 41 9e 83 |...A..=.|g....A..|
|00000a60| 67 01 e2 0e 08 21 83 46 | 01 e6 63 88 82 57 01 0e |g....!.F|..c..W..|
|00000a70| 08 a2 e3 3d 83 54 01 e7 | 63 88 82 57 01 e8 63 88 |...=.T..|c..W..c.|
|00000a80| e9 0e 08 0e 0f 0e 2a c4 | 5c 5c 5c 5c c0 23 88 82 |......*.|\\\\.#..|
|00000a90| 9e 01 0e 08 a2 e4 3d 83 | 7f 01 eb 63 88 ec 0e 08 |......=.|...c....|
|00000aa0| 0e 0f 0e 2a 5c 5c 5c 22 | 88 82 9e 01 0e 08 a2 a2 |...*\\\"|........|
|00000ab0| e4 3d 83 94 01 ed 63 88 | ee ef 0e 08 5c 22 88 82 |.=....c.|....\"..|
|00000ac0| 9e 01 f0 1e 31 e0 0e 08 | 70 5c 22 88 29 f2 63 88 |....1...|p\".).c.|
|00000ad0| 0e 5c 6e 41 89 16 5c 6e | 84 5c 5c 00 2e 06 c0 87 |.\nA..\n|.\\.....|
|00000ae0| 22 20 5b 6e 69 6c 20 63 | 6f 6e 73 74 76 65 63 20 |" [nil c|onstvec |
|00000af0| 62 79 74 65 73 20 6f 62 | 6a 20 31 20 32 20 62 79 |bytes ob|j 1 2 by|
|00000b00| 74 65 2d 64 65 63 6f 6d | 70 69 6c 65 2d 62 79 74 |te-decom|pile-byt|
|00000b10| 65 63 6f 64 65 20 6f 70 | 6e 61 6d 65 20 61 72 67 |ecode op|name arg|
|00000b20| 20 6f 70 20 6c 61 70 20 | 30 20 74 6d 70 20 74 61 | op lap |0 tmp ta|
|00000b30| 67 6e 6f 20 54 41 47 20 | 69 6e 64 65 6e 74 20 69 |gno TAG |indent i|
|00000b40| 6e 74 2d 74 6f 2d 73 74 | 72 69 6e 67 20 22 3a 22 |nt-to-st|ring ":"|
|00000b50| 20 64 69 73 61 73 73 65 | 6d 62 6c 65 2d 63 6f 6c | disasse|mble-col|
|00000b60| 75 6d 6e 2d 31 2d 69 6e | 64 65 6e 74 20 73 74 72 |umn-1-in|dent str|
|00000b70| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5e 62 79 74 65 |ing-matc|h "^byte|
|00000b80| 2d 22 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 35 |-" symbo|l-name 5|
|00000b90| 20 22 3c 6e 6f 74 2d 61 | 6e 2d 6f 70 63 6f 64 65 | "<not-a|n-opcode|
|00000ba0| 3e 22 20 62 79 74 65 2d | 63 6f 6e 73 74 61 6e 74 |>" byte-|constant|
|00000bb0| 32 20 22 20 23 23 23 23 | 20 73 68 6f 75 6c 64 6e |2 " ####| shouldn|
|00000bc0| 27 74 20 68 61 76 65 20 | 73 65 65 6e 20 63 6f 6e |'t have |seen con|
|00000bd0| 73 74 61 6e 74 32 20 68 | 65 72 65 21 5c 6e 20 20 |stant2 h|ere!\n  |
|00000be0| 22 20 64 69 73 61 73 73 | 65 6d 62 6c 65 2d 63 6f |" disass|emble-co|
|00000bf0| 6c 75 6d 6e 2d 32 2d 69 | 6e 64 65 6e 74 20 2d 31 |lumn-2-i|ndent -1|
|00000c00| 20 22 20 22 20 62 79 74 | 65 2d 67 6f 74 6f 2d 6f | " " byt|e-goto-o|
|00000c10| 70 73 20 28 62 79 74 65 | 2d 63 61 6c 6c 20 62 79 |ps (byte|-call by|
|00000c20| 74 65 2d 75 6e 62 69 6e | 64 20 62 79 74 65 2d 6c |te-unbin|d byte-l|
|00000c30| 69 73 74 4e 20 62 79 74 | 65 2d 63 6f 6e 63 61 74 |istN byt|e-concat|
|00000c40| 4e 20 62 79 74 65 2d 69 | 6e 73 65 72 74 4e 29 20 |N byte-i|nsertN) |
|00000c50| 28 62 79 74 65 2d 76 61 | 72 72 65 66 20 62 79 74 |(byte-va|rref byt|
|00000c60| 65 2d 76 61 72 73 65 74 | 20 62 79 74 65 2d 76 61 |e-varset| byte-va|
|00000c70| 72 62 69 6e 64 29 20 70 | 72 69 6e 31 20 28 62 79 |rbind) p|rin1 (by|
|00000c80| 74 65 2d 63 6f 6e 73 74 | 61 6e 74 20 62 79 74 65 |te-const|ant byte|
|00000c90| 2d 63 6f 6e 73 74 61 6e | 74 32 29 20 62 79 74 65 |-constan|t2) byte|
|00000ca0| 2d 63 6f 64 65 2d 66 75 | 6e 63 74 69 6f 6e 2d 70 |-code-fu|nction-p|
|00000cb0| 20 6c 61 6d 62 64 61 20 | 62 79 74 65 2d 63 6f 64 | lambda |byte-cod|
|00000cc0| 65 20 6d 61 63 72 6f 20 | 22 3c 63 6f 6d 70 69 6c |e macro |"<compil|
|00000cd0| 65 64 2d 66 75 6e 63 74 | 69 6f 6e 3e 5c 6e 22 20 |ed-funct|ion>\n" |
|00000ce0| 22 3c 63 6f 6d 70 69 6c | 65 64 20 6c 61 6d 62 64 |"<compil|ed lambd|
|00000cf0| 61 3e 22 20 22 3c 63 6f | 6d 70 69 6c 65 64 20 6d |a>" "<co|mpiled m|
|00000d00| 61 63 72 6f 3e 5c 6e 22 | 20 64 69 73 61 73 73 65 |acro>\n"| disasse|
|00000d10| 6d 62 6c 65 2d 69 6e 74 | 65 72 6e 61 6c 20 64 69 |mble-int|ernal di|
|00000d20| 73 61 73 73 65 6d 62 6c | 65 2d 72 65 63 75 72 73 |sassembl|e-recurs|
|00000d30| 69 76 65 2d 69 6e 64 65 | 6e 74 20 22 3c 62 79 74 |ive-inde|nt "<byt|
|00000d40| 65 20 63 6f 64 65 3e 5c | 6e 22 20 64 69 73 61 73 |e code>\|n" disas|
|00000d50| 73 65 6d 62 6c 65 2d 31 | 20 22 28 3c 62 79 74 65 |semble-1| "(<byte|
|00000d60| 20 63 6f 64 65 3e 2e 2e | 2e 29 5c 6e 22 20 6d 61 | code>..|.)\n" ma|
|00000d70| 70 63 61 72 20 23 5b 28 | 6f 62 6a 29 20 22 c0 09 |pcar #[(|obj) "..|
|00000d80| 5c 6e 0b 5c 5c 5c 22 87 | 22 20 5b 64 69 73 61 73 |\n.\\\".|" [disas|
|00000d90| 73 65 6d 62 6c 65 2d 31 | 20 6f 62 6a 20 69 6e 64 |semble-1| obj ind|
|00000da0| 65 6e 74 20 64 69 73 61 | 73 73 65 6d 62 6c 65 2d |ent disa|ssemble-|
|00000db0| 72 65 63 75 72 73 69 76 | 65 2d 69 6e 64 65 6e 74 |recursiv|e-indent|
|00000dc0| 5d 20 34 5d 20 74 20 70 | 72 69 6e 74 2d 65 73 63 |] 4] t p|rint-esc|
|00000dd0| 61 70 65 2d 6e 65 77 6c | 69 6e 65 73 20 22 5c 6e |ape-newl|ines "\n|
|00000de0| 22 5d 20 36 20 22 5c 0a | 50 72 69 6e 74 73 20 74 |"] 6 "\.|Prints t|
|00000df0| 68 65 20 62 79 74 65 2d | 63 6f 64 65 20 63 61 6c |he byte-|code cal|
|00000e00| 6c 20 4f 42 4a 20 69 6e | 20 74 68 65 20 63 75 72 |l OBJ in| the cur|
|00000e10| 72 65 6e 74 20 62 75 66 | 66 65 72 2e 0a 4f 42 4a |rent buf|fer..OBJ|
|00000e20| 20 73 68 6f 75 6c 64 20 | 62 65 20 61 20 63 61 6c | should |be a cal|
|00000e30| 6c 20 74 6f 20 42 59 54 | 45 2d 43 4f 44 45 20 67 |l to BYT|E-CODE g|
|00000e40| 65 6e 65 72 61 74 65 64 | 20 62 79 20 74 68 65 20 |enerated| by the |
|00000e50| 62 79 74 65 20 63 6f 6d | 70 69 6c 65 72 2e 22 5d |byte com|piler."]|
|00000e60| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+