<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">        radix   dec
        ; Code bank 0; Start address: 0; End address: 4095
        org     0

        ; Define start addresses for data regions
shared___globals equ 112
globals___0 equ 32
globals___1 equ 160
globals___2 equ 288
__indf equ 0
__pcl equ 2
__status equ 3
__fsr equ 4
__c___byte equ 3
__c___bit equ 0
__z___byte equ 3
__z___bit equ 2
__rp0___byte equ 3
__rp0___bit equ 5
__rp1___byte equ 3
__rp1___bit equ 6
__irp___byte equ 3
__irp___bit equ 7
__pclath equ 10
__cb0___byte equ 10
__cb0___bit equ 3
__cb1___byte equ 10
__cb1___bit equ 4

        ; # Copyright (c) 2005-2006 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # This module uses a PIC16F688:
        ; buffer = 'voice1'
        ; line_number = 7
        ; library _pic16f688 entered

        ; # Copyright (c) 2004-2006 by Wayne C. Gramlich
        ; # All rights reserved.

        ; buffer = '_pic16f688'
        ; line_number = 6
        ; processor pic16f688
        ; line_number = 7
        ; configure_address 0x2007
        ; line_number = 8
        ;  configure_fill 0x3000
        ; line_number = 9
        ;  configure_option fcmen: on = 0x800
        ; line_number = 10
        ;  configure_option fcmen: off = 0x000
        ; line_number = 11
        ;  configure_option ieso: on = 0x400
        ; line_number = 12
        ;  configure_option ieso: off = 0x000
        ; line_number = 13
        ;  configure_option boden: on = 0x300
        ; line_number = 14
        ;  configure_option boden: partial = 0x200
        ; line_number = 15
        ;  configure_option boden: sboden = 0x100
        ; line_number = 16
        ;  configure_option boden: off = 0x000
        ; line_number = 17
        ;  configure_option cpd: on = 0x00
        ; line_number = 18
        ;  configure_option cpd: off = 0x80
        ; line_number = 19
        ;  configure_option cp: on = 0x00
        ; line_number = 20
        ;  configure_option cp: off = 0x40
        ; line_number = 21
        ;  configure_option mclre: on = 0x20
        ; line_number = 22
        ;  configure_option mclre: off = 0x00
        ; line_number = 23
        ;  configure_option pwrte: on = 0x00
        ; line_number = 24
        ;  configure_option pwrte: off = 0x10
        ; line_number = 25
        ;  configure_option wdte: on = 8
        ; line_number = 26
        ;  configure_option wdte: off = 0
        ; line_number = 27
        ;  configure_option fosc: rc_clk = 7
        ; line_number = 28
        ;  configure_option fosc: rc_no_clk = 6
        ; line_number = 29
        ;  configure_option fosc: int_clk = 5
        ; line_number = 30
        ;  configure_option fosc: int_no_clk = 4
        ; line_number = 31
        ;  configure_option fosc: ec = 3
        ; line_number = 32
        ;  configure_option fosc: hs = 2
        ; line_number = 33
        ;  configure_option fosc: xt = 1
        ; line_number = 34
        ;  configure_option fosc: lp = 0

        ; line_number = 36
        ;  code_bank 0x0 : 0xfff
        ; line_number = 37
        ;  data_bank 0x0 : 0x7f
        ; line_number = 38
        ;  data_bank 0x80 : 0xff
        ; line_number = 39
        ;  data_bank 0x100 : 0x17f
        ; line_number = 40
        ;  data_bank 0x180 : 0x1ff

        ; line_number = 42
        ;  global_region 0x20 : 0x6f
        ; line_number = 43
        ;  icd2_global_region 0x20 : 0x6f

        ; line_number = 45
        ;  global_region 0xa0 : 0xef
        ; line_number = 46
        ;  icd2_global_region 0xa0 : 0xef

        ; line_number = 48
        ;  global_region 0x120 : 0x16f
        ; line_number = 49
        ;  icd2_global_region 0x120 : 0x164

        ; line_number = 51
        ;  shared_region 0x70 : 0x7f
        ; line_number = 52
        ;  icd2_shared_region 0x71 : 0x7f

        ; line_number = 54
        ;  interrupts_possible
        ; line_number = 55
        ;  packages pdip=14, soic=14, tssop=14
        ; line_number = 56
        ;  pin vdd, power_supply
        ; line_number = 57
        ; pin_bindings pdip=1, soic=1, tssop=1
        ; line_number = 58
        ; pin ra5_in, ra5_nc, ra5_out, t1cki, osc1, clkin
        ; line_number = 59
        ; pin_bindings pdip=2, soic=2, tssop=2
        ; line_number = 60
        ;  bind_to _porta@5
        ; line_number = 61
        ;  or_if ra5_in _trisa 32
        ; line_number = 62
        ;  or_if ra5_nc _trisa 32
        ; line_number = 63
        ;  or_if ra5_out _trisa 0
        ; line_number = 64
        ;  or_if osc1 _trisa 32
        ; line_number = 65
        ; pin ra4_in, ra4_nc, ra4_out, t1g, osc2, an3, clkout
        ; line_number = 66
        ; pin_bindings pdip=3, soic=3, tssop=3
        ; line_number = 67
        ;  bind_to _porta@4
        ; line_number = 68
        ;  or_if ra4_in _trisa 16
        ; line_number = 69
        ;  or_if ra4_nc _trisa 16
        ; line_number = 70
        ;  or_if ra4_out _trisa 0
        ; line_number = 71
        ;  or_if an3 _trisa 16
        ; line_number = 72
        ;  or_if osc2 _trisa 16
        ; line_number = 73
        ;  or_if ra4_in _ansel 0
        ; line_number = 74
        ;  or_if ra4_out _ansel 0
        ; line_number = 75
        ;  or_if an3 _ansel 8
        ; line_number = 76
        ;  or_if ra4_in _adcon0 0
        ; line_number = 77
        ;  or_if ra4_out _adcon0 0
        ; line_number = 78
        ;  or_if an3 _adcon0 1
        ; line_number = 79
        ; pin ra3_in, ra3_nc, mclr, vpp
        ; line_number = 80
        ; pin_bindings pdip=4, soic=4, tssop=4
        ; line_number = 81
        ;  bind_to _porta@3
        ; line_number = 82
        ;  or_if ra3_in _trisa 8
        ; line_number = 83
        ;  or_if ra3_nc _trisa 8
        ; line_number = 84
        ; pin rc5_in, rc5_nc, rc5_out, rx, dt
        ; line_number = 85
        ; pin_bindings pdip=5, soic=5, tssop=5
        ; line_number = 86
        ;  bind_to _portc@5
        ; line_number = 87
        ;  or_if rc5_in _trisc 32
        ; line_number = 88
        ;  or_if rc5_nc _trisc 32
        ; line_number = 89
        ;  or_if rc5_out _trisc 0
        ; line_number = 90
        ;  or_if rx _trisc 32
        ; line_number = 91
        ; pin rc4_in, rc4_nc, rc4_out, c2out, tx, ck
        ; line_number = 92
        ; pin_bindings pdip=6, soic=6, tssop=6
        ; line_number = 93
        ;  bind_to _portc@4
        ; line_number = 94
        ;  or_if rc4_in _trisc 16
        ; line_number = 95
        ;  or_if rc4_nc _trisc 16
        ; line_number = 96
        ;  or_if rc4_out _trisc 0
        ; # The UART documentation says TX must be marked as in input:
        ; line_number = 98
        ;  or_if tx _trisc 16
        ; line_number = 99
        ; pin rc3_in, rc3_nc, rc3_out, an7
        ; line_number = 100
        ; pin_bindings pdip=7, soic=7, tssop=7
        ; line_number = 101
        ;  bind_to _portc@3
        ; line_number = 102
        ;  or_if rc3_in _trisc 8
        ; line_number = 103
        ;  or_if rc3_nc _trisc 8
        ; line_number = 104
        ;  or_if rc3_out _trisc 0
        ; line_number = 105
        ;  or_if an7 _trisc 8
        ; line_number = 106
        ;  or_if rc3_in _ansel 0
        ; line_number = 107
        ;  or_if rc3_out _ansel 0
        ; line_number = 108
        ;  or_if an7 _ansel 128
        ; line_number = 109
        ;  or_if rc3_in _adcon0 0
        ; line_number = 110
        ;  or_if rc3_out _adcon0 0
        ; line_number = 111
        ;  or_if an7 _adcon0 1
        ; line_number = 112
        ; pin rc2_in, rc2_nc, rc2_out, an6
        ; line_number = 113
        ; pin_bindings pdip=8, soic=8, tssop=8
        ; line_number = 114
        ;  bind_to _portc@2
        ; line_number = 115
        ;  or_if rc2_in _trisc 4
        ; line_number = 116
        ;  or_if rc2_nc _trisc 4
        ; line_number = 117
        ;  or_if rc2_out _trisc 0
        ; line_number = 118
        ;  or_if an6 _trisc 4
        ; line_number = 119
        ;  or_if rc2_in _ansel 0
        ; line_number = 120
        ;  or_if rc2_out _ansel 0
        ; line_number = 121
        ;  or_if an6 _ansel 64
        ; line_number = 122
        ;  or_if rc2_in _adcon0 0
        ; line_number = 123
        ;  or_if rc2_out _adcon0 0
        ; line_number = 124
        ;  or_if an6 _adcon0 1
        ; line_number = 125
        ; pin rc1_in, rc1_nc, rc1_out, an5, c2in_minus
        ; line_number = 126
        ; pin_bindings pdip=9, soic=9, tssop=9
        ; line_number = 127
        ;  bind_to _portc@1
        ; line_number = 128
        ;  or_if rc1_in _trisc 2
        ; line_number = 129
        ;  or_if rc1_nc _trisc 2
        ; line_number = 130
        ;  or_if rc1_out _trisc 0
        ; line_number = 131
        ;  or_if rc1_in _cmcon0 7
        ; line_number = 132
        ;  or_if rc1_out _cmcon0 7
        ; line_number = 133
        ;  or_if an5 _trisc 2
        ; line_number = 134
        ;  or_if rc1_in _ansel 0
        ; line_number = 135
        ;  or_if rc1_out _ansel 0
        ; line_number = 136
        ;  or_if an5 _ansel 32
        ; line_number = 137
        ;  or_if rc1_in _adcon0 0
        ; line_number = 138
        ;  or_if rc1_out _adcon0 0
        ; line_number = 139
        ;  or_if an5 _adcon0 1
        ; line_number = 140
        ; pin rc0_in, rc0_nc, rc0_out, an4, c2in_plus
        ; line_number = 141
        ; pin_bindings pdip=10, soic=10, tssop=10
        ; line_number = 142
        ;  bind_to _portc@0
        ; line_number = 143
        ;  or_if rc0_in _trisc 1
        ; line_number = 144
        ;  or_if rc0_nc _trisc 1
        ; line_number = 145
        ;  or_if rc0_out _trisc 0
        ; line_number = 146
        ;  or_if rc0_in _cmcon0 7
        ; line_number = 147
        ;  or_if rc0_out _cmcon0 7
        ; line_number = 148
        ;  or_if an4 _trisc 1
        ; line_number = 149
        ;  or_if rc0_in _ansel 0
        ; line_number = 150
        ;  or_if rc0_out _ansel 0
        ; line_number = 151
        ;  or_if an4 _ansel 16
        ; line_number = 152
        ;  or_if rc0_in _adcon0 0
        ; line_number = 153
        ;  or_if rc0_out _adcon0 0
        ; line_number = 154
        ;  or_if an4 _adcon0 1
        ; line_number = 155
        ; pin ra2_in, ra2_nc, ra2_out, an2, c1out, t0cki, int
        ; line_number = 156
        ; pin_bindings pdip=11, soic=11, tssop=11
        ; line_number = 157
        ;  bind_to _porta@2
        ; line_number = 158
        ;  or_if ra2_in _trisa 4
        ; line_number = 159
        ;  or_if ra2_nc _trisa 4
        ; line_number = 160
        ;  or_if ra2_out _trisa 0
        ; line_number = 161
        ;  or_if an2 _trisa 4
        ; line_number = 162
        ;  or_if ra2_in _ansel 0
        ; line_number = 163
        ;  or_if ra2_out _ansel 0
        ; line_number = 164
        ;  or_if an2 _ansel 4
        ; line_number = 165
        ;  or_if ra2_in _adcon0 0
        ; line_number = 166
        ;  or_if ra2_out _adcon0 0
        ; line_number = 167
        ;  or_if an2 _adcon0 1
        ; line_number = 168
        ; pin ra1_in, ra1_nc, ra1_out, an1, c1in_minus, vref, icspclk
        ; line_number = 169
        ; pin_bindings pdip=12, soic=12, tssop=12
        ; line_number = 170
        ;  bind_to _porta@1
        ; line_number = 171
        ;  or_if ra1_in _trisa 2
        ; line_number = 172
        ;  or_if ra1_nc _trisa 2
        ; line_number = 173
        ;  or_if ra1_out _trisa 0
        ; line_number = 174
        ;  or_if ra1_in _cmcon0 7
        ; line_number = 175
        ;  or_if ra1_out _cmcon0 7
        ; line_number = 176
        ;  or_if an1 _trisa 2
        ; line_number = 177
        ;  or_if vref _trisa 2
        ; line_number = 178
        ;  or_if ra1_in _ansel 0
        ; line_number = 179
        ;  or_if ra1_out _ansel 0
        ; line_number = 180
        ;  or_if an1 _ansel 2
        ; line_number = 181
        ;  or_if vref _ansel 2
        ; line_number = 182
        ;  or_if ra1_in _adcon0 0
        ; line_number = 183
        ;  or_if ra1_out _adcon0 0
        ; line_number = 184
        ;  or_if an1 _adcon0 1		# Turn on _addon
        ; line_number = 185
        ;  or_if vref _adcon0 1		# Turn on _addon
        ; line_number = 186
        ;  or_if vref _adcon0 64		# Turn of _vcfg
        ; line_number = 187
        ; pin ra0_in, ra0_nc, ra0_out, an0, c1in_plus, icspdat, ulpwu
        ; line_number = 188
        ; pin_bindings pdip=13, soic=13, tssop=13
        ; line_number = 189
        ;  bind_to _porta@0
        ; line_number = 190
        ;  or_if ra0_in _trisa 1
        ; line_number = 191
        ;  or_if ra0_nc _trisa 1
        ; line_number = 192
        ;  or_if ra0_out _trisa 0
        ; line_number = 193
        ;  or_if ra0_in _cmcon0 7
        ; line_number = 194
        ;  or_if ra0_out _cmcon0 7
        ; line_number = 195
        ;  or_if an0 _trisa 1
        ; line_number = 196
        ;  or_if ra0_in _ansel 0
        ; line_number = 197
        ;  or_if ra0_out _ansel 0
        ; line_number = 198
        ;  or_if an0 _ansel 1
        ; line_number = 199
        ;  or_if ra0_in _adcon0 0
        ; line_number = 200
        ;  or_if ra0_out _adcon0 0
        ; line_number = 201
        ;  or_if an0 _adcon0 1
        ; line_number = 202
        ; pin vss, ground
        ; line_number = 203
        ; pin_bindings pdip=14, soic=14, tssop=14

        ; line_number = 205
        ; library _standard entered

        ; # Copyright (c) 2006 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # Standard definition for uCL:

        ; buffer = '_standard'
        ; line_number = 8
        ; constant _true = (1 = 1)
_true equ 1
        ; line_number = 9
        ; constant _false = (0 != 0)
_false equ 0


        ; buffer = '_pic16f688'
        ; line_number = 205
        ; library _standard exited


        ; # Register/bit bindings:

        ; # Databank 0 (0x0 - 0x7f):

        ; line_number = 216
        ; register _indf = 
_indf equ 0

        ; line_number = 218
        ; register _tmr0 = 
_tmr0 equ 1

        ; line_number = 220
        ; register _pcl = 
_pcl equ 2

        ; line_number = 222
        ; register _status = 
_status equ 3
        ; line_number = 223
        ; bind _irp = _status@7
_irp___byte equ _status
_irp___bit equ 7
        ; line_number = 224
        ; bind _rp1 = _status@5
_rp1___byte equ _status
_rp1___bit equ 5
        ; line_number = 225
        ; bind _rp0 = _status@5
_rp0___byte equ _status
_rp0___bit equ 5
        ; line_number = 226
        ; bind _to = _status@4
_to___byte equ _status
_to___bit equ 4
        ; line_number = 227
        ; bind _pd = _status@3
_pd___byte equ _status
_pd___bit equ 3
        ; line_number = 228
        ; bind _z = _status@2
_z___byte equ _status
_z___bit equ 2
        ; line_number = 229
        ; bind _dc = _status@1
_dc___byte equ _status
_dc___bit equ 1
        ; line_number = 230
        ; bind _c = _status@0
_c___byte equ _status
_c___bit equ 0

        ; line_number = 232
        ; register _fsr = 
_fsr equ 4

        ; line_number = 234
        ; register _porta = 
_porta equ 5
        ; line_number = 235
        ; register _ra = 
_ra equ 5
        ; line_number = 236
        ; bind _ra5 = _porta@5
_ra5___byte equ _porta
_ra5___bit equ 5
        ; line_number = 237
        ; bind _ra4 = _porta@4
_ra4___byte equ _porta
_ra4___bit equ 4
        ; line_number = 238
        ; bind _ra3 = _porta@3
_ra3___byte equ _porta
_ra3___bit equ 3
        ; line_number = 239
        ; bind _ra2 = _porta@2
_ra2___byte equ _porta
_ra2___bit equ 2
        ; line_number = 240
        ; bind _ra1 = _porta@1
_ra1___byte equ _porta
_ra1___bit equ 1
        ; line_number = 241
        ; bind _ra0 = _porta@0
_ra0___byte equ _porta
_ra0___bit equ 0

        ; line_number = 243
        ; register _portc = 
_portc equ 7
        ; line_number = 244
        ; register _rc = 
_rc equ 7
        ; line_number = 245
        ; bind _rc5 = _portc@5
_rc5___byte equ _portc
_rc5___bit equ 5
        ; line_number = 246
        ; bind _rc4 = _portc@4
_rc4___byte equ _portc
_rc4___bit equ 4
        ; line_number = 247
        ; bind _rc3 = _portc@3
_rc3___byte equ _portc
_rc3___bit equ 3
        ; line_number = 248
        ; bind _rc2 = _portc@2
_rc2___byte equ _portc
_rc2___bit equ 2
        ; line_number = 249
        ; bind _rc1 = _portc@1
_rc1___byte equ _portc
_rc1___bit equ 1
        ; line_number = 250
        ; bind _rc0 = _portc@0
_rc0___byte equ _portc
_rc0___bit equ 0

        ; line_number = 252
        ; register _pclath = 
_pclath equ 10

        ; line_number = 254
        ; register _intcon = 
_intcon equ 11
        ; line_number = 255
        ; bind _gie = _intcon@7
_gie___byte equ _intcon
_gie___bit equ 7
        ; line_number = 256
        ; bind _peie = _intcon@6
_peie___byte equ _intcon
_peie___bit equ 6
        ; line_number = 257
        ; bind _t0ie = _intcon@5
_t0ie___byte equ _intcon
_t0ie___bit equ 5
        ; line_number = 258
        ; bind _inte = _intcon@4
_inte___byte equ _intcon
_inte___bit equ 4
        ; line_number = 259
        ; bind _raie = _intcon@3
_raie___byte equ _intcon
_raie___bit equ 3
        ; line_number = 260
        ; bind _t0if = _intcon@2
_t0if___byte equ _intcon
_t0if___bit equ 2
        ; line_number = 261
        ; bind _intf = _intcon@1
_intf___byte equ _intcon
_intf___bit equ 1
        ; line_number = 262
        ; bind _raif = _intcon@0
_raif___byte equ _intcon
_raif___bit equ 0

        ; line_number = 264
        ; register _pir1 = 
_pir1 equ 12
        ; line_number = 265
        ; bind _eeif = _pir1@7
_eeif___byte equ _pir1
_eeif___bit equ 7
        ; line_number = 266
        ; bind _adif = _pir1@6
