title	Module from library HILIB_3 : @LEFT
	name	('@LEFT')
	maclib	baselib.lib

; Language : BASIC

; Get LEFT$ of a string

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

;		Version 1.0, August 1987

; ENTRY	Reg pair HL points to target
;	Reg pair DE points to substring
;	Reg B holds length of substring

; EXIT	Carry set on position error

	entry	@left

	extrn	@copy

@left:
	ld	c,1		; Set start
	jp	@copy		; And copy

	end