;
; From TM_ELECTRO-SOFT
; 
; desiger : Manish Meshram
;
;  P2 DISPLAY DATA 8 BIT
;  P3.0  SERIAL DATA
;  P3.1  SHIFT CLK
;  P3.2  STORE CLK
;  P3.3  M CLEAR 

; here 595 sh reg are use and delay set according to your hw xtal

DIS_BUS 	EQU    	P2

DATA_BIT 	BIT     	P3.0
CLK		BIT     	P3.2
STCLK		BIT     	P3.1
RESET  		BIT     	P3.3




ORG 000H
LJMP 0020H
	
ORG 0020H

KKKKK:		MOV SP,#040H
		MOV P3,#00000000B
		CLR DATA_BIT		
		
;
PSS:	       	
		MOV  R5,#00h
		MOV DPTR,#0300H
		MOV R4,#095H
		MOV R5,#002h
;******************************************3/4
AA:
NEXT:		MOV R3,#010
;******************************************2
LOOP:		LCALL RESET_ALL
		LCALL PULES	
		MOV R1,#00H
		MOV R0,#00H
;******************************************1
CONTINUE:		LCALL APULES	
		MOV A,R1
		MOVC A,@A+DPTR
		CPL A	
		MOV DIS_BUS,A
		INC R1
		ACALL Dlay5
		MOV DIS_BUS,#0FFH
		NOP
		CJNE R1,#48,CONTINUE
;******************************************1
		DJNZ R3,LOOP
;******************************************2
		INC DPTR
		DJNZ R4,NEXT
;******************************************3
		INC DPTR
		DJNZ R5,AA	
;******************************************4
		SJMP PSS
;******************************************5
APULES:
		SETB CLK
		NOP
		CLR CLK

		NOP

		SETB STCLK
		NOP
		CLR STCLK

		RET

;******************************************5
PULES:
		SETB DATA_BIT
		NOP
		SETB CLK
		NOP
		NOP
		CLR CLK

		NOP

		CLR DATA_BIT

		SETB STCLK
		NOP
		CLR STCLK


		RET
;******************************************

RESET_ALL:	            CLR  RESET
		NOP
		SETB RESET
		RET

;******************************************

DLAY5:   ;  Use R6 and R7 to Delay 5 msecs
 		MOV     R7,#03
DLAY5LOOP:      MOV     R6,#03
DLAY5LOOP1:	DJNZ    R6,DLAY5LOOP1          
  		DJNZ    R7,DLAY5LOOP         
  		RET

;******************************************;******************************************

ORG 0300h

DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H

; from onwards you can fill  msg like below

DB 0FEH,0FFH,03H,06H,0CH,1CH,0CH,06H,03H,0FFH,0FEH    ;W

DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H

END