Есть ли информация по работе на сопроцессоре с упакованными числами

.code
    finit
    fbld a
    fst res1;st=1.23456789e+08
    fistp res2;st=123456789
.data
a dt 123456789h; 89 67 45 32 01 00 00 00 00 00
res1 dd ?      ; A3 79 EB 4C 00 00 00 00
res2 dd ?      ; 07 5B CD 15 00 00 00 00

model small
.data 
        
        buf db 13, ?, 14 dup (?)
        a dt ?
.stack 256
.code
start:
       mov ax,@data                 ;настраиваем сегментные регистры на сегмент данных
       mov ds,ax
       
       mov ah, 10
       mov dx, offset buf
       int 21h
    mov si, 2
    mov di, 0
    mov cl, buf[1]
@@1:
    mov al, buf[si]
    and al, 0Fh
    mov byte ptr a[di], al
    shr a, 4
    inc si
    inc di
    loop @@1
    
       
    finit
    fbld a

; masm dos exe #
.286
.model small
.code
start:  mov ax,@data
    mov ds,ax
    mov es,ax
    mov ah,9
    mov dx,offset string
    int 21h
    mov ah,0Ah
    mov dx,offset buffer
    int 21h
    mov si,offset buffer+2
    mov di,offset res
    mov cx,2
@@: lodsb
    mov ah,al
    shl ah,4
    lodsb
    and al,0Fh
    or al,ah
    stosb
    loop @b
    mov ah,4Ch
    int 21h
.data
string db "введи четыре цифры и нажми на Enter",0Dh,0Ah,"$"
res dw ?
buffer db 5,?,5 dup (0)
end start

.model small
.data
string  db  20, ?, 20 dup (0)  ;максимальное число состоит из 20 цифр (22 - с учетом 0d0ah)
ten dd  10.0    ;вещественное 10
u_n dw  0
rez dt ?
 
.stack 256
.code
start:
    mov ax,@data    ;адрес сегмента данных в регистр ax
    mov ds,ax   ;ax в ds
;---------вводим вещественное число с клавиатуры---------------------------------------------
    mov ah, 10
    mov dx, offset string
    int 21h
cont_1: ;правильное вещественное число (в формате xxx.xxxx) введено в строку string
;начинаем с преобразования дробной части и ее последней цифры:
    mov cl, string[1]
    xor ch, ch
    finit
    fld ten ;10 ->st(0)
    fldz    ;0->st(0), 10 ->st(1)
    lea si,string   ;формируем указатель на строку string (ds:si) для lodsb
    add si,cx
    add si, 2
    dec si  ;указатель на последний символ строки string
    std ;обработка строки string с конца
    xor ax,ax
m1:
    lodsb
    cmp al,"."
    je  m2  ;переход, если встретился символ "."
    and al,0fh  ;преобразуем ASCII->BCD
    mov u_n,ax
    fiadd   u_n ;складываем очередную цифру и значение в стеке сопроцессора
    fdiv    st(0),st(1) ;делим значение в вершине стека на 10
    dec cx
    jmp m1
m2:
;преобразуем целую часть
    dec cx
    mov si, offset string
    add si, 2
    fldz
m3:
    mov al, [si]
    and al, 0Fh
    fmul st(0), st(2)
    mov u_n, ax
    fiadd u_n
    inc si
    loop m3
    fadd 
    fbstp rez
    mov ax, 4c00h
    int 21h
end start

.data
x dd -12345678
y dt ?
.code
    finit
    fild x
    fbstp y