微机原理课设-霓虹灯的模拟显示(编辑修改稿)内容摘要:

39。 Code39。 ASSUME SS:STACK,DS:DATASEG,CS:CODESEGMAIN PROC FAR MOV AX,DATASEG MOV DS,AXCALL CLEAR。 调用清屏子程序 MA 8,0。 欢迎界面的出现位置 WAT0: LEA DX,MENU。 输入S进入霓虹灯显示 MOV AH,9 INT 21H MOV AH,1 INT 21H CMP AL,39。 S39。 CALL CLEAR。 如果输入的不是S就清屏 MA 8,0 JNZ WAT0 PUSH AX。 入栈 PUSH BX PUSH CX PUSH DX MOV ROW,24。 完成矩形框的左竖行 MOV COLUME,0 LOP3: CALL CURSOR。 调用设置光标位置 MOV AL,24H。 把$的ASCII 码传递给AL MOV BL,0BH。 设置字符属性 PUSH CX。 入栈 MOV CX,1。 字符显示1次 MOV AH,09H INT 10H POP CX。 出栈 CALL DELAY1。 调用延时 DEC ROW。 行坐标减1 CMP ROW,0。 若行坐标大于0就跳转到lop3否则执行下个程序 JNZ LOP3 MOV ROW,0 MOV COLUME,0。 完成矩形框的上行 LOP1: CALL CURSOR MOV AL,24H MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC COLUME CMP COLUME,79 JNZ LOP1 MOV ROW,0 MOV COLUME,79。 完成矩形框的右竖行 LOP2: CALL CURSOR MOV AL,24H。 完成$的输出 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC ROW CMP ROW,24 JNZ LOP2 MOV ROW,24 MOV COLUME,79。 完成矩形框的下横行 LOP4: CALL CURSOR MOV AL,24H MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 DEC COLUME CMP COLUME,0 JNZ LOP4。 到此矩形框已完成 MOV COLUME,0。 从上往下从左往右39。 39。 填充 LOP6: MOV ROW,1 INC COLUME LOP5: CALL CURSOR MOV AL,23H MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC ROW CMP ROW,24 JNZ LOP5 CMP COLUME,78 JNZ LOP6 MOV COLUME,79。 反向消失LOP7: MOV ROW,23 DEC COLUME LOP8: CALL CURSOR MOV AL,39。 39。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 DEC ROW CMP ROW,0 JNZ LOP8 CMP COLUME,1 JNZ LOP7 MOV CL,1。 消失矩形框左竖行 LOP10: MA CL,0 MOV AL,39。 39。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC CL。
阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体),仅供学习参考。 用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权,请联系我们反馈本站将在三个工作日内改正。