; ----- ----- various useful macros ----- -----
DEFINE	BICB	SRC,ARG
	MOVB	SRC,D7
	COMB	D7
	ANDB	D7,ARG
	ENDM

DEFINE	BISB	SRC,ARG
	ORB	SRC,ARG	
	ENDM

DEFINE	BITB	SRC,ARG
	MOVB	SRC,D7
	ANDB	ARG,D7
	ENDM

DEFINE	BICW	SRC,ARG
	MOVW	SRC,D7
	COMW	D7
	ANDW	D7,ARG
	ENDM

DEFINE	BISW	SRC,ARG
	ORW	SRC,ARG	
	ENDM

DEFINE	BITW	SRC,ARG
	MOVW	SRC,D7
	ANDW	ARG,D7
	ENDM

DEFINE	BICL	SRC,ARG
	MOV 	SRC,D7
	COM 	D7
	AND 	D7,ARG
	ENDM

DEFINE	BISL	SRC,ARG
	OR 	SRC,ARG	
	ENDM

DEFINE	BITL	SRC,ARG
	MOV 	SRC,D7
	AND 	ARG,D7
	ENDM

DEFINE  CRT     COL,ROW,SAVE
        IF      NB,SAVE,PUSH D1
        MOVW    #COL*256.+ROW,D1
        TCRT
        IF      NB,SAVE,POP D1
        ENDM
 
DEFINE	SETB	IT
	CLRB	IT
	NOTB	IT
	ENDM

DEFINE	SETW	IT
	CLRW	IT
	NOTW	IT
	ENDM

DEFINE	SETL	IT
	CLR	IT
	NOT	IT
	ENDM

; following are valid only if vtam in the system...
DEFINE  VDATEI ARG=SVCA 235,,#1,D6,D7,ARG
DEFINE	VLOK=SVCA 236
DEFINE	VUNLK=SVCA 237