_adif___byte equ _pir1
_adif___bit equ 6
        ; line_number = 267
        ; bind _rcif = _pir1@5
_rcif___byte equ _pir1
_rcif___bit equ 5
        ; line_number = 268
        ; bind _c2if = _pir1@4
_c2if___byte equ _pir1
_c2if___bit equ 4
        ; line_number = 269
        ; bind _c1if = _pir1@3
_c1if___byte equ _pir1
_c1if___bit equ 3
        ; line_number = 270
        ; bind _osfif = _pir1@2
_osfif___byte equ _pir1
_osfif___bit equ 2
        ; line_number = 271
        ; bind _txif = _pir1@1
_txif___byte equ _pir1
_txif___bit equ 1
        ; line_number = 272
        ; bind _tmr1if = _pir1@0
_tmr1if___byte equ _pir1
_tmr1if___bit equ 0

        ; line_number = 274
        ; register _tmr1l = 
_tmr1l equ 14

        ; line_number = 276
        ; register _tmr1h = 
_tmr1h equ 15

        ; line_number = 278
        ; register _t1con = 
_t1con equ 16
        ; line_number = 279
        ; bind t1ginv = _t1con@7
t1ginv___byte equ _t1con
t1ginv___bit equ 7
        ; line_number = 280
        ; bind _tmr1ge = _t1con@6
_tmr1ge___byte equ _t1con
_tmr1ge___bit equ 6
        ; line_number = 281
        ; bind _t1ckps1 = _t1con@5
_t1ckps1___byte equ _t1con
_t1ckps1___bit equ 5
        ; line_number = 282
        ; bind _t1ckps0 = _t1con@4
_t1ckps0___byte equ _t1con
_t1ckps0___bit equ 4
        ; line_number = 283
        ; bind _t1oscen = _t1con@3
_t1oscen___byte equ _t1con
_t1oscen___bit equ 3
        ; line_number = 284
        ; bind _t1sync = _t1con@2
_t1sync___byte equ _t1con
_t1sync___bit equ 2
        ; line_number = 285
        ; bind _tmr1cs = _t1con@1
_tmr1cs___byte equ _t1con
_tmr1cs___bit equ 1
        ; line_number = 286
        ; bind _tmr1on = _t1con@0
_tmr1on___byte equ _t1con
_tmr1on___bit equ 0

        ; line_number = 288
        ; register _baudctl = 
_baudctl equ 17
        ; line_number = 289
        ; bind _abdovf = _baudctl@7
_abdovf___byte equ _baudctl
_abdovf___bit equ 7
        ; line_number = 290
        ; bind _rcidl = _baudctl@6
_rcidl___byte equ _baudctl
_rcidl___bit equ 6
        ; line_number = 291
        ; bind _sckp = _baudctl@4
_sckp___byte equ _baudctl
_sckp___bit equ 4
        ; line_number = 292
        ; bind _brg16 = _baudctl@3
_brg16___byte equ _baudctl
_brg16___bit equ 3
        ; line_number = 293
        ; bind _wue = _baudctl@1
_wue___byte equ _baudctl
_wue___bit equ 1
        ; line_number = 294
        ; bind _abden = _baudctl@0
_abden___byte equ _baudctl
_abden___bit equ 0

        ; line_number = 296
        ; register _spbrgh = 
_spbrgh equ 18

        ; line_number = 298
        ; register _spbrg = 
_spbrg equ 19

        ; line_number = 300
        ; register _rcreg = 
_rcreg equ 20

        ; line_number = 302
        ; register _txreg = 
_txreg equ 21

        ; line_number = 304
        ; register _txsta = 
_txsta equ 22
        ; line_number = 305
        ; bind _csrc = _txsta@7
_csrc___byte equ _txsta
_csrc___bit equ 7
        ; line_number = 306
        ; bind _tx9 = _txsta@6
_tx9___byte equ _txsta
_tx9___bit equ 6
        ; line_number = 307
        ; bind _txen = _txsta@5
_txen___byte equ _txsta
_txen___bit equ 5
        ; line_number = 308
        ; bind _sync = _txsta@4
_sync___byte equ _txsta
_sync___bit equ 4
        ; line_number = 309
        ; bind _sendb = _txsta@3
_sendb___byte equ _txsta
_sendb___bit equ 3
        ; line_number = 310
        ; bind _brgh = _txsta@2
_brgh___byte equ _txsta
_brgh___bit equ 2
        ; line_number = 311
        ; bind _trmt = _txsta@1
_trmt___byte equ _txsta
_trmt___bit equ 1
        ; line_number = 312
        ; bind _tx9d = _txsta@0
_tx9d___byte equ _txsta
_tx9d___bit equ 0

        ; line_number = 314
        ; register _rcsta = 
_rcsta equ 23
        ; line_number = 315
        ; bind _spen = _rcsta@7
_spen___byte equ _rcsta
_spen___bit equ 7
        ; line_number = 316
        ; bind _rx9 = _rcsta@6
_rx9___byte equ _rcsta
_rx9___bit equ 6
        ; line_number = 317
        ; bind _sren = _rcsta@5
_sren___byte equ _rcsta
_sren___bit equ 5
        ; line_number = 318
        ; bind _cren = _rcsta@4
_cren___byte equ _rcsta
_cren___bit equ 4
        ; line_number = 319
        ; bind _adden = _rcsta@3
_adden___byte equ _rcsta
_adden___bit equ 3
        ; line_number = 320
        ; bind _ferr = _rcsta@2
_ferr___byte equ _rcsta
_ferr___bit equ 2
        ; line_number = 321
        ; bind _oerr = _rcsta@1
_oerr___byte equ _rcsta
_oerr___bit equ 1
        ; line_number = 322
        ; bind _rx9d = _rcsta@0
_rx9d___byte equ _rcsta
_rx9d___bit equ 0

        ; line_number = 324
        ; register _wdtcon = 
_wdtcon equ 24
        ; line_number = 325
        ; bind _wdtps3 = _wdtcon@4
_wdtps3___byte equ _wdtcon
_wdtps3___bit equ 4
        ; line_number = 326
        ; bind _wdtps2 = _wdtcon@3
_wdtps2___byte equ _wdtcon
_wdtps2___bit equ 3
        ; line_number = 327
        ; bind _wdtps1 = _wdtcon@2
_wdtps1___byte equ _wdtcon
_wdtps1___bit equ 2
        ; line_number = 328
        ; bind _wdtps0 = _wdtcon@1
_wdtps0___byte equ _wdtcon
_wdtps0___bit equ 1
        ; line_number = 329
        ; bind _swdten = _wdtcon@0
_swdten___byte equ _wdtcon
_swdten___bit equ 0

        ; line_number = 331
        ; register _cmcon0 = 
_cmcon0 equ 25
        ; line_number = 332
        ; bind _c1out = _cmcon0@7
_c1out___byte equ _cmcon0
_c1out___bit equ 7
        ; line_number = 333
        ; bind _c2out = _cmcon0@6
_c2out___byte equ _cmcon0
_c2out___bit equ 6
        ; line_number = 334
        ; bind _c1inv = _cmcon0@5
_c1inv___byte equ _cmcon0
_c1inv___bit equ 5
        ; line_number = 335
        ; bind _c2inv = _cmcon0@4
_c2inv___byte equ _cmcon0
_c2inv___bit equ 4
        ; line_number = 336
        ; bind _cis = _cmcon0@3
_cis___byte equ _cmcon0
_cis___bit equ 3
        ; line_number = 337
        ; bind _cm2 = _cmcon0@2
_cm2___byte equ _cmcon0
_cm2___bit equ 2
        ; line_number = 338
        ; bind _cm1 = _cmcon0@1
_cm1___byte equ _cmcon0
_cm1___bit equ 1
        ; line_number = 339
        ; bind _cm0 = _cmcon0@0
_cm0___byte equ _cmcon0
_cm0___bit equ 0

        ; line_number = 341
        ; register _cmcon1 = 
_cmcon1 equ 26
        ; line_number = 342
        ; bind _t1gss = _cmcon1@0
_t1gss___byte equ _cmcon1
_t1gss___bit equ 0
        ; line_number = 343
        ; bind _c2sync = _cmcon1@1
_c2sync___byte equ _cmcon1
_c2sync___bit equ 1

        ; line_number = 345
        ; register _adresh = 
_adresh equ 30

        ; line_number = 347
        ; register _adcon0 = 
_adcon0 equ 31
        ; line_number = 348
        ; bind _adfm = _adcon0@7
_adfm___byte equ _adcon0
_adfm___bit equ 7
        ; line_number = 349
        ; bind _vcfg = _adcon0@6
_vcfg___byte equ _adcon0
_vcfg___bit equ 6
        ; line_number = 350
        ; bind _chs2 = _adcon0@4
_chs2___byte equ _adcon0
_chs2___bit equ 4
        ; line_number = 351
        ; bind _chs1 = _adcon0@3
_chs1___byte equ _adcon0
_chs1___bit equ 3
        ; line_number = 352
        ; bind _chs0 = _adcon0@2
_chs0___byte equ _adcon0
_chs0___bit equ 2
        ; line_number = 353
        ; bind _go = _adcon0@1
_go___byte equ _adcon0
_go___bit equ 1
        ; line_number = 354
        ; bind _adon = _adcon0@0
_adon___byte equ _adcon0
_adon___bit equ 0

        ; # Data bank 1 (0x80-0xff):

        ; line_number = 358
        ; register _option_reg = 
_option_reg equ 129
        ; line_number = 359
        ; bind _rapu = _option_reg@7
_rapu___byte equ _option_reg
_rapu___bit equ 7
        ; line_number = 360
        ; bind _intedg = _option_reg@6
_intedg___byte equ _option_reg
_intedg___bit equ 6
        ; line_number = 361
        ; bind _t0cs = _option_reg@5
_t0cs___byte equ _option_reg
_t0cs___bit equ 5
        ; line_number = 362
        ; bind _t0se = _option_reg@4
_t0se___byte equ _option_reg
_t0se___bit equ 4
        ; line_number = 363
        ; bind _psa = _option_reg@3
_psa___byte equ _option_reg
_psa___bit equ 3
        ; line_number = 364
        ; bind _ps2 = _option_reg@2
_ps2___byte equ _option_reg
_ps2___bit equ 2
        ; line_number = 365
        ; bind _ps1 = _option_reg@1
_ps1___byte equ _option_reg
_ps1___bit equ 1
        ; line_number = 366
        ; bind _ps0 = _option_reg@0
_ps0___byte equ _option_reg
_ps0___bit equ 0

        ; line_number = 368
        ; register _trisa = 
_trisa equ 133
        ; line_number = 369
        ; bind _trisa5 = _trisa@5
_trisa5___byte equ _trisa
_trisa5___bit equ 5
        ; line_number = 370
        ; bind _trisa4 = _trisa@4
_trisa4___byte equ _trisa
_trisa4___bit equ 4
        ; line_number = 371
        ; bind _trisa3 = _trisa@3
_trisa3___byte equ _trisa
_trisa3___bit equ 3
        ; line_number = 372
        ; bind _trisa2 = _trisa@2
_trisa2___byte equ _trisa
_trisa2___bit equ 2
        ; line_number = 373
        ; bind _trisa1 = _trisa@1
_trisa1___byte equ _trisa
_trisa1___bit equ 1
        ; line_number = 374
        ; bind _trisa0 = _trisa@0
_trisa0___byte equ _trisa
_trisa0___bit equ 0

        ; line_number = 376
        ; register _trisc = 
_trisc equ 135
        ; line_number = 377
        ; bind _trisc5 = _trisc@5
_trisc5___byte equ _trisc
_trisc5___bit equ 5
        ; line_number = 378
        ; bind _trisc4 = _trisc@4
_trisc4___byte equ _trisc
_trisc4___bit equ 4
        ; line_number = 379
        ; bind _trisc3 = _trisc@3
_trisc3___byte equ _trisc
_trisc3___bit equ 3
        ; line_number = 380
        ; bind _trisc2 = _trisc@2
_trisc2___byte equ _trisc
_trisc2___bit equ 2
        ; line_number = 381
        ; bind _trisc1 = _trisc@1
_trisc1___byte equ _trisc
_trisc1___bit equ 1
        ; line_number = 382
        ; bind _trisc0 = _trisc@0
_trisc0___byte equ _trisc
_trisc0___bit equ 0

        ; line_number = 384
        ; register _pie1 = 
_pie1 equ 140
        ; line_number = 385
        ; bind _eeie = _pie1@7
_eeie___byte equ _pie1
_eeie___bit equ 7
        ; line_number = 386
        ; bind _adie = _pie1@6
_adie___byte equ _pie1
_adie___bit equ 6
        ; line_number = 387
        ; bind _rcie = _pie1@5
_rcie___byte equ _pie1
_rcie___bit equ 5
        ; line_number = 388
        ; bind _c2ie = _pie1@4
_c2ie___byte equ _pie1
_c2ie___bit equ 4
        ; line_number = 389
        ; bind _c1ie = _pie1@3
_c1ie___byte equ _pie1
_c1ie___bit equ 3
        ; line_number = 390
        ; bind _osfie = _pie1@2
_osfie___byte equ _pie1
_osfie___bit equ 2
        ; line_number = 391
        ; bind _txie = _pie1@1
_txie___byte equ _pie1
_txie___bit equ 1
        ; line_number = 392
        ; bind _tmr1ie = _pie1@0
_tmr1ie___byte equ _pie1
_tmr1ie___bit equ 0

        ; line_number = 394
        ; register _pcon = 
_pcon equ 142
        ; line_number = 395
        ; bind _ulpwue = _pcon@5
_ulpwue___byte equ _pcon
_ulpwue___bit equ 5
        ; line_number = 396
        ; bind _sboden = _pcon@4
_sboden___byte equ _pcon
_sboden___bit equ 4
        ; line_number = 397
        ; bind _por = _pcon@1
_por___byte equ _pcon
_por___bit equ 1
        ; line_number = 398
        ; bind _bod = _pcon@0
_bod___byte equ _pcon
_bod___bit equ 0

        ; line_number = 400
        ; register _osccon = 
_osccon equ 143
        ; line_number = 401
        ; bind _ircf2 = _osccon@6
_ircf2___byte equ _osccon
_ircf2___bit equ 6
        ; line_number = 402
        ; bind _ircf1 = _osccon@5
_ircf1___byte equ _osccon
_ircf1___bit equ 5
        ; line_number = 403
        ; bind _ircf0 = _osccon@4
_ircf0___byte equ _osccon
_ircf0___bit equ 4
        ; line_number = 404
        ; bind _osts = _osccon@3
_osts___byte equ _osccon
_osts___bit equ 3
        ; line_number = 405
        ; bind _hts = _osccon@2
_hts___byte equ _osccon
_hts___bit equ 2
        ; line_number = 406
        ; bind _lts = _osccon@3
_lts___byte equ _osccon
_lts___bit equ 3
        ; line_number = 407
        ; bind _scs = _osccon@2
_scs___byte equ _osccon
_scs___bit equ 2

        ; line_number = 409
        ; register _osctune = 
_osctune equ 144
        ; line_number = 410
        ; bind _tun4 = _osctune@4
_tun4___byte equ _osctune
_tun4___bit equ 4
        ; line_number = 411
        ; bind _tun3 = _osctune@3
_tun3___byte equ _osctune
_tun3___bit equ 3
        ; line_number = 412
        ; bind _tun2 = _osctune@2
_tun2___byte equ _osctune
_tun2___bit equ 2
        ; line_number = 413
        ; bind _tun1 = _osctune@1
_tun1___byte equ _osctune
_tun1___bit equ 1
        ; line_number = 414
        ; bind _tun0 = _osctune@0
_tun0___byte equ _osctune
_tun0___bit equ 0
        ; line_number = 415
        ; constant _osccal_lsb = 1
_osccal_lsb equ 1

        ; line_number = 417
        ; register _ansel = 
_ansel equ 145
        ; line_number = 418
        ; bind _ans7 = _ansel@7
_ans7___byte equ _ansel
_ans7___bit equ 7
        ; line_number = 419
        ; bind _ans6 = _ansel@6
_ans6___byte equ _ansel
_ans6___bit equ 6
        ; line_number = 420
        ; bind _ans5 = _ansel@5
_ans5___byte equ _ansel
_ans5___bit equ 5
        ; line_number = 421
        ; bind _ans4 = _ansel@4
_ans4___byte equ _ansel
_ans4___bit equ 4
        ; line_number = 422
        ; bind _ans3 = _ansel@3
_ans3___byte equ _ansel
_ans3___bit equ 3
        ; line_number = 423
        ; bind _ans2 = _ansel@2
_ans2___byte equ _ansel
_ans2___bit equ 2
        ; line_number = 424
        ; bind _ans1 = _ansel@1
_ans1___byte equ _ansel
_ans1___bit equ 1
        ; line_number = 425
        ; bind _ans0 = _ansel@0
_ans0___byte equ _ansel
_ans0___bit equ 0

        ; line_number = 427
        ; register _wpua = 
_wpua equ 149
        ; line_number = 428
        ; bind _wpua5 = _wpua@5
_wpua5___byte equ _wpua
_wpua5___bit equ 5
        ; line_number = 429
        ; bind _wpua4 = _wpua@4
_wpua4___byte equ _wpua
_wpua4___bit equ 4
        ; line_number = 430
        ; bind _wpua2 = _wpua@2
_wpua2___byte equ _wpua
_wpua2___bit equ 2
        ; line_number = 431
        ; bind _wpua1 = _wpua@1
_wpua1___byte equ _wpua
_wpua1___bit equ 1
        ; line_number = 432
        ; bind _wpua0 = _wpua@0
_wpua0___byte equ _wpua
_wpua0___bit equ 0

        ; line_number = 434
        ; register _ioca = 
_ioca equ 150
        ; line_number = 435
        ; bind _ioca5 = _ioca@5
_ioca5___byte equ _ioca
_ioca5___bit equ 5
        ; line_number = 436
        ; bind _ioca4 = _ioca@4
_ioca4___byte equ _ioca
_ioca4___bit equ 4
        ; line_number = 437
        ; bind _ioca3 = _ioca@3
_ioca3___byte equ _ioca
_ioca3___bit equ 3
        ; line_number = 438
        ; bind _ioca2 = _ioca@2
_ioca2___byte equ _ioca
_ioca2___bit equ 2
        ; line_number = 439
        ; bind _ioca1 = _ioca@1
_ioca1___byte equ _ioca
_ioca1___bit equ 1
        ; line_number = 440
        ; bind _ioca0 = _ioca@0
_ioca0___byte equ _ioca
_ioca0___bit equ 0

        ; line_number = 442
        ; register _eedath = 
_eedath equ 151

        ; line_number = 444
        ; register _eeadrh = 
_eeadrh equ 152

        ; line_number = 446
        ; register _vrcon = 
_vrcon equ 153
        ; line_number = 447
        ; bind _vren = _vrcon@7
_vren___byte equ _vrcon
_vren___bit equ 7
        ; line_number = 448
        ; bind _vrr = _vrcon@5
_vrr___byte equ _vrcon
_vrr___bit equ 5
        ; line_number = 449
        ; bind _vr3 = _vrcon@3
_vr3___byte equ _vrcon
_vr3___bit equ 3
        ; line_number = 450
        ; bind _vr2 = _vrcon@2
_vr2___byte equ _vrcon
_vr2___bit equ 2
        ; line_number = 451
        ; bind _vr1 = _vrcon@1
_vr1___byte equ _vrcon
_vr1___bit equ 1
        ; line_number = 452
        ; bind _vr0 = _vrcon@0
_vr0___byte equ _vrcon
_vr0___bit equ 0

        ; line_number = 454
        ; register _eedat = 
_eedat equ 154
        ; line_number = 455
        ; bind _eedat7 = _eedat@7
_eedat7___byte equ _eedat
_eedat7___bit equ 7
        ; line_number = 456
        ; bind _eedat6 = _eedat@6
_eedat6___byte equ _eedat
_eedat6___bit equ 6
        ; line_number = 457
        ; bind _eedat5 = _eedat@5
