16 segment Wireless Display

ckt visas i fig

så användaren h 4 dip-switch msg och bläddra

I programmet i keil
Ladda med USB Internet-loader

några frågor
WhatsApp mig
9408492091

pmvanker

mitt program
org 0000h

MOV r5, #30
viktigaste:
akallar Välj
TP2: akallar typ 1
dec r5
djnz r5, tp2
MOV r5, #30
sjmp huvudsakliga

rotatetype:
tp3: akallar typ 1
dec r5
djnz r5, tp3
MOV r5, #30
akallar rotate1
akallar rotate2
JB p3.7, viktigaste
sjmp rotatetype

Välj:
JB p3.4, s1
akallar Välkommen
ret
S1:
JB p3.5, s2
akallar Emelie
S2:
JB p3.6, s3
akallar Ingegerd
S3:
JB p3.7, s4
akallar rotatetype

S4: ret

rotate1:MOV r0, #30 h
MOV r1, #31 h
MOV,
MOV b, en
BK: mov,
MOV
Inc r0
Inc r1
cjne r0, #37 h, bk
MOV a, b
MOV
ret
rotate2:MOV r0, #40 h
MOV r1, #41 h
MOV,
MOV b, en
BK1:MOV en,
MOV
Inc r0
Inc r1
cjne r0, #47 h, bk1
MOV a, b
MOV
ret
typ 1: mov r6, #08
MOV r0, #30 h
MOV r1, #40 h
MOV a, #01
TP1:MOV p0, en
MOV p1,
MOV p2,
akallar sd
RL en
Inc r0
Inc r1
djnz r6, tp1
ret

Välkommen:
MOV 30h, #11101100b
MOV 40h, #11001011b
MOV 31h, #01100110b
MOV 41h, #00110110b
MOV 32h, #11101110b
MOV 42h, #00111111b
MOV 33h, #01101110b
MOV 43h, #00111110b
MOV 34h, #01101110b
MOV 44h, #00011010b
MOV 35h, #11001110b
MOV 45h, #11011001b
MOV 36h, #01100110b
MOV 46h, #00110110b
MOV 37h, #0FFH
MOV 47h, #0FFH
ret

Micke:
MOV 30h, #01100110b
MOV 40h, #11110010b
MOV 31h, #01100110b
MOV 41h, #11100010b
MOV 32h, #01100110b
MOV 42h, #11010010b
MOV 33h, #01100110b
MOV 43h, #11110110b
MOV 34h, #11101110b
MOV 44h, #00011011b
MOV 35h, #11101110b
MOV 45h, #00111111b
MOV 36h, #0ffh
MOV 46h, #0ffh
MOV 37h, #0FFH
MOV 47h, #0FFH
ret

Ingegerd:
MOV 30h, #11101110b
MOV 40h, #00011011b
MOV 31h, #00111011b
MOV 41h, #11111110b
MOV 32h, #01100110b
MOV 42h, #11110010b
MOV 33h, #01100110b
MOV 43h, #11010010b
MOV 34h, #11101110b
MOV 44h, #00111111b
MOV 35h, #0ffh
MOV 45h, #0ffh
MOV 36h, #0ffh
MOV 46h, #0ffh
MOV 37h, #0FFH
MOV 47h, #0FFH
ret

Stanna:
MOV 30h, #01101100b
MOV 40h, #00000000b
MOV 31h, #00111011b
MOV 41h, #11111110b
MOV 32h, #01101110b
MOV 42h, #00011010b
MOV 33h, #01100110b
MOV 43h, #11110010b
MOV 34h, #0ffh
MOV 44h, #0ffh
MOV 35h, #0ffh
MOV 45h, #0ffh
MOV 36h, #0ffh
MOV 46h, #0ffh
MOV 37h, #0FFH
MOV 47h, #0FFH

ret

SD:
MOV r4, #5
SD1:MOV r3, #0ffh
djnz r3 $
djnz r4, sd1
ret
slutet