Path: seq!spell
From: Lutz Vieweg <lv@muffel.hotb.sub.org>
Subject:  v02i016:  ir_trans - IR Transfer now at 7680bps v2.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu

Checksum: 3658098401 (verify with brik -cv)
Submitted-by: Lutz Vieweg <lv@muffel.hotb.sub.org>
Posting-number: Volume 2, Issue 16
Archive-name: ir_trans/part01

BEGIN_RDME tsend.txt

Hi!

This is version 2.0 of TSEND & TSERVE, the IR-Transfer speeder.

Now the transfer is done at 
 
                     *************
                     *  7680bps  *
                     *************

physically 3.2 times faster than the OS does it - but the protocol
is still slow. It really saves time to setup checksum type 1 and
of course binary mode.
 
Enjoy it,

Lutz Vieweg.

END_RDME

BEGIN_DOC tsend.doc

TSEND & TSERVE
--------------

*** New Version 2.0 ***
* Now transfers at    *
*       7680bps       *
*  but still FreeWare *
***********************

IR-Transfer at 7680bps

written by Lutz Vieweg
  Fido  : 2:247/30.20
  UseNet: lv@muffel.hotb.sub.org

Though HP wrote it is impossible: These programs enable you to tranfer
files via the 48sx IR port at 7680bps (the OS only allows 2400bps).

TSEND is invoked as SEND, but it always uses the IR port, and it 
      cannot be given a single global name - please put a list of
      name(s) on the stack.

TSERVE is similar to SERVER: Just call it when you want to receive
       files from the IR port at 7680bps.

WARNING: You may use TSEND and TSERVE on your own risk. This
         program is not guaranteed to work properly under any
         condition. The only guarantee I can make is that this
         is not a virus or a joke.

END_DOC

BEGIN_ASC tsend.asc
%%HP: T(3)A(R)F(.);
"D9D2078BF168BC1D13A2D9AE1C9432D9D20E4A20A000020200933A1B2130DC4A
1EB6E2FEF30FD5500F456E5E40D9D202EAE2CCD20930008FB97601BA11003041
5C01BD010030515C08F2D760142164808CD1B034CEE294BF5876E2D9D202BF81
B2040BF5E253040BF5E212040916E2B2130C85D2B21308BE40D9D204CDD27C0E
2D9D206A4231DE40B2130B21306A423DA9168CFE279470CCD20130008FB97601
B0010015E08089315C08F2D760142164808CB21302AD1"
END_ASC

BYTES: #1DA2h 190

BEGIN_UU tsend.uue
begin 644 tsend
M2%!(4#0X+46=+7"X'X;+T3$JG>K!22.=+>"D`@H`("``.:.Q$@/-I.%K+N\_J
M\%T%\%3FY02=+2"N+LPMD`,`^)MG$*L1``,4Q1#;$``#%<6`+WT&01)&",@=8
M"T/L+DG[A6<NG2T@^Q@K0+!?+C5`L%\N(4"082XK,<!8+2LQ@.L$G2U`W"W'<
MX-+9`J8D$^T$*S&P$@.F)-.:8<CO<DD'S"T0`P#XFV<0"Q``40X(F!/%@"]]=
)!D$21@C(*S$`8
``
end
END_UU

BEGIN_ASC tserve.asc
%%HP: T(3)A(R)F(.);
"D9D202EAE2CCD20930008FB97601BA110030415C01BD010030515C08F2D76014

1DE40B213017D002B9D26A423A4AD2441937947080381B21305969"
END_ASC


BYTES: #9695h 899.5

BEGIN_UU tserve.uue
begin 644 tserve
M2%!(4#0X+46=+2"N+LPMD`,`^)MG$*L1``,4Q1#;$``#%<6`+WT&01)&",@=]
M"\,W+>\_$*@#="K@0BWNTP(Z+8-$L1(#T'3@Y02=+1":+3&5T]D"=4%`>%/1@
M;Z`2!RLQT-D"KC11$E$K,1"1`@P,<-@$3M?"-RT="W/I!B[4<M('0=3R_@.=G
M+7#I!J#3<M('*S$@&@>TXO(]8YTM0"0#J>`RG"UB(C2989TM@`8%3A&V$@.AE
M(C2989TM,!%"1#+`HF&.)%1'0BLQ\"="O!G6V0*G02";+>+J$IHM*S&P$@/E=
M<?#^`[/:LE1EC]?2[BT%5?9X+4'>4BD#,0W#^F!$5?9X+;3?LDUEC]?"U"WW@
M5/9X+9C>@A@#Z53FSV.=+8`E`VP.LYQAI=^R$@-+#R8&9:#O@A@#'?#B+2K)W
MIW$,+LL95J0M/DW@Y02=+9!W&#$R5NQC6#+0V0+;<Q!!8QTMEKX%L"LF+`-E_
MHN&@%;`KMOM@@0ORS!6P*S8B`UU#Y:`5=B-F-V+<Y%(I`^4BUD1C1#*P$@,K\
M,8#K!,3=LIQA!=[2V0(Y0!&)89TM`/HNW.1R#"[13K`2`V1-8.EDATT`NV+E(
M(I;L+]SD<ND&V=-RT@<K,7#5!.\_0*<"V=,"TS0K,0!-!Q$I$,$`ATT`<RUK,
M`3,9!7$-\#TC)LOQ<2/HW%+](A6*T8087DXPDRVX3M#9`@B#8<X$H._"32XKI
M,7!)!TK:TMD"33%1:1-$D;,2`UDMYE9E'N\BFRWBZA*:+>`95J0MX!G&MBW+=
M&7;`+5@R0)$P\QEVP"WO/Q#J+QT+P]P")0"`OI\2%G$1M$$X$1/4V$-1L)QAD
MFMK"<&+M4(`8`_!4=KD#PC*@4649-G:/8;7^(DYEESL`GF$OW$(D`\L9)L`MB
M6#+P706(,0"L`W0JL#\M;=0R22TK,0!-!UY.D'`ON$[0V0((@V'.!+[D`JP#P
M*S%P20?@&5:D+>`9QK8MB#$`^BXC,F#D9!D]P)MAG2W`H@()`*"C8#=BY2*VK
M$@,=\+*<847:@B4#B#%`BB.M&=;9`GX/9OXM*S%`>BX?&=;9`H5SMIQA!]RRU
M$@-[>8".89TM8'TNRQEVP"TK,0!/91[OLIQA(]ZR$@.X3M#9`N9,@!@#&!H6.
JUP"RV4+6!,?@8DHR2MI"%#G13K`2`W$-()LMIB2CI"U$D7-)!PB#L1(#E
``
end
END_UU

-- 
      *** EMail to:  lv@muffel.hotb.sub.org   ***
      *** FidoNet :  2:247/30.20              ***

