汇编语言程序设计(4).doc

实验四接口实验w88石光981239源程序1;STACK SEGMENTPARASTACK'STACK' DB256DUP(0)STACKENDSDATA SEGMENTSEG8 DW?OFF8 DW?IMR DB?COUNT DB100TENH DB'2'HOUR DB'3:'TENM DB'5'MINUTE DB'9:'TENS DB'5'SECOND DB'0',0DH,'$'DATA ENDSCODE SEGMENTSTART PROCFAR ASSUMECS:CODE,DS:DATA MOVAX,DATA MOVDS,AX MOVAH,0 INT16H MOVAL,08H MOVAH,35H INT21H MOVSEG8,DS ;中断向量应返回在[DS]∶[BX]中 MOVOFF8,BX CLI PUSHDS MOVAX,SEGTIMER MOVDS,AX MOVDX,OFFSETTIMER MOVAL,8;此处遗漏中断号 MOVAH,25H INT21H POPDSMOVAL,00110110B OUT43H,AL MOVAX,11932 OUT40H,AL MOVAL,AH OUT40H,AL INAL,21H MOVIMR,AL ANDAL,0FCH ;重写IMR应该用“And” OUT21H,AL STIFOREVER: MOVAH,1 INT16H CMPAL,20H JZEXIT MOVDX,OFFSETTENH MOVAH,09H INT21H MOVAL,SECONDWAITCHA: CMPAL,SECOND JZWAITCHA JMPFOREVEREXIT: CLI MOVAL,IMR OUT21H,AL MOVAL,36H OUT43H,AL MOVAL,0 OUT40H,AL OUT40H,AL CLI PUSHDS MOVAX,SEG8 MOVDS,AX MOVDX,OFF8 MOVAH,25H MOVAL,08H INT21H STI POPDS ;DS出栈 MOVAH,4CH ;功能号有误 INT21HTIMER PROCFAR PUSHAX OUNT JNZL2 MOVCOUNT,100 INCSECOND CMPSECOND,'9' JNETIMEXT MOVSECOND,'0' INCTENS CMPTENS,'6' JLTIMEXT MOVTENS,'0' INCMINUTE CMPMINUTE,'9' JLETIMEXT MOVMINUTE,'0' INCTENM CMPTENM,'6' JLTIMEXT MOVTENM,'0' JMPL3L2: JMPTIMEXTL3: MOVAL,HOUR ANDAL,0FH MOVAH,TENH ANDAH,0FH ;应将后四位全保留 MOVCL,4 ROLAH,CL ORAL,AH ADDAL,1 DAA CMPAL,24H ;此时AL中存的是BCD码 JLL1 MOVTENH,'0' MOVHOUR,'0' JMPTIMEXTL1: MOVAH,AL ANDAL,0FH ORAL,30H MOVHOUR,AL MOVCL,4 RORAH,CL ANDAH,0FH O