[thirdparty/binutils-gdb.git] / gas / testsuite / gasp / mdouble.asm


	.MACRO	HI
	A
	\! this is hidden
	B
	! this is not
	C
	.ENDM
	Hello 
	HI
	Emily
	

	H'0f
	200+H'0F

XX	.ASSIGNA	Q'100
! Definition:
	.MACRO	GET X=100,Y,Z
	MOV	#\X+H'0F,@B
	\Y
\Z	JMP	@MAIN
L\@	ADD 	#1,@HL
	MOV	#0,@C	\! Clear C
	ADD	#2,@C
	ADD	#\&XX, @C
	.ENDM

	NOP

!Call:	
	GET	200,"ADD #1,@B", ENTRY
	.END

	; Definition:


	NOP

	;Call:	
	MOV	#200+0F,@B
	ADD #1,@B
ENTRY:	JMP	@MAIN
L00000:	ADD 	#1,@HL
	MOV	#0,@C	
	ADD	#2,@C
	ADD	#0, @C
Commit	Line	Data
a5f4bc30 SC	1
	2	.MACRO HI
	3	A
	4	\! this is hidden
	5	B
	6	! this is not
	7	C
	8	.ENDM
	9	Hello
	10	HI
	11	Emily
	12
	13
	14	H'0f
	15	200+H'0F
	16
	17	XX .ASSIGNA Q'100
	18	! Definition:
	19	.MACRO GET X=100,Y,Z
	20	MOV #\X+H'0F,@B
	21	\Y
	22	\Z JMP @MAIN
	23	L\@ ADD #1,@HL
	24	MOV #0,@C \! Clear C
	25	ADD #2,@C
	26	ADD #\&XX, @C
	27	.ENDM
	28
	29	NOP
	30
	31	!Call:
	32	GET 200,"ADD #1,@B", ENTRY
	33	.END
	34
	35	; Definition:
	36
	37
	38	NOP
	39
	40	;Call:
	41	MOV #200+0F,@B
	42	ADD #1,@B
	43	ENTRY: JMP @MAIN
	44	L00000: ADD #1,@HL
	45	MOV #0,@C
	46	ADD #2,@C
	47	ADD #0, @C