TITLE	'6502/65C02 ASSEMBLER'
VAL	=	1*1
VAL8	=	8*1
VAL9	=	1*8
VAL64	=	8*8
PRUNIT	=	$10	;LIST OUTPUT IOCB
OBUNIT	=	$20	;OBJECT FILE IOCB
INUNIT	=	$32/5	;SOURCE FILE IOCB
	LIST	I
PRTLEN	=	80	;PRINT LINE WIDTH
BUFLEN	=	[256+6]	;MAX SIZE OUTPUT RECORD
CWIDTH	=	[SYMSIZ]+9
PRF	=	$1234
;
	ORG	$4000
	LDX	#PRUNIT
	STX	PRFILE
	LDA	#LOW[PRF+5]
	LDY	#HIGH[PRF+5]
	LDA	[$300+5]*3
	END	1,$300+5*6