;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#216 ;写入造
LCALL lxazzz
CLR CS1
SETB CS2
MOV 33H,#0C0H ;设行单元初值
MOV 34H,#0BAH ;设页单元初值
MOV 35H,#59H ;设列单元初值
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#0 ;写入今
LCALL Wxq
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#24 ;写入天
LCALL Wxq
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#48 ;写入是
LCALL Wxq
CLR CS2
SETB CS1
MOV 33H,#0C0H ;设行单元初值
MOV 34H,#0BAH ;设页单元初值
MOV 35H,#40H ;设列单元初值
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#72 ;写入星
LCALL Wxq
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#96 ;写入期
LCALL Wxq
CLR CS1
SETB CS2
MOV 33H,#0C0H ;设行单元初值
MOV 34H,#0B8H ;设页单元初值
MOV 35H,#40H ;设列单元初值
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#0A0H ;写入2008年
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#20H ;写入2
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#00H ;写入0
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#00H ;写入0
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#80H ;写入8
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#00H ;写入年
LCALL wdatnyr
CLR CS2
SETB CS1
MOV 33H,#0C0H ;设行单元初值
MOV 34H,#0B8H ;设页单元初值
MOV 35H,#40H ;设列单元初值
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#0A0H ;空1格月个位
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#32 ;写入月
LCALL wdatnyr
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#0A0H ;空1格日十位
LCALL wdatsz
MOV com,33H ;设置起始为第1行
LCALL Wcom
MOV com,34H ;设置第1行0页
LCALL Wcom
MOV com,35H ;设置第1行0列
LCALL Wcom
MOV R1,#0A0H ;空1格日个位
&nb