51单片机课程设计 俄罗斯方块

单片机课程设计俄罗斯方块学院：工程技术学院专业：08级电子科学与技术小组成员：何冠羲，马志祥，李洋，张世刚，叶彪，郑先安，洪之目录摘要引言1．程序整体思路2．8X8LED模块显示原理3．硬件电路仿真图4．图形显示5．消层算法6．旋转算法7．实物焊接8．心得体会附录程序代码摘要记得在很小的时候，有一种掌上游戏机，里面有一款游戏叫做俄罗斯方块，那时的我们只是简单的按照游戏规则进行“堆积木”，而其中的原理却很少有人去思考，毕竟当时的我们都还很年幼。

基于单片机课程设计的机会，我们这个小组将使用51单片机和8x8led的组合，来实现比较简单的俄罗斯方块设计。

此次设计初期是在keil和proteus联合仿真中进行，编程语言为51汇编，后期是进行实物焊接。

论文描述了俄罗斯方块的主要功能函数的实现，算法分析和实物焊接过程中遇到的问题。

关键词：俄罗斯方块；算法； 8X8led；引言游戏是人们活动中一项非常重要的内容，有人认为如果哪一天人类对所有的游戏都失去兴趣，恐怕世界的末日就要到了。

电脑对游戏的贡献有目共睹，现在摸过电脑的人很少有没玩过电脑游戏的，喜欢游戏的人也很少有不玩电脑的。

俄罗斯方块是一款风靡全球的电视游戏机和掌上游戏机游戏，它曾经造成的轰动与造成的经济价值可以说是游戏史上的一件大事。

这款游戏最初是由苏联的游戏制作人Alex Pajitnov制作的，它看似简单但却变化无穷，令人上瘾。

相信大多数用户都还记得为它痴迷得茶不思饭不想的那个俄罗斯方块时代。

究其历史，俄罗斯方块最早还是出现在PC机上，而我国的用户都是通过红白机了解、喜欢上它的。

现在联众又将重新掀起这股让人沉迷的俄罗斯方块风潮。

对一般用户来说，它的规则简单，容易上手，且游戏过程变化无穷，而在"联众俄罗斯方块"中，更有一些联众网络游戏所独有的魅力――有单机作战与两人在线对战两种模式，用户可任选一种进行游戏。

网络模式还增加了积分制，使用户既能感受到游戏中的乐趣，也给用户提供了一个展现自己高超技艺的场所。

俄罗斯方块游戏可以说是随计算机的发展而发展，并不断推陈出新演变出各种类似游戏, 深受广大玩家喜爱。

这个游戏有的简单, 有的复杂, 但其根本原理是一样的都是对运动的方块进行组合, 来训练玩家的反应能力。

本文利用单片机进行俄罗斯方块设计，采用51汇编语言进行编程,基于汇编语言的原因是在编写程序的过程中，对于程序的执行会有一个比较直观的表现。

1.程序整体思路单片机上的程序设计一般是一个大循环结构，对于俄罗斯方块的程序设计，首先产生一个伪随机数，其范围是0-6，然后程序根据此数值所对应的图形模块装入ram的固定区域内，紧接着将此图像写入led所对应的显示缓冲区中，显示程序将缓冲区内的内容显示在led上，如果没有控制键按下，图形将自动向下移动。

如果有键按下，程序将根据按下的键来改变图形存储区的值，同时程序将判断图形是否已到达边界，当图形最上层到达显示区顶部，则游戏结束，此时将清楚显示缓冲的内容，游戏重新开始。

2．8x8led显示原理8x8led显示屏的原理图如下由于人眼的视觉暂留现象，通过逐行扫描显示的方式来显示要显示的内容，当每一行扫描的时间很小时人眼观察的将是一幅完整的图像。

3．硬件电路仿真图.4．图形显示8x8led一共有64个led，可以从下至上一次对其编号，对于显示类的基本操作是任意点亮一个点，熄灭一个点，任意点亮n（0<n<=64）个点，灭掉n个点，如此一来游戏的第一个关键点就完成了。

我们将ram中从21h单元到28h单元作为led的显示缓冲区，这里面的每一位对应led 的一个点，led将实时显示缓冲区的内容，也就是当此缓冲区内容一改变，led上看到的也会做出相应的改变。

同时在俄罗斯方块中那些方块被存放在一个类似于一维的数组之中，每一个方块对应四个小方块，根据伪随机数将这四个小方块对应的值装入ram固定的区域内。

