Continue to Site

Welcome to EDAboard.com

Welcome to our site! EDAboard.com is an international Electronics Discussion Forum focused on EDA software, circuits, schematics, books, theory, papers, asic, pld, 8051, DSP, Network, RF, Analog Design, PCB, Service Manuals... and a whole lot more! To participate you need to register. Registration is free. Click here to register now.

assembly Code 89S52/74138

Status
Not open for further replies.

Fel

Newbie level 6
Joined
Mar 1, 2010
Messages
12
Helped
0
Reputation
0
Reaction score
0
Trophy points
1,281
Location
Africa
Activity points
1,363
help me develop assembly code that will received ascii charater from PC and save them temperaly in internal RAM then write messages on 5x7 leds, scrolling left to right, right to left up and down.
the components intending to used are 74LS138, and AT89S52. with PNP transistors.
 

Usually people here will help you if you already have something and you have a problem you cannot solve, or they will give you links about similar project.

But asking to do the software for you it's going to be difficult.
 

hey here is that code if you can't
;Program for 5x7 COMMON CATHODE DOT MATRIX DISPLAY


;P1 COL
;P2 ROW

ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:

MOV P1,#00H
MOV P2,#00H
MOV DPTR,#TABLE
LOOP3: MOV R4,#50
LOOP2: MOV R3,#250

LOOP1: MOV R1,#0H
MOV A,#00H
MOV B,#80H
LOOP:
MOVC A,@A+DPTR
CJNE A,#2FH,DO
AJMP MAIN
DO: INC R1
CPL A
MOV P2,A
MOV P1,B
CALL STAY
MOV P2,#0FFH ;row
MOV P1,#0FFH ;col
CALL STAY
MOV A,B
RR A
MOV B,A
MOV A,R1
CJNE R1,#5H,LOOP ;CHECK FOR FIFTH COLOUMN
DJNZ R3,LOOP1
DJNZ R4,LOOP2
INC DPTR
INC DPTR
INC DPTR
INC DPTR
INC DPTR
CALL DELAY
CALL DELAY
AJMP LOOP3




STAY:
MOV R7,#20
ST: NOP
DJNZ R7,ST
RET

DELAY: ;100ms DELAY
SETB PSW.4
MOV R7,#200
HDH:
MOV R6,#100
HD: NOP
NOP
NOP
DJNZ R6,HD
DJNZ R7,HDH
CLR PSW.4
RET






