Disassembler 6809 - Revision history

82.227.27.29 at 23:56, 28 July 2010

2010-07-28T23:56:40Z

← Older revision		Revision as of 01:56, 29 July 2010
Line 1:		Line 1:
	{		=== GFA Basic code ===

			<pre>
	' 0 Inhérent ex:$0000 $4C INCA		' 0 Inhérent ex:$0000 $4C INCA
	' 1 Immédiat ex:$0001 $861F LDA #$1F		' 1 Immédiat ex:$0001 $861F LDA #$1F
Line 137:		Line 139:
	DEFFN dpeek$(a%)=HEX$(PEEK(a%),2)+HEX$(PEEK(a%+1),2)		DEFFN dpeek$(a%)=HEX$(PEEK(a%),2)+HEX$(PEEK(a%+1),2)
	RETURN		RETURN
			</pre>
	}

2010-07-28T23:28:53Z

2010-07-28T23:15:40Z

← Older revision		Revision as of 01:15, 29 July 2010
Line 3:		Line 3:
	' 1 Immédiat ex:$0001 $861F LDA #$1F		' 1 Immédiat ex:$0001 $861F LDA #$1F
	' 2 Immédiat2 ex:$0002 $CC3000 LDD #$3000		' 2 Immédiat2 ex:$0002 $CC3000 LDD #$3000
	' 3 Direct ex:$0003 $965C LDA \<$5C		' 3 Direct ex:$0003 $965C LDA <$5C
	' 4 Indexé ex:$0004 $A64B LDA $4B,X		' 4 Indexé ex:$0004 $A64B LDA $4B,X
	' 5 Etendu ex:$0005 $B64100 LDA $4100		' 5 Etendu ex:$0005 $B64100 LDA $4100
Line 24:		Line 24:
	b%=MFREE(adr%,4096)		b%=MFREE(adr%,4096)
	END		END
	\> PROCEDURE init		> PROCEDURE init
	DIM mnem$(90),mnem\|(255),mnem2\|(255),d\|(255),o\|(6)		DIM mnem$(90),mnem\|(255),mnem2\|(255),d\|(255),o\|(6)
	FOR x\|=0 TO 255		FOR x\|=0 TO 255
Line 86:		Line 86:
	DATA 0,1,2,1,1,2,1,256		DATA 0,1,2,1,1,2,1,256
	RETURN		RETURN
	\> PROCEDURE charger		> PROCEDURE charger
	FILESELECT "Read Binary","Charger","",a$		FILESELECT "Read Binary","Charger","",a$
	BLOAD a$,adr%		BLOAD a$,adr%
	RETURN		RETURN
	\> PROCEDURE desassemble(a%,b%,l%)		> PROCEDURE desassemble(a%,b%,l%)
	b2%=b%		b2%=b%
	a$=""		a$=""
Line 100:		Line 100:
	mnem$=mnem$(mnem\|)+mnem$(mnem2\|)		mnem$=mnem$(mnem\|)+mnem$(mnem2\|)
	a$=a$+HEX$(b2%,4)+" "		a$=a$+HEX$(b2%,4)+" "
	IF mnem\|\<\>0		IF mnem\|<>0
	d\|=d\|(code\|)		d\|=d\|(code\|)
	ELSE		ELSE
Line 116:		Line 116:
	a$=a$+"#"+FN dpeek$(a2%)		a$=a$+"#"+FN dpeek$(a2%)
	ELSE IF d\|=3		ELSE IF d\|=3
	a$=a$+"\<"+FN peek$(a2%)		a$=a$+"<"+FN peek$(a2%)
	ELSE IF d\|=4		ELSE IF d\|=4
	a$=a$+FN peek$(a2%)+",X"		a$=a$+FN peek$(a2%)+",X"
Line 123:		Line 123:
	ELSE IF d\|=6		ELSE IF d\|=6
	v&=PEEK(a2%)		v&=PEEK(a2%)
	IF v&\>127		IF v&>127
	SUB v&,256		SUB v&,256
	ENDIF		ENDIF

2010-07-28T23:11:28Z

← Older revision		Revision as of 01:11, 29 July 2010
Line 137:		Line 137:
	DEFFN dpeek$(a%)=HEX$(PEEK(a%),2)+HEX$(PEEK(a%+1),2)		DEFFN dpeek$(a%)=HEX$(PEEK(a%),2)+HEX$(PEEK(a%+1),2)
	RETURN		RETURN

	</source>		</source>

2010-07-28T23:10:43Z

2010-07-28T23:05:50Z

← Older revision		Revision as of 01:05, 29 July 2010
Line 24:		Line 24:
	b%=MFREE(adr%,4096)		b%=MFREE(adr%,4096)
	END		END
	> PROCEDURE init		\> PROCEDURE init
	DIM mnem$(90),mnem\|(255),mnem2\|(255),d\|(255),o\|(6)		DIM mnem$(90),mnem\|(255),mnem2\|(255),d\|(255),o\|(6)
	FOR x\|=0 TO 255		FOR x\|=0 TO 255
Line 86:		Line 86:
	DATA 0,1,2,1,1,2,1,256		DATA 0,1,2,1,1,2,1,256
	RETURN		RETURN
	> PROCEDURE charger		\> PROCEDURE charger
	FILESELECT "Read Binary","Charger","",a$		FILESELECT "Read Binary","Charger","",a$
	BLOAD a$,adr%		BLOAD a$,adr%
	RETURN		RETURN
	> PROCEDURE desassemble(a%,b%,l%)		\> PROCEDURE desassemble(a%,b%,l%)
	b2%=b%		b2%=b%
	a$=""		a$=""
Line 100:		Line 100:
	mnem$=mnem$(mnem\|)+mnem$(mnem2\|)		mnem$=mnem$(mnem\|)+mnem$(mnem2\|)
	a$=a$+HEX$(b2%,4)+" "		a$=a$+HEX$(b2%,4)+" "
	IF mnem\|\<>0		IF mnem\|\<\>0
	d\|=d\|(code\|)		d\|=d\|(code\|)
	ELSE		ELSE
Line 123:		Line 123:
	ELSE IF d\|=6		ELSE IF d\|=6
	v&=PEEK(a2%)		v&=PEEK(a2%)
	IF v&>127		IF v&\>127
	SUB v&,256		SUB v&,256
	ENDIF		ENDIF

2010-07-28T23:04:01Z

2010-07-28T23:00:40Z

2010-07-28T22:59:15Z

2010-07-28T22:58:11Z

← Older revision		Revision as of 00:58, 29 July 2010
Line 1:		Line 1:
	>		<source lang="QBasic">
	' 0 Inhérent ex:$0000 $4C INCA		' 0 Inhérent ex:$0000 $4C INCA
	' 1 Immédiat ex:$0001 $861F LDA #$1F		' 1 Immédiat ex:$0001 $861F LDA #$1F
Line 137:		Line 137:
	DEFFN dpeek$(a%)=HEX$(PEEK(a%),2)+HEX$(PEEK(a%+1),2)		DEFFN dpeek$(a%)=HEX$(PEEK(a%),2)+HEX$(PEEK(a%+1),2)
	RETURN		RETURN
			</source>