sub512c3.asm

钱晓杰汇编语言的很多例子 非常经典 我从微辅网上下载的 希望对大家有用

;SUB512C3.ASM
    .model small
    .code
    public input
convert macro
    local input21,input22
    local input24,input25
    cmp dl,0
    je input25
    cmp dl,'9'
    jbe input21
    sub dl,7
input21:and dl,0fh
    cmp dh,0
    je input24
    cmp dh,'9'
    jbe input22
    sub dh,7
input22:    shl dh,1
   shl dh,1
   shl dh,1
   shl dh,1
   or dl,dh
input24:    mov [bx],dl
   inc bx
   inc cx
input25:
    endm
input	proc
    push ax
    push dx
    xor cx,cx
input01:	xor dx,dx
input02:	mov ah,1
    int 21h
input10:    cmp al,0dh
    je input30
    cmp al,' '
    je input20
    cmp al,','
    je input20
    cmp al,08h
    je input17
    cmp al,'0'
    jb input17
    cmp al,'f'
    ja input17
    cmp al,'a'
    jb input11
    sub al,20h
    jmp input12
input11:cmp al,'F'
    ja input17
    cmp al,'A'
    jae input12
    cmp al,'9'
    ja input17
input12:    cmp dl,0
    jne input13
    mov dl,al
    jmp input02
input13:cmp dh,0
    jne input17
    mov dh,dl
    mov dl,al
    jmp input02
input17:mov dl,7
    mov ah,2
    int 21h
    mov dl,'?'
    mov ah,2
    int 21h
    jmp input01
input20:convert
    jmp input01
input30:convert
    pop dx
    pop ax
    ret
input	 endp
    end