微機原理課設-霓虹燈的模擬顯示(編輯修改稿)

　

【文章內容簡介】 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