[comp.binaries.ibm.pc] v09i039: dtest, display performance test

ibmbin-request@crdgw1.crd.ge.com (11/30/90)

Checksum:  249382438  (Verify with "brik -cv")
Posting-number: Volume 09, Issue 039
Submitted-by: toma@tekgvs.labs.tek.com
Archive-name: dtest/part01

The author says:

DTEST.EXE is a program for EGA/VGA systems that has two major functions:

1. Performance check of character drawing through BIOS and DOS

2. Test of ANSI escape sequences (if an ANSI driver is loaded)

No documentation file is provided -- the program explains what it
is doing. Put the display in the mode you want to analyze
and run DTEST.

I wrote this program as a testing aid for my NNANSI.SYS driver, and
as a way of checking performance of other ANSI drivers. I am allowing
unlimited distribution and use of this program providing it is not
modified in any way. Suggestions for changes and improvements are welcome.

(For the enquiring mind, this program is lzexe squeezed and was originally
written in Forth, compiled using my own Forth compiler.)

[ and has been carefully checked ]

Tom Almy
toma@tekgvs.labs.tek.com



[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   43921         7794      part01

checksum     size (bytes)  file
    9450         5636      dtest.zoo

-- bill
]

dtest part01/01
BEGIN--cut here--cut here
begin 644 dtest.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$J```````!W*?$
M_0(`S!4``'$```!S%:)X[7);%0``6Q4```$```````````!D=&5S="YE>&4`
M````"@`4?.T`````I`%`````0"DC*`!-6EL!"P````(`\P[__]\!@`````X`
M/@$<````3%HY,3_^Z0@`;1P`_PH`O)K____'!@4!F/^]_O^)+@<!_.ANGX09
MN`!,S2'A__[OAW]$NP$`[+8`B18N`<.+/![[@,H@[;@!1-C_ZO#S_[I``(["
M)J%*]Q\`HRH!]/R@A``PY$"C+/Y_Q[L'`+0.S1##M`*W`#'2_`?WB,:(VH'J
M`0'Q0/CM\9@&MP<QPT#)BC;4BA;!`/#FZJF*P^O5`?ZT`]OS,<"(QXCPWW^(
MT\/-*<-D_(L>R`&(!X,&@!_ZH(G!XPZ*!_ZWDT-34>B2_UE;XO+M^`S*X_CM
M_HG:4;1`4E-0Z/]/,/]86^CJ_^DX_Z'*`?#ALJ90H<8!/:5U"!`.D^:JYBD`
M/1Q"T?.P\QSS`D-H\_RV\P_S`_/\M8`Q\^E$1+VC`'R^-Q?H9?_HK?C"_<49
M4#U9O_':`3^=2%M3@_MYN_5+"=C:'_-N\_@+3O/^]]`)P'0-*'RTNR"^:/_K
MN5@("ED66;;X"K?X"N$/DQO8^/ZX6P#I\O!_^O3I[/XQVY/I3ACHY?@/PQ(8
M`S\W;,/HVNG#]0?U:,.#/B8S=!_"!NB2_ND)R,+H[X>'%P(R2MZX_[ASQ(<0
ML/[HK_=U]Z?@$+7AZ:'^AY_H/X<WR!<!;<,QP.CMA!#A(<CG^BK&$.'A_^_<
M]212"/76]='9B7_X_9S_H2P!,<EL&(G(0/]_NPH`F??["=)Y`@':B=`%,/__
M4/$J`4U-B4X`B=E04>A`_@_C65CB]XOR147+2!_^B<LYV'0%Z:@864'_1B,<
M`'&^Z='1^$C@A\KBT?M04^@8A/`0/D\^/.@(B41"^/0`4"*.9__I0A&&_EBJ
MS>CP]R$,Z/Y#._;D_2$<]O3V2/;:_8M@@.:U_^#0T___3!CH_!8:4V5C;VYD
M(&QI;O__92`H:68@;F\@<V-R;VQL*2'\Z"O?*/W8%CE#=?\#<G-O<B!P;W-I
M=&G2_!C59RP@0U55_$2/\/Q&(&&_^$(@=2'\<V7W=+]M87)K(.$?9F_*Z.@7
MZ)@6.D,`AL.BO2!OH>%_=&B99&ES<&QA>2X@25``\/3]C/W=X,`?LWPM=W)A
M<""&'^3HI[]7%CUF86G#AU]GEW0@8F]TGA^`;2!R:6=H\T5(`:>HK/^4_GT(
MAI=X;NACO`.,$Q8/P-AR9.%#TF2E=VXZZ$WJ2GA[_?H5$B#__S/Y_#+H,0CM
MYR[]WN3X"S3Y_#$__>BP_;H!`%+\Z)3^Z(K^/_UH\4CHE?VX0P#H>_SH>CB$
M\$'QZ(7P0O`7&FO\N#$`Z>IDZOQO0@CJ0?!5ZC*AP?I/ZD[$_%GJ/_$00C_J
M,_HYZCASR-3\0[XI\"@AA.$@X33Z&O$_?3S]Z6P2Z$'%+0@`T?C#_^_O!W,M
M%0A#14Y415*'/T5$Z/'5'A4S2%504/R/\2!,1494($-/4DZ#/?0M+?8P]%`P
M\`D@*$/\5-8I(%1E<W2G#&+IP/^IJ[+]Z-@4"TQ/^.]7QU))1TA4Z>\1[]H)
M?R'HP10"0FOI8N[;\K.\$/)29.E4[=ORI5X(\D=RZ4;LV_*7#RGR667I./($
M\HD>4LALZ2KR!?)[V!3R36&UV@;R;1Y2\D-YZ0[R!_)?.!SR5VCID\/H4S[`
M-%(4*5-'?"13A_]4.B!.-DU!3"!!3D0@"Q!"3TQ\Z?ON4[[_/#XT,&-O1^ER
M%>@*_#')__^X"`#H?!4QP%'H0?Q9N"@`(>@!R/8W]HOCXOQ><X@5N![I(.F)
M/P3Y(_]9BT8"^!OXV"O[:Q2$Y-Q%16CC@-%L`^OW^\#X"Q[`_N#I;8#`X_[`
M_-OX^T(_*\#X#N[:[OQP`^EI__P/\.A:^^A[$R-;,&T/X3I,24Y+_4<]15@/
M_T-%4%0@%4%02$E#($T!-D]$#B^A%)#\KF`8^#)SD[@%H]UT:_@J_&%J^`R(
M%&K]-FU*:OQ-:OU%:I43*O@2(=NFP/@,2,#^"L#\#<#]!<!"HU7`^`[N!"K_
M82H/_P+9T_KHEOV@$D@H<W!A__]C97,@8F5T=V5E;B!A8F]VPH-EE=OL;65A
M;OJ]MW;M5Q+B3V9F`/E30UM7T2F'_OS9="!WY6MCZ2GI>@_H$+Z,KDS]2Q(@
M4T7_0>'P"5)%3D1)5$E/3L?BZ?WP0.GAZ>AT$^AQ_2$22=-_4V-RBG-H;W5L
M9"!H800<A';O8VS`@X3F5MMT:&E[./3,Z7QS9>EC\>(L(`##>?7N=R#U(!0@
M9[XNL[`>/`;]SA%$3FIAXP$B-MW-76GR8(`P&G.L].QE>4R<XF1I;4#9.4#P
MO,WFP=%S:?`_8IOHTQ+H@Q%&(&5X1!C*<+';3D]"6"UB>V2&=6Y>V?%S=-/$
M='EP:6/%9""`=96-V2$$;'7V9IQE9H##*M,LZ(:S-A%$$4?HR]3RU5B@=6XG
MQ/2[/N$A87`;8R!M;Z9S^!&?5=-!3D-%3`EU..[8TY?_Z#BRZ!`10PA*0'!4
M;3_L`G1E9"[H(.@=$M7IZ%\>]_CHQQ`*BN/_N!;"I>SC[+,0"ZK]Y>$AZ-_N
M[A&X`N7(A$OWF-%$24VZU2&(T;3LA.S1_4/`Y>BQ[\#2HU`,FO=JH_@,OH:G
M$.Q6$`/9BO:90@C9!.US]T/?8-E53D1%4LCA1=GTP5^X`NPO$!"K_>7_Q81"
MZ67,!:'1]P_4$*68XJ7\&>PK+@WL^P\,2/[EZ";!\.TUT)"Y#_??#PI#0%)%
M5K=3GM!_':2Y^_?HRP\.T/WE_>CT<@CK`T/=]ZUB*,Y#^`JZR>R9NO@,AFL!
MM>R%#PW2\`JC_)YH&.ENH_@0E^NF$"[".P\25%CJ_5Q6PX9)4TE413I7XFKA
M.W0Z#PGL_^AH\'?9JNA1>+_W(0\40JWI('1E>'31$,GX#C--R?@+,?!`?@B:
M%@PQP.D8]3]O0_WZ]KH*'<D"'<FQ\B/X0?W4#BP@4T%LC=,X"&-35$_[#L%P
M\%WX(%!/NGWE0U#A_R]2_"D@Z,+VZ<<+Z/7#W_;H:_V8#@(Q2NBGK?@)$!Y>
ML-#I@0XQ(`I^'$'I\;/ZZ5-03$%9>-F<5$%25*2ZINGB`6)-3XJ-*/PQ#"&H
M:JAOJ)V$0\(3_4`.`:E00[BI^`D'J7GJ*@XO&D.I^!':V:OX%C"K%:L:"/^K
M2,2^]>CK#0%+&\+H^_6K_[+J)/W5U?@-*JOX"8WKKO@73+#%]>F'\,H*Z/BS
M;OV;#0(WA#5`Z*JO^`EALM/I"S"$#2UL\;`3(#6$;;E("T%#2L%3K?@32<`0
MX:QQK'9"B*RDQAK]1S>$K%#H5JSX"0VL?^D8@C"L1']%MSF$K/@@1*P=K"*L
M\+]0QL;TZ/,,`C),Z`(AW*SX";GI*_W<##=8_OWJ5%<%_%,@0D5&`?`)3?@4
M^O*_'T+TZ<0)Z/*E:/V5#`VB34+THO];X5JES>E^##)._J+X"4%7N<,0IO@8
M1*;H9J=KPK>G0,$_##E);J^K9EM!Q:EO=P+:=#^YNZKLKZFMTA32S.%F7=$2
MT<'3YFSP/V'<Z$\-Z/\+,61I9^@/ZFFNB=-N=6UB97(AB(0HRG+9[/S\X;SX
M,2DLZ!?(QPM243NZTLUC0<S?Y*:LZI=CS-*@RJC]=OW[Q>B_X=4,Z(4+/SYV
MTSS3:&'CH7)A8]!S+B"+5%B)K/@,Z'4!T\#&TR'<U'B/NC\+/7SX"JC@9BEN
MR2O,ZN"C+D``*:RM0TL(%V-A-]&M6\-PWF%KU>A+O/L*&T$!R:%.IJ*%H?N@
M(#C3='C),K+Q?/T2\^C9"@_QP`X>P?'RZ,%5``H6>,KY]+_#8L3XW[8NZ/0+
MZ,H'Z+;[%ZDA/.CZ^J3Z]_WH0H0-_9/]Z/R<V;3[_\/`"R:1!>BQ"^OTP^AW
M"A'W#T=%5%0!NE)%4$]25"[#P__HK[MX\>B0^HWP_PO-4.B'"RTP`%`]"0#_
M_W<.6%M0N`H`]^M;`<.3Z^6I^T1$X6CA^!GHD2F)D\.Y[F^@&;GI\1F\Z`0*
M`EM"0;W4A_SK_N\)ZT/KXM3H/_S[\.A8_^BX?=D)`ULV0_ANZ-#VZ.W,"1A"
M_S!)3U,@0TQ!24WY4T,,[T]%3DI/5U,]2Z'HWV._">BJ"0ARJ55-3NXJ"`_N
MK>[E"NCBUU7]D@E`%+W.NV)ESN@+3/&?\16@99DJG/V1[.EG!X<-Q6UU;-AT
MP>B;N6M'2PD]BY*/E$:'\6UM]/VV*,%Y\6X@1%-2H?]S>NDNPP$"\T-0ZG)E
M=(*'"Y7H5[P'"2/MM<MNQ'1C[.0J=)=I>CGQ+7@8UMT(+2@9+T3?#^0T+C!X
M`M%322Y360Y"\F/I:VY.M^E&8GT(Y.JXLBXIZ/D1]K\0_:8()$1E=O3IMG0"
M0)YUU((3<HB%*"A@*6?\__^]("#HN@D)P'5&Z-G9=`@\HBB<B`[,_T+SK!1L
MZH1`_"%2843^_W0UD6EV97(_Z8@`Z+?]4U#6^U.L@E!V\3)Y^0=8G.D=@\3/
M%P3H%@@3TD122:G!^G#&1TKQ4R'I4\O\!QCU+^;X"RGU,/-8Z/$'Z-P',O>$
M</#A\!E5R0<<%U33\W9A=K$E#8OXXX;9=/=@"_$]4&-Z=`%4@X/[@G\98'GS
M8'ET8.C9".C6>`/]A@=`5X#S>?H4\!AA@/'!N"`XKL,PMN)U;>BA'_(R->-O
M^O]W0-FB^`D@*%D@+R!.*3_HI7@,[B(,QP80`/"P^I@9`.D#,%($>OCS;?_X
M#75M;``F;6X`B1ZO!^,3H^437V[J_5!3H>F`__?H6E\IWQG"B=#__XG[4[CH
M`[NV`%_W[_?[,=/'EWD%"=(KP^C%[IVY'F\DD^A'[=V#/BBW<0OM_Q]_0GG!
MKN2=!@HQ,C,T-3;W_S<X.3"1Y=8'6>+AZ&S_Z)G7O^WI?/^@;-'V)@'WTR'8
M=/\@(M'NZ&$&`EM(N:*A<0QORR+MR_:AR`&5_`;$T942NV1+"GE_=3')6.B5
M!UA0D&FQ_^5I"P9P@[&]<IKL2IDLO^'[2IO9?41$Z03_/(HFZ/W]WP4?-/-4
M5%D@5U))5$4L$LD/_U0@,3!(]T%(/3!%2.E^&E@?BP[HT@4'Y3(Y^O_M11J+
M$NB_!0M42%)/54?=+T@@WN'I+A&+*>BH!2+I^`I<K[=205<YDU&,549&88+Z
M\"F*67.ST9D&Z!+]#P93(?A0N+SH(GIA]@7HL#YX\(M>SO%[89/HO@5</^OI
MR`5AD0&IJ0:)R*/`'Q<KP?Y9B<O1XQY:_HF'TQ/Q9?'\0_#\[GX1UIJ)%NW*
M]#SH#@4R0$$E_^*["C)ZX0#R_UA424U<#O`<H)%#3U;A*R\M_W`@+C`UZ"4&
MZ3J+T@0S5L/$P_@)M?@*P_@9Z#>8=Z,$*DY/U=)/3![!1\;"[_3X"URWP%1(
M3T3HMQO]Q#`\!1O1X/Z)QXN%/$0SNPP`DQ_-'VQ`ZT#J^`VWZL_;_1CQ!%.+
M)%N*<041]+M%1>G^KS[JZE#H#^SH#@0Y4V7RP7MM:<%A8@:<97APE>'BOG8]
MD6^#?U#9=_F2XW1E8VAN:7$/+QCA+N@>-LX#/U73<2@LT>R2.8P&8G64D>T5
MPW-MYXIC:7*AB9>21>&B2=J5FO^ZV`17`.B(`SUJTN71[=L=!3?8#`Z0"F]N
M^\C\<,G#N.NSM.DLZ)2\1,D*`RB(1+EWM]L0T9$`9V._)*/(AL9UK\EE;-%E
MT;"[8OTKZJCT;`3#[2CKP7'8\2/[S/+P_/0]!-P>^P3JQ_3:Q^D%`%A]^-8]
M4Z+IZ.K]1_CH_SZ$`P5:\NKH7/&]^O=K"02X%&1I`^BS`AFWU+W-1(7I,/RP
M:@OC`]KZ`G__Z(T"'D-O<'D:S"A#*2`Q.0'Z.3!#T50N84%L;7-X>>BXU<_5
M8@(B2=_#N;)N970ZFLEM84#S:X>`9W9S+J)B^QUR]"[PR>B)AH;.G0C1SC#.
M38;U\0I!9EJYRX)T=)78\;]S4_%P<F]V:7[QZ%?1;ECUT0$"@^F_\5R%X8%I
M9N@Z:=;-@6%N.8&T6>@JA`VA)_TD`P]GHP\?#>+HZ'P(PW1/Z`R^UN6\`1E.
M;S[TO<U$,JF(H0_O1"$AZ.R;G`$?5W#"<A!4=:I0,S;14<'HP=W/Z/(=\R['
M6MG__^D_``X/G."AZ#^<90$J1$)!J>+*>6YGLL["^!`UM/;)Z,GURIII))X^
M2;4=GCE0EV']T7[B0P?B1G1.XO"5*)6#/M,`=$'AU>A.8OX`.D?B?'%Q\WF@
MUR#]#NG1\2P@<)'X"H3*;\$@;&5N9QOJ:&O!]37J$+X-OPK]N@!"4')Z#0-Y
M%JP1<B!B81NY<;IETG7RHKG"<V5GMGIUH6YI8PU:JR@C)^?QNKHI_]^TP0'I
ME_WHFP%0H\H!6#C1'W;HE>;HON9/Q@$KR8W]_QY51`/I_OKH-O8__`/H\3[\
M\^7KZ.;M]^KH+^GH/_P9_.CI\^@I^T'G7EA;7Z%:4XG3.=CWS)C3[3GD[ZHQ
M\:K3(=A0_^9;\#10T_\!PUC0Z6<`4`G`>0+W#I/8R3GH`WMP`.EQ@('1T\'H
MYW:Y\['I5@"Q4PG;U]LU!?3AV]!AV/ZKV+_C+7Q'T`F\X5OC,:E^"HG!4=\=
M2T%9XOG#=#`,1^9T,[@@0@"D/`L)PWQX&W%;=?7#,[D)?5(>V?"]H'@Y4RQ]
M!5@!$@4'5_LPAX#BY=,@_++-A8D'N<)8]_/0>OSI6HJ'[_@*V[']/!4&N"V[
M_0`#`,RY@P8''/^/#[[[B`?#H?K1T0!;*=@'_.HJ!@"C\)FA`P$%L`-DU3';
MOGGI'9:$*/@+Q!4F0\2T_S\-`$GEA:'I=>6(Q(G:X1_-(2##N@"`*<(!RH,`
M>U::`/`````````````!\/_^__#_/@&+`%L!!@X?BPX,`(OQ3HGWC-L#'@H`
MCL/]\Z13N"L`4,LNBRX(`(S:B>@]`!!V`[@`$"G%*<(IPX[:CL.Q`]/@B<'1
MX$A(B_"+^/.E">UUV/R.PH[;,?8Q_[H0`*V)Q='M2G4%K8G%LA!S`Z3K\3')
MT>U*=06MB<6R$'(BT>U*=06MB<6R$-'1T>U*=06MB<6R$-'104&LM_^*V.D3
M`*V+V+$#TN^`S^"`Y`=T#(CA04$FB@&JXOKKIJP(P'0T/`%T!8C!0>OJB?N#
MYP^!QP`@L033ZXS``=@M``*.P(GS@^8/T^N,V`'8CMCI<O\J1D%"*@X?OE@!
M6X/#$(G:,?^L",!T%K0``<>+QX/G#[$$T^@!PH[")@$=Z^6M"<!U"('"_P^.
MPNO8/0$`==J+PXL^!`"+-@8``<8!!@(`+1``CMB.P#';^H[6B^?[+O\O``$`
MW*?$_0(`````````````````````````````````````````````````````
+````````````_(,`
`
end
END--cut here--cut here