Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/bitput.mac
There is 1 other file named bitput.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,bitput);
PROCEDURE bitput(w,n,b); INTEGER w,n; BOOLEAN b;
COMMENT Bit 36-n of w := IF b THEN 1 ELSE 0;

!*;! MACRO-10 code !*;!

	TITLE	bitput
	ENTRY	bitput
	SUBTTL	SIMULA utility, Lars Enderin Feb 1977

;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


	sall
	search	simmac,simmcr,simrpa
	macinit

	;! Local definitions ;!

	w==XWAC1
	n==w+1
	b==n+1

bitput:	MOVSI	X1,(1B0)
	ROT	X1,(n)
	SKIPN	b
	TDZA	w,X1
	TDO	w,X1
	RET
	END;