【正文】 設置行 MOV DL,COLUME 。清屏 MOV AH,06H MOV AL,0 MOV CH,0 MOV CL,0 MOV DH,24 MOV DL,79 MOV BH,07H INT 10H RET CLEAR ENDP CURSOR PROC NEAR 。如過輸入為Q則跳轉(zhuǎn) CALL CLEAR MA 12,30 JMP WAT EXIT: MOV AX,4C00H 。 。鍵盤輸入單個字符 INT 21H CMP AL,39。獲取偏移地址 MOV AH,9 。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX MA 12,30 。消失（0，0）這一點 MOV AL,39。 39。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 DEC CL CMP CL,0 JNZ LOP23 MOV CL,79 。消失矩形框右豎行LOP23: MA CL,79 MOV AL,39。 39。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC CL CMP CL,24 JNZ LOP21 MOV CL,0 。消失矩形框左豎行 LOP21: MA CL,0 MOV AL,39。 39。顯示空格 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX MA CT,CL 。 39。設置行的初值為1 反向消失內(nèi)部 LOP19: MOV COUNT,39 。39。填充左半段 MOV DL,23H PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX MOV AH,02H INT 21H MA COUNT1,CL 。到此矩形框已完成 MOV COUNT1,23 。完成$的輸出 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC ROW CMP ROW,24 JNZ LOP15 MOV ROW,24 MOV COLUME,79 。完成矩形框的上行 LOP14: 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 LOP14 MOV ROW,0 MOV COLUME,79 。行坐標減1 CMP ROW,0 。出棧 CALL DELAY1 。入棧 MOV CX,1 。把$的ASCII 碼傳遞給AL MOV BL,0BH 。完成矩形框的左豎行 MOV COLUME,0 LOP13: CALL CURSOR 。 39。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 DEC CL CMP CL,0 JNZ LOP12 MA 0,0 。消失矩形框上行LOP12: MA 0,CL MOV AL,39。 39。 MOV BL,0BH PUSH CX MOV CX,1 MOV AH,09H INT 10H POP CX CALL DELAY1 INC CL CMP CL,79 JNZ LOP9 MOV CL,24 。消失矩形框下行 LOP9: MA 24,CL 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