5-1.asm

小写转换大写程序

;----------------------------------------------------------------------
;Program:
;Created by:
;Finished Date & Time:
;----------------------------------------------------------------------

SSEG SEGMENT PARA STACK 'stack'
     dw 100h dup(0) ;Resize the stack by changing the number '100'
SSEG ENDS

DSEG SEGMENT
   ;TO DO: Add your program's data here
   start	db	'Please enter the character',0dh,0ah,'$'
   wrong	db	'Wrong character!!!Please enter the right character',0dh,0ah,'$'
   end1	db	0dh,0ah,'Do you want to end the programe?---------y---n?',0dh,0ah,'$'
   out1       db	'This is the answer',0dh,0ah,'$'
DSEG ENDS

CSEG SEGMENT
  assume  cs:CSEG, ds:DSEG, es:DSEG, ss:SSEG
  
  INIT PROC ;Initialize procedure
  	mov ax, dseg
	mov ds, ax
	mov es, ax
	;TO DO: Add your initialize code here (as your requirement)

	ret    ;return to the MAIN procedure
  INIT ENDP

  MAIN PROC   ;Here is your program entry point
  	call INIT ;call the INIT procedure to initialize the program
  	;**TO DO: Add your main code here**
  	start1:
	mov	dx,	offset	start
	mov	ah,	09h
	int	21h
	mov	ah,	01h
	int	21h
	cmp	al,	61h
	jl	wrong1
	cmp	al,	7ah
	jg	wrong1
	jmp	do
wrong1:
	mov	dx,	offset	wrong
	mov	ah,	09h
	int	21h
	jmp	start1
do:
	sub	al,	20h
	mov	bl,	al
	mov	dx,	offset	out1
	mov	ah,	09h
	int	21h
	mov	al,	bl
	mov	dl,	al
	mov	ah,	02h
	int	21h
	mov	dx,	offset	end1
	mov	ah,	09h
	int	21h
	mov	ah,	01h
	int	21h
	cmp	al,	79h
	jz	exit
	cmp	al,	59h
	jz	exit
	jmp	start1
exit:
	mov ax, 4c00h  ;The end of the program, return to the system
  	int 21h
  MAIN ENDP
  ;TO DO: Add other procedures(PROC) here (as your requirement)

CSEG ENDS
;TO DO: Add other segments here (as your requirement)

END MAIN
;----------------------------*The End*--------------------------------
;Warning:This ASMEditor can not support Chinese now.
;Please do NOT use any Chinese-word! Or you will LOST you file!!
;This Model was created by Honeybee. You can modify it as you wish.
;If you write a Model, save it with this name "InitSamp.EAM" in this
;application's floder.