51-15MAY83 -READ ME WCSEXEC DZCwEXECOR COM|,5OVERLAY ASMiOVERLAY AZMd "CPM VIDTEX software is a product of the CompuServe Information Service, all rights reserved. It is the responsibility of the individual who downloads this product to determine the workability in their environment. Due to the fact that this software is no longer in production, CompuServe assumes no responsibility for its support." vCSEXEC.DOC# h," !` @ HHfiS2X<>#dR(:E"a &㡔l4̳qR8m4&u6NOD"I! /& gsI xh:9q4y G#-G# pLH82 1ĉ$HD*ʄy:%erڍ 7{a rb /FQcn:I`)HrȚtIl5#Ƞr86+s 2';&Jve$! ʐ<:(HØ:!Lϙ`Ak+B˩EBT| (О(T' 0֜Y"$Ծ[BeJ<4FHB ֱ jY2y&d zP&% d7ɮWrA ^VKœ~3AHG*`'vKfeMU\H:cTt*`؇2v1-1 nfKtrlBLYIxbD"f4Ǟ@dBk9 !Ő,3n]Rɒv&zK"颲UeA>?ܭ fDl.h6x$t(]WH $6 ꮔeNeSB %xs"PjFY*՝3kޒ^!R ]jBEM*:#/2aIvX܅C l c!F@Zc FP+RO^w{bP5XjMKꍾ*e y; d.qqرuZӺ;(LgIyr%sP:*crR`ePr/JEl:/8]R_]@BIc!Ӵx9UwJr. Ϣ.j4]rsA? lr1.e)#OJR\ڂ|\!"$"IkCƫ0!aE#'aD0mqysDנ zM `xn7ͦ܏x.i<0/|}@.p0ɟTIAk:Pw>k%('3T\۝|i}3-26Ti#Bp  gB`-P42g+jH9$/cL0$N]5B0TwRpMt~-H hj2:wOXh28]X(Ɠ00oLYJ%ٚ6\_X@hW1@a+) m ( pe*Q<85+f՘3A6J~36Vq6Ϯz ʄbέ% tzamZQ^1wpy2#xdM#qz\fƗXDKxz3, i i/|è"0dKf%D } y=S,*~(C$=,ǒlJ. TJPy2PS=rF'rd|p44RPNIw!)Wc^Wfl18Co&]%A֎`Ɛ!S@pIDQ{-jw1@f>S ND #+  X(-e vS6II3!GnbED6#b+S),9x0+x2p)P<@464A5nĀX+H 65$%߉*O"oE4sDJy:cN1Xi{#$6Jy+LA9+u=Gqq;^σC ș*!75}9 r#euƉ3U_8%OX莉+%"78gs.H'!;p{o\cEA+Toq2ggc*8Œv 9QECCv%~7DŒcF2fEa eXep #cK4947)9g}z׭x 5);V߅93`q0aP@oBѩ蟆D'unOTkQG[cjhbRT\?Q"w rQ[p FWZ+wFedLD1w+m-3$VIHQ7bo8mR1pF1@jtG?KhؒQS-YA8 4f>#]/\-XΚ7&#s2fyg6iIS698a}9` ,#+`g"-flVPA]@sDO)ޓrdž.. J1Q"#`9/⹞a%XF|/H/Is?f rdb'o,Kmf|}Pffd67NNZ%Ii`E0Cj#xp1"b$-SASCJ449qqb$7]_L"9'A8jYUy(9QZ60uEɀqM@ҷ|3#w!mJ A$yJdzS}Z$W$WYgC"TQ|J*P$z| >c#1y'7Pi%R6bMr$Kc}}DE<wrl7z%09bUS"sn< r9!sP` Q qB$aR>-(Tkcvc!ԫNzQACOG06U6=uԴ1PJ2U"-)QNpWۣrΰp"g(;2Ri{j$21T!W\ue ^ZN `L Y@>AziUj| g#ađaGaDaaWѭj!{"#gb1Xv;J[N;rsc+1EWY۳!17hSb[R:lr;U82RV92yas׊+H~&h`\$X+{}^$PxՅy%ZV>Q9*;TImVhr%^MZby)0a]CmeH9 02Hl$D"7L\Si`nzBuv"0 #{+Ƌ\uosUi l/Za+Kx3$or2H2C1f(\ٳ'TrpzEX!:9ʬy%?}f6ۇ|9*hLƁGxI!A.dF\"kqDeҨ-s$Gd1|T 2UE\3w2qWz8* +Ub:,X)So2 3Q|ex׏&,BmB#iY<\0ŒJ%&,Q9afkN[RYVAI)Ēp Yq] &-؁l!r Tm}b^ !! :Ɛ I"K+jRlZˋ=뿏 +X۾OX+xS^Iޒ^2b:u~PH6?+$`?c1`-Yl1;4;X&-)+&w^"pe5[A %7@-´~%\7!#{`N?wQ&XR|3؄WCYB$MAJŚ=7ˉ=?bSFK!N^M(ѯ-M8漶Ϥ=$%2bUtukL1nJ/v%. 0!?ѯՇU5Z~(HA},"¯A5Dcx\?q˴\,|ɼ. 9)E|x+Kpg,/MH6ȞB)*`T`xc!h'i)])~UZ[WO &:Q10AaևY]ڶPDbD?b:=d}qVkS5ePl_]/ C"P (C>0>O.KtZ'mCK-0ޱi;o^D@pWxsBta'9p0p,E^< s_w&cerpP@Sv/p]RH/dp'`C߅i !fS3&% @I0P@OSUvMBG6H4P-޸' @MoOh9  ^[}Nr9%ϸu8([ߕ!vd% D,Jq}9$@YNH+6hO]2PiEhP/_+O~`E@E`TP4V5@QFAoaQF|R|J+O N'.I];l Ϲo}oWT7`fNU`_ÏaS2By6u>2\,bO?icY_Vr@oVOOx!1OO\m?Om?qߋ___\mQ/`AI|oDpE?ҧrpr*Tn`;rˡ4,\/do!߻#򑵍hm{,VIǍ`yq&,$8N5܈(?'u3ҷq.y)@S,H1'AZ<4,|c1wp53P4%^Er,`'aG-.8).^#㕓XgJ #. , А1'"@$%+3q22@qX KWVT{3B $4S$Tb0)H?;8;sQ %@>#9n n g(W[oY䅯ٟlO;i=VCЀ ?`E`[CeȟO"mߎ_6/vِ?㥮~;_gvQG?,\/ž% }Wgy ߧ%?ٿLj!s[z_+윰}򑵍hllcN(@B%,;438=2?w'3Bt9’Uk 6WneL'rNuPjKbWI-siiC|htbЁB'2?ޠ4&O,TހҟJDo~[yaNm6W_#.?@OpNADjchSQNLs/PU`O>RSB<>#D)#CC\‘;0Wh[pH˧:̨c"^MJ\~b`bL)C̟J\t{_Eg(qbE u%@cGF<zrqaנs&uZr(3u:?+j5Obja^zw ˵gtP5F\3'3Ba=ӵ4碉L o ja-+:p(cF{Ne]%9!RERpc ̻:^,P--%+5ӶBeE!$G rrCZ6i-~]I*X+d'iGc?H.q3L-,zy!r(G5/RA6e)uWjiprLIⶩhXw9uT1Qk(kj;+/V"wN̻xR^EBrX60.B /@pR8iGO]M4Ӷ{N(WTuAAQw+/*n/B#&l)aWܒ 1썎 65B%2+JdpOAݎo}SYkL@Rx7kx@˽⎷s9aTS8 8 n8BK+֞_1_L˞V`3-4ORS+k__{(z\|b0EM: z,3w:E]oKz-y`C3+k_B[ɞ#Ul^1.NJYb+2MpDIJuU"J䚷֒/iS_$%w7 ld)@FhxHzd?~pf {ѾXO`Fj(xpS?03Y5=i%x;f@Cox%I&s9rJS}S!lk \kt5=iw!B߉94QqZ+ ӖQсm>L#b "ndZ#3H&CR_sҶ}9dBx%7+t930NԿ{DA乄YNJ\|b0nKQ~T_1zQ(eqHA]/%g4svv92{zM@$:,e|b.f2# Jn ;6FD)~Vql60.>1|mHyKpU6(O<)i*ELV4ǏjGĩՒzx]?3oDqHjr;A|>|bAw9cD 8#&298)95ai,w`S$ߡ1 r?/V-e6;Wi4pD4e7KhyUzb1IC0wɨbYySr0Ag8E=0zwzύJ?eHM>Uw!NّJ !^*`:8a`-+aۨCrxlv.7pvx?lb -`qi\>qpI o5aQ8d^܌DA@(7wu(,oJxh>Xy˿-Dw:R &t݂B~-.9R700rCzT@A ^)$rr #L;'$zA"$ONu͖)7^tac2%Cu>kYEcGU<$)`C'lw<$‚&u+2HBbVM~>X?Vȗp#[u($d01#Q*_w)\@^1#F&>e$y]!#7B83~$1>7XВ_sYucF_G(qm\/AD"59v9N!D$%bc&|}/BU-=^&2\ 'qN`W%!#1K&@PW0l}?q#Xͳ+NlB2Ҙw-#O;wt"+"UKA96 J}.'SBCMߊP^Q#L#! 4KJo@p @t^a#'&GE}%iNrJG6:'Ɨ41 Ţ̦>$(]g]ahJ.eqp1aUstNPL L4ߵ(p J### N>@SO@C>I n0Q2q46@C/+a#ۀ5!#AUsHO!Pbs^l_ه.h`MQ(u+NW# U'uу=Eױ79<:tokA=YNF<9 ":(E JNr=1@x0SGY!uSr1Bbhub|LoC"=26r(DɈeى~t(&X)$Q'7/#,"u@t#Ze;K1BE ecu4A"E ==n(L]rW]9^VWϽs9[r:ŷ1cڹZXNAJO$,A˫,/Z 6gCA_(!E;a3+Wew 9ANe-/&Q1 8t<ɬRO.đ|&锰d)L #E~|Uub !Ca,Iܺ>?E]z` Ob+X'"#ޔ^ڹZpXK$ѴG\Qpc-6+۳-/]W#Q.aAEs|OG0Y)0x0!"TRAa2p t!QQ]d!x%8 #]/]u79LuoY~nRtpO%1!{7!#1Q OE@B]t͕4J`̓H.2G;|== C)q#) q]QFX8sT}~IkI +O]`$aѯBxb*1L`B{?#OQbLϱ*!8J~bfqdAϒ tk޴@TDȼoyDY]~qQG儳D]M)孼a[B?+x)ѠSAb+6'&/Y]%[GʣFqb2NǒS|O zUL*$)9Rc0.ZuB%2w$r#g6F˸2J8} Gj/]:D1'aGrIha=+_.q]7D]tʅ?dQvRu>hU@j|?]tʅ?dYL8u>wq)?]7ØIs@dY[ˍGOsth74ں;)ۉsc"]K$&t9ޢAs]6#&re-7 +`|$Zk[T~QA)Dg#+-#-T,+O]q-B2Tb7?cVS.ZVuc`Îԛ-B2}gzv 4d)zoH8&%$*7|2.xFBB|]yhIE> ͑~S=t<)GK?5S~d~y{Ջ\&-t$JŜC|O '+rBPm@K ސ9 X20m]^ھ$GS];Ts"GFiUSLⶵND(#H <W3|WOCQL4匹 gX2&?GEJ_]tSf rb6QUG79xW#(aG#/a.yM7_rE7KQ4IY{:h7z4!A]̳Bm@7@5`7c5rr.oQSc)yҪ6\θ,8H3Z=yZ Ol)>baI]Kqsfq"]-`xQ,;4Oh?s-¶kUҟrB]BԐzLx0mpr,匹 %UhBA|OkWlKIzv 5b]#y[&h+d"kPJ E%gC9^%!11111111111Y.m(//Ñ uYuYuYuYuYuYuYuYutsB9b[DD(#* P0Jf-DNDㅥ~b6>>S\ݘyyybH-bn NPd.VVƄD갫 x+wFW#%yyyy>1wE-# NsR82e sBGB6j yyyyyy4*(: *?>+ʰ <"lBS#V갫 ZY/KmQS C >+Xv !D/0 RF$   G/B釘yyyyEF )yyyyyb1P4eyyyyqPmx׏aUWS D1PczI P& >7~ں9yyyyqs#x凜yyx|~]al  o0Ez)IyyyyL"G^:g)yyyyyq kx&}4Compuserve CP/M (R) Executive Version 3.0 Copyright (C) 1983 CompuServe Incorporated $Gx~# x¨վ# WxzµG}o|gx*2z*!"!"GH*|+"m:j͞t B:m*|m*+"|:2*~#"2OT>b^e22>2uT!~*M"MO͐ /  ͐ «z¶́¿! :QW*T~_:P2Q*R"T#"Tz=2Qy6!ȯ2|2|<ȯ2|>2|![\F#~:4#>6+~.D#:\_G:|r€_<2|!xwx:|™G_<2|!:{Bʹ~´~ôb\:z_~ .#` > H_YYg1!}">>!":d<2|*w͙"!~s5*~͙"!g>|*|:: ȯ2<#|}!}Ri!<y!>< ͧ:V!<" H-Ré>2V2{HHRJ!<y*!>< ͧ!<"EY^WH-t H!X„xqYy„[b>2W2WAX!X~^¤#ʬ~^ʤ# ‘y[bG!X~a{_[b#»H!X@xqYy[b:W^WAX!X~^2#:~^2%&>2&0>2#  :D y[bG!X~[b#OWͽH-w >^6>C6Yͅ2P2Qʢ!X"R"TGͅw#™ͅ&o"|G!l"~ͅw#¶:P2VP- y +>6 A>6+B )GO6w# > w1>$6 > 6CSEXEC.ATO Creating New Auto Logon File $Old Auto Logon $Menu Character Sent $Enter File Name: $Prompt: $Response: $ % VTXFNF - File not found. Press any key to continue. $ % VTXDKF - Your diskette is full! Press any key to continue. $ $!4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6:6͡ :7000FF !4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6:6͡ :7000FF !  ʹ€ w R H-:_2` XT EAC   Auto Logon Functions C Create Auto Logon File E Execute Auto Logon File A Abort Auto Logon T Transmit Menu Character X Exit Program Press your choice or for terminal mode. $ % VTXALA - Auto logon sequence aborted! $Terminal Mode $R H:Vʀ 2V2{2P2|2}R H !OTʹ !!"*">2 ͐>2<!> BG !M 6b 2b2c!X"f!"j!c t *f6 ͗!  ‰ !  ͗O*j#"j}  *fq#"f!c :^>+6 ! O:c :bO:a ͦ >& 2a:X!lpʹ !FA !FC !FE !FN"X!"j6 !">:a:^b ͭe :^Y 2^:eDO R 2e!" 7:d2!*Y| :jO:kG  ![:Y_:ZWͧ !:Y_:ZW >:a!b *Y>>B:aͦ2c!X:jO:kGy :^ >+6~# x >͗:c͞Tu  Gz@xou:asͦY2a:^ĭxBo:aͦ2a!M ~x6:*X}F |A b :2dO:c2cy<:>0:a6ʹyO ^#V!4>!5:>͗ >@2>2u x:zHÀ - $͞-2>=27 < IbcefntAG 0XXBGTN o }}>2^:Y2e! ʹ :Z2{!ʹ  H*! ͭ>N2X!Yq#p#!ͧ!"j !Yͅ'w#x y2jx2k y2jx2k x !TC"X!"j2^Y :Z!"ʹ "_ʂY>U2e  H*! :^ : !Y"f*j+"j| *_*Y",>>2.!"*"h!["f*j++"j!"_*f:jO:kG:,_:-Wx#*h"*{2,z2- ~*h2>2.# *h#"hz "fy2jx2k:.u/H7-<6Y_Y !"_*j| *f:jO:kG~[ˆ# x *Y"| : _: W !["f*j++"j* ""!"2!"_*f"h:jO:kG*:_:Wx"{2z2 *h~#"h w#͡I: <2*s#r#"z"*h"fy2jx2k!g"_:f_:gW:jO:kǴ !|¿x ͡o:¥}.Ä=Ү &}o N#F~#͡![ˆÄ:^ :eU>[ˆˆ22^ͭ  EUDCMABCI % VTXFNC - This file may not be compatible with your computer. Do you still want to receive it? (Y or N) $wʺG:^x2<:{<*|;:Q;*||:V2{<͂;:x*y+"y|;2x*|+"|2  *~~#"~0!p';"y>2x<!'T YY9H>j2d i :2ɯ2 % VTXFAE - That file already exists on your disk. Do you wish to replace it (Y or N) ? $ ? VTXDKF - Diskette is full! $ ? VTXNEF - That file is not on your diskette! $^O IRO_TG:mXpxAɀ4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6:6͡ :7000FF !4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5 :6:6͡ :7 ; overlay for cp/m version of vidtex executive ; ; NO EQU 0 YES EQU NOT NO ; OVLOC EQU 1800H ; Where the overlay goes STKLEN EQU 100 ; Length of stack ; ;----------------------------------------------------------------------- ; ; This begins the section that must be modified to your particular sys- ; tem. The first thing you should do is put your system identification ; into the program. To do this, change the 'KAYPRO' in the statement ; labeled "IDMSG:" to whatever type of system you have. Note "IDMSG:" ; can be no longer than 80 characters and the last character must be a ; 0Dh byte. ; ;----------------------------------------------------------------------- ; ; These are the port addresses used for the modem ; CTL EQU 10H ; Modem status (control) port SIO EQU 11H ; Modem data port ; ;----------------------------------------------------------------------- ; ; These are the modem port status flag masks ; SIOIR EQU 40H ; Modem port input data ready flag SIOTR EQU 80H ; Modem port transmitter ready flag ; ;----------------------------------------------------------------------- ; ; This is set to No if your modem port ready flags are active low. ; (zero implies ready) ; RDYHI EQU YES ; Yes if I/O ready flags are actaive ; high (1=ready). No if flags are ; active low (0=ready). ; This ends the section that must be modified to your particular system ; unless you need I/O initialization. If you do need to initailize your ; serial I/O port, change "SIOINI:" (At the end of this program) to set ; up your serial I/O to use 8 data bits, no parity and 1 stop bit. ; ;----------------------------------------------------------------------- ; ; ORG 0100H+3 ; Overlay transfer vector and ID string ; ; RDYLO EQU NOT RDYHI ; ; INISIO: JMP SIOINI ; Initialize modem uart GETSIO: JMP SIOGET ; Get character from modem uart PUTSIO: JMP SIOPUT ; Put a character to modem uart BCDICP: DW BCDIC ; Add of overlaid compression dictionary STACKP: DW STACK ; Point to location of stack PRTYES: DB NO ; True when copy goes to printer IDPTR: DW IDLEN ; Pointer to id string's length IDMSG: DB '#CPMKAYPRO,PB,DT' ; Identifies your system DB 0DH ; End of identifier IDLEN EQU $-IDMSG ORG OVLOC ; Move beyond exec for modem port i/o routines ; ; this routine inputs a character from the modem's uart (or usart) ; SIOGET: IN CTL ; Get mio status flags ANI SIOIR ; Isolate input ready flag ; IF RDYLO ; Invert if active low XRI SIOIR ; Invert it ENDIF ; RZ ; Return if z = 1 IN SIO ; Else get modem character RET ; And return (z flag = 0) ; ; this routine output contents of a to the modem's uart ; SIOPUT: PUSH B ; Save registers MOV B,A ; Save chr to output IN CTL ; Get status flag ANI SIOTR ; IF RDYLO ; Invert if active low XRI SIOIR ; Invert it ENDIF ; MOV A,B ; Restore chr to accumulator POP B ; Restore regs RZ ; Return if not ready to output yet ; OUT SIO RET ; ; This routine initializes the modem uart for operation ; SIOINI: MVI A,1 ; Initialize uart here OUT 12H ; Reset device b MVI A,0 ; Mask for interrupts OUT 13H ; MVI A,88H ; Baud rate=1200 OUT 10H ; RET ; ; ; Stack area ; DS STKLEN ; Define stack ; STACK EQU $ ; BCDIC EQU $ ; Compression dictionary ; END vOVERLAY.ASM# e9 'rhr9MA2i2 c: 04N'H$a,JsY&fTL$0C# Y@t#Pye9 eBY0NF5 e7ra1#j@~ e3M؊d*ǫF @m:q5ii3LJѼ@y7bg [+g Z2E-gI}Vh4MN@pr51#tPw( жXaGٰ^Tl Zw gF6]vifc ARP~` (;nJIppDd&͒b9Dvdo TŹRU5a)tIMe41Pz"}FF`a`E^hl&~F&xљ qфsIđIl ‡jfetٚz&,Jl S&էFSKV&9dEqHZZ|6f-v"e$Yy -Gb01AdHV>O[QpI^ $Da\ GA!|e3l +œ2fadcKeUbTgcidkumxmnQ "qe|Ƒ{Bo% qiUd. lɲ-$Nag(\Es\]V pz^/]pu[T/粞BwЩF+s}cI( kQL2_DHGNVD+ =^C9s*RDk^mt_F4JIl(@1@It<B )d$K\ iaieVA8E 2A%!TY2DRf=$a~>PP Lh#;j(EK 2?rCA Ba$0 W1N* Sw!$,2(ؒs#T6le !bdy<;P%j^: AQEPI :4\@p,ǚjy\Q!(-Љi-q@#9y] F(RGNM?`D +K$m@$ໝi%ex٣|? 񫛤1WXZF""D(Ɣ U ͽG?c80:es.f0Iau -Z``A,BӈSP ݚǠ1Ƞj @ P֑F UQ(lMAuHr#:z (>lZKthpHuJڱq<ȇS*RAC0RQDmҏ`AY$jh*έŮ]")IhԲ@ŵOiAcuTfKRXMLB8-UUfmxV!ZZX+0`7M4 > ^x zHYJsz,g$(5R-0yK٠Rf Aˁ.Y+{-Þ*6L Y^PcvՄ2[zHc+!b  5'"p°b Fu4簒tT1WXS W`™z/ЈO1h-K "SIAY|%RcbY4Rnƞղ=