mdouble.out

俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）的全部源代码。

!

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

!	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
!L1	ADD 	#1,@HL
L1:	ADD 	#1,@HL
!	MOV	#0,@C	
	MOV	#0,@C	
!	ADD	#2,@C
	ADD	#2,@C
!	ADD	#\&XX, @C
	ADD	#64, @C
!	.END