cpc.asm

fx.asm 反序输出 cpc.asm 人机对话 DECHEX.ASM 十进制到十六进制转换 PX.ASN 排序 DISP.ASM 显示非组合BCD码 COUNTA.ASM 统计字符A

DATA    SEGMENT
BUF     DB 50
        DB ?
        DB 50 DUP(?)
        DB '$'
MESG0   DB 'Computer : What is your name ? $'
MESG1   DB 'Computer : Oh,your name is $'
MESG2   DB 'Human : My name is $'
DATA    ENDS
;---------------------------
STACK   SEGMENT PARA STACK 'STACK'
        DB 100 DUP(?)
STACK   ENDS
;---------------------------------------------
CODE    SEGMENT
        ASSUME CS:CODE,DS:DATA,SS:STACK
MAIN    PROC FAR
START:  PUSH DS
        MOV AX,0
        PUSH AX
        MOV AX,DATA
        MOV DS,AX
        MOV AX,STACK
        MOV SS,AX
;----------------------------------------------
        CALL CRLF

MSG0:   MOV DX,OFFSET MESG0
        MOV AH,09
        INT 21H

        CALL CRLF
        LEA DX,MESG2
        MOV AH,09H
        INT 21H
        
KEYBI:  MOV DX,OFFSET BUF
        MOV AH,0AH      
        INT 21H
;----------------------------------------
        CALL CRLF

        MOV SI,OFFSET BUF+2
LOP:    MOV AL,0DH
        CMP AL,[SI]
        PUSH SI
        JZ COVER
        INC SI
        POP DI
        JMP LOP
        
COVER:  POP SI
        MOV AL,'$'
        MOV [SI],AL
;------------------------------------------

MSG1:   MOV DX,OFFSET MESG1
        MOV AH,09H
        INT 21H

DISTR:  MOV DX,OFFSET BUF+2
        MOV AH,09
        INT 21H

        CALL CRLF

        RET
MAIN    ENDP
;-----------------------------------------------
CRLF    PROC NEAR
        MOV DL,0DH
        MOV AH,02H
        INT 21H
        MOV DL,0AH
        MOV AH,02H
        INT 21H
        RET
CRLF    ENDP
;------------------------------------------------
CODE    ENDS
        END START