MOV	A,D
	ORA	A
	JNZ	PUTC4
	MOV	A,E
	CPI	STDOUT
	JNZ	PUTC1
	PUSH	H
	CALL	PUTCHAR
	POP 	H
	RET
PUTC1:	CPI	STDERR
	JNZ	PUTC2
	PUSH	H
	CALL	PUTCHAR
	POP	H
	RET
PUTC2:	CPI	STDLST
	JNZ	PUTC3
	PUSH	H
	CALL 	PUTLIST
	POP	H
	RET