title	Module from library BASE_1 : SKPITM
	name	('SKPITM')
	maclib	baselib.lib

; Skip non-blanks in ASCII stream

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.1, September 1991

; ENTRY	Reg pair DE points to string buffer

; EXIT	Reg pair DE points to first non blank character

	entry	skpitm

skp???:
	inc	de
;
; Skip non-blanks in buffer pointed to by <DE>
;
skpitm:
	ld	a,(de)
	cp	' '		; Test blank
	ret	z
	cp	tab		; .. tab
	ret	z
	cp	cr		; .. return
	ret	z
	or	a		; .. end of line
	jr	nz,skp???
	ret

	end