/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / bytecomp / 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 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 33 35 3a 31 34 20 |Feb  1 1|8:35:14 |
|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 62 79 74 | 65 63 6f 6d 70 2f 64 69 |lisp/byt|ecomp/di|
|00000080| 73 61 73 73 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |sass.el.|;;; emac|
|00000090| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 34 2e 31 |s versio|n 19.4.1|
|000000a0| 33 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |3 Lucid.|.;;; byt|
|000000b0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000c0| 31 30 3b 20 20 31 2d 66 | 65 62 2d 39 33 2e 0a 3b |10;  1-f|eb-93..;|
|000000d0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000e0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000f0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000100| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000110| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 31 38 2e |xist in |Emacs18.|
|00000120| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000130| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000140| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000160| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000170| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000180| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000190| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001a0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001b0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001c0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 31 39 2e |led for |Emacs19.|
|000001d0| 22 29 29 0a 0a 28 72 65 | 71 75 69 72 65 20 27 62 |"))..(re|quire 'b|
|000001e0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 29 0a 28 64 |yte-opti|mize).(d|
|000001f0| 65 66 76 61 72 20 64 69 | 73 61 73 73 65 6d 62 6c |efvar di|sassembl|
|00000200| 65 2d 63 6f 6c 75 6d 6e | 2d 31 2d 69 6e 64 65 6e |e-column|-1-inden|
|00000210| 74 20 35 20 22 5c 0a 2a | 22 29 0a 28 64 65 66 76 |t 5 "\.*|").(defv|
|00000220| 61 72 20 64 69 73 61 73 | 73 65 6d 62 6c 65 2d 63 |ar disas|semble-c|
|00000230| 6f 6c 75 6d 6e 2d 32 2d | 69 6e 64 65 6e 74 20 31 |olumn-2-|indent 1|
|00000240| 30 20 22 5c 0a 2a 22 29 | 0a 28 64 65 66 76 61 72 |0 "\.*")|.(defvar|
|00000250| 20 64 69 73 61 73 73 65 | 6d 62 6c 65 2d 72 65 63 | disasse|mble-rec|
|00000260| 75 72 73 69 76 65 2d 69 | 6e 64 65 6e 74 20 33 20 |ursive-i|ndent 3 |
|00000270| 22 5c 0a 2a 22 29 0a 28 | 66 73 65 74 20 27 64 69 |"\.*").(|fset '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| ab 85 c2 c3 08 45 10 0c | ac 82 c5 14 8a 0e 06 ac |.....E..|........|
|000002d0| 84 0e 07 ac 90 c8 90 c8 | 71 88 c9 08 0c 0e 06 3f |........|q......?|
|000002e0| 23 91 88 aa 8a 0e 07 71 | 88 c9 08 0c c3 23 88 29 |#......q|.....#.)|
|000002f0| c3 87 22 20 5b 6f 62 6a | 65 63 74 20 62 79 74 65 |.." [obj|ect byte|
|00000300| 2d 63 6f 64 65 20 6c 61 | 6d 62 64 61 20 6e 69 6c |-code la|mbda nil|
|00000310| 20 69 6e 64 65 6e 74 20 | 30 20 69 6e 74 65 72 61 | indent |0 intera|
|00000320| 63 74 69 76 65 2d 70 20 | 62 75 66 66 65 72 20 22 |ctive-p |buffer "|
|00000330| 2a 44 69 73 61 73 73 65 | 6d 62 6c 65 2a 22 20 64 |*Disasse|mble*" d|
|00000340| 69 73 61 73 73 65 6d 62 | 6c 65 2d 69 6e 74 65 72 |isassemb|le-inter|
|00000350| 6e 61 6c 5d 20 35 20 22 | 5c 0a 50 72 69 6e 74 20 |nal] 5 "|\.Print |
|00000360| 64 69 73 61 73 73 65 6d | 62 6c 65 64 20 63 6f 64 |disassem|bled cod|
|00000370| 65 20 66 6f 72 20 4f 42 | 4a 45 43 54 20 69 6e 20 |e for OB|JECT in |
|00000380| 28 6f 70 74 69 6f 6e 61 | 6c 29 20 42 55 46 46 45 |(optiona|l) BUFFE|
|00000390| 52 2e 0a 4f 42 4a 45 43 | 54 20 63 61 6e 20 62 65 |R..OBJEC|T can be|
|000003a0| 20 61 20 73 79 6d 62 6f | 6c 20 64 65 66 69 6e 65 | a symbo|l define|
|000003b0| 64 20 61 73 20 61 20 66 | 75 6e 63 74 69 6f 6e 2c |d as a f|unction,|
|000003c0| 20 6f 72 20 61 20 66 75 | 6e 63 74 69 6f 6e 20 69 | or a fu|nction i|
|000003d0| 74 73 65 6c 66 0a 28 61 | 20 6c 61 6d 62 64 61 20 |tself.(a| lambda |
|000003e0| 65 78 70 72 65 73 73 69 | 6f 6e 20 6f 72 20 61 20 |expressi|on or a |
|000003f0| 63 6f 6d 70 69 6c 65 64 | 2d 66 75 6e 63 74 69 6f |compiled|-functio|
|00000400| 6e 20 6f 62 6a 65 63 74 | 29 2e 0a 49 66 20 4f 42 |n object|)..If OB|
|00000410| 4a 45 43 54 20 69 73 20 | 6e 6f 74 20 61 6c 72 65 |JECT is |not alre|
|00000420| 61 64 79 20 63 6f 6d 70 | 69 6c 65 64 2c 20 77 65 |ady comp|iled, we|
|00000430| 20 63 6f 6d 70 69 6c 65 | 20 69 74 2c 20 62 75 74 | compile| it, but|
|00000440| 20 64 6f 20 6e 6f 74 0a | 72 65 64 65 66 69 6e 65 | do not.|redefine|
|00000450| 20 4f 42 4a 45 43 54 20 | 69 66 20 69 74 20 69 73 | OBJECT |if it is|
|00000460| 20 61 20 73 79 6d 62 6f | 6c 2e 22 20 28 62 79 74 | a symbo|l." (byt|
|00000470| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 0b c4 c5 24 21 |e-code "|......$!|
|00000480| c6 c7 c5 46 87 22 20 5b | 69 6e 74 65 72 6e 20 63 |...F." [|intern c|
|00000490| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 22 |ompletin|g-read "|
|000004a0| 44 69 73 61 73 73 65 6d | 62 6c 65 20 66 75 6e 63 |Disassem|ble func|
|000004b0| 74 69 6f 6e 3a 20 22 20 | 6f 62 61 72 72 61 79 20 |tion: " |obarray |
|000004c0| 66 62 6f 75 6e 64 70 20 | 74 20 6e 69 6c 20 30 5d |fboundp |t nil 0]|
|000004d0| 20 36 29 5d 29 0a 28 66 | 73 65 74 20 27 64 69 73 | 6)]).(f|set 'dis|
|000004e0| 61 73 73 65 6d 62 6c 65 | 2d 69 6e 74 65 72 6e 61 |assemble|-interna|
|000004f0| 6c 20 23 5b 28 6f 62 6a | 20 69 6e 64 65 6e 74 20 |l #[(obj| indent |
|00000500| 69 6e 74 65 72 61 63 74 | 69 76 65 2d 70 29 20 22 |interact|ive-p) "|
|00000510| c0 89 89 89 19 1a 1b 1c | 0d 39 ab 88 0d 13 0d 4b |........|.9.....K|
|00000520| 89 15 aa 75 c6 0d 21 ab | 85 c7 c8 0b 5c 22 88 0d |...u..!.|....\"..|
|00000530| a2 c4 3d ab 85 c9 14 0d | 41 15 0d 3c ab 8a 0d 40 |..=.....|A..<...@|
|00000540| ca 3d ac 84 c7 cb 21 88 | 0d 3a ab a0 cc 0d 9e ac |.=....!.|.:......|
|00000550| 9b 0e 0d ab 8b ce 0b ab | 83 cf aa 81 d0 0b 5c 22 |........|......\"|
|00000560| 88 d1 0d 21 15 0e 0d ab | 84 ce d2 21 88 0d 3a ab |...!....|...!..:.|
|00000570| 8b 0d 41 89 15 40 11 0d | 41 15 aa 84 0d d3 48 11 |..A..@..|A.....H.|
|00000580| 0e 14 d3 55 ab a4 0e 14 | 6a 88 d5 d6 0c ac 83 0b |...U....|j.......|
|00000590| ab 83 d7 aa 81 d8 0c ab | 83 d9 aa 81 d8 0b ab 86 |........|........|
|000005a0| d5 da 0b 5c 22 aa 81 d8 | 24 63 88 0d 3a ab 89 0d |...\"...|$c..:...|
|000005b0| 40 3b ad 8d 0d 40 aa 89 | 0d 47 db 56 ad 83 0d db |@;...@..|.G.V....|
|000005c0| 48 89 1a ab a7 5c 6e 3b | ab a3 0d 3a ab 83 0d 41 |H....\n;|...:...A|
|000005d0| 15 0e 14 6a 88 dc dd 70 | 5c 22 88 de df 5c 6e 5c |...j...p|\"...\n\|
|000005e0| 22 ab 88 5c 6e d3 89 94 | 4f e0 50 12 5c 6e df b1 |"..\n...|O.P.\n..|
|000005f0| 02 88 29 0e 14 6a 88 e1 | 63 88 e2 09 70 5c 22 88 |..)..j..|c...p\".|
|00000600| df 63 88 0d 3a ab 85 e3 | 0d 9e aa 8b 0d 47 e4 56 |.c..:...|.....G.V|
|00000610| ad 85 e3 0d e4 48 44 89 | 1e 23 ab ba 0e 23 41 40 |.....HD.|.#...#A@|
|00000620| 16 23 0d a2 a2 e3 3d ab | 83 0d 41 15 0e 14 6a 88 |.#....=.|..A...j.|
|00000630| e5 63 88 0e 23 a2 cc 3d | ab 8f df 63 88 e6 0e 23 |.c..#..=|...c...#|
|00000640| 0e 14 0e 27 5c 5c 5c 22 | 88 aa 8a c9 1e 28 e2 0e |...'\\\"|.....(..|
|00000650| 23 70 5c 22 88 29 df 63 | 88 29 0d 3a ab 8f cc 0d |#p\".).c|.).:....|
|00000660| 9e ab 8a e6 cc 0d 9e 0e | 14 5c 22 88 aa a3 e9 0d |........|.\".....|
|00000670| 21 ab 88 e6 0d 0e 14 5c | 22 88 aa 96 ea 63 88 c9 |!......\|"....c..|
|00000680| 1e 28 e2 0d 41 ab 85 eb | 0d 42 aa 82 0d 40 70 5c |.(..A...|.B...@p\|
|00000690| 22 88 29 2c 0e 0d ad 83 | ce d8 21 87 22 20 5b 6e |".),....|..!." [n|
|000006a0| 69 6c 20 61 72 67 73 20 | 64 6f 63 20 6e 61 6d 65 |il args |doc name|
|000006b0| 20 6d 61 63 72 6f 20 6f | 62 6a 20 73 75 62 72 70 | macro o|bj subrp|
|000006c0| 20 65 72 72 6f 72 20 22 | 43 61 6e 27 74 20 64 69 | error "|Can't di|
|000006d0| 73 61 73 73 65 6d 62 6c | 65 20 23 3c 73 75 62 72 |sassembl|e #<subr|
|000006e0| 20 25 73 3e 22 20 74 20 | 6c 61 6d 62 64 61 20 22 | %s>" t |lambda "|
|000006f0| 6e 6f 74 20 61 20 66 75 | 6e 63 74 69 6f 6e 22 20 |not a fu|nction" |
|00000700| 62 79 74 65 2d 63 6f 64 | 65 20 69 6e 74 65 72 61 |byte-cod|e intera|
|00000710| 63 74 69 76 65 2d 70 20 | 6d 65 73 73 61 67 65 20 |ctive-p |message |
|00000720| 22 43 6f 6d 70 69 6c 69 | 6e 67 20 25 73 27 73 20 |"Compili|ng %s's |
|00000730| 64 65 66 69 6e 69 74 69 | 6f 6e 2e 2e 2e 22 20 22 |definiti|on..." "|
|00000740| 43 6f 6d 70 69 6c 69 6e | 67 20 64 65 66 69 6e 69 |Compilin|g defini|
|00000750| 74 69 6f 6e 2e 2e 2e 22 | 20 62 79 74 65 2d 63 6f |tion..."| byte-co|
|00000760| 6d 70 69 6c 65 20 22 44 | 6f 6e 65 20 63 6f 6d 70 |mpile "D|one comp|
|00000770| 69 6c 69 6e 67 2e 20 20 | 44 69 73 61 73 73 65 6d |iling.  |Disassem|
|00000780| 62 6c 69 6e 67 2e 2e 2e | 22 20 30 20 69 6e 64 65 |bling...|" 0 inde|
|00000790| 6e 74 20 66 6f 72 6d 61 | 74 20 22 62 79 74 65 20 |nt forma|t "byte |
|000007a0| 63 6f 64 65 25 73 25 73 | 25 73 3a 5c 6e 22 20 22 |code%s%s|%s:\n" "|
|000007b0| 20 66 6f 72 22 20 22 22 | 20 22 20 6d 61 63 72 6f | for" ""| " macro|
|000007c0| 22 20 22 20 25 73 22 20 | 34 20 70 72 69 6e 63 20 |" " %s" |4 princ |
|000007d0| 22 20 20 64 6f 63 3a 20 | 20 22 20 73 74 72 69 6e |"  doc: | " strin|
|000007e0| 67 2d 6d 61 74 63 68 20 | 22 5c 6e 22 20 22 20 2e |g-match |"\n" " .|
|000007f0| 2e 2e 22 20 22 20 20 61 | 72 67 73 3a 20 22 20 70 |.." "  a|rgs: " p|
|00000800| 72 69 6e 31 20 69 6e 74 | 65 72 61 63 74 69 76 65 |rin1 int|eractive|
|00000810| 20 35 20 22 20 69 6e 74 | 65 72 61 63 74 69 76 65 | 5 " int|eractive|
|00000820| 3a 20 22 20 64 69 73 61 | 73 73 65 6d 62 6c 65 2d |: " disa|ssemble-|
|00000830| 31 20 64 69 73 61 73 73 | 65 6d 62 6c 65 2d 72 65 |1 disass|emble-re|
|00000840| 63 75 72 73 69 76 65 2d | 69 6e 64 65 6e 74 20 70 |cursive-|indent p|
|00000850| 72 69 6e 74 2d 65 73 63 | 61 70 65 2d 6e 65 77 6c |rint-esc|ape-newl|
|00000860| 69 6e 65 73 20 63 6f 6d | 70 69 6c 65 64 2d 66 75 |ines com|piled-fu|
|00000870| 6e 63 74 69 6f 6e 2d 70 | 20 22 55 6e 63 6f 6d 70 |nction-p| "Uncomp|
|00000880| 69 6c 65 64 20 62 6f 64 | 79 3a 20 20 22 20 70 72 |iled bod|y:  " pr|
|00000890| 6f 67 6e 5d 20 38 5d 29 | 0a 28 66 73 65 74 20 27 |ogn] 8])|.(fset '|
|000008a0| 64 69 73 61 73 73 65 6d | 62 6c 65 2d 31 20 23 5b |disassem|ble-1 #[|
|000008b0| 28 6f 62 6a 20 69 6e 64 | 65 6e 74 29 20 22 c0 89 |(obj ind|ent) "..|
|000008c0| 19 1a 0b 3a ab 8b 0b 41 | 40 12 0b 41 41 40 11 aa |...:...A|@..AA@..|
|000008d0| 88 0b c4 48 12 0b c5 48 | 11 c6 5c 6e 09 5c 22 c0 |...H...H|..\n.\".|
|000008e0| 89 89 1e 07 1e 08 1e 09 | 1e 5c 6e cb c0 0e 5c 6e |........|.\n...\n|
|000008f0| 1e 5c 6e 1e 0c 1e 0d ce | 0e 5c 6e 9e 89 16 0c ab |.\n.....|.\n.....|
|00000900| 95 0e 0c 41 0e 0d 54 89 | 16 0d a0 88 0e 0c 0e 5c |...A..T.|.......\|
|00000910| 6e 3e 41 16 5c 6e aa 62 | 2b 0e 5c 6e 83 8e 01 0e |n>A.\n.b|+.\n....|
|00000920| 5c 6e 40 40 16 09 0e 5c | 6e 40 41 16 08 0e 0f 6a |\n@@...\|n@A....j|
|00000930| 88 0e 09 ce 3d ab 8c d0 | 0e 08 40 21 d1 b1 02 88 |....=...|..@!....|
|00000940| 82 85 01 0e 0f 0e 12 5c | 5c 6a 88 0e 09 ab 95 d3 |.......\|\j......|
|00000950| d4 d5 0e 09 21 89 16 07 | 5c 22 ab 89 0e 07 d6 c0 |....!...|\"......|
|00000960| 4f 16 07 aa 83 d7 16 07 | 0e 09 d8 3d ab 83 d9 63 |O.......|...=...c|
|00000970| 88 0e 07 63 88 0e 0f 0e | 12 0e 1a db 5c 5c 5c 5c |...c....|....\\\\|
|00000980| 5c 5c 6a 88 dc 63 88 0e | 09 0e 1d 3e ab 8b d0 0e |\\j..c..|...>....|
|00000990| 08 41 40 21 63 88 82 82 | 01 0e 09 de 3e ab 89 d0 |.A@!c...|....>...|
|000009a0| 0e 08 21 63 88 82 82 01 | 0e 09 df 3e ab 8a e0 0e |..!c....|...>....|
|000009b0| 08 40 70 5c 22 88 82 82 | 01 0e 09 e1 3e 83 82 01 |.@p\"...|....>...|
|000009c0| 0e 08 40 16 08 e2 0e 08 | 21 ac aa 0e 08 a2 e3 3d |..@.....|!......=|
|000009d0| ab 86 e4 0e 08 9e ac 9d | 0e 08 a2 e5 3d ab bf e2 |........|....=...|
|000009e0| 0e 08 41 21 ac 8f 0e 08 | 41 a2 e3 3d ab b0 e4 0e |..A!....|A..=....|
|000009f0| 08 41 9e ab a9 e2 0e 08 | 21 ab 85 e6 63 88 aa 8f |.A......|!...c...|
|00000a00| 0e 08 a2 e3 3d ab 85 e7 | 63 88 aa 83 e8 63 88 e9 |....=...|c....c..|
|00000a10| 0e 08 0e 0f 0e 2a c4 5c | 5c 5c 5c c0 23 88 aa b3 |.....*.\|\\\.#...|
|00000a20| 0e 08 a2 e4 3d ab 8f eb | 63 88 ec 0e 08 0e 0f 0e |....=...|c.......|
|00000a30| 2a 5c 5c 5c 22 88 aa 9d | 0e 08 a2 a2 e4 3d ab 8b |*\\\"...|.....=..|
|00000a40| ed 63 88 ee ef 0e 08 5c | 22 88 aa 8a f0 1e 31 e0 |.c.....\|".....1.|
|00000a50| 0e 08 70 5c 22 88 29 f2 | 63 88 0e 5c 6e 41 89 16 |..p\".).|c..\nA..|
|00000a60| 5c 6e 84 58 00 2e 06 c0 | 87 22 20 5b 6e 69 6c 20 |\n.X....|." [nil |
|00000a70| 63 6f 6e 73 74 76 65 63 | 20 62 79 74 65 73 20 6f |constvec| bytes o|
|00000a80| 62 6a 20 31 20 32 20 62 | 79 74 65 2d 64 65 63 6f |bj 1 2 b|yte-deco|
|00000a90| 6d 70 69 6c 65 2d 62 79 | 74 65 63 6f 64 65 20 6f |mpile-by|tecode o|
|00000aa0| 70 6e 61 6d 65 20 61 72 | 67 20 6f 70 20 6c 61 70 |pname ar|g op lap|
|00000ab0| 20 30 20 74 6d 70 20 74 | 61 67 6e 6f 20 54 41 47 | 0 tmp t|agno TAG|
|00000ac0| 20 69 6e 64 65 6e 74 20 | 69 6e 74 2d 74 6f 2d 73 | indent |int-to-s|
|00000ad0| 74 72 69 6e 67 20 22 3a | 22 20 64 69 73 61 73 73 |tring ":|" disass|
|00000ae0| 65 6d 62 6c 65 2d 63 6f | 6c 75 6d 6e 2d 31 2d 69 |emble-co|lumn-1-i|
|00000af0| 6e 64 65 6e 74 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ndent st|ring-mat|
|00000b00| 63 68 20 22 5e 62 79 74 | 65 2d 22 20 73 79 6d 62 |ch "^byt|e-" symb|
|00000b10| 6f 6c 2d 6e 61 6d 65 20 | 35 20 22 3c 6e 6f 74 2d |ol-name |5 "<not-|
|00000b20| 61 6e 2d 6f 70 63 6f 64 | 65 3e 22 20 62 79 74 65 |an-opcod|e>" byte|
|00000b30| 2d 63 6f 6e 73 74 61 6e | 74 32 20 22 20 23 23 23 |-constan|t2 " ###|
|00000b40| 23 20 73 68 6f 75 6c 64 | 6e 27 74 20 68 61 76 65 |# should|n't have|
|00000b50| 20 73 65 65 6e 20 63 6f | 6e 73 74 61 6e 74 32 20 | seen co|nstant2 |
|00000b60| 68 65 72 65 21 5c 6e 20 | 20 22 20 64 69 73 61 73 |here!\n | " disas|
|00000b70| 73 65 6d 62 6c 65 2d 63 | 6f 6c 75 6d 6e 2d 32 2d |semble-c|olumn-2-|
|00000b80| 69 6e 64 65 6e 74 20 2d | 31 20 22 20 22 20 62 79 |indent -|1 " " by|
|00000b90| 74 65 2d 67 6f 74 6f 2d | 6f 70 73 20 28 62 79 74 |te-goto-|ops (byt|
|00000ba0| 65 2d 63 61 6c 6c 20 62 | 79 74 65 2d 75 6e 62 69 |e-call b|yte-unbi|
|00000bb0| 6e 64 20 62 79 74 65 2d | 6c 69 73 74 4e 20 62 79 |nd byte-|listN by|
|00000bc0| 74 65 2d 63 6f 6e 63 61 | 74 4e 20 62 79 74 65 2d |te-conca|tN byte-|
|00000bd0| 69 6e 73 65 72 74 4e 29 | 20 28 62 79 74 65 2d 76 |insertN)| (byte-v|
|00000be0| 61 72 72 65 66 20 62 79 | 74 65 2d 76 61 72 73 65 |arref by|te-varse|
|00000bf0| 74 20 62 79 74 65 2d 76 | 61 72 62 69 6e 64 29 20 |t byte-v|arbind) |
|00000c00| 70 72 69 6e 31 20 28 62 | 79 74 65 2d 63 6f 6e 73 |prin1 (b|yte-cons|
|00000c10| 74 61 6e 74 20 62 79 74 | 65 2d 63 6f 6e 73 74 61 |tant byt|e-consta|
|00000c20| 6e 74 32 29 20 63 6f 6d | 70 69 6c 65 64 2d 66 75 |nt2) com|piled-fu|
|00000c30| 6e 63 74 69 6f 6e 2d 70 | 20 6c 61 6d 62 64 61 20 |nction-p| lambda |
|00000c40| 62 79 74 65 2d 63 6f 64 | 65 20 6d 61 63 72 6f 20 |byte-cod|e macro |
|00000c50| 22 3c 63 6f 6d 70 69 6c | 65 64 2d 66 75 6e 63 74 |"<compil|ed-funct|
|00000c60| 69 6f 6e 3e 5c 6e 22 20 | 22 3c 63 6f 6d 70 69 6c |ion>\n" |"<compil|
|00000c70| 65 64 20 6c 61 6d 62 64 | 61 3e 22 20 22 3c 63 6f |ed lambd|a>" "<co|
|00000c80| 6d 70 69 6c 65 64 20 6d | 61 63 72 6f 3e 5c 6e 22 |mpiled m|acro>\n"|
|00000c90| 20 64 69 73 61 73 73 65 | 6d 62 6c 65 2d 69 6e 74 | disasse|mble-int|
|00000ca0| 65 72 6e 61 6c 20 64 69 | 73 61 73 73 65 6d 62 6c |ernal di|sassembl|
|00000cb0| 65 2d 72 65 63 75 72 73 | 69 76 65 2d 69 6e 64 65 |e-recurs|ive-inde|
|00000cc0| 6e 74 20 22 3c 62 79 74 | 65 20 63 6f 64 65 3e 5c |nt "<byt|e code>\|
|00000cd0| 6e 22 20 64 69 73 61 73 | 73 65 6d 62 6c 65 2d 31 |n" disas|semble-1|
|00000ce0| 20 22 28 3c 62 79 74 65 | 20 63 6f 64 65 3e 2e 2e | "(<byte| code>..|
|00000cf0| 2e 29 5c 6e 22 20 6d 61 | 70 63 61 72 20 23 5b 28 |.)\n" ma|pcar #[(|
|00000d00| 6f 62 6a 29 20 22 c0 09 | 5c 6e 0b 5c 5c 5c 22 87 |obj) "..|\n.\\\".|
|00000d10| 22 20 5b 64 69 73 61 73 | 73 65 6d 62 6c 65 2d 31 |" [disas|semble-1|
|00000d20| 20 6f 62 6a 20 69 6e 64 | 65 6e 74 20 64 69 73 61 | obj ind|ent disa|
|00000d30| 73 73 65 6d 62 6c 65 2d | 72 65 63 75 72 73 69 76 |ssemble-|recursiv|
|00000d40| 65 2d 69 6e 64 65 6e 74 | 5d 20 34 5d 20 74 20 70 |e-indent|] 4] t p|
|00000d50| 72 69 6e 74 2d 65 73 63 | 61 70 65 2d 6e 65 77 6c |rint-esc|ape-newl|
|00000d60| 69 6e 65 73 20 22 5c 6e | 22 5d 20 36 20 22 5c 0a |ines "\n|"] 6 "\.|
|00000d70| 50 72 69 6e 74 73 20 74 | 68 65 20 62 79 74 65 2d |Prints t|he byte-|
|00000d80| 63 6f 64 65 20 63 61 6c | 6c 20 4f 42 4a 20 69 6e |code cal|l OBJ in|
|00000d90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00000da0| 66 65 72 2e 0a 4f 42 4a | 20 73 68 6f 75 6c 64 20 |fer..OBJ| should |
|00000db0| 62 65 20 61 20 63 61 6c | 6c 20 74 6f 20 42 59 54 |be a cal|l to BYT|
|00000dc0| 45 2d 43 4f 44 45 20 67 | 65 6e 65 72 61 74 65 64 |E-CODE g|enerated|
|00000dd0| 20 62 79 20 74 68 65 20 | 62 79 74 65 20 63 6f 6d | by the |byte com|
|00000de0| 70 69 6c 65 72 2e 22 5d | 29 0a                   |piler."]|).      |
+--------+-------------------------+-------------------------+--------+--------+