home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / asmutl / asmlib.lbr / ATOASC.AZM / ATOASC.ASM
Encoding:
Assembly Source File  |  1991-06-25  |  640 b   |  29 lines
  1. ;----------------------------------------------------------------
  2. ;         This is a module in the ASMLIB library.
  3. ;
  4. ; Convert A to ascii in HL. H = high byte ascii, L = low byte
  5. ;
  6. ;            Written         R.C.H.     16/8/83
  7. ;            Last Update    R.C.H.       16/8/83
  8. ;----------------------------------------------------------------
  9. ;
  10.     name    'atoasc'
  11. ;
  12.     public    atoasc
  13.     extrn    nibasc
  14. ;
  15. atoasc:
  16.     push    psw            ; save
  17.     rar
  18.     rar
  19.     rar
  20.     rar                ; put top nibble into low
  21.     call    nibasc            ; convert
  22.     mov    h,a            ; save
  23.     pop    psw
  24.     call    nibasc            ; convert low nibble
  25.     mov    l,a
  26.     ret                ; easy wasn't it
  27.     end
  28.  
  29.