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 / S / ZCNFG23.LBR / CFGLIB.LBR / SDELM.ZY0 / SDELM.ZY0
Text File  |  2000-06-30  |  1KB  |  35 lines
  1.     public    sdelm
  2.  
  3. ; This routine checks for a delimiter character pointed to by HL.  It returns
  4. ; with the character in A and the zero flag set if it is a delimiter.  All
  5. ; registers are preserved except A. The delimiters tested for include all
  6. ; control characters
  7.  
  8. sdelm:
  9.     ld    a,(hl)        ; Get the character
  10.     exx            ; Use alternate register set (shorter code)
  11.     ld    hl,deldat    ; Point to delimiter list
  12.     ld    bc,delend-deldat; Length of delimiter list
  13.     cpir            ; Scan for match
  14.     exx            ; Restore registers
  15.     ret    z        ; Returns Z if delimiter
  16.     cp    ' '+1        ; test for space or control char
  17.     ret    nc        ; ..returns nz if not
  18.     xor    a        ; make Z flag for control char
  19.     ld    a,(hl)        ; ..and recover the char.
  20.     ret
  21.  
  22. deldat:                ; List of delimiter characters
  23.     db    ','        ; comma
  24.     db    '/'        ; indicates lib srch (22/08/88)
  25.     db    ':'        ; colon
  26.     db    '.'        ; period
  27.     db    '='        ; equality sign
  28.     db    ';'        ; semicolon
  29.     db    '<'        ; left angle bracket
  30.     db    '>'        ; right angle bracket
  31.     db    '_'        ; underline
  32. delend:
  33.  
  34.     end
  35.