====uphl====

----

<code z80>
uphl         
          ld   a,h               
          dec  h                 
          and  7                 
          ret  nz                
          ld   a,l               
          sub  32                
          ld   l,a               
          ld   a,h               
          ret   c           
          add  a,8               
          ld   h,a                         
          ret
</code>

----

Slower alternative:
<code z80>
uphl      ld   a,h               
          dec  h                 
          and  7                 
          ret  nz                
          ld   a,l               
          sub  32                
          ld   l,a               
          ld   a,h               
          jr   c,uphl2           
          add  a,8               
          ld   h,a               
uphl2     cp   64                
          ret  nc                
          ld   h,87               
          ret
</code>

----

**Navigation: [[general]] . [[math]] . [[graphic]] . [[sound]] . [[system]] . [[other]] . back to [[start]]**