;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: JNB P1.3,OUTPUT
JNB P1.0,READ
SJMP START

READ: MOV A,P4
      MOVX @DPTR,A
      INC DPTR
      LCALL SENDSE
      MOV A,#00h
      MOVX @DPTR,A
LOOP: JNB P1.0,LOOP
      SJMP START

OUTPUT: MOV DPTR,#1000h
OUTPUT2: MOVX A,@DPTR
	INC DPTR
	LCALL SENDSE
	MOVX A,@DPTR
	CJNE A,#00h,OUTPUT2
	LJMP 8000h

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

END