我的汇编语言程序模板

这里只有一些最基础的功能的代码，有时间继续完善。

本博客不适合学习及使用。

data segment
        ;input data segment code here
    stack_store word 0fffh dup(0) ;reg stack
    stack_top word 0000h ;reg stack
    push_ax_store_ax word 0000h
    push_ax_store_bx word 0000h
    push_ax_store_cx word 0000h
    push_ax_store_dx word 0000h
    print_hex_store_var word 0000h
    local_ax_store word 0000h
    pause_str byte "press any key to continue...",10,13,'$'
    endl_str byte 10,13,'$'
    tab_str byte "        ",'$'
    ax_str byte "ax:",'$'
    bx_str byte "bx:",'$'
    cx_str byte "cx:",'$'
    dx_str byte "dx:",'$'
data ends

stack segment
        ;input stack segment code here
stack ends

code segment
    assume cs:code,ds:data,ss:stack
push_ax: ;push ax into reg stack
    mov push_ax_store_ax,ax ;store flags
    mov push_ax_store_bx,bx
    lea bx,stack_store
    add bx,stack_top ;get stack top
    mov [bx],ax
    add stack_top,0002h
    mov ax,push_ax_store_ax ;reget flags
    mov bx,push_ax_store_bx
    ret
pop_ax: ;pop a value from reg stack to ax
    mov push_ax_store_bx,bx ;store flags
    lea bx,stack_store
    sub stack_top,0002h
    add bx,stack_top ;get stack top
    mov ax,[bx]
    mov bx,push_ax_store_bx ;reget flags
    ret
store_reg: ;store reg into reg stack
    mov local_ax_store,ax
    call push_ax
    mov ax,bx
    call push_ax
    mov ax,cx
    call push_ax
    mov ax,dx
    call push_ax
    mov ax,local_ax_store
    ret
reget_reg: ;reget reg from reg stack
    call pop_ax
    mov dx,ax
    call pop_ax
    mov cx,ax
    call pop_ax
    mov bx,ax
    call pop_ax
    ;mov ax,ax
    ret
trans_dl_hex: ;trans late dl to hex char
    cmp dl,09h
    ja greater_than_09h
      add dl,30h
      ret
    greater_than_09h:
    sub dl,0ah
    add dl,41h ;'a'=65=41h
    ret
output_dl_char:
    call store_reg
    mov ah,02h
    int 21h
    call reget_reg
    ret
print_hex_ax: ;output ax as a hex number
    mov print_hex_store_var,ax
    call store_reg
    mov bx,print_hex_store_var
    and bx,0f000h
    mov cl,0ch
    shr bx,cl
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    mov bx,print_hex_store_var
    and bx,0f00h
    mov cl,08h
    shr bx,cl
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    mov bx,print_hex_store_var
    and bx,00f0h
    mov cl,04h
    shr bx,cl
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    mov bx,print_hex_store_var
    and bx,000fh
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    call reget_reg
    ret
add_stack_ax: ;add ax elements into the stack
    call store_reg
    mov cl,02h
    shl ax,cl
    add stack_top,ax
    call reget_reg
    ret
print_str_dx: ;print a string at dx
    call store_reg
    mov ah,09h
    int 21h
    call reget_reg
    ret
print_endl: ;print endl
    call store_reg
    lea dx,endl_str
    call print_str_dx
    call reget_reg
    ret
pause_program: ;"press any key to continue..."
    call store_reg
    lea dx,pause_str
    call print_str_dx
    call getch_ax
    call reget_reg
    ret
getch_ax: ;get a char from key board (without enter) to ax 
    call store_reg
    mov ah,07h
    int 21h
    mov ah,00h
    mov local_ax_store,ax
    call reget_reg
    mov ax,local_ax_store
    ret
debug_reg_val: ;output ax bx cx dx 's value
    mov local_ax_store,ax ;store value
    mov push_ax_store_bx,bx
    mov push_ax_store_cx,cx
    mov push_ax_store_dx,dx
    call store_reg
    lea dx,ax_str ;ax output
    call print_str_dx
    mov ax,local_ax_store
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    lea dx,bx_str ;bx output
    call print_str_dx
    mov ax,push_ax_store_bx
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    lea dx,cx_str ;cx output
    call print_str_dx
    mov ax,push_ax_store_cx
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    lea dx,dx_str ;dx ouput
    call print_str_dx
    mov ax,push_ax_store_dx
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    call print_endl ;endl output
    call reget_reg
    ret
start: ;program start here
    mov ax,data
    mov ds,ax
        ;input code segment code here

    call pause_program ;pause end
    mov ah,4ch
    int 21h
code ends
end start

新增功能：十六进制数的输入

data segment
        ;input data segment code here
    stack_store word 0fffh dup(0) ;reg stack
    stack_top word 0000h ;reg stack
    push_ax_store_ax word 0000h
    push_ax_store_bx word 0000h
    push_ax_store_cx word 0000h
    push_ax_store_dx word 0000h
    print_hex_store_var word 0000h
    local_ax_store word 0000h
    pause_str byte "press any key to continue...",10,13,'$'
    endl_str byte 10,13,'$'
    tab_str byte "        ",'$'
    ax_str byte "ax:",'$'
    bx_str byte "bx:",'$'
    cx_str byte "cx:",'$'
    dx_str byte "dx:",'$'
    scan_hex_store word 0000h
    scan_hex_input byte 5,0,5 dup('$')
    scan_hex_input_len word 0000h
    clear_num_str byte 13,"[hex input]","     ",8,8,8,8,8,'$'
    end_num_str byte "[you input]",'$'
data ends