_eedat5___byte equ _eedat
_eedat5___bit equ 5
        ; line_number = 458
        ; bind _eedat4 = _eedat@4
_eedat4___byte equ _eedat
_eedat4___bit equ 4
        ; line_number = 459
        ; bind _eedat3 = _eedat@3
_eedat3___byte equ _eedat
_eedat3___bit equ 3
        ; line_number = 460
        ; bind _eedat2 = _eedat@2
_eedat2___byte equ _eedat
_eedat2___bit equ 2
        ; line_number = 461
        ; bind _eedat1 = _eedat@1
_eedat1___byte equ _eedat
_eedat1___bit equ 1
        ; line_number = 462
        ; bind _eedat0 = _eedat@0
_eedat0___byte equ _eedat
_eedat0___bit equ 0

        ; line_number = 464
        ; register _eeadr = 
_eeadr equ 155
        ; line_number = 465
        ; bind _eeadr7 = _eeadr@7
_eeadr7___byte equ _eeadr
_eeadr7___bit equ 7
        ; line_number = 466
        ; bind _eeadr6 = _eeadr@6
_eeadr6___byte equ _eeadr
_eeadr6___bit equ 6
        ; line_number = 467
        ; bind _eeadr5 = _eeadr@5
_eeadr5___byte equ _eeadr
_eeadr5___bit equ 5
        ; line_number = 468
        ; bind _eeadr4 = _eeadr@4
_eeadr4___byte equ _eeadr
_eeadr4___bit equ 4
        ; line_number = 469
        ; bind _eeadr3 = _eeadr@3
_eeadr3___byte equ _eeadr
_eeadr3___bit equ 3
        ; line_number = 470
        ; bind _eeadr2 = _eeadr@2
_eeadr2___byte equ _eeadr
_eeadr2___bit equ 2
        ; line_number = 471
        ; bind _eeadr1 = _eeadr@1
_eeadr1___byte equ _eeadr
_eeadr1___bit equ 1
        ; line_number = 472
        ; bind _eeadr0 = _eeadr@0
_eeadr0___byte equ _eeadr
_eeadr0___bit equ 0

        ; line_number = 474
        ; register _eecon1 = 
_eecon1 equ 156
        ; line_number = 475
        ; bind _eepgd = _eecon1@7
_eepgd___byte equ _eecon1
_eepgd___bit equ 7
        ; line_number = 476
        ; bind _wrerr = _eecon1@3
_wrerr___byte equ _eecon1
_wrerr___bit equ 3
        ; line_number = 477
        ; bind _wren = _eecon1@2
_wren___byte equ _eecon1
_wren___bit equ 2
        ; line_number = 478
        ; bind _wr = _eecon1@1
_wr___byte equ _eecon1
_wr___bit equ 1
        ; line_number = 479
        ; bind _rd = _eecon1@0
_rd___byte equ _eecon1
_rd___bit equ 0

        ; line_number = 481
        ; register _eecon2 = 
_eecon2 equ 157

        ; line_number = 483
        ; register _adresl = 
_adresl equ 158

        ; line_number = 485
        ; register _adcon1 = 
_adcon1 equ 159
        ; line_number = 486
        ; bind _adcs2 = _adcon1@6
_adcs2___byte equ _adcon1
_adcs2___bit equ 6
        ; line_number = 487
        ; bind _adcs1 = _adcon1@5
_adcs1___byte equ _adcon1
_adcs1___bit equ 5
        ; line_number = 488
        ; bind _adcs0 = _adcon1@4
_adcs0___byte equ _adcon1
_adcs0___bit equ 4

        ; # Data Bank 2 (0x100 - 0x17f):

        ; buffer = 'voice1'
        ; line_number = 7
        ; library _pic16f688 exited

        ; # The system is running at 16MHz:
        ; line_number = 10
        ; library clock16mhz entered
        ; # Copyright (c) 2006 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # This library defines the contstants {clock_rate}, {instruction_rate},
        ; # and {clocks_per_instruction}.

        ; # Define processor constants:
        ; buffer = 'clock16mhz'
        ; line_number = 9
        ; constant clock_rate = 16000000
clock_rate equ 16000000
        ; line_number = 10
        ; constant clocks_per_instruction = 4
clocks_per_instruction equ 4
        ; line_number = 11
        ; constant instruction_rate = clock_rate / clocks_per_instruction
instruction_rate equ 4000000


        ; buffer = 'voice1'
        ; line_number = 10
        ; library clock16mhz exited
        ; # A microsecond takes 4 cycles at 16MHz:
        ; line_number = 12
        ; constant microsecond = 4
microsecond equ 4

        ; # The {_eusart} library defines some baud rate generator constants:
        ; line_number = 15
        ; constant _eusart_clock = clock_rate
_eusart_clock equ 16000000
        ; line_number = 16
        ; constant _eusart_factor = 4
_eusart_factor equ 4
        ; line_number = 17
        ; library _eusart entered

        ; # Copyright (c) 2005 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # This library contains a bunch of definitions for the Enhanced Universal
        ; # Asynchronous Serial Receiver/Transmitter (EUSART) that is available
        ; # on many of the PIC microcontrollers.

        ; # In order to use this module you have to get two constants defined
        ; # BEFORE including this library -- {_eusart_factor} and {_eusart_clock}.
        ; # {_eusart_clock} should be set to the frequency oscillator for the chip.
        ; # {_eusart_factor} should be set to 4, 16, or 64 depending upon whether
        ; # the {_brg16} and {_brgh} bits are set.  Use the table below to select:
        ; #
        ; #        _{brg16}	{_brgh}		_{eusart_factor}
        ; #	    0		   0		      64
        ; #	    0		   1		      16
        ; #	    1		   0		      16
        ; #	    1		   1		       4

        ; # 2400 baud:
        ; buffer = '_eusart'
        ; line_number = 23
        ; constant _eusart_2400 = (_eusart_clock / (2400 * _eusart_factor)) - 1
_eusart_2400 equ 1665
        ; line_number = 24
        ; constant _eusart_2400_low = _eusart_2400 &amp; 0xff
_eusart_2400_low equ 129
        ; line_number = 25
        ; constant _eusart_2400_high = _eusart_2400 &gt;&gt; 8
_eusart_2400_high equ 6
        ; line_number = 26
        ; constant _eusart_2400_index = 0
_eusart_2400_index equ 0
        ; # 4800 baud:
        ; line_number = 28
        ; constant _eusart_4800 = (_eusart_clock / (4800 * _eusart_factor)) - 1
_eusart_4800 equ 832
        ; line_number = 29
        ; constant _eusart_4800_low = _eusart_4800 &amp; 0xff
_eusart_4800_low equ 64
        ; line_number = 30
        ; constant _eusart_4800_high = _eusart_4800 &gt;&gt; 8
_eusart_4800_high equ 3
        ; line_number = 31
        ; constant _eusart_4800_index = 1
_eusart_4800_index equ 1
        ; # 9600 baud:
        ; line_number = 33
        ; constant _eusart_9600 = (_eusart_clock / (9600 * _eusart_factor)) - 1
_eusart_9600 equ 415
        ; line_number = 34
        ; constant _eusart_9600_low = _eusart_9600 &amp; 0xff
_eusart_9600_low equ 159
        ; line_number = 35
        ; constant _eusart_9600_high = _eusart_9600 &gt;&gt; 8
_eusart_9600_high equ 1
        ; line_number = 36
        ; constant _eusart_9600_index = 2
_eusart_9600_index equ 2
        ; # 19200 baud:
        ; line_number = 38
        ; constant _eusart_19200 = (_eusart_clock / (19200 * _eusart_factor)) - 1
_eusart_19200 equ 207
        ; line_number = 39
        ; constant _eusart_19200_low = _eusart_19200 &amp; 0xff
_eusart_19200_low equ 207
        ; line_number = 40
        ; constant _eusart_19200_high = _eusart_19200 &gt;&gt; 8
_eusart_19200_high equ 0
        ; line_number = 41
        ; constant _eusart_19200_index = 3
_eusart_19200_index equ 3
        ; # 38400 baud:
        ; line_number = 43
        ; constant _eusart_38400 = (_eusart_clock / (38400 * _eusart_factor)) - 1
_eusart_38400 equ 103
        ; line_number = 44
        ; constant _eusart_38400_low = _eusart_38400 &amp; 0xff
_eusart_38400_low equ 103
        ; line_number = 45
        ; constant _eusart_38400_high = _eusart_38400 &gt;&gt; 8
_eusart_38400_high equ 0
        ; line_number = 46
        ; constant _eusart_38400_index = 4
_eusart_38400_index equ 4
        ; # 57600 baud:
        ; line_number = 48
        ; constant _eusart_57600 = (_eusart_clock / (57600 * _eusart_factor)) - 1
_eusart_57600 equ 68
        ; line_number = 49
        ; constant _eusart_57600_low = _eusart_57600 &amp; 0xff
_eusart_57600_low equ 68
        ; line_number = 50
        ; constant _eusart_57600_high = _eusart_57600 &gt;&gt; 8
_eusart_57600_high equ 0
        ; line_number = 51
        ; constant _eusart_57600_index = 5
_eusart_57600_index equ 5
        ; # 115200 baud:
        ; line_number = 53
        ; constant _eusart_115200 = (_eusart_clock / (115200 * _eusart_factor)) - 1
_eusart_115200 equ 33
        ; line_number = 54
        ; constant _eusart_115200_low = _eusart_115200 &amp; 0xff
_eusart_115200_low equ 33
        ; line_number = 55
        ; constant _eusart_115200_high = _eusart_115200 &gt;&gt; 8
_eusart_115200_high equ 0
        ; line_number = 56
        ; constant _eusart_115200_index = 6
_eusart_115200_index equ 6
        ; # 203400 baud:
        ; line_number = 58
        ; constant _eusart_230400 = (_eusart_clock / (230400 * _eusart_factor)) - 1
_eusart_230400 equ 16
        ; line_number = 59
        ; constant _eusart_230400_low = _eusart_230400 &amp; 0xff
_eusart_230400_low equ 16
        ; line_number = 60
        ; constant _eusart_230400_high = _eusart_230400 &gt;&gt; 8
_eusart_230400_high equ 0
        ; line_number = 61
        ; constant _eusart_230400_index = 7
_eusart_230400_index equ 7
        ; # 406800 baud:
        ; line_number = 63
        ; constant _eusart_406800 = (_eusart_clock / (406800 * _eusart_factor)) - 1
_eusart_406800 equ 8
        ; line_number = 64
        ; constant _eusart_406800_low = _eusart_406800 &amp; 0xff
_eusart_406800_low equ 8
        ; line_number = 65
        ; constant _eusart_406800_high = _eusart_406800 &gt;&gt; 8
_eusart_406800_high equ 0
        ; line_number = 66
        ; constant _eusart_406800_index = 8
_eusart_406800_index equ 8
        ; # 500000 baud:
        ; line_number = 68
        ; constant _eusart_500000 = (_eusart_clock / (500000 * _eusart_factor)) - 1
_eusart_500000 equ 7
        ; line_number = 69
        ; constant _eusart_500000_low = _eusart_500000 &amp; 0xff
_eusart_500000_low equ 7
        ; line_number = 70
        ; constant _eusart_500000_high = _eusart_500000 &gt;&gt; 8
_eusart_500000_high equ 0
        ; line_number = 71
        ; constant _eusart_500000_index = 8
_eusart_500000_index equ 8
        ; # 62500 baud:
        ; line_number = 73
        ; constant _eusart_625000 = (_eusart_clock / (625000 * _eusart_factor)) - 1
_eusart_625000 equ 5
        ; line_number = 74
        ; constant _eusart_625000_low = _eusart_625000 &amp; 0xff
_eusart_625000_low equ 5
        ; line_number = 75
        ; constant _eusart_625000_high = _eusart_625000 &gt;&gt; 8
_eusart_625000_high equ 0
        ; line_number = 76
        ; constant _eusart_625000_index = 9
_eusart_625000_index equ 9
        ; # 833333 baud:
        ; line_number = 78
        ; constant _eusart_833333 = (_eusart_clock / (833333 * _eusart_factor)) - 1
_eusart_833333 equ 3
        ; line_number = 79
        ; constant _eusart_833333_low = _eusart_833333 &amp; 0xff
_eusart_833333_low equ 3
        ; line_number = 80
        ; constant _eusart_833333_high = _eusart_833333 &gt;&gt; 8
_eusart_833333_high equ 0
        ; line_number = 81
        ; constant _eusart_833333_index = 10
_eusart_833333_index equ 10
        ; # 1000000 baud (1MHz):
        ; line_number = 83
        ; constant _eusart_1000000 = (_eusart_clock / (1000000 * _eusart_factor)) - 1
_eusart_1000000 equ 3
        ; line_number = 84
        ; constant _eusart_1000000_low = _eusart_1000000 &amp; 0xff
_eusart_1000000_low equ 3
        ; line_number = 85
        ; constant _eusart_1000000_high = _eusart_1000000 &gt;&gt; 8
_eusart_1000000_high equ 0
        ; line_number = 86
        ; constant _eusart_1000000_index = 11
_eusart_1000000_index equ 11

        ; buffer = 'voice1'
        ; line_number = 17
        ; library _eusart exited

        ; # The library of bus access routines for use by a PIC16F688.
        ; line_number = 20
        ; library rb2bus_pic16f688 entered

        ; # Copyright (c) 2006 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # This module provides some procedures for accessing a RoboBricks2
        ; # bus via a UART.  It is speicialized for the PIC16F688.
        ; #
        ; # It defines the following procedure:
        ; #
        ; # {rb2bus_initialize}({address}) The procedure that initializes the UART
        ; #                                for bus access.

        ; # All other bus access procedures are defined in the {rb2bus} library
        ; # which is accessed below:
        ; buffer = 'rb2bus_pic16f688'
        ; line_number = 16
        ; library rb2bus entered

        ; # Copyright (c) 2006-2007 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # This module provides some procedures for accessing a RoboBricks2
        ; # bus via a UART.
        ; #
        ; # This procedure defines the following procedures:
        ; #
        ; # {rb2bus_select_wait}  This procedure waits for the module to become selected
        ; # {rb2bus_deselect}     This procedure causes this module to be deselected.
        ; # {rb2bus_byte_get}     This procedure will get a byte form the bus.
        ; # {rb2bus_byte_put}     This procedure will send a byte to the bus.
        ; #
        ; # The global variable {rb2bus_error} is set to 1 whenever the procedures
        ; # feel like there is a command decoding error.
        ; #
        ; # The way to use these procedures is quite as follows:
        ; #
        ; #    # Comamnd byte variable:
        ; #    local command byte
        ; #
        ; #    # Other initialize code goes here:
        ; #
        ; #    # Process commands from bus master:
        ; #    loop_forever
        ; #        rb2bus_error := _true
        ; #	 while rb2bus_error
        ; #	     call rb2bus_select_wait()
        ; #	     command := rb2bus_byte_get()
        ; #
        ; #        # Decode command:
        ; #	 switch command &gt;&gt; 6
        ; #	   ...
        ; #             case 5:
        ; #	        # 0000 0101 (Foo command):
        ; #	          if !rb2bus_error
        ; #		      # Do foo command:
        ; #
        ; # The key concept behind these procedures is to make command
        ; # decoding for the slave module easy.  If the slave module
        ; # is in the middle of command decoding and the master suddenly
        ; # sends out a module select command, we need to gracefully recover
        ; # from the problem.  A command should only be executed if
        ; # {rb2bus_error} is not set.  If {rb2bus_error} is set, we want
        ; # to gracefully get back to the beginning of the loop without
        ; # doing any damage.  Once {rb2bus_error} is set, all calls to
        ; # {rb2bus_byte_get} return 0 and all calls to {rb2bus_byte_put}
        ; # do nothing.  At the beginning of the loop, {rb2bus_error} is
        ; # cleared by the {rb2bus_select_wait}() procedure and we have
        ; # recovered from the situation.

        ; buffer = 'rb2bus'
        ; line_number = 54
        ; library rb2_constants entered

        ; # Copyright (c) 2006-2007 by Wayne C. Gramlich.
        ; # All rights reserved.

        ; buffer = 'rb2_constants'
        ; line_number = 6
        ; constant rb2_ok = 0xa5
rb2_ok equ 165

        ; line_number = 8
        ; constant rb2_common_address_set = 0xfc
rb2_common_address_set equ 252
        ; line_number = 9
        ; constant rb2_common_id_next = 0xfd
rb2_common_id_next equ 253
        ; line_number = 10
        ; constant rb2_common_id_start = 0xfe
rb2_common_id_start equ 254
        ; line_number = 11
        ; constant rb2_common_deselect = 0xff
rb2_common_deselect equ 255

        ; line_number = 13
        ; constant rb2_laser1_address = 1
rb2_laser1_address equ 1

        ; line_number = 15
        ; constant rb2_minimotor2_address = 2
rb2_minimotor2_address equ 2
        ; line_number = 16
        ; constant rb2_midimotor2_address = 3
rb2_midimotor2_address equ 3
        ; line_number = 17
        ; constant rb2_motor0_speed_get = 0
rb2_motor0_speed_get equ 0
        ; line_number = 18
        ; constant rb2_motor0_speed_set = 1
rb2_motor0_speed_set equ 1
        ; line_number = 19
        ; constant rb2_motor1_speed_get = 2
rb2_motor1_speed_get equ 2
        ; line_number = 20
        ; constant rb2_motor1_speed_set = 3
rb2_motor1_speed_set equ 3
        ; line_number = 21
        ; constant rb2_duty_cycle_get = 4
rb2_duty_cycle_get equ 4
        ; line_number = 22
        ; constant rb2_duty_cycle_set = 8
rb2_duty_cycle_set equ 8

        ; line_number = 24
        ; constant rb2_irdistance2_address = 4
rb2_irdistance2_address equ 4
        ; line_number = 25
        ; constant rb2_irdistance2_raw0_get = 0
rb2_irdistance2_raw0_get equ 0
        ; line_number = 26
        ; constant rb2_irdistance2_raw1_get = 1
rb2_irdistance2_raw1_get equ 1
        ; line_number = 27
        ; constant rb2_irdistance2_smooth0_get = 2
rb2_irdistance2_smooth0_get equ 2
        ; line_number = 28
        ; constant rb2_irdistance2_smooth1_get = 3
rb2_irdistance2_smooth1_get equ 3
        ; line_number = 29
        ; constant rb2_irdistance2_linear0_get = 4
rb2_irdistance2_linear0_get equ 4
        ; line_number = 30
        ; constant rb2_irdistance2_linear1_get = 6
rb2_irdistance2_linear1_get equ 6

        ; line_number = 32
        ; constant rb2_shaft2_address = 5
rb2_shaft2_address equ 5
        ; line_number = 33
        ; constant rb2_shaft2_count_latch = 0
rb2_shaft2_count_latch equ 0
        ; line_number = 34
        ; constant rb2_shaft2_count_clear = 1
rb2_shaft2_count_clear equ 1
        ; line_number = 35
        ; constant rb2_shaft2_shaft0_high_get = 2
rb2_shaft2_shaft0_high_get equ 2
        ; line_number = 36
        ; constant rb2_shaft2_shaft1_high_get = 3
rb2_shaft2_shaft1_high_get equ 3
        ; line_number = 37
        ; constant rb2_shaft2_continue_get = 4
rb2_shaft2_continue_get equ 4
        ; line_number = 38
        ; constant rb2_shaft2_shaft0_low_get = rb2_shaft2_continue_get
rb2_shaft2_shaft0_low_get equ 4
        ; line_number = 39
        ; constant rb2_shaft2_shaft1_low_get = rb2_shaft2_continue_get
rb2_shaft2_shaft1_low_get equ 4
        ; line_number = 40
        ; constant rb2_shaft2_x_get = 0x10
rb2_shaft2_x_get equ 16
        ; line_number = 41
        ; constant rb2_shaft2_y_get = 0x11
rb2_shaft2_y_get equ 17
        ; line_number = 42
        ; constant rb2_shaft2_bearing16_get = 0x12
rb2_shaft2_bearing16_get equ 18
        ; line_number = 43
        ; constant rb2_shaft2_bearing8_get = 0x13
