myproc.asm

EASMEdit

        .MODEL  SMALL
        .STACK  100H
        .DATA
Xmem    DB 10 DUP(?)
Ymem    DW 10 DUP(?)
        .CODE
First:  MOV  AX, @DATA
        MOV  DS, AX

        MOV  CX, 10
        LEA  SI, Xmem
        MOV  DI, OFFSET Ymem
NEXT :  MOV  AH, 1
        INT  21H
        CMP  AL, '1'
        JB   EXIT
        CMP  AL, '9'
        JA   EXIT
        SUB  AL, 30H
        MOV  [SI], AL
        MOV  BL, AL
        SHL  BL, 1
        ADD  AL, BL
        DEC  BL
        MUL  BL
        INC  AX
        MOV  [DI], AX
        INC  SI
        INC  DI
        INC  DI
        LOOP NEXT
EXIT :
        MOV  AH, 4CH
        INT  21H

        END  First