Passion for Programming

#include "msp430.h"                     ; #define controlled include file         NAME    main                    ; module name         PUBLIC  main                    ; make the main label vissible                                         ; outside this module         ORG     0FFFEh         DC16    init                    ; set reset vector to 'init' label         RSEG    CSTACK                  ; pre-declaration of segment         RSEG    CODE      ...

#include "msp430.h"                     ; #define controlled include file         NAME    main                    ; module name         PUBLIC  main                    ; make the main label vissible                                         ; outside this module         ORG     0FFFEh         DC16    init                    ; set reset vector to 'init' label         RSEG    CSTACK                  ; pre-declaration of segment         RSEG    CODE      ...

#include "msp430.h"                     ; #define controlled include file         NAME    main                    ; module name         PUBLIC  main                    ; make the main label vissible                                         ; outside this module         ORG     0FFFEh         DC16    init                    ; set reset vector to 'init' label         RSEG    CSTACK                  ; pre-declaration of segment         RSEG    CODE      ...

#include "msp430.h"                     ; #define controlled include file         NAME    main                    ; module name         PUBLIC  main                    ; make the main label vissible                                         ; outside this module         ORG     0FFFEh         DC16    init                    ; set reset vector to 'init' label         RSEG    CSTACK                  ; pre-declaration of segment         RSEG    CODE      ...

Toggle port 1 usning timer  org 00h  mov TMOD,#01h abov: mov P1,#55h  acall delay  mov P1,#0aah  acall delay  sjmp abov delay: mov TH0,#0ffh        mov TL0,#00h   setb TR0   here:jnb TF0,here   clr TF0   ret   end

Toggle P1.5 continuously using timeer 1(50% duty cycle)  org 00h  mov TMOD,#10h up: clr P1.5  acall delay  setb P1.5  acall delay  sjmp up delay: mov TH1,#0ffh  mov TL1,#0ffh  setb TR1 here: jnb TF1,here   clr TF1   ret   end

ALP to convert acii to decimal org 00h mov r0,#30h mov a,@r0  ;note:input only decimal ascii equivalent subb a,#30h  ;operation: input ascii @ 30h, u'll get result @ 31h inc r0 mov @r0,a sjmp $ end

ALP to convert Hex to ASCII org 00h mov r0,#30h mov a,@r0   ;operation: put hexa in 30h , u'll get result in next bytes anl a,#0f0h swap a acall ascii inc r0 mov @r0,a dec r0 mov a,@r0 anl a,#0fh acall ascii inc r0 inc r0 mov @r0,a sjmp $ ascii: cjne a,#0ah,nx    nx: jc skp        add a,#07h skp:   add a,#30h ret end

ALP to convert hex to decimal org 00h mov r0,#30h ;operation:put hexa in 30h ,u'll get decimal in 31H mov a,@r0 mov b,#100 div ab xch a,b mov b,#10 div ab swap a orl a,b inc r0 mov @r0,a sjmp $ end

ALP to convert BCD to hex org 00h mov r0,#30h mov a,@r0 anl a,#0f0h swap a mov b,#10 mul ab mov r1,a mov a,@r0 anl a,#0fh add a,r1 inc r0 mov @r0,a sjmp $ end  

Add even and odd numbers mov dph,#10h mov r2,#00   ;lower byte ,source pointer mov r6,#7 ; number of bytes in the source address up:mov dpl,r2 movx a,@dptr jb acc.0,odd add a,50h mov 50h,a   ;sum of odd numbers in 50h sjmp lst odd: add a,54h      mov 54h,a ;sum of even numbers in 54h lst:inc r2   djnz r6,up sjmp $ end

Even(5000h) and odd numbers(6000h) --from 1000h mov r0,#00 mov r1,#00 mov r2,#00   ;lower byte ,source pointer mov r6,#7 ; number of bytes in the source address mov r3,#50h mov r4,#60h mov r5,#10h up:mov dpl,r2 mov dph,r5 movx a,@dptr jb acc.0,odd mov dpl,r1 mov dph,r3 movx @dptr,a inc r1 sjmp lst odd: mov dpl,r0      mov dph,r4 movx @dptr,a inc r0 lst:inc r2   djnz r6,up sjmp $ end

Generation of Fibonacci series org 00h mov r2,#5  ;count of numbers generated from 1 mov 40h,#0 mov 41h,#01 mov r0,#40h mov r1,#41h up:mov a,@r0 add a,@r1 inc r1 inc r0 mov @r1,a djnz r2,up  ;numbers will be seen from 40h sjmp $ end

compare n1 and n2 if n1<n2 set lsb of 2F,n1>n2 set msb of 2F,n1=n2 clear both org 00h mov r0,#40h mov a,@r0 ;n1 in a inc r0 mov b,@r0 ;n2 in b cjne a,b,nxt  clr 7fh  clr 78h  sjmp last nxt: jc slsb    setb 7fh    clr 78h slsb:clr 7fh      setb 78h   last:sjmp last  end

Decimal up counter  org 00h clr a up:inc a  da a  acall delay  sjmp up delay: mov r0,#0ffh      h2:mov r1,#020h h1:mov r2,#0ffh  h:djnz r2,h   djnz r1,h1   djnz r0,h2   ret   end

