;            Coded by Elk, 2002

.186

PUBLIC       readff, writeinf

CODE1        SEGMENT
             ASSUME CS:CODE1

readff       PROC FAR
             PUSHA
             MOV BP, SP

             MOV DX, [BP+24]
             MOV AH, 3Dh
             MOV AL, 2h
             INT 21h

             MOV [BP+22], AX
             MOV BX, AX
             MOV AH, 3Fh
             MOV CX, 5
             MOV DX, [BP+20]
             INT 21h

             MOV AH, 3Eh
             MOV BX, [BP+22]
             INT 21h

             POPA

             RET 3
readff       ENDP

writeinf     PROC FAR
             PUSHA
             MOV BP, SP

             MOV DX, [BP+24]
             MOV AH, 3Dh
             MOV AL, 1h
             INT 21h

             MOV [BP+22],AX
             MOV BX,AX
             MOV AH, 40H
             MOV CX, 2
             MOV DX, [BP+20]
             INT 21h

;            MOV AH, 40h
;            MOV CX, 0
;            INT 21h

             MOV AH, 3Eh
             INT 21h

             POPA

             RET 3
writeinf     ENDP

CODE1        ENDS

END