Date:	Sat, 25 Feb 1995 03:24:52 -0400 (AST)
From:	Bill Davidson <bdavidson AT ra DOT isisnet DOT com>
Sender:	Bill Davidson <bdavidson AT ra DOT isisnet DOT com>
Reply-To:	Bill Davidson <bdavidson AT ra DOT isisnet DOT com>
Subject:	Re: dodging the INF-amous NaN-nygoat
To:	"Donald E. DeMuth" <DEMUTH AT nosc DOT mil>
Cc:	"A.Appleyard" <A DOT APPLEYARD AT fs2 DOT mt DOT umist DOT ac DOT uk>, demuth AT nosc DOT mil,
	djgpp AT sun DOT soe DOT clarkson DOT edu

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--0-1858839129-793697092:#3795
Content-Type: TEXT/PLAIN; CHARSET=US-ASCII



On Fri, 24 Feb 1995, Donald E. DeMuth wrote:

> I couldn't find "CTRL87.C" in my files or in the yaseppochi-gumi archives.  
> Could it have been posted on another mailing list? 

No, I got it from this list, and it was just a few (>2?) weeks ago.  
There was a thread about being able to use and print out NaN and Inf 
values without an exception occurring (damn, I always mis-spell that 
word!) and a fellow from Hungary posted the program in question.  It was 
encoded via arj, and it took me a day or so to find arj.exe and decode 
it.  Anyway, I am including it here encoded via pkzip; if that is not OK,
let me know and I will get you the source one way or another.
It is a simple program (one of those "why didn't I think of that??" 
programs) and it is particularly interesting in what it tells us about 
the way go32 initializes the '87.
There were some pascal files included with the original distribution, but 
I deleted them because I don't speak pasal.  I apologize to the author, 
but I never thought I would be re-distributing this stuff.
Included file(s) attached (I hope this works!)


--0-1858839129-793697092:#3795
Content-Type: TEXT/PLAIN; charset=US-ASCII; name="ctrl87.uue"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine DOT 3 DOT 89 DOT 9502250352 DOT A3795 AT ra DOT isisnet DOT com>
Content-Description: 

YmVnaW4gNjAwIGN0cmw4Ny56aXANCk00JEwjISBIICAgICAgIDpdMVFbNF0z
QDslUCAgICE8ICAgICUgICAgMFJZIjA1MUc4VixAPFdJQTxCWUMNCk0oJi1U
PEZQWC1SWUMoIlVMOzUhKyBQMDQgICAgIiAgQkwkPD42NiddQ1csISAgIiEh
QCAgIiAgICAkLTQNCk00RFBYLVJZI005NSE6WCxQJSw/T0BNX0FYMSJMUiZS
VzBcTyYzS1YuJTw6LiE0RUM7LC1MNEkpOCJaNz8NCk0/O1o4QEk4PVVNSSVV
IjNPWTY/Ui1fWS04XV4jJipBMVk2U1oyKyYhOV5JWz4jU0RLLiIiMDk7LSVR
XT8NCk1HWE9XVjMyOzlZRCs8RCcrKkY8ME4tJjtIIFZELDE7KEohMSZSMjgi
TUotQTVEK1NNNiBZWihVNElJLDENCk03NDAkSlZGPVAkN09FTkNPRD5cPUZR
RT5BRkNdQkhcJignSCs+VUQyUFRMNiE3ISM2OEhFQEsjNEEhTlgNCk1ONzEg
QTM6VCFAQyctWioiLF5AJVRBQUQ5Nzo1VDxVS1BNIzsuSCIoVUotPiJBPE4g
V00nM0FNPjElOSINCk0uJigqNUglSyQtKyBWJjQuVVpeUzooIk1XLixNPyRI
QCMsRUEuLkA5MDpMISgiKVIiVkhANVxeSSFUKzUNCk0nIEAmOjIzRCNOWlBQ
WDlNVUVfJUdKISJeP1ckT0BLNSBURCUrOEAsISlWN1VCIjI6W18mX1EmWyon
L0sNCk0jKS1BT08gRzlbQ1QhRE1QLjRFO0xcOVs7Q0JfWzBVNjssVlU4PEou
I1xAQTonKTddSUg/VyZTMDtAIS4NCk1LPjxIOUJIRTZHXF4oOiNbNlRBXVtQ
PTAyUCwkJSAgICAgQCA5Ky0nJ0g5NV8xNFghICAgKDBcICAgQCANCk0gICEj
NSUpLC4jPE4yK1U3OlRfOy5BQ15DTDFfPio1XSA1MSZONlJNPUswLyogVUdG
PkElSDwiVCtZJSkNCk0nLkkjOkQ+VlRZO11eTUYuPFI0TTotSyEiKkVZWz49
WUdfPUIuU0RZVk1eIyhQQEUzWDojQ1BPXUgvXS8NCk1dTz9UV1A8MlRQQyck
IDMuPSMrV0ldPyMwPyBNIi5SREZCJDQ7WUREPDFPSForRCJZL1o4Tl9ZJC8+
LSQNCk1YKzg5XCQ5QjNPNExDNEI8LFlYPFA7IF8nKVAsXlY/IyA9USgpIywh
XVhRJyQjLl4xISsgUkJaWDtOWCMNCk07VylXPj5WLVAoU15JTV9PR1AoSChI
Xk40JChCOCJHRjIhKSZIMzhUMlhVQ1kkWkZfT0NSTk4oWCxRUEMNCk0zKzc/
QS9TIkVIQSZWU0FeTk9ZVFktVVkoWz9ATiMgPC9TJUckKSQ1QjMiXCYiVi5a
OVdLN1VVL1tSTD0NCk0wXCxRNzYkPilWUC03Oi8lPDNMOTUyMjpYWzFPLiZZ
NUU7PjJNI0JcQj9PQ1RJRTcuM1crLjY4PEFUM0gNCk03IVlYJSZdMCooJUNE
MjdSTCpRLExYMC5IWSpTSSUnIzlANydTR1dAQ0lNSk0sP1NWJ0BENSYrLkxV
MiINCk1OUEVROk5IWDFOKSlVITdLWDhaVz1AKEhFS1A3PUQxTS47OVUgRCFE
Pl4lVUNGVj0gLyJLTlE8Wi4rOVUNCk0gQCNLW0g0LkNGVj0gKSFVXVQpRzNL
TFswPjxUO1giI00mQiowV0JRL1c1VS86P0lJO1xZNT4nOC86STYNCk0kP0U8
XURFO0A+PCRFVT03MkwxKysgIipSVzU9WkE1VllEXl9OXFs8TlJMSzQ2ITNT
T1sjSDIwSyMtVkoNCk1fOUlKQTBQTVRGPEo9WDBeRUhKWy8vTS5YJ1I7U01J
OEAnIyE0TUI9PFg2XUc1NV5BUjRWOlIsW0w6L0kNCk1fOjMgN0kzOEIqVDtR
VVxXPU4pPl5FNl8lNUIqJD5fIC1LLFU6VjtLTy1cXitWS0k6R04+LjwnOTE2
V0cNCk1FWVkhRjFeKCUjTTQqXlJHXFBJWzVGJjVeNzdMWVlLP1xQS1tOPS5P
L01PXlZDQzlROjg8U0ldMyMhJC4NCk0kWTE/N0VLLCdbK11COzlXQlU2JT05
NzFUKVNLO1BPVz9YRVU/VFxZIywqXDI4PCMiIT4oL0YoITw8KjQNCk0nT0lY
RyMpIik9QCVMJjhcXkpCMSJDNko1J1xRQU4vOiwgOV1XQEtSMickJDhMJlhL
I0RaOixVME8gWzcNCk1PPztaKTEpL0FfXTg/U1k+KE9YREZLW1QwVFReUVko
M08lKCEsJVsmKEE/WCM/Jyw9WlwiKEAjMU1EIlkNCk0wISkkQkQsMkRdUjNJ
SEk5REsiVS9CUjcrJSlGMEhWJjg3XkMpJVstO08sMCYgIzJaUTA5K0pZWDQ8
UjANCk1YSCswIyg2MSVWPVBXNUM+ME06Sls4Wi43Il00O0A2VipIUFMgPFxM
IFxFLDpHNjIsRkleTTIqTyEtR0wNCk1VJypcMSMpPFYrMjpUVColOVNANDpd
VUYyRktBN0pSMl1ZUE80Xy9QJTRZWzlHJyguLDxCOTdFPD5KSSANCk1GTlBD
MEctJ1JAMEtFJjBWT11QOCE1S0IgTy5WKEJMPTFMLTdULD1NS100WiY6Pk89
QE5MQjVSUDMmSFYNCk1FJEMsTTZYQkJUV0E7TSBSMzciSzJUVjtXQkFETiMh
NTg/NUtOJSdKK1c7Q1UnOSpYU0tPVjM+KzhFPiwNCk1CJCAvQjI5NVk6VjVL
OCxHP14nTFYxPy9WSzsyPDwuPTNOWys/N1E8OyhWQkpDSF1JQSBWODNBMi9e
KSQNCk1RNSs2Ojc8OV0sRUNPWDNeVk5HUD9DPjQvSz9fMz1AIzJFMDYuJSZZ
UV5dXjBeV1whKzY/Rys1T1JQXjkNCk1ePFBNL0RKLVI0W18hRSErIFAwNCAg
ICAiICNLIEQ8PllERTJQJ0gkICAgIyIwICAhUCAgICUpJTA0ME4NCk0zNDZN
NU0lTlsjMDA/O1oxXEBeQ09NISpWWkE8WCs7QiI9SyJJNEIoRT1BKlwoMDw5
WSk4TTNXIT1LSS0NCk0nXlxXXCA1XCozL1ZJRVUwUTEuS0pGV0JcOURZWVhT
J05RTS0hL1kxJCUhVUM0L0hDPjU/JSQiRzgqXE4NCk1GW0pKSl5UPClISChV
IV8+VU03WU9TXVVdPlg6TTlIWVsoWCMkV0g4VTItIihOQChHJEhDOiY3VTsl
NFINCk1ZIi48OElRMCZWN00gR1lWJiBQTzBVVDlHVyAoLj5ALEUuXkAvOiFG
QiJEMCtTSE4uIEBUMDsyVCFXU0QNCk07JSpTWElSQThcMlo8TDAxRk1RRCYz
QUEhVkU0J0tCQkgoOSxUJyRJJllDQ0ckTlhAV1RQIj4lMEUoRlwNCk1IWls2
PSBXTDFBJ0AnXkQ5OkglPlE7MiE9RFosVCA/XDhUOj9LK1M2UUBeUC1VUVMm
SyUgTTE5WVpURU8NCk1CPkdRWkQxLCVIQVFeLTdeKSssXVo8UkNCPjJBNz4g
OSBZVUxcRk5XJyU0Iyw9JTRMIyQkIkBVXF1aMjwNCk1cNURULDREUlRMMSw/
Nzw6U14wLTxSUCJVRTU+KiFYOCVGM0UhJERdSCMyIikyWE0mODw7QiAwRjI3
TVgNCk0yQUZUUTlAOChJKj0hOiYhXlJBJEMuXVNFNVg0K0xUVEwrSSFDJlRR
MCQwQUdIQ1dQVCM0LTcjJyZQMSkNCk0wKSVXMkY+XT1APUsuNiMqPCc/UFgt
RUEtQl1RLjBbM0YhLSZNSE02QD5MKl4wX0c4OTU2LUEyWEpIRU0NCk1GMTBf
OEwrIClHWyRFLTlaTT0xSkY6JSNfRFxYSz4gOU43Qjo3Wyg0XDoiI1stJDpJ
WjM4MlY4OTlZTjoNCk1OR0tXOzRMPEs2ISEpSlQmVkcjPUc4RTpPLDQuS0JF
OFVOPlMiK11LXEJGME87SiQ/Tzk6UiZYWF43WFQNCk0+SDBdQTA+LldKLlUj
NVBTWCdZJDQ0Ii9SQF8yUDAyI1VHIEpHN1tbXFJdRyZaRUpHUDVPUzIgPFlD
ICUNCk0kWycoKTkpQDw4XkMlTUU+RCsqNUFUKEQ6OTtfWk4qKUJfSV4+XFxa
VT02NjU7LDZLNlFCNT4oRjJQJV0NCk0sLlE2RSdBRy8sKkhOQFA2NjYoWD0v
Q0pSMk9JVzFROkBKVio7JyVOKkNFTEUlI0RRKj4kL0hLR1BES0gNCk0yMi9N
TU0gSi44KERVQVIpUUhGTztfKSwuRTpSWydRQyosRTReSFdGOyc5TyYvQFBV
LDo8WT8iQFkxUCgNCk0iXEQ+WVs4UyA3NkJMIzAwR1U3QF07SyooUyhaLjQ5
S0FURzYlITtJRiAqNCwwLS4lJyozJTQnVScgK1oNCk0hIyZJQSorTDc3OyxK
Tj1MMiFEWiJJUVowKUZcST5VPkclLkBGWTpNKyRNUy42UCklSjk0NVQpKiFJ
UCwNCk07JEVNQzddOCpTWkZVWyM+QjhXSzkiTylEP19SWkwvTUteXy9PW0ow
LjpHVColOUZVVDIhXVxWJ1lCKCMNCk0yJz41RUYzTVwiVzU9XU5XO1gqVy0p
XTQ3KDVGPl1fMC4wPChZW0taJ1kyXiRYNiouTVRLX0kkTlxJQSkNCk0nWzxH
NyMrV1RVP105NCEoMD1GJixVJE9IRVBBJUs4VzwxNSlRRUxZR05NXCRaRU42
IkZFVFhNICssTi8NCk0/U1UnWy4nWjRdIDhZPCo8LlM3KTIrV1dBRSZDMjhN
VF4gW1VaLEcyTCcjLCs0WEopIj8sPi5ER0hQL00NCk1ZNVpdKD49RitXPjtD
LylDTCxfWVBcXD9SNzouLz9CWF8hRiYhPSpHICVfKEsvSUFdSCwqIEhXRzNB
R1sNCk0tNzNHKzRJJVdXQVo7LVI4Rk05QSxcWiVRKzAkLFhTSVIuPEM/U01a
Tj4oQjBKMjk4NypTQkM5KyY6PzINCk1LJ09FI1s/RFgzOk9KUykwMVw6VlJe
TUFfXF0pRj83Lk1WPFNQSEJKUFUhLjFFVSkkSjw2PiMxRFY3WzANCk06XVRA
V1BdLEdaTjA7USY8NU1KSUc0V1QmIiwrXEM9MDJQLCQlICAgICBAIDJLUScn
Tj4+JUNbSCBAICANCk02MDwgICA4ICAgITM2RCUyK0QuLUUmTU9WREA0QUtc
Q1wxXS5PNklFKFQxSDxWRCVSVDsoLU5GVDglT0YNCk1FTllGQTI7Vi4rQFU4
UzA+K0ZWNF9dWDlWVVFCMEJBP0MoXz9cWVNLUyVHRUtZIVpUPChHXCc8MFE5
QzcNCk1JT100U0xKRUczNCknUkIuQSdHPy4sLVw2QyBFVyBfQ0BMVis6PSZG
PilRJUdTWzZJREpZNSJYTVhdIicNCk04K1koLi46KzEpNk82RS1eRi4mMEpF
SlldJUBOID9DUVhDWEJYKj0/ICxYSjY0WUonXVVUJyssKlhDRSENCk0tWTs2
RSlFK1E4WEg6Pyo9QTkwJ0pMQjEsJTglWThYWkMiMCkkLEgpPlctJ1taQkIt
PiYhPCZeSjpHRjgNCk1CPEI+TFVAREpfO1RcPDNMNTIlWzpNTFw4I1MlNyow
Jy4gQSIyQCEzJ144TF9EWFwnQlgpUyBCRlVSIjMNCk1ETihdJ00oR1s0WCc2
NjomMSdKNl5KJyo8PlRPSUNZIEhYK1JMLEJUM1JWSFVeSUlRN0chSE0gSD9F
IiUNCk01Nk8hVlQiNDYwNUlcIzZNKCIvS04/Sl41SDxTPiI7LjMnWTE3PVxI
TVQpXyhZLSIxT0IiNDkiSS8kRSsNCk1OPjEtLDgtKlBPRjpKUCgiIj1cLDVd
ODA+SSAqXyMjWVtfXDYqIDtKOFMlUTdWRDYlODNCNSYlOjZcJT4NCk0wIyVA
WzVINSZKVkEiSTpWQj9fMkZON0ElVTBOJF8nITZeNEw7XTc6R1dWXSJPNS03
OUwmKCZNQE5OWzANCk0mOCFZOlNIIzklTzA6Xz5fLU0oVVZBPCIoK0skRDhB
LlVGMy5QWUMiVlIzTTVdOCpVNU8hLlMhWyRWMi0NCk1WRVVEOi0gMixSUCwh
XCBALSY4UycpVkImKjlFTltVVl1SQUYmP0gkW0dfIitcK0IoWyAtWlVfM00w
VFQNCk0wSDtZLExRPiRBOSRcPkgkUUFaOTtKPUtDVV4mIypHXzFZMkE5O1Im
MDkyTEw8PS8wKSFFV0s7VVAwWlENCk0hWSVfIDwxQC5cQSJAVl5AVl07IE07
Ti1HKTFdU0FOXS87VVlGWlw1OVdPRkU4OzIzTlwiMTtINF1cOlUNCk0xMico
Tk1HQVxXVSk1SiZcPkUqXC8uPk5LTCVDJU0zIyIwJTdHXkI/Ozo+MUY3OSA/
MUsvTVRMRz9fPiwNCk1YIV8tWVlbIzBbX0E6Ml8jJ0VMJz9EOlxIRDxdPzEr
QDE8MC9HIlIiVj07SVo3RScnLT80NDVcPkglLE0NCk08MEhNPD8zKVU8NSFL
KkwrTiBdWVxHSVVQTzdSXywjVVxPUVVVVi9FPzJCJD8kSE9HPV0wMlAkIiUg
ICoNCk0gICAgICAgJk80PD5VLzRYJlE8ICAgIDcgICAgITAgICAgICAgICAh
ICIgICAgICAgICAgMFJZIjA1MTANCk0yUCQiJSAgNCAgICAiICBCTCQ8PjY2
J11DVywhICAiISFAICAiICAgICAgICAgICEgIiAgICAgWiAgICANCk0wVTEy
MyNAVytELTAyUCQiJSAgNCAgICAiICFETFQ8PkFFN10lM0AkICAgQSNQICAi
ICAgICAgICAgICENCk0gIiAgICAjMyAwICAwVTEyMyNAVytEQTAyUCQiJSAg
NCAgICAiICNLIEQ8PllERTJQJ0gkICAgIyIwICANCk0hUCAgICAgICAgICEg
IiAgICAgUSFAICA0RDUhMSJZLTE1ISsgMCg0ICEwICAgICggJEpcMVFbR0dB
OF4NCk1aICggICVEJyAgICYgICAgICAgICAgJCAoICAgIC0gKiAgITM2RCUy
K0QtMDJQNCYgICAgICA0ICEwICgNCikgMCAgVyBUICAgICANCiANCmVuZA0K

--0-1858839129-793697092:#3795--

- Raw text -