星际战甲闪退怎么办:请问串行扩展ram24c02的用法
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/04 15:11:33
0分的啊,程序在此,自己研究吧
ORG 0000 ; EXPIO.ASM
AJMP MAIN ; FOR EXPANDING
ORG 0030H ; 8155
MAIN: MOV SP,#60H
MOV 30H,#0FFH
MOV 31H,#0FFH
MOV 32H,#0FFH
ACALL DISP
MOV DPTR,#9F00H
MOV R7,#64H
MOV A,#00H
LOOP1: MOVX @DPTR,A ; PUT DATA IN
ADD A,#01H ; 8155'RAM
DA A
INC DPTR
DJNZ R7,LOOP1
LOOP: MOV R7,#64H
MOV DPTR,#9F00H
LOOP2: MOVX A,@DPTR ; GET DATA FROM
MOV 30H,A ; 8155'RAM
PUSH DPH
PUSH DPL
ACALL DISP ; SEND TO DISPLAY
MOV R2,#21H ; INCREASLY
ACALL DLY
POP DPL
POP DPH
INC DPTR
DJNZ R7,LOOP2
MOV R2,#31H
ACALL DLY
MOV 30H,#0FFH
ACALL DISP
MOV R7,#64H
MOV DPTR,#9F63H
LOOP3: MOVX A,@DPTR
MOV 32H,A
PUSH DPH
PUSH DPL
ACALL DISP ; SEND TO DISPLAY
MOV R2,#21H ; DECREASLY
ACALL DLY
POP DPL
POP DPH
MOV A,DPL ; DECREASE DPTR
DEC A
MOV DPL,A
DJNZ R7,LOOP3
MOV R2,#31H
ACALL DLY
MOV 32H,#0FFH
ACALL DISP
AJMP LOOP
DISP: MOV A,32H
MOV DPTR,#0DFFFH
MOVX @DPTR,A
MOV A,31H
MOV DPTR,#0EFFFH
MOVX @DPTR,A
MOV A,30H
MOV DPTR,#0FFFFH
MOVX @DPTR,A
MOV R2,#7
ACALL DLY
RET
DLY: PUSH 2H
D1: PUSH 2H
D2: PUSH 2H
DJNZ R2,$
POP 2H
DJNZ R2,D2
POP 2H
DJNZ R2,D1
POP 2H
DJNZ R2,DLY
RET
END