From b84753807126665df66f85abba7afaaba7456e64 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Wed, 17 Oct 2018 22:31:39 -0700 Subject: [PATCH] 4711 Extract a helper for appending strings to raw buffers. I'd been resisting this idea, but it actually turns out to be a pretty clean abstraction in the end. --- subx/055trace.subx | 180 ++++++++++++++++++++++-------------------- subx/056write.subx | 107 +++++++------------------ subx/apps/crenshaw2-1 | Bin 2979 -> 3018 bytes subx/apps/factorial | Bin 3006 -> 3045 bytes 4 files changed, 122 insertions(+), 165 deletions(-) diff --git a/subx/055trace.subx b/subx/055trace.subx index 641c3ef6..d09fd905 100644 --- a/subx/055trace.subx +++ b/subx/055trace.subx @@ -77,94 +77,53 @@ trace: # t : (address trace-stream), line : string 52/push-EDX 53/push-EBX 56/push-ESI - # EAX = t - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 0/r32/EAX 8/disp8 . # copy *(EBP+8) to EAX - # EBX = line - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 3/r32/EBX 0xc/disp8 . # copy *(EBP+12) to EBX - # append line to t.data from t.write - # - # pseudocode: - # destend = &t.data[t.length] - # oldw = t.write - # if line.length == 0 return - # t.write += line.length + 1 # for newline - # dest = &t.data[oldw] - # srcend = &line.data[line.length] - # src = &line.data[0] - # while true: - # if src >= srcend break - # if dest >= destend break # for now silently ignore filled up trace buffer - # *dest = *src - # ++src - # ++dest - # if dest >= destend return - # *dest = 10/newline - # - # key registers to set up for the loop: - # EAX/dest, ECX/destend, EBX/src, ESI/srcend - # we save EDX for byte operations (has to be one of the first 4 registers) - # - # register setup before the loop: - # EAX = *(EBP+8) # t - # EBX = *(EBP+12) # line - # ECX = *(EAX+8) # t.length - # ECX = EAX+12+ECX # destend = &t.data[t.length] - # ESI = *EAX # oldw = t.write - # EDX = *EBX # line.length - # *EAX = *EAX + EDX # update t.write (allowed to go past t.length) - # # do this here just because it's convenient - # ++ *EAX # for the newline - # EAX = EAX+12+ESI # dest = &t.data[oldw] - # ESI = EBX+4+EDX # srcend = &line.data[line.length] - # EBX = EBX+4 # src = &line.data[0] - # - # EAX/t and EBX/line are already initialized - # ECX = t.length - 8b/copy 1/mod/*+disp8 0/rm32/EAX . . . 1/r32/ECX 8/disp8 . # copy *(EAX+8) to ECX - # ECX/destend = &t.data[t.length] - 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/EAX 1/index/ECX . 1/r32/ECX 0xc/disp8 . # copy EAX+ECX+12 to ECX - # ESI/oldw = t.write - 8b/copy 0/mod/indirect 0/rm32/EAX . . . 6/r32/ESI . . # copy *EAX to ESI - # EDX = line.length - 8b/copy 0/mod/indirect 3/rm32/EBX . . . 2/r32/EDX . . # copy *EBX to EDX - # if EDX == 0 return - 81 7/subop/compare 3/mod/direct 2/rm32/EDX . . . . . 0/imm32 # compare EDX + 57/push-EDI + # EDI = t + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 7/r32/EDI 8/disp8 . # copy *(EBP+8) to EDI + # ESI = line + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 6/r32/ESI 0xc/disp8 . # copy *(EBP+12) to ESI + # ECX = t.write + 8b/copy 0/mod/indirect 7/rm32/EDI . . . 1/r32/ECX . . # copy *EDI to ECX + # EDX = t.length + 8b/copy 1/mod/*+disp8 7/rm32/EDI . . . 2/r32/EDX 8/disp8 . # copy *(EDI+8) to EDX + # EAX = _append(&t.data[t.write], &t.data[t.length], line) + # push line + 56/push-ESI + # push &t.data[t.length] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/EDI 2/index/EDX . 3/r32/EBX 0xc/disp8 . # copy EDI+EDX+12 to EBX + 53/push-EBX + # push &t.data[t.write] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/EDI 1/index/ECX . 3/r32/EBX 0xc/disp8 . # copy EDI+ECX+12 to EBX + 53/push-EBX + # call + e8/call _append/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP + # if EAX == 0 return + 81 7/subop/compare 3/mod/direct 0/rm32/EAX . . . . . 0/imm32 # compare EDX 74/jump-if-equal $trace:end/disp8 - # t.write += line.length - 01/add 0/mod/indirect 0/rm32/EAX . . . 2/r32/EDX . . # add EDX to *EAX - # t.write++ (for the newline we'll append below) - 81 0/subop/add 0/mod/indirect 0/rm32/EAX . . . . . 1/imm32 # add to *EAX - # EAX/dest = &t.data[oldw] - 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/EAX 6/index/ESI . 0/r32/EAX 0xc/disp8 . # copy EAX+ESI+12 to EAX - # ESI/srcend = &line.data[line.length] - 8d/copy-address 1/mod/*+disp8 4/rm32/sib 3/base/EBX 2/index/EDX . 6/r32/ESI 4/disp8 . # copy EBX+EDX+4 to ESI - # EBX/src = &line.data[0] - 81 0/subop/add 3/mod/direct 3/rm32/EBX . . . . . 4/imm32 # add to EBX - # while (true) -$trace:loop: - # if EBX/src >= ESI/srcend break - 39/compare 3/mod/direct 3/rm32/EBX . . . 6/r32/ESI . . # compare EBX with ESI - 7d/jump-if-greater-or-equal $trace:break/disp8 - # if EAX/dest >= ECX/destend break (for now silently ignore filled up trace buffer) - 39/compare 3/mod/direct 0/rm32/EAX . . . 1/r32/ECX . . # compare EAX with ECX - 7d/jump-if-greater-or-equal $trace:break/disp8 - # copy one byte - 8a/copy-byte 0/mod/indirect 3/rm32/EBX . . . 2/r32/DL . . # copy byte at *EBX to DL - 88/copy-byte 0/mod/indirect 0/rm32/EAX . . . 2/r32/DL . . # copy byte at DL to *EAX - # updates - 40/increment-EAX - 43/increment-EBX - eb/jump $trace:loop/disp8 -$trace:break: - # finally, append a newline - # if EAX/dest >= ECX/destend return - 39/compare 3/mod/direct 0/rm32/EAX . . . 1/r32/ECX . . # compare EAX with ECX - 7d/jump-if-greater-or-equal $trace:end/disp8 - # append - ba/copy-to-EDX 0x0a/imm32 - 88/copy-byte 0/mod/indirect 0/rm32/EAX . . . 2/r32/DL . . # copy byte at DL to *EAX + # t.write += EAX + 01/add 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # add EAX to *EDI + # refresh ECX = t.write + 8b/copy 0/mod/indirect 7/rm32/EDI . . . 1/r32/ECX . . # copy *EDI to ECX + # EAX = _append(&t.data[t.write], &t.data[t.length], line) + # push line + 68/push Newline/imm32 + # push &t.data[t.length] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/EDI 2/index/EDX . 3/r32/EBX 0xc/disp8 . # copy EDI+EDX+12 to EBX + 53/push-EBX + # push &t.data[t.write] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/EDI 1/index/ECX . 3/r32/EBX 0xc/disp8 . # copy EDI+ECX+12 to EBX + 53/push-EBX + # call + e8/call _append/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP + # t.write += EAX + 01/add 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # add EAX to *EDI $trace:end: # restore registers + 5f/pop-to-EDI 5e/pop-to-ESI 5b/pop-to-EBX 5a/pop-to-EDX @@ -175,6 +134,57 @@ $trace:end: 5d/pop-to-EBP c3/return +_append: # out : address, outend : address, s : (array byte) -> num_bytes_appended/EAX + # prolog + 55/push-EBP + 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP + # save registers + 51/push-ECX + 52/push-EDX + 53/push-EBX + 56/push-ESI + 57/push-EDI + # EAX/num_bytes_appended = 0 + b8/copy-to-EAX 0/imm32 + # EDI = out + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 7/r32/EDI 0x8/disp8 . # copy *(EBP+8) to EDI + # EDX = outend + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 2/r32/EDX 0xc/disp8 . # copy *(EBP+12) to EDX + # ESI = s + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 6/r32/ESI 0x10/disp8 . # copy *(EBP+16) to ESI + # ECX = line.length + 8b/copy 0/mod/indirect 6/rm32/ESI . . . 1/r32/ECX . . # copy *ESI to ECX + # ECX/srcend = &line.data[line.length] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/ESI 1/index/ECX . 1/r32/ECX 4/disp8 . # copy ESI+ECX+4 to ECX + # ESI/src = &line.data[0] + 81 0/subop/add 3/mod/direct 6/rm32/ESI . . . . . 4/imm32 # add to ESI +$_append:loop: + # if ESI/src >= ECX/srcend break + 39/compare 3/mod/direct 6/rm32/ESI . . . 1/r32/ECX . . # compare ESI with ECX + 7d/jump-if-greater-or-equal $_append:end/disp8 + # if EDI/out >= EDX/outend break (for now silently ignore filled up trace buffer) + 39/compare 3/mod/direct 7/rm32/EDI . . . 2/r32/EDX . . # compare EDI with EDX + 7d/jump-if-greater-or-equal $_append:end/disp8 + # copy one byte from ESI/src to EDI/out + 8a/copy-byte 0/mod/indirect 6/rm32/ESI . . . 3/r32/BL . . # copy byte at *ESI to BL + 88/copy-byte 0/mod/indirect 7/rm32/EDI . . . 3/r32/BL . . # copy byte at BL to *EDI + # updates + 40/increment-EAX + 46/increment-ESI + 47/increment-EDI + eb/jump $_append:loop/disp8 +$_append:end: + # restore registers + 5f/pop-to-EDI + 5e/pop-to-ESI + 5b/pop-to-EBX + 5a/pop-to-EDX + 59/pop-to-ECX + # epilog + 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP + 5d/pop-to-EBP + c3/return + clear-trace-stream: # t : (address trace-stream) # prolog 55/push-EBP diff --git a/subx/056write.subx b/subx/056write.subx index f8e32fb2..c9303b56 100644 --- a/subx/056write.subx +++ b/subx/056write.subx @@ -33,7 +33,6 @@ Test-ostream: # 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes # main: (manual test if this is the last file loaded) -#? e8/call test-write-appends/disp32 e8/call run-tests/disp32 # 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'. # syscall(exit, Num-test-failures) 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 1/r32/EBX Num-test-failures/disp32 # copy *Num-test-failures to EBX @@ -44,12 +43,6 @@ write: # f : fd or (address stream), s : (address array byte) -> # prolog 55/push-EBP 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 50/push-EAX - 51/push-ECX - 52/push-EDX - 53/push-EBX - 56/push-ESI # if (f < 0x08000000) _write(f, s), return # f can't be a user-mode address, so treat it as a kernel file descriptor 81 7/subop/compare 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . . 8/disp8 0x08000000/imm32 # compare *(EBP+8) 7f/jump-if-greater $write:else/disp8 @@ -63,84 +56,38 @@ write: # f : fd or (address stream), s : (address array byte) -> eb/jump $write:end/disp8 $write:else: # otherwise, treat 'f' as a stream to append to - # - # pseudocode: - # destend = &f.data[t.length] - # oldw = f.write - # if s.length == 0 return - # f.write += s.length - # dest = &f.data[oldw] - # srcend = &s.data[s.length] - # src = &s.data[0] - # while true: - # if src >= srcend break - # if dest >= destend break # for now silently ignore filled up ostream buffer - # *dest = *src - # ++src - # ++dest - # - # key registers to set up for the loop: - # EAX/dest, ECX/destend, EBX/src, ESI/srcend - # we save EDX for byte operations (has to be one of the first 4 registers) - # - # register setup before the loop: - # EAX = *(EBP+8) # f - # EBX = *(EBP+12) # s - # ECX = *(EAX+4) # f.length - # ECX = EAX+8+ECX # destend = &f.data[f.length] - # ESI = *EAX # oldw = f.write - # EDX = *EBX # s.length - # *EAX = *EAX + EDX # update f.write (allowed to go past f.length) - # # do this here just because it's convenient - # EAX = EAX+8+ESI # dest = &f.data[oldw] - # ESI = EBX+4+EDX # srcend = &s.data[s.length] - # EBX = EBX+4 # src = &s.data[0] - # - # EAX = f - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 0/r32/EAX 8/disp8 . # copy *(EBP+8) to EAX - # EBX = s - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 3/r32/EBX 0xc/disp8 . # copy *(EBP+12) to EBX - # ECX = f.length - 8b/copy 1/mod/*+disp8 0/rm32/EAX . . . 1/r32/ECX 4/disp8 . # copy *(EAX+4) to ECX - # ECX/destend = &f.data[f.length] - 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/EAX 1/index/ECX . 1/r32/ECX 8/disp8 . # copy EAX+ECX+8 to ECX - # ESI/oldw = f.write - 8b/copy 0/mod/indirect 0/rm32/EAX . . . 6/r32/ESI . . # copy *EAX to ESI - # EDX = s.length - 8b/copy 0/mod/indirect 3/rm32/EBX . . . 2/r32/EDX . . # copy *EBX to EDX - # if EDX == 0 return - 81 7/subop/compare 3/mod/direct 2/rm32/EDX . . . . . 0/imm32 # compare EDX - 74/jump-if-equal $write:end/disp8 - # f.write += s.length - 01/add 0/mod/indirect 0/rm32/EAX . . . 2/r32/EDX . . # add EDX to *EAX - # EAX/dest = &f.data[oldw] - 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/EAX 6/index/ESI . 0/r32/EAX 8/disp8 . # copy EAX+ESI+8 to EAX - # ESI/srcend = &s.data[s.length] - 8d/copy-address 1/mod/*+disp8 4/rm32/sib 3/base/EBX 2/index/EDX . 6/r32/ESI 4/disp8 . # copy EBX+EDX+4 to ESI - # EBX/src = &s.data[0] - 81 0/subop/add 3/mod/direct 3/rm32/EBX . . . . . 4/imm32 # add to EBX - # while (true) -$write:loop: - # if EBX/src >= ESI/srcend break - 39/compare 3/mod/direct 3/rm32/EBX . . . 6/r32/ESI . . # compare EBX with ESI - 7d/jump-if-greater-or-equal $write:end/disp8 - # if EAX/dest >= ECX/destend break (for now silently ignore filled up ostream buffer) - 39/compare 3/mod/direct 0/rm32/EAX . . . 1/r32/ECX . . # compare EAX with ECX - 7d/jump-if-greater-or-equal $write:end/disp8 - # copy one byte - 8a/copy-byte 0/mod/indirect 3/rm32/EBX . . . 2/r32/DL . . # copy byte at *EBX to DL - 88/copy-byte 0/mod/indirect 0/rm32/EAX . . . 2/r32/DL . . # copy byte at DL to *EAX - # updates - 40/increment-EAX - 43/increment-EBX - eb/jump $write:loop/disp8 -$write:end: + # save registers + 50/push-EAX + 51/push-ECX + 52/push-EDX + 53/push-EBX + # ECX = f + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none 1/r32/ECX 8/disp8 . # copy *(EBP+8) to ECX + # EDX = f.write + 8b/copy 0/mod/indirect 1/rm32/ECX . . . 2/r32/EDX . . # copy *ECX to EDX + # EBX = f.length + 8b/copy 1/mod/*+disp8 1/rm32/ECX . . . 3/r32/EBX 4/disp8 . # copy *(ECX+4) to EBX + # EAX = _append(&f.data[f.write], &f.data[f.length], s) + # push s + ff 6/subop/push 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . . 0xc/disp8 . # push *(EBP+12) + # push &f.data[f.length] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ECX 3/index/EBX . 3/r32/EBX 8/disp8 . # copy ECX+EBX+8 to EBX + 53/push-EBX + # push &f.data[f.write] + 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ECX 2/index/EDX . 3/r32/EBX 8/disp8 . # copy ECX+EBX+8 to EBX + 53/push-EBX + # call + e8/call _append/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP + # f.write += EAX + 01/add 0/mod/indirect 1/rm32/ECX . . . 0/r32/EAX . . # add EAX to *ECX # restore registers - 5e/pop-to-ESI 5b/pop-to-EBX 5a/pop-to-EDX 59/pop-to-ECX 58/pop-to-EAX +$write:end: # epilog 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP 5d/pop-to-EBP diff --git a/subx/apps/crenshaw2-1 b/subx/apps/crenshaw2-1 index 840b93b4b39efb8981eda7cccf1fc9e922b7aed0..ed64879da98df1a219e5a5fef7542937712269a7 100755 GIT binary patch literal 3018 zcmbVOU1%It6u#Re?qsvgPo>rr8W(Ax51E*f7PEqouu0UChfQOWCfT-ZHbZ9ZX0n}~ zr7bk1i&&eCdG9zxB5a%c?2dB|cy9z5!&QgzX2$)S z6}nYe2-hbyjNy939oLT$=0d{BV5_?#cr`DYQb1Zv??Pji56wVnWOm@*2Cl-2uw{*99jDHXpt1-!*)M8JYTyqq$njC zCDs+hh<>rqSb0V&HhvdAI`ZaxRxX!Ciu3|z&%r4U!dZV6VBa)l2qWdJ;vAtGi14iRB+2 z85_4Ltv030ZnDRfv6aNGFeR-iJmT~q9Xx4;zv-4)kwDOH(orxUOY{p*ZSeRpUvjA& zW8$4uP`})E;fdbC=QjS}{+nu}P;J7Z7NuTz zQHc=ko+a8#^K;f@eyJZrItS}zDz5?Tn+~y6jFhus=Ofw)l@f9GX({oOCvo)-O3$n8 zc;ICT{su4>>JNFkM>p$6q;9ajGBra=GyudpJ&D~?!g+`8?LBvI3}l)&a)NT)9DOvu z=VSQCdZRZN8tkrUcRt+L8{7DkZ>5boUK3Obnb!9qTn8EF1DT#KfY{@4=S|)}$aqmt z08W8>UUFvvB3|4%>Epf*_$_cJCHEpgp*!H?mH^)Xw^MSz0w{D_eO%tuI|&y}U7{n9 zv8AFsCPt8owH_+OQmmH$uTB!>`nf5r*GZCAwFHWNfG*vE-5@%Y=P`QIYU4Ru4)P;$ zx$Rj@%W8{$li%G(efxtu%He#_pJuP4^%!e@F!US%U`4J{a*>E~xMq$pvybE)UOp(+X7GCXF4X0Cr zJxLdpxy*g~rc?X_AcQCSC}1xbmNu)IxE(OfdGnb_J>5pM(^)NLX){P)-!%5wU_^~r zTFz2WnQ2Q?b7^BXqoHSGF#V5hr6jXi&6vqmk+95U>OK;J;!2PpL{CwNuW#ls%^@L^`S|yh1TW8WVlV{wZJ=KEV z%U!P5FY#10iE6?5LZs(R>LEO_W7)G2XxNN8?6;eq&|(P;XB$!d*}=!z z_nYtc&CEBynZ3!bp6*B_!m8IAwwB?|Vyt0X6{O#7EXmgR?|wVyfLD$(hPxi^3C8n( zp?A7txX-U;4EH*}U4KepF?R#K+4FT2=YY>b_3|;#dZaGg1k`WRw^N#qLAZM<*z*cS z@CB9$Fnw1*Y>{9~0B#Dviu)c7%DJnJ+WcPjO#R&3_ww#n?IX?5S0*=lR&$(g#eIRe zqSvKooz7;(dA&LA?5LaRQ52`uX|%5spIOOBVy3fInXww{>mE&nD-D`Z0EY;7V5muv$^+*GCS5LwHM9!@NAU1EWdy=oeD7|*T z&w=}ns82&5~9v1NS;~WH_(TnXtj3Bg4LgTH`*Zu2@an zv*{>5>!zEYrzU1KrM@d~PIte!^poGp;c_%=^I+ifBBt{gjmmZ89IpZtezen1wf-KA zRk?$b`!GOs-0L=kxPyQnhi;qXz6DU|{zw^B-S-1-RB}&A-H$`uZvyTQvNpe!+_yvA z*!t=iK9bx7KqAq2_l3A!0r$A%?vh+J#I*sp6QE;}{SS*mkKu0)9YlS6&2ga9lH9L< zfHYcW=DtM1Kl59ip5{cKfZGCCm*1790QBmyzXtgJxTz<6T&N#~#Nzfvl!z#qSv*pS z`QHY&@w(@^eF%krD4a!DMtJvM3ZEi;j}Td=u!s;PH{2G4JqSk-&LDhEp+f2m6R&mE z!s(P?57AA_?D3rRP>!F)IA|Gt-PumV(nd5Bk6orYYCe-}pvRpO3#YEBG{taE2=03Ysxu=_N|w=i7=bqg*Jc2Q<^rs(q=Ud1g&BJMMS- zbgfQTOPBKvOFUUiqE_d8A~JJ0cL$l6@*Sj!V%vI~BQ5EprlpxGA1k&l)x&V>Z6+5+ f4ca&&7saVz`y}&5GN)^~18Ux|N@5kUKU)3=1HN!r diff --git a/subx/apps/factorial b/subx/apps/factorial index 26729183cd84153780e9a3c2bb678dbfaacea683..c20388f498369c33df761edbd788186c2ccdd562 100755 GIT binary patch literal 3045 zcmbVN?`u<67(TJ>avP(qZk?-O7leod({)tA41|PK9a}%7W>fn^B~9;oGh-5OZm5p6 znvJRTQuYsQg9(Fu+E5r&x({xxc3%|yFg6gkAqZ#7*bf-2+nm|^oO5%}wMG;J_szM_ zdEVze=Y8LE?uniKyL>($tN&K8CWbeQvDU41kp8!_5L@BAJM)4A-WPtx@U&pQoeBRQ zjWK!xcs_4p49^qJ{PgY0TVcVP+H6b_p=O0OzSPWEWr5t-4g@H#;xCe>-SQ?8s_h2E zc^jF^0ukBt{47{kPrf#NJ0*sssR5c=Z;ynvN)_W2zger*q{m-lVQqN&mjm-sYQdc_ zPEiEo7}1lwm)2NW2-0|-&(YXkh43mAg3zRPqJ!2P6zhINxB#tgNe=8u+5KV7USkh7 zgE2GGsikH{)@Uhygcc;FeZJwL!TneYEj~G5_mRU(%`^R)wn!?(x&*c8*ORO3@7Qtm zSLtIQrTiTkk-S#30`O;FZiF$OOx5qji-CF-N~@i~>>ACNTx zwyIR#1{fa=uvyI1ib0M;QZJEUA5#){U5P7q(bA&IO|5m^^9s}eCIWo{SNFhj-H_7V z=t|_3#3q2)rz^2uN$_(twl~~+Fpz1{$Rm{F_UM!44Hw~`h()hYuC#liz2#s$mZ<(A zj#9Nn)C83h2Qq9!xc^4LAY${MYPc|{ z@ib{QN}xOk=+d<~4YET;9;4T-E|Igd{yD7YY}XF_SzXcZ%Io9Qx8FOn0xtW#X?8o> z*chPg6lqo5R(sq8Q08NsdqvF~2VL$V#nk~KaFVxrxE}#N3f*4C{Y2^BB#(Mu-*CBp z#l59;&wIEXE9<&9RBv_ylxuj`!|ivupDFGh#U1o;PrKZA6!$&Fjd-~8fVUA~pvYWa zH5v^?9n_a$AXRUFD#<$IN4Qa$8Go6KJg(Iq`Zlx=NVwO9#cd|RE*Gqc@7}ODAIl<% zj|_d{NGw?S64#L}T4okQYBA^A!k_xPR^!)Tg8z^i|Ch|iFiS9}?~wTv<{OwhFgN}q zvw~8>pMy!lOu&2ybD7LMg<#lyqhBMOt_rr19;$Us_{2vu;?p0%8&+)TB@0>I6^eu~ zj=Y}ESOqhi&LMsAQJgb(ZoH8_^Vo}eJl^RG`W;*i_2}yAz zNSk$f1IStZNYOeT$z}682>5NL$6aWqaHN+%ih!Anv#OqU6iDT;#BB=Jk54 zh-aT^(@Yv=@yTp>SR_eFE+rdcpU*?cHt=$XTjY~Cu#D&l-}{|{??ipKx| delta 1264 zcmZ9KT}TvB6vyx8?#^`_Yhh_k%G#uT5=)7SWm#Eu0~Lv_rA$ptpXO0v4Jns#h{A1H z$i^O|kC)zhDEfk}1qoNk9(?Gjhl=RIxMW0MFDZ08=T19!YhXV3pWpqTbN_eN>K5y+ zCL69Rgy8KXa0LkQz^j^yTdkfO4L9~tqVi0HvR7V0%w;H%I6{-PEC}l?UwZD&s4)VR zJ_T}$X@2B1_%5+|__k`(P%Pk@)tQsIwbbzw=~L!(1f8g{9lSN+-zL_fx*oHV5o(=@ zXjYdu-%F|0Vg=0&sE|z96UZl9Xg(A4nkATsM1N$psJ4=&SAw&FMCba~Vf&mXZonQ? zw!}F%myyyZaX=w<2od|}7f@^;Bcy;8K2F&V$l>qs4sA$_dDnvfMqgpE;EJE5c$*qv z+?lK}elF5;Qt5&w|D>X0^6c&w?2XgreDz@aB0+y{gA~h|$xtYSqE&>_>Is4>;y0Pp2il8CsY%r}9{S%nER8o^k9*RCqX?UV+3daEdQaMpd3%gq z)u4vq!5+#P_MwP>Vv5}oX^R8VQz-W#ds(uBD57nOO;oTJ%GZz`kn94Aj_*;2-3bdz zdJ**{g!fDMrM<@&54Xb9xlV5p--Q97S7!!upNC3p6b!6}v_0*c=-9;d-9Ru)uIIAZ zA?R8DU5}_`c0{sm_5pv$IFF?sv^gkCCW_9?@1T9z=CR8vk}aYL5M=S7g8kyMZ{%@& zm+U2nb+U-ml!v%4;U@dNKh%8IEnSo)9Yv>Sb4AaacB69G^VIHFn(B_hmUM`Vu-$^7 a@Z`R