Path: utzoo!attcan!uunet!samsung!zaphod.mps.ohio-state.edu!sdd.hp.com!hplabs!hpda!hpcupt1!hprnd!hprpcd!!stan
From: stan@hprpcd.HP.COM (Stan Witherspoon)
Newsgroups: comp.sys.handhelds
Subject: Re: Portfolio serial comms
Message-ID: <18110002@hprpcd.HP.COM>
Date: 2 Aug 90 20:34:53 GMT
References: <871@iceman.jcu.oz>
Organization: HP, Systems Technology Div., Roseville, Ca.
Lines: 179

For all Portfolio users,

Here is a shell archive of Xterm2, a small terminal emulator that supports 
Xmodem for the Portfolio. I have received several requests for it, and since 
it is so small, I figured I would post it. Enjoy.


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~  Stan Witherspoon            ~      Disclaimer      ~ 
~  Systems Technology Division ~~~~~~~~~~~~~~~~~~~~~~~~
~  Hewlett Packard Company     ~ These are my         ~
~  8010 Foothills Blvd.        ~ personal opinions    ~
~  Roseville Ca. 95678         ~ and do not represent ~
~  Phone: (916) 785-5071       ~ the views of anyone  ~
~  RF: N6SCE                   ~ or anything else     ~
~  Email: ucbvax!hplabs!hprpcd!stan                   ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by Stan Witherspoon <stan@hprstw> on Mon Jul 16 15:41:00 1990
#
# This archive contains:
#	xterm2.com	
#
# Modification/access file times will be preserved.
# User/group owner information will be preserved.
# Error checking via wc(1) will be performed.
# Error checking via sum(1) will be performed.

LANG=""; export LANG
PATH=/bin:/usr/bin:$PATH; export PATH

if sum -r </dev/null >/dev/null 2>&1
then
	sumopt='-r'
else
	sumopt=''
fi


rm -f /tmp/uud$$
(echo "begin 777 /tmp/uud$$\n \nend" | uudecode) >/dev/null 2>&1
if [ -f /tmp/uud$$ ]
then
	rm -f /tmp/uud$$
	unpacker=uudecode
else
	echo Compiling unpacker for non-ascii files
	pwd=`pwd`; cd /tmp
	cat >unpack$$.c <<-'EOF'
	#include <stdio.h>
	#define DEC(c)	(((c) - ' ') & 077)
	main()
	{
		int n;
		char dest[128], a,b,c,d;

		scanf("begin %o ", &n);
		gets(dest);

		if (freopen(dest, "w", stdout) == NULL) {
			perror(dest);
			exit(1);
		}

		while ((n=getchar()) != EOF && (n=DEC(n))!=0)  {
			while (n>0) {
				a = DEC(getchar());
				b = DEC(getchar());
				c = DEC(getchar());
				d = DEC(getchar());
				if (n-- > 0) putchar(a << 2 | b >> 4);
				if (n-- > 0) putchar(b << 4 | c >> 2);
				if (n-- > 0) putchar(c << 6 | d);
			}
			n=getchar();
		}
		exit(0);
	}
	EOF
	cc -o unpack$$ unpack$$.c
	rm unpack$$.c
	cd $pwd
	unpacker=/tmp/unpack$$
fi

