Sunday, February 7, 2010

30.FIBONACCI SERIES

             MNEMONICS

              MOV    R0,  40
              MOV    R1,#01
              MOV    R2,#01
              MOV    A.#00
              MOV    DPTR,9000
              CJNE    R0,#00,LOOP1
              LJMP    HLT
LOOP1:MOV  X  @DPTR ,A
             INC   DPTR
LOOP2:MOV    R2,A
              ADD  A,R1
              MOV   01,02
              MOV X  @DPTR ,A
              INC   DPTR
              DJNZ   R0,LOOP2
     HLT :LCALL00BB          

32.CONTROL OF DIRECTION OF ROTATION OF STEPPER MOTOR

ADDRESS                  MNEMONICS

9000                       MOV  DPTR,#6003
9003                       MOV  A,#80
9005                       MOV  X @DPTR,A
9006           START:MOV  DPTR,#60000  
9009                       MOV  A,# O4
900B                       MOV  X @ DPTR,A
900C                       LCALL  8900
900F                       MOV  A,06
9011                       MOV  X @ DPTR,A
9012                       LCALL  8900
9015                       MOV  A,07
9017                       MOV  X @DPTR,A
9018                       LCALL 8900
901B                       MOV  A,05
901E                       LCALL  8900
9021                       LJMP  START
                                                    
DELAY:
8900                       MOV R1,#0A
8902                      L2:MOV  A,#40
8904                      L1:NOP
8905                      NOP
8906                      NOP
8907                      NOP
8908                      DEC A  
8909                      JNZ  L1
890B                     DJNZ  R1,L2  
880D                     RET
                

26.16 BIT SUBTRACTION IN MC

ADDRESS              MNEMONICS

8500                        CLR  C
8501                       MOV  A,#DATA1(LSB1)
8503                       SUB  B  A,#DATA(LSB2)
8505                        MOV   DPTR,#8600
8508                       MOV  X @DPTR,A
8509                       MOV  A,DATA 1(MSB1)
850B                       SUB  B  A,#DATA2(MSB2)
850D                      INC  DPTR
850E                       MOV  X @DPTR,A
850F                       SJMP 850F

25.16 BIT ADDITION IN MC

ADDRESS                MNEMONICS

8300                          CLR  C
8301                          MOV  A,#DATA1(LSB1)
8303                          ADD C  A,#DATA2(LSB2)
8305                          MOV DPTR,#8400
8308                          MOV  X@DPTR,A  
8309                          MOV  A,#DATA1(MSB1)
830B                          ADD  C  A,#DATA2(MSB2)
830D                         INC  DPTR
830E                          MOV  X@DPTR,A
830F                          SJMP  830F

24.PROGRAM FOR BLINKING THE GIVEN MESSAGE IN LED

ADDRESS             MNEMONICS

8100                  START:LXI  H,8200
8103                      MVI C,O5
8105                      MVI  A,00
8107                      OUT C2
8109                      MVI  A,CC
810B                      OUT  C2
810D                      MVI  A,90
810F                      OUT  C2
8111                     L1:MOV  A,M
8112                      OUT  CO
8114                      INX  H
8115                      DCR  D
8116                      JNZ  L1
8119                      CALL  8500
811C                     MVI  A,CC
811E                     OUT  C2
8120                      MVI  A,90
8122                      OUT  C2
8123                      MVI  A,FF
8126                      OUT  C0
8127                      OUT  C0
8128                      OUT  C0
8129                      OUT  C0
812A                     OUT  C0
812B                      OUT  C0
812C                      CALL 8500
812F                       DCR  C
8130                       JMP  START
8133                       HLT

DELAY:
8500                        LXI   B,8004
8503                      L2:MVI  D,0F
8505                      L1:NOP
8506                        DCR  D
8507                        JNZ  L1
850A                        DCR  B
850B                        MOV  A,C
850C                        ORA  B
850D                        JNZ  L2
8510                         RET