pub.asm

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

TITLE   MAIN
        EXTRN HEXTOBIN:FAR
        EXTRN SHOW:FAR
        PUBLIC MAIN
;---------------------------------------------------
DATA    SEGMENT
INDAT   DB 50
        DB 0
        DB 50 DUP(0)
MSG1    DB 'Input A Number Not Large Then 255 : $'
MSG2    DB 'The DEC System of The Number 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
;----------------------------------------
        CALL CRLF
        MOV DX,OFFSET MSG1
        MOV AH,09H
        INT 21H

        MOV DX,OFFSET INDAT
        MOV AH,0AH
        INT 21H
        CALL CRLF

        MOV DX,OFFSET MSG2
        MOV AH,09H
        INT 21H

        MOV SI,OFFSET INDAT+1

        CALL HEXTOBIN
        CALL SHOW

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