home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / asmutl / asmlib.lbr / PRNSTR.AZM / PRNSTR.ASM
Encoding:
Assembly Source File  |  1991-06-25  |  768 b   |  39 lines
  1. ;----------------------------------------------------------------
  2. ;        This is a module in the ASMLIB library.
  3. ;
  4. ; This module prints a string that has the size of it
  5. ; stored before the characters, IE a standard PL/I, BASCIC or
  6. ; PASCAL string.
  7. ;
  8. ;            Written        R.C.H.       1/10/83
  9. ;            Last Update    R.C.H.         1/10/83
  10. ;----------------------------------------------------------------
  11. ;
  12.     name    'prnstr'
  13.     public    prnstr
  14.     extrn    pcount
  15. ;
  16. prnstr:
  17.     ldax    d        ; DE -> string start
  18.     ora    a
  19.     rz            ; Exit if zero length
  20.     push    b
  21.     mov    b,a        ; Load a counter
  22.     inx    d        ; Point to text
  23.     call    pcount        ; Do the job
  24.     pop    b
  25.     ret            ; All done
  26. ;
  27.     end
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.