From a4bb12966c6ce5a6368b1a887296fc36867a30f5 Mon Sep 17 00:00:00 2001 From: eddyem Date: Sat, 11 Apr 2020 23:44:03 +0300 Subject: [PATCH] USB CAN sniffer: works as broadcast listener & can write someth; TODO: add filters --- F0-nolib/Snippets/printuhex.c | 14 ++++ F0-nolib/usbcdc/can.c | 90 ++++++++++++++++------ F0-nolib/usbcdc/can.h | 11 ++- F0-nolib/usbcdc/main.c | 19 +++-- F0-nolib/usbcdc/proto.c | 136 +++++++++++++++++++++++++++++++--- F0-nolib/usbcdc/proto.h | 6 ++ F0-nolib/usbcdc/usb_defs.h | 2 +- F0-nolib/usbcdc/usb_lib.c | 2 +- F0-nolib/usbcdc/usbcan.bin | Bin 9680 -> 11636 bytes 9 files changed, 235 insertions(+), 45 deletions(-) create mode 100644 F0-nolib/Snippets/printuhex.c diff --git a/F0-nolib/Snippets/printuhex.c b/F0-nolib/Snippets/printuhex.c new file mode 100644 index 0000000..34f1c33 --- /dev/null +++ b/F0-nolib/Snippets/printuhex.c @@ -0,0 +1,14 @@ +// print 32bit unsigned int as hex +void printuhex(uint32_t val){ + addtobuf("0x"); + uint8_t *ptr = (uint8_t*)&val + 3; + int8_t i, j; + for(i = 0; i < 4; ++i, --ptr){ + if(*ptr == 0 && i != 3) continue; // omit leading zeros + for(j = 1; j > -1; --j){ + uint8_t half = (*ptr >> (4*j)) & 0x0f; + if(half < 10) bufputchar(half + '0'); + else bufputchar(half - 10 + 'a'); + } + } +} diff --git a/F0-nolib/usbcdc/can.c b/F0-nolib/usbcdc/can.c index f499723..860658d 100644 --- a/F0-nolib/usbcdc/can.c +++ b/F0-nolib/usbcdc/can.c @@ -31,6 +31,7 @@ static CAN_message messages[CAN_INMESSAGE_SIZE]; static uint8_t first_free_idx = 0; // index of first empty cell static int8_t first_nonfree_idx = -1; // index of first data cell +static uint16_t oldspeed = 100; // speed of last init static uint16_t CANID = 0xFFFF; #ifdef EBUG @@ -52,14 +53,14 @@ CAN_status CAN_get_status(){ // push next message into buffer; return 1 if buffer overfull static int CAN_messagebuf_push(CAN_message *msg){ - MSG("Try to push\n"); + //MSG("Try to push\n"); if(first_free_idx == first_nonfree_idx) return 1; // no free space if(first_nonfree_idx < 0) first_nonfree_idx = 0; // first message in empty buffer memcpy(&messages[first_free_idx++], msg, sizeof(CAN_message)); // need to roll? if(first_free_idx == CAN_INMESSAGE_SIZE) first_free_idx = 0; #ifdef EBUG - MSG("1st free: "); usart_putchar('0' + first_free_idx); NL(); + //MSG("1st free: "); printu(first_free_idx); NL(); #endif return 0; } @@ -68,14 +69,16 @@ static int CAN_messagebuf_push(CAN_message *msg){ CAN_message *CAN_messagebuf_pop(){ if(first_nonfree_idx < 0) return NULL; #ifdef EBUG - MSG("read from idx "); usart_putchar('0' + first_nonfree_idx); NL(); + //MSG("read from idx "); printu(first_nonfree_idx); NL(); #endif CAN_message *msg = &messages[first_nonfree_idx++]; if(first_nonfree_idx == CAN_INMESSAGE_SIZE) first_nonfree_idx = 0; if(first_nonfree_idx == first_free_idx){ // buffer is empty - refresh it first_nonfree_idx = -1; first_free_idx = 0; - MSG("refresh buffer\n"); +#ifdef EBUG + // MSG("refresh buffer\n"); NL(); +#endif } return msg; } @@ -91,15 +94,42 @@ uint16_t getCANID(){ return CANID; } -void CAN_reinit(){ +void CAN_reinit(uint16_t speed){ readCANID(); CAN->TSR |= CAN_TSR_ABRQ0 | CAN_TSR_ABRQ1 | CAN_TSR_ABRQ2; RCC->APB1RSTR |= RCC_APB1RSTR_CANRST; RCC->APB1RSTR &= ~RCC_APB1RSTR_CANRST; - CAN_setup(); + CAN_setup(speed); } -void CAN_setup(){ +/* +Can filtering: FSCx=0 (CAN->FS1R) -> 16-bit identifiers +MASK: FBMx=0 (CAN->FM1R), two filters (n in FR1 and n+1 in FR2) + ID: CAN->sFilterRegister[x].FRn[0..15] + MASK: CAN->sFilterRegister[x].FRn[16..31] + FR bits: STID[10:0] RTR IDE EXID[17:15] +LIST: FBMx=1, four filters (n&n+1 in FR1, n+2&n+3 in FR2) + IDn: CAN->sFilterRegister[x].FRn[0..15] + IDn+1: CAN->sFilterRegister[x].FRn[16..31] +*/ + +/* +Can timing: main freq - APB (PLL=48MHz) +segment = 1sync + TBS1 + TBS2, sample point is between TBS1 and TBS2, +so if TBS1=4 and TBS2=3, sum=8, bit sampling freq is 48/8 = 6MHz +-> to get 100kbps we need prescaler=60 + 250kbps - 24 + 500kbps - 12 + 1MBps - 6 +*/ + +// speed - in kbps +void CAN_setup(uint16_t speed){ + LED_off(LED1); + if(speed == 0) speed = oldspeed; + else if(speed < 50) speed = 50; + else if(speed > 3000) speed = 3000; + oldspeed = speed; uint32_t tmout = 16000000; if(CANID == 0xFFFF) readCANID(); // Configure GPIO: PB8 - CAN_Rx, PB9 - CAN_Tx @@ -115,10 +145,10 @@ void CAN_setup(){ /* (1) Enter CAN init mode to write the configuration */ /* (2) Wait the init mode entering */ /* (3) Exit sleep mode */ - /* (4) Loopback mode, set timing to 100kb/s: BS1 = 4, BS2 = 3, prescaler = 60 */ + /* (4) Normal mode, set timing to 100kb/s: TBS1 = 4, TBS2 = 3, prescaler = 60 */ /* (5) Leave init mode */ /* (6) Wait the init mode leaving */ - /* (7) Enter filter init mode, (16-bit + mask, filter 0 for FIFO 0) */ + /* (7) Enter filter init mode, (16-bit + mask, bank 0 for FIFO 0) */ /* (8) Acivate filter 0 for two IDs */ /* (9) Identifier list mode */ /* (10) Set the Id list */ @@ -130,20 +160,22 @@ void CAN_setup(){ if(--tmout == 0) break; } CAN->MCR &=~ CAN_MCR_SLEEP; /* (3) */ - CAN->MCR |= CAN_MCR_ABOM; + CAN->MCR |= CAN_MCR_ABOM; /* allow automatically bus-off */ - CAN->BTR |= 2 << 20 | 3 << 16 | 59 << 0; /* (4) */ + CAN->BTR |= 2 << 20 | 3 << 16 | (6000/speed) << 0; /* (4) */ CAN->MCR &=~ CAN_MCR_INRQ; /* (5) */ tmout = 16000000; - while((CAN->MSR & CAN_MSR_INAK)==CAN_MSR_INAK) /* (6) */ - { - if(--tmout == 0) break; - } + while((CAN->MSR & CAN_MSR_INAK)==CAN_MSR_INAK) if(--tmout == 0) break; /* (6) */ + // accept ALL CAN->FMR = CAN_FMR_FINIT; /* (7) */ CAN->FA1R = CAN_FA1R_FACT0; /* (8) */ + // set to 1 all needed bits of CAN->FFA1R to switch given filters to FIFO1 +#if 0 CAN->FM1R = CAN_FM1R_FBM0; /* (9) */ CAN->sFilterRegister[0].FR1 = CANID << 5 | ((BCAST_ID << 5) << 16); /* (10) */ - +#else + CAN->sFilterRegister[0].FR1 = 0; +#endif CAN->FMR &=~ CAN_FMR_FINIT; /* (12) */ CAN->IER |= CAN_IER_ERRIE | CAN_IER_FOVIE0 | CAN_IER_FOVIE1; /* (13) */ @@ -200,9 +232,8 @@ void can_proc(){ // reset CAN bus RCC->APB1RSTR |= RCC_APB1RSTR_CANRST; RCC->APB1RSTR &= ~RCC_APB1RSTR_CANRST; - CAN_setup(); + CAN_setup(0); } - LED_off(LED1); #if 0 static uint32_t esr, msr, tsr; uint32_t msr_now = CAN->MSR & 0xf; @@ -212,7 +243,6 @@ void can_proc(){ NL(); } if((CAN->ESR) != esr){ - usart_putchar(((CAN->ESR & CAN_ESR_BOFF) != 0) + '0'); esr = CAN->ESR; MSG("CAN->ESR: "); printuhex(esr); NL(); @@ -236,8 +266,20 @@ CAN_status can_send(uint8_t *msg, uint8_t len, uint16_t target_id){ if(CAN->TSR & (CAN_TSR_TME)){ mailbox = (CAN->TSR & CAN_TSR_CODE) >> 24; }else{ // no free mailboxes +#ifdef EBUG + MSG("No free mailboxes"); NL(); +#endif return CAN_BUSY; } +#ifdef EBUG + MSG("Send data. Len="); printu(len); + SEND(", tagid="); printuhex(target_id); + SEND(", data="); + for(int i = 0; i < len; ++i){ + SEND(" "); printuhex(msg[i]); + } + NL(); +#endif CAN_TxMailBox_TypeDef *box = &CAN->sTxMailBox[mailbox]; uint32_t lb = 0, hb = 0; switch(len){ @@ -291,14 +333,16 @@ void can_send_broadcast(){ static void can_process_fifo(uint8_t fifo_num){ if(fifo_num > 1) return; - LED_on(LED1); // Toggle LED1 + LED_on(LED1); // Turn on LED1 - message received CAN_FIFOMailBox_TypeDef *box = &CAN->sFIFOMailBox[fifo_num]; volatile uint32_t *RFxR = (fifo_num) ? &CAN->RF1R : &CAN->RF0R; - MSG("Receive, RDTR="); + /* + MSG("\nReceive, RDTR="); #ifdef EBUG printuhex(box->RDTR); NL(); #endif + */ // read all while(*RFxR & CAN_RF0R_FMP0){ // amount of messages pending // CAN_RDTxR: (16-31) - timestamp, (8-15) - filter match index, (0-3) - data length @@ -307,6 +351,7 @@ static void can_process_fifo(uint8_t fifo_num){ uint8_t *dat = msg.data; uint8_t len = box->RDTR & 0x7; msg.length = len; + msg.ID = box->RIR >> 21; if(len){ // message can be without data uint32_t hb = box->RDHR, lb = box->RDLR; switch(len){ @@ -338,7 +383,8 @@ static void can_process_fifo(uint8_t fifo_num){ if(CAN_messagebuf_push(&msg)) return; // error: buffer is full, try later *RFxR |= CAN_RF0R_RFOM0; // release fifo for access to next message } - if(*RFxR & CAN_RF0R_FULL0) *RFxR &= ~CAN_RF0R_FULL0; + //if(*RFxR & CAN_RF0R_FULL0) *RFxR &= ~CAN_RF0R_FULL0; + *RFxR = 0; // clear FOVR & FULL } void cec_can_isr(){ diff --git a/F0-nolib/usbcdc/can.h b/F0-nolib/usbcdc/can.h index 50f8206..859d71a 100644 --- a/F0-nolib/usbcdc/can.h +++ b/F0-nolib/usbcdc/can.h @@ -41,9 +41,11 @@ // incoming message buffer size #define CAN_INMESSAGE_SIZE (8) +// CAN message typedef struct{ - uint8_t data[8]; - uint8_t length; + uint8_t data[8]; // up to 8 bytes of data + uint8_t length; // data length + uint16_t ID; // ID of receiver } CAN_message; typedef enum{ @@ -59,9 +61,10 @@ CAN_status CAN_get_status(); void readCANID(); uint16_t getCANID(); -void CAN_reinit(); -void CAN_setup(); +void CAN_reinit(uint16_t speed); +void CAN_setup(uint16_t speed); +CAN_status can_send(uint8_t *msg, uint8_t len, uint16_t target_id); void can_send_dummy(); void can_send_broadcast(); void can_proc(); diff --git a/F0-nolib/usbcdc/main.c b/F0-nolib/usbcdc/main.c index f4f0a52..2537e9b 100644 --- a/F0-nolib/usbcdc/main.c +++ b/F0-nolib/usbcdc/main.c @@ -100,7 +100,7 @@ int main(void){ gpio_setup(); usart_setup(); readCANID(); - CAN_setup(); + CAN_setup(100); switchbuff(0); SEND("Greetings! My address is "); @@ -127,19 +127,24 @@ int main(void){ can_proc(); usb_proc(); if(CAN_get_status() == CAN_FIFO_OVERRUN){ - SEND("CAN bus fifo overrun occured!\n"); NL(); + switchbuff(3); + SEND("CAN bus fifo overrun occured!\n"); + newline(); sendbuf(); } can_mesg = CAN_messagebuf_pop(); - if(can_mesg){ // new data in buff + if(can_mesg && isgood(can_mesg->ID)){ // new data in buff len = can_mesg->length; - switchbuff(0); - SEND("got message, len: "); usart_putchar('0' + len); + switchbuff(3); + SEND("got message, ID="); + printuhex(can_mesg->ID); + SEND(", len="); + printu(len); SEND(", data: "); for(ctr = 0; ctr < len; ++ctr){ printuhex(can_mesg->data[ctr]); - usart_putchar(' '); + SEND(" "); } - NL(); + newline(); sendbuf(); } if(usartrx()){ // usart1 received data, store in in buffer usart_getline(&txt); diff --git a/F0-nolib/usbcdc/proto.c b/F0-nolib/usbcdc/proto.c index 4702c96..df31e22 100644 --- a/F0-nolib/usbcdc/proto.c +++ b/F0-nolib/usbcdc/proto.c @@ -30,6 +30,8 @@ extern volatile uint8_t canerror; +uint16_t Ignore_IDs[IGN_SIZE]; +uint8_t IgnSz = 0; static char buff[UARTBUFSZ+1], *bptr = buff; static uint8_t blen = 0, USBcmd = 0; @@ -38,7 +40,7 @@ void sendbuf(){ if(blen == 0) return; *bptr = 0; if(USBcmd) USB_sendstr(buff); - else{ + if(USBcmd != 1){ usart_send(buff); transmit_tbuf(); } @@ -46,6 +48,7 @@ void sendbuf(){ blen = 0; } +// 1 - USB, 0 - USART, other number - both void switchbuff(uint8_t isUSB){ USBcmd = isUSB; } @@ -158,24 +161,107 @@ char *getnum(char *txt, uint32_t *N){ // send command, format: ID (hex/bin/dec) data bytes (up to 8 bytes, space-delimeted) -void sendCANcommand(char *txt){ +TRUE_INLINE void sendCANcommand(char *txt){ SEND("CAN command with arguments:\n"); uint32_t N; + uint16_t ID = 0xffff; char *n; + uint8_t data[8]; + int ctr = -1; do{ txt = omit_spaces(txt); n = getnum(txt, &N); if(txt == n) break; + txt = n; + if(ctr == -1){ + if(N > 0x7ff){ + SEND("ID should be 11-bit number!"); + return; + } + ID = (uint16_t)(N&0x7ff); + SEND("ID="); printuhex(ID); newline(); + ctr = 0; + continue; + } + if(ctr > 7){ + SEND("ONLY 8 data bytes allowed!"); + return; + } + if(N > 0xff){ + SEND("Every data portion is a byte!"); + return; + } + data[ctr++] = (uint8_t)(N&0xff); printu(N); SEND(", hex: "); printuhex(N); newline(); - txt = n; }while(1); if(*n){ - SEND("\nThe rest: "); + SEND("\nUnusefull data: "); SEND(n); } - newline(); + if(ID == 0xffff){ + SEND("NO ID given, send nothing!"); + return; + } sendbuf(); + N = 1000000; + while(CAN_BUSY == can_send(data, (uint8_t)ctr, ID)){ + if(--N == 0) break; + } +} + +TRUE_INLINE void CANini(char *txt){ + txt = omit_spaces(txt); + uint32_t N; + char *n = getnum(txt, &N); + if(txt == n){ + SEND("No speed given"); + return; + } + if(N < 50){ + SEND("Lowest speed is 50kbps"); + return; + }else if(N > 3000){ + SEND("Highest speed is 3000kbps"); + return; + } + CAN_reinit((uint16_t)N); + SEND("Reinit CAN bus with speed "); + printu(N); SEND("kbps"); +} + +TRUE_INLINE void addIGN(char *txt){ + if(IgnSz == IGN_SIZE){ + MSG("Ignore buffer is full"); + return; + } + txt = omit_spaces(txt); + uint32_t N; + char *n = getnum(txt, &N); + if(txt == n){ + SEND("No ID given"); + return; + } + if(N > 0x7ff){ + SEND("ID should be 11-bit number!"); + return; + } + Ignore_IDs[IgnSz++] = (uint16_t)(N & 0x7ff); + SEND("Added ID "); printu(N); + SEND("\nIgn buffer size: "); printu(IgnSz); +} + +TRUE_INLINE void print_ign_buf(){ + if(IgnSz == 0){ + SEND("Ignore buffer is empty"); + return; + } + for(int i = 0; i < IgnSz; ++i){ + printu(i); + SEND(": "); + printuhex(Ignore_IDs[i]); + newline(); + } } /** @@ -190,9 +276,19 @@ void cmd_parser(char *txt, uint8_t isUSB){ /* * parse long commands here */ - if(_1st == 's' || _1st == 'S'){ - sendCANcommand(txt + 1); - return; + switch(_1st){ + case 's': + case 'S': + sendCANcommand(txt + 1); + goto eof; + break; + case 'b': + CANini(txt + 1); + goto eof; + break; + case 'a': + addIGN(txt + 1); + goto eof; } if(txt[1] != '\n') *txt = '?'; // help for wrong message length switch(_1st){ @@ -205,17 +301,23 @@ void cmd_parser(char *txt, uint8_t isUSB){ case 'C': can_send_dummy(); break; + case 'd': + IgnSz = 0; + break; case 'G': SEND("Can address: "); printuhex(getCANID()); newline(); break; case 'I': - CAN_reinit(); + CAN_reinit(0); SEND("Can address: "); printuhex(getCANID()); newline(); break; + case 'p': + print_ign_buf(); + break; case 'R': SEND("Soft reset\n"); sendbuf(); @@ -238,11 +340,15 @@ void cmd_parser(char *txt, uint8_t isUSB){ break; default: // help SEND( + "'a' - add ID to ignore list (max 10 IDs)\n" + "'b' - reinit CAN with given baudrate\n" "'B' - send broadcast dummy byte\n" "'C' - send dummy byte over CAN\n" + "'d' - delete ignore list\n" "'f' - flush UART buffer\n" "'G' - get CAN address\n" "'I' - reinit CAN (with new address)\n" + "'p' - print ignore buffer\n" "'R' - software reset\n" "'s/S' - send data over CAN: s ID byte0 .. byteN\n" "'T' - gen time from start (ms)\n" @@ -251,6 +357,8 @@ void cmd_parser(char *txt, uint8_t isUSB){ ); break; } +eof: + newline(); sendbuf(); } @@ -273,8 +381,9 @@ void printu(uint32_t val){ void printuhex(uint32_t val){ addtobuf("0x"); uint8_t *ptr = (uint8_t*)&val + 3; - int i, j; + int8_t i, j; for(i = 0; i < 4; ++i, --ptr){ + if(*ptr == 0 && i != 3) continue; // omit leading zeros for(j = 1; j > -1; --j){ uint8_t half = (*ptr >> (4*j)) & 0x0f; if(half < 10) bufputchar(half + '0'); @@ -282,3 +391,10 @@ void printuhex(uint32_t val){ } } } + +// check Ignore_IDs & return 1 if ID isn't in list +uint8_t isgood(uint16_t ID){ + for(int i = 0; i < IgnSz; ++i) + if(Ignore_IDs[i] == ID) return 0; + return 1; +} diff --git a/F0-nolib/usbcdc/proto.h b/F0-nolib/usbcdc/proto.h index e41b5a1..1f4905e 100644 --- a/F0-nolib/usbcdc/proto.h +++ b/F0-nolib/usbcdc/proto.h @@ -40,6 +40,10 @@ // newline with buffer sending over USART #define NL() do{bufputchar('\n'); switchbuff(0); sendbuf();}while(0) +#define IGN_SIZE 10 +extern uint16_t Ignore_IDs[IGN_SIZE]; +extern uint8_t IgnSz; + void cmd_parser(char *buf, uint8_t isUSB); void addtobuf(const char *txt); void bufputchar(char ch); @@ -51,6 +55,8 @@ void switchbuff(uint8_t isUSB); char *omit_spaces(char *buf); char *getnum(char *buf, uint32_t *N); +uint8_t isgood(uint16_t ID); + //int strlen(const char *txt); //void memcpy(void *dest, const void *src, int len); #endif // __PROTO_H__ diff --git a/F0-nolib/usbcdc/usb_defs.h b/F0-nolib/usbcdc/usb_defs.h index 5054528..f7e1339 100644 --- a/F0-nolib/usbcdc/usb_defs.h +++ b/F0-nolib/usbcdc/usb_defs.h @@ -33,7 +33,7 @@ * Buffers size definition **/ // !!! when working with CAN bus change USB_BTABLE_SIZE to 768 !!! -#define USB_BTABLE_SIZE 1024 +#define USB_BTABLE_SIZE 768 // for USB FS EP0 buffers are from 8 to 64 bytes long (64 for PL2303) #define USB_EP0_BUFSZ 64 // USB transmit buffer size (64 for PL2303) diff --git a/F0-nolib/usbcdc/usb_lib.c b/F0-nolib/usbcdc/usb_lib.c index 8ba2acb..9449ca9 100644 --- a/F0-nolib/usbcdc/usb_lib.c +++ b/F0-nolib/usbcdc/usb_lib.c @@ -357,7 +357,7 @@ int EP_Init(uint8_t number, uint8_t type, uint16_t txsz, uint16_t rxsz, void (*f if(lastaddr + txsz + rxsz >= USB_BTABLE_SIZE) return 2; // out of btable USB->EPnR[number] = (type << 9) | (number & USB_EPnR_EA); USB->EPnR[number] ^= USB_EPnR_STAT_RX | USB_EPnR_STAT_TX_1; - if(rxsz & 1 || rxsz > 992) return 3; // wrong rx buffer size + if(rxsz & 1 || rxsz > 512) return 3; // wrong rx buffer size uint16_t countrx = 0; if(rxsz < 64) countrx = rxsz / 2; else{ diff --git a/F0-nolib/usbcdc/usbcan.bin b/F0-nolib/usbcdc/usbcan.bin index 3b8cfc9770ea46d7986b464ef999a5b4a216e151..374a6d192f4db97a2ffa3a135933138d0554e348 100755 GIT binary patch delta 6283 zcma)A3sh6rn*L875CUodtGqo)P*8#m4=ebL2_8cZAcD3C(gq}&D1`{v#@@DxI-QG; zY1QMsf)T!-i=k`5`+9_(au~&&*tGzdET}>b%Xa0QvOXse2@37W) z_TK;h@Bgv?z5l&~o4sADfFz(lQiALQ#Jh;Y@u^NA1DNCK32Y_+a)wmihZS zoFH31Mai*fkljUt%s*Jc+{dhDt}&o?sl0;+`o)}tlXBfm7qgN*FYReq$wpCqj3J|I zl|-%6C+U{4TT1#EbBWjrS-sJXZWB|)Qcw5cS9GL@i9Q{zY_l%1%5}DB2N+n8?Eb;} zx;1)1qH`#({3vKP{u>h)cVj?$G){hFKyvh>0rBDD>7v8MaUTurV~XV;4RkUi1JvR5 zOaqhYh;cLxJf|;kgGO|DJp*&++AU03+KmB?ojR7%mTq6o)Z5FMV|LLo6I`{6kF85e z-yu1cWUAjGJ+=>y?WkusCI#SV{qBt=&i;@4--RC80+FYY0cE_MR*I~0gUBqhrWeQS zPk2BrHpliad;1X6%{NHo9+~k6~0Y#E52he1+Db_yI z(We)Ccy+8D)QNV*S)ju{Vu%si5Re{bs%xg5F4UtgYFdV0)<8% zc_S8pE0Qo&KIfFoaT?3iR>+y=S;Jnj_C}|BRH{o8m_scGxN(Sq=+L#&lTi?KQVka z>M9H`#BW~sqz$%C2mkNF8XPVlLlNNkU&8ZotO}pDrN*S`sAW-_g+p`M6X2}@|Lkxk z@@9rp*+wB}+mw!P7r7iVL8B|7aQanBbbrmls+|8XeZl*}Hs;%3?}O>sUSdD53? z^dP{0D|F45fbEUY|M=pu^@cvj4V+CD6c_IxZsL=O4-sBO7}1PS%mbOrg{z5+%=7$M zC(;U$MkA6C!NJd&!;Dw8hFQ)|gKle;)HN6d@%nssueI1|?4^2VbTQyR6+%P)8R2`- z@QIKSDaGMJ>^~ENT)7)E^Vb$3|LKsno+<=?PWVOr&sRufb|JE@7+G~_fyuxeWm2il zC9>R=Ls_M#V1Lci%skZcn-Gz$6=c_;?DCL^j>Gfq>}G;zLDjztBqD=-7l;&w{9Ove z5003q0Y`!)-q7Yq5XlXB4!NPnY+@*7l~isRGS{2Mbc*?!4_8L{z3}zn_s@v0eW1GR z`*Bx7)I~y9UB?w9t7pWOup&ATo95$+VJXR;3r^XiNKg#!>EF(rQVpeFRv!UMDYo+g z3op(Vxs%ZMjL_^d(x!yWR`CD35XsM@B%j}pg8$MeNm*RzIP#toc((-J*U0;1G!A)@ z(c?Doa{}+O!1EyQ?5L<;an^W_c^@4h9=fsp4k63J@!(!`Xej+9tV-kVWC-q%()Q&j z`Cc3q_rqB}8i362o5w|>_DIQD%I2Pk{l6JVU9CCA`kGOsOTl(fXlt#nVmpJbHDBJg$8fnZW&10Hz8O?K z=GyK14YiwJHYxJrasErCwfH5Fqn_icjhs(5$JtYcGDxF}<=DolHd_;QvYe3ToU+%{ z$MzYk&Ejn_QK_O-d8|R)2x`tOMsN8*CJ%mNgb%C;H{ns;C>-p^M-F4q&yMf`7LRzr zDA`SqjF24c7y*C%$mVUm0AGCLeT=Q!b_ILidR4l}%-jv%aKA+RixKz!!R2ywaq_L7jolA9u z+HXiSR54rw%5qp1#`wTZbST90fiodV_I++X@NP(&A#v;WIWdYc$hLUum{crh^E|Yb z@-GfbGiJMC9&KedP`M(H*x}51%nklO@oH;ba&1O}L%tx*tv0hbr#_Ws(#?=td=>9Q z&cM{%aq;EzXMEz5ShU6rOtlG=DQ0mO?#7YNe3h(;QJYt)6U`M)Hq{}|x$d5pBlfUt z9rmxdOW8FhqKd*P4B15^dwf(8_}xJRj(!M|WpxL^|5~uur$b8R82Ho1mflhNmM`ZK zF`WSv#{OEc2qnG@TK9p!d4!Y=Pf!b3iAPA;_$26rg|Qgv$$FBXJS4prr0$`5ej4EP zw=WPweQ0P;(C*8`Tl2|FR1s|!E3;89ju-!av5!=Z7X*hogCx&Rl-?dx_>@RLCeR-h z=B zQsAI+ZoB{DJGX*Spn+S6?-1W26oXP$iiwnBb|8ns{c@gHkmn6LMI0hB6q{rxhxQh? zJT7b6E4e(m2&PFrIu;)l=f_pD=Ghtk(k^chQ20+ZbFHFFoVr7?d_)y zIp(IAwRBn;<;@0*gDT_$OL@o*dbTr=HDlh@bd3Wvau3kryJxwn#i0Re`2z!zoS!`6 ze*al@{Lny5j{NF<+Cm*4n8VW$qmf^_Ps=+4$^0#!Rv^z5$hU{IT0StHzdFT8W=eFQMM!j_E{ZwnG~tSqlb{=ohLQ}M?;sc4HxfA#8Y&#CmRn%B+tn2wc~q@|b*G_{Bi^g1K3 zFv_ik76%y~#Zk~h&HFw3kiMIFl6`6|UZ>t)qM?Ln&P1d@;`!owds?A8dLdl>;X2jD zXTznJks?#|GTWKnq^=Eo;Kzu8q36vpYv?`bwidPsX=@m_f`KLQPU8K>$o-54KJ``S zyzJIv)u7xfRU*57>6L+nIdJLx^$t@nT&Q`Lp?Z6mHnwMV+k{j_NC3v`B4^M2Y>&QjsKC)QcVk+f{r=KAsI97G*O^w~ ztz0)ndGwuhbViJ9si_pr%jxw~Bz_(v3DY|Gz{8P6zG|j-pc|`k3C3Savs2>#W{j+I zCBp}}h!FqfF_@=;a$f;kU}{6Pc3L+@?I(iTX}%m*GZAya6zEo_ zT>H1M<3{F1MA8C~Wg;Xfa077yaS&02w8?XC5S)3#_cYrj#Jrw(IR zYitjjVmA$g|Gtqm!_Ep)I>Gaw-p5(U>S7*adzp5;f7{t^rU-Bkj8!uxhQ^g#LT_Sz zDOz~P;+h+nq)tBYyD=gEUxh{LJ_al8VsFW_dheCw;Rd!*$X5kzn-bZF!c_TiEn91P z2oevJ6u64z6&=^j1ojA`M|e9QTC7SPi`(@mzpZj{91a=6a$Y42Hw6&HZj>hS-;xE z+Xe1RH_0Ymi`)u&i7?kWUdcBJ>}PJ0UA!TS9IS$J%3B1jLRl&g!`(qoI_}{VGwp!v z<8D&@^4edDep>s~Y&OYs*-Uy7-{dZC#tlfW-a@fDA4QNI zuG7x|8TLDoZpO9@VI+M7d=Fj;j7k-Q_r$VkcyCR2%h{C9J^DDer~p(Fuc)9qBc^k= zUgD2T~}1c&qSZri-0acN*aiC7rDpcS>+47 z0iR%fOb_^c68xb;{sl29#Zv$mxo_iNr!I2OCG1W96lWG8$`C}qpc`8^w>)tUHIu7P ztfrEe<_s$4pcv>HbYv4}yKD25(HD1}PVYndP5htH zsw9vp5tFh+)h6!Ptff*y*?8vatY}L5PuM-deLK6Ja&c>tcHD*kccFO^)|O46qqW$Y zL3e`tEa^AYi8H0i|4r2q?N7Y};B@jlnfwm+k0VVG#I^)!X{dzQpu_+lVmigxeueFK z2s#&2g}8A#VxHIr&k8KGT(Gfb?e)pKu|p+D9e4Mf!0U_EAUT59nnR ztpwX8?j!Nw-50}M&M-PJoj1r1=&1`VoJ*-%wJHV9Q_N#KFY=PBqCiG~J4D7H^oSJ*+%>X%M1Rycj$qq`cn0x2;$QE= zPYvP}Vsk^w!p(GcSz!_P_?%fenfNT#APNyh2qU5fu?bPp3NR_2S6sk_=Dc<9;zje9 z(AAcfCc3GiqhTRkW@%ZD>#CtU8n)V+NEiErwfxT1{KZm})?uAc05Coqz~1I;?PwKtVSWMGPo-O1TH7o*Vapav8wrLuO}uRtycN7z)zpNZ zq4P+WGnSYO}Pr3z7bfPRoP#j$HuNty?;1E?%8k-jGG-k|{)K zM=Na`ccR&bA!k3>;Gpxg$Z4N1&uS!sZNCI21SPBy-Po|RsjZ>IBIgR#y4g)cu*uSF z>99;y$F-@~C)o+l-ezm*m}HHI%e}Ae<;nXL?1gO*tM>2XSs2vR{N$b}Ho!CsPw z`rF-7>J-D2jBg&<;$~$Prx}Mc$I;fhZwn+QGc41~L*l-96%C2u4B+oG8AyCHQ_n-? zsA7M_!45MHb~M1SjG}B8Z*mwSEaPUT`R90rO*_@p_5z&feU34xFHOjY45~{LvZ3h- zsnEPkA~dU~Cn%v=H9Zkx#EG@7koaz0TX?}SehQV#~+@<~J77S$11$bCc}I&mb|LM3iyl(mv5Se=a4 zXGHq@GcHEwudBN-0g2Z{vZA`|iYjqM+6--}=e4eSuAU!N3`dn#JFj(0B6dFHvU7Rk zEk8ZUj4&@SXPCq!ZglIo2OR3X;5bWz(hLxwB>;3!DJb8@fhuhO7fN3^r^Du#*{BE& zzDXH|up&cQYkbN01%^hOV`%RS>)NgUK#h57CF*lB^kRU2nGG;DM^b)e4iZ0~1Ir6L z-h*z_IbFVc*Ti=!8Nm>HUtR~#-Ha+>QQxiRDk(FJN7kV4rPvsVQ)s7oRS&h;>muS{<-TR+*y|FRR)%{S=YIBduqTW2$<$lVtx-AdWna5SL zk{HztHIj&%*EnY)5{tEsqVsqGb$J1Plbsm7<)vAzi?aN>e?ejTx>Gc0{u`RI6tho3 z5c)a|ow`OtXL0LZO6EFA2f@_Y+gsFr($(A9>n&`fT>nn*?ANeC(D#}h`p%&FS8_d< z&l-H1$qNitC@qTkD}z>16yB09(=~$?`!NxR#nvD;KZF>KWRg^^)Wv-4hUX!yj8nigsOH`=eH@O+N@%=Q-L!x<(oUw^C*}@;E zA@RL5SgqWKEXVZ-#*zFuQ=etJ7EzR~?VxaEIz#xbpcX4FeHU_#r`H5foJ+s#g=LT^ zoU>u??@3QW`nhw}*#ANLjMtcJa!@Tfw%Vz3_C<*GLPAKFq3&ebz>a!%DQe!;p&V6M z-(7)nT48*bgg1~4uMfjx(i*p(J;mp_1TJV<$qvc%UX{zxZ}1A+!qMhlDqYG6x<1IsmzviETYw}D&PZosMO zG{-|CoF;3Tn`w_SWn>ak7{omN^Bmy}`U2l$~Z!9zawfVwPoJMOqY5XCpng5b4(f&A~u(knlH1 zEJyjP+2j)9m5$W2Mz=Ip4h(7}BTAuk)?Ut86T6 z;9qUU-QoK9zaE!3FeCi=R*A!aaw04H_F5RXuzQ3Z5q_4t zD$p}0CNCmB&fZc-W}d+X4$X+k_wl}}m?b-MaE9#2-Wf=A&J64y1$ghbvB%h5`=_z> zQ7mZvhI^OnzWwC(5RIrC!DGAFC@ zN5o{^oV;Xx)XN&NvMZx?JS6U&mzAuHKzSW6-%i;iQ7K-_k45nM#jl-F-&a!PSFLtN z>bY)YH5t2^fQbX!gV(_-6#4|s`fzQ$r-AFM$4}BM-y*2Z(Sz2yqF@sZ>At|CiSEE zCblcU)N}V(wOk8p^s8##h~(EuqZ`>>*bYZFuy!{Ii^9npkX$|cK)fF1FH(f+M_H;6 zQhhh|SbPnRH{k{F``K!?YmxKWcm+G`Jav_7tmCBS3bZKANWa$-FUQskS&na~Do8wj zB-xu<5vNh{cUi?FS@Huo-kU1GkB^{M+XC<6IVZiqN(bT? z>eMJZ5$%Ws`pqH0>IA3P2|=TUBADM9Q_6d4Y@YORnn^vsk1+=#AF@z zOT;hZL>ijJ|6VfL#WM21`y~TmJ8rfNj*lC-%@r=Xu7irz!684jPE1lFtVu;{*lOWM zL2;l=%z-iI$_O|qLzg#mHrl)-$Ped9kVHR(?+-C~b-n?98@FPz^^xUlvAd_j zz^UjJOJ=w@PiDwxmtk&cKUB#hWU-U;q&*WQ9Iwsiu;d!d4SbdQN9QHuGJH|tTWT?L zZ{uP^rjdpTry3b#5=R_0a2=Xg6iGc2>uW$$!DevzS~r zKM{!UGm|g+FK5riE7?l7C+k+T#Lb#@qgk3H^Q&ydGIAtXHFtr@#PzJ+?L@yyx@3u; zBI|cN-c1*>g>HSjfg_tRhmT3J32Ii2d}_9j6b(7~uV)EwrQiJgFPe-4dLV=a?<2I2d~-EA5i z!Iv?u!4VTk9AhZ4j<>1W>v=hZ;D^1AYDMISy`xmCX{t=D_Ha2;*mA-r*HXSKmfkvVf0Ct0e zu0zRz!zbLg>YJ4B{BKshL+v8$&%BBMSp-CpIKPSQ12~p7M5)0s9g>haC?u*X2c;Bc z3(9sx5OEgKiU5Qre0*F{l|L0M`}lmaw2(6Ukc2pkNqmX@abXe?RfiswWO9vAZGMpQ z2~U~p@psa^IS|Z{BSN;EJXJ7edK`&KdpGhdTtx+|omcZg?oxvk&M7uWi$QaDZSKoV zEp?Xp&K8K(Lj~{QOSn(?m-r9364=8%&uJPo>j$>}DY}&@C{tUhb+uHRez{|-Uh6E2 zfb~Cm|IjI`|HL45t(lpUT4gOSDyfDS!QiOX=jwNqz-k2=LCgwo?cQzrea{b^Gtq^^ zAqS#OM3eCyC35&QZhZ51-msy%iQebkcbKlD4?pS|9DL-E3KIdh^&8fre$dmum)!s_ zmDTqMchz(WqctN!z3rfIv5MB(Xx`&T162?2!JRvL4A=C$Eu4D{kM%vc>eq$-TJ8S; DSUl#Q