Hexa decimal up counter org 00h mov a,#00 up: inc a  acall delay  sjmp up delay: mov r0,#0ffh         l:mov r1,#020h   lp:mov r2,#0ffh   h:djnz r2,h   djnz r1,lp   djnz r0,l ret end

org 00h mov r0,#42h mov r1,#44h mov a,@r0 mov b,@r1 mul ab mov r2,a mov r3,b  ;result 1 in r2 and r3 dec r0 mov a,@r0 mov b,@r1 mul ab mov r4,a mov r5,b  ;result 2 in r4 and r5 inc r0 dec r1 mov a,@r0 mov b,@r1 mul ab mov r6,a mov r7,b ;result 3 dec r0 mov a,@r0 mov b,@r1 mul ab  ;result 4 mov 50h,a mov 51h,b mov 63h,r2 mov a,r3 add a,r4 mov 62h,a mov a,r5 addc a,#00 mov 61h,a mov a,63h mov 73h,a mov a,r6 add a,62h mov 72h,a mov a,r7 add a,50h mov 64h,a mov a,51h addc a,#00h mov 51h,a mov a,61h add a,64h mov 71h,a mov 70h,51h sjmp $ end

org 00h mov r0,#40h mov a,@r0 mov r1,a inc r0 mov a,@r0 mov b,a inc r0 mov a,@r0 ; second number is in a cjne r1,#00,n1  add a,b  jnc sk  mov b,#1 sk:mov b,#0h sjmp las n1:cjne r1,#01,n2  add a,b  sjmp las n2:cjne r1,#02,n3 mul ab  sjmp las n3:cjne r1,#03,n4  div ab  sjmp las n4:mov a,#00h  mov b,#00h las:mov 43h,a     mov 44h,b sjmp $ end

org 00h mov r0,#40h mov a,@r0 mov r1,a inc r0 mov a,@r0 mov b,a inc r0 mov a,@r0 ; second number is in a cjne r1,#00,n1  add a,b  jnc sk  mov b,#1 sk:mov b,#0h sjmp las n1:cjne r1,#01,n2  orl a,b  sjmp las n2:cjne r1,#02,n3  xrl a,b  sjmp las n3:mov a,#00h  mov b,#00h las:mov 43h,a     mov 44h,b sjmp $ end

org 00h mov r0,#40h mov a,@r0 mov b,a mul ab mov r1,b mov b,@r0 mul ab mov 50h,a mov 51h,b mov b,@r0 mov a,r1 mul ab add a,51h mov 51h,a sjmp $ end

org 0h mov r0,#40h mov r1,#42h mov a,@r0 subb a,@r1 mov r2,a inc r0 inc r1 mov a,@r0 subb a,@r1 inc r1 mov @r1,a mov a,r2 inc r1 mov @r1,a ;result in 44h onwards sjmp $

org 0h mov r0,#40h mov r1,#42h mov a,@r0 inc r0 add a,@r1 mov r2,a mov a,@r0 inc r1 addc a,@r1 inc r1 mov r3,a mov a,r2 mov @r1,a inc r1 mov a,r3 mov @r1,a ;result is from location 44h onwards sjmp $ end

org 0h mov r3,#5 mov dptr,#8000h mov r0,#60h mov r1,#70h up:mov dpl,r0 movx a,@dptr mov b,a mov dpl,r1 movx a,@dptr mov r2,a mov a,b movx @dptr,a mov dpl,r0 mov a,r2 movx @dptr,a inc r0 inc r1 djnz r3,up sjmp $ end

org 0h mov r3,#5 up1:mov dptr,#2000h mov r2,#4 up:mov r0,dpl movx a,@dptr inc dptr mov b,a movx a,@dptr cjne a,b,n n:jnc skp mov dpl,r0 movx @dptr,a inc dptr mov a,b movx @dptr,a skp:djnz r2,up     djnz r3,up1 sjmp $ end

org 000h mov r0,#40h mov r2,#5 ; count of number of elements in an array mov b,#00h up:mov a,@r0 cjne a,b,n n:jc skp  mov b,a  inc r0 skp: djnz r2,up ; largest nuber will be in register b sjmp $ end

org 0h mov r0,#30h mov a,@r0 mov r1,#00h mov r1,#6 up:inc r3 subb a,r1 jc last mov r2,a mov b,#2 mov a,r1 mul ab mov r1,a mov a,r2 sjmp up last:mov 40h,r3 sjmp $ end

org 0h mov r0,#60h mov r1,#70h mov r2,#7 up: mov a,@r0 mov b,a mov a,@r1 mov @r1,b mov @r0,a inc r0 inc r1 djnz r2,up sjmp $ end

org 0h  mov r0,#30h  mov dptr,#8000h  mov r1,#5 up: mov a,@r0  movx @dptr,a  inc r0  inc dptr  djnz r1,up  sjmp $  end

org 80h loc:DB 01h,02h,03h,04h,05h,06h,08h org 000h mov dptr,#loc mov r1,#20h mov r2,#7h up:clr a movc a,@a+dptr mov  @r1,a inc dptr inc r1 djnz r2,up sjmp $ end