PUBLIC FMAX
FMAXCODE SEGMENT
FMAX PROC FAR
     ASSUME CS:FMAXCODE
     MOV MAX,0

       MOV SI,OFFSET IBF+2
       MOV AX,0
       MOV CL,4
MAGAIN: SHL AX,CL
        AND BYTE PTR [SI],0FH
        OR AL,[SI]
        INC SI
        CMP BYTE PTR [SI],0DH
        JE OVER2
        CMP BYTE PTR [SI],','
        JE LOP2
        JMP MAGAIN
LOP2:   CMP MAX,AX
        JC LOP3
        INC SI
        MOV AX,0
        JMP MAGAIN
LOP3:   MOV MAX,AX
        MOV AX,0
        INC SI
        JMP MAGAIN
OVER2:  CMP MAX,AX
        JC LOP4
        MOV BX,MAX
DAGAIN2:MOV DI,7
        MOV CH,4
DAGAIN1:MOV DL,0FH
        AND DL,BL
        ADD DL,30H
        MOV MOBF[DI],DL
        SHR BX,CL
        DEC DI
        DEC CH
        JNZ DAGAIN1
       
        MOV DX,OFFSET MOBF
        MOV AH,9
        INT 21H
        jmp exit

LOP4:   MOV BX,AX
        JMP DAGAIN2
        MOV DX,OFFSET MOBF
        MOV AH,9
        INT 21H
        RET
FMAX ENDP
FMAXCODE ENDS
        END FMAX