电子时钟日历设计源码.docVIP

电子时钟日历设计源码 ;电子钟 DATA SEGMENT ;-------1602 AA EQU 02B0H BB EQU 02B1H ;-------8255 PA EQU 0288H PW EQU 028BH;控制口 HOUR DW 0D,$ MIN DW 0D,$ SEC DW 0D,$ YEAR DW 0D,$ MOUTH DW 0D,$ DAY DW 0D,$ BUF1 DB 0D,$ BUF2 DB 0D,$ XHJC DB 0D,$;8255PA0信号变化 MES db g--start,0ah,0dh db p--position,0ah,0dh db e--exit,0ah,0dh,$ DATA ENDS ;-------------------- CODE SEGMENT ASSUME CS:CODE,DS:DATA ;------------------------ START PROC NEAR MOV AX,DATA MOV DS,AX MOV DX,OFFSET MES MOV AH,09 INT 21H MOV HOUR,0 MOV MIN,0 MOV SEC,0 MOV DAY,0 MOV MOUTH,0 MOV YEAR,0 MOV XHJC,1 ;1602显示控制字写入 MOV DX,AA MOV AL,0EH ;开显示 OUT DX,AL MOV AL,38H ;开第2行 OUT DX,AL ;--------------------- ;写8255控制字，A口输入，B，C口输出，方式0 MOV AL,090H MOV DX,PW OUT DX,AL ;---------变量置零 MOV BUF1,0 MOV BUF2,0 K1: MOV AH,0 ;键盘输入 INT 16H CMP AL,g ;G--开始 JZ FIRST JMP K1 ;------------------------------------------------- FIRST: MOV CX,267 JIANCHE: MOV DX,PA;读入信号 IN AL,DX AND AL,01H MOV XHJC,AL ;------------PA0信号变化检测 L1: MOV DX,PA IN AL,DX AND AL CMP AL,XHJC JZ L1 MOV XHJC,AL L2: MOV DX,PA IN AL,DX AND AL CMP AL,XHJC JZ L2 MOV XHJC,AL SUB CX,1 CMP CX,0 JNZ JIANCHE ;----------------------------------------------------------------------- ADD SEC,1 CMP SEC,60 JS SHOW MOV SEC,0 ADD MIN,1 CMP MIN,60 JS SHOW MOV MIN,0 ADD HOUR,1 CMP HOUR,24 JS SHOW MOV HOUR,0 ADD DAY,1 CMP DAY,30 JS SHOW MOV DAY,0 ADD MOUTH,1 CMP MOUTH,12 JS SHOW MOV MOUTH,0 ADD YEAR,1 SHOW: CALL XIANSHI MOV AH,0BH INT 21H CMP AL,0 JNE GG ;判断是否有