; Static Name Aliases
;
 TITLE   subm

include qheadl.asm


PUBLIC  _subm, _addm, _shdn1, _shup1, _shdn8, _shup8, _shdn16, _shup16 

QFLT_TEXT      SEGMENT
 ASSUME CS: QFLT_TEXT

; number of 16 bit words in mantissa area:
;OMG = 10
; offset to last word of mantissa area = 2*OMG+2:
;OFFS = 22

; Subtract mantissa of x from mantissa of y, result to y
; subm( x, y )
 PUBLIC _subm
_subm PROC FAR
 push bp
 mov bp,sp
 push di
 push es
 push ds

; mov di,WORD PTR [bp+6]
; mov bx,WORD PTR [bp+10]
; mov ds,WORD PTR [bp+12]
; ASSUME DS: NOTHING
; mov es,WORD PTR [bp+8]

 les di,DWORD PTR [bp+6]
 lds bx,DWORD PTR [bp+10]
 ASSUME DS: NOTHING

 clc

i=NQ+NQ
REPT OMG+1
 mov dx,i[bx]
 sbb dx,es:i[di]
 mov i[bx],dx
i=i-2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop es
 pop di
 pop bp
 ret 
_subm ENDP



; add mantissa of x to mantissa of y, result to y
; addm( x, y );
 PUBLIC _addm
_addm PROC FAR
 push bp
 mov bp,sp
 push si
 push di
 push es
 push ds


; mov di,WORD PTR [bp+6]
; mov bx,WORD PTR [bp+10]
; mov ds,WORD PTR [bp+12]
; ASSUME DS: NOTHING
; mov es,WORD PTR [bp+8]

 les di,DWORD PTR [bp+6]
 lds bx,DWORD PTR [bp+10]
 ASSUME DS: NOTHING
 clc

i=NQ+NQ
REPT OMG+1
 mov dx,i[bx]
 adc dx,es:i[di]
 mov i[bx],dx
i=i-2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop es
 pop di
 pop si
 pop bp
 ret 
_addm ENDP


; shift mantissa of x down 1 bit
; shdn1(x);
 PUBLIC _shdn1
_shdn1 PROC FAR
 push bp
 mov bp,sp
 push ds
 lds bx,DWORD PTR [bp+6]
 ASSUME DS: NOTHING
 clc
i=4
REPT OMG+1
 rcr WORD PTR i[bx],1
i=i+2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop bp
 ret 
_shdn1 ENDP



; shift mantissa of x up 1 bit
; shup1(x);
 PUBLIC _shup1
_shup1 PROC FAR
 push bp
 mov bp,sp
 push ds

 lds bx,DWORD PTR [bp+6]
 ASSUME DS: NOTHING
 clc

i=NQ+NQ
REPT OMG+1
 rcl WORD PTR i[bx],1
i=i-2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop bp
 ret 
_shup1 ENDP



; shift mantissa of x down 8 bits
; shdn8(x);
 PUBLIC _shdn8
_shdn8 PROC FAR
 push bp
 mov bp,sp
 push ds
 lds bx,DWORD PTR [bp+6]
 ASSUME DS: NOTHING

 sub dx,dx
i=4
REPT OMG+1
 mov ax,WORD PTR i[bx]
 xchg al,ah
 xchg ah,dl
 mov WORD PTR i[bx],ax
i=i+2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop bp
 ret 
_shdn8 ENDP



; shift mantissa of x up 8 bits
; shup8(x);
 PUBLIC _shup8
_shup8 PROC FAR
 push bp
 mov bp,sp

 push ds
 lds bx,DWORD PTR [bp+6]
 ASSUME DS: NOTHING
 sub dx,dx
i=NQ+NQ
REPT OMG+1
 mov ax,WORD PTR i[bx]
 xchg al,ah
 xchg al,dl
 mov WORD PTR i[bx],ax
i=i-2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop bp
 ret 
_shup8 ENDP



; shift mantissa of x down 16 bits
; shdn16(x);
 PUBLIC _shdn16
_shdn16 PROC FAR
 push bp
 mov bp,sp
 push ds

 lds bx,DWORD PTR [bp+6]
 ASSUME DS: NOTHING

 sub dx,dx
i=4
REPT OMG+1
 mov ax,WORD PTR i[bx]
 xchg ax,dx
 mov WORD PTR i[bx],ax
i=i+2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop bp
 ret 
_shdn16 ENDP


; shift mantissa of x up 16 bits
; shup16(x);
 PUBLIC _shup16
_shup16 PROC FAR
 push bp
 mov bp,sp
 push ds

 lds bx,DWORD PTR [bp+6]
 ASSUME DS: NOTHING

 sub dx,dx
i=NQ+NQ
REPT OMG+1
 mov ax,WORD PTR i[bx]
 xchg ax,dx
 mov WORD PTR i[bx],ax
i=i-2
ENDM
 pop ds
 ASSUME DS: DGROUP
 pop bp
 ret 
_shup16 ENDP




; qmov(a,b)
; copy q type number from a to b

 PUBLIC _qmov
_qmov PROC FAR
 push bp
 mov bp,sp
 push si
 push di
 push cx
 push es
 push ds

; mov si,WORD PTR [bp+6]
; mov di,WORD PTR [bp+10]
; mov ds,WORD PTR [bp+8]
; ASSUME DS: NOTHING
; mov es,WORD PTR [bp+12]

 les di,DWORD PTR [bp+10]
 mov cx, NQ
 lds si,DWORD PTR [bp+6]
 ASSUME DS: NOTHING
 rep movsw

 pop ds
 ASSUME DS: DGROUP
 pop es
 pop cx
 pop di
 pop si
 pop bp
 ret
_qmov ENDP




; qmovz(a,b)
; copy q type number from a to b
; and clear the bottom guard word of b

 PUBLIC _qmovz
_qmovz PROC FAR
 push bp
 mov bp,sp
 push si
 push di
 push cx
 push es
 push ds

; mov si,WORD PTR [bp+6]
; mov di,WORD PTR [bp+10]
; mov ds,WORD PTR [bp+8]
; ASSUME DS: NOTHING
; mov es,WORD PTR [bp+12]

 les di,DWORD PTR [bp+10]
 mov cx, NQ
 lds si,DWORD PTR [bp+6]
 ASSUME DS: NOTHING
 rep movsw

 mov word ptr es:[di],0

 pop ds
 ASSUME DS: DGROUP
 pop es
 pop cx
 pop di
 pop si
 pop bp
 ret
_qmovz ENDP


; qclear(a)
; set a to zero

 PUBLIC _qclear
_qclear PROC FAR
 push bp
 mov bp,sp
 push di
 push cx
 push es

 xor ax,ax
 les di,DWORD PTR [bp+6]
 mov cx, NQ
 rep stosw

 pop es
 pop cx
 pop di
 pop bp
 ret
_qclear ENDP



QFLT_TEXT ENDS
END