test.asm

EASMEdit

        DOSSEG
        .MODEL  SMALL
        .STACK  100H
;        .DATA
        .CODE
SubA    PROC
        PUSH BX
        CMP  AL, 64H
        JB  L1
        RET
L1 :    XOR  AH, AH
        MOV  BL, 0AH
        DIV  BL
        XCHG AH, AL
        POP  BX
        RET
SubA    ENDP

SubB    PROC
        PUSH CX
        PUSH SI
        MOV  SI, AX
        MOV  DX,0
        XOR  AX, AX
        MOV  CX, 10H
next :  SHL  AX, 1
        RCL  DX, 1
        SHL  BX, 1
        JNC  Lop
        ADD  AX, SI
        ADC  DX, 0
Lop :   LOOP next
        POP  SI
        POP  CX
        RET
SubB    ENDP

MAIN    PROC FAR
START :
;        MOV  AX, DATA
;        MOV  DS, AX

        MOV  AX, 3DH
        CALL SubA

        MOV  AX, 123
        MOV  BX, 67 
        CALL SubB

        MOV  AH, 4CH
        INT  21H
        RET
MAIN    ENDP

        END  START