;
; 2's complement (bc), leave (b) in (a)
; a,b,c
.c2bc::	dcx	b
;	"	"
; 1's complement (bc), leave (b) in (a)
; a,b,c
.c1bc::	mov	a,c
	cma
	mov	c,a
	mov	a,b
	cma
	mov	b,a
	ret

	end