;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; (c)Copyright Sealevel Systems Incorporated, 1993 - 1995
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;     GENERAL VIDEO MACROS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
EOL	    EQU     '$'
CR	    EQU     0DH
LF	    EQU     0AH
BEL	    EQU     07H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CLS PROTO NEAR C
WRT PROTO NEAR C
WRT_HEX PROTO NEAR C
HEX_ASCII PROTO NEAR C
ASCII_HEX PROTO NEAR C
WRT_MESS PROTO NEAR C MESS:WORD
CURSOR PROTO NEAR C YYXX:WORD
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;	    Misc Macros
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  BTEST : macro
;;	Passes: Register
;;		Mask
;;		Check
;;		jump if zero label
;;	Retrun: Flags
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BTEST MACRO X1,Y1,Y2,WHERE              ;MASK Y1 WITH X1
	  PUSH AX
	  AND X1,Y1                     ;COMPARE X1 AND Y1
	  CMP X1,Y2                     ;IF EQUAL JUMP
	  POP AX
	  JZ WHERE
	  ENDM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  pause : macro
;;	Passes: nothing
;;	Return: nothing
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
pause MACRO	    ;I/O recovery time
	jmp $+2     ;This purges the CPU prefetch
	jmp $+2     ;cue, (The pause that refreshes. Ha Ha)
	jmp $+2
ENDM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;