如果要显示方块只需将这些方块所对应的点写入缓冲区。

5．消层算法设置循环变量数R2=8，即总共至少要扫描8次，每一次循环过程中检测此行是否已满，也就是检测这一行所对应的存储单元是否全为一，如果全为一则将消去此行，即将此行对应的ram清零。

同时将此行上面ram的内容按每列依次下移，下移完之后重新将R2=0，又从第一行开始检测。

此行不全为零时只需将R2=R2+1。

直到R2=9消层过程结束。

6．旋转算法首先要确定一个旋转中心，假如旋转中心的编号是34，将34除以8，商是4存入R1余数是2存入R2，及时用商和余数建立坐标系。

此时若以此为旋转中心的图形需要旋转，则将每一个小方块对应编号除以8，商减去R1，余数减去R2，而每一个方块一次将旋转90度，所以有公式x1,y1,x2,y2 x2= - y1,y2= x1其中x1，y1为旋转之前的坐标，x2,y2为旋转之后的坐标。

旋转完之后将x2加上R1将y2加上R2，然后将x2乘以8再加上y2。

执行四次此过程旋转结束。

7．实物焊接器件：stc51单片机一块，8x8led显示模块一块，电阻10k10个，开关5个，与门，12m 晶振一个，电容3个。

首先按照目的进行进行元器件布局，然后按照电路图里的导线的连接次序将元器件焊在电路板上，焊好之后进行调试。

8．心得体会写程序的过程中，首先应该把程序思路理清，然后再写代码，否则写到一半感觉行不通时是很令人心烦的。

还有就是焊接是一个技术活，因为在电子工艺实习之后大家便没有碰过电烙铁，所以焊的过程还是很辛苦的。

