Category : Assembly Language Source Code
Archive   : RHSTDLIB.ZIP
Filename : LTOA.ASM

;
stdlib segment para public 'slcode'
assume cs:stdlib
extrn sl_malloc:far
;
; Local variables for these routines:
;
astr db 12 dup (?)
aindex dw 0
;
;
; LTOA- converts the value in DX:AX to a string. Returns a pointer to this
; string in ES:SI. Carry=0 on return if no error, 1 if heap overflow.
;
public sl_ltoa
sl_ltoa proc far
push ax
push bx
push cx
push dx
mov cs:aindex, 0
cmp dx, 0
jge Doit
push ax
mov al, '-'
call Putit
pop ax
neg dx
neg ax
sbb dx, 0
;
DoIt: call puti2
;
; Move the digit string out onto the heap and return a pointer to it in
; es:si.
;
mov cx, cs:aindex
mov bx, cx ;Save for later.
inc cx
call sl_malloc ;Allocate storage for string.
jc BadLTOA
CopyStrLp: mov al, cs:astr[bx]
mov es:[di][bx], al
dec bx
jns CopyStrLp
clc
pop dx
pop cx
pop bx
pop ax
ret
;
BadLTOA: clc
pop dx cx bx ax
ret
sl_ltoa endp
;
;
;
; ULTOA converts the unsigned dword value in DX:AX to a string and returns
; a pointer to this string in ES:SI. Carry=0 if no error, 1 if heap
; overflow occurs.
;
public sl_ultoa
sl_ultoa proc far
push ax
push bx
push cx
push dx
mov cs:aindex, 0
call PutI2
;
; Move the digit string out onto the heap and return a pointer to it in
; es:si.
;
mov cx, cs:aindex
mov bx, cx ;Save for later.
inc cx
call sl_malloc ;Allocate storage for string.
jc BadULTOA
CopyStrLp2: mov al, cs:astr[bx]
mov es:[di][bx], al
dec bx
jns CopyStrLp2
clc
pop dx
pop cx
pop bx
pop ax
ret
;
BadULTOA: stc
pop dx cx bx ax
ret
sl_ultoa endp
;
;
;
; PutI2- Recursive routine to actually print the value in AX as an integer.
;
Puti2 proc near
call Div10
cmp ax, dx ;See if dx:ax=0
jnz NotDone
or ax, ax
jz Done
NotDone: push bx
call Puti2
pop bx
Done: mov al, bl
or al, '0'
call PutIt
ret
PutI2 endp
;
; Div10- Divides DX:AX by 10 leaving the remainder in BL and the quotient
; in DX:AX.
;
Div10 proc near
mov cx, 10
mov bx, ax
xchg ax, dx
xor dx, dx
div cx
xchg bx, ax
div cx
xchg dx, bx
ret
Div10 endp
;
;
; PutIt- Writes the character in AL to the "astr" buffer. Also zero
; terminates the string and increments aindex. Note: no need to preserve
; SI here because no one else uses it.
;
PutIt proc near
mov di, cs:aindex
mov cs:astr[di], al
mov byte ptr cs:astr+1[di], 0
inc cs:aindex
ret
PutIt endp
stdlib ends
end