Rotating the Bits of Accumulator 'Left', Assembly Language Instruction 'RL', Time Delay 0.125 Second

Rotating the Bits of Accumulator 'Left', Assembly Language Instruction 'RL', Time Delay 0.125 Second

;=================================================================
;Code Written by: Azhar Ahmed
; W W W . I A M T E C H N I C A L . C O M

;Crystal Frequency = 12MHz / 12 Machine Cycles = 1Mhz

;1/1MHz = 1 Microsecond

;(250 x 250 x 2 x 1Microsecond) x 1 time ACALL Delay = 0.125 Second  

;=================================================================
           ORG   0000H    
           MOV A,#80H           ;Load 80H in HEX or 10000000B in Binary to Accumulator
           MOV P1,A                ;Load 80H in HEX or 100000000B in Binary at Port1    
BACK:  RL A                       ;Rotate The Bits of Accumulator Left i.e From Most Significant Bit to Least Significant Bit
                                         ;10000000
                                         ;00000001
                                         ;00000010
                                         ;00000100
                                         ;00001000
                                         ;00010000
                                         ;00100000
                                         ;01000000            
           MOV P1,A                ;Load the Rotated Bits at the Port1

           ACALL DELAY           ;WAIT 0.125 Second

           SJMP BACK              ;Make This Operation to Run Repeatedly
      
DELAY:
           MOV R0,#250          ;Initialize the R0 Register With an Immediate Value 250 
NEXT: 
           MOV R1,#250          ;Load R0 With 250 Value to Repeat the Loop for 250 Times

AGAIN:
      DJNZ R1,AGAIN             ;Internal Loop Repeates 250 Times
      DJNZ R0,NEXT               ;External Loop Repeates 250 Times
      RET                              ;Return to Caller
      END                              ;End of .asm File

;==================================================================