;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""          =B
;		 VIDEO REGISTER PORT ADDRESS EQUATES				  =B
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""          =B
seq_addr	EQU	0C4H	;AN000;Sequencer  Address				=B
seq_data	EQU	0C5H	;AN000;Sequencer  Data					=B
crtc_addr	EQU	0D4H	;AN000;CRT Controller Address (Color)			=B
crtc_addr_b	EQU	0B4H	;AN000;CRT Controller Address (Mono)			=B
crtc_data	EQU	0D5H	;AN000;CRT Controller Data				=B
graph_1_pos	EQU	0CCH	;AN000;Graphics 1 Position				=B
graph_2_pos	EQU	0CAH	;AN000;Graphics 2 Position				=B
graph_addr	EQU	0CEH	;AN000;Graphics 1 & 2 Address				=B
graph_data	EQU	0CFH	;AN000;Graphics 1 & 2 Data				=B
misc_output	EQU	0C2H	;AN000;Miscellaneous Output				=B
misc_read	EQU	0CCH	;AN000;Miscellaneous Output Read Port Address		=B
in_stat_0	EQU	0C2H	;AN000;Input Status Register 0				=B
input_status_b	EQU	0BAH	;AN000;Feature Control (Mono)				=B
input_status	EQU	0DAH	;AN000;Feature Control (Color)				=B
attr_read	EQU	0C1H	;AN000;Attribute Controller Read Address		=B
attr_write	EQU	0C0H	;AN000;Attribute Controller Write Address		=B
fctrl_read	EQU	0CAH	;AN000;Feature Control Regiester Read Address		=B

;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
;	     SEQUENCER ADDRESS REGISTER EQUATES
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
s_reset 	EQU	00H	;AN000;Reset						=B
s_clock 	EQU	01H	;AN000;Clocking Mode					=B
s_map		EQU	02H	;AN000;Map Mask 					=B
s_cgen		EQU	03H	;AN000;Character Map Select				=B
s_mem		EQU	04H	;AN000;Memory Mode					=B


;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
;	     GRAPHICS ADDRESS REGISTER EQUATES
;
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
g_set_reset	EQU	00H	;AN000;set/reset					=B
g_enbl_set	EQU	01H	;AN000;enable set/reset 				=B
g_clr_comp	EQU	02H	;AN000;color compare					=B
g_data_rot	EQU	03H	;AN000;data rotate					=B
g_read_map	EQU	04H	;AN000;read map select					=B
g_mode		EQU	05H	;AN000;mode						=B
g_misc		EQU	06H	;AN000;miscellaneous					=B
g_color 	EQU	07H	;AN000;color don't care                                 =B
g_bit_mask	EQU	08H	;AN000;bit mask 					=B

;---------------------------------------------------------------------+
;								      |
;	 Miscellaneous Equates					      |
;								      |
;---------------------------------------------------------------------+

LINELEN        EQU  80			     ;AN000; Length of a Graphics Buffer Line
COLPELS        EQU  8			     ;AN000; Number of pels per text column
DEFROFFU       EQU  0			     ;AN000; Default Pointer Icon Row Center Offset
DEFROFFD       EQU  14			     ;AN000; Default Pointer Icon Row Center Offset
DEFCOFFR       EQU  11			     ;AN000; Default Pointer Icon Column Center Offst
DEFCOFFL       EQU  4			     ;AN000; Default Pointer Icon Column Center Offst
ICONROWS       EQU  16			     ;AN000; Number of Rows in Pointer Icon
ICONCOLS       EQU  16			     ;AN000; Number of Columns in Pointer Icon
SHFTMSK        EQU  07H 		     ;AN000; Column Shift Count Bit Mask (Hi-Res)
M_BLACK        EQU  0			     ;AN000;default background color (icon)
M_WHITE        EQU  15			     ;AN000;default foreground color (icon)
M_DAXIS        EQU  11			     ;AN000;default axis mouse pointer
VSICONR        EQU  28			     ;AN000;# pel rows
VSICONC        EQU  2*8 		     ;AN000;# pel columns
MVSICONR       EQU  16			     ;AN000;minimun pel rows in sb icon
MHSICONC       EQU  3*8 		     ;AN000;minimum pel cols in sb icon

;;
;;  Long Conditional Jump Macros
;;
lja		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jna	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljae		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnae	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljb		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnb	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljc		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnc	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljbe		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnbe	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
lje		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jne	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljz		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnz	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljg		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jng	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljge		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnge	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljl		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnl	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljle		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jnle	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljnc		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jc	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljne		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		je	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljnz		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jz	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljno		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jo	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;
ljo		macro	Farlabel	     ;;AN000;
		local	Nearlabel	     ;;AN000;
		jno	Nearlabel	     ;;AN000;
		jmp	Farlabel	     ;;AN000;
Nearlabel:				     ;;AN000;
		endm			     ;;AN000;