汇编《万年历》实验设计报告.docx

1、汇编万年历实验设计报告汇编万年历实验设计报告912106840444 王誉霖一、 设计思想方案1：利用bios调用，dos调用构建一个年历板式，然后根据zeller公式计算元旦的日期，循环输出年历。二、程序源代码;CalendarDATAS SEGMENT TSTR DB Please input a year =$ IVLSTR DB INVALID INPUT! $ OVLSTR DB “LOWER THAN 1582” LINES DB 80 DUP (_) ;分隔符 CRLF DB 10,13,$ERRFLAG DB 0 ;非法输入标志 0,1INVALID 2OVERFLOW YEA

2、RW DB 10 DB ? DB 10 DUP (24H) ;年 string YEAR DW 0;年Num LPYEAR DW 0;闰年 ONEDAY DW 0;元旦的星期 DAYW DB 2 DUP (0) DAY DB 0 WEEKCT DB 0;7d计数器 BASEL DB 0;line存储 BASECL DB 0;column存储 IF3 DB 0;三个月循环 MTITLE DB; Month title num= DOS char color _Jan._,12,_Feb._, 11,_Mar._,14,_Apr._, 2,_May._,13,_Jun._, 3,_Jul._,11

3、,_Aug._, 10,_Sep._,2,_Oct._, 12,_Nov._,5,_Dec._,12 SIGN DB S. M. T. W. T. F. S. ; week sign LPDAYS DB 31,29,31,30,31,30,31,31,30,31,30,31 ;leap year days DAYS DB 31,28,31,30,31,30,31,31,30,31,30,31 ;nonleap year daysDATAS ENDSSTACKS SEGMENT DB 1024 DUP (?)STACKS ENDS CODES SEGMENT ASSUME CS:CODES,DS

4、:DATAS,SS:STACKSSTART:PUSH6 MACRO PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH ESENDMPOP6 MACRO POP ES POP SI POP DX POP CX POP BX POP AXENDM;保护及恢复现场CLEARXX MACRO XOR AX,AX XOR BX,BX XOR DX,DX XOR CX,CXENDM;MACRO_宏定义结束 MOV AX,DATAS MOV DS,AX LEA DX,TSTR MOV AH,9 INT 21H ;人机友好 CALL INIT ;输入及初始化数据 CAL

5、L ZELL ;计算元旦星期 CALL SHOW ;输出 JMP FINISHGOERR: CALL ERRINFO FINISH: MOV DH,36 MOV DL,0 MOV BH,0 MOV AH,2 INT 10H ;重置光标 MOV AH,4CH INT 21H ;_SUBROUTINE_INIT PROC NEAR LEA DX,YEARW MOV AH,10 INT 21H CLEARXX MOV CL, YEARW+1 JCXZ GOERR ;无输入时跳转 MOV SI,OFFSET YEARW+2A2DLOOP: MOV BL,SI SUB BL,0 CMP BL,0 JB

6、IVL CMP BL,9 JG IVL INC SI DEC CL MOV AX,YEAR MOV DX,10 MUL DX ADD AL,BL MOV YEAR,AX CMP CL,0 JZ CHECK JMP A2DLOOP ;年份转换十进制数CHECK: CMP YEAR,1582 JB OVFL JMP A2DEXIT OVFL: MOV ERRFLAG,2 JMP GOERR IVL: MOV ERRFLAG,1 JMP GOERRA2DEXIT: XOR DX,DX RETINIT ENDP ERRINFO PROC NEAR;ERROR INFO OUTPUT;ERRFLAG 0

7、,1INVALID 2OF 1582 LEA DX,CRLF MOV AH,9 INT 21H CMP ERRFLAG,1 JG OVS LEA DX,IVLSTR MOV AH,9 INT 21HOVS: LEA DX,OVLSTR MOV AH,9 INT 21HERREXIT: RETERRINFO ENDPIODAY PROC NEAR;MAKE A DAY STRING;SI-BUF;AX-DAYS PUSH6 MOV CX,0 MOV BX,10IO1: SUB DX,DX DIV BX ADD DL,48 PUSH DX INC CX CMP AX,0 JNZ IO1 MOV S