echo x - xterm2.com '[non-ascii]'
$unpacker <<'@eof'
begin 644 xterm2.com
MM$J[8 ZY! #3Z\TA<PRT";I< <TAN !,S2&\40ZT";IX <TA^E,&N PUS2&)
M'KL#C :] P=;NO\"N PES2'[Z'$!Z*(!Z,0"H",+"L!T!>C* <T@Z+P Z#X!
MZ_A&86EL960@5&\@06QL;V-A=&4@365M;W)Y#0HD6%1E<FT@,BXP(" H8RD@
M,3DY,"!*:6T@4W1R875S#0H@(" @($8Q/5%U:70@1C(]4F5C96EV92!&,SU3
M96YD($8P/45C:&\-"E-(2494*R!&,3U(96QP($8R/4-A<'1U<F4@1C,]5&5X
M="!396YD#0I#5%),*R @1C @=&\@1CD]4V5N9" B,"Y85$TB('1O("(Y+EA4
M32(-"B3HJ0&T <T6=/>T ,T6"L!T$( ^EP( = A0BM"T LTA6,. _#MT1H#\
M/'0H@/P]="B _$1T2(#\5'0M@/Q5=!Z _%9T'H#\7GRW@/QG?[+HI03KK>@O
M NNHZ",#ZZ/H5 3KGNBW!.N9Z T%ZY3HF@"+'AT+"]MT!+0^S2'-(/86EP+I
M?/\ 4E=0BSZY [H%  /7[*@@=/M8N@   ]?N7UK#4%925S/ 'H[8BSX !!^)
M/KD#Z"L Z!8&Z+@ N P Z&8 N@0  ]>P ^[H" "+U^Q?6EY8P[H! "X#%KD#
ML 'NP[H! "X#%KD#L #NPU!25[H  "X#%KD#["Z+/D4*+H@%+O\&10I?6EC/
M4%-2Z-'_'HX>O0.+%KL#N PES2$?L$CH! !:6UC#4%-14E"Q _[!@/D+=!VX
M 1R*^<UA@?I_@'7L6(K8BOFZ?X"X !S-8>L=D+$#_L& ^0MT#K@!'(KYS6&#
M^@!U[>O96+I_@.Y:65M8PU"Q!=+H= B*R+4&T^GK [D7!(L6N0.#P@.P@.Z+
M%KD#BL'N0HK%[E@D'XL6N0.#P@/NPP       %!345*!/D4*10EU!5I96UC#
MH$4))'^B10F+'AT+"]MT(;1 ND4)N0$ S2%S%;0^BQX="\TAM FZ20O-(<<&
M'0L  .@S!(K0M +-(>NW4%-14E>[@ "T (H' ]A#Q@< NX  / !T64/H80" 
M/RUU4$.*!Z(C"T/H4@"_RPJ*!X@%0T<*P'7VH",+/&AT+SQ(="N[RPJ*!PK 
M="6@(PL\<G0//%)T"SQS=! \4W0,ZQ"0NB0 Z'0#ZSB0Z2T!Z28#Q@8C"P"0
M7UI96UC#@#\ = B /R!W T/K\\-04U%25[0)NB0+S2'HX@,]  !U ^G2 +D 
M (O3M#S-(7,#Z<0 HQL+Q@8?"P&0Q@8B"P"0NA( Z!<#<@8\&'0=Z_*P%>BY
M_?X&(@N /B(+"G8#Z8P NFP!Z/8"<M<\!'4#ZWF0/ %T$SP8=>FZ-P#HWP)R
MX3P8=>SK9Y"[1PJZM@#HS0)RKH@'0X'[R@IR[[M)"KF  .B0 CH&R0IUEJ!'
M"C@&'PMUC?;0.@9("G6%L ;H3/W^!A\+Q@8B"P"0LBZT!LTAM$"+'AL+NDD*
MN8  S2%R#3V  '4(Z7G_L ;H'_VT/HL>&PO-(;0)NDD+S2'H00)?6EE;6,-0
M4U%25[0)NC@+S2'HZ0(]  !U ^D/ ;D  (O3N  ]S2%S ^D  :,;"\8&'PL!
MD,8&(@L D+F$ +]'"K  _/.JM#^+'AL+N8  NDH*S2%S ^FO #T  '4#Z:< 
MH!\+HD@*]M"B20K&!D<* 9"[2@JY@ #HN@&BR@JZ(@+K99#^!A\+Q@8B"P"0
MLBZT!LTAN80 OT<*L #\\ZJT/XL>&PNY@ "Z2@K-(7)9/0  =%2@'PNB2 KV
MT*))"L8&1PH!D+M*"KF  .AG :+*"OX&(@N /B(+"G=(NT<*N80 Z$$!NFP!
MZ',!<N0\!G23/!5TW#P8=>^Z-P#H7P%RYSP8=>/K'9#^!B(+@#XB"PIW$; $
MZ/7[NFP!Z$ !<N@\!G7DM#Z+'AL+S2&T";I)"\TAZ L!7UI96UC#4%-14HL>
M'0L+VW04M#[-(;0)NDD+S2''!AT+  #K'I"T";HD"\TAZ)@!/0  = ZY  "+
MT[0\S2%R Z,="UI96UC#4%-14H#L+8#\.G4#@.P*B"9+#+I+#+D  +@ /<TA
M<EFC&POK(Y!04U%2M FZ. O-(>A, 3T  '0YN0  B].X #W-(7(MHQL+M#^+
M'AL+N8  ND<*S2%R$CT  '0-B\B[1PKH0P#H3OSKWK0^BQX;"\TAM FZ20O-
M(>A' %I96UC#4%*T";I(#,TAM FZ> '-(;0)NK(+S2%:6,.T";IG"\TA7UI9
M6UC#4%-1B@=#Z-[ZXOA96UC#45.P  ('0^+[6UG#4+0!S19T%#T .W4/M #-
M%K 8Z+?ZZ+3ZZ+'Z6,-34K0!S19T$CT .W0'M #-%NL'D+ 8^.LRD(O:M #-
M&HD6( N!/D4*10EU&[0!S19T!3T .W3=M #-&BL6( L[TW[A^>L%D.@$ /A:
M6\-25[@  ($^10I%"70+OT4)B@6Z 0#H P!?6L-14E97N44) \H[#D4*=@B+
M%D4*@>I%"?K\BPY%"H'I10DKRKY%"0/ROT4)\Z0I%D4*^U]>6EG#4KO+"K0!
MS19T^K0 S18*P'3R/ AT#SP-=":(!T.*T+0"S2'KWX'[RPITV4NR"+0"S2&R
M(+0"S2&R"+0"S2'KQ+(-M +-(;(*M +-(<8' (O#N\L**\-:PU-14K0]N0  
MNE +S2%R2XO8N !"N0  NM8"S2%R/#W6 G4WM#^ZRPJY! #-(7(K/00 =2:T
M/LTAH,L*L072X(H>S JQ ]+C"L.*'LX*L0+2XPK#"@;-"NL'D+0^S2&P@UI9
M6\,                                                         
M                                                            
M                                                            
M                                                            
M                                                            
M                                            10D             
M                                                            
M                                                            
M                                                            
M                                                            
M                                          T*1FEL92!T;R!R96-E
M:79E/R D#0I&:6QE('1O('-E;F0_("1$;VYE#0HD0SI<4UE35$5-7%!%4DU$
M051!+D1!5 !#;VUM86YD(&QI;F4Z#0H@+7(@/&9I;&5N86UE/B @6$UO9&5M
M(%)E8V5I=F4-"B M<R \9FEL96YA;64^("!836]D96T@4V5N9"1#;W!Y<FEG
M:'0@,3DY,"!B>2!*:6T@4W1R875S#0I0;W)T:6]N<R!C;W!Y<FEG:'0@8GD@
M1$E0("8@071A<FD@0V]R<"X-"E!R;V=R86T@:6X@<'5B;&EC(&1O;6%I;BX@
M($YO="!F;W(@<V%L90T*57-E("(M:"(@;VX@=&AE(&-O;6UA;F0@;&EN92!F
M;W(@:&5L<"X-"B0Q+GAT;0                                      
3                            
 
end
@eof
set `sum $sumopt <xterm2.com`; if test $1 -ne 40685
then
	echo ERROR: xterm2.com checksum is $1 should be 40685
fi
set `wc -lwc <xterm2.com`
if test $1$2$3 != 701542944
then
	echo ERROR: wc results of xterm2.com are $* should be 70 154 2944
fi

touch -m 0716151290 xterm2.com
touch -a 0716151190 xterm2.com
chmod 644 xterm2.com
chgrp users xterm2.com
chown stan xterm2.com

rm -f /tmp/unpack$$
exit 0