北邮微机原理实验三 代码转换程序设计

一.实验目的:
     1.掌握几种最基本的代码转换方法;
     2.运用子程序进行程序设计.

二.实验内容:
     1.从键盘上输入若干两位十进制数,寻找其中的最小值,然后在屏幕上显示出来.
     2.两个十进制数之间的分隔符,输入结束标志自定,但要在报告中说明.
     3.对输入要有检错措施,以防止非法字符输入,并有适当的提示.
     4.将整个程序分解为若干模块,分别用子程序实现.在报告中要给出模块层次图.

源程序:

(以后一定养成写注释的好习惯)

DATA SEGMENT
BUFFER DB 100
       DB 0
       DB 100 DUP (0)
MIN    DB 0
STRING DB '  INPUT WRONG,PLEASE INPUT ',0DH,0AH,'$'
STRING1 DB 'THE MUNBER IS ',0DH,0AH,'$'
DATA ENDS
STACK SEGMENT STACK 'STACK'
      DB 100 DUP (?)
STACK ENDS
CODE  SEGMENT
      ASSUME CS:CODE,DS:DATA,SS:STACK,ES:DATA

MAIN: MOV AX,DATA
      MOV DS,AX
      CALL INPUT
      CALL JUDGE
      CALL BIJIAO
      CALL OUTPUT
      MOV  AX,4C00H
      INT  21H

INPUT PROC
      MOV DX,SEG BUFFER
      MOV DS,DX
      MOV DX,OFFSET BUFFER
      MOV AH,0AH
      INT 21H
      RET
INPUT ENDP

JUDGE PROC
        LEA BX,BUFFER
JUDGE1: MOV AL,[BX+2]

        CMP AL,'!'
        JZ  C
        CMP AL,','
        JZ  B
        CMP AL,29H
        JBE A
        CMP AL,40H
        JAE A
        JMP B     
A:      MOV AH,09H
        MOV DX,SEG STRING
        MOV DS,DX
        MOV DX,OFFSET STRING
        INT 21H
        JMP C
B:      INC BX
        JMP JUDGE1
C:      NOP
        RET
JUDGE   ENDP

BIJIAO  PROC
        LEA BX,BUFFER
        CALL JIA
        MOV MIN,AL
G:      CALL JIA
        CMP AL,MIN
        JGE D
        MOV MIN,AL
D:      INC BX
        INC BX
        MOV AL,[BX+2]
        CMP AL,'!'
        JZ  F
        INC BX
        JMP G
JIA:    MOV AL,[BX+2]
        SUB AL,30H
        ADD AL,AL
        MOV CH,AL
        MOV CL,2
        SHL AL,CL
        ADD AL,CH
        MOV AH,[BX+3]
        SUB AH,30H
        ADD AL,AH
        RET
F:      NOP
        RET
BIJIAO  ENDP

OUTPUT  PROC
        MOV AH,09H
        MOV DX,SEG STRING1
        MOV DS,DX
        MOV DX,OFFSET STRING1
        INT 21H
        MOV AL,MIN
        CBW
        MOV BL,10
        DIV BL
        MOV BH,AH
        ADD AL,30H
        MOV AH,02H       
        MOV DL,AL
        INT 21H
        MOV AL,BH
        ADD AL,30H
        MOV AH,02H
        MOV DL,AL
        INT 21H
        RET
OUTPUT  ENDP

CODE    ENDS
        END MAIN