程序9.txt

来自「里面有很多编程的」· 文本 代码 · 共 163 行

 程序9： 利用1AH,21H 中断调用，在屏幕上显示1-20的随机数，并要求能连续输出，直到按下Q键为止
　
DATA  SEGMENT


 OUTBUF DB 4 DUP(?)


 DATA  ENDS


 CODE  SEGMENT


       ASSUME CS:CODE,DS:DATA


 MAIN   PROC FAR


       PUSH DS


       XOR  AX,AX


       PUSH AX


       MOV AX,DATA


       MOV DS,AX


 LOP1: MOV SI,OFFSET OUTBUF


       PUSH SI


       MOV AH,0


       INT 1AH


       MOV AL,DL


       MOV AH,0


       MOV BL,20


       DIV BL


       INC AH


 LOP2: MOV AL,AH


       MOV AH,0


       MOV BL,10


       DIV BL


       ADD AL,30H


       MOV [SI],AL


       INC SI


       ADD AH,30H


       MOV [SI],AH


       INC SI


       MOV BYTE PTR [SI],20H


       INC SI


       MOV BYTE PTR [SI],'$'


       POP DX


       MOV AH,9


       INT 21H


       MOV CX,9000


 DONE1:MOV BX,0FFFFH


  DONE:DEC BX


       JNE DONE


       LOOP DONE1


       MOV AH,6


       MOV DL,0FFH


       INT 21H


       JE  LOP1


       CMP AL,'Q'


       JE LAST


       JMP LOP1


 LAST: RET


   MAIN  ENDP


   CODE ENDS


        END MAIN