311Fermer313
FlashZLe 03/09/2005 à 22:42
\ExtToken
	cmpi.b	#$EA,d0
	beq.s	\t1Exprs		; One arg
	cmpi.b	#$EB,d0
	beq.s	\t2Exprs		; Two arg
	cmpi.b	#$ED,d0
	beq.s	\t1Exprs		; One arg
	cmpi.b	#$EE,d0
	beq.s	\t1Exprs		; One arg

	cmpi.b	#$E5,d0
	beq.s	\EndTag
	cmpi.b	#$E9,d0
	bne.s	\NoEndTag
\EndTag		addq.l	#1,a0		; Do not skip these tags!
		rts
\NoEndTag
	; Extra Basic commands ? $E3 & $E4 ?
	; $DB -> $F9 -> ???
	ER_THROW INVALID_COMMAND_ERROR



Ca plante ici :
	cmpi.b	#$E9,d0
	bne.s	\NoEndTag
\EndTag		addq.l	#1,a0		; Do not skip these tags!
		rts
\NoEndTag
	; Extra Basic commands ? $E3 & $E4 ?
	; $DB -> $F9 -> ???
	ER_THROW INVALID_COMMAND_ERROR


Branchement a \NoEndTag.... plantage !