MAIN	START
	LAD	GR1,-20
    CALL MINUS
	RET
    END
MINUS	START
	CPA GR1,=#FFFF
    JZE MFIN
	XOR	GR1,=#FFFF
    LAD	GR1,1,GR1
MFIN	RET
	END