.
.
.
mov A,#7Bh ; Movemos 123 al acumulador
acall HexTo3BCD ; Llamamos la subrutina
.
.
.
HexTo3BCD:
mov B,#100 ; Movemos 100 al registro B
div AB ; Dividimos 123 entre 100, obteniendo 1 como cociente y 23 el resto, osea A=1 y B=23
mov R0,A ; Guardamos nuestro primer Dígito
mov A,B ; Movemos al acumulador el valor del registro B para la siguiente operacion
mov B,#10 ; Movemos 10 al registro B
div AB ; Dividimos 23 entre 10. A=2 y B=3
mov R1,A ; Guardamos el Segundo Dígito
mov R2,B ; Guardamos el Tercer Dígito
ret ; Salimos de la Subrutina