stack segment
        ;input stack segment code here
stack ends

code segment
    assume cs:code,ds:data,ss:stack
push_ax: ;push ax into reg stack
    mov push_ax_store_ax,ax ;store flags
    mov push_ax_store_bx,bx
    lea bx,stack_store
    add bx,stack_top ;get stack top
    mov [bx],ax
    add stack_top,0002h
    mov ax,push_ax_store_ax ;reget flags
    mov bx,push_ax_store_bx
    ret
pop_ax: ;pop a value from reg stack to ax
    mov push_ax_store_bx,bx ;store flags
    lea bx,stack_store
    sub stack_top,0002h
    add bx,stack_top ;get stack top
    mov ax,[bx]
    mov bx,push_ax_store_bx ;reget flags
    ret
store_reg: ;store reg into reg stack
    mov local_ax_store,ax
    call push_ax
    mov ax,bx
    call push_ax
    mov ax,cx
    call push_ax
    mov ax,dx
    call push_ax
    mov ax,local_ax_store
    ret
reget_reg: ;reget reg from reg stack
    call pop_ax
    mov dx,ax
    call pop_ax
    mov cx,ax
    call pop_ax
    mov bx,ax
    call pop_ax
    ;mov ax,ax
    ret
trans_dl_hex: ;trans late dl to hex char
    cmp dl,09h
    ja greater_than_09h
      add dl,30h
      ret
    greater_than_09h:
    sub dl,0ah
    add dl,41h ;'a'=65=41h
    ret
output_dl_char:
    call store_reg
    mov ah,02h
    int 21h
    call reget_reg
    ret
print_hex_ax: ;output ax as a hex number
    mov print_hex_store_var,ax
    call store_reg
    mov bx,print_hex_store_var
    and bx,0f000h
    mov cl,0ch
    shr bx,cl
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    mov bx,print_hex_store_var
    and bx,0f00h
    mov cl,08h
    shr bx,cl
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    mov bx,print_hex_store_var
    and bx,00f0h
    mov cl,04h
    shr bx,cl
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    mov bx,print_hex_store_var
    and bx,000fh
    mov dl,bl
    call trans_dl_hex
    call output_dl_char
    call reget_reg
    ret
add_stack_ax: ;add ax elements into the stack
    call store_reg
    mov cl,02h
    shl ax,cl
    add stack_top,ax
    call reget_reg
    ret
print_str_dx: ;print a string at dx
    call store_reg
    mov ah,09h
    int 21h
    call reget_reg
    ret
print_endl: ;print endl
    call store_reg
    lea dx,endl_str
    call print_str_dx
    call reget_reg
    ret
pause_program: ;"press any key to continue..."
    call store_reg
    lea dx,pause_str
    call print_str_dx
    call getch_ax
    call reget_reg
    ret
getch_ax: ;get a char from key board (without enter) to ax 
    call store_reg
    mov ah,07h
    int 21h
    mov ah,00h
    mov local_ax_store,ax
    call reget_reg
    mov ax,local_ax_store
    ret
debug_reg_val: ;output ax bx cx dx 's value
    mov local_ax_store,ax ;store value
    mov push_ax_store_bx,bx
    mov push_ax_store_cx,cx
    mov push_ax_store_dx,dx
    call store_reg
    lea dx,ax_str ;ax output
    call print_str_dx
    mov ax,local_ax_store
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    lea dx,bx_str ;bx output
    call print_str_dx
    mov ax,push_ax_store_bx
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    lea dx,cx_str ;cx output
    call print_str_dx
    mov ax,push_ax_store_cx
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    lea dx,dx_str ;dx ouput
    call print_str_dx
    mov ax,push_ax_store_dx
    call print_hex_ax
    lea dx,tab_str
    call print_str_dx
    call print_endl ;endl output
    call reget_reg
    ret
retrans_hex_ax:
    cmp ax,61h ;small
    jl retrans_below_small
      sub ax,20h ;-small
    retrans_below_small:
    cmp ax,41h ;'a'
    jge retrans_geater_than_65h
      sub ax,30h
      ret
    retrans_geater_than_65h:
    sub ax,41h
    add ax,0ah
    ret
scan_hex_ax: ;read in a hex with four bits
    call store_reg
    scan_hex_ax_again:
    lea dx,clear_num_str
    call print_str_dx
    mov bx,0000h
    lea dx,scan_hex_input
    mov bp,dx
    mov ah,0ah
    int 21h ;input string
    mov dx,0000h
    mov dl,[bp+01h] ;get len
    cmp dx,04h
    jnz scan_hex_ax_again
    mov ah,00h ;first bit
    mov al,[bp+02h]
    call retrans_hex_ax
    mov cl,04h
    shl bx,cl
    add bx,ax
    mov ah,00h ;sec bit
    mov al,[bp+03h]
    call retrans_hex_ax
    mov cl,04h
    shl bx,cl
    add bx,ax
    mov ah,00h ;third bit
    mov al,[bp+04h]
    call retrans_hex_ax
    mov cl,04h
    shl bx,cl
    add bx,ax
    mov ah,00h ;forth bit
    mov al,[bp+05h]
    call retrans_hex_ax
    mov cl,04h
    shl bx,cl
    add bx,ax
    mov local_ax_store,bx ;store
    call reget_reg
    mov ax,local_ax_store
    call print_endl
    lea dx,end_num_str
    call print_str_dx
    call print_hex_ax
    call print_endl
    ret
start: ;program start here
    mov ax,data
    mov ds,ax
        ;input code segment code here
    call scan_hex_ax

    call pause_program ;pause end
    mov ah,4ch
    int 21h
code ends
end start