Article View: net.micro.pc
Article #7661EGA programs - archive
From: Davidsen
Date: Mon, 11 Aug 1986 19:18
Date: Mon, 11 Aug 1986 19:18
148 lines
8855 bytes
8855 bytes
Attached is the uuencoded .ARC file for the programs to switch from CGA
mode to EGA mode and back on an EGA card. The source and exe's are here,
along with source for a 43line mode program (get back with "mode co80").
This would have been a week later if I moved the source to a PC, compiled,
arced, etc, so here it is.
If anyone can't get this assembled, drop me a note and look for a reply
in September, after my world gets less complicated.
-bill davidsen
ihnp4!seismo!rochester!steinmetz!--\
\
unirot ------------->---> crdos1!davidsen
chinet ------/
sixhub ---------------------/ (davidsen@ge-crd.ARPA)
"Stupidity, like virtue, is its own reward"
begin 644 ega.arc
M&@A#1T$N05-- , 34W08 L-,6IB&N\1 ,.QZ 0#&$BA0F+9X@20$"
MTH D0IJ @#)DHI0D3J@4D0)BR!,G1(HXF5*$"(@F3T(V4- 0 9PP9\HT), B
MQ@P9*UO224.'C4R'8]ZP$?/F#1T78>:T62FE")4O1IR %$F3IV&!6@,0=*P
MP@X1<LK0J2/'#0@Z;T"0>3-'! @S==R,V?G&[)@P;-CD7+E#!:0B?/DV/,#D
MR96315!*R0*"Y)$F(JD$5M#W[UZ6*YF\N3.ES)FI<SRW*>.&#H@PIF' 0--0
MP@XA29Y, 6&GS-PW<N: , &"B&S:8>2D"2/&YYR<D!#@_@PI*XX;:%9B-/)D
M)ADQ#0W\0*Y<#G/G.*(KF/YD1L,!U[/_:'AAAY$RJ,G*%,-S#@L018X$Z9T$
M"H@Y=_ T!AIE'*> 9IQY-E41;I!A( B75>;$9#L,1D005.SG&&094>C7A)B%
M2$1HS!% XFBE@?"2'&&H6$=Q:8P!P@EDH!;&"2LU,<41,5B''20&G)#??BWX
MT)%0N.'71AULH)8D;U*40911)]0$0TTS6(DE"R>0< ((.\Q!1W!CP0%"&W.<
ML=(5021!A8Y'J/5CD%"$-8=N8;B1!PAKE+$G6O^)U9%^9[Y!1ADZ@.!E0P_L
M<$<8/)U9X!PPE;'2$/K!.55Z0'[IUP"#[H=22" X81@(&.%GA!%%% 3"IU7&
M<*5-6M+:)8X*"/'$$V_N*&=V)]0Y*7X9;01"&F: D,<;5P4X!VN 3FE:BV:P
M\08<<.SIQF:)>GGI04;(<!ZG!LBZI;FV>JM 4T\-8=*O0,+04 @[E"&''+CY
M5!L;((0U5ED@!'4H<&S48:F(),[$H(.704C9AQ0.YA&I&T;F(20@.NSP$ E#
M8J)HI)FV8HMPO,A&C#,*7 :N+24U1QVC337&'#K,[!D+=^H@9AACK-'2#GB%
M%089>X9FFAA[KJ6;M4/;>QF#=,!AFD-PX"NCQV8$UU6]I<FQ)QQOI)&B&?BV
MH19;W#7QAAU8A8$'"R,J"$D$80I:AYE#DV$GI?2=3,>?;Z2]-E8.LN!V0Q-4
M2 >!:MD8Z!DHTL&=RS#+I!;-<:O)4G)JL]V<VRP@V!ESC1H-PMVGD:'WI,2E
MX3?@@GM>0(&&XX&XXHQ;>\?CD4]^9^53%:B#Z)Y%"#%E@YF.NAE)8KI?&4LV
M29<;?!VO,>>#-T?&VV^888;I</8("655OW$&BV;O+$>9DMY9:>QMH\$"##FP
M!HEK58MMFIC"N:%Y2TE(47-D$ /Q7 \!;<A> <(@/QC,P'ZN$1H9 D:6.20)
M;'/@21KJPAW]8456!DQ.R9XU$S'8#A(6"%,8:J.B2H' #3 3@],VYY(ZD-!C
MVVM("BG%0GS=@05!*5@;J!>BEB10=GAA 7EF,+D&M8T-\S/#:AI"-]/I[H5Y
M$$-Q9 (H'' G24!*(@S"PYTC8F6)AN,7)"!0-],L+TE!3!+TF(2:#1+1B H$
MG6IP( /[L=%TVY)#&_!REC+@P30)'!@*X& OY@E2-XL[6$L\V!P0;FTJ/!L+
M(1,I$P )" TI:%ARS/BY!O:Q-6VD8&XNR!8-<I"&8#.3]DZ80CNA)2S]V@P0
MA0*S.XKP6E@QH0YW8$O<R.0E,7EA#&<X20$6 (1-G&!SR#._&YC!?HVRDZ"V
M%3"?:&T.8P@+:4! '].@P QIL)T8ZG"&'X0R1!(2#"0.D!2?.?(T3F2D'!QI
M-EWQJGH8$R4".D<X[GG/=,[35')V0(<RY.4T1*F#:9Q7J$/!KY3SJQ\J\Y<B
M_HGM?\D)X-0*0$ #7K0 VV-!][XG*'_V*D[S9*A#^06HJ@TK9/8Z5K(.E4%<
M2NND#,PH!'? T?W1H7\@18!(L5)2H+X-!D. 70:PL9JV9 UZ_2>O>X3%#=8
MT"?'<D/)3'.'%Z3%-F@(' V7.L "<F>$]B. VTZ:TI4B%%SB@D0"B-H_TXCK
M+L)QH;_(XE6@-K!^W&$K2=T*2V!^#@_<&4,;9+E *,* #$,-RF2#P\6T1&8C
MW%&#&_2 E2+@@2>)=68,- H)KQ"!+>0LBFGT9Z^[28Z&:IAL:4][6X?%$WGS
M9%<5I" 5*E3'-U, :,:>QMM$.82@&&475*0"B6R*A;!G28O2WA*7N=@Q8'B!
M(C[) %0H2M==C-J!'?!BL.R2\Y@N*\,$ 64O?,E!7PY-[4@)R)76$O.Z .4
MTE8"-:F=9V&RY$"%4%";W'Q7!BY0#0B2)#U[O9-C<B. 2(B0W!!-(4-#6,)Y
M*I:1B01!"AH"L8A/\.$@A!A71!!"=FQ @]Y4 0HH$$&+0WP>$3 $2#N000UL
M ((K/$$*)MFQB$]<A""L1,D'!DF'-US:C$!!,@K0 !H(0T=!+D5810 # $
MU'D! +#2IITW0 !0 #$VT @P8" $ @#?CW#P( *4*$M(P$/" 0$,
M0OJ74!PN P <8</UT!$P70]I)6@6@M: 9A"F2#$!"A$!$O 8(# ARB8N00!@
MTA*@90M,$X!,'"+P1]<0 "I9ZCH#=64(7 <8L(2BRU)5EEAX-*A3H%F&=0$@
M064":E/0$$6.! '1P@>((6_8O)$#HDB;.FS"T-D+P@0(*67$O'E#1T$#QR2@
MR"DS9PZ(,&[R@%A31O-@$'/*T+DK%T2;-V3*Z !! H0*A:3G-GE"I @()T^N
M@$CBI*\1(T6&4'&MT#%DR90M%W%"I8@4$&G,@,CSI@Z(.VGFH 'Q63'CRR#,
MZ(4#1[.;-W=6DS#>@$3" E.H!!FR!(3"^//KWY=/W_X _/WMEY]_ .KW'W\&
M%D@@@@L.*&" !SH8(80*/I@@@Q8V2"&&$UXH884=:NCAAA]R".*))J98XHHD
MMCCBBR+&F.&,(=*((HLPVJBBBS+6Z..-/.J(8X] &@@:"$5'02Y!4TT P
M!-2I!0 "PTR:ILT< X P['H! ,82*%"8MGB!) 0+2@"1"FH" ,F2BE"1.
MJ!21 F+($R=$BCB94H0(B"9/0C90T! !G#!GRC0DP"+&#!DK6]))0X>-3(=C
MWK 1\^8-'1=AYK19*:4(E2]&G( 429.G88%: Q!TK#"#A%RRM"I(\<-"#IO
M0)!Y,T<$"#-UW(S9^<;LF#!LV.1<N4,%I")\^38\P.3)E9-%4$K) H+DD28B
MJ016T/?O7I8KF;RY,Z7,F:ES/+<IXX8.B#"F8<! TU#"#B%)GDP!8:?,W#=R
MYH P 8*(;-IAY*0)(\;GG)R0$.#^#"DKCAMH5F(T\F0F&3$-#?Q KEP.<^<X
MHBN8_F1&PP'7L_]H>&&'D3*HR<H4PW,."Q!%C@3IG00*B#EW\#0&&F4<IX!F
MG'DV51%ND&$@")=5YL1D.PQ&1!!4[.<89!E1Z->$F(5(1&C,$4#B:*6!\)(<
M8:A81W%IC '""62@%L8)*S4QQ1$Q6(<=) :<D-]^+?B GWX@M/$&&66<4!,,
M-<WP9)0LG$#""0TUL,,<= 0W%AQ)%C@'3&6LY)L3B>VHUH]!@N#7 $?NAU)(
M(#AA& @8X6>$$444Y*9#3L8 I4U57GG>#J21D88;GXTVQY@Q,>74%T.8M&9V
M,#04 J)RR(&;3[6Q 4)88Y4%0E!, L=&'66*2.),##IX&824?4CA8![1N6%D
M'D("(JVT#O$J)":*1III*[8(QXMLQ#@CJDURE]0<=8PVU1ASZ("M9RP\J@.7
M88RQ1DL[X!56&&3D\9]8((BA[EJZL?$&NF7(<1F#=,!AFD-P>"HCL68$UQ6B
MI<FA+AQO+&J:&9ZVH19;W#7QAAU8A8$'"R,J"$D$6[);!YCHDA'6H\2ET2P=
MZJ(5\<18.<B"Q0U-4"$=!*IEX[IGH$B'M(]6*Y-:V69\QLH4-V<Q"PAVQMP#
M'9OV\6EDB"QFR2>G_ ;16!7X,AXQSURSO'?@K#//U%I+5;9)>Q:AK90-%IK3
M8)J!6YQ)+MFJA+,F)W'1!9!Q\1MFF/'V23OV" EE_;YQ!HL.@RO'EV&2'"E+
M>K-L-!HLP) #:Y"XUJ_"_]$A'*/<)9%B<S+$(!ZPR2G)=QB8PS #YZZ=2\:I
M9,TQ-\)S\)1&7=R!WIR@JR>W[!R<$R &UY!8L&48M:E()@AN5"M&O=P=G[S?
M#3D_9O2>WL%"4*NVX4;>"+A>,1LLD#>#M VNG[D9JS7$\>!@4Y^'&,7)A!8(
M.>#.W("$E\QMCCOJ:X[[7B8J2$"@:2!XFMSD0!4WH"$,<BG#[<@W-T7- 0YL
M"$,>$&BY AQ--3B0 ><>.#@WX*8->#E+&?!@&B6E"@5PJ-<$VZ ;FK6J)<(K
M /$&-I5PC26&-I0)@ 3$FA90+RUC8,,<7) "]"70A+%386L@.(;<[8XMO@,>
MY5SR!C UAWO-V\'(T!*646UF?$*IUOG&B# S%F!YW5-C@=@HDY?$A'K6P]X8
M@T@\^-U.@4Z@3N9N8 ;.,6UD['+AJ7PBL#F,(2RD:1=/!F*&-'!-#'4XPP^J
M&**6[*UE?PO<X,Z4IB,,9@=T*$->3D.4.IAF2'5+E0OO@+7+&9!V._A<BK@T
MNJ&-T73[*D#JBH< -;3!CD7 T]FQ1>V50@2!V@*%:H@!:E0H3J^F4(U?45-
M!423)SHXSRE]J4VH2 42CQ0+6<SR/WB])2YS^9U=\,*^TS2HER9D7SLKU1"F
MV0$OK#I+6JXGO4=I4*%4Z=2GRA"JTIU.F3'@"B2\0JIY0A1>*\&7OLX3*S-R
MH$(HJ$UN] D"&;A -2"86PAC*0=2"DMC!! )$<09HBED: A+.,^N,C*1($A!
M0S\-Z@E\&@2@XD@!1!!"=FQ @]Y4 0HH$ %3@7H>$3 $2#N000UL ((K/$$*
M)MEJ4(U:A""L1*TD!0E/=8J5R$!!,@K0 !H(14=!+D5810 # $U/\ +
M#2MIAC60! #$VT0 ( 8 " ! ( TX-^_! 0%]$JVD("'A0,0(H3T;Z$X
M7 4 .,*&BZ C8+H(TDK0+ 2M <T@3)%B A0B B3@,4A@0M1-7(( Q*0E0,N6
MF"8 F3A$X(\N"@!6MEP78" M)J!L" VQ<$&1(T% M/ !XFO8-F_(E%'0@"T)
M$"H8E@4+HLD3(D5 .'ER!402)V6-&"DRA I<AFX7*IA")<B0)2 8,G8,67+C
MQY$'3,9LF7+FS94U7PX-^O-HTYX[<Q:=FO7JTJI)GXZ-^O5LU[);P\9=.[=M
MW;=W"P].'+CQW\A]*^_-G+9SWL^''U\>O7CRYM"S2[]>?3KV[:$!&@A%1T$T
M,RY!4TT 34I0( L--&JTX H% ,2,K(*0,BS1P084#,"=,&#AN"<.2\
M.2.'(0@Z;T# J4/G(AJ"18X$*>@&!(T9(-BD<4.PS1LR95R 2-+1($(V<S*^
M<=- 01(L+V;<@ &BCAN8<D"\J!/CQ9V/91[*<=$3!"0"/:$$.5+$*@$;,%C$
MF"&C)Y4D5)AT;?*$2)&3(%J @,(11,B1=]+006-W"!&2&$VB5,D2A$N8/7?T
M)!*$RLBK4T(V*>*$"HC&)F$@J0H)P1,I1ZP6P(%CLX*[;-V"("+$JH$?BQL_
M)D"9R)3$/8>T[0I9,F7+6J6,A%)%"),D0T"<T.WV!&<$0:9,J3(9!(@A4W0P
M+\+"MO;=N!6D?HMRKI0GR:\Z*1)$2GBK"-A:$1T$"PL81F!HAK\#Q)$R'8U1
MAQP#N=&1'6G E-%A93R71&6BQ:#9<UA\1A\2+ 2!A%4+].?$&W> 0,:"+Q$T
M!X .0@A) 1*:!I]\]-D7 R0#R+!A9_U-$5498W2$ QXXB/A&'6(\)&1'9NQ$
MQW,PKFC<?2E:MF*+3#XQWXKU=2>;50GT-P0:8;AQAHEP\)A&&&S8)1((8N1!
M!T&!C1G@@#G)4>65!=B6(1;/13===:MEQYAC=XJ&VF[W&5&:5SD">%%&:+(!
M(@@_!BF@''46BJ5],$BX'XX@Z#@GIF\D14<>96I:P!"<@G7#C0@T^E"/",$1
MT1L1G?DF")=FJ@!\#TK)XH2_=M9D 8>ZE6@.-Q+0:$=BA#'&&L\1-T6SV%GE
MP+.!LBGM&H]>=UNQ"$#Q!!2BV=:G=-1U%>AW;JF:90PRZ >KK#QVA.:;<K@1
MQJZY&JC0& .549)$'*W4(+G'/EFOBYT%&R&QP*I8P,-6-="?% .6%)@1#PQ
M[GAPV>4$$5"$MYU7M8VK&+FUB4;R##UI !H(6$=!+D1/0P!- $U,8! +
M#2QI#8-7 @ #$;DO&D#@DP9-B "I@'1)(P<$#)P@(B!0T<,&CIDV)B8 X<-
M!53>Z"@8QDX:,G/*N%$PI8X8-67&T!DYYDP8%V7PE $1Q@T9$&5LXM2I@$@8
M.F5&*F3H$*)$BA8QRJC!T:,"2 .2G/@I9N>8.G+2O*DS!P2=-R#0E&F:9^Q#
M.67@O)%#!\0;-VG?W %QYR!"%'-!N'E3MR\;-BG,JDUI]LX;!7 $GI$3IDU9
M.77PW@4Q9^!.,6\<HK1+1^W#TCT5[Q0!-PP;$2"*' GB @0(*FKS<"Y3AN!9
M$)A7FF$3Y@Z;,G/FL-&].0V='3S+A@'1YBC2AV_,@# 31B8+SI[!FZ%SQ^'.
M.VC2C$'#-\UA$$Z>4 &>6<'FTCME!VE?&L24.\ZM-]%N=?TVQ&S?79$$$TS0
MAU<:VK55!X&J<08@'0+^II\";;QA$$\^J8877"D5J!9U'I[G''NEI5%69^.5
M!U=M(&A%4!IN7(<<4C_AJ, :@P'HQAD@0%AD87.M419JA?EEEV;X/:1?"W3D
M <=GH<F!$HU.$+83DS4J@$9).[G6&0B1O6&203]U!M887J6X76"@]:>?"T%,
/T02(/QU(6YY-N*" AH
end
--
-bill davidsen
ihnp4!seismo!rochester!steinmetz!--\
\
unirot ------------->---> crdos1!davidsen
chinet ------/
sixhub ---------------------/ (davidsen@ge-crd.ARPA)
"Stupidity, like virtue, is its own reward"
Technical Details
Message-ID:
<884@kbsvax.steinmetz.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!mnetor!seismo!gatech!akgua!mcnc!ncsu!uvacs!edison!steinmetz!davidsenShow Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!gatech!akgua!mcnc!ncsu!uvacs!edison!steinmetz!davidsen From: davidsen@steinmetz.UUCP (Davidsen) Newsgroups: net.micro.pc Subject: EGA programs - archive Message-ID: <884@kbsvax.steinmetz.UUCP> Date: Mon, 11-Aug-86 15:18:08 EDT Article-I.D.: kbsvax.884 Posted: Mon Aug 11 15:18:08 1986 Date-Received: Thu, 14-Aug-86 22:08:09 EDT Organization: General Electric CRD, Schenectady, NY Lines: 148 Keywords: ega, pc, archive