*	naw.mac		written by Seisei Yamaguchi


_GRAM		equ	$C00000
_GPAGE1		equ	$C80000
_TRAM0		equ	$E00000
_CRTC_GS0_SC	equ	$E80018
_CRTC_GS1_SC	equ	$E8001C
_G_PAL		equ	$E82000
_SP_PAL		equ	$E82200
_T_PAL		equ	_SP_PAL
_SP_PAL1	equ	$E82220
_SP_REG		equ	$EB0000
_BG0_SC		equ	$EB0800
_SP_PCG		equ	$EB8000
_BG1_PCG	equ	$EBE000

*-------------
m	macro	定義1 , 定義2 , 定義3 , 定義4 , 定義5
	定義1
	定義2
	定義3
	定義4
	定義5
 ENDM
*-----------
M	macro	定義1 , 定義2 , 定義3 , 定義4 , 定義5
	定義1
	定義2
	定義3
	定義4
	定義5
 ENDM
*------------
PRINT	macro	ptr
	m	<pea ptr>,	<dc $ff09 *_PRINT>,	<addq.l #4,sp>
 ENDM
*-----------
PUSH	macro	REG_LIST , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	movem.l	REG_LIST,-(sp)
	m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
 ENDM
*------------
POP		macro	REG_LIST , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	movem.l	(sp)+,REG_LIST
	m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
 ENDM
*-------------
r_name	macro	%RG , NAM , 定義1 , 定義2 , 定義3 , 定義4 , 定義5	*Reg_Nameね
NAM%RG	reg	%RG
	m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
 ENDM
*-------------
r_nameS	macro	%RG , NAM , 定義0 , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
NAM%RG	reg	%RG
	定義0,%RG
	m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
 ENDM
*-----------
r_28	macro	dummy , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
 ENDM
*------------
LNK	macro	num
	link	LA,#num
 ENDM
*-------------
ULK	macro
	unlk	LA
 ENDM
*------------
SUPER	macro	dst
	m	<sub.l a1,a1>,	<IOCS _B_SUPER (a1) → d0 (81)>,	<move.l	d0,dst>
 ENDM
*-----------
USER	macro	src
	m	<move.l	src,a1>,	<IOCS _B_SUPER (a1)>
 ENDM
*-------------
sSUPER	macro
	m	<sub.l a1,a1>,	<IOCS _B_SUPER>,	<move.l	d0,-(sp)>
 ENDM
*-------------
sUSER	macro
	m	<move.l	(sp)+,a1>,	<IOCS _B_SUPER>
 ENDM
*-------------
IFn	macro	%cc , 式1 , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	M	<式1>,	<B%cc L1>
		m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
	L1:
 ENDM
*-------------
IFn2	macro	%cc , 式1 , 式2 , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	M	<式1>, <式2>,	<B%cc L1>
		m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
	L1:
 ENDM
*-------------
IFn_E	macro	%cc , 式1 , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	local	L2
	M	<式1>,	<B%cc L1>
		M	<定義1>,<BRA L2>
	L1:
		m	<定義2>,<定義3>,<定義4>,<定義5>
	L2:
 ENDM
*-------------
IFn_E2	macro	%cc , 式1 , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	local	L2
	M	<式1>,	<B%cc L1>
		m	<定義1>,<定義2>,<BRA L2>
	L1:
		m	<定義3>,<定義4>,<定義5>
	L2:
 ENDM
*--------------
LP	macro	Imm , reg , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	move	#Imm,reg
L1		m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
	dbF	reg,L1
 ENDM
*--------------
Lq	macro	Imm , reg , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	moveq	#Imm,reg
L1		m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
	dbF	reg,L1
 ENDM
*-------------
LOOP	macro	reg , 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
L1		m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
	dbF	reg,L1
 ENDM
*----------------
LB	macro	%cc, 定義1 , 定義2 , 定義3 , 定義4 , 定義5
	local	L1
	L1:
		m	<定義1>,<定義2>,<定義3>,<定義4>,<定義5>
	B%cc	L1
 ENDM
*----------------
WAIT_VDISP	macro
	local	L1
	local	L2
L1	m	<btst #4,$e88001>,	<bEQ L1>
L2	m	<btst #4,$e88001>,	<bNE L2>
 ENDM
*========================

	r_name	A0,LA