让你的程序能自动启动UCDOS 王宏风 1997-01-01 　　当前不少中文软件都没有自动启动中文系统如ＵＣＤＯＳ的功能。笔者有一次无意中运行了一个中文教学软件，谁知里面的提示全是中文，所有的中文在西文环境下成了乱七八糟的字符。我尝试了许多方法想退出，均未奏效。更遗憾的是，此程序还不允许中断。无奈只好重新开机。 　　为此，我设计了不少方案，其中最简洁的办法编制下面这个过程文件ａｕｔｏｒｕｎｕｃｄｏｓ，并在自己文件的开始处调用这个过程文件，如： 　　ｕｓｅｓ　ｄｏｓ； 　　ｐｒｏｃｅｄｕｒｅ　ａｕｔｏｒｕｎｕｃｄｏｓ； 　　ｂｅｇｉｎ 　　ｓｗａｐｖｅｃｔｏｒｓ； 　　ｅｘｅｃ（’ｃ：＼ｃｏｍｍａｎｄ．ｃｏｍ’；’／ｃ　ＲＤ１６’）；　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｛装字模｝ 　　ｓｗａｐｖｅｃｔｏｒｓ；ｓｗａｐｖｅｃｔｏｒｓ； 　　ｅｘｅｃ（’ｃ：＼ｃｏｍｍａｎｄ．ｃｏｍ’；’／ｃ　ＫＮＬ’）；　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｛装ＵＣＤＯＳ｝ 　　ｓｗａｐｖｅｃｔｏｒｓ； 　　ｅｎｄ； 　　当然，此过程文件有一个很大的缺点，它不会判断当前是否已处在中文环境下，因此每次都要将ＵＣＤＯＳ重新装一次，浪费了用户的时间。并且当ＵＣＤＯＳ启动失败，它也不会采取别的措施，仍直接进入软件。 　　比较完善的处理方法是先测试是否已在中文环境下，测试函数如下： 　　ｆｕｎｃｔｉｏｎ　ｃｈｅｃｋ－ｉｎ－ｕｃｄｏｓ：ｂｏｏｌｅａｎ； 　　ｖａｒ　ｐ：ｐｏｉｎｔｅｒ； 　　ｓｇ：ｗｏｒｄ　ａｂｓｏｌｕｔｅ　＄００００：＄００４２； 　　｛ＩＮＴ　１０段｝ 　　ｏｓ：ｗｏｒｄ　ａｂｓｏｌｕｔｅ　＄００００：＄００４０； 　　｛ＩＮＴ　１０偏移｝ 　　ｉ：ｉｎｔｅｇｅｒ； 　　ｂ：ｂｙｔｅ； 　　ｂｅｇｉｎ 　　ｂ：＝０； 　　ｆｏｒ　ｉ：＝０　ｔｏ　１２　ｄｏ 　　ｂｅｇｉｎ 　　ｐ：＝ｐｔｒ（ｓｇ，ｏｓ＋ｉ）； 　　ｂ：＝ｂ　ｘｏｒ　ｂｙｔｅ（ｐ＾）； 　　ｅｎｄ； 　　ｉｆ　（ｂ＝４）　　　　　｛ＵＣＤＯＳ　１．０｝ 　　ｏｒ　（ｂ＝５）　　　　　｛ＨＤＯＳ｝ 　　ｏｒ　（ｂ＝１７０）　　　｛ＵＣＤＯＳ　２．０１、ＥＧＡ方式｝ 　　ｏｒ　（ｂ＝６９）　　　　｛ＵＣＤＯＳ　２．０１、ＶＧＡ方式｝ 　　ｏｒ　（ｂ＝２６）　　　　｛ＤＯＳ　４．０３｝ 　　ｏｒ　（ｂ＝７０）　　　　｛ＣＣＤＯＳ　４．０｝ 　　ｔｈｅｎ　ｃｈｅｃｋ－ｉｎ－ｕｃｄｏｓ：＝ｔｒｕｅ； 　　ｅｌｓｅ　ｃｈｅｃｋ－ｉｎ－ｕｃｄｏｓ：＝ｆａｌｓｅ； 　　ｅｎｄ； 　　下面是一个完整的能自动测试并自动启动ＵＣＤＯＳ的过程ａｕｔｏｒｕｎｕｃｄｏｓ２： 　　ｐｒｏｃｅｄｕｒｅ　ａｕｔｏｒｕｎｕｃｄｏｓ２　｛自动启动ＵＣＤＯＳ的改进型｝ 　　ｂｅｇｉｎ 　　ｉｆ　ｎｏｔ　ｃｈｅｃｋ－ｉｎ－ｕｃｄｏｓ　ｔｈｅｎ　ａｕｔｏｒｕｎｕｃｄｏｓ； 　　ｉｆ　ｎｏｔ　ｃｈｅｃｋ－ｉｎ－ｕｃｄｏｓ　ｔｈｅｎ　　　　　如果启动ＵＣＤＯＳ失败 　　ｂｅｇｉｎ 　　ｗｒｉｔｅ　ｉｎ　（’ｒｕｎ　ｕｃｄｏｓ　ｅｒｒｏｒ！’）； 　　ｈａｌｔ（０）； 　　ｅｎｄ； 　　ｅｎｄ； 　　值得注意的是，此过程文件也必须在你的程序开始处调用，以免出现内存不足而调用失败。在Ｃ语言编的软件也可调用。