HEXTOBCDS: MOV B,#100 DIV AB MOV R3,A MOV A,#10 XCH A,B DIV AB SWAP A ORL A,B RET