- 积分
- 55
- 实力分
- 点
- 金钱数
- 两
- 技术分
- 分
- 贡献分
- 分
|
楼主 |
发表于 2005-8-30 23:44:55
|
显示全部楼层
#define draw 2E3ABCh
#define Md 00fe0eh
#define MdH 00fe0eh;商
#define MdL 00fe0ch;余数
org 551f80h
mov [-r0], r8
mov r12,#0h
callr do
cmp r7,#10
jmpr cc_Nc,exit
mov r13, r8
mov r12,#4
callr do
mov r14, r8
;===========月份处理===============
loc_F51668: ;月份
extp #15h, #1
mov r8, 0F6Eh ; (0015:0F6E)
mov r7,#0
;===========考虑闰年===================
extp #15h, #1
mov r12,0F70h
mov Md,r12
MOV R12,#4H
atomic #2
divu r12
nop
MOV R12,MdL
jmpr cc_NZ,lp
cmp r8,r13
jmpr cc_z,lp
cmp r8,#2
jmpr cc_z,lp
mov r7,#1
;================================
lp:
mov r12, r13
sub r12, r8
loc_F51676:
cmp r12, #0
jmpr cc_Z, loc_F51690
mov [-r0], r8
shl r8, #1
extp #1D4h, #1
mov r8, [r8+#1F60h]
add r7, r8
mov r8, [r0+]
sub r12, #1
add r8, #1
jmpr cc_UC, loc_F51676
;------------天数处理(日)----------------------------
loc_F51690:
add r7, r14
extp #15h, #1
sub r7, 0F6Ch ; (0015:0F6C)
;==============化十进制显示==========================
mov r13, #0Ah
mov r12, #8
callr Hex2D
callr Display
callr Hex2D
mov r12,#4
callr Display
mov r12,#0
mov r8,r7
callr Display
exit:
mov r8, [r0+]
rets
;============显示==========================
Display:
mov r14, #10Dh ; 图片id大字体字的
add r14, r8
calls draw
ret
;==========================
Hex2D:
mov r8, #0Ah
mov Md,r7
atomic #2
divu r8
nop
mov r7, MDH
mov r8, MDL
ret
;==============设置的数值处理==========
do:
extp #15h, #2
mov r7,[r12+#432h]
mov r8,[r12+#434h]
sub r7,#30h
sub r8,#30h
mov r12,#0Ah
atomic #2
mulu r12,r7
nop
add r8,MdH
ret |
|