title	Module from library INTEGER_1 : SUBI32
	name	('SUBI32')
	maclib	baselib.lib

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

;		Version 1.0 October 1989

; Subtract 32 bit integers

; ENTRY	Regs HL,BC hold 2nd operand and result
;	Stack hold 1st number

; EXIT	Result filled with difference

	entry	$sub32

$sub32:	
	pop	iy		; Get PC
	ex	(sp),hl
	or	a
	sbc	hl,bc		; Subtract lo
	ld	b,h
	ld	c,l
	pop	de
	pop	hl
	sbc	hl,de		; .. and hi
	jp	(iy)

	end