16 Segment Wireless Display

it's simple predefined msg scrolling project

ckt is shown In fig

so user h 4 dip switch to set msg and scroll

I program in keil
load by USB ISP loader

any questions
WhatsApp me
9408492091

pmvanker@gmail.com

my program
org 0000h

mov r5,#30
main:
acall select
tp2: acall type1
dec r5
djnz r5,tp2
mov r5,#30
sjmp main

rotatetype:
tp3: acall type1
dec r5
djnz r5,tp3
mov r5,#30
acall rotate1
acall rotate2
jb p3.7,main
sjmp rotatetype

select:
jb p3.4,s1
acall welcome
ret
s1:
jb p3.5,s2
acall praful
s2:
jb p3.6,s3
acall utpal
s3:
jb p3.7,s4
acall rotatetype

s4:ret




rotate1:mov r0,#30h
mov r1,#31h
mov a,@r0
mov b,a
bk: mov a,@r1
mov @r0,a
inc r0
inc r1
cjne r0,#37h,bk
mov a,b
mov @r0,a
ret
rotate2:mov r0,#40h
mov r1,#41h
mov a,@r0
mov b,a
bk1:mov a,@r1
mov @r0,a
inc r0
inc r1
cjne r0,#47h,bk1
mov a,b
mov @r0,a
ret
type1: mov r6,#08
mov r0,#30h
mov r1,#40h
mov a,#01
tp1:mov p0,a
mov p1,@r0
mov p2,@r1
acall sd
rl a
inc r0
inc r1
djnz r6,tp1
ret

Welcome:
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

Praful:
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

utpal:
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

stop:
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
end