;Sven Eisenhauer
;MPS1 Versuch 3 Aufgabe 2
;14.06.2005

LSTOUT-
$SFR80515.INC
LSTOUT+

ORG 0000h

SETB P1.0
MOV DPTR,#0F803h
MOV A,#92h
MOVX @DPTR,A
MOV DPTR,#0F802h

MOV A,#00h
MOVX @DPTR,A
MOV P5,#00h
MOV R5,#00h

WARTE: JNB P1.0,WARTE
INC R5

LCALL PORTS
SJMP WARTE

PORTS:  MOV A,R5
	CJNE A,#0FFh,CARRY
CARRY: JC HIGHBYTE
	MOV P5,R5
	RET
HIGHBYTE: MOV A,R5
	MOVX @DPTR,A
	RET

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

END