.NLIST    TTM	
;CALL BI2HEX( A(I),B(J)) WHERE A(I) IS THE WD TO CONVERT	
;AND B(J) PROVIDES 2 WDS FOR RESULT	
.TITLE BI2HEX   
.GLOBL BI2HEX   
BI2HEX: TST       (R5)+	
	MOV       @(R5)+,R1     ;WD TO CONVERT  
	MOV       (R5)+,R2      ;STO ADDR       
	MOV       #4,-(SP)      
SBIT:   MOV       #4,-(SP)      
	CLR       R0	
SHFT:   ROL       R1	
	ROL       R0	
	DEC       (SP)	
	BNE       SHFT	
	MOVB      TABL(R0),(R2)+	;STO BYTE	
	TST       (SP)+	;POP BIT CTR    
	DEC       (SP)	
	BNE       SBIT	
	TST       (SP)+	;POP BYTE CTR   
	RTS       PC	
TABL:   .ASCII    /0123456789ABCDEF/	
	.END