让你的程序能自动启动UCDOS

Author: 王宏风 Date: 1997-01-01

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