.TITLE	.SIGN
/
/ THE SIGN SUBROUTINE FOLLOWS
/
	.GLOBL	ISIGN,SIGN,DSIGN
	.GLOBL	.FETCH,.PSHBA,.SIGNA,.SIGNB,.ILMDE
/
ISIGN	XX
	JMP*	.ILMDE
/
SIGN	XX
	JMS*	.FETCH	/ GET 1ST ARGUMENT
	JMS*	.PSHBA	/ PUSH INTO ACC A
	JMS*	.FETCH	/ GET 2ND ARGUMENT
	LAC*	.SIGNB	/ GET SIGN OF 2ND ARGUMENT
	DAC*	.SIGNA	/ MAKE IT THE SIGN OF THE 1ST ARGUMENT
	JMP*	SIGN
/
DSIGN=SIGN
/
	.END