[comp.binaries.ibm.pc] v01i106: sendcode, sends arbitrary characters to stdout

cgs@umd5.umd.edu (Chris Sylvain) (02/11/89)

Posting-number: Volume 01 Issue 106
Originally-from: cgs@umd5.umd.edu (Chris Sylvain)
Submitted-by: cgs@umd5.umd.edu (Chris Sylvain)
Archive-name: sendcode/sendcod1.uue

This program takes ASCII bytes (in hex) from its command line and sends
the bytes to STDOUT.  Note all the DOS output redirections can be used
with this program, and the program is case-insensitive.  The
redirections allow sending an arbitrary sequence of bytes (max. about
40 ASCIIhex bytes) to be sent, for instance, to the printer port to set
a desired mode.

EXAMPLE (with ANSI.SYS installed): 

     SENDCODE 1b 5B 32 4a

sends the sequence <ESC>[2J to stdout, which clears the screen
and leaves the cursor in the home position. Note 'b' == 'B'.

[
Includes assembly source.

Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   16192         4179      this uuencoded posting

checksum     size (bytes)  file
   47688         3012      sendcod1.arc

-- R.D.
]

BEGIN--cut here--cut here
begin 644 sendcod1.arc
M&@A314Y$0T]$12Y!4TT`/@H``"(2N)!?\^L0```,.QHHV`'B"IHP=$#009-F
M#@@X<MZ<D1.F#0@R;\K,T2&08`M(%CIV!#&EB!,B0YX0*>(B91.%8=9H!!%D
MRI`D24"(R4-G)HHT;D"@*8,G!0@S$2VFH>-PS)LV;<*X(0."#=`R(Z52G5-F
MJL.%973RG$GG#4DJ1)Y4H>("A),W/4&$8<-&X5`0::>`>%.'#IR^(.24(9-&
M\!@Z:=ZXF3-RC%2=8>MPI7IG*1J[#1]&G%B1A=RI=L-"E$A1:=,P7%L`Y;IX
M:1H[95R,I')7,&'#B!4[G,OFS1T0K`F[.?-9KAPQ2RG*R0.\3)PZ7<>$?6-&
M;$_&`T&@B(JG;1@Q?!/2@$'3)LZA>*QK-%H6<G,W=#R;>2,'Q&HZ4J5[;@]V
M)$2@/=4'!WT)M<=50F%<I%%A@X'0QAMDQ"92=D5@$4034#!1A':5+423$U,D
MX<(46>AU'V^#I:`#22:AI-*&,8@!0@U"@#"##"#0$$9'"200W%=W<?5<=&'Q
M4(1-/FPA@Q(*F34''1CUY=D=#(UQV1ALE!&&'$"&-<<8@G7%8P):5:4E;%V"
M,$8=7-)G7U!@"?64:&_,X9IB;;T5UPEBG`!"#SV`<((0)\@VT$A0;%8:"$@T
M5-9RGU$5!!UTR)&&&'TEMAA'V7T$PH0[)$!;9DW4]!)L7&JZ5W4EG9322B#<
M@9J"EL)&%5)/R857$4)4<01P8*8!1T+_P3<8CT"%!D(57,G10EDM,%M&?5LB
MAN5TU<4Y11G#EM&&&-."(,,-GL60`PXXV#?''-"MRB,40X#01!AGA*''56W1
M-IVE9P`U%W!UB-%&0W8JUJ2R4=5[KQMAR>H0KA8UD89,)!D:ZA,G$*$8PW2M
M6A"!#`U7EAN>/<'0&VTU(4=;&&OL!L=LG.#0:)Q9Q%I".UW'XVUE',8&<_S=
M56R`#Q&8[UUA](6&F]0A3*^]5QEG;99-OK$&CRJSG/'&9=`E,\!GG*%1;G":
M)5E84Z"E%A5O/JDE54U#(843GI7Y(&%FI''L0`G$Z52$4U9Y&5A!@>M8&V'%
M^:6EPVH&8(/)QEEM&M=:S*.^N_;ZZ^+"(JBTFYE-,9<="-$7%A1M24'Y&&EL
M29C%HM[5%6*"J:E83_`YU+2VW-+1UKCEGILNP>W&'>^\"D?=$(]#O`%''ORB
MD1`*0QAE+KIB@:!%&F:8T0(18=B1&10!6S5'R,0U[T+=%[W6D*K4\0B"]MQ7
MUSQ4=;A!.4*:.J0^J+$CE:E`@*J"!24,9"!#4YZ"N-QY1@UU:`,<JO*=KLVA
M;J!)D)5ZMH:CN"DO/"I@_T"@)3E8)5P+>8P,7``#RV6G"7!Y#?\,-I_Z2`8H
MQ%E(9FA6&DYY!!(A`&!.SJ:L$]'E.U0+`HAR$B'Q2><BM0K7',R2PH3DQ#%!
M"0X)OQ0&.&"%;T*"CAND\Q4JWL4IBWD#U0Q4A@+=I89EF`A?,@@:,81A#&N0
M8_ZHXI3><(D%/"H3$37B&"\V9TACG$FRVL"<O-@.*F6R"L,T\Y1AI8PY$"F#
M^/B"G5`A;B$0BM6LV@,F+<4E06Z((+CJTS2\F6%:LU,(41*2MRPY1$M6LAU\
MP@`4'`8R*(3LHI><(\8GWNQ@?M.-&B-CI^$HBPI9@,*&G`))T"1K1WRS(QUR
M6<O8@*`(=QS<+(^2!JHY#`1N,,N#:I?"`X(',#$@3\YFTIOA!(YR:$"60P3#
M&^8D*$"6$H,Y41.75C:D@W.`PQW#TB_8P.D@"6&DFM@@&:+920]?#%5F:,`"
M&.3`!NJ90PBT8P0WQ2E_O40,0@;#/BQ5-%R945Q4Z#(V$*`T(?'C&V'F@%"%
M/I$W;W!,3ZBR$[P\80HI`.`5+(.9F2FJ,R"XXF,08B:"ZH1-0`L2,8GDD$4R
M1YO<+*=&`,DW*N%3+FR8HG'"TH8ZY/)\!$+A00XXT9>N+*IJ>HQ&;M8ZNC#'
M-F[-:-_>*-8YY,%M%D$*O1J('[(!QRIGD-[/7$@0S$V134_\6UAJJ"P>5L2'
M(/C(!R8TA"80@0G4,<,<$E"$*%0A`3B(`1H20)#4'NA-[8'"%*`0JZ'4CII1
M`8TDPP*N?BV&M"4Y0@*2VP234$$@":C)%*K07!`,80HZN&X1CN`9(F!7NT>8
M4`*>(`7EQA,&LR4($5ORA)<@;IW,84,8\A">":4M"%*@@@X2\"`[1!<)GID!
M>J$+H`3(0+:TC:H3V';@RS3+B6$1,!I6=(0V&E4O5IB6`=VBRFE!=PP2C"X3
M/".#!,]+#6X2H<$$0P<V,8PJR0K"B.4%%-`%)0A(@*X:Q#!>)A!AE@DN`AZ6
M8I_JI!-!"<F253.<*H.M$`;B[6\"A(`%SY3VM+9-L&#ZY;;Z``@$5/Z3=4V+
MVNY=$+I2'L*,:=`C@JA9S!R%+A[HDX#3=I<);<8+$\0,Y4,I0&S;G#!_W^!?
M&7MF"U3N0H*]JP-$8Z$+10-0&1\97*H,5TT'\7)0=`N%#X?8T""``1'RJ8`$
MJ*$,"<B;_O(,W$@J[RO3&I@;5DI4?X*`!T.0@@^T(VHT)-7/"0`Q'$0<X`&7
M>L<)8!@>`NWI88-Z!CD@M:G!%6S%V($.K,ZTNMX$@BW`H`4YZ()GT(BJA*`'
MG9<2:$:AJQ5BAYH(1DBO@V(2EBT$H05&J%L+S`!IQZ1F-5VQ$V)@(UYANYL&
MLM4QCY7-[%(;'-0TL(&TU1"&9,_22N)E%X]!?8-L;VG;R;(WOL4-'(:8(2$G
M"(*?VC.#(*#!4#W*<\LO`RA!Y<!/*P!!#/X4*&A?)N<QF!"YZ;!?C;M;PJRV
M]K024I.;).'<A.E7@<RB/S&H&[H188.[U9QG!)(ND>3D4D*B3N3VU`$.7JQ/
MU=7=6S&5.N9NWG/-.;H7L,BA,EQIZK83Y(0G=!K8""1#G6<LXZZ/84UME6]<
MUIZE9B=`S9[ILZD9YJ,V<CW!@*Z*;\+%^+!PS[IR#Q0-T$SH_T9>!M(N<(-I
MFX0%BTNVS9$#A$.-^A4]H2]_2<@0,GU'HK4G;6E9"W0]3I'#A&N>(`^*G?>"
M>\"TIXF4\[P9AI_@\.1>*+,"5U<",Q@&&9\J*&#RAI^\@E\G8,YR&/R=!7(@
M->\7_8]?<Y[+$C:JO1E<=+A#&;;_YIJ3ITS])WH3PG!6LE]`,093A@5YUE]T
M\CCUT1X,1VFN-DE6LB4Z%F*`AG%^IFIIL%]2%@15EB-#``/&E@"JAV`$T7H,
M!GL/%GTB.&$@D"A!M5<@0`6QYB\]07T$(6.ZA!^KP7TM)@=!H5F]=598Y!Y$
M41%746LZ:%/-E$-W4012(`7DI2%64`1[1CJ6@D2>1U=@=1G=Y$)/X&.S9(#P
M86#HE6`!(FLK=6$@('ZJ$@,ND!ZC049ST!8:,Q-'AE:]<0=-J%#K@D.ZPF(N
M9CL1<C!Y@8>*<0(%(@<5532!*%!YT(2VX7U#14)R$!'U@3CK0B\-4TYU`2[-
MT16>H5;IA(F:V(2<.`>>N&U#,Q@N!%ZL=1)3(%XMLEQ4@%_/I0`"H0$:`E-%
M3D1#3T1%+D-/30!'````(A+)D-.^1P```+0PS2$\`G(]NX$`L00RTHH'/`UT
M*SPP<B0\.78,)-\\07(:/$9W%BP'+##2P`+0@/D`=0:T`LTA,M*`\01#Z\^X
M`$S-(<T@&@A314Y$0T]$12Y30U(`Y@```"(2VWTF#&<!```,3D!,*>*$R)`G
M1(JX.-BD@8(@#IL\L9)`"!86('#$B#@QP1`F&&'0<(CEB90$1$""2,F18A"5
M6RQV<3BD"90$+T,2<:BD2`(8,6;@H&D3I\H9,'@*^1FT!M&;.4',R*'4)U`9
M&Q\6-(J1B)&G7$'0R*ID*=`93A74A*J2A@V>09BB=3BERM*H,&[0M1L6J4,I
M3YB$_>@P"!$B*%6^!/LQ9%(%2ISX#"JC)4XD(2LK2.*$2@*L)$TF[LHD],G&
J($0ZY#RD(A:>16/DM1SDHM@A,!YS]@Q:P=\AKQ7,V*G@BL,H#AUJ`!H`
`
end
END--cut here--cut here