;Programmanfang

RSEG brand                            ;Aktivierung des CODE-Segments

Init:       mov r1,#00h
            mov p1,#00h
Anfang:     anl adcon,#11110000b
            orl adcon,#00001000b
ADUm:       mov dapr,#00000000b
loop:       jb bsy,loop
            mov r0,addat
            mov p5,addat
Abfrage:    mov a,r0
            anl a,#00110000b
            xrl a,#00110000b
            jz m11
            anl a,#00100000b
            xrl a,#00100000b
            jz m12
            jmp ADUm
m11:        mov r1,#00000001b
            jmp Anzeige
m12:        orl p1,#00000010b
            jmp Anzeige
Anzeige:    mov p1,r1
            jmp Abfrage



;*****************************************************************************
          END                        ;Programmende