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 / ZSYS / SIMTEL20 / SYSLIB / SLIB3.LBR / SSKSP.Z80 < prev    next >
Text File  |  2000-06-30  |  896b  |  46 lines
  1. ;
  2. ;  SYSLIB Module Name:  SSKSP
  3. ;  Author:  Richard Conn
  4. ;  SYSLIB Version Number:  3.6
  5. ;  Module Version Number:  1.1
  6.  
  7.     public    sksp,sknsp
  8.  
  9. ;
  10. ;    SKSP skips spaces in the string pointed to by HL until either
  11. ; a non-space or null are encountered.  HL pts to the non-space or null
  12. ; when done.
  13. ;    SKNSP skips non-spaces in the string pointed to by HL until
  14. ; either a space or a null are encountered.  HL pts to the space or null
  15. ; when done.
  16. ;
  17.  
  18.     EXT    ISSP
  19.  
  20. SKSP:
  21.     PUSH    AF    ; SAVE PSW
  22. SKSP1:
  23.     LD    A,(HL)    ; GET NEXT CHAR
  24.     INC    HL    ; PT TO NEXT
  25.     OR    A    ; DONE?
  26.     JP    Z,SKSP2
  27.     CALL    ISSP    ; IS A SPACE?
  28.     JP    Z,SKSP1    ; CONTINUE SKIP IF SO
  29. SKSP2:
  30.     DEC    HL    ; PT TO OFFENDING CHAR
  31.     POP    AF    ; GET PSW
  32.     RET
  33.  
  34. SKNSP:
  35.     PUSH    AF    ; SAVE PSW
  36. SKNSP1:
  37.     LD    A,(HL)    ; GET NEXT CHAR
  38.     INC    HL    ; PT TO NEXT
  39.     OR    A    ; DONE?
  40.     JP    Z,SKSP2
  41.     CALL    ISSP    ; IS A SPACE?
  42.     JP    NZ,SKNSP1
  43.     JP    SKSP2
  44.  
  45.     END
  46.