8051 Matrixtastatur

$nomod51 nosb
$nolist
$include(reg515.inc)
$list

org 0000h
MOV P4, #11111111b
JMP start

start:
    MOV P5, #11111111b
    CLR P5.0
    JNB P5.4, show1
    JNB P5.5, show2
    JNB P5.6, show3
    SETB P5.0

    CLR P5.1
    JNB P5.4, show4
    JNB P5.5, show5
    JNB P5.6, show6
    SETB P5.1

    CLR P5.2
    JNB P5.4, show7
    JNB P5.5, show8
    JNB P5.6, show9
    SETB P5.2

    CLR P5.3
    JNB P5.4, showclear
    JNB P5.5, show0
    JNB P5.6, showh
    SETB P5.3

    JMP start


show1:
    MOV P4, #11111001b
    JMP start

show2:
    MOV P4, #10100100b
    JMP start

show3:
    MOV P4, #10110000b
    JMP start

show4:
    MOV P4, #10011001b
    JMP start

show5:
    MOV P4, #10010010b
    JMP start

show6:
    MOV P4, #10000010b
    JMP start

show7:
    MOV P4, #11111000b
    JMP start

show8:
    MOV P4, #10000000b
    JMP start

show9:
    MOV P4, #10010000b
    JMP start

showclear: ; bei '*' ausgewählt wird die anzeige gecleart
    MOV P4, #11111111b
    JMP start

show0:
    MOV P4, #11000000b
    JMP start

showh: ; bei '#' wird ein H ausgegeben
    MOV P4, #10001001b
    JMP start

END