ADD AX,270
SUB BX,100
CALL renovate
MOV DX,yuanx
MOV x3,DX ;重写
MOV DX,yuany
MOV y3,DX
CALL sjx
CALL sjxx
CALL sjxy
MOV CX,hour2
MOV hour,CX
hour_quit: POPa
RET
hour_lin ENDP
;********************************
minute_lin PROC NEAR
PUSHa
CMP count_minute,11
JB tominute_yl ;仍是原来的一个
JMP minute_lin_next
tominute_yl: MOV SIgle,0
JMP minute_yl
minute_lin_next:
INC count_hour
CALL CLk
MOV DL,CL
CALL bcd2 ;bcd->16
MOV CL,6
MUL CL ;al*cl
PUSH AX
MOV DL,second2
CALL bcd2
XOR AH,AH
MOV CL,12
DIV CL
MOV CL,AL ;second2/12
POP AX
MOV CH,0
ADD AX,CX
MOV minute2,AX
AAAa1:
MOV SIgle,2
MOV Color,0
MOV AX,minute
MOV BX,r0
ADD BX,10
CALL renovate
MOV DX,yuanx
MOV x3,DX
MOV DX,yuany
MOV y3,DX
ADD AX,268
ADD BX,800 ;90
CALL renovate
MOV DX,yuanx
MOV x2,DX
MOV DX,yuany
MOV y2,DX
MOV DX,x0
MOV x1,DX
MOV DX,y0
MOV y1,DX
CALL sjx
ADD AX,180
CALL renovate
MOV DX,yuanx
MOV x2,DX
MOV DX,yuany
MOV y2,DX
ADD AX,90
SUB BX,200
CALL renovate
MOV DX,yuanx
MOV x3,DX
MOV DX,yuany
MOV y3,DX
CALL sjx
inc count0
cmp count0,5
jnz minute_yl
mov count0,0
call music
call music
call music
;**********************************重写
minute_yl: MOV sigle,1
MOV AL,color_min
MOV color,AL
MOV AX,minute2
MOV BX,r0
ADD BX,30
CALL renovate
MOV DX,yuanx
MOV x3,DX
MOV DX,yuany
MOV y3,DX
ADD AX,90
ADD BX,900 ;90
CALL renovate
MOV DX,yuanx
MOV x2,DX
MOV DX,yuany
MOV y2,DX
ADD AX,180
CALL renovate
MOV DX,yuanx
MOV x1,DX
MOV DX,yuany
MOV y1,DX
CALL sjxx
CALL sjxy
ADD AX,270
SUB BX,200
CALL renovate
MOV DX,yuanx
MOV x3,DX
MOV DX,yuany
MOV y3,DX
CALL sjxx
CALL sjxy
MOV CX,minute2
MOV minute,CX
CALL hour_lin
minute_kk1:
minute_quit: POPa
RET
minute_lin ENDP
;******************in dh秒数*********************
second_lin PROC NEAR
PUSHa
CALL CLk
CMP second2,DH
JE to_second_quit
JMP second_lin_next
to_second_quit:JMP second_quit
second_lin_next:
MOV SIgle,80h
MOV second2,DH
MOV Color,0
MOV DL,second ;erase
CALL bcd2
MOV AH,0
MOV CL,6
MUL CL
MOV BX,r0
ADD BX,10
CALL renovate
MOV DX,yuanx
MOV x1,DX
MOV DX,yuany
MOV y1,DX
ADD AX,180
ADD BX,300
CALL renovate
MOV DX,yuanx
MOV x2,DX
MOV DX,yuany
MOV y2,DX
CALL linex
CALL liney
;重写
MOV SIgle,80h
MOV AL,color_second
MOV color,AL
MOV DL,second2
CALL bcd2
MOV AH,0
MOV CL,6
MUL CL
MOV BX,r0
ADD BX,10
CALL renovate
MOV DX,yuanx
MOV x1,DX
MOV DX,yuany
MOV y1,DX
ADD AX,180
ADD BX, 300
CALL renovate
MOV DX,yuanx
MOV x2,DX
MOV DX,yuany
MOV y2,DX
CALL linex
CALL liney
CALL yuanxin
MOV DL,second2
MOV second,DL
CALL minute_lin
CALL skin2
MOV CL,second2
MOV second,CL
CMP count_minute,11
JE second_kk1
INC count_minute
JMP second_quit
second_kk1: MOV count_minute,0
second_quit: POPa
RET
second_lin ENDP
;******bxbbx*********in ax度数***bx长度,*********
;OUT x2->ax,y2->dx ;**
renovate PROC NEAR
PUSHa
ADD AX,270
PUSH AX
CALL SIn
MOV DX,0
MOV CX,BX
DIV CX
CMP SI,1
JE hjian
ADD AX,y0
JMP renovate_kk1
hjian: MOV CX,y0
SUB CX,AX
MOV AX,CX
renovate_kk1: MOV yuany,AX
POP AX
CALL cos
MOV DX,0
MOV CX,BX
DIV CX
CMP SI,1
JE hjian2
ADD AX,x0
JMP renovate_kk2
hjian2: MOV CX,x0
SUB CX,AX
MOV AX,CX
renovate_kk2: MOV yuanx,AX
POPa
RET
renovate ENDP
;**************************
Clk PROC
MOV AH,2
INT 1ah
RET
CLk ENDP
;*****************cosx in ax out ax ,si符号******************
cos PROC NEAR
ADD AX,90
cos_kk1: CALL SIn
RET
cos ENDP
;*********Sinx in ax out ax ,si符号*******************************
SIn PROC NEAR ;out ax
PUSH CX
PUSH DX
PUSH BX
sin360: CMP AX,90
JA dy90
sto0_90: MOV SI,0
JMP pp1
dy90: CMP AX,180
JBE z91to180
JMP dy180
z91to180: MOV CX,180
SUB CX,AX
MOV AX,CX
MOV SI,0
JMP pp1
z181to270: SUB AX,180
MOV SI,1
JMP pp1
z271to360: CMP AX,359
JA zdy359
MOV CX,360
SUB CX,AX
MOV AX,CX
MOV SI,1
JMP pp1
zdy359: SUB AX,360
JMP SIn360
dy180: CMP AX,270
JBE z181to270
JMP z271to360
pp1: MOV CX,175
XOR DX,DX
MUL CX
MOV sin_x,AX
XOR DX,DX
MOV CX,AX
MUL CX
MOV CX,10000
DIV CX
MOV sin_xx,AX
XOR DX,DX
MOV CX,120
DIV CX
MOV BX,1677;1667
CALL SUBab
MOV CX,sin_xx
XOR DX,DX
MUL CX
MOV CX,10000
DIV CX ;xx(xx/120-10000/6)
MOV CX,10000
MOV DL,0
CMP DL,s
JE jia
SUB CX,AX
MOV AX,CX
JMP kk1
jia: ADD AX,CX
kk1: MOV CX,sin_x
XOR DX,DX
MUL CX
MOV CX,10000
DIV CX
POP BX
POP DX
POP CX
MOV s,0
RET
SIn ENDP
上一页 [1] [2] [3] [4] [5] [6] 下一页