EXTRN  MAIN:FAR,CHANGE5:FAR
       STACK  SEGMENT   PARA PUBLIC 'stack'
              DB        200 DUP (0)
       STACK  ENDS
        DATA  SEGMENT
;*****主程序中的提示信息*****
        STR1  DB        0AH,0DH, '********************************************$'
        STR2  DB        0AH,0DH, '**                                        **$'
        STR3  DB        0AH,0DH, '**            welcome     you !           **$'
        STR4  DB        0AH,0DH, '**                                        **$'
        STR5  DB        0AH,0DH, '** this is programme of shuzhizhuanghuan  **$'
        STR6  DB        0AH,0DH, '**                                        **$'
        STR7  DB        0AH,0DH, '**       press b to begin exchange!       **$'
        STR8  DB        0AH,0DH, '**           press q to exit !            **$'
        STR9  DB        0AH,0DH, '**                                        **$'
       STR10  DB        0AH,0DH, '********************************************$'
       STR11  DB        0AH,0DH,'input error,please repess!','$'
        DATA  ENDS
        CODE  SEGMENT
              ASSUME    CS:CODE,DS:DATA,SS:STACK
      START:  MOV       AX,DATA
              MOV       DS,AX
        DISP  MACRO     M
              LEA       DX,M
              MOV       AH,9
              INT       21H
              ENDM
      
              DISP      STR1
              DISP      STR3
              DISP      STR4
              DISP      STR5
              DISP      STR6
              DISP      STR7
              DISP      STR8
              DISP      STR9
              DISP      STR10
        LOP:  MOV       AH,8
              INT       21H
              CMP       AL,'b'
              JZ        LTOL
              CMP       AL,'q'
              JZ        EXIT
              DISP      STR11
              JMP       LOP
       LTOL:  CALL      MAIN
              CALL      CHANGE5
              JMP       LOP
       EXIT:  MOV       AH,4CH
              INT       21H
        CODE  ENDS
              END       START