UNIVERSAL

	ASECT
	NOSYM
	MAYCREF
	S..RDX=10
	RADIX	8

T$BRK	=	1000			; extra bits to inform .IDV
BRK	=	T$BRK			; that BREAK's should be sent

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	BIC 	SRC,ARG
	MOVW	SRC,D7
	COMW	D7
	ANDW	D7,ARG
	ENDM

DEFINE	BIS 	SRC,ARG
	ORW	SRC,ARG	
	ENDM

DEFINE	BIT 	SRC,ARG
	MOVW	SRC,D7
	ANDW	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
 
	SYM
	PSECT
	CREF
	RADIX	S..RDX
	.=0
	PAGE