.Z80
;
BEGIN	EQU	180H
ESC	EQU	1BH
;
	LD	HL,(1)
	LD	DE,9
	ADD	HL,DE
	LD	(CON),HL
	LD	C,ESC	
	CALL	CONOUT
	LD	C,'T'
	CALL	CONOUT
	LD	C,0
	CALL	CONOUT
	LD	C,0
	CALL	CONOUT
	LD	C,0C0H
	CALL	CONOUT
	LD	C,0
	CALL	CONOUT
	LD	HL,180H
	LD	B,0C0H
LOOP:	LD	C,(HL)
	INC	HL
	CALL	CONOUT
	DJNZ	LOOP
	LD	C,ESC
	CALL	CONOUT
	LD	C,'U'
	CALL	CONOUT
	LD	C,078H
	CALL	CONOUT
	LD	C,0
	CALL	CONOUT
	RET
;
CONOUT:	PUSH	HL
	PUSH	DE
	PUSH	BC
CON	EQU	$+1
	CALL	0
	POP	BC
	POP	DE
	POP	HL
	RET
	END