title	Module from library BASE_2 : SUBHD1
	name	('SUBHD1')
	maclib	baselib.lib

; Subtract source from destination

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

;		Version 2.2 May 1987

; ENTRY	Level 1 : PC points to destination and source

; EXIT	Flags set as on normal 8 bit subtract

	entry	subhd1

	extrn	@ftcop,subhd2

subhd1:
	ld	hl,subhd2	; Set return address
	jp	@ftcop		; Fetch operands

	end