附录：程序代码ORG 0000HAJMP STARTORG 0003HAJMP INTERRUPTAA EQU 10000000BBB EQU 11111111BHANG EQU 32HLIE EQU 33HCOUNT EQU 34HREMOVEROW EQU 35HSTEPS EQU 36HXUNHUAN EQU 37HBIANLIANG EQU 38HGRAPHRAM1 EQU 39HGRAPHRAM2 EQU 40HGRAPHRAM3 EQU 41HGRAPHRAM4 EQU 42HXXX EQU 43HYYY EQU 44HKEY EQU 45HLEDHEAD EQU 21HTEST BIT 100BITS BIT 99RIGHT BIT 98LEFT BIT 97DOWN BIT 96HARD BIT 95TURN BIT 94KEYDOWN BIT 93TESTING BIT 92BOTTOM BIT 91 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;程序由此处开始执行;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;START:MOV TCON,#00000001B;;;;;;;;;;;;;设置外部中断0响应方式为下降沿触发SETB EX0SETB EAMOV SP,#60H;;;;;;;;;;;;;;;;;;;;;将堆栈指针SP设置在RAM的高地址处MOV R7,#6;;;;;;;;;;;;;;;;;;;;;;R7作为存放0-6这7个随机数的变量MOV P0,#11111111B;;;;;;;;;;;;;;;;;;;;;;将P0口最为输入口LCALL WRITEGRAPHTORAMCLR TESTINGGAMELOOP:;CLR EALCALL SHOWGRAPHMOV R6,#30TIMING:LCALL SHOWLEDRAMLCALL DELAYDJNZ R6,TIMINGLCALL DOWNTESTJNB DOWN,NEXT1ABCD:MOV A,28HCJNE A,#0,GAMEOVERLCALL REMOVEBLOCKLCALL WRITEGRAPHTORAMJMP GAMELOOPNEXT1:;JB KEYDOWN,KEY1JMP KEY4KEY1:CLR TESTINGCLR KEYDOWNMOV A,KEYCJNE A,#1,KEY2;1-LEFTLCALL LEFTTESTJB LEFT, KEY4LCALL CLEANGRAPHLCALL MOVELEFTLCALL GAMELOOPKEY2:CJNE A,#2,KEY3;2-RIGHTLCALL RIGHTTESTJB RIGHT, KEY4LCALL CLEANGRAPHLCALL MOVERIGHTLCALL GAMELOOPKEY3:CJNE A,#4,KEY4;4-ROTATE;LCALL ROTATIONTEST;JNB TURN, KEY4LCALL CLEANGRAPH LCALL ROTA TIONJMP GAMELOOPKEY4:CJNE A,#8,KEY5 SWEAT:LCALL DOWNTESTJB DOWN,GAMELOOP LCALL CLEANGRAPH LCALL MOVEDOWNJMP SWEATKEY5:LCALL CLEANGRAPH LCALL MOVEDOWNINC R7CJNE R7,#7,NEXT5MOV R7,#0NEXT5:JMP GAMELOOP GAMEOVER:MOV R0,#8MOV R1,#LEDHEAD CLEAR:LCALL CLEANGRAPH MOV @R1,#0INC R1DJNZ R0,CLEARMOV R0,#4MOV R1,#GRAPHRAM1 ASDF:MOV A,@R1ADD A,#16MOV @R1,AINC R1DJNZ R0,ASDFJMP GAMELOOP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;测试图形是否能向下移动;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DOWNTEST:PUSH 0PUSH 1PUSH 2PUSH 3PUSH BPUSH ACCMOV R2,#4MOV R0,#GRAPHRAM1DOWN0:MOV A,@R0SUBB A,#8MOV B,AMOV R3,#4CLR CMOV R1,#GRAPHRAM1DOWN2:CLR CSUBB A,@R1JZ DOWN1INC R1MOV A,BDJNZ R3,DOWN2LCALL TESTBITJB BITS,DOWN3DOWN1:INC R0DJNZ R2,DOWN0CLR DOWNJMP HOPEDOWN3:SETB DOWN;DOWN WEI YI BIAO SHI BU NENG W ANG XIA YI DONG CPL P3.4JMP DOWN4HOPE:MOV R2,#4MOV R0,#GRAPHRAM1YOUQIANG2:MOV R3,#1CCC2:MOV A,R3MOV B,ACLR CSUBB A,@R0JNZ CCC1SETB DOWNSETB BOTTOMJMP DOWN4CCC1:MOV A,BINC R3CJNE R3,#9,CCC2INC R0DJNZ R2,YOUQIANG2 DOWN4:POP ACCPOP BPOP 3POP 2POP 1POP 0RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;外部中断0中断处理程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; INTERRUPT:PUSH 0PUSH 1PUSH ACCINC R7CJNE R7,#7,INTT MOV R7,#0 INTT:SETB TESTING SETB KEYDOWN MOV A,P0CPL AMOV KEY,APOP ACCPOP 1POP 0RETI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;测试能否旋转;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;向下移动;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MOVEDOWN:PUSH 0PUSH 1PUSH ACCMOV R0,#GRAPHRAM1 MOV R1,#4MOVE1:MOV A,@R0CLR CSUBB A,#8MOV @R0,AINC R0DJNZ R1,MOVE1POP ACCPOP 1POP 0RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;向左移动;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MOVELEFT:PUSH 0PUSH 1PUSH ACCMOV R0,#GRAPHRAM1 MOV R1,#4MOVE2:MOV A,@R0CLR CSUBB A,#1MOV @R0,AINC R0DJNZ R1,MOVE2POP ACCPOP 1POP 0RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;向右移动;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MOVERIGHT:PUSH 0PUSH 1PUSH ACCMOV R0,#GRAPHRAM1 MOV R1,#4MOVE3:MOV A,@R0CLR CINC AMOV @R0,AINC R0DJNZ R1,MOVE3 POP ACCPOP 1POP 0RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;将图形写入RAM缓存中;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WRITEGRAPHTORAM:PUSH ACCPUSH BPUSH 0PUSH 1PUSH 2PUSH 7MOV R1,#4MOV A,R7MOV B,#4MUL ABMOV R2,AMOV R0,#GRAPHRAM1 MOV DPTR,#GRAPH WRITEGRAPH:MOV A,R2MOVC A,@A+DPTR;SUBB A,#16MOV @R0,AINC R2INC R0DJNZ R1,WRITEGRAPH POP 7POP 2POP 1POP 0POP BPOP ACCRET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;测试某一个二进制位是否为1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TESTBIT:PUSH 0PUSH 1PUSH BPUSH ACCMOV B,#8DIV ABMOV R0,AMOV A,BCJNE A,#0,TEST3 MOV A,R0DEC AJMP TEST4TEST3:MOV A,R0TEST4:MOV DPTR,#TAB1MOV R1,#LEDHEAD ADD A,R1MOV R1,AMOV A,BMOVC A,@A+DPTR ANL A,@R1CJNE A,#0,TEST1 CLR BITSJMP TEST2TEST1:SETB BITSTEST2:POP ACCPOP BPOP 1POP 0RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;测试图形是否能向左移动;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;LEFTTEST:PUSH 0PUSH 1PUSH 2PUSH 3PUSH BPUSH ACCMOV R2,#4MOV R0,#GRAPHRAM1LEFT0:MOV A,@R0CLR CSUBB A,#1MOV B,AMOV R3,#4;CLR CMOV R1,#GRAPHRAM1LEFT2:CLR CSUBB A,@R1JZ LEFT1INC R1MOV A,BDJNZ R3,LEFT2LCALL TESTBITJB BITS,LEFT3LEFT1:INC R0DJNZ R2,LEFT0CLR LEFTJMP LEFT4LEFT3:SETB LEFT;DOWN WEI YI BIAO SHI BU NENG W ANG XIA YI DONG CPL P3.4JMP LEFT5LEFT4:MOV R2,#4MOV R0,#GRAPHRAM1YOUQIANG:MOV R3,#9MOV A,#1HHH2:MOV B,ACLR CSUBB A,@R0JNZ HHH1SETB LEFTJMP LEFT5HHH1:MOV A,BADD A,#8DJNZ R3,HHH2INC R0DJNZ R2,YOUQIANG LEFT5:POP ACCPOP BPOP 3POP 2POP 1POP 0RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;测试图形是否能向右移动;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; RIGHTTEST:PUSH 0PUSH 1PUSH 2PUSH 3PUSH BPUSH ACCMOV R2,#4MOV R0,#GRAPHRAM1 RIGHT0:MOV A,@R0ADD A,#1MOV B,AMOV R3,#4;CLR CMOV R1,#GRAPHRAM1 RIGHT2:SUBB A,@R1JZ RIGHT1INC R1MOV A,BDJNZ R3,RIGHT2LCALL TESTBITJB BITS,RIGHT3RIGHT1:INC R0DJNZ R2,RIGHT0CLR RIGHTJMP RIGHT4RIGHT3:SETB RIGHT;DOWN WEI YI BIAO SHI BU NENG W ANG XIA YI DONG CPL P3.4JMP RIGHT5RIGHT4:MOV R2,#4MOV R0,#GRAPHRAM1YOUQIANG1:MOV R3,#8MOV A,#8III2:MOV B,ACLR CSUBB A,@R0JNZ III1SETB RIGHTJMP RIGHT5III1:MOV A,BADD A,#8DJNZ R3,III2INC R0DJNZ R2,YOUQIANG1RIGHT5:POP ACCPOP BPOP 3POP 2POP 1POP 0RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;图形旋转;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ROTA TION:PUSH 0PUSH 1PUSH 2PUSH 3PUSH BPUSH ACCMOV A,GRAPHRAM1 ;A=50 MOV B,#8DIV AB ;A=6 B= 2 MOV HANG,A ;HANG = 6 MOV LIE,B ;LIE = 2 MOV R3,#4MOV R0,#GRAPHRAM1 ROTA TESTART:MOV A,@R0MOV B,#8DIV ABCLR CSUBB A,HANGMOV R1,AMOV A,BCLR CSUBB A,LIEMOV R2,A ;;;;;;;;;;;;;;;;;;X2=-Y1 Y2=X1MOV A,#0CLR CSUBB A,R2 ;-Y1MOV B,R1 ;X1MOV R1,A ;X2=-Y1MOV R2,B ;Y2=X1MOV A,R1ADD A,HANGMOV R1,AMOV A,R2ADD A,LIEMOV R2,AMOV A,R1MOV B,#8MUL ABADD A,R2MOV @R0,AINC R0DJNZ R3,ROTA TESTART POP ACCPOP BPOP 3POP 2POP 1POP 0RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;显示LEDRAM中的内容;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SHOWLEDRAM:PUSH 0PUSH 1PUSH BPUSH ACCMOV R0,#LEDHEAD MOV R1,#8MOV A,#AASHOW1:MOV P1,AMOV P2,@R0LCALL DELAYINC R0RL ADJNZ R1,SHOW1POP ACCPOP BPOP 1POP 0RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;软件延时;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DELAY:PUSH 1PUSH 2MOV R1,#5FQFQ:MOV R2,#200DJNZ R2,FWFWDJNZ R1,FQFQPOP 2POP 1RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;清楚图形在LEDRAM中的内容;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CLEANGRAPH:PUSH ACCPUSH 1MOV A,#GRAPHRAM1 MOV XUNHUAN,#4 MOV R1,ADADA1:MOV A,@R1;SUBB A,#16LCALL WRITEPOINT0 INC R1DJNZ XUNHUAN,DADA1 POP 1POP ACCRET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;显示图形在LEDRAM中的内容;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SHOWGRAPH:PUSH ACCPUSH 1MOV A,#GRAPHRAM1 MOV XUNHUAN,#4 MOV R1,ADADA2:MOV A,@R1;SUBB A,#16LCALL WRITEPOINT1 INC R1DJNZ XUNHUAN,DADA2 POP 1POP ACC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;消除已经填满的行;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; REMOVEBLOCK:PUSH 0PUSH 1PUSH BPUSH ACC REMOVESTART:MOV R0,#1MOV R1,#LEDHEAD REMOVE2:MOV A,@R1CJNE A,#11111111B,REMOVE1MOV @R1,#00000000BMOV REMOVEROW,R0 LCALL DOWNBLOCKJMP REMOVESTART REMOVE1:INC R0INC R1MOV A,R0CJNE A,#9,REMOVE2POP ACCPOP BPOP 1POP 0RETDOWNBLOCK:PUSH 0PUSH 1PUSH BPUSH ACCMOV R0,#1DOWN11:MOV A,REMOVEROWMOV B,#8MUL ABADD A,R0LCALL DOWNSTEPLCALL JUSTMOVEINC R0MOV A,R0CJNE A,#9,DOWN11 POP ACCPOP BPOP 1POP 0RETDOWNSTEP:PUSH 0PUSH 1PUSH BPUSH ACCMOV R0,#0MOV R1,REMOVEROW STEP2:CLR CSUBB A,#8LCALL TESTBITJB BITS,STEP1INC R0DJNZ R1,STEP2STEP1:MOV STEPS,R0POP ACCPOP BPOP 1POP 0RETJUSTMOVE:PUSH 0PUSH 1PUSH 2PUSH BPUSH ACCMOV R0,AMOV A,STEPSMOV B,#8MUL ABMOV B,AMOV A,R0CLR CSUBB A,BMOV R1,AMOV R2,REMOVEROWMOV A,#8CLR CSUBB A,R2MOV R2,AJUST3:MOV A,R0LCALL TESTBITJB BITS,JUST1MOV A,R1LCALL WRITEPOINT0 JMP JUST2JUST1:MOV A,R1LCALL WRITEPOINT1 JUST2:MOV A,R0ADD A,#8MOV R0,AMOV A,R1ADD A,#8MOV R1,ADJNZ R2,JUST3MOV R2,REMOVEROW DDD:MOV A,R1LCALL WRITEPOINT0 MOV A,R1ADD A,#8MOV R1,ADJNZ R2,DDD JUSTEND:POP ACCPOP BPOP 2POP 1POP 0RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;将某个二进制位写1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WRITEPOINT1:PUSH 0PUSH 1PUSH 2PUSH 3PUSH BPUSH ACCPUSH DPHPUSH DPLCLR CMOV R0,ASUBB A,#65JNC END1MOV A,R0MOV R1,#LEDHEAD MOV B,#8DIV ABMOV R0,AMOV A,BCJNE A,#0,WRITE11 MOV A,R0DEC AJMP WRITE12 WRITE11:MOV A,R0WRITE12:ADD A,R1MOV R1,AMOV A,@R1MOV R2,AMOV DPTR,#TAB1 MOV A,BMOVC A,@A+DPTR ORL A,R2MOV @R1,AEND1:POP DPLPOP DPHPOP ACCPOP BPOP 3POP 1POP 0RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;将某个二进制位写0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WRITEPOINT0:PUSH 0PUSH 1PUSH 2PUSH BPUSH ACCPUSH DPHPUSH DPLMOV R0,ACLR CSUBB A,#65JNC END2MOV A,R0MOV R1,#LEDHEAD MOV B,#8DIV ABMOV R0,AMOV A,BCJNE A,#0,WRITE01 MOV A,R0DEC AJMP WRITE02 WRITE01:MOV A,R0WRITE02:ADD A,R1MOV R1,AMOV A,@R1MOV R2,AMOV DPTR,#TAB2 MOV A,BMOVC A,@A+DPTR ANL A,R2MOV @R1,AEND2:POP DPHPOP ACCPOP BPOP 2POP 1POP 0RETGRAPH: DB 69,60,61,62,69,68,61,62,69,70,60,61,69,70,61,62,69,77,61,62,69,77,61,60,69,69,61,77TAB1: DB 00000001B,10000000B,01000000B,00100000B,00010000B,00001000B,00000100B,00000010B TAB2: DB 11111110B,01111111B,10111111B,11011111B,11101111B,11110111B,11111011B,11111101BEND。