$include (reg51.inc) ;Vitali Urich Programm: Schleife_2104 MOV P3, #00h MOV P2, #00h Start: MOV R0, #00h MOV R1, #00h MOV R2, #00h MOV R3, #00h MOV R4, #00h MOV R5, #00h Loop1: JNB P3.5, Label3 DJNZ R3, Label2 DJNZ R4, Label1 DEC R5 SJMP, schl Label4: NOP NOP Label3: NOP NOP Label2: NOP NOP Label1: NOP NOP schl: DJNZ R0, Loop1 DJNZ R1, Loop1 DJNZ R2, Loop1 MOV A, R3 MOV P2, A SJMP, Start end