敬业的IT人 >> 编程开发 >> 其他语言 >> 汇编源码--getspace

汇编源码--getspace

敬业的IT人 互联网 佚名 2008-2-19 16:06:11

  CSEGSEGMENT
PUBLICGETSPACE
GETSPACEPROC FAR

ASSUMECS:CSEG
PUSH BP
MOVBP,SP
MOV BX,[BP]+6
MOVDI,[BX]+2
MOVCX,8
MOVAL,' '
CLD
REPSTOSB
MOVBX,[BP]+8
MOVSI,[BX]+2
MOVAX,[SI]
ANDAL,0DFH
CMPAL,41H
JGECKVER
JMPEXITSPC

CKVER:
PUSHAX
MOVAH,30H
INT21H
XCHGAL,AH

SPACE20:
POPDX
XORDL,40H
MOVAH,36H
   INT21H
CMP AX,0FFFFH
JEEXITSPC
XORDX,DX
MULCX
XCHGBX,CX
MULCX
PUSHAX
PUSHDX

ENDSPC:
MOVBX,[BP]+6
MOVDI,[BX]+2
ADDDI,7
POPDX
POPAX

HEXTODEC:
MOVSI,10
PUSHAX
MOVAX,DX
XORDX,DX
DIVSI
POPCX
PUSHAX
MOVAX,CX
DIVSI
POPSI
ORDL,30H
MOVBYTE PTR [DI],DL
DECDI
XCHGDX,SI
ORAX,AX
JNZHEXTODEC

EXITSPC:
POPBP
RET4
RET

GETSPACEENDP
CSEGENDS
END进入讨论组讨论。
粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email:me1228#tom.com