******** mdouble.amp
!

!	H'0f
	15
!	200+H'0F
	200+15
!

!XX	.ASSIGNA	Q'100
!! Definition:
	! 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
	NOP
!

!!Call:	
	!Call:	
!	GET	200,"ADD #1,@B", ENTRY
!	MOV	#200+H'0F,@B
	MOV	#200+15,@B
!	ADD #1,@B
	ADD #1,@B
!ENTRY	JMP	@MAIN
ENTRY:	JMP	@MAIN
!L00000	ADD 	#1,@HL
L00000:	ADD 	#1,@HL
!	MOV	#0,@C	
	MOV	#0,@C	
!	ADD	#2,@C
	ADD	#2,@C
!	ADD	#\&XX, @C
	ADD	#64, @C
!	.END