PUBLIC M4

DSEG    SEGMENT PUBLIC
    RESULT DB 8 DUP(?)
DSEG    ENDS

CSEG SEGMENT PARA PUBLIC 'CODE'
    ASSUME CS:CSEG, DS:DSEG

M4 PROC
    PUSH BX
    PUSH BP

    MOV BP, SP
    MOV AX, [BP + 6]
    MOV BX, 10

    MOV CX, 0
    MOV [RESULT + CX], '$'

MAINLP:
    MOV DL, 0
    DIV BX ; AX /= 10
    ADD DL, '0'
    INC CX
    MOV [RESULT + CX], DX
    CMP AX, 0
    JNZ MAINLP

    MOV CX, 0
PRINT:
    MOV DX, RESULT
    MOV AH, 9
    INT 21h

    POP BP
    POP BX
    RET 2
M4 ENDP

CSEG ENDS
    END