anew test_前置詞
cls

	: add
		80
		;
	
	: ['lit]
		[ ' lit ] literal ;
		
	: 前置語法翻譯  ( -<string">- )
			[CHAR] " PARSE    		\ 取得 " "之間的字串
			temp$ place
			\ 以下為 前置語法翻譯,依個人需求修改
			temp$ find 				 
			if	
				\ 找到對應的組合語言指令,將其cfa放入		
				here 4 - dp !	,				\ 目前只有 ADD 
			else
				\ 找不到 相對的組合語言 則放零
				drop
				['lit] here 4 - !  		\ 數值執行cfa  ,
				0 ,					 					\ 0 ,
			then	
			;
			
	: ASM"                
			STATE @ 
      IF    	
      	 COMPILE 
      	 (s")      \ 詞碼起始位置, ,依個人需求修改
      	 前置語法翻譯				
      ELSE	
	   		[CHAR] " WORD
				find 
				if 
					execute		\
				else
					count type
				then		
			then		 
		; IMMEDIATE
	
\ 範例	
	: demoADD
			ASM" ADD" 
		;	
		
	: demoSUB
			ASM" SUB"
		;	
		
\ 執行 demADD,會將 ADD (0x80) 放置堆疊內
\ 執行 demSUB,會將因找不到sub,則將0放置堆疊內
			\	demoADD
			\	demoSUB