; File: M740.aii
;
;
; Copyright Apple Computer, Inc. 1986-88
; All Rights Reserved
;

;...............................................................
;
;              clb 
;
;...............................................................
	MACRO
	clb		&BitNum,&Dest
	IF NOT &IsInt(&BitNum) THEN
		AERROR 'clb expects a number as its first argument'
		MEXIT
	ENDIF
	IF &SETTING('MACHINE') <> 'M740' THEN
		AERROR 'clb macro is valid only when MACHINE M740 is in effect'
	ELSE
		&CONCAT('CLB',&INTTOSTR(&EVAL(&BitNum)))	&Dest
	ENDIF
	ENDM
;...............................................................
;
;              seb 
;
;...............................................................
	MACRO
	seb		&BitNum,&Dest
	IF NOT &IsInt(&BitNum) THEN
		AERROR 'seb expects a number as its first argument'
		MEXIT
	ENDIF
	IF &SETTING('MACHINE') <> 'M740' THEN
		AERROR 'seb macro is valid only when MACHINE M740 is in effect'
	ELSE
		&CONCAT('SEB',&INTTOSTR(&EVAL(&BitNum)))	&Dest
	ENDIF
	ENDM
;...............................................................
;
;              bbc 
;
;...............................................................
	MACRO
	bbc		&BitNum,&Source,&Target
	IF NOT &IsInt(&BitNum) THEN
		AERROR 'bbc expects a number as its first argument'
		MEXIT
	ENDIF
	IF &SETTING('MACHINE') <> 'M740' THEN
		AERROR 'bbc macro is valid only when MACHINE M740 is in effect'
	ELSE
		&CONCAT('BBC',&INTTOSTR(&EVAL(&BitNum)))	&Source,&Target
	ENDIF
	ENDM
;...............................................................
;
;              bbs 
;
;...............................................................
	MACRO
	bbs		&BitNum,&Source,&Target
	IF NOT &IsInt(&BitNum) THEN
		AERROR 'bbs expects a number as its first argument'
		MEXIT
	ENDIF
	IF &SETTING('MACHINE') <> 'M740' THEN
		AERROR 'bbs macro is valid only when MACHINE M740 is in effect'
	ELSE
		&CONCAT('BBS',&INTTOSTR(&EVAL(&BitNum)))	&Source,&Target
	ENDIF
	ENDM
	