使用8253和8259编写的电子钟汇编程序

程序在masm5.0下编译通过,望大家有什么问题或看法能与我联系讨论，我的email:xiangyuan_122@163.com-the programme will be finished under masm5.0,please keep touch with me if you have some problems and suggestions. My Email address is xiangyuan 122@163.com

这个是直流无刷电机的基于DSP2407的速度控制源代码，希望对大家有所帮助，平台是CCS2-This is a brushless DC motor speed control based on the DSP2407 source code, everyone would like to help, platform is CCS2

本程序实现驱动TC1320实现DA转换。 入口参数：待转换的数据在SOU中。 出口参数：无。-TC1320 drive the process to achieve the realization of DA conversion. Entrance parameters: the data to be converted in the SOU. Export parameters: None.

51的是门铃程程序是汇编程序，是很精典的-51 is a doorbell-way process is the compilation of procedures, is very classical in

本程序实现系统时间查看.-system to examine.

我写的一个关于猜数字的小游戏，基于6502平台，基本能实现功能-I wrote a ringing of the little game, based on 6502 platform, the basic function can be achieved

ad9951的源代码，外国人高的用兴趣的朋友，看看希望对你有帮助-AD9951 source code, foreigners with high-interest friends to see if you would like to have help

//浮点异常的控制位 #define FPUEM_INVALIDOP 0x01 #define FPUEM_DENORMALOP 0x02 #define FPUEM_ZERODIVIDE 0x04 #define FPUEM_OVERFLOW 0x08 #define FPUEM_UNDERFLOW 0x10 #define FPUEM_PRECISON 0x20 #define __FORCE_INLINE__ __inline /*---------------------------------------------------------- 打开指定的浮点异常 关闭指定的浮点异常-//float abnormal control-# define FPUEM_INVALIDOP 0x01# define FPUEM_DENORMALOP 0x02# define FPUEM_ZERODIVIDE 0x04# define FPUEM_OVERFLOW 0x08# define FPUEM_UNDERFLOW 0x10# define FPUEM_PRECISON 0x20# define __FORCE_INLINE __ __inline /*---------------------------------------------------------- designated open abnormal closure of the floating-point designated float anomalies

超大二进制与十进制的转化（包含十进制转化为二进制，也包含二进制转化为十进制）-Super-binary and decimal conversion (including the decimal into a binary, it contains the binary into a decimal)

  Dim xs As Integer   Dim ys As Integer   Dim alph As Single   Dim lng As Single   Dim m As Integer   Const PI As Single = 3.14159265 Private Function tree(x As Integer, y As Integer, angle As Single, length As Single, n As Integer)     Dim x0 As Integer   Dim y0 As Integer   Dim alpha As Single   Dim beita As Single   Dim leng As Single   BackColor = vbWhite     If n > 0 Then     x0 = x + Cos(angle) * length     y0 = y - Sin(angle) * length     picture1.Line (x, y)-(x0, y0), vbbrake     alpha = angle - PI / 8     beita = angle + PI / 8     leng = 2 * length / 3         Call tree(x0, y0, alpha, leng, n - 1)  &nbs