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

 
Output of file : PUTH.ASM contained in archive : RHSTDLIB.ZIP
stdlib segment para public 'slcode'
assume cs:stdlib
extrn sl_Putc:far
;
;
; Puth- Outputs value in AL as two hex digits.
;
public sl_Puth
sl_Puth proc far
push ax
mov ah, al
shr al, 1
shr al, 1
shr al, 1
shr al, 1
add al, 90h
daa
adc al, 40h
daa
call sl_Putc
mov al, ah
and al, 0fh
add al, 90h
daa
adc al, 40h
daa
call sl_Putc
pop ax
ret
sl_Puth endp
;
; Putw- Outputs word in AX as four hexadecimal digits:
;
public sl_Putw
sl_Putw proc far
xchg al, ah
call sl_Puth
xchg al, ah
jmp sl_Puth
sl_Putw endp
;
stdlib ends
end


  3 Responses to “Category : Assembly Language Source Code
Archive   : RHSTDLIB.ZIP
Filename : PUTH.ASM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/