8、I,CL INC SIIO2: POP DX MOV SI,DL INC SI LOOP IO2 POP6 RETIODAY ENDP ZELL PROC NEAR MOV AX,YEAR MOV BX,4 DIV BX CMP DX,0 JNZ UNLP MOV AX,YEAR MOV BX,100 XOR DX,DX DIV BX CMP DX,0 JNZ LP MOV AX,YEAR MOV BX,400 XOR DX,DX DIV BX CMP DX,0 JZ LP ;leap year judgementLP: MOV LPYEAR,1 UNLP: DEC YEAR MOV AX,Y

9、EAR ;ZELLER w=y+y/4+c/4-2c+26(m+1)/10+d-1 ;m=13, d=1, y = year -1 MOV BX,100 SUB DX,DX DIV BX MOV ONEDAY,DX ;DX -Y MOV CX,AX ;AX -C MOV AX,DX MOV BX,4 SUB DX,DX DIV BX SUB BX,BX MOV BL,AL ADD ONEDAY,BX MOV AX,CX MOV BX,4 SUB DX,DX DIV BX SUB BX,BX MOV BL,AL ADD ONEDAY,BX MOV BX,2 SUB AX,AX MOV AX,CX

10、 MUL BX MOV AH,0 SUB ONEDAY,AX ADD ONEDAY,36 CMP ONEDAY,0 JS DELNEG JMP GOONDELNEG: NEG ONEDAYGOON: MOV AX,ONEDAY MOV BX,7 XOR DX,DX DIV BX MOV ONEDAY,DX RETZELL ENDPSHOW PROC NEAR MOV CX,0 MOV DL,79 MOV DH,24 MOV BH,7 MOV AL,0 MOV AH,6 INT 10H ;CLScreen CLEARXX MOV CH,12 MOV DH,0 MOV DL,36 MOV CL,4

11、 MOV SI,OFFSET YEARW+2 CALL SHOWSTR ;输出年标头 MOV CH,12 MOV DH,1 MOV DL,0 MOV CL,80 MOV SI,OFFSET LINES CALL SHOWSTR ;输出分隔符 MOV SI,OFFSET MTITLE CLEARXX ;calendar title init LLOOP: CMP BH,4 JZ MSHOW SUB BL,BL MOV AL,BH MOV DL,9 MUL DL MOV DH,AL ADD DH,2 INC BH ; SET LINE space , column space CLOOP: MOV

12、 AL,BL MOV DL,27 MUL DL MOV DL,AL MOV CH,SI+21 MOV CL,21 CALL SHOWSTR ;month title INC DH MOV CH,15 PUSH SI MOV SI,OFFSET SIGN MOV CL,21 CALL SHOWSTR POP SI DEC DH ; weekday title ADD SI,21 INC SI INC BL CMP BL,3 JZ LLOOP JMP CLOOP ; line column loop MSHOW: CLEARXX SUB BP,BP MOV BP,OFFSET DAYS CMP L

13、PYEAR,0 JZ NOLP MOV BP,OFFSET LPDAYS ;DAYSNOLP: PUSH AX PUSH BX MOV AX,ONEDAY MOV BX,3 MUL BX MOV DL,AL ;FIRST DAY COLUMN POP BX POP AX MOV DH,4 ;FIRST DAY LINE MOV BASEL,DH ;store line=dh=4， column=basecl=0MONTHLOOP: INC BH INC IF3 CMP BH,13 ;MONTHS JZ FIN MOV CX,ONEDAY MOV CH,BP INC BP CALL MONTH

14、CMP IF3,3 ;IF 3 MONTH RESET LINE ROW JZ DEL3 ADD BASECL,27 PUSH AX PUSH BX MOV AX,ONEDAY MOV BX,3 MUL BX MOV DL,AL ;FIRST DAY COLUMN POP BX POP AX ADD DL,BASECL MOV DH,BASEL JMP MONTHLOOP DEL3: PUSH AX PUSH BX MOV AX,ONEDAY MOV BX,3 MUL BX MOV DL,AL ;FIRST DAY COLUMN POP BX POP AX MOV DH,BASEL ADD D