TABLE: ;HEX ARRAY TO DISPLAY CHARACTERS
DB 000H,000H,000H,000H,000H ; 20 space
DB 000H,000H,05fH,000H,000H ; 21 !
DB 000H,007H,000H,007H,000H ; 22 "
DB 014H,07fH,014H,07fH,014H ; 23 #
DB 024H,02aH,07fH,02aH,012H ; 24 $
DB 023H,013H,008H,064H,062H ; 25 %
DB 036H,049H,055H,022H,050H ; 26 &
DB 000H,005H,003H,000H,000H ; 27 '
DB 000H,01cH,022H,041H,000H ; 28 (
DB 000H,041H,022H,01cH,000H ; 29 )
DB 014H,008H,03eH,008H,014H ; 2a *
DB 008H,008H,03eH,008H,008H ; 2b +
DB 000H,050H,030H,000H,000H ; 2c ,
DB 008H,008H,008H,008H,008H ; 2d -
DB 000H,060H,060H,000H,000H ; 2e .
DB 020H,010H,008H,004H,002H ; 2f /
DB 03eH,051H,049H,045H,03eH ; 30 0
DB 000H,042H,07fH,040H,000H ; 31 1
DB 042H,061H,051H,049H,046H ; 32 2
DB 021H,041H,045H,04bH,031H ; 33 3
DB 018H,014H,012H,07fH,010H ; 34 4
DB 027H,045H,045H,045H,039H ; 35 5
DB 03cH,04aH,049H,049H,030H ; 36 6
DB 001H,071H,009H,005H,003H ; 37 7
DB 036H,049H,049H,049H,036H ; 38 8
DB 006H,049H,049H,029H,01eH ; 39 9
DB 000H,036H,036H,000H,000H ; 3a :
DB 000H,056H,036H,000H,000H ; 3b ;
DB 008H,014H,022H,041H,000H ; 3c <
DB 014H,014H,014H,014H,014H ; 3d =
DB 000H,041H,022H,014H,008H ; 3e >
DB 002H,001H,051H,009H,006H ; 3f ?
DB 032H,049H,079H,041H,03eH ; 40 @
DB 07eH,011H,011H,011H,07eH ; 41 A
DB 07fH,049H,049H,049H,036H ; 42 B
DB 03eH,041H,041H,041H,022H ; 43 C
DB 07fH,041H,041H,022H,01cH ; 44 D
DB 07fH,049H,049H,049H,041H ; 45 E
DB 07fH,009H,009H,009H,001H ; 46 F
DB 03eH,041H,049H,049H,07aH ; 47 G
DB 07fH,008H,008H,008H,07fH ; 48 H
DB 000H,041H,07fH,041H,000H ; 49 I
DB 020H,040H,041H,03fH,001H ; 4a J
DB 07fH,008H,014H,022H,041H ; 4b K
DB 07fH,040H,040H,040H,040H ; 4c L
DB 07fH,002H,00cH,002H,07fH ; 4d M
DB 07fH,004H,008H,010H,07fH ; 4e N
DB 03eH,041H,041H,041H,03eH ; 4f O
DB 07fH,009H,009H,009H,006H ; 50 P
DB 03eH,041H,051H,021H,05eH ; 51 Q
DB 07fH,009H,019H,029H,046H ; 52 R
DB 046H,049H,049H,049H,031H ; 53 S
DB 001H,001H,07fH,001H,001H ; 54 T
DB 03fH,040H,040H,040H,03fH ; 55 U
DB 01fH,020H,040H,020H,01fH ; 56 V
DB 03fH,040H,038H,040H,03fH ; 57 W
DB 063H,014H,008H,014H,063H ; 58 X
DB 007H,008H,070H,008H,007H ; 59 Y
DB 061H,051H,049H,045H,043H ; 5a Z
DB 000H,07fH,041H,041H,000H ; 5b [
DB 002H,004H,008H,010H,020H ; 5c Yen Currency Sign
DB 000H,041H,041H,07fH,000H ; 5d ]
DB 004H,002H,001H,002H,004H ; 5e ^
DB 040H,040H,040H,040H,040H ; 5f _
DB 000H,001H,002H,004H,000H ; 60 `
DB 020H,054H,054H,054H,078H ; 61 a
DB 07fH,048H,044H,044H,038H ; 62 b
DB 038H,044H,044H,044H,020H ; 63 c
DB 038H,044H,044H,048H,07fH ; 64 d
DB 038H,054H,054H,054H,018H ; 65 e
DB 008H,07eH,009H,001H,002H ; 66 f
DB 00cH,052H,052H,052H,03eH ; 67 g
DB 07fH,008H,004H,004H,078H ; 68 h
DB 000H,044H,07dH,040H,000H ; 69 i
DB 020H,040H,044H,03dH,000H ; 6a j
DB 07fH,010H,028H,044H,000H ; 6b k
DB 000H,041H,07fH,040H,000H ; 6c l
DB 07cH,004H,018H,004H,078H ; 6d m
DB 07cH,008H,004H,004H,078H ; 6e n
DB 038H,044H,044H,044H,038H ; 6f o
DB 07cH,014H,014H,014H,008H ; 70 p
DB 008H,014H,014H,018H,07cH ; 71 q
DB 07cH,008H,004H,004H,008H ; 72 r
DB 048H,054H,054H,054H,020H ; 73 s
DB 004H,03fH,044H,040H,020H ; 74 t
DB 03cH,040H,040H,020H,07cH ; 75 u
DB 01cH,020H,040H,020H,01cH ; 76 v
DB 03cH,040H,030H,040H,03cH ; 77 w
DB 044H,028H,010H,028H,044H ; 78 x
DB 00cH,050H,050H,050H,03cH ; 79 y
DB 044H,064H,054H,04cH,044H ; 7a z
DB 000H,008H,036H,041H,000H ; 7b <
DB 000H,000H,07fH,000H,000H ; 7c |
DB 000H,041H,036H,008H,000H ; 7d >
DB 010H,008H,008H,010H,008H ; 7e Right ArP2 ->
DB 078H,046H,041H,046H,078H ; 7f Left ArP2 <-
DB 2FH

END

Added after 2 minutes:

this is not what you requested but you can modify these codes according
 
Status
Not open for further replies.

Similar threads

Part and Inventory Search

Welcome to EDABoard.com

Sponsor

Back
Top