java 月份缩写_实训汇编语言设计——输入1-12 ,显示月份缩写

输入1-12 ,显示月份缩写

title home

datasg segment

three db 3

monin db 3,4 dup(?)

alfmon db '???','$'

montab db 'JNA','FEB','MAR','APR','MAY','JUN'

db 'JUL','AUG','SEP','OCT','NOV','DEC'

datasg ends

codesg segment para'code'

assume cs:codesg,ds:datasg,es:datasg

main proc far

push ds

sub ax,ax

push ax

mov ax,datasg

mov ds,ax

mov es,ax

l1:mov ah,0aH

int 21h

cmp dl,3

jz  exit

call input

call locate

call display

mov ah,2

mov dl,0ah          ;实现回车换行

int 21h

mov dl,0dh

int 21h

jmp l1

exit:ret

main endp

input proc near

push dx

mov ah,0ah

lea dx,monin

int 21h

mov ah,monin+2

mov al,monin+3

xor ax,3030h

cmp ah,00

jz return

sub ah,ah

add al,10

return: pop dx

ret

input endp

locate proc near

push si

push di

push cx

lea si,montab

dec al

mul three

add si,ax

mov cx,03

cld

lea di,alfmon

rep movsb

pop cx

pop di

pop si

ret

locate endp

display proc near

push dx

lea dx,alfmon

mov ah,09

int 21h

pop dx

ret

display  endp

codesg ends

end main