home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / ASTRING.MAC < prev    next >
Text File  |  1989-11-07  |  673b  |  58 lines
  1. ; ASTRING for Turbo-ARC, TR 071189
  2.     .z80
  3.     extrn    st,help
  4.  
  5.     ld    hl,help
  6.     ld    b,11
  7.     ld    (hl),b
  8. floop:    inc    hl
  9.     ld    (hl),' '
  10.     djnz    floop
  11.     ld    hl,(st)
  12.     ld    a,(hl)        ; length(st)
  13.     or    a
  14.     jr    z,ende
  15.     ld    b,a
  16.     ex    de,hl
  17.     ld    hl,help        ; HL=Dest, DE=Source
  18.     inc    hl
  19.     ld    c,1
  20. loop:    inc    de
  21.     ld    a,(de)
  22.     cp    '.'
  23.     jr    z,punkt
  24.     cp    '*'
  25.     jr    z,stern
  26.     cp    'a'
  27.     jr    c,direkt
  28.     and    05Fh        ; Upcase
  29. direkt:    ld    (hl),a
  30.     inc    hl
  31.     inc    c
  32. loop1:    djnz    loop
  33.     jr    ende
  34.  
  35. punkt:    ld    a,c
  36.     cp    9
  37.     jr    nc,loop1
  38.     inc    hl
  39.     inc    c
  40.     jr    punkt
  41.  
  42. stern:    ld    (hl),'?'
  43.     inc    hl
  44.     inc    c
  45.     ld    a,c
  46.     cp    12
  47.     jr    nc,loop1
  48.     cp    9
  49.     jr    z,loop1
  50.     jr    stern
  51.  
  52. ende:    ld    hl,help
  53.     ld    de,(st)
  54.     ld    bc,12
  55.     ldir
  56.  
  57.     end
  58.