;***********************************************************
                
 0000                    CPU     "6802.TBL"     ; CPU TABLE
                
 0000                    HOF     "MOT8"         ; HEX OUTPUT FORMAT
                
                ;***********************************************************
 E000           		ORG	0E000H		;starting address at E000
 E000 8606      		LDAA	#06		; A = 6
 E002 CEE100    		LDX	#0E100H		; id = E100
 E005 A700      	LOOP:	STAA	0,X		; E100 + 0 = 6
 E007 08        		INX			;X = X + 1
 E008 4A        		DECA			; A = A - 1
 E009 26FA      		BNE	LOOP		; if A != 0 go back to LOOP
 E00B CE7D40    		LDX 	#7D40H		; 7D = G, 40 = -
 E00E DF04      		STX	4		;[0405] = [X]
 E010 CE5C5C    		LDX	#5C5CH		; 5C = O
 E013 DF02      		STX	2		;[0203] = [X]
 E015 CE405E    		LDX	#405EH		; 5E = d
 E018 DF00      		STX	0		;[0001] = [X]
 E01A CEFAA3    		LDX	#0FAA3H		;[FAA3] = "rts"
 E01D DF0E      		STX	0EH		;[0E0F] = [X]
 E01F 7EF899    		JMP	0F899H		; PUT :Displays "-Good-"
                
 0000           		END
 E005  LOOP