Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!apple!sun!swap!page
From: page%swap@Sun.COM (Bob Page)
Newsgroups: comp.binaries.amiga
Subject: v89i120: ami3270 - ibm 3270 terminal emulator
Message-ID: <105708@sun.Eng.Sun.COM>
Date: 18 May 89 20:02:38 GMT
Sender: news@sun.Eng.Sun.COM
Lines: 192
Approved: page@sun.com
Submitted-by: neabbs!amichel@nluug.nl
Posting-number: Volume 89, Issue 120
Archive-name: comm/ami3270.uu1
This is v1.3 of David Jenkins' Assembly language 3270 terminal
emulator. Based on Jez San's Argoterm, it was written to provide a
way of logging on to IBM mainframes running a VT100 to 3270 protocol
converter; the two protocol converters Ami3270 supports are SIM3278 (a
software protocol converter) and the PCI protocol converter. Most
other VT100 emulators have at least one - and sometimes more -
problems. The usual one is scrolling of the display when the bottom
line is reached; this is a problem with SIM3278. Ami3270 avoids the
annoyance.
# This is a shell archive.
# Remove anything above and including the cut line.
# Then run the rest of the file through 'sh'.
# Unpacked files will be owned by you and have default permissions.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: SHell ARchive
# Run the following text through 'sh' to create:
# Ami3270.zuu
# This is archive 1 of a 1-part kit.
# This archive created: Thu May 18 12:54:59 1989
echo "extracting Ami3270.zuu"
sed 's/^X//' << \SHAR_EOF > Ami3270.zuu
X
Xbegin 644 Ami3270.zoo
XM6D]/(#(N,#`@07)C:&EV92X:``#RH&```9!$```$```````````!!;6DS,C
)#X5\8W`7'/__9,L%5``3PRQHJT0.?9
XM?/2!A1]"B&S8X8<-_D,B`M2<.%]]`MR7WU^,##%8`+#\YXF/#4(C))$APG/DA
XM8`)`L&2#$$S`!P"P`/#$"%.&6*4#4@)0@$J7`1"$/@S8\Q\149D!)I(!!/8C!
XM!$09-($(V$2!S#_\L`D&ED4"X`"2`!B899-^=ODE`B.FJ1(%R0D$#*!PQ"G0G'7>F>=@`,#1:`#P^*EGERLQP2H`331JD$935OG$K
XM#%,N```'_KGB#PYA`+"`-<$N8$^F$#AB0E$A?A`L`@8\BP(4/JWQK`="W"0`B
XM)@O^@U`F(&@;5E!X^2J,"('BR(@9&H`0`#`X(J(F`)*X"Z]^:@H@#1C.!)N`0
XM),'QP8!`FTPU@`LV?7N&&0GC),89#`PLTAE82-S`&5*`=-`#8\SK@\0)F('I#
XM8`\8D91!!#SK"!@"R2#Q'V9PD.D#2ISP`@87((H`,\`'`#(K
XMLP#XBP*)`G@@P&Y_N">Q`V>PT_`##UL@L0)G>&.Q&0IDVY$8+`-@@L0;F.'!=
XM@@PYS'9'7^A,`1Q2^`0&&*I<_<54`8B"F01V9SIW!(!``$#='8&A<4(X@6$&Q
XM%B+<-+<`@?SC+6B!;-`#;P#\H\;;#F,F@[:4>/<7'4C.30=A2D60B>%2!!&%J
XM,O_@0T5Q7?GTA=B-L_P/"AH/D/B\4D0^&QR46YXJ`YEO`0,`4_UC@.BDFRX`,
XMZH.ISOI?KL,N.^WX6($[[P_L;C?+_C"C<82-MP&`/\"0;W[B#.2RP18QN$\8<
XM'&;`0#U7UL->1YBP.@H4!0'=.]SW:F>`K22`*^C#0_WN!P/]S:U___M+Z8HCF
XM0)Q8H8`'3L9L=`!T+P?3S(H``VB)74P0&$`Q'A`O&!A?'ICGQW>Y\`5,C"I
XMTQ$.=KAC0!X.P!$-NJ\?7D,,5Z;2#P_8`0`V()U6`,C!8!'`'2SKAP#N8I[OC
XM@"`]5O@/(QS##W6(``@CH`@%9D.'_QBB?@9A'`7HH"9^.",F,\%)3:JUDY[0F
XM9`;\>%I'T+`@@SS@$%:$!;5H8D53L(P?E`A6`>0AL1^8`0*21(?$_,`W;CQ22
XM#U(3"`S*$")E2"P'8A"(*B1IC$W.BP<"B-`#-&;(,9S!`N-@`K)<$`1X[$8.\
XM`I`D$AZ)@W+HDF3>Z.4O4^8E&3Q2!.Z1I!]BB1,&1`@!)K$B/1ZI`%IVQ):X7
XM/*9`("`$90(`F%;4!\OVH0YK`L``9B"`'`:@.'<>()[P`<,."6!,9!G`G%:$P
XMQCJ!X4V'?PE.%XHFP0C)(1Y06!2FY`!#5P*@'F1`0Q"D-@0*
XMU(93G?+4#%!@@'MP(!0S(,&*GI`8#,Y@`S`@P9U$F%=)48'2':2TIRI0ZN&$_
XM,I5]8``,'A"K%,@*@'TPP(IJD)@4RIHTH<04`/K`AUK)Z@`K.D&N9[`H$4"JY
XMLP<`868^F.=#M=$P`61B*OH@1@`AP`L`;"("NPF`'8+Y%TRP3!^LL*("/DN*Q
XMAPJ`+`=01[`$(("I-$TR0##>7PZKCP1@8+4>>*@KT!:[F&Q*+0G#H(#$A)
XM3*4`5)!8$8*C!XE-(3@ND!@4@H,#B1DA.!$3"!."XP`P>"@E;<,:Q!/K)9'
XMHI#?[-:WP$`(T'&,=X[U'1W"T->_6(%E^;!'&!`J$%W(]FF'<8L3W/$/;OR7"
XMM@I01+`"``_4/%[#G)B+ZH
XM#RS.'",ULPD6O?(')MAD)%_-F4E.LC.;E*3G-_W'!X`"QI^W#!CK`>(X7&3.>
XM?\0`9@%TV5=BP(R[7%`<&`19!`D@`;,&T`Y"/_H?XHA*D#V]&`,7AP9QCO0_"
XMW`4&8B#A'*DB`0*$,`@E8""P4A@$&/!!:J=`@PG?P$F07_T/?QP824.3`"!(V
XMD(!E+:37__CU-_[`H3H0VQ^!QM5`=C4")"QJ!$,```GBC`-@4_O2Y_FB<)#T=
XM`#*$B=#-^=VPSU'L;$])>!QHU-"^G:40B9O0)@4,*2&Q`&K
XM8"QYM+I8,@C`0(M7_P';;XJS"810.&V1X04`8%-?^LT0$OQG.!\PMS]$;6UZ:
XM8[Q!8-`VOF55P&0=L:'(>`MK"@\JN_7"!PT'C8M<4&D'-*%
XMWVS@]T+$?7(0I'S:_I@WRPZLZ0;1`]HT`/8[]Z(!W[F!4W%F@6.$`@9#!%GD&
XMB;>4/Q3AHCK,72`C$0@9)((.@9S`<`$P!"AP(H3=8,(2@"A`/<(!@!UH0AD`/
XM(#8@A$"$,?V#'!55`A#.X`0U@(`(0``#!61/>]M[PPX(V`L.U*``(@!"`D5I4
XM0;``P`,1@$`(0H!$(-9``"D(8=?0"(02:DH`)1`!8C(0P#\!`(/IV3Q#U0@`27%$"UP'
XM!<6P$PS`$"M@!@+@@!7(?FW030R1`V[0?40`!NXP!8@P!43P`@C0'220`0+P8
XM&P\P!4&P!F$S"-8@"%&0#'@"#8,0!3B'=.[@#S+P=IBHB=PV2
XM*''WB4(Q8*((>:#H#R!`!F\P!R[`!FD0:6$@!ULQ!V4@!VD0!FS@`F10!G:0\
XM!F-`2F/P!FXP!V_`!F4@C,1HC*0$`/<#`I9E`VY`C4_@!@V0$)L``SLP`S.P=
XM`S10098%CC,0`^1HC@>Q%`KQC@\0%#Y&B?18C_9XC_B8C_JXC_S8C_ZHCP*QI
XM`4\`!0T@D%%0D$\@!0AY!PB)!PB9!PA)!PA9!PAI!P@9!P@I!P@Y!P@Y!0C9&
XM!@C)!@6Y!4@PDDO@;^\HD$U0D#&P`3*P`3.P`32P`36P`3:P`3>P`3BP`3FPM
XM`3"P`2V@.1N@!QN`!QN0C0R!`0"0`2*Q`4V0!FY`!W60!G20!LI8B[0J@EFSIEG`I!GGP>V%0C&0``DI0!FZP!E!)BPW0ER!`![VXEFX`C"!0!
XM!FU0!VP0!G3P!G(``F;@F2`P!4G0!&UY`SC@`H^I`$9@AV4PF&$P!W.0!F?@X
XM!FV@F'2@`X]I!#'0`C$``SIPCU#`F[X)`ZJI`%.`!FE@!G0``L0I`\$YG#'0;
XMFS$@`\>9G,O9G$8P`RU0`]$9!+TY`]>IG,SIG#80G)2(!$_0!$4PGMGIG#>`%
XMGB!0!$]@!.Y9GD:``_*9!$Z`EU)`!?>IG3D@GT(@!440!$L0H,[YF^@Y!$QPQ
XMH%)PG%`@!V4@FY&)!F4``DA0!$P`!:XYF*'YF72`H2`P!&_0!FT0!FYPF$V@/
XMF'5PG`+1FFOPFDTFF[1IF[BIFZQ)G<`IG,3YFPKZG-')F]1IG8^)G?C)G=X)5
XM`E``GBT@GD=*GMIYGO2HGNP9I/%)C_1IGU'ZGOFYG_V9EP#:I?@YH/18H`>:G
XMH&2JG0Q*B0X*H<>9!6]0!R"0HH,Y!FCP!K.8H68@!R=ZH7S:C&SP!G<`E6<`R
XM`F_P0E:YC""@HV$#`BU0HLIH!K19!Q0*J)&IE
XM!&%0!XW4`\
XM!\Z(!RF`J&[P`F]@!F;@J@H0!;$:!5/9G".:!G,``G#@IV>@E6VP`Y$YF5"YH
XMJI]:H;.IC,XZ!;%:!)FYF9WYF2$ZFJ5YFCCPF!X:J>JJF9PIFN\*!4.0!+L9E
XMJT:@F6SPJ6-`H8JIJ\/XF$P0JTP`E1DJF"!@BVZ0H6VPJV7PF/3JC+&9H;SH_
XMC&/0G,J8HIE9+)`HCZF09*!54@]
XM!4Z`LQJ+LE]$K20Z!V%PFR#P`W;YF$-@J10:E2#0MJ@*MQEJK8UJE^_XCI,!]
XM`,B`DG^!(5\RN9RK$(8#`95[N6TS`.Q@$$X`CV@A+#1@%`Z08CV&`/*08NJ0&
XM8D208CX@$`<0=T53-@?`!+AKEP=@`0)A`)WW3M(PO)?[3EDR/<.K!L.;2N^DI
XM!<-+!<,+!<-K!,/+5%YB#`T!(@5`"@VQ.E[B!0VAO06`+EZBE%XB`0VQ$D+1=
XM8P1@#XZB#8YB"X[""HXR>D*A"8[B!X[BO$*Q5D*A!(XB!(ZBO00@`XYB`H[B+
XM`8ZBO@3`OD*1>0.`#Q)!#A)A"A+!"!*1)0,P+P/`/@*0*B&BP"'BP"%B``9A?
XM#@8!#@9!OP)!#0;A"0:QERUC$"Q@$.XA$.@+`!I@$(:38C-\>0_@O@Y@P7Z".
XMP7XBPWX"(@Y@"`+A`&;H)T_D)U80Q3;L`#OL`#_L)T',`/H@$`P@#F+,#&(,-
XM(@R@OPS`OZ`A"6(L"&*,&:`Q+PR`!6(LP`R0PZ"APL(2N\+"PL)RO,(B"P*QG
XM`*I0R&R\`-(K+*4JL`-Z`>;`G$AHL$IR`>8Z`>?XK4
XM$JFK`/.B`'8L$@*L`-XF$H^L`*LK$I&L`':I`!*L`.Z;`#V6`("<`-Q@%-9@N
XM%%7R&)V<`/(8,D9!O8_ANX_QR`D0RPG@`D:Q1H_!/@@`"2FF""FVR`A@O46C5
XMS44CCP9@EP;0NN_DO@;`.`4@OUXRNUY"QEZ"#0TAR`6@"PU!PUZ""0W!P5Z2!
XMC5ZR&5[BS05@P@6@QP1`P@3`Q`3@#(Y""8XBC_(D$<(@$?8[$.0[$`8\$#8@>
XM$7H\`!P@$<([$.8L`/;\%X3\%_C[%VR\0@@AQP*P>7]QT0)PQ7_AS4J($-HKN
XM`.HK`!+#6A72(.[0($H<`)D<(O)<2@WB"Q+2((<<(FP<`&X<(N`<`'`<(GK0I
XM(.(;`/X<```=`*D<``(<`(\<`'H<`"$=`!(#`$1&"P8!O@*ASP)QU2H%`&4#V
XM`(N.6G.H*$#$@15JUBUG)$3I@V(-F%4(@9!IC4=K&+JX'1K1G&9%
XME'>#9.6/2P*$#7@'&_P!>I)%$'-4$46L@A'%33COU]-I\M-DF1A@E<
XMN9497'J`,$5+)[@6A!QGO(&33BZ`0-@=L>&DP'@WO?'@&VR1,9."=^0&PAMFO
XMK"3;&72=<6-30YDH1!.WA4%7<;7=!X(<=;CA1H\)@F`%%3'``-%0"ACXXE"8Q
XM^829&W;D-.(.Y=UTAXNPB9C=&UXR%:8<(WJXD)9SU`$''$31,8<"82BF81)-+
XMU(0#""@H.`>.=-3H9YI)J\U41YT.^@H"@OC%-BJ4.);9VQS,V7B'8T!2)H:(0]G&!EUE!
XMK.B:8HPY1@:9DR&(H(+,-F>;>.1-`:B@)1;H48)VO-&6:Z6VY,8;>;0TQGL#-
XM)A#MB_39AB"*X^'4%%T)DF12LW(DZ(9;"%JJF!E$S30';J,&+)EC"JS'G1METD5''>.!=RW-.9G!6!DZM"AL&S`RJ0A!MP$
XM"/>:U,3FY%^``6J4@,`VB3?J36'P',/1?4<=(=0Y-.5F-]9E!N8
XMK=T]!AL5
XMU"&C:]:BU-(:PAK6U+INJ/P&GR#8T5,=KH,`T7EO6`/"*#.')'4,+V2"2.0&`
XM**LRJ.U'*I-?]>JG`-9H)2=WF$.)4H"\*[6L^.:5A<27!X)MJ!X`16@@$.3L"GER'HR
XM/(;A#U.:UIB6\"B3V',:*E,Y-L7YA$>XDJ&"`KD[!90O9-UJ76S@HX!+0NE[[
XM@R.<@`QW!7))#T+UP8RQ>D8=%E4E+H8\"U%JUQR2@*")/_Q1F110RC4@Q@VF[
XMRY9TW#"^<]+%B?9W25EL[L!`>_KP#@IP(!PH94CA:/$[AAF5K
XM2H*T3S,R48V;DV=3;&*4,NG0F?2Q30TZVAE.A<=C
XMTK6DK&PE:R-[E!SJ9[LKC$>-?F-A4,NC@*)FDHIDL.*U7$.7ICY5.63D9WD4K
XM4\^A9DX/4$*0"762L4T$7`G-$8'F;.(+7SG:8K'5/FP%-KRA"DI;+KSE16R
XM!S\5DJ$B%&4:6G>CD`$R,C22ZV[8QI(\U(HNF)A29$F8FX%5:\QED-H:T+
XM;!FAHME",9Y:,C5_7.>PEJN6[+%)I\LB
XM3"<)58EPFR),Q7Q.1#HZ@TPL!"07^2M0#L%!,#"ZIC`BRR9]'&(+HXB`YY8
XM,.%/D!:R$ZQ2RJ:J$@Q%N('A3`G<2%L_O97AAUHQ,D)WA*G'N4I.)E/MH96`!)ZTEL[-0L@"FPQ@Q#4(D/"$)A3!V<3.]0VDU
XM780G&`';Q38"#J2=!"=,H0A2H`*XQ?H[`:C^SX"$T!6JN&&?+_$3[&A3EX60Q&C@DHY;4'!G=
XM]8%`"I$I0PHT0@0S[X[/3H/-GQ4#S_O`IPA=84)V'%2$QKCHNX2:-!MR1`1++
XM.]`L3'G!(S5"A1V5<]J4%IE;C,!CWO@<#P.*0E>B0#17NF9Z$:)7E7FRYY)-`9D)A^
XM[&5?))@QE83X9$K1<`>*4,!#=[M'TC44;@_?\0`?'(=D"OPR'4V;7MTB@2Z_0
XMIUD-MN1[H\%6-D$NQ0U_8IJ2"_]8AN<)48'_A&"U!Y%W(,C9YS1>*QV7BO#PT
XM(?+E,^_3(!T9+3L,/6M<$YGHA:8O26N,RE+D8)"-RGQ/T"````````/
XM`````````````````````````````````````````````````````````/R#_
X``
Xend
Xsize 7020
SHAR_EOF
echo "End of archive 1 (of 1)"
# if you want to concatenate archives, remove anything after this line
exit