;Sven Eisenhauer
;MPS1 Versuch 3 Aufgabe 1
;14.06.2005

LSTOUT-
$SFR80515.INC
LSTOUT+

ORG 0000h

SETB P1.0
SETB P1.3
MOV DPTR,#1000h

START: JB P1.3,OUTPUT
JNB P1.0,START

MOV A,P4
MOVX @DPTR,A
INC DPL
LCALL SENDSE

SJMP START

OUTPUT: MOV DPTR,#1000h
	MOVX A,@DPTR
	LCALL SENDSE
	INC DPL
	CJNE DPL,#0FFh,OUTPUT
	LJMP 8000h

SENDSE: MOV SBUF,A
	CLR TI
WARTE: JNB TI, WARTE
	RET

END