20073237张运鹏-2.txt

来自「用汇编语言写的」· 文本 代码 · 共 73 行

073237张运鹏




STACK_SEG     SEGMENT   STACK
    STACK_BUF DW        120 DUP(?)
    TOP       EQU       $-STACK_BUF
STACK_SEG     ENDS
DATA_SEG      SEGMENT   PARA
ty            DB        'jiafa(+)073237'
tu            DB        0DH,0AH,'INPUT:$' 
DATA_SEG      ENDS
CODE_SEG      SEGMENT   PARA
;------------------------------------------------------
MAIN          PROC      FAR
              ASSUME    CS:CODE_SEG,DS:DATA_SEG
              ASSUME    SS:STACK_SEG
START:
              MOV       AX,STACK_SEG
              MOV       SS,AX
              MOV       SP,TOP
              MOV       AX,DATA_SEG
              MOV       DS,AX
              MOV       AH,9
              LEA       DX,TY 
              INT       21H
L:            MOV       AH,1 
	        INT       21H 
              MOV       BH,AL 
              MOV       DL,2BH 
              MOV       AH,2 
              INT       21H 
              MOV       AH,1 
              INT       21H 
              MOV       BL,AL 
              MOV       DL,3DH 
              MOV       AH,2 
              INT       21H 
              ADD       BL,BH 
              MOV       BH,0 
              SUB       BL,60H 
              CALL      SUBP 
              MOV       AH,9 
              LEA       DX,TU 
              INT       21H 
              JMP       L 
              MOV       AX,4C00H
              INT       21H
MAIN          ENDP      
;------------------------------------------------------

		SUBP          PROC 
            PUSH      DX 
            PUSH      AX 
            MOV       AX,BX 
            MOV       DL,10 
            DIV       DL 
            XCHG      AL,AH 
            OR        AX,3030H 
            PUSH      AX 
            MOV       DL,AH 
            MOV       AH,2 
            INT       21H 
            POP       DX 
            MOV       AH,2 
            INT       21H 
            POP       AX 
            POP       DX 
            RET 
		SUBP          ENDP                                  
CODE_SEG      ENDS
              END       START