15、H,9 MOV BASEL,DH MOV BASECL,0 MOV IF3,0 JMP MONTHLOOPFIN: JMP FINISH RETSHOW ENDPMONTH PROC NEAR;PARA: ; CL FIRST DAY; CH DAYS; DH LINE; DL COLUMN PUSH6 SUB BX,BX SUB AX,AX MOV WEEKCT,CL ;weekct-count of 17 ;AL-count of daysBG: DEC CH INC AL INC WEEKCT MOV SI,OFFSET DAYW CALL IODAY PUSH CX MOV SI,OF

16、FSET DAYW+1 MOV CH,15 MOV CL,SI-1 CALL SHOWSTR ;AX, SI;output a day POP CX ADD DL,3 ;column+3 CMP CH,0 ;days=0 jmpexit JZ MEXIT CMP WEEKCT,7 ;7day end jmp nextweek JZ WEXIT JMP BG WEXIT: MOV WEEKCT,0 MOV DL,BASECL INC DH JMP BG ;reset、 weekcount ;column resetMEXIT: CMP WEEKCT,7 JNZ MFINISH ;SPECIAL

17、DELIVER IF WEEKDAY COUNT = 7 THEN NEXT SET 0 MOV WEEKCT,0MFINISH: SUB AX,AX MOV AL,WEEKCT MOV ONEDAY,AX POP6 RETMONTH ENDPSHOWSTR PROC NEAR ;PRINT STR, custom COLOR set;PARA: DS:SI POINT AT BUFFER ADD ; (DH)=(0-24); (DL)=(079) ; (CH)=COLOR ; (CL)=N OF CHAR PUSH6 MOV AX,0B800H MOV ES,AX MOV AL,2 MUL

18、DL PUSH AX MOV AL,DH SUB AH,AH MOV BX,0A0H MUL BX POP BX ADD BX,AX MOV DL,CH SUB CH,CH JCXZ OKS:MOV AL,SIMOV ES:BX,ALINC BXMOV ES:BX,DLINC BXINC SILOOP SEXIT: POP6 RETOK:MOV CL,SISUB CH,CHJCXZ EXITMOV ES:BX,CLINC BXMOV ES:BX,DLINC BXINC SI JMP SHORT OKSHOWSTR ENDP CODES ENDS END START三、效果图四、遇到的问题与心得

19、体会问题1年份转换与数字问题：因为课件中的str to dec是单个字符，2号调用。我经过自己编程研究，写了个通用的字符串转十进制数解决了这个问题问题2日期输出问题：因为日期有一位数也有两位数，于是上网找了一个通用的指定位置输出任意个数字符的子程序，并实现了彩色功能。问题3Zeller公式问题主要是对乘除法机制理解不透彻，犯了很多低级错误。认真看书加多次实践解决了此问题体会：这是我第二个比较大的汇编程序，跟上次的累加比起来也积累了不少经验，首先是堆栈的使用，因为寄存器紧缺，所以保护现场，子程序间的隔离至关重要，我也是用了个宏定义方便成对进出栈。整个编程过程中最难的是坐标计算，又要乘法又要除法非

20、常头疼，一不小心出现的bug你砸了电脑都看不懂，还是应该多加练习！ 因为人懒，输入判断非法和溢出做的简陋，不过我认为实验重点在于让我们体会输入输出和字符串操作，所以无所谓啦。方案二：题目只是说输出个万年历，没要求一定是自己来做啊，笑嘻嘻，所以利用win32汇编，可以调用shell32.inc的APIShellExecute，调用浏览器打开一个万年历网站即可，整个程序不超过50行！完爆方案一！Eg：.model flat small include shell32.inc includelib shell32.lib.dataszHomePage db .codestart:invoke ShellExecute,NULL,NULL,offset szHomePage,NULL,NULL,NULLinvoke ExitProcess,NULLend start 2012.1.5 王誉霖