汇编语言实习报告2new.docVIP

　　实 　习 　报　 告　2006年11月19日 题目：子程序的设计与调用 – 两日期之间的天数 审　批 基本算法 求十进制数字字符对应的BCD码：BCD码=ASCII码-30H 两日期间的天数 = 较早的日期到其年末的天数 + 两日期间每年的天数 + 较晚的日期到其年初的天数 闰年（闰月）的判断：年数 ^ 3（按位与），结果为零则为闰年 为提高效率，程序过程中DX，CL，CH依次用于存放年，月，日 流程图 源程序 ;cntdate - input a date(yyyymmdd) on keyboard and tell which date is it in that year ;EQU statements here DISPLAYO EQU 2H ;video output KEY_IN EQU 1H ;keyboard input DOSCALL EQU 21H ;DOS interrupt number DISPLAYSTR EQU 09H ;display string in DX MINYEAR EQU 1900D MAXYEAR EQU 3000D MINMONTH EQU 1 MAXMONTH EQU 12 ;************************************************** DATA SEGMENT RESULTSTR DB 6 DUP(?) RESULTL DW ? RESULTH DW ? LYEAR DW ? LMONTH DB ? LDAY DB ? PROMPT DB Please input date (yyyymmdd):$ RESULTPR DB Days between date 1 and date 2 is $ ERROR DB Invalid input! Must be a valid date betweenand NUMERR DB Input numbers only!$ DATA ENDS ;************************************************** DATEDIFF SEGMENT ;---------------------------------------------------- MAIN PROC FAR ASSUME CS:DATEDIFF, DS:DATA START: MOV AX,DATA MOV DS,AX XOR AX,AX ; put zero to AX CALL DATEIBIN ; get input from keyboard and save binary to regs CALL CRLF ; change line MOV LYEAR,DX MOV LMONTH,CL MOV LDAY,CH CALL DATEIBIN CMP DX,LYEAR JL CONTIN CMP CL,LMONTH JL CONTIN CMP CH,LDAY JL CONTIN CALL SWAPDATE JMP CONTIN CONTIN: CALL DOFY CALL DINY SUB AX,BX ADC RESULTL, AX ;