Keyboard Abfrage funzt nicht

abend,

hab ein große komsiches problem bin nun verdammt neu darin (MC) und ich
wollte bei meinem LCS-Modular mit der Key-Unti einen code eintippen
lassen nähmlich 12 wenn dieser richtig is soll die erste led laden an
Port1 wenn falsch soll die erste ausgehen und die 2te laden nunja ich
habs verzweifelt probiert jedoch leuchtet bei mir immer die erste kann
mir da jemand helfen bei soetwas ..die materie vertseh ich leider auch
noch nicht ganz (troz unzähliger tuts darüber)..danke im vorraus :)

hier mal mein assembler script:

1

2

CPU 80515

3

INCLUDE STDDEF51

4

SEGMENT CODE

5

ORG 000H

6

7

8

MAIN:

9

  MOV P1,#0FFH;quell pins auf input setzen

10

  MOV P4,#1111100B;ziel pins auf 0 setzen!

11

RCHECK:

12

  JNB P4.0,ALARM

13

  JNB P4.1,GOOPEN

14

  JNB P4.2,ALARM

15

16

  JMP RCHECK

17

18

GOOPEN:

19

 JNB P4.1,GOOPEN

20

21

RCHECK2:

22

 JNB P4.0,ALARM

23

 JNB P4.1,ALARM

24

 JNB P4.2,AKTION

25

26

 JMP RCHECK2

27

28

AKTION:

29

 CPL P1.7

30

 JMP ENDE

31

32

ALARM:

33

  CPL P1.6

34

35

ENDE:

36

  JMP ENDE

37

END

hoffe ihr könnt mir helfen :)