DEBUG1	STY	DBGBUF+35	;SAVE Y
	STX	DBGBUF+34	;AND X
	STA	DBGBUF+33	;AND ACC
;
	LDA	#'>'
	STA	DBGBUF
;
	LDA	(TABPTR),Y
	AND	#$E7
	PHA
	LSR	A
	LSR	A
	LSR	A
	LSR	A
	SED
	SEC
	SBC	#9+1
	ADC	#'9'+1
	STA	DBGBUF+1
	PLA
	AND	#$0F
	SEC
	SBC	#9+1
	ADC	#'9'+1
	CLD
	STA	DBGBUF+2
;
	LDA	#' '
	STA	DBGBUF+3
	LDX	#4
	INY
	INY
DEBUGL	INY
	LDA	(TABPTR),Y
	BMI	DEBUGX
	STA	DBGBUF,X
	INX
	JMP	DEBUGL
DEBUGX	LDA	#$9B
	STA	DBGBUF,X
	JSR	DEBUG		;PRINT IT
	LDA	DBGBUF+33
	LDX	DBGBUF+34
	LDY	DBGBUF+35
	RTS
;
DEBUG	LDX	#$00		;PRINT THE LINE IN THE DEBUG BUFFER
	LDA	#LOW[DBGBUF]
	STA	IBUF,X
	LDA	#HIGH[DBGBUF]
	STA	IBUF+1,X
;
	LDA	#9
	STA	ICMD,X		;PRINT A LINE ENDING WITH EOL
	LDA	#81
	STA	ILEN,X
	LDA	#0
	STA	ILEN+1,X
	JMP	CIOV
;
DBGBUF	DS	40	;SHORT LINE BUFFER FOR DEBUGGING