Category : Assembly Language Source Code
Archive   : ASM-SUBR.ZIP
Filename : FPINDIGT

;-------------------------fpindigt routine begins--------------------------+
; from BLUEBOOK OF ASSEMBLY ROUTINES FOR IBM PC & XT.
; page : 83
;
; NAME FPINDIGT
; ROUTINE FOR SINGLE DECIMAL DIGIT TO FLOATING POINT
;
; FUNCTION: This routine places a single decimal digit in temporary
; binary floating point format.
;
; INPUT: Upon entry AL contains the value of the digit
;
; OUTPUT: Upon entry and exit the address of the temporary binary floating
; point result is in DI.
;
; REGISTERS USED: AL,CX and DI are modified.
;
; SEGMENTS REFERENCED: Upon entry the data segment contains storage for
; the temporary binary floating point number.
;
; ROUTINES CALLED: None
; SPECIAL NOTES: This is a NEAR procedure needed by FPIN.
;
; ROUTINE TO PLACE DIGIT IN TEMP FLOATING POINT
;
fpindigt proc near
;
; clear the number first
push di ; save pointer
push ax ; save digit
mov al,0 ; zero byte
mov cx,13 ; do 13 bytes
;
fpindigt1:
mov [di],al ; clear the byte
inc di ; point to next byte
loop fpindigt1 ; loop for more
pop ax ; restore digit
pop di ; restore pointer
;
; move the digit into place
mov [di+9],al ; place the digit
;
ret ; out of subr return
;
fpindigt endp
;-------------------------fpindigt routine ends---------------------------+