rb2_shaft2_bearing8_get equ 19
        ; line_number = 44
        ; constant rb2_shaft2_target_x_get = 0x14
rb2_shaft2_target_x_get equ 20
        ; line_number = 45
        ; constant rb2_shaft2_target_y_get = 0x15
rb2_shaft2_target_y_get equ 21
        ; line_number = 46
        ; constant rb2_shaft2_target_bearing16_get = 0x16
rb2_shaft2_target_bearing16_get equ 22
        ; line_number = 47
        ; constant rb2_shaft2_target_bearing8_get = 0x17
rb2_shaft2_target_bearing8_get equ 23
        ; line_number = 48
        ; constant rb2_shaft2_target_distance_get = 0x18
rb2_shaft2_target_distance_get equ 24
        ; line_number = 49
        ; constant rb2_shaft2_wheel_spacing_get = 0x19
rb2_shaft2_wheel_spacing_get equ 25
        ; line_number = 50
        ; constant rb2_shaft2_wheel_ticks_get = 0x1a
rb2_shaft2_wheel_ticks_get equ 26
        ; line_number = 51
        ; constant rb2_shaft2_wheel_diameter_get = 0x1b
rb2_shaft2_wheel_diameter_get equ 27
        ; line_number = 52
        ; constant rb2_shaft2_x_set = 0x20
rb2_shaft2_x_set equ 32
        ; line_number = 53
        ; constant rb2_shaft2_y_set = 0x21
rb2_shaft2_y_set equ 33
        ; line_number = 54
        ; constant rb2_shaft2_bearing16_set = 0x22
rb2_shaft2_bearing16_set equ 34
        ; line_number = 55
        ; constant rb2_shaft2_navigation_latch = 0x23
rb2_shaft2_navigation_latch equ 35
        ; line_number = 56
        ; constant rb2_shaft2_target_x_set = 0x24
rb2_shaft2_target_x_set equ 36
        ; line_number = 57
        ; constant rb2_shaft2_target_y_set = 0x25
rb2_shaft2_target_y_set equ 37
        ; line_number = 58
        ; constant rb2_shaft2_wheel_spacing_set = 0x29
rb2_shaft2_wheel_spacing_set equ 41
        ; line_number = 59
        ; constant rb2_shaft2_wheel_ticks_set = 0x2a
rb2_shaft2_wheel_ticks_set equ 42
        ; line_number = 60
        ; constant rb2_shaft2_wheel_diameter_set = 0x2b
rb2_shaft2_wheel_diameter_set equ 43


        ; line_number = 63
        ; constant rb2_orient5_address = 6
rb2_orient5_address equ 6

        ; line_number = 65
        ; constant rb2_compass8_address = 7
rb2_compass8_address equ 7

        ; line_number = 67
        ; constant rb2_io8_address = 8
rb2_io8_address equ 8
        ; line_number = 68
        ; constant rb2_io8_digital8_get = 0
rb2_io8_digital8_get equ 0
        ; line_number = 69
        ; constant rb2_io8_digital8_set = 1
rb2_io8_digital8_set equ 1
        ; line_number = 70
        ; constant rb2_io8_direction_get = 2
rb2_io8_direction_get equ 2
        ; line_number = 71
        ; constant rb2_io8_direction_set = 3
rb2_io8_direction_set equ 3
        ; line_number = 72
        ; constant rb2_io8_analog_mask_get = 4
rb2_io8_analog_mask_get equ 4
        ; line_number = 73
        ; constant rb2_io8_analog_mask_set = 5
rb2_io8_analog_mask_set equ 5
        ; line_number = 74
        ; constant rb2_io8_analog8_get = 0x10
rb2_io8_analog8_get equ 16
        ; line_number = 75
        ; constant rb2_io8_analog10_get = 0x18
rb2_io8_analog10_get equ 24
        ; line_number = 76
        ; constant rb2_low_set = 0x20
rb2_low_set equ 32
        ; line_number = 77
        ; constant rb2_high_set = 0x30
rb2_high_set equ 48

        ; line_number = 79
        ; constant rb2_sonar2_address = 9
rb2_sonar2_address equ 9

        ; line_number = 81
        ; constant rb2_voice1_address = 10
rb2_voice1_address equ 10

        ; line_number = 83
        ; constant rb2_servo4_address = 11
rb2_servo4_address equ 11
        ; line_number = 84
        ; constant rb2_servo4_servo0 = 0
rb2_servo4_servo0 equ 0
        ; line_number = 85
        ; constant rb2_servo4_servo1 = 1
rb2_servo4_servo1 equ 1
        ; line_number = 86
        ; constant rb2_servo4_servo2 = 2
rb2_servo4_servo2 equ 2
        ; line_number = 87
        ; constant rb2_servo4_servo3 = 3
rb2_servo4_servo3 equ 3
        ; line_number = 88
        ; constant rb2_servo4_quick_set = 0
rb2_servo4_quick_set equ 0
        ; line_number = 89
        ; constant rb2_servo4_quick_low = 0
rb2_servo4_quick_low equ 0
        ; line_number = 90
        ; constant rb2_servo4_quick_center = 40
rb2_servo4_quick_center equ 40
        ; line_number = 91
        ; constant rb2_servo4_quick_high = 0x7c
rb2_servo4_quick_high equ 124
        ; line_number = 92
        ; constant rb2_servo4_high_low_set = 0x80
rb2_servo4_high_low_set equ 128
        ; line_number = 93
        ; constant rb2_servo4_short_high_low_set = 0x84
rb2_servo4_short_high_low_set equ 132
        ; line_number = 94
        ; constant rb2_servo4_high_set = 0x88
rb2_servo4_high_set equ 136
        ; line_number = 95
        ; constant rb2_servo4_low_set = 0x8c
rb2_servo4_low_set equ 140
        ; line_number = 96
        ; constant rb2_servo4_enables_set = 0x90
rb2_servo4_enables_set equ 144
        ; line_number = 97
        ; constant rb2_servo4_enable0 = 1
rb2_servo4_enable0 equ 1
        ; line_number = 98
        ; constant rb2_servo4_enable1 = 2
rb2_servo4_enable1 equ 2
        ; line_number = 99
        ; constant rb2_servo4_enable2 = 4
rb2_servo4_enable2 equ 4
        ; line_number = 100
        ; constant rb2_servo4_enable3 = 8
rb2_servo4_enable3 equ 8
        ; line_number = 101
        ; constant rb2_servo4_enable_all = 0xf
rb2_servo4_enable_all equ 15
        ; line_number = 102
        ; constant rb2_servo4_enable_none = 0
rb2_servo4_enable_none equ 0
        ; line_number = 103
        ; constant rb2_servo4_high_get = 0xa0
rb2_servo4_high_get equ 160
        ; line_number = 104
        ; constant rb2_servo4_low_get = 0xa4
rb2_servo4_low_get equ 164
        ; line_number = 105
        ; constant rb2_servo4_enables_get = 0xa8
rb2_servo4_enables_get equ 168

        ; line_number = 107
        ; constant rb2_controller28_address = 28
rb2_controller28_address equ 28

        ; line_number = 109
        ; constant rb2_lcd32_address = 32
rb2_lcd32_address equ 32
        ; line_number = 110
        ; constant rb2_lcd32_new_line = 0xa
rb2_lcd32_new_line equ 10
        ; line_number = 111
        ; constant rb2_lcd32_form_feed = 0xc
rb2_lcd32_form_feed equ 12
        ; line_number = 112
        ; constant rb2_lcd32_carriage_return = 0xd
rb2_lcd32_carriage_return equ 13
        ; line_number = 113
        ; constant rb2_lcd32_column_set = 0x20
rb2_lcd32_column_set equ 32


        ; buffer = 'rb2bus'
        ; line_number = 54
        ; library rb2_constants exited
        ; line_number = 55
        ; library rb2bus_globals entered

        ; # Copyright (c) 2006-2007 by Wayne C. Gramlich
        ; # All rights reserved.

        ; # These are the global variables used by both the {rb2bus} and
        ; # the various {rb2bus_picXXXX} libraries.  Poll based firmware
        ; # uses both libraries, whereas interrupt driven software only
        ; # uses the {rb2bus_picXXX} libraries.

        ; buffer = 'rb2bus_globals'
        ; line_number = 11
        ; global rb2bus_selected bit	# 
rb2bus_selected___byte equ globals___0+79
rb2bus_selected___bit equ 0
        ; line_number = 12
        ; global rb2bus_error bit		# Global error bit
rb2bus_error___byte equ globals___0+79
rb2bus_error___bit equ 1
        ; line_number = 13
        ; global rb2bus_address byte	# Bus address to respond to
rb2bus_address equ globals___0
        ; line_number = 14
        ; global rb2bus_index byte	# Index into id information
rb2bus_index equ globals___0+1


        ; buffer = 'rb2bus'
        ; line_number = 55
        ; library rb2bus_globals exited

        ; Delaying code generation for procedure  rb2bus_select_wait
        ; Delaying code generation for procedure  rb2bus_deselect
        ; Delaying code generation for procedure  rb2bus_byte_get
        ; Delaying code generation for procedure  rb2bus_byte_put
        ; Delaying code generation for procedure  rb2bus_command

        ; buffer = 'rb2bus_pic16f688'
        ; line_number = 16
        ; library rb2bus exited

        ; Delaying code generation for procedure  rb2bus_initialize
        ; line_number = 62
        ; constant rb2bus_eedata_address = 0xfe
rb2bus_eedata_address equ 254

        ; Delaying code generation for procedure  rb2bus_eedata_read
        ; Delaying code generation for procedure  rb2bus_eedata_write

        ; buffer = 'voice1'
        ; line_number = 20
        ; library rb2bus_pic16f688 exited

        ; # This module uses 16MHz crystal oscillator; hence mode EC=External Clock:

        ; # All pins on this package are used except RA3.
        ; line_number = 26
        ; package pdip
        ; line_number = 27
        ; pin 1 = power_supply
        ; line_number = 28
        ;  pin 2 = osc1
        ; line_number = 29
        ;  pin 3 = ra4_in, name=io1, mask=io1_mask, bit=io1_bit
io1___byte equ _porta
io1___bit equ 4
io1_mask equ 16
io1_bit equ 4
        ; line_number = 30
        ;  pin 4 = ra3_nc, name=nc1
nc1___byte equ _porta
nc1___bit equ 3
        ; line_number = 31
        ;  pin 5 = rx, name=rx, bit=rx_bit
rx___byte equ _portc
rx___bit equ 5
rx_bit equ 5
        ; line_number = 32
        ;  pin 6 = tx, name=tx, bit=tx_bit
tx___byte equ _portc
tx___bit equ 4
tx_bit equ 4
        ; line_number = 33
        ;  pin 7 = rc3_in, name=io6, mask=io6_mask, bit=io6_bit
io6___byte equ _portc
io6___bit equ 3
io6_mask equ 8
io6_bit equ 3
        ; line_number = 34
        ;  pin 8 = rc2_in, name=io4, mask=io4_mask, bit=io4_bit
io4___byte equ _portc
io4___bit equ 2
io4_mask equ 4
io4_bit equ 2
        ; line_number = 35
        ;  pin 9 = rc1_in, name=io2, mask=io2_mask, bit=io2_bit
io2___byte equ _portc
io2___bit equ 1
io2_mask equ 2
io2_bit equ 1
        ; line_number = 36
        ;  pin 10 = rc0_in, name=io0, mask=io0_mask, bit=io0_bit
io0___byte equ _portc
io0___bit equ 0
io0_mask equ 1
io0_bit equ 0
        ; line_number = 37
        ;  pin 11 = ra2_in, name=io7, mask=io7_mask, bit=io7_bit
io7___byte equ _porta
io7___bit equ 2
io7_mask equ 4
io7_bit equ 2
        ; line_number = 38
        ;  pin 12 = ra1_in, name=io5, mask=io5_mask, bit=io5_bit
io5___byte equ _porta
io5___bit equ 1
io5_mask equ 2
io5_bit equ 1
        ; line_number = 39
        ;  pin 13 = ra0_in, name=io3, mask=io3_mask, bit=io3_bit
io3___byte equ _porta
io3___bit equ 0
io3_mask equ 1
io3_bit equ 0
        ; line_number = 40
        ;  pin 14 = ground

        ; line_number = 42
        ; origin 0
        org     0

        ; line_number = 44
        ; global adc_lsbs[8] array[byte]
adc_lsbs equ globals___0+12
        ; line_number = 45
        ; global adc_msbs[8] array[byte]
adc_msbs equ globals___0+20

        ; line_number = 47
        ;info   47, 0
        ; procedure main
main:
        ; Initialize some registers
        clrf    _adcon0
        bsf     __rp0___byte, __rp0___bit
        clrf    _ansel
        movlw   7
        bcf     __rp0___byte, __rp0___bit
        movwf   _cmcon0
        movlw   63
        bsf     __rp0___byte, __rp0___bit
        movwf   _trisa
        movlw   63
        movwf   _trisc
        ; arguments_none
        ; line_number = 49
        ;  returns_nothing

        ; # This procedure initializes everything and does command decoding.

        ; line_number = 53
        ;  local command byte
main__command equ globals___0+28
        ; line_number = 54
        ;  local id_index byte
main__id_index equ globals___0+29
        ; line_number = 55
        ;  local channel byte
main__channel equ globals___0+30
        ; line_number = 56
        ;  local result byte
main__result equ globals___0+31

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;01 code:XX=cc=&gt;XX)
        ; line_number = 58
        ;  call rb2bus_initialize(8)
        ;info   58, 11
        movlw   8
        bcf     __rp0___byte, __rp0___bit
        call    rb2bus_initialize

        ; line_number = 60
        ;  call direction_set(0xff)
        ;info   60, 14
        movlw   255
        call    direction_set

        ; # We are running at 16MHz.  We want Tad to be as close to 1.6uS
        ; # as possible.  1/(16MHz/32) = 2uS which is about as close as
        ; # we are going to get.  Thus, ADCS&lt;2:0&gt; = 010.
        ; line_number = 65
        ;  _adcon1 := 0x20
        ;info   65, 16
        movlw   32
        bsf     __rp0___byte, __rp0___bit
        movwf   _adcon1

        ; line_number = 67
        ;  _adcon0 := 0
        ;info   67, 19
        bcf     __rp0___byte, __rp0___bit
        clrf    _adcon0
        ; # A/D result is left justified (10-bits) in ADRESH::ADRESL
        ; line_number = 69
        ;  _adfm := _false
        ;info   69, 21
        bcf     _adfm___byte, _adfm___bit
        ; # Use 5 volt voltage reference:
        ; line_number = 71
        ;  _vcfg := _false
        ;info   71, 22
        bcf     _vcfg___byte, _vcfg___bit
        ; # Turn on the A/D:
        ; line_number = 73
        ;  _adon := _true
        ;info   73, 23
        bsf     _adon___byte, _adon___bit

        ; line_number = 75
        ;  id_index := 0
        ;info   75, 24
        clrf    main__id_index

        ; line_number = 77
        ;  loop_forever start
main__1:
        ; # Make sure that we have been selected:
        ; line_number = 79
        ;  rb2bus_error := _true
        ;info   79, 25
        bsf     rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 80
        ;  while rb2bus_error start
main__2:
        ;info   80, 26
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_error
        ; No 1TEST: true.size=4 false.size=0
        ; No 2TEST: true.size=4 false.size=0
        ; 1GOTO: Single test with GOTO
        btfss   rb2bus_error___byte, rb2bus_error___bit
        goto    main__3
        ; line_number = 81
        ; call rb2bus_select_wait()
        ;info   81, 28
        call    rb2bus_select_wait
        ; line_number = 82
        ;  command := rb2bus_byte_get()
        ;info   82, 29
        call    rb2bus_byte_get
        movwf   main__command

        goto    main__2
        ; Recombine size1 = 0 || size2 = 0
main__3:
        ; line_number = 80
        ;  while rb2bus_error done
        ; line_number = 84
        ; switch command &gt;&gt; 6 start
        ;info   84, 32
        ; switch_before:(data:00=uu=&gt;00 code:XX=cc=&gt;XX) size=7
        movlw   main__50&gt;&gt;8
        movwf   __pclath
main__51 equ globals___0+46
        swapf   main__command,w
        movwf   main__51
        rrf     main__51,f
        rrf     main__51,w
        andlw   3
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   main__50
        movwf   __pcl
        ; page_group 4
main__50:
        goto    main__48
        goto    main__52
        goto    main__52
        goto    main__49
        ; line_number = 85
        ; case 0
main__48:
        ; line_number = 86
        ; switch (command &gt;&gt; 3) &amp; 7 start
        ;info   86, 45
        ; switch_before:(data:XX=cc=&gt;XX code:XX=cc=&gt;XX) size=0
        movlw   main__35&gt;&gt;8
        movwf   __pclath
main__36 equ globals___0+46
        rrf     main__command,w
        movwf   main__36
        rrf     main__36,f
        rrf     main__36,w
        andlw   7
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   main__35
        movwf   __pcl
        ; page_group 8
main__35:
        goto    main__30
        goto    main__37
        goto    main__31
        goto    main__32
        goto    main__33
        goto    main__33
        goto    main__34
        goto    main__34
        ; line_number = 87
        ; case 0
main__30:
        ; # 0000 0xxx:
        ; line_number = 89
        ;  switch command &amp; 7 start
        ;info   89, 62
        ; switch_before:(data:XX=cc=&gt;XX code:XX=cc=&gt;XX) size=0
        ; line_number = 117
        ; case_maximum 7
        movlw   main__13&gt;&gt;8
        movwf   __pclath
        movlw   7
        andwf   main__command,w
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   main__13
        movwf   __pcl
        ; page_group 8
main__13:
        goto    main__7
        goto    main__8
        goto    main__9
        goto    main__10
        goto    main__11
        goto    main__12
        goto    main__14
        goto    main__14
        ; line_number = 90
        ; case 0
main__7:
        ; # 0000 0000 (Digital8_Read):
        ; line_number = 92
        ;  call rb2bus_byte_put(digital_read())
        ;info   92, 76
        call    digital_read
        call    rb2bus_byte_put
        goto    main__14
        ; line_number = 93
        ; case 1
main__8:
        ; # 0000 0001 (Digital8_Write):
        ; line_number = 95
        ;  command := rb2bus_byte_get()
        ;info   95, 79
        call    rb2bus_byte_get
        movwf   main__command
        ; line_number = 96
        ;  if !rb2bus_error start
        ;info   96, 81
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_error
        ; No 1TEST: true.size=0 false.size=4
        ; No 2TEST: true.size=0 false.size=4
        ; 1GOTO: Single test with GOTO
        btfsc   rb2bus_error___byte, rb2bus_error___bit
        goto    main__4
        ; line_number = 97
        ; call digital_set(command)
        ;info   97, 83
        movf    main__command,w
        call    digital_set
        ; line_number = 98
        ;  call rb2bus_byte_put(0)
        ;info   98, 85
        movlw   0
        call    rb2bus_byte_put
main__4:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 96
        ;  if !rb2bus_error done
        goto    main__14
        ; line_number = 99
        ; case 2
main__9:
        ; # 0000 0010 (Direction_Read):
        ; line_number = 101
        ;  call rb2bus_byte_put(direction_read())
        ;info   101, 88
        call    direction_read
        call    rb2bus_byte_put
        goto    main__14
        ; line_number = 102
        ; case 3
main__10:
        ; # 0000 0011 (Direction_Set):
        ; line_number = 104
        ;  command := rb2bus_byte_get()
        ;info   104, 91
        call    rb2bus_byte_get
        movwf   main__command
        ; line_number = 105
        ;  if !rb2bus_error start
        ;info   105, 93
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_error
        ; No 1TEST: true.size=0 false.size=4
        ; No 2TEST: true.size=0 false.size=4
        ; 1GOTO: Single test with GOTO
        btfsc   rb2bus_error___byte, rb2bus_error___bit
        goto    main__5
        ; line_number = 106
        ; call direction_set(command)
        ;info   106, 95
        movf    main__command,w
        call    direction_set
        ; line_number = 107
        ;  call rb2bus_byte_put(0)
        ;info   107, 97
        movlw   0
        call    rb2bus_byte_put
main__5:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 105
        ;  if !rb2bus_error done
        goto    main__14
        ; line_number = 108
        ; case 4
main__11:
        ; # 0000 0100 (Analog_Mask_Read):
        ; line_number = 110
        ;  call rb2bus_byte_put(analog_mask_read())
        ;info   110, 100
        call    analog_mask_read
        call    rb2bus_byte_put
        goto    main__14
        ; line_number = 111
        ; case 5
main__12:
        ; # 0000 0101 (Analog_Mask_Set):
        ; line_number = 113
        ;  command := rb2bus_byte_get()
        ;info   113, 103
        call    rb2bus_byte_get
        movwf   main__command
        ; line_number = 114
        ;  if !rb2bus_error start
        ;info   114, 105
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_error
        ; No 1TEST: true.size=0 false.size=4
        ; No 2TEST: true.size=0 false.size=4
        ; 1GOTO: Single test with GOTO
        btfsc   rb2bus_error___byte, rb2bus_error___bit
        goto    main__6
        ; line_number = 115
        ; call analog_mask_set(command)
        ;info   115, 107
        movf    main__command,w
        call    analog_mask_set
        ; line_number = 116
        ;  call rb2bus_byte_put(0)
        ;info   116, 109
        movlw   0
        call    rb2bus_byte_put
main__6:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 114
        ;  if !rb2bus_error done
main__14:
        ; line_number = 89
        ;  switch command &amp; 7 done
        goto    main__37
        ; line_number = 118
        ; case 2
main__31:
        ; # 0001 0ccc (Analog8_Read):
        ; line_number = 120
        ;  switch command &amp; 7 start
        ;info   120, 112
        ; switch_before:(data:XX=cc=&gt;XX code:XX=cc=&gt;XX) size=0
        movlw   main__23&gt;&gt;8
        movwf   __pclath
        movlw   7
        andwf   main__command,w
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   main__23
        movwf   __pcl
        ; page_group 8
main__23:
        goto    main__15
        goto    main__16
        goto    main__17
        goto    main__18
        goto    main__19
        goto    main__20
        goto    main__21
        goto    main__22
        ; line_number = 121
        ; case 0
main__15:
        ; line_number = 122
        ; channel := 4
        ;info   122, 126
        movlw   4
        movwf   main__channel
        goto    main__24
        ; line_number = 123
        ; case 1
main__16:
        ; line_number = 124
        ; channel := 3
        ;info   124, 129
        movlw   3
        movwf   main__channel
        goto    main__24
        ; line_number = 125
        ; case 2
main__17:
        ; line_number = 126
        ; channel := 5
        ;info   126, 132
        movlw   5
        movwf   main__channel
        goto    main__24
        ; line_number = 127
        ; case 3
main__18:
        ; line_number = 128
        ; channel := 0
        ;info   128, 135
        clrf    main__channel
        goto    main__24
        ; line_number = 129
        ; case 4
main__19:
        ; line_number = 130
        ; channel := 6
        ;info   130, 137
        movlw   6
        movwf   main__channel
        goto    main__24
        ; line_number = 131
        ; case 5
main__20:
        ; line_number = 132
        ; channel := 1
        ;info   132, 140
        movlw   1
        movwf   main__channel
        goto    main__24
        ; line_number = 133
        ; case 6
main__21:
        ; line_number = 134
        ; channel := 7
        ;info   134, 143
        movlw   7
        movwf   main__channel
        goto    main__24
        ; line_number = 135
        ; case 7
main__22:
        ; line_number = 136
        ; channel := 2
        ;info   136, 146
        movlw   2
        movwf   main__channel

main__24:
        ; line_number = 120
        ;  switch command &amp; 7 done
        ; # Select the channel while keeping the A/D on:
        ; line_number = 139
        ;  _adcon0 := (channel &lt;&lt; 2) | 1
        ;info   139, 148
main__25 equ globals___0+46
        rlf     main__channel,w
        movwf   main__25
        rlf     main__25,w
        andlw   252
        iorlw   1
        movwf   _adcon0
        ; # It can take up to 20 uS for the A/D to stablize:
        ; line_number = 141
        ;  delay 20 * microsecond start
        ;info   141, 154
        ; Delay expression evaluates to 80
        ; line_number = 142
        ; do_nothing
        ;info   142, 154

        ; Delay 80 cycles
        ; Delay loop takes 20 * 4 = 80 cycles
        movlw   20
main__26:
        addlw   255
        btfss   __z___byte, __z___bit
        goto    main__26
        ; line_number = 141
        ;  delay 20 * microsecond done
        ; # Now take the A/D sample:
        ; line_number = 145
        ;  _go := _true
        ;info   145, 158
        bsf     _go___byte, _go___bit
        ; line_number = 146
        ;  while _go start
main__27:
        ;info   146, 159
        ; =&gt;bit_code_emit@symbol(): sym=_go
        ; 1TEST: Single test with code in skip slot
        btfsc   _go___byte, _go___bit
        ; line_number = 147
        ; do_nothing
        ;info   147, 160

        goto    main__27
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 146
        ;  while _go done
        ; # We've got the result:
        ; line_number = 150
        ;  result := _adresh
        ;info   150, 161
        movf    _adresh,w
        movwf   main__result
        ; line_number = 151
        ;  adc_lsbs[channel] := _adresl
        ;info   151, 163
        ; index_fsr_first
        movf    main__channel,w
        addlw   adc_lsbs
        movwf   __fsr
        bsf     __rp0___byte, __rp0___bit
        movf    _adresl,w
        movwf   __indf
        ; line_number = 152
        ;  adc_msbs[channel] := result
        ;info   152, 169
        ; index_fsr_first
        bcf     __rp0___byte, __rp0___bit
        movf    main__channel,w
        addlw   adc_msbs
        movwf   __fsr
        movf    main__result,w
        movwf   __indf
        ; line_number = 153
        ;  call rb2bus_byte_put(result)
        ;info   153, 175
        movf    main__result,w
        call    rb2bus_byte_put
        goto    main__37
        ; line_number = 154
        ; case 3
main__32:
        ; # 0001 1ccc (Analog10_Read):
        ; line_number = 156
        ;  call rb2bus_byte_put(adc_lsbs[command &amp; 7])
        ;info   156, 178
        movlw   7
        andwf   main__command,w
        addlw   adc_lsbs
        movwf   __fsr
        movf    __indf,w
        call    rb2bus_byte_put
        goto    main__37
        ; line_number = 157
        ; case 4, 5
main__33:
        ; # 0010 dddd (Low Set):
        ; line_number = 159
        ;  call digital_set((digital_read() &amp; 0xf0) | (command &amp; 0xf))
        ;info   159, 185
main__28 equ globals___0+46
        call    digital_read
        andlw   240
        movwf   main__28
        movlw   15
        andwf   main__command,w
        iorwf   main__28,w
        call    digital_set
        goto    main__37
        ; line_number = 160
        ; case 6, 7
main__34:
        ; # 0011 dddd (High Set):
        ; line_number = 162
        ;  call digital_set((command &lt;&lt; 4) | (digital_read() &amp; 0xf))
        ;info   162, 193
main__29 equ globals___0+46
        swapf   main__command,w
        movwf   main__29
        movlw   240
        andwf   main__29,f
        call    digital_read
        andlw   15
        iorwf   main__29,w
        call    digital_set
main__37:
        ; line_number = 86
        ; switch (command &gt;&gt; 3) &amp; 7 done
        goto    main__52
        ; line_number = 163
        ; case 3
main__49:
        ; line_number = 164
        ; switch (command &gt;&gt; 3) &amp; 7 start
        ;info   164, 202
        ; switch_before:(data:XX=cc=&gt;XX code:XX=cc=&gt;XX) size=0
        movlw   main__45&gt;&gt;8
        movwf   __pclath
main__46 equ globals___0+46
        rrf     main__command,w
        movwf   main__46
        rrf     main__46,f
        rrf     main__46,w
        andlw   7
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   main__45
        movwf   __pcl
        ; page_group 8
main__45:
        goto    main__47
        goto    main__47
        goto    main__47
        goto    main__47
        goto    main__47
        goto    main__47
        goto    main__47
        goto    main__44
        ; line_number = 165
        ; case 7
main__44:
        ; line_number = 166
        ; switch command &amp; 7 start
        ;info   166, 219
        ; switch_before:(data:XX=cc=&gt;XX code:XX=cc=&gt;XX) size=0
        movlw   main__42&gt;&gt;8
        movwf   __pclath
        movlw   7
        andwf   main__command,w
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   main__42
        movwf   __pcl
        ; page_group 8
main__42:
        goto    main__43
        goto    main__43
        goto    main__43
        goto    main__43
        goto    main__43
        goto    main__39
        goto    main__40
        goto    main__41
        ; line_number = 167
        ; case 5
main__39:
        ; # 1111 1101 (Id_next):
        ; line_number = 169
        ;  if id_index &lt; id.size start
        ;info   169, 233
        movlw   19
        subwf   main__id_index,w
        ; =&gt;bit_code_emit@symbol(): sym=__c
        ; No 1TEST: true.size=0 false.size=4
        ; No 2TEST: true.size=0 false.size=4
        ; 1GOTO: Single test with GOTO
        btfsc   __c___byte, __c___bit
        goto    main__38
        ; line_number = 170
        ; call rb2bus_byte_put(id[id_index])
        ;info   170, 237
        movf    main__id_index,w
        call    id
        call    rb2bus_byte_put
        ; line_number = 171
        ;  id_index := id_index + 1
        ;info   171, 240
        incf    main__id_index,f
main__38:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 169
        ;  if id_index &lt; id.size done
        goto    main__43
        ; line_number = 172
        ; case 6
main__40:
        ; # 1111 1110 (Id_start):
        ; line_number = 174
        ;  id_index := 0
        ;info   174, 242
        clrf    main__id_index
        goto    main__43
        ; line_number = 175
        ; case 7
main__41:
        ; # 1111 1111 (Deselect):
        ; line_number = 177
        ;  call rb2bus_deselect()
        ;info   177, 244
        call    rb2bus_deselect

main__43:
        ; line_number = 166
        ; switch command &amp; 7 done
main__47:
        ; line_number = 164
        ; switch (command &gt;&gt; 3) &amp; 7 done
main__52:
        ; line_number = 84
        ; switch command &gt;&gt; 6 done
        ; line_number = 77
        ;  loop_forever wrap-up
        goto    main__1
        ; line_number = 77
        ;  loop_forever done
        ; delay after procedure statements=non-uniform




        ; line_number = 179
        ;info   179, 246
        ; procedure wait
wait:
        ; arguments_none
        ; line_number = 181
        ;  returns_nothing

        ; # This procedure is repeatably called whenever the software
        ; # is waiting for a byte to arrive from the bus.

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 186
        ;  do_nothing
        ;info   186, 246


        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 189
        ; string id = "\16,0,8,1,3,5\IO8-B\7\Gramson" start
        ; id = '\16,0,8,1,3,5\IO8-B\7\Gramson'
id:
        ; Temporarily save index into FSR
        movwf   __fsr
        ; Initialize PCLATH to point to this code page
        movlw   id___base&gt;&gt;8
        movwf   __pclath
        ; Restore index from FSR
        movf    __fsr,w
        addlw   id___base
        ; Index to the correct return value
        movwf   __pcl
        ; page_group 19
        ; Add 3 NOP's until start of new page 
        nop     
        nop     
        nop     
id___base:
        retlw   16
        retlw   0
        retlw   8
        retlw   1
        retlw   3
        retlw   5
        retlw   73
        retlw   79
        retlw   56
        retlw   45
        retlw   66
        retlw   7
        retlw   71
        retlw   114
        retlw   97
        retlw   109
        retlw   115
        retlw   111
        retlw   110
        ; line_number = 189
        ; string id = "\16,0,8,1,3,5\IO8-B\7\Gramson" start

        ; line_number = 191
        ;info   191, 275
        ; procedure analog_mask_read
analog_mask_read:
        ; arguments_none
        ; line_number = 193
        ;  returns byte

        ; # This procedure will return the analog selection bits.

        ; line_number = 197
        ;  local analog byte
analog_mask_read__analog equ globals___0+32

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 199
        ;  analog := 0
        ;info   199, 275
        clrf    analog_mask_read__analog
        ; line_number = 200
        ;  if _ansel@0 start
        ;info   200, 276
analog_mask_read__select__2___byte equ _ansel
analog_mask_read__select__2___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__2
        ; 1TEST: Single test with code in skip slot
        bsf     __rp0___byte, __rp0___bit
        btfsc   analog_mask_read__select__2___byte, analog_mask_read__select__2___bit
        ; line_number = 201
        ; analog@3 := _true
        ;info   201, 278
analog_mask_read__select__1___byte equ analog_mask_read__analog
analog_mask_read__select__1___bit equ 3
        bsf     analog_mask_read__select__1___byte, analog_mask_read__select__1___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 200
        ;  if _ansel@0 done
        ; line_number = 202
        ; if _ansel@1 start
        ;info   202, 279
analog_mask_read__select__4___byte equ _ansel
analog_mask_read__select__4___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__4
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__4___byte, analog_mask_read__select__4___bit
        ; line_number = 203
        ; analog@5 := _true
        ;info   203, 280
analog_mask_read__select__3___byte equ analog_mask_read__analog
analog_mask_read__select__3___bit equ 5
        bsf     analog_mask_read__select__3___byte, analog_mask_read__select__3___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 202
        ; if _ansel@1 done
        ; line_number = 204
        ; if _ansel@2 start
        ;info   204, 281
analog_mask_read__select__6___byte equ _ansel
analog_mask_read__select__6___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__6
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__6___byte, analog_mask_read__select__6___bit
        ; line_number = 205
        ; analog@7 := _true
        ;info   205, 282
analog_mask_read__select__5___byte equ analog_mask_read__analog
analog_mask_read__select__5___bit equ 7
        bsf     analog_mask_read__select__5___byte, analog_mask_read__select__5___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 204
        ; if _ansel@2 done
        ; line_number = 206
        ; if _ansel@3 start
        ;info   206, 283
analog_mask_read__select__8___byte equ _ansel
analog_mask_read__select__8___bit equ 3
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__8
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__8___byte, analog_mask_read__select__8___bit
        ; line_number = 207
        ; analog@1 := _true
        ;info   207, 284
analog_mask_read__select__7___byte equ analog_mask_read__analog
analog_mask_read__select__7___bit equ 1
        bsf     analog_mask_read__select__7___byte, analog_mask_read__select__7___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 206
        ; if _ansel@3 done
        ; line_number = 208
        ; if _ansel@4 start
        ;info   208, 285
analog_mask_read__select__10___byte equ _ansel
analog_mask_read__select__10___bit equ 4
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__10
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__10___byte, analog_mask_read__select__10___bit
        ; line_number = 209
        ; analog@0 := _true
        ;info   209, 286
analog_mask_read__select__9___byte equ analog_mask_read__analog
analog_mask_read__select__9___bit equ 0
        bsf     analog_mask_read__select__9___byte, analog_mask_read__select__9___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 208
        ; if _ansel@4 done
        ; line_number = 210
        ; if _ansel@5 start
        ;info   210, 287
analog_mask_read__select__12___byte equ _ansel
analog_mask_read__select__12___bit equ 5
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__12
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__12___byte, analog_mask_read__select__12___bit
        ; line_number = 211
        ; analog@2 := _true
        ;info   211, 288
analog_mask_read__select__11___byte equ analog_mask_read__analog
analog_mask_read__select__11___bit equ 2
        bsf     analog_mask_read__select__11___byte, analog_mask_read__select__11___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 210
        ; if _ansel@5 done
        ; line_number = 212
        ; if _ansel@6 start
        ;info   212, 289
analog_mask_read__select__14___byte equ _ansel
analog_mask_read__select__14___bit equ 6
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__14
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__14___byte, analog_mask_read__select__14___bit
        ; line_number = 213
        ; analog@4 := _true
        ;info   213, 290
analog_mask_read__select__13___byte equ analog_mask_read__analog
analog_mask_read__select__13___bit equ 4
        bsf     analog_mask_read__select__13___byte, analog_mask_read__select__13___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 212
        ; if _ansel@6 done
        ; line_number = 214
        ; if _ansel@7 start
        ;info   214, 291
analog_mask_read__select__16___byte equ _ansel
analog_mask_read__select__16___bit equ 7
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_read__select__16
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_read__select__16___byte, analog_mask_read__select__16___bit
        ; line_number = 215
        ; analog@6 := _true
        ;info   215, 292
analog_mask_read__select__15___byte equ analog_mask_read__analog
analog_mask_read__select__15___bit equ 6
        bsf     analog_mask_read__select__15___byte, analog_mask_read__select__15___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 214
        ; if _ansel@7 done
        ; line_number = 216
        ; return analog start
        ; line_number = 216
        ;info   216, 293
        bcf     __rp0___byte, __rp0___bit
        movf    analog_mask_read__analog,w
        return  
        ; line_number = 216
        ; return analog done


        ; delay after procedure statements=non-uniform




        ; line_number = 219
        ;info   219, 296
        ; procedure analog_mask_set
analog_mask_set:
        ; Last argument is sitting in W; save into argument variable
        movwf   analog_mask_set__analog
        ; delay=4294967295
        ; line_number = 220
        ; argument analog byte
analog_mask_set__analog equ globals___0+33
        ; line_number = 221
        ;  returns_nothing

        ; # This procedure will set the analog inputs to be equal to {analog}.

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 225
        ;  if analog@0 start
        ;info   225, 297
analog_mask_set__select__2___byte equ analog_mask_set__analog
analog_mask_set__select__2___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__2
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__2___byte, analog_mask_set__select__2___bit
        ; line_number = 226
        ; _ansel@4 := _true
        ;info   226, 298
analog_mask_set__select__1___byte equ _ansel
analog_mask_set__select__1___bit equ 4
        bsf     analog_mask_set__select__1___byte, analog_mask_set__select__1___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 225
        ;  if analog@0 done
        ; line_number = 227
        ; if analog@1 start
        ;info   227, 299
analog_mask_set__select__4___byte equ analog_mask_set__analog
analog_mask_set__select__4___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__4
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__4___byte, analog_mask_set__select__4___bit
        ; line_number = 228
        ; _ansel@3 := _true
        ;info   228, 300
analog_mask_set__select__3___byte equ _ansel
analog_mask_set__select__3___bit equ 3
        bsf     analog_mask_set__select__3___byte, analog_mask_set__select__3___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 227
        ; if analog@1 done
        ; line_number = 229
        ; if analog@2 start
        ;info   229, 301
analog_mask_set__select__6___byte equ analog_mask_set__analog
analog_mask_set__select__6___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__6
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__6___byte, analog_mask_set__select__6___bit
        ; line_number = 230
        ; _ansel@5 := _true
        ;info   230, 302
analog_mask_set__select__5___byte equ _ansel
analog_mask_set__select__5___bit equ 5
        bsf     analog_mask_set__select__5___byte, analog_mask_set__select__5___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 229
        ; if analog@2 done
        ; line_number = 231
        ; if analog@3 start
        ;info   231, 303
analog_mask_set__select__8___byte equ analog_mask_set__analog
analog_mask_set__select__8___bit equ 3
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__8
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__8___byte, analog_mask_set__select__8___bit
        ; line_number = 232
        ; _ansel@0 := _true
        ;info   232, 304
analog_mask_set__select__7___byte equ _ansel
analog_mask_set__select__7___bit equ 0
        bsf     analog_mask_set__select__7___byte, analog_mask_set__select__7___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 231
        ; if analog@3 done
        ; line_number = 233
        ; if analog@4 start
        ;info   233, 305
analog_mask_set__select__10___byte equ analog_mask_set__analog
analog_mask_set__select__10___bit equ 4
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__10
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__10___byte, analog_mask_set__select__10___bit
        ; line_number = 234
        ; _ansel@6 := _true
        ;info   234, 306
analog_mask_set__select__9___byte equ _ansel
analog_mask_set__select__9___bit equ 6
        bsf     analog_mask_set__select__9___byte, analog_mask_set__select__9___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 233
        ; if analog@4 done
        ; line_number = 235
        ; if analog@5 start
        ;info   235, 307
analog_mask_set__select__12___byte equ analog_mask_set__analog
analog_mask_set__select__12___bit equ 5
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__12
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__12___byte, analog_mask_set__select__12___bit
        ; line_number = 236
        ; _ansel@1 := _true
        ;info   236, 308
analog_mask_set__select__11___byte equ _ansel
analog_mask_set__select__11___bit equ 1
        bsf     analog_mask_set__select__11___byte, analog_mask_set__select__11___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 235
        ; if analog@5 done
        ; line_number = 237
        ; if analog@6 start
        ;info   237, 309
analog_mask_set__select__14___byte equ analog_mask_set__analog
analog_mask_set__select__14___bit equ 6
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__14
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__14___byte, analog_mask_set__select__14___bit
        ; line_number = 238
        ; _ansel@7 := _true
        ;info   238, 310
analog_mask_set__select__13___byte equ _ansel
analog_mask_set__select__13___bit equ 7
        bsf     analog_mask_set__select__13___byte, analog_mask_set__select__13___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 237
        ; if analog@6 done
        ; line_number = 239
        ; if analog@7 start
        ;info   239, 311
analog_mask_set__select__16___byte equ analog_mask_set__analog
analog_mask_set__select__16___bit equ 7
        ; =&gt;bit_code_emit@symbol(): sym=analog_mask_set__select__16
        ; 1TEST: Single test with code in skip slot
        btfsc   analog_mask_set__select__16___byte, analog_mask_set__select__16___bit
        ; line_number = 240
        ; _ansel@2 := _true
        ;info   240, 312
analog_mask_set__select__15___byte equ _ansel
analog_mask_set__select__15___bit equ 2
        bsf     analog_mask_set__select__15___byte, analog_mask_set__select__15___bit


        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 239
        ; if analog@7 done
        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 243
        ;info   243, 314
        ; procedure digital_read
digital_read:
        ; arguments_none
        ; line_number = 245
        ;  returns byte

        ; # This procedure will return the digital bits corresponding to
        ; # the 8 digital data inputs.

        ; line_number = 250
        ;  local ra byte
digital_read__ra equ globals___0+34
        ; line_number = 251
        ;  local rc byte
digital_read__rc equ globals___0+35
        ; line_number = 252
        ;  local digital byte
digital_read__digital equ globals___0+36

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 254
        ;  ra := _porta
        ;info   254, 314
        movf    _porta,w
        movwf   digital_read__ra
        ; line_number = 255
        ;  rc := _portc
        ;info   255, 316
        movf    _portc,w
        movwf   digital_read__rc
        ; line_number = 256
        ;  digital := 0
        ;info   256, 318
        clrf    digital_read__digital

        ; line_number = 258
        ;  if rc@io0_bit start
        ;info   258, 319
digital_read__select__2___byte equ digital_read__rc
digital_read__select__2___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__2
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__2___byte, digital_read__select__2___bit
        ; line_number = 259
        ; digital@0 := _true
        ;info   259, 320
digital_read__select__1___byte equ digital_read__digital
digital_read__select__1___bit equ 0
        bsf     digital_read__select__1___byte, digital_read__select__1___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 258
        ;  if rc@io0_bit done
        ; line_number = 260
        ; if ra@io1_bit start
        ;info   260, 321
digital_read__select__4___byte equ digital_read__ra
digital_read__select__4___bit equ 4
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__4
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__4___byte, digital_read__select__4___bit
        ; line_number = 261
        ; digital@1 := _true
        ;info   261, 322
digital_read__select__3___byte equ digital_read__digital
digital_read__select__3___bit equ 1
        bsf     digital_read__select__3___byte, digital_read__select__3___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 260
        ; if ra@io1_bit done
        ; line_number = 262
        ; if rc@io2_bit start
        ;info   262, 323
digital_read__select__6___byte equ digital_read__rc
digital_read__select__6___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__6
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__6___byte, digital_read__select__6___bit
        ; line_number = 263
        ; digital@2 := _true
        ;info   263, 324
digital_read__select__5___byte equ digital_read__digital
digital_read__select__5___bit equ 2
        bsf     digital_read__select__5___byte, digital_read__select__5___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 262
        ; if rc@io2_bit done
        ; line_number = 264
        ; if ra@io3_bit start
        ;info   264, 325
digital_read__select__8___byte equ digital_read__ra
digital_read__select__8___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__8
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__8___byte, digital_read__select__8___bit
        ; line_number = 265
        ; digital@3 := _true
        ;info   265, 326
digital_read__select__7___byte equ digital_read__digital
digital_read__select__7___bit equ 3
        bsf     digital_read__select__7___byte, digital_read__select__7___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 264
        ; if ra@io3_bit done
        ; line_number = 266
        ; if rc@io4_bit start
        ;info   266, 327
digital_read__select__10___byte equ digital_read__rc
digital_read__select__10___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__10
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__10___byte, digital_read__select__10___bit
        ; line_number = 267
        ; digital@4 := _true
        ;info   267, 328
digital_read__select__9___byte equ digital_read__digital
digital_read__select__9___bit equ 4
        bsf     digital_read__select__9___byte, digital_read__select__9___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 266
        ; if rc@io4_bit done
        ; line_number = 268
        ; if ra@io5_bit start
        ;info   268, 329
digital_read__select__12___byte equ digital_read__ra
digital_read__select__12___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__12
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__12___byte, digital_read__select__12___bit
        ; line_number = 269
        ; digital@5 := _true
        ;info   269, 330
digital_read__select__11___byte equ digital_read__digital
digital_read__select__11___bit equ 5
        bsf     digital_read__select__11___byte, digital_read__select__11___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 268
        ; if ra@io5_bit done
        ; line_number = 270
        ; if rc@io6_bit start
        ;info   270, 331
digital_read__select__14___byte equ digital_read__rc
digital_read__select__14___bit equ 3
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__14
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__14___byte, digital_read__select__14___bit
        ; line_number = 271
        ; digital@6 := _true
        ;info   271, 332
digital_read__select__13___byte equ digital_read__digital
digital_read__select__13___bit equ 6
        bsf     digital_read__select__13___byte, digital_read__select__13___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 270
        ; if rc@io6_bit done
        ; line_number = 272
        ; if ra@io7_bit start
        ;info   272, 333
digital_read__select__16___byte equ digital_read__ra
digital_read__select__16___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=digital_read__select__16
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_read__select__16___byte, digital_read__select__16___bit
        ; line_number = 273
        ; digital@7 := _true
        ;info   273, 334
digital_read__select__15___byte equ digital_read__digital
digital_read__select__15___bit equ 7
        bsf     digital_read__select__15___byte, digital_read__select__15___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 272
        ; if ra@io7_bit done
        ; line_number = 274
        ; return digital start
        ; line_number = 274
        ;info   274, 335
        movf    digital_read__digital,w
        return  
        ; line_number = 274
        ; return digital done


        ; delay after procedure statements=non-uniform




        ; line_number = 277
        ;info   277, 337
        ; procedure digital_set
digital_set:
        ; Last argument is sitting in W; save into argument variable
        movwf   digital_set__digital
        ; delay=4294967295
        ; line_number = 278
        ; argument digital byte
digital_set__digital equ globals___0+39
        ; line_number = 279
        ;  returns_nothing

        ; # This procedure will set the digital outputs to be equal to {digital}.

        ; line_number = 283
        ;  local ra byte
digital_set__ra equ globals___0+37
        ; line_number = 284
        ;  local rc byte
digital_set__rc equ globals___0+38

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 286
        ;  ra := 0
        ;info   286, 338
        clrf    digital_set__ra
        ; line_number = 287
        ;  rc := 0
        ;info   287, 339
        clrf    digital_set__rc
        ; line_number = 288
        ;  if digital@0 start
        ;info   288, 340
digital_set__select__2___byte equ digital_set__digital
digital_set__select__2___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__2
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__2___byte, digital_set__select__2___bit
        ; line_number = 289
        ; rc@io0_bit := _true
        ;info   289, 341
digital_set__select__1___byte equ digital_set__rc
digital_set__select__1___bit equ 0
        bsf     digital_set__select__1___byte, digital_set__select__1___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 288
        ;  if digital@0 done
        ; line_number = 290
        ; if digital@1 start
        ;info   290, 342
digital_set__select__4___byte equ digital_set__digital
digital_set__select__4___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__4
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__4___byte, digital_set__select__4___bit
        ; line_number = 291
        ; ra@io1_bit := _true
        ;info   291, 343
digital_set__select__3___byte equ digital_set__ra
digital_set__select__3___bit equ 4
        bsf     digital_set__select__3___byte, digital_set__select__3___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 290
        ; if digital@1 done
        ; line_number = 292
        ; if digital@2 start
        ;info   292, 344
digital_set__select__6___byte equ digital_set__digital
digital_set__select__6___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__6
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__6___byte, digital_set__select__6___bit
        ; line_number = 293
        ; rc@io2_bit := _true
        ;info   293, 345
digital_set__select__5___byte equ digital_set__rc
digital_set__select__5___bit equ 1
        bsf     digital_set__select__5___byte, digital_set__select__5___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 292
        ; if digital@2 done
        ; line_number = 294
        ; if digital@3 start
        ;info   294, 346
digital_set__select__8___byte equ digital_set__digital
digital_set__select__8___bit equ 3
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__8
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__8___byte, digital_set__select__8___bit
        ; line_number = 295
        ; ra@io3_bit := _true
        ;info   295, 347
digital_set__select__7___byte equ digital_set__ra
digital_set__select__7___bit equ 0
        bsf     digital_set__select__7___byte, digital_set__select__7___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 294
        ; if digital@3 done
        ; line_number = 296
        ; if digital@4 start
        ;info   296, 348
digital_set__select__10___byte equ digital_set__digital
digital_set__select__10___bit equ 4
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__10
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__10___byte, digital_set__select__10___bit
        ; line_number = 297
        ; rc@io4_bit := _true
        ;info   297, 349
digital_set__select__9___byte equ digital_set__rc
digital_set__select__9___bit equ 2
        bsf     digital_set__select__9___byte, digital_set__select__9___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 296
        ; if digital@4 done
        ; line_number = 298
        ; if digital@5 start
        ;info   298, 350
digital_set__select__12___byte equ digital_set__digital
digital_set__select__12___bit equ 5
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__12
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__12___byte, digital_set__select__12___bit
        ; line_number = 299
        ; ra@io5_bit := _true
        ;info   299, 351
digital_set__select__11___byte equ digital_set__ra
digital_set__select__11___bit equ 1
        bsf     digital_set__select__11___byte, digital_set__select__11___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 298
        ; if digital@5 done
        ; line_number = 300
        ; if digital@6 start
        ;info   300, 352
digital_set__select__14___byte equ digital_set__digital
digital_set__select__14___bit equ 6
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__14
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__14___byte, digital_set__select__14___bit
        ; line_number = 301
        ; rc@io6_bit := _true
        ;info   301, 353
digital_set__select__13___byte equ digital_set__rc
digital_set__select__13___bit equ 3
        bsf     digital_set__select__13___byte, digital_set__select__13___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 300
        ; if digital@6 done
        ; line_number = 302
        ; if digital@7 start
        ;info   302, 354
digital_set__select__16___byte equ digital_set__digital
digital_set__select__16___bit equ 7
        ; =&gt;bit_code_emit@symbol(): sym=digital_set__select__16
        ; 1TEST: Single test with code in skip slot
        btfsc   digital_set__select__16___byte, digital_set__select__16___bit
        ; line_number = 303
        ; ra@io7_bit := _true
        ;info   303, 355
digital_set__select__15___byte equ digital_set__ra
digital_set__select__15___bit equ 2
        bsf     digital_set__select__15___byte, digital_set__select__15___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 302
        ; if digital@7 done
        ; line_number = 304
        ; _porta := ra
        ;info   304, 356
        movf    digital_set__ra,w
        movwf   _porta
        ; line_number = 305
        ;  _portc := rc
        ;info   305, 358
        movf    digital_set__rc,w
        movwf   _portc


        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 308
        ;info   308, 361
        ; procedure direction_read
direction_read:
        ; arguments_none
        ; line_number = 310
        ;  returns byte

        ; # This procedure will return the digital bits corresponding to
        ; # the 8 digital data inputs.

        ; line_number = 315
        ;  local trisa byte
direction_read__trisa equ globals___0+40
        ; line_number = 316
        ;  local trisc byte
direction_read__trisc equ globals___0+41
        ; line_number = 317
        ;  local direction byte
direction_read__direction equ globals___0+42

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 319
        ;  direction := 0
        ;info   319, 361
        clrf    direction_read__direction
        ; # Get all data into data bank 0:
        ; line_number = 321
        ;  trisa := _trisa
        ;info   321, 362
        bsf     __rp0___byte, __rp0___bit
        movf    _trisa,w
        bcf     __rp0___byte, __rp0___bit
        movwf   direction_read__trisa
        ; line_number = 322
        ;  trisc := _trisc
        ;info   322, 366
        bsf     __rp0___byte, __rp0___bit
        movf    _trisc,w
        bcf     __rp0___byte, __rp0___bit
        movwf   direction_read__trisc

        ; line_number = 324
        ;  if trisc@io0_bit start
        ;info   324, 370
direction_read__select__2___byte equ direction_read__trisc
direction_read__select__2___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__2
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__2___byte, direction_read__select__2___bit
        ; line_number = 325
        ; direction@0 := _true
        ;info   325, 371
direction_read__select__1___byte equ direction_read__direction
direction_read__select__1___bit equ 0
        bsf     direction_read__select__1___byte, direction_read__select__1___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 324
        ;  if trisc@io0_bit done
        ; line_number = 326
        ; if trisa@io1_bit start
        ;info   326, 372
direction_read__select__4___byte equ direction_read__trisa
direction_read__select__4___bit equ 4
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__4
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__4___byte, direction_read__select__4___bit
        ; line_number = 327
        ; direction@1 := _true
        ;info   327, 373
direction_read__select__3___byte equ direction_read__direction
direction_read__select__3___bit equ 1
        bsf     direction_read__select__3___byte, direction_read__select__3___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 326
        ; if trisa@io1_bit done
        ; line_number = 328
        ; if trisc@io2_bit start
        ;info   328, 374
direction_read__select__6___byte equ direction_read__trisc
direction_read__select__6___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__6
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__6___byte, direction_read__select__6___bit
        ; line_number = 329
        ; direction@2 := _true
        ;info   329, 375
direction_read__select__5___byte equ direction_read__direction
direction_read__select__5___bit equ 2
        bsf     direction_read__select__5___byte, direction_read__select__5___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 328
        ; if trisc@io2_bit done
        ; line_number = 330
        ; if trisa@io3_bit start
        ;info   330, 376
direction_read__select__8___byte equ direction_read__trisa
direction_read__select__8___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__8
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__8___byte, direction_read__select__8___bit
        ; line_number = 331
        ; direction@3 := _true
        ;info   331, 377
direction_read__select__7___byte equ direction_read__direction
direction_read__select__7___bit equ 3
        bsf     direction_read__select__7___byte, direction_read__select__7___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 330
        ; if trisa@io3_bit done
        ; line_number = 332
        ; if trisc@io4_bit start
        ;info   332, 378
direction_read__select__10___byte equ direction_read__trisc
direction_read__select__10___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__10
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__10___byte, direction_read__select__10___bit
        ; line_number = 333
        ; direction@4 := _true
        ;info   333, 379
direction_read__select__9___byte equ direction_read__direction
direction_read__select__9___bit equ 4
        bsf     direction_read__select__9___byte, direction_read__select__9___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 332
        ; if trisc@io4_bit done
        ; line_number = 334
        ; if trisa@io5_bit start
        ;info   334, 380
direction_read__select__12___byte equ direction_read__trisa
direction_read__select__12___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__12
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__12___byte, direction_read__select__12___bit
        ; line_number = 335
        ; direction@5 := _true
        ;info   335, 381
direction_read__select__11___byte equ direction_read__direction
direction_read__select__11___bit equ 5
        bsf     direction_read__select__11___byte, direction_read__select__11___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 334
        ; if trisa@io5_bit done
        ; line_number = 336
        ; if trisc@io6_bit start
        ;info   336, 382
direction_read__select__14___byte equ direction_read__trisc
direction_read__select__14___bit equ 3
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__14
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__14___byte, direction_read__select__14___bit
        ; line_number = 337
        ; direction@6 := _true
        ;info   337, 383
direction_read__select__13___byte equ direction_read__direction
direction_read__select__13___bit equ 6
        bsf     direction_read__select__13___byte, direction_read__select__13___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 336
        ; if trisc@io6_bit done
        ; line_number = 338
        ; if trisa@io7_bit start
        ;info   338, 384
direction_read__select__16___byte equ direction_read__trisa
direction_read__select__16___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=direction_read__select__16
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_read__select__16___byte, direction_read__select__16___bit
        ; line_number = 339
        ; direction@7 := _true
        ;info   339, 385
direction_read__select__15___byte equ direction_read__direction
direction_read__select__15___bit equ 7
        bsf     direction_read__select__15___byte, direction_read__select__15___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 338
        ; if trisa@io7_bit done
        ; line_number = 340
        ; return direction start
        ; line_number = 340
        ;info   340, 386
        movf    direction_read__direction,w
        return  
        ; line_number = 340
        ; return direction done


        ; delay after procedure statements=non-uniform




        ; line_number = 343
        ;info   343, 388
        ; procedure direction_set
direction_set:
        ; Last argument is sitting in W; save into argument variable
        movwf   direction_set__direction
        ; delay=4294967295
        ; line_number = 344
        ; argument direction byte
direction_set__direction equ globals___0+45
        ; line_number = 345
        ;  returns_nothing

        ; # This procedure will set the direction outputs to be equal to {direction}.

        ; line_number = 349
        ;  local trisa byte
direction_set__trisa equ globals___0+43
        ; line_number = 350
        ;  local trisc byte
direction_set__trisc equ globals___0+44

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 352
        ;  trisa := 0xc0
        ;info   352, 389
        movlw   192
        movwf   direction_set__trisa
        ; line_number = 353
        ;  trisc := 0xc0
        ;info   353, 391
        movlw   192
        movwf   direction_set__trisc
        ; line_number = 354
        ;  if direction@0 start
        ;info   354, 393
direction_set__select__2___byte equ direction_set__direction
direction_set__select__2___bit equ 0
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__2
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__2___byte, direction_set__select__2___bit
        ; line_number = 355
        ; trisc@io0_bit := _true
        ;info   355, 394
direction_set__select__1___byte equ direction_set__trisc
direction_set__select__1___bit equ 0
        bsf     direction_set__select__1___byte, direction_set__select__1___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 354
        ;  if direction@0 done
        ; line_number = 356
        ; if direction@1 start
        ;info   356, 395
direction_set__select__4___byte equ direction_set__direction
direction_set__select__4___bit equ 1
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__4
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__4___byte, direction_set__select__4___bit
        ; line_number = 357
        ; trisa@io1_bit := _true
        ;info   357, 396
direction_set__select__3___byte equ direction_set__trisa
direction_set__select__3___bit equ 4
        bsf     direction_set__select__3___byte, direction_set__select__3___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 356
        ; if direction@1 done
        ; line_number = 358
        ; if direction@2 start
        ;info   358, 397
direction_set__select__6___byte equ direction_set__direction
direction_set__select__6___bit equ 2
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__6
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__6___byte, direction_set__select__6___bit
        ; line_number = 359
        ; trisc@io2_bit := _true
        ;info   359, 398
direction_set__select__5___byte equ direction_set__trisc
direction_set__select__5___bit equ 1
        bsf     direction_set__select__5___byte, direction_set__select__5___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 358
        ; if direction@2 done
        ; line_number = 360
        ; if direction@3 start
        ;info   360, 399
direction_set__select__8___byte equ direction_set__direction
direction_set__select__8___bit equ 3
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__8
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__8___byte, direction_set__select__8___bit
        ; line_number = 361
        ; trisa@io3_bit := _true
        ;info   361, 400
direction_set__select__7___byte equ direction_set__trisa
direction_set__select__7___bit equ 0
        bsf     direction_set__select__7___byte, direction_set__select__7___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 360
        ; if direction@3 done
        ; line_number = 362
        ; if direction@4 start
        ;info   362, 401
direction_set__select__10___byte equ direction_set__direction
direction_set__select__10___bit equ 4
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__10
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__10___byte, direction_set__select__10___bit
        ; line_number = 363
        ; trisc@io4_bit := _true
        ;info   363, 402
direction_set__select__9___byte equ direction_set__trisc
direction_set__select__9___bit equ 2
        bsf     direction_set__select__9___byte, direction_set__select__9___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 362
        ; if direction@4 done
        ; line_number = 364
        ; if direction@5 start
        ;info   364, 403
direction_set__select__12___byte equ direction_set__direction
direction_set__select__12___bit equ 5
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__12
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__12___byte, direction_set__select__12___bit
        ; line_number = 365
        ; trisa@io5_bit := _true
        ;info   365, 404
direction_set__select__11___byte equ direction_set__trisa
direction_set__select__11___bit equ 1
        bsf     direction_set__select__11___byte, direction_set__select__11___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 364
        ; if direction@5 done
        ; line_number = 366
        ; if direction@6 start
        ;info   366, 405
direction_set__select__14___byte equ direction_set__direction
direction_set__select__14___bit equ 6
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__14
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__14___byte, direction_set__select__14___bit
        ; line_number = 367
        ; trisc@io6_bit := _true
        ;info   367, 406
direction_set__select__13___byte equ direction_set__trisc
direction_set__select__13___bit equ 3
        bsf     direction_set__select__13___byte, direction_set__select__13___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 366
        ; if direction@6 done
        ; line_number = 368
        ; if direction@7 start
        ;info   368, 407
direction_set__select__16___byte equ direction_set__direction
direction_set__select__16___bit equ 7
        ; =&gt;bit_code_emit@symbol(): sym=direction_set__select__16
        ; 1TEST: Single test with code in skip slot
        btfsc   direction_set__select__16___byte, direction_set__select__16___bit
        ; line_number = 369
        ; trisa@io7_bit := _true
        ;info   369, 408
direction_set__select__15___byte equ direction_set__trisa
direction_set__select__15___bit equ 2
        bsf     direction_set__select__15___byte, direction_set__select__15___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 368
        ; if direction@7 done
        ; line_number = 370
        ; trisc@rx_bit := _true
        ;info   370, 409
direction_set__select__17___byte equ direction_set__trisc
direction_set__select__17___bit equ 5
        bsf     direction_set__select__17___byte, direction_set__select__17___bit
        ; line_number = 371
        ;  trisc@tx_bit := _true
        ;info   371, 410
direction_set__select__18___byte equ direction_set__trisc
direction_set__select__18___bit equ 4
        bsf     direction_set__select__18___byte, direction_set__select__18___bit
        ; line_number = 372
        ;  _trisa := trisa
        ;info   372, 411
        movf    direction_set__trisa,w
        bsf     __rp0___byte, __rp0___bit
        movwf   _trisa
        ; line_number = 373
        ;  _trisc := trisc
        ;info   373, 414
        bcf     __rp0___byte, __rp0___bit
        movf    direction_set__trisc,w
        bsf     __rp0___byte, __rp0___bit
        movwf   _trisc

        ; delay after procedure statements=non-uniform
        bcf     __rp0___byte, __rp0___bit
        ; Implied return
        retlw   0





        ; Appending 8 delayed procedures to code bank 0
        ; buffer = 'rb2bus'
        ; line_number = 57
        ;info   57, 420
        ; procedure rb2bus_select_wait
rb2bus_select_wait:
        ; arguments_none
        ; line_number = 59
        ;  returns_nothing

        ; # This procedure will in an infinite loop until the select
        ; # address matches {rb2bus_address}.  {rb2bus_address} is
        ; # typically set in the {rb2bus_initialize} procedure.
        ; #
        ; # This module will repeatably call the {wait} procedure until
        ; # it is properly selected.

        ; line_number = 68
        ;  local value byte
rb2bus_select_wait__value equ globals___0+2
        ; line_number = 69
        ;  local address_bit bit
rb2bus_select_wait__address_bit___byte equ globals___0+79
rb2bus_select_wait__address_bit___bit equ 2

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 71
        ;  rb2bus_error := _false
        ;info   71, 420
        bcf     rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 72
        ;  while !rb2bus_selected start
rb2bus_select_wait__1:
        ;info   72, 421
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_selected
        ; No 1TEST: true.size=0 false.size=25
        ; No 2TEST: true.size=0 false.size=25
        ; 1GOTO: Single test with GOTO
        btfsc   rb2bus_selected___byte, rb2bus_selected___bit
        goto    rb2bus_select_wait__6
        ; line_number = 73
        ; _adden := _true
        ;info   73, 423
        bsf     _adden___byte, _adden___bit
        ; # Wait for a byte to arrive.
        ; line_number = 75
        ;  while !_rcif start
rb2bus_select_wait__2:
        ;info   75, 424
        ; =&gt;bit_code_emit@symbol(): sym=_rcif
        ; No 1TEST: true.size=0 false.size=2
        ; No 2TEST: true.size=0 false.size=2
        ; 1GOTO: Single test with GOTO
        btfsc   _rcif___byte, _rcif___bit
        goto    rb2bus_select_wait__3
        ; line_number = 76
        ; call wait()
        ;info   76, 426
        call    wait

        goto    rb2bus_select_wait__2
rb2bus_select_wait__3:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 75
        ;  while !_rcif done
        ; # Capture the received value:
        ; line_number = 79
        ;  address_bit := _false
        ;info   79, 428
        bcf     rb2bus_select_wait__address_bit___byte, rb2bus_select_wait__address_bit___bit
        ; line_number = 80
        ;  if _rx9d start
        ;info   80, 429
        ; =&gt;bit_code_emit@symbol(): sym=_rx9d
        ; 1TEST: Single test with code in skip slot
        btfsc   _rx9d___byte, _rx9d___bit
        ; line_number = 81
        ; address_bit := _true
        ;info   81, 430
        bsf     rb2bus_select_wait__address_bit___byte, rb2bus_select_wait__address_bit___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 80
        ;  if _rx9d done
        ; line_number = 82
        ; value := _rcreg
        ;info   82, 431
        movf    _rcreg,w
        movwf   rb2bus_select_wait__value

        ; # Clear any UART errors by toggling {_cren}:
        ; line_number = 85
        ;  if _oerr start
        ;info   85, 433
        ; =&gt;bit_code_emit@symbol(): sym=_oerr
        ; 1TEST: Single test with code in skip slot
        btfsc   _oerr___byte, _oerr___bit
        ; line_number = 86
        ; _cren := _false
        ;info   86, 434
        bcf     _cren___byte, _cren___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 85
        ;  if _oerr done
        ; line_number = 87
        ; if _ferr start
        ;info   87, 435
        ; =&gt;bit_code_emit@symbol(): sym=_ferr
        ; 1TEST: Single test with code in skip slot
        btfsc   _ferr___byte, _ferr___bit
        ; line_number = 88
        ; _cren := _false
        ;info   88, 436
        bcf     _cren___byte, _cren___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 87
        ; if _ferr done
        ; line_number = 89
        ; _cren := _true
        ;info   89, 437
        bsf     _cren___byte, _cren___bit

        ; line_number = 91
        ;  if address_bit start
        ;info   91, 438
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_select_wait__address_bit
        ; No 1TEST: true.size=7 false.size=0
        ; No 2TEST: true.size=7 false.size=0
        ; 1GOTO: Single test with GOTO
        btfss   rb2bus_select_wait__address_bit___byte, rb2bus_select_wait__address_bit___bit
        goto    rb2bus_select_wait__5
        ; line_number = 92
        ; if value = rb2bus_address start
        ;info   92, 440
        ; Left minus Right
        movf    rb2bus_address,w
        subwf   rb2bus_select_wait__value,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=3 false.size=0
        ; No 2TEST: true.size=3 false.size=0
        ; 1GOTO: Single test with GOTO
        btfss   __z___byte, __z___bit
        goto    rb2bus_select_wait__4
        ; line_number = 93
        ; rb2bus_selected := _true
        ;info   93, 444
        bsf     rb2bus_selected___byte, rb2bus_selected___bit
        ; line_number = 94
        ;  call rb2bus_byte_put(rb2_ok)
        ;info   94, 445
        movlw   165
        call    rb2bus_byte_put


        ; Recombine size1 = 0 || size2 = 0
rb2bus_select_wait__4:
        ; line_number = 92
        ; if value = rb2bus_address done
        ; Recombine size1 = 0 || size2 = 0
rb2bus_select_wait__5:
        ; line_number = 91
        ;  if address_bit done
        goto    rb2bus_select_wait__1
rb2bus_select_wait__6:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 72
        ;  while !rb2bus_selected done
        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 97
        ;info   97, 449
        ; procedure rb2bus_deselect
rb2bus_deselect:
        ; arguments_none
        ; line_number = 99
        ;  returns_nothing

        ; # This procedure forces this module into the deselected state until
        ; # it is reselected by some master module on the bus.

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 104
        ;  rb2bus_selected := _false
        ;info   104, 449
        bcf     rb2bus_selected___byte, rb2bus_selected___bit


        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 107
        ;info   107, 451
        ; procedure rb2bus_byte_get
rb2bus_byte_get:
        ; arguments_none
        ; line_number = 109
        ;  returns byte

        ; # This procedure will return the next byte received from the bus.
        ; # The address (9th) bit is stored in the global {is_address}.
        ; #
        ; # If {rb2bus_error} is set, 0 is returned.  Otherwise, the {wait}
        ; # procedure is repeatably called until a command byte is successfully
        ; # received.  If an module select byte comes in, we enter a bus
        ; # error condition by setting {rb2bus_error} and returning 0.

        ; line_number = 119
        ;  local value byte
rb2bus_byte_get__value equ globals___0+3
        ; line_number = 120
        ;  local address_bit bit
rb2bus_byte_get__address_bit___byte equ globals___0+79
rb2bus_byte_get__address_bit___bit equ 3

        ; # Return 0 in a bus flush condition to get us back to {rb2bus_select_wait}:
        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 123
        ;  if rb2bus_error start
        ;info   123, 451
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_error
        ; 1TEST: Single test with code in skip slot
        btfsc   rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 124
        ; return 0 start
        ; line_number = 124
        ;info   124, 452
        retlw   0
        ; line_number = 124
        ; return 0 done

        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 123
        ;  if rb2bus_error done
        ; # Wait for a byte to arrive.
        ; line_number = 127
        ;  _adden := _false
        ;info   127, 453
        bcf     _adden___byte, _adden___bit
        ; line_number = 128
        ;  while !_rcif start
rb2bus_byte_get__1:
        ;info   128, 454
        ; =&gt;bit_code_emit@symbol(): sym=_rcif
        ; No 1TEST: true.size=0 false.size=2
        ; No 2TEST: true.size=0 false.size=2
        ; 1GOTO: Single test with GOTO
        btfsc   _rcif___byte, _rcif___bit
        goto    rb2bus_byte_get__2
        ; line_number = 129
        ; call wait()
        ;info   129, 456
        call    wait

        goto    rb2bus_byte_get__1
rb2bus_byte_get__2:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 128
        ;  while !_rcif done
        ; # Record the 9th bit in {address_bit}:
        ; line_number = 132
        ;  address_bit := _false
        ;info   132, 458
        bcf     rb2bus_byte_get__address_bit___byte, rb2bus_byte_get__address_bit___bit
        ; line_number = 133
        ;  if _rx9d start
        ;info   133, 459
        ; =&gt;bit_code_emit@symbol(): sym=_rx9d
        ; 1TEST: Single test with code in skip slot
        btfsc   _rx9d___byte, _rx9d___bit
        ; line_number = 134
        ; address_bit := _true
        ;info   134, 460
        bsf     rb2bus_byte_get__address_bit___byte, rb2bus_byte_get__address_bit___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 133
        ;  if _rx9d done
        ; line_number = 135
        ; value := _rcreg
        ;info   135, 461
        movf    _rcreg,w
        movwf   rb2bus_byte_get__value

        ; # Clear any errors by toggling _{cren}:
        ; # FIXME: All of this should be done *before* reading {_rcreg}!!!
        ; line_number = 139
        ;  if _oerr start
        ;info   139, 463
        ; =&gt;bit_code_emit@symbol(): sym=_oerr
        ; 1TEST: Single test with code in skip slot
        btfsc   _oerr___byte, _oerr___bit
        ; line_number = 140
        ; _cren := _false
        ;info   140, 464
        bcf     _cren___byte, _cren___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 139
        ;  if _oerr done
        ; line_number = 141
        ; if _ferr start
        ;info   141, 465
        ; =&gt;bit_code_emit@symbol(): sym=_ferr
        ; 1TEST: Single test with code in skip slot
        btfsc   _ferr___byte, _ferr___bit
        ; line_number = 142
        ; _cren := _false
        ;info   142, 466
        bcf     _cren___byte, _cren___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 141
        ; if _ferr done
        ; line_number = 143
        ; _cren := _true
        ;info   143, 467
        bsf     _cren___byte, _cren___bit

        ; line_number = 145
        ;  if address_bit start
        ;info   145, 468
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_byte_get__address_bit
        ; No 1TEST: true.size=13 false.size=0
        ; No 2TEST: true.size=13 false.size=0
        ; 1GOTO: Single test with GOTO
        btfss   rb2bus_byte_get__address_bit___byte, rb2bus_byte_get__address_bit___bit
        goto    rb2bus_byte_get__5
        ; # We have an unexpected address select coming in:
        ; line_number = 147
        ;  if value = rb2bus_address start
        ;info   147, 470
        ; Left minus Right
        movf    rb2bus_address,w
        subwf   rb2bus_byte_get__value,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=4 false.size=2
        ; No 2TEST: true.size=4 false.size=2
        ; 2GOTO: Single test with two GOTO's
        btfss   __z___byte, __z___bit
        goto    rb2bus_byte_get__3
        ; # We are being selected again:
        ; line_number = 149
        ;  rb2bus_selected := _true
        ;info   149, 474
        bsf     rb2bus_selected___byte, rb2bus_selected___bit
        ; line_number = 150
        ;  _adden := _false
        ;info   150, 475
        bcf     _adden___byte, _adden___bit

        ; line_number = 152
        ;  call rb2bus_byte_put(rb2_ok)
        ;info   152, 476
        movlw   165
        call    rb2bus_byte_put
        goto    rb2bus_byte_get__4
        ; 2GOTO: Starting code 2
rb2bus_byte_get__3:
        ; # Somebody else is being selected; we deselect:
        ; line_number = 155
        ;  rb2bus_selected := _false
        ;info   155, 479
        bcf     rb2bus_selected___byte, rb2bus_selected___bit
        ; line_number = 156
        ;  _adden := _true
        ;info   156, 480
        bsf     _adden___byte, _adden___bit

rb2bus_byte_get__4:
        ; 2GOTO: code1 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code2 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 147
        ;  if value = rb2bus_address done
        ; # We want to get back to the beginning of decode:
        ; line_number = 159
        ;  rb2bus_error := _true
        ;info   159, 481
        bsf     rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 160
        ;  value := 0
        ;info   160, 482
        clrf    rb2bus_byte_get__value

        ; Recombine size1 = 0 || size2 = 0
rb2bus_byte_get__5:
        ; line_number = 145
        ;  if address_bit done
        ; # Regular data byte:
        ; line_number = 163
        ;  return value start
        ; line_number = 163
        ;info   163, 483
        movf    rb2bus_byte_get__value,w
        return  
        ; line_number = 163
        ;  return value done


        ; delay after procedure statements=non-uniform




        ; line_number = 166
        ;info   166, 485
        ; procedure rb2bus_byte_put
rb2bus_byte_put:
        ; Last argument is sitting in W; save into argument variable
        movwf   rb2bus_byte_put__value
        ; delay=4294967295
        ; line_number = 167
        ; argument value byte
rb2bus_byte_put__value equ globals___0+4
        ; line_number = 168
        ;  returns_nothing

        ; # This procedure will send {value} to the bus.  It automatically
        ; # consumes the echo that is on the bus.  If {rb2bus_error} is
        ; # set, this procedure does nothing.

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 174
        ;  if !rb2bus_error start
        ;info   174, 486
        ; =&gt;bit_code_emit@symbol(): sym=rb2bus_error
        ; No 1TEST: true.size=0 false.size=16
        ; No 2TEST: true.size=0 false.size=16
        ; 1GOTO: Single test with GOTO
        btfsc   rb2bus_error___byte, rb2bus_error___bit
        goto    rb2bus_byte_put__4
        ; # Wait until {_txreg} is ready for a value:
        ; line_number = 176
        ;  while !_txif start
rb2bus_byte_put__1:
        ;info   176, 488
        ; =&gt;bit_code_emit@symbol(): sym=_txif
        ; No 1TEST: true.size=0 false.size=2
        ; No 2TEST: true.size=0 false.size=2
        ; 1GOTO: Single test with GOTO
        btfsc   _txif___byte, _txif___bit
        goto    rb2bus_byte_put__2
        ; line_number = 177
        ; call wait()
        ;info   177, 490
        call    wait

        goto    rb2bus_byte_put__1
rb2bus_byte_put__2:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 176
        ;  while !_txif done
        ; # Ship {value} out to the bus with 9th bit turned off:
        ; line_number = 180
        ;  _adden := _false
        ;info   180, 492
        bcf     _adden___byte, _adden___bit
        ; line_number = 181
        ;  _tx9d := _false
        ;info   181, 493
        bcf     _tx9d___byte, _tx9d___bit
        ; line_number = 182
        ;  _txreg := value
        ;info   182, 494
        movf    rb2bus_byte_put__value,w
        movwf   _txreg

        ; # Wait for the echo to show up:
        ; line_number = 185
        ;  while !_rcif start
rb2bus_byte_put__3:
        ;info   185, 496
        ; =&gt;bit_code_emit@symbol(): sym=_rcif
        ; 1TEST: Single test with code in skip slot
        btfss   _rcif___byte, _rcif___bit
        ; # Still waiting:
        goto    rb2bus_byte_put__3
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 185
        ;  while !_rcif done
        ; # Throw the received byte away (store into {_w}).
        ; line_number = 188
        ;  assemble
        ;info   188, 498
        ; line_number = 189
        ;info   189, 498
        movf    _rcreg,w

        ; # Recover from any receive errors by toggling {_cren}:
        ; line_number = 192
        ;  if _oerr start
        ;info   192, 499
        ; =&gt;bit_code_emit@symbol(): sym=_oerr
        ; 1TEST: Single test with code in skip slot
        btfsc   _oerr___byte, _oerr___bit
        ; line_number = 193
        ; _cren := _false
        ;info   193, 500
        bcf     _cren___byte, _cren___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 192
        ;  if _oerr done
        ; line_number = 194
        ; if _ferr start
        ;info   194, 501
        ; =&gt;bit_code_emit@symbol(): sym=_ferr
        ; 1TEST: Single test with code in skip slot
        btfsc   _ferr___byte, _ferr___bit
        ; line_number = 195
        ; _cren := _false
        ;info   195, 502
        bcf     _cren___byte, _cren___bit
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 194
        ; if _ferr done
        ; line_number = 196
        ; _cren := _true
        ;info   196, 503
        bsf     _cren___byte, _cren___bit


rb2bus_byte_put__4:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 174
        ;  if !rb2bus_error done
        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 199
        ;info   199, 505
        ; procedure rb2bus_command
rb2bus_command:
        ; Last argument is sitting in W; save into argument variable
        movwf   rb2bus_command__command
        ; delay=4294967295
        ; line_number = 200
        ; argument command byte
rb2bus_command__command equ globals___0+7
        ; line_number = 201
        ;  returns_nothing

        ; # This procedure will process an shared {command}.  This procedure
        ; # accesses the global string {id}.

        ; line_number = 206
        ;  local new_address byte
rb2bus_command__new_address equ globals___0+5
        ; line_number = 207
        ;  local temp byte
rb2bus_command__temp equ globals___0+6

        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 209
        ;  switch command &amp; 7 start
        ;info   209, 506
        ; switch_before:(data:00=uu=&gt;00 code:XX=cc=&gt;XX) size=1
        movlw   rb2bus_command__13&gt;&gt;8
        movwf   __pclath
        movlw   7
        andwf   rb2bus_command__command,w
        ; switch after expression:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        addlw   rb2bus_command__13
        movwf   __pcl
        ; page_group 8
rb2bus_command__13:
        goto    rb2bus_command__14
        goto    rb2bus_command__14
        goto    rb2bus_command__14
        goto    rb2bus_command__14
        goto    rb2bus_command__9
        goto    rb2bus_command__10
        goto    rb2bus_command__11
        goto    rb2bus_command__12
        ; line_number = 210
        ; case 4
rb2bus_command__9:
        ; # 1111 1100 (Address_Set):
        ; # Return old address:
        ; line_number = 213
        ;  call rb2bus_byte_put(rb2bus_address)
        ;info   213, 520
        movf    rb2bus_address,w
        call    rb2bus_byte_put

        ; # Fetch new address:
        ; line_number = 216
        ;  new_address := rb2bus_byte_get()
        ;info   216, 522
        call    rb2bus_byte_get
        movwf   rb2bus_command__new_address
        ; line_number = 217
        ;  if new_address = 0 || new_address = rb2bus_address start
        ;info   217, 524
        ; Left minus Right
        movf    rb2bus_command__new_address,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=1 false.size=36
        ; No 2TEST: true.size=1 false.size=36
        ; 2GOTO: Single test with two GOTO's
        btfsc   __z___byte, __z___bit
        goto    rb2bus_command__5
        ; Recombine code1_bit_states != code2_bit_states
        ; &amp;&amp;||: index=1 true_delay=4294967295 false_delay=4294967295 goto_delay=4294967295
        ; Left minus Right
        movf    rb2bus_address,w
        subwf   rb2bus_command__new_address,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=4 false.size=27
        ; No 2TEST: true.size=4 false.size=27
        ; 2GOTO: Single test with two GOTO's
        btfss   __z___byte, __z___bit
        goto    rb2bus_command__6
rb2bus_command__5:
        ; line_number = 218
        ; call rb2bus_byte_put(0)
        ;info   218, 531
        movlw   0
        call    rb2bus_byte_put
        ; line_number = 219
        ;  rb2bus_error := _true
        ;info   219, 533
        bsf     rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 220
        ;  rb2bus_selected := _false
        ;info   220, 534
        bcf     rb2bus_selected___byte, rb2bus_selected___bit
        goto    rb2bus_command__7
        ; 2GOTO: Starting code 2
rb2bus_command__6:
        ; # Return new address:
        ; line_number = 223
        ;  call rb2bus_byte_put(new_address)
        ;info   223, 536
        movf    rb2bus_command__new_address,w
        call    rb2bus_byte_put

        ; # Fetch new address again as a check:
        ; line_number = 226
        ;  temp := rb2bus_byte_get()
        ;info   226, 538
        call    rb2bus_byte_get
        movwf   rb2bus_command__temp
        ; line_number = 227
        ;  if temp != new_address start
        ;info   227, 540
        ; Left minus Right
        movf    rb2bus_command__new_address,w
        subwf   rb2bus_command__temp,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=14 false.size=4
        ; No 2TEST: true.size=14 false.size=4
        ; 2GOTO: Single test with two GOTO's
        btfss   __z___byte, __z___bit
        goto    rb2bus_command__3
        ; line_number = 232
        ; call rb2bus_eedata_write(new_address)
        ;info   232, 544
        movf    rb2bus_command__new_address,w
        call    rb2bus_eedata_write
        ; line_number = 233
        ;  temp := rb2bus_eedata_read()
        ;info   233, 546
        call    rb2bus_eedata_read
        movwf   rb2bus_command__temp
        ; line_number = 234
        ;  if temp = new_address start
        ;info   234, 548
        ; Left minus Right
        movf    rb2bus_command__new_address,w
        subwf   rb2bus_command__temp,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=3 false.size=1
        ; No 2TEST: true.size=3 false.size=1
        ; 2GOTO: Single test with two GOTO's
        btfss   __z___byte, __z___bit
        goto    rb2bus_command__1
        ; line_number = 235
        ; rb2bus_address := new_address
        ;info   235, 552
        movf    rb2bus_command__new_address,w
        movwf   rb2bus_address
        ; line_number = 236
        ;  call rb2bus_byte_put(rb2_ok)
        ;info   236, 554
        movlw   165
        goto    rb2bus_command__2
        ; 2GOTO: Starting code 2
rb2bus_command__1:
        ; line_number = 238
        ; call rb2bus_byte_put(0)
        ;info   238, 556
        movlw   0
rb2bus_command__2:
        ; 2GOTO: code1 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code2 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        call    rb2bus_byte_put
        ; line_number = 234
        ;  if temp = new_address done
        goto    rb2bus_command__4
        ; 2GOTO: Starting code 2
rb2bus_command__3:
        ; line_number = 228
        ; call rb2bus_byte_put(0)
        ;info   228, 559
        movlw   0
        call    rb2bus_byte_put
        ; line_number = 229
        ;  rb2bus_error := _true
        ;info   229, 561
        bsf     rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 230
        ;  rb2bus_selected := _false
        ;info   230, 562
        bcf     rb2bus_selected___byte, rb2bus_selected___bit
rb2bus_command__4:
        ; 2GOTO: code1 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code2 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 227
        ;  if temp != new_address done
rb2bus_command__7:
        ; 2GOTO: code1 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code2 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; &amp;&amp;||: index=0 true_delay=4294967295 false_delay=4294967295 goto_delay=4294967295
        ; &amp;&amp;||:: index=0 new_delay=4294967295 goto_delay=4294967295
        ; 2GOTO: No goto needed; true=rb2bus_command__5 false= true_size=1 false_size=36
        ; 2GOTO: code1 final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; 2GOTO: code2 final bitstates:(data:XX=cc=&gt;XX code:XX=cc=&gt;XX)
        ; 2GOTO: code final bitstates:(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 217
        ;  if new_address = 0 || new_address = rb2bus_address done
        goto    rb2bus_command__14
        ; line_number = 239
        ; case 5
rb2bus_command__10:
        ; # 1111 1101 (Id_next):
        ; line_number = 241
        ;  if rb2bus_index &lt; id.size start
        ;info   241, 564
        movlw   19
        subwf   rb2bus_index,w
        ; =&gt;bit_code_emit@symbol(): sym=__c
        ; No 1TEST: true.size=0 false.size=4
        ; No 2TEST: true.size=0 false.size=4
        ; 1GOTO: Single test with GOTO
        btfsc   __c___byte, __c___bit
        goto    rb2bus_command__8
        ; line_number = 242
        ; call rb2bus_byte_put(id[rb2bus_index])
        ;info   242, 568
        movf    rb2bus_index,w
        call    id
        call    rb2bus_byte_put
        ; line_number = 243
        ;  rb2bus_index := rb2bus_index + 1
        ;info   243, 571
        incf    rb2bus_index,f
        ; #if rb2bus_index &gt;= id.size
        ; #	rb2bus_index := rb2bus_index - 1
rb2bus_command__8:
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 241
        ;  if rb2bus_index &lt; id.size done
        goto    rb2bus_command__14
        ; line_number = 246
        ; case 6
rb2bus_command__11:
        ; # 1111 1110 (Id_start):
        ; line_number = 248
        ;  rb2bus_index := 0
        ;info   248, 573
        clrf    rb2bus_index
        goto    rb2bus_command__14
        ; line_number = 249
        ; case 7
rb2bus_command__12:
        ; # 1111 1111 (Deselect):
        ; line_number = 251
        ;  call rb2bus_deselect()
        ;info   251, 575
        call    rb2bus_deselect


rb2bus_command__14:
        ; line_number = 209
        ;  switch command &amp; 7 done
        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; buffer = 'rb2bus_pic16f688'
        ; line_number = 18
        ;info   18, 577
        ; procedure rb2bus_initialize
rb2bus_initialize:
        ; Last argument is sitting in W; save into argument variable
        movwf   rb2bus_initialize__address
        ; delay=4294967295
        ; line_number = 19
        ; argument address byte
rb2bus_initialize__address equ globals___0+8
        ; line_number = 20
        ;  returns_nothing

        ; # This procedure is responsibile for initializing the UART
        ; # connected to the bus.  {address} is the address of this
        ; # slave module.  This code is specific to the PIC16F688.

        ; # Warm up the UART:
        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 27
        ;  _trisc@5 := _true
        ;info   27, 578
rb2bus_initialize__select__1___byte equ _trisc
rb2bus_initialize__select__1___bit equ 5
        bsf     __rp0___byte, __rp0___bit
        bsf     rb2bus_initialize__select__1___byte, rb2bus_initialize__select__1___bit
        ; line_number = 28
        ;  _trisc@4 := _true
        ;info   28, 580
rb2bus_initialize__select__2___byte equ _trisc
rb2bus_initialize__select__2___bit equ 4
        bsf     rb2bus_initialize__select__2___byte, rb2bus_initialize__select__2___bit

        ; # Initialize the {_txsta} register:
        ; line_number = 31
        ;  _txsta := 0
        ;info   31, 581
        bcf     __rp0___byte, __rp0___bit
        clrf    _txsta
        ; line_number = 32
        ;  _tx9 := _true
        ;info   32, 583
        bsf     _tx9___byte, _tx9___bit
        ; #_tx9 := _false
        ; line_number = 34
        ;  _txen := _true
        ;info   34, 584
        bsf     _txen___byte, _txen___bit
        ; line_number = 35
        ;  _brgh := _true
        ;info   35, 585
        bsf     _brgh___byte, _brgh___bit

        ; # Initialize the {_rcsta} register:
        ; line_number = 38
        ;  _rcsta := 0
        ;info   38, 586
        clrf    _rcsta
        ; line_number = 39
        ;  _spen := _true
        ;info   39, 587
        bsf     _spen___byte, _spen___bit
        ; line_number = 40
        ;  _rx9 := _true
        ;info   40, 588
        bsf     _rx9___byte, _rx9___bit
        ; line_number = 41
        ;  _cren := _true
        ;info   41, 589
        bsf     _cren___byte, _cren___bit
        ; #_adden := _true
        ; line_number = 43
        ;  _adden := _false
        ;info   43, 590
        bcf     _adden___byte, _adden___bit

        ; # Set up the baud rate generator:
        ; line_number = 46
        ;  _baudctl := 0
        ;info   46, 591
        clrf    _baudctl
        ; line_number = 47
        ;  _brg16 := _true
        ;info   47, 592
        bsf     _brg16___byte, _brg16___bit
        ; line_number = 48
        ;  _spbrg := _eusart_500000_low
        ;info   48, 593
        movlw   7
        movwf   _spbrg
        ; line_number = 49
        ;  _spbrgh := _eusart_500000_high
        ;info   49, 595
        clrf    _spbrgh

        ; line_number = 51
        ;  rb2bus_selected := _false
        ;info   51, 596
        bcf     rb2bus_selected___byte, rb2bus_selected___bit
        ; line_number = 52
        ;  rb2bus_error := _false
        ;info   52, 597
        bcf     rb2bus_error___byte, rb2bus_error___bit
        ; line_number = 53
        ;  rb2bus_index := 0
        ;info   53, 598
        clrf    rb2bus_index

        ; # Deal with setting {rb2bus_address} from EEData memory:
        ; line_number = 56
        ;  rb2bus_address := rb2bus_eedata_read()
        ;info   56, 599
        call    rb2bus_eedata_read
        movwf   rb2bus_address
        ; line_number = 57
        ;  if rb2bus_address = 0 start
        ;info   57, 601
        ; Left minus Right
        movf    rb2bus_address,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=2 false.size=0
        ; No 2TEST: true.size=2 false.size=0
        ; 1GOTO: Single test with GOTO
        btfss   __z___byte, __z___bit
        goto    rb2bus_initialize__3
        ; # EE data not set, so use {address} passed in as a argument:
        ; line_number = 59
        ;  rb2bus_address := address
        ;info   59, 604
        movf    rb2bus_initialize__address,w
        movwf   rb2bus_address


        ; Recombine size1 = 0 || size2 = 0
rb2bus_initialize__3:
        ; line_number = 57
        ;  if rb2bus_address = 0 done
        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; line_number = 64
        ;info   64, 607
        ; procedure rb2bus_eedata_read
rb2bus_eedata_read:
        ; arguments_none
        ; line_number = 66
        ;  returns byte

        ; # This procedure will return the address stored in EEData.  If
        ; # there is no data, 0 is returned.

        ; line_number = 71
        ;  local temp1 byte
rb2bus_eedata_read__temp1 equ globals___0+9
        ; line_number = 72
        ;  local temp2 byte
rb2bus_eedata_read__temp2 equ globals___0+10

        ; # Read the first byte (the address):
        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 75
        ;  _eecon1 := 0
        ;info   75, 607
        bsf     __rp0___byte, __rp0___bit
        clrf    _eecon1
        ; line_number = 76
        ;  _eeadr := rb2bus_eedata_address
        ;info   76, 609
        movlw   254
        movwf   _eeadr
        ; line_number = 77
        ;  _rd := _true
        ;info   77, 611
        bsf     _rd___byte, _rd___bit
        ; line_number = 78
        ;  temp1 := _eedat
        ;info   78, 612
        movf    _eedat,w
        bcf     __rp0___byte, __rp0___bit
        movwf   rb2bus_eedata_read__temp1

        ; # Read the second byte (the 1'z complement)
        ; line_number = 81
        ;  _eeadr := _eeadr + 1
        ;info   81, 615
        bsf     __rp0___byte, __rp0___bit
        incf    _eeadr,f
        ; line_number = 82
        ;  _rd := _true
        ;info   82, 617
        bsf     _rd___byte, _rd___bit
        ; line_number = 83
        ;  temp2 := _eedat
        ;info   83, 618
        movf    _eedat,w
        bcf     __rp0___byte, __rp0___bit
        movwf   rb2bus_eedata_read__temp2

        ; # If they are 1's complement of one another, they are valid:
        ; line_number = 86
        ;  if temp1 = (0xff ^ temp2) start
        ;info   86, 621
        ; Left minus Right
        comf    rb2bus_eedata_read__temp2,w
        subwf   rb2bus_eedata_read__temp1,w
        ; =&gt;bit_code_emit@symbol(): sym=__z
        ; No 1TEST: true.size=2 false.size=0
        ; No 2TEST: true.size=2 false.size=0
        ; 1GOTO: Single test with GOTO
        btfss   __z___byte, __z___bit
        goto    rb2bus_eedata_read__1
        ; # Return the valid address:
        ; line_number = 88
        ;  return temp1 start
        ; line_number = 88
        ;info   88, 625
        movf    rb2bus_eedata_read__temp1,w
        return  
        ; line_number = 88
        ;  return temp1 done

        ; Recombine size1 = 0 || size2 = 0
rb2bus_eedata_read__1:
        ; line_number = 86
        ;  if temp1 = (0xff ^ temp2) done
        ; # They are not 1's complement, so return 0 as an error:
        ; line_number = 91
        ;  return 0 start
        ; line_number = 91
        ;info   91, 627
        retlw   0
        ; line_number = 91
        ;  return 0 done


        ; delay after procedure statements=non-uniform




        ; line_number = 94
        ;info   94, 628
        ; procedure rb2bus_eedata_write
rb2bus_eedata_write:
        ; Last argument is sitting in W; save into argument variable
        movwf   rb2bus_eedata_write__address
        ; delay=4294967295
        ; line_number = 95
        ; argument address byte
rb2bus_eedata_write__address equ globals___0+11
        ; line_number = 96
        ;  returns_nothing

        ; # This procedure will write {address} into the EEData.  The
        ; # microcontroll pauses while the EEData is written.

        ; # Clear out the {_eecon1} register
        ; before procedure statements delay=non-uniform, bit states=(data:00=uu=&gt;00 code:XX=cc=&gt;XX)
        ; line_number = 102
        ;  _eecon1 := 0
        ;info   102, 629
        bsf     __rp0___byte, __rp0___bit
        clrf    _eecon1
        ; line_number = 103
        ;  _eeadr := rb2bus_eedata_address
        ;info   103, 631
        movlw   254
        movwf   _eeadr
        ; line_number = 104
        ;  _eedat := address
        ;info   104, 633
        bcf     __rp0___byte, __rp0___bit
        movf    rb2bus_eedata_write__address,w
        bsf     __rp0___byte, __rp0___bit
        movwf   _eedat

        ; # Write 2 bytes ({address} followed by {address}^0xff):
        ; line_number = 107
        ;  loop_exactly 2 start
        ;info   107, 637
rb2bus_eedata_write__1 equ globals___0+47
        movlw   2
        bcf     __rp0___byte, __rp0___bit
        movwf   rb2bus_eedata_write__1
rb2bus_eedata_write__2:
        ; # Set the data to write:

        ; # Set up the for the write:
        ; line_number = 111
        ;  _wren := _true
        ;info   111, 640
        bsf     __rp0___byte, __rp0___bit
        bsf     _wren___byte, _wren___bit
        ; line_number = 112
        ;  _gie := _false
        ;info   112, 642
        bcf     _gie___byte, _gie___bit
        ; line_number = 113
        ;  _eecon2 := 0x55
        ;info   113, 643
        movlw   85
        movwf   _eecon2
        ; line_number = 114
        ;  _eecon2 := 0xaa
        ;info   114, 645
        movlw   170
        movwf   _eecon2
        ; # Start the write:
        ; line_number = 116
        ;  _wr := _true
        ;info   116, 647
        bsf     _wr___byte, _wr___bit

        ; # Wait for write to complete:
        ; line_number = 119
        ;  while _wr start
rb2bus_eedata_write__3:
        ;info   119, 648
        ; =&gt;bit_code_emit@symbol(): sym=_wr
        ; 1TEST: Single test with code in skip slot
        btfsc   _wr___byte, _wr___bit
        ; line_number = 120
        ; do_nothing
        ;info   120, 649

        goto    rb2bus_eedata_write__3
        ; Recombine size1 = 0 || size2 = 0
        ; line_number = 119
        ;  while _wr done
        ; # Disable writing:
        ; line_number = 123
        ;  _wren := _false
        ;info   123, 650
        bcf     _wren___byte, _wren___bit

        ; # Prepare the second byte of data:
        ; line_number = 126
        ;  _eeadr := _eeadr + 1
        ;info   126, 651
        incf    _eeadr,f
        ; line_number = 127
        ;  _eedat := address ^ 0xff
        ;info   127, 652
        bcf     __rp0___byte, __rp0___bit
        comf    rb2bus_eedata_write__address,w
        bsf     __rp0___byte, __rp0___bit
        movwf   _eedat

        bcf     __rp0___byte, __rp0___bit
        ; line_number = 107
        ;  loop_exactly 2 wrap-up
        decfsz  rb2bus_eedata_write__1,f
        goto    rb2bus_eedata_write__2
        ; line_number = 107
        ;  loop_exactly 2 done
        ; delay after procedure statements=non-uniform
        ; Implied return
        retlw   0




        ; Configuration bits
        ; address = 0x2007, fill = 0x3000
        ; fcmen = off (0x0)
        ; ieso = off (0x0)
        ; boden = off (0x0)
        ; cpd = off (0x80)
        ; cp = off (0x40)
        ; mclre = off (0x0)
        ; pwrte = off (0x10)
        ; wdte = off (0x0)
        ; fosc = ec (0x3)
        ; 12499 = 0x30d3
        __config 12499
        ; Define start addresses for data regions
        ; Region="shared___globals" Address=112" Size=16 Bytes=0 Bits=0 Available=16
        ; Region="globals___0" Address=32" Size=80 Bytes=48 Bits=4 Available=31
        ; Region="globals___1" Address=160" Size=80 Bytes=0 Bits=0 Available=80
        ; Region="globals___2" Address=288" Size=80 Bytes=0 Bits=0 Available=80
        ; Region="shared___globals" Address=112" Size=16 Bytes=0 Bits=0 Available=16
        end
</pre></body></html>