p-4

 4a


org 0000h 

sjmp 30h

org 30h

start: mov p2,#00h ;Initialize port P2 as O/P port and port P1 as I/P port 

mov p1,#0ffh ;read port P1 as d=P1.0,c=P1.1,b=P1.2,a=P1.3

repeat: jnb p1.3 ,second ;check if variable a=0,if 0 check c and d

 jnb p1.2,second ;check if variable b=0 ,if 0 check c and d

 setb p2.0 ; if a=1,b=1 set o/p z=1 

 sjmp repeat ;if true read port P1i.e next i/p 

second: jb p1.1,false ;check if c=1

 jb p1.0,false ;check if d=1

setb p2.0 ;if c=0,d=0 set o/p z=1

sjmp exit ;repeat for next set of i/p

false: clr p2.0 ;if a=0,b=0,c=1,d=1 clear o/p i.e z=0

exit: sjmp repeat ;read port for the next combination of input

end


4b


org 000h

sjmp 30h

org 30h

mov a,50h ; load to accumulator the BCD number from data memory location

 50h

anl a,#0fh

add a,#30h

mov 61h,a ;store the lower nibble ACSII value in higher address

mov a,50h

anl a,#0f0h

swap a

add a,#30h

mov 60h,a ;store the higher nibble ACSII value in lower address

 here: sjmp here

end

4c

org 000h

 sjmp 30h

 org 30h

 mov a,50h ; load the ASCII number to accumulator from 50h

 cjne a,#40h,label ; check the ASCII number is > 40

label: jc exit 

 clr c

 subb a,#37h ; if > 40 subtract 37h to convert to hex value and save at 51h

 sjmp last

exit : clr c

 subb a,#30h ; else subtract 30h to convert to hex value and save at 51h

 last: mov 51h,a

sjmp $

end


4d


org 000h

sjmp 30h

org 30h

mov a,50h ; load accl the decimal number from 50h

anl a,#0fh

add a,#30h ;mask upper byte

mov 52h,a ; save ASCII value of LS byte of number to 52h

mov a,50h

anl a,#0f0h

swap a

add a,#30h

mov 51h,a ; save ASCII value of MS byte of number to 52h

H:sjmp H

End


4e

org 0000h

sjmp 30h

org 30h

mov a,50h ; load to accul the hexadecimal number from 50h

mov b,#0ah ; load B reg=10

div ab ; divide

mov 61h,b ; save reminder i.e MSdigit2 of decimal number at 61h

mov b,#0ah

div ab ; divide quotient at A register by 10

mov 60h,a ; save quotient at 60h i.e. MSdigit1 of decimal number

mov a,b

swap a

add a,61h

mov 61h,a ; save reminder at 61h i.e LS digit of decimal number

sjmp $

end

4f

org 0000h

sjmp 30h

org 30h

mov r0,# 50h ;pointer to decimal number

mov r2,50h ;save the decimal num at mem.locn to r2 reg

mov a,@r0

anl a,#0f0h ;mask lower nibble of decimal number

swap a ;get upper nibble of decimal number

 mov 0f0h,#10

 mul ab ;multiply ms digit of the decimal num by 10

 mov r3,0f0h ;save upper byte at r3 reg

 mov r4,a ;save lower byte at r4 reg.

 mov a,r2 ;get the decimal num from r2 reg to acc.

 anl a,#0fh ; mask upper nibble of decimal number

 add a,r4 ; add lower byte

 mov 51h,a ; save result at mem.location 51h

 sjmp $

 end


Comments

Post a Comment

Popular posts from this blog

p-3

 3a org 0000h sjmp 30h org 30h mov p1,#00h ;configure p1 as o/p port mov a,#00h back: mov p1,a ;load p1 with initial count acall delay ; give delay between count inc a ;add 01 to increment the count sjmp back  delay: mov r4,#0ffh ;delay between counts repeat: mov r5,#0ffh next: mov r6,#04h l1: nop djnz r6,l1 djnz r5,next djnz r4,repeat ret end 3b org 0000h sjmp 30h org 30h mov p1,#00h ;configure p1 as o/p port mov a,#0ffh back: mov p1,a ;load p1 with initial count acall delay ; delay between count dec a ;subtract 01 to decrement the count sjmp back delay: mov r4,#0ffh ;delay between counts repeat: mov r5,#0ffh next: mov r6,#04h l1: nop djnz r6,l1 djnz r5,next djnz r4,repeat ret end 3c org 0000h sjmp 30h org 30h mov p1,#00h ;configure p1 as o/p port mov a,#00h back: mov p1,a ;load p1 with initial count acall delay ; delay add a,#01 ;add 01 to increment the count  da a sjmp back delay: mov r4,#0ffh ;delay between counts repeat: mov r5,#0ffh next: mov r6,#04h l1: nop djnz r6...
Read more

p-5

 5a org 0000h sjmp 30h org 30h mov a,#34h ACALL double here:sjmp here  double: ADD A,#0E0h LCALL invert ret org 5000h  invert: XRL a,#0ffh ret end 5b org 0000h sjmp start  Start: clr P1.0 ; p1.0=0(low)  back: cpl P1.0 acall delay sjmp back  delay: mov r4,#0e5h ; this count generates a delay of 0.5 ms   here: djnz r4,here  ret  end 5c a). (Generate a delay of 1ms)  org 0000h  Sjmp 30h  org 30h  mov tmod ,#10h ;configure timer 1 in mode 1  clr p1.1 mov th1,#0fch ;this count gives a delay of 1ms.  mov tl1,#66h cpl p1.1  Setb tr1 ; start timer  here: jnb tf1, here clr tf1 clr tr1 clr p1.1  next: sjmp next end (b) Generate a square wave of 2KHz frequency (each delay of 0.25ms) org 0000h Sjmp start  Start: mov tmod ,#20h ;configure timer 1 in mode 2(auto reload)  mov th1,#1ah ;this count gives a delay of 1ms.  clr p1.1  next: cpl p1.1  Setb tr1 ; start timer  here: jnb ...
Read more

p-2

 2a org 0000h  sjmp 30h  org 30h mov r0,#51h ;r0 pointed to internal RAM loc 51h (LS byte of data1) mov r1,#53h ;r1 pointed to internal RAM loc 53h (LSbyte of data2) clr c mov a,@r0 ;perform LS byte addition save the result at 62h location  add a,@r1 dec r0 dec r1 mov 62h,a mov a,@r0 ;perform MS byte addition save the result at 61h loc addc a,@r1 mov 61h,a jnb 0D7h, skip ; JNB 0D7h,target is bit addressable instruction equivalent  to JNC instruction  mov 60h,#01h ; if carry is there after addition save carry at 60h loc  sjmp here skip: mov 60h,#00h here: sjmp here  end 2b org 0000h  sjmp 30h  org 30h mov r0,#51h ;r0 pointed to internal RAM loc 51h (LS byte of data1) mov r1,#53h ;r1 pointed to internal RAM loc 53h (LS byte of data2) clr c mov a,@r0 ;perform LS byte subtraction save the result at 62h location  subb a,@r1 dec r0 dec r1 mov 62h,a mov a,@r0 ;perform MS byte subtraction save the result at 61h loc subb a,@r1 mov 61h,a jnb ...
Read more