libs/printhexhl.zas

   1 printhexhl:
   2   ld   a,h
   3   rrca
   4   rrca
   5   rrca
   6   rrca
   7   call .print_nibble
   8   ld   a,h
   9   call .print_nibble
  10   ld   a,l
  11   rrca
  12   rrca
  13   rrca
  14   rrca
  15   call .print_nibble
  16   ld   a,l
  17
  18 .print_nibble:
  19 ; convert nibble (low 4 bits of A) to hexadecimal digit
  20 ; IN: A: nibble
  21 ; OUT: A: digit ready to print
  22   and  a,#0F
  23   cp   a,10
  24   sbc  a,#69
  25   daa
  26   rst  #10
  27   ret