;設置起始為第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