home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / asmlib1.lbr / BUFSTR.AYM / BUFSTR.AYM
Encoding:
Text File  |  1994-05-31  |  1.0 KB  |  37 lines
  1. ;----------------------------------------------------------------
  2. ;         This is a module in the ASMLIB library.
  3. ; 
  4. ; This module will move a standard console buffer into a 
  5. ; standard string. This also moves the size byte.
  6. ; This allows easy character movement. On entry DE ->
  7. ; start of the console buffer and HL -> the character string.
  8. ;
  9. ;             Written        R.C.H.         1/10/83
  10. ;            Last Update    R.C.H.         1/10/83
  11. ;----------------------------------------------------------------
  12. ;
  13.     name    'bufstr'
  14.     public    bufstr
  15.     maclib    z80
  16. ;
  17. bufstr:
  18. ; Here DE -> buffer (source) , HL -> string (dest).
  19.     push    b            ; Save 
  20.     xchg
  21. ; HL -> buffer (source), DE -> string (dest).
  22.     inx    h            ; Index past the buffer size byte
  23.     mov    a,m            ; Get the the size byte
  24.     ora    a            ; String size = 0 ??
  25.     jrz    bufstrend
  26.     mov    c,a            ; Load the size.
  27.     mvi    b,00            ; Set up the move
  28.     ldir                ; Move the data
  29. ;
  30. bufstrend:
  31.     pop    b
  32.     ret
  33. ;
  34.     end
  35.  
  36.  
  37.