$ od -c -N 50000 [eris]<LispCore>busmaster>BETAKOTO>BUSEXTENDER.DCOM!1
0000000    (   F   I   L   E   C   R   E   A   T   E   D       "   2   8
0000020    -   S   e   p   -   8   5       1   7   :   3   5   :   4   9
0000040    "       (   "   c   o   m   p   i   l   e   d       o   n    
0000060    "       {   E   R   I   S   }   <   L   I   S   P   C   O   R
0000100    E   >   B   U   S   M   A   S   T   E   R   >   K   O   T   O
0000120    >   T   E   S   T   2   >   B   U   S   E   X   T   E   N   D
0000140    E   R   .   ;   1   )  \r       "   1   7   -   S   e   p   -
0000160    8   5       0   9   :   0   2   :   2   2   "       t   c   o
0000200    m   p   l   '   d       i   n       "   I   N   T   E   R   L
0000220    I   S   P   -   D       1   7   -   S   e   p   -   8   5    
0000240    .   .   .   "       d   a   t   e   d       "   1   7   -   S
0000260    e   p   -   8   5       0   9   :   0   7   :   4   3   "   )
0000300   \r   (   F   I   L   E   C   R   E   A   T   E   D       "   1
0000320    9   -   A   u   g   -   8   5       1   1   :   1   4   :   0
0000340    6   "       {   D   S   K   }   <   D   S   K   >   H   T   H
0000360    O   M   P   S   O   N   >   D   S   L   >   B   U   S   E   X
0000400    T   E   N   D   E   R   .   ;   3       5   8   5   1       c
0000420    h   a   n   g   e   s       t   o   :       (   V   A   R   S
0000440       \r   B   U   S   E   X   T   E   N   D   E   R   C   O   M
0000460    S   )       p   r   e   v   i   o   u   s       d   a   t   e
0000500    :       "   1   5   -   A   u   g   -   8   5       1   1   :
0000520    1   9   :   1   8   "       {   D   S   K   }   <   D   S   K
0000540    >   H   T   H   O   M   P   S   O   N   >   D   S   L   >   B
0000560    U   S   E   X   T   E   N   D   E   R   .   ;   2   )  \r   B
0000600    X   .   I   N   P   U   T       D   1  \r   (   L       (   0
0000620        A   D   D   R   )   )      \0 027  \0  \0  \0 001   @   l
0000640  036 345 340 340 340   @   k 345   j 360 222   l  \n 201   l  \t
0000660  330   x 001 020  \0   N   I   L  \r   N   I   L  \r   (   )  \r
0000700    B   X   .   O   U   T   P   U   T       D   1  \r   (   L    
0000720    (   1       A   D   D   R       0       D   A   T   U   M   )
0000740    )      \0 027  \0  \0  \0 002   @   A   l 036 345 340 340 340
0000760    A   k 345   j 360 222   l  \v 200   j 330   y 002 020  \0   N
0001000    I   L  \r   N   I   L  \r   (   )  \r   B   X   .   R   E   A
0001020    D   S   T   A   T   U   S       D   1  \r   N   I   L      \0
0001040  024  \0  \0  \0  \0   j   l 016  \n  \0  \0   l  \a  \t  \0  \0
0001060  342 342 342 342   l 017 345 020  \0   (   1   2   Q       \   D
0001100    E   V   I   C   E   .   I   N   P   U   T       5       \   D
0001120    E   V   I   C   E   .   O   U   T   P   U   T   )  \r   N   I
0001140    L  \r   (   )  \r   \   M   I   S   C   1   .   U   F   N    
0001160    D   1  \r   (   I       1       A   L   P   H   A       I    
0001200    0       A   R   G   )      \0 026  \0  \0  \0 002   A   k 360
0001220  227   o  \0  \0  \0  \t  \0  \0 020   o  \0  \0  \0   A  \n  \0
0001240   \0 020  \0   (   2   3   Q       R   A   I   D       1   2   Q
0001260        E   R   R   O   R   )  \r   N   I   L  \r   (       1   7
0001300    Q       "   U   n   i   m   p   l   e   m   e   n   t   e   d
0001320        M   I   S   C   1       o   p   "       7       "   A   t
0001340    t   e   m   p   t       t   o       a   c   c   e   s   s    
0001360    b   u   s       e   x   t   e   n   d   e   r       o   p   t
0001400    i   o   n       o   n       a       m   a   c   h   i   n   e
0001420        w   h   i   c   h       d   o   e   s       n   o   t    
0001440    s   u   p   p   o   r   t       i   t   "   )  \r   \   M   I
0001460    S   C   2   .   U   F   N       D   1  \r   (   I       2    
0001500    A   L   P   H   A       I       1       A   R   G   1       I
0001520        0       A   R   G   0   )      \0 027  \0  \0  \0 003   B
0001540    l 002 360 227   o  \0  \0  \0  \t  \0  \0 020   o  \0  \0  \0
0001560    B  \n  \0  \0 020  \0   (   2   4   Q       R   A   I   D    
0001600    1   3   Q       E   R   R   O   R   )  \r   N   I   L  \r   (
0001620        2   0   Q       "   U   n   i   m   p   l   e   m   e   n
0001640    t   e   d       M   I   S   C   2       o   p   "       1   0
0001660    Q       "   A   t   t   e   m   p   t       t   o       a   c
0001700    c   e   s   s       b   u   s       e   x   t   e   n   d   e
0001720    r       o   p   t   i   o   n       o   n       a       m   a
0001740    c   h   i   n   e       w   h   i   c   h       d   o   e   s
0001760        n   o   t       s   u   p   p   o   r   t       i   t   "
0002000    )  \r   (   P   R   E   T   T   Y   C   O   M   P   R   I   N
0002020    T       B   U   S   E   X   T   E   N   D   E   R   C   O   M
0002040    S   )  \r   (   R   P   A   Q   Q       B   U   S   E   X   T
0002060    E   N   D   E   R   C   O   M   S       (   (   E       (   R
0002100    E   S   E   T   S   A   V   E       C   L   I   S   P   I   F
0002120    Y   P   R   E   T   T   Y   F   L   G       N   I   L   )   )
0002140        (   F   N   S       B   X   .   I   N   P   U   T       B
0002160    X   .   O   U   T   P   U   T       B   X   .   R   E   A   D
0002200    S   T   A   T   U   S   )       (  \r   *       s   o       t
0002220    h   a   t       t   h   e       m   a   c   r   o   s       w
0002240    i   l   l       l   o   a   d   c   o   m   p       f   r   o
0002260    m       t   h   e       c   o   m   p   i   l   e   d       f
0002300    i   l   e   )       (   D   E   C   L   A   R   E   :       D
0002320    O   C   O   P   Y       (   D   E   C   L   A   R   E   :    
0002340    E   V   A   L   @   L   O   A   D      \r   E   V   A   L   @
0002360    C   O   M   P   I   L   E       (   M   A   C   R   O   S    
0002400    B   X   .   I   N   P   U   T       B   X   .   O   U   T   P
0002420    U   T   )   )   )       (   *       t   o       g   e   n   e
0002440    r   a   t   e       e   r   r   o   r   s       o   n       n
0002460    o   n   -   1   1   0   9   s   )       (   F   N   S       \
0002500    M   I   S   C   1   .   U   F   N      \r   \   M   I   S   C
0002520    2   .   U   F   N   )   )   )  \r   (   D   E   C   L   A   R
0002540    E   :       E   V   A   L   @   L   O   A   D       E   V   A
0002560    L   @   C   O   M   P   I   L   E       (   D   E   C   L   A
0002600    R   E   :       E   V   A   L   @   C   O   M   P   I   L   E
0002620        (   P   U   T   P   R   O   P   S       B   X   .   I   N
0002640    P   U   T       D   M   A   C   R   O       (   A   R   G   L
0002660    I   S   T       (   P   R   O   G       (  \r   A   D   D   R
0002700    A   R   G       L   I   S   T   O   F   A   D   D   R   V   A
0002720    L       A   D   D   R   V   A   L   )       (   *       *    
0002740    T   h   e       p   o   i   n   t       o   f       t   h   i
0002760    s       m   a   c   r   o       i   s       t   h   a   t    
0003000    a   l   m   o   s   t       a   l   l       o   f       t   h
0003020    e       c   o   d   e       o   f       t   h   e      \r   f
0003040    u   n   c   t   i   o   n       c   a   n       b   e       c
0003060    o   m   p   u   t   e   d       a   t       c   o   m   p   i
0003100    l   e       t   i   m   e       i   f       t   h   e       a
0003120    r   g   u   m   e   n   t       i   s       k   n   o   w   n
0003140        a   t       c   o   m   p   i   l   e       t   i   m   e
0003160        -   -       T   h   e       f   u   n   c   t   i   o   n
0003200        i   s      \r   -   -       (   \   D   E   V   I   C   E
0003220    .   I   N   P   U   T       (   I   P   L   U   S       (   L
0003240    L   S   H       (   L   O   G   A   N   D       A   D   D   R
0003260        3   0   )       3   )       (   i   f       (   Z   E   R
0003300    O   P       (   L   O   G   A   N   D       A   D   D   R    
0003320    1   )   )       t   h   e   n       1   0       e   l   s   e
0003340        9   )   )   )   )       (   *       *  \r       h   t    
0003360    p   u   t       t   h   e       e   x   p   a   n   s   i   o
0003400    n   s       f   o   r       \   D   E   V   I   C   E   .   I
0003420    N   P   U   T       i   n       b   y       h   a   n   d    
0003440    i   n   s   t   e   a   d       o   f       d   e   f   i   n
0003460    i   n   g       a       m   a   c   r   o       o   n       t
0003500    h   e       g   r   o   u   n   d   s       t   h   a   t    
0003520   \r   t   h   i   s       w   a   y       i   f       t   h   e
0003540        o   p   c   o   d   e       e   v   e   r       c   h   a
0003560    n   g   e   s       o   n   l   y       B   U   S   M   A   S
0003600    T   E   R   /   E   X   T   E   N   D   E   R       u   s   e
0003620    r   s       a   r   e       s   c   r   e   w   e   d   ,    
0003640    n   o   t       r   a   n   d   o   m       f   o   l   k    
0003660    w   h   o      \r   h   a   p   p   e   n       t   o       h
0003700    a   v   e       c   o   m   p   i   l   e   d       s   o   m
0003720    e   t   h   i   n   g       w   h   i   c   h       i   n   c
0003740    l   u   d   e   s       a       \   D   E   V   I   C   E   .
0003760    I   N   P   U   T   )       (   S   E   T   Q       A   D   D
0004000    R   A   R   G       (   C   A   R       A   R   G   L   I   S
0004020    T   )   )       (   R   E   T   U   R   N  \r       (   C   O
0004040    N   D       (   (   A   N   D       (   S   E   T   Q       L
0004060    I   S   T   O   F   A   D   D   R   V   A   L       (   C   O
0004100    N   S   T   A   N   T   E   X   P   R   E   S   S   I   O   N
0004120    P       A   D   D   R   A   R   G   )   )       (   S   M   A
0004140    L   L   P       (   S   E   T   Q       A   D   D   R   V   A
0004160    L       (   C   A   R      \r   L   I   S   T   O   F   A   D
0004200    D   R   V   A   L   )   )   )   )       (   B   Q   U   O   T
0004220    E       (   (   O   P   C   O   D   E   S       M   I   S   C
0004240    1       1   )       ,       (   I   P   L   U   S       (   L
0004260    L   S   H       (   L   O   G   A   N   D       A   D   D   R
0004300    A   R   G       3   0   )       3   )       (   C   O   N   D
0004320        (   (   Z   E   R   O   P       (  \r   L   O   G   A   N
0004340    D       A   D   D   R   A   R   G       1   )   )       1   0
0004360    )       (   T       9   )   )   )   )   )   )       (   T    
0004400    (   B   Q   U   O   T   E       (   (   O   P   C   O   D   E
0004420    S       M   I   S   C   1       1   )       (   I   P   L   U
0004440    S       (   L   L   S   H       (   L   O   G   A   N   D    
0004460    ,       A   D   D   R   A   R   G       3   0   )       3   )
0004500       \r   (   C   O   N   D       (   (   Z   E   R   O   P    
0004520    (   L   O   G   A   N   D       ,       A   D   D   R   A   R
0004540    G       1   )   )       1   0   )       (   T       9   )   )
0004560    )   )   )   )   )   )   )   )   )       (   P   U   T   P   R
0004600    O   P   S       B   X   .   O   U   T   P   U   T       D   M
0004620    A   C   R   O       (   A   R   G   L   I   S   T       (   P
0004640    R   O   G       (  \r   D   A   T   U   M   A   R   G       A
0004660    D   D   R   A   R   G       L   I   S   T   O   F   A   D   D
0004700    R   V   A   L       A   D   D   R   V   A   L   )       (   *
0004720        *       T   h   e       p   o   i   n   t       o   f    
0004740    t   h   i   s       m   a   c   r   o       i   s       t   h
0004760    a   t       a   l   m   o   s   t       a   l   l       o   f
0005000        t   h   e       c   o   d   e       o   f  \r       t   h
0005020    e       f   u   n   c   t   i   o   n       c   a   n       b
0005040    e       c   o   m   p   u   t   e   d       a   t       c   o
0005060    m   p   i   l   e       t   i   m   e       i   f       t   h
0005100    e       a   r   g   u   m   e   n   t       i   s       k   n
0005120    o   w   n       a   t       c   o   m   p   i   l   e       t
0005140    i   m   e       -   -       T   h   e       f   u   n   c   t
0005160    i   o   n  \r       i   s       -   -       (   \   D   E   V
0005200    I   C   E   .   O   U   T   P   U   T       D   A   T   U   M
0005220        (   I   P   L   U   S       (   L   L   S   H       (   L
0005240    O   G   A   N   D       A   D   D   R       3   0   )       3
0005260    )       (   i   f       (   Z   E   R   O   P       (   L   O
0005300    G   A   N   D       A   D   D   R       1   )   )       t   h
0005320    e   n       1   1       e   l   s   e  \r       0   )   )   )
0005340    )       (   *       *       h   t       p   u   t       t   h
0005360    e       e   x   p   a   n   s   i   o   n   s       f   o   r
0005400        \   D   E   V   I   C   E   .   O   U   T   P   U   T    
0005420    i   n       b   y       h   a   n   d       i   n   s   t   e
0005440    a   d       o   f       d   e   f   i   n   i   n   g       a
0005460        m   a   c   r   o       o   n       t   h   e      \r   g
0005500    r   o   u   n   d   s       t   h   a   t       t   h   i   s
0005520        w   a   y       i   f       t   h   e       o   p   c   o
0005540    d   e       e   v   e   r       c   h   a   n   g   e   s    
0005560    o   n   l   y       B   U   S   M   A   S   T   E   R   /   E
0005600    X   T   E   N   D   E   R       u   s   e   r   s       a   r
0005620    e       s   c   r   e   w   e   d   ,       n   o   t       r
0005640    a   n   d   o   m  \r       f   o   l   k       w   h   o    
0005660    h   a   p   p   e   n       t   o       h   a   v   e       c
0005700    o   m   p   i   l   e   d       s   o   m   e   t   h   i   n
0005720    g       w   h   i   c   h       i   n   c   l   u   d   e   s
0005740        a       \   D   E   V   I   C   E   .   O   U   T   P   U
0005760    T   )       (   S   E   T   Q       D   A   T   U   M   A   R
0006000    G       (   C   A   R      \r   A   R   G   L   I   S   T   )
0006020    )       (   S   E   T   Q       A   D   D   R   A   R   G    
0006040    (   C   A   D   R       A   R   G   L   I   S   T   )   )    
0006060    (   R   E   T   U   R   N       (   C   O   N   D       (   (
0006100    A   N   D       (   S   E   T   Q       L   I   S   T   O   F
0006120    A   D   D   R   V   A   L       (   C   O   N   S   T   A   N
0006140    T   E   X   P   R   E   S   S   I   O   N   P      \r   A   D
0006160    D   R   A   R   G   )   )       (   S   M   A   L   L   P    
0006200    (   S   E   T   Q       A   D   D   R   V   A   L       (   C
0006220    A   R       L   I   S   T   O   F   A   D   D   R   V   A   L
0006240    )   )   )   )       (   B   Q   U   O   T   E       (   (   O
0006260    P   C   O   D   E   S       M   I   S   C   2       2   )    
0006300    ,       D   A   T   U   M   A   R   G       ,       (   I   P
0006320    L   U   S      \r   (   L   L   S   H       (   L   O   G   A
0006340    N   D       A   D   D   R   A   R   G       3   0   )       3
0006360    )       (   C   O   N   D       (   (   Z   E   R   O   P    
0006400    (   L   O   G   A   N   D       A   D   D   R   A   R   G    
0006420    1   )   )       1   1   )       (   T       0   )   )   )   )
0006440    )   )       (   T       (   B   Q   U   O   T   E       (   (
0006460    O   P   C   O   D   E   S      \r   M   I   S   C   2       2
0006500    )       ,       D   A   T   U   M   A   R   G       (   I   P
0006520    L   U   S       (   L   L   S   H       (   L   O   G   A   N
0006540    D       ,       A   D   D   R   A   R   G       3   0   )    
0006560    3   )       (   C   O   N   D       (   (   Z   E   R   O   P
0006600        (   L   O   G   A   N   D       ,       A   D   D   R   A
0006620    R   G       1   )   )       1   1   )       (   T       0  \r
0006640    )   )   )   )   )   )   )   )   )   )   )   )   )  \r   (   P
0006660    U   T   P   R   O   P   S       B   U   S   E   X   T   E   N
0006700    D   E   R       C   O   P   Y   R   I   G   H   T       (   "
0006720    X   e   r   o   x       C   o   r   p   o   r   a   t   i   o
0006740    n   "       1   9   8   4       1   9   8   5   )   )  \r   N
0006760    I   L  \r                                                    
0006763