微机实验期末设计报告

中山大学微机实验期末设计报告贪吃蛇游戏设计年级专业：10电子学号：10380042姓名：林俊良2012/12/25对使用汇编设计贪吃蛇游戏作详细说明，包括概述，设计要求，设计方案，实验电路，设计思路，程序流程图，总结。

目录概述 (3)设计要求 (3)设计方案 (3)实验电路 (4)设计思路 (6)程序流程图 (8)总结 (17)附录 (18)概述一个学期的微机实验的学习与实践，不仅让我进一步巩固了微机的理论知识，而且也加深了我对汇编语言的认识和理解。

由于平常都习惯与用高级语言进行开发和设计，所以刚开始使用汇编语言时会感到很生硬。

但是随着时间推移，会慢慢地发现汇编语言更适宜用作底层硬件的开发。

通过编写汇编程序能使我们更好的了解底层的硬件结构和工作原理。

尤其在对执行速度要求比较苛刻的情况下，汇编语言相对于高级语言有着不可比拟的优势。

期末设计我选择的贪吃蛇游戏设计，原因是一方面可以接触到DOS系统的图像绘制方法，使对基于图像的编程有更好的认识；另一方面，2D游戏设计比其他系统的控制更有挑战性，其逻辑性，技巧性更强，也对执行速度更敏感。

本设计以贪吃蛇游戏为主体，进一步熟悉8253、8255、74LS244、ADC0809和中断的应用以及加深对汇编程序设计的理解，并对整个学期所学内容作了全面的回顾。

设计要求1、实现贪吃蛇在屏幕上显示和向前移动，用8253作定时，当到达边界时会在与之相对的另一个边界出现。

2、游戏接收键盘的方向键控制，实时调整前进方向，当按下ESC键，游戏退出。

3、实现碰撞检测，当贪吃蛇头部碰到自己的身体时，输掉游戏，游戏结束。

4、实现捕食猎物，当头部碰到猎物时，增加游戏得分，贪吃蛇长度增加，猎物消失，并随机在某个地方出现。

5、游戏得分实时显示在数码管上。

6、用手动单脉冲作为中断源，但按下时，游戏暂停，但数码管正常显示。

当再次按下时，游戏继续。

7、引入A/D转换器作为速度调节装置，通过读取可调电阻上的压降决定贪吃蛇前进速度的快慢，并将速度显示在LED彩灯上，速度越快，彩灯亮的越多。

8、当游戏结束时，根据输赢用点阵滚动显示“YOU WIN”或“YOU LOSE”。

9、引入扬声器，当捕食成功时扬声器响一下，当游戏结束时，根据输赢播放一段音乐。

设计方案系统整体框图如图1所示，本设计综合应用了8253、8255、ADC0809、74LS244和8259等芯片，并且由于需要实现的功能较多，部分芯片进行了复用。

图 1 系统整体框图实验电路各部分电路连接图如图2-7所示。

+5V图 2 74LS244连接图扬声器8255PA71MHZ图 3 8253连接图a e dbc fg8253GATE2S0S1L2L3L4L5L6L7数码管发光二极管图 4 8255连接图图 5 ADC0809连接图8255扬声器图 6 扬声器连接图图 7 外部中断连接图设计思路1、绘图引擎：由于是绘制图形，所以必须选择图形模式，其中分辨率有640×480、640×350、320×200和160×200，分辨率太高会使得贪吃蛇显得太细，所以选择320×200。

绘制游戏主角贪吃蛇的方法可以是每次显示先清除整个屏幕，再逐个绘制像素点，但这样效率比较低。

想到贪吃蛇每次只移动一格，前后两次图像的有差别的像素点只在贪吃蛇的头部和尾部，所以有了另一个方法，第一次先绘制整幅图像，以后每次擦除尾部并绘制头部，如图8。

这样当贪吃蛇的长度变得很长的时候，绘制过程也不会占用更多的时间。

图 8 绘制示意图2、数据结构：由于贪吃蛇的本质就是一系列的点，所以只需要在内存中开辟一块足够大的空间，按从头部到尾部的顺序存储每个点的横坐标和纵坐标，就可以完整地存储它的所有信息，猎物的信息也是只需要标记其横坐标和纵坐标。

当贪吃蛇移动时，有两种算法记录它的坐标变化，第一种是，再用一个变量head记录存储其头部坐标的内存偏移量，并把记录整个贪吃蛇位置的内存块当成一个头尾相接的环，这样每次移动就可以直接把新的头部坐标填到原来记录尾部坐标的内存中，并改变head的值，如图9。

另一种是以从后往前的顺序用前一个点的坐标覆盖后一个点，再改头部坐标为新的值。

虽然前者的效率更高，但是考虑到当贪吃蛇长度变化时算法会变得复杂，而且处理的数据量并不大，所以本设计采用第二种方法。

图 9 移动示意图3、数码管显示：由于2位的数码管显示必须不断刷新才可以看到2位数，而贪吃蛇移动完一格是要停顿一段时间的，所以可以在停顿的延时里边延时边刷新数码管的显示。

4、产生随机数：由于猎物被贪吃蛇捕食后要随机在屏幕的某个位置出现，所以需要能产生随机数。

汇编语言本身没有产生随机数的中断调用，但是考虑到系统时间是在不断改变的，所以可以通过调用中断获取系统时间，再通过系统时间来产生伪随机数。

具体方法是获取当前秒数和百分之一秒数，将这两个数相乘，再按高位和低位拆分为新的两个数，最后分别对最大行数和最大列数求余就可以得到新的猎物坐标。

5、扬声器播放音乐：播放单频率音乐的办法有很多，其中典型的两个是，一，8253定时器0设为模式3接扬声器，利用8253定时器1触发中断，在中断服务程序中改定时器0的计数初值，从而实现发出频率不同的声音；二，利用8255和8253联合控制扬声器。

由于外部中断只提供了一个接口，而且已经用掉，所以只能用方法二。

为了充分利用贪吃蛇停顿时的时间，所以把播放音乐的部分也放在延时部分完成。

而在游戏结束时，则可以在点阵显示完一帧的间隙修改计数初值，实现发出频率不同的声音。

6、点阵滚动显示：由于点阵显示的原理与多位数码管相同，所以只需把要显示的图形先按列保存下来，然后逐列刷新点阵即可实现滚动显示效果。

程序流程图主程序流程图如图10。

图 10 主程序流程图该子程序要在游戏开始前绘制整个画面，由于320×200中一个像素点还是太小了，所以程序中通过线性变换，将1个坐标点投射到屏幕的1个8×8的像素点矩阵。

通过逐个绘制这些像素点矩阵，就可以显示出贪吃蛇和猎物。

其流程图如图11。

图 11 子程序DISPLAY流程图该子程序要接收键盘输入，其中方向键的ASCII码为0，可以通过扫描码来区分，而ESC 键的扫描码为0，但其ASCII码不同。

所以只需要将键盘输入与这5个键逐个比较就能区分了。

另外，应该注意到贪吃蛇不能反向移动，也就是说当移动方向是上下方向时，是不用响应上下方向键的，而当移动方向是左右方向时，也是不用响应左右方向键的。

其流程图如图12。

图 12 子程序CHECKKEY流程图3.子程序DELAY本设计的难点之一是要实现扬声器的发声与数码管的显示的并行处理，而这部分实现就给该子程序处理。

由于主程序已经设置好8253计数器2的模式和初值，所以只需要在需要发声的时候开启GATE2即可。

该子程序还需要根据A/D转换值设置延迟的多少，这个通过修改数码管循环显示的次数实现。

其流程图如图13。

图 13 子程序DELAY流程图4.子程序SMALL_DELAY该子程序根据给定值用8253的计数器0和1作精确延时。

其流程图如图14。

图 14 子程序SMALL_DELAY流程图5.子程序GETSPEED该子程序根据A/D转换值更新SPEED并将速度按等级显示到彩灯上。

其流程图如图15。

图 15 子程序GETSPEED流程图该子程序根据前进方向移动贪吃蛇。

当其移动超出屏幕范围时，要从另一边进来，即实现无边界。

由于需要做碰撞检测，所以逻辑比较复杂。

其流程图如图16。

图 16 子程序MOVE流程图该子程序负责刷新屏幕。

如果有吃到猎物就重绘猎物。

其流程图如图17。

图 17 子程序REFRESH流程图该子程序负责生成2个随机数作为新猎物横纵坐标。

随机数是通过当前时间得到的，由于当前的秒数和百分秒数都具有很大的不确定性，所以生成的坐标将会有很大的随机性。

注意要把坐标限制在屏幕可见范围之内，而且如果坐标与贪吃蛇身体某部分重叠，就要重新生成。

其流程图如图18。

图 18 子程序PLACE流程图9.子程序GAMEEND该子程序在游戏结束时调用，负责点阵滚动显示”YOUWIN”或”YOULOSE”2次（CX=2），并且每滚动3列（SI=DI/3）就播放一个频率的声音。

为了使点阵看起来不闪烁，整个字符串又不会滚动太快以致看不清，每帧图像会重复显示3次（I=3）。

其流程图如图19。

图 19 子程序GAMEEND流程图从最初决定设计题目为贪吃蛇到最后游戏成型，一共用了2周时间，但我觉得这2周时间用得很值，因为整个贪吃蛇游戏设计的综合性、逻辑性很强，通过设计使我的编程思想和编程能力都得到了很大的提升。

由于整个设计很有意义，使我在编写汇编的过程中充满了了乐趣。

特别是当我看到有同学真的会去玩这个游戏时，我很感动，因为这证明我的功夫没有白费。

这个设计综合使用了8255、8253、8259、ADC0832和74LS244共5种芯片和扬声器、点阵、数码管和LED彩灯共4种模块，不仅实现了贪吃蛇的一般性功能——移动、捕食和自杀，也提供了实时观察游戏得分（数码管）和实时调整游戏速度（可调电阻）的独特功能。

然而，虽然在游戏结束时有提供动态显示玩家输赢（点阵）和播放游戏结束音乐（扬声器）的功能，也添加了捕食成功时的音效，但是没有实现在游戏进行中播放背景音乐的功能，显然对玩家来说，游戏背景音乐对游戏的可玩程度占有非常重要的地位，这也是本设计的一大不足之处。

本设计还可以完善的功能还包括：1、添加游戏开始结束画面和选择菜单。

2、添加游戏关卡功能，每个关卡会有不同形状的障碍物（不能触碰）和猎人（会移动的障碍物）。

3、通过D/A转换器接扬声器的方式，播放混合频率的更真实的音乐（而不是一个时间段播放一个频率的单频率音乐），而音乐可以通过麦克风接A/D转换器事先采样得到。

;==========================================================;game : SNAKE;designer : Leo Lin;finish time: 2012/12/25;==========================================================IOY0 EQU 288HMY8253_0 EQU IOY0+00HMY8253_1 EQU IOY0+01HMY8253_2 EQU IOY0+02HMY8253_M EQU IOY0+03HIOY1 EQU 280HMY8255_A EQU IOY1+00HMY8255_B EQU IOY1+01HMY8255_C EQU IOY1+02HMY8255_M EQU IOY1+03HLS244 EQU 2A0HDAC0832 EQU 290HADC0809 EQU 299HDOT_ROW EQU 2A8HDOT_COL EQU 2B0HPS EQU 8 ;point sizeWID EQU 320/PS-1HEI EQU 200/PS-1DATA SEGMENTSNAKE DW 4H,5H,3H,5H,2H,5H,1H,5HDW 60 DUP(0)LEN DW 4ORIENT DW 1 ;0-LEFT,1-RIGHT,2-UP,3-DOWNORIENT1 DW 1 ;intermediate varible of ORIENT SUGAR DW 5H,4HRE_END DW 0H,0H,0H,0H ;[headx,heady,tailx,taily]RE_CLR DW 0C0AH,0H,0C00H,0H;[green,0,black,0]RE_ADD DB 0 ;0-no change,80H-length increase SPEED DW 5TOTAL DW 0 ;scoreWIN DW 0 ;0-normal,1-lose,2-win,3-suspendLED DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH LIGHT DB 4H,0CH,1CH,3CH,7CH,0FCHI DB 0J DB 0HEAD_X DW 0HEAD_Y DW 0REM DW 0QUO DW 0YOUWIN DB 8 DUP(0)DB 40H,20H,1EH,20H,40H ;YDB 3CH,42H,42H,3CH,0H ;ODB 7CH,02H,02H,7CH,0H ;UDB 7CH,02H,3CH,02H,7CH,0H;WDB 42H,7EH,42H,0H ;IDB 7EH,20H,18H,04H,7EH ;NDB 8 DUP(0)YOULOSE DB 8 DUP(0)DB 40H,20H,1EH,20H,40H ;YDB 3CH,42H,42H,3CH,0H ;ODB 7CH,02H,02H,7CH,0H ;UDB 7EH,02H,02H ;LDB 3CH,42H,42H,3CH,0H ;ODB 32H,4AH,44H,0H ;SDB 7EH,4AH,4AH ;EDB 8 DUP(0)DOT_N DW $-YOULOSE-8SOUNDL DW 8E0H,9F7H,0B31H,0C8FH ;sound of winning SOUNDW DW 0C8FH,0B31H,9F7H,8E0H ;sound of losing SOUND_N DW $-SOUNDWSOUNDA DW 0 ;address of sound DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATASTART:MOV AX,DATAMOV DS,AXMOV ES,AXPUSH DSMOV AX,SEG INT3MOV DS,AXMOV DX,OFFSET INT3MOV AX,250BHINT 21H ;set IRQ3POP DSIN AL,21H ;open IRQ3 interrupt AND AL,0F7HOUT 21H,ALSTI ;admit interruptMOV DX,MY8255_M ;initial 8255MOV AL,80H ;A out, C outOUT DX,ALMOV DX,MY8253_MMOV AL,0B6H ;counter 2, mode 3 OUT DX,ALMOV DX,MY8253_2MOV AL,70H ;n=1136, freq=880Hz OUT DX,ALMOV AL,4HOUT DX,ALMOV AX,000DH ;320X200,16INT 10HCALL DISPLAYMAIN_LOOP:CALL CHECKKEYCALL DELAYCALL CHECKKEYMOV BX,ORIENT1MOV ORIENT,BXCALL MOVECALL REFRESHCMP AX,0JNZ EXITCMP WORD PTR WIN,0JZ MAIN_LOOPTERMINATE:CMP WORD PTR WIN,3JNZ EXITJMP MAIN_LOOPEXIT:CALL GAMEENDMOV AX,0003H ;TEXTINT 10HMOV AH,4CHINT 21HINT3: ;change between normal and suspend PUSH AXMOV AX,3 ;3 <-> 0SUB AX,WINMOV WIN,AXSTIMOV AL,20HOUT 20H,ALPOP AXIRET;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: display the whole snake body; and the sugar at the beginning;========================================================== DISPLAY PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SIMOV AX,0600H;CLSMOV BH,0MOV CX,0MOV DX,1E4FHINT 10HMOV BX,LENDISPLAY_SNAKE:MOV AX,0C0AHMOV BH,0MOV CX,SNAKE[SI]SHL CX,1 ;CX=8*CXSHL CX,1SHL CX,1MOV I, PS ;every point is of size PSXPS DISPLAY_SNAKE_ROW:MOV DX,SNAKE[SI+2]SHL DX,1 ;DX=8*DXSHL DX,1SHL DX,1MOV J, PSDISPLAY_SNAKE_COLUMN:INT 10HINC DXDEC JJNZ DISPLAY_SNAKE_COLUMNINC CXDEC IJNZ DISPLAY_SNAKE_ROWADD SI,4DEC BXJNZ DISPLAY_SNAKEDISPLAY_SUGAR:MOV AX,0C0EHMOV BH,0MOV CX,SUGAR[0]SHL CX,1 ;CX=8*CXSHL CX,1SHL CX,1MOV I, PS ;every point is of size PSXPS DISPLAY_SUGAR_ROW:MOV DX,SUGAR[2]SHL DX,1 ;DX=8*DXSHL DX,1SHL DX,1DISPLAY_SUGAR_COLUMN:INT 10HINC DXDEC JJNZ DISPLAY_SUGAR_COLUMNINC CXDEC IJNZ DISPLAY_SUGAR_ROWPOP SIPOP DXPOP CXPOP BXPOP AXRETDISPLAY ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: display the head and erase the tail,; and if sugar was eaten, redraw it;========================================================== REFRESH PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SICMP WORD PTR WIN,0JZ REFRESH_STARTJMP REFRESH_RETREFRESH_START:XOR SI,SICMP BYTE PTR RE_ADD,0JNZ REFRESH_BXMOV BX,2JMP REFRESH_SNAKEREFRESH_BX:MOV BX,1CALL PLACEREFRESH_SUGAR:MOV AX,0C0EHMOV BH,0MOV CX,SUGAR[0]SHL CX,1 ;CX=8*CX SHL CX,1SHL CX,1MOV I, PSREFRESH_SUGAR_ROW:MOV DX,SUGAR[2]SHL DX,1 ;DX=8*DX SHL DX,1SHL DX,1MOV J, PSREFRESH_SUGAR_COLUMN:INT 10HINC DXDEC JJNZ REFRESH_SUGAR_COLUMNINC CXDEC IJNZ REFRESH_SUGAR_ROWREFRESH_SNAKE:MOV AX,RE_CLR[SI]MOV BH,0MOV CX,RE_END[SI]SHL CX,1 ;CX=8*CX SHL CX,1SHL CX,1MOV I, PSREFRESH_SNAKE_ROW:MOV DX,RE_END[SI+2]SHL DX,1 ;DX=8*DX SHL DX,1SHL DX,1MOV J, PSREFRESH_SNAKE_COLUMN:INT 10HINC DXDEC JJNZ REFRESH_SNAKE_COLUMNINC CXDEC IJNZ REFRESH_SNAKE_ROWADD SI,4DEC BXJNZ REFRESH_SNAKEREFRESH_RET:POP SIPOP DXPOP CXPOP BXPOP AXRETREFRESH ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: move a unit distance depending on ORIENT;========================================================== MOVE PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SICMP WORD PTR WIN,0JZ MOVE_BEGINJMP MOVE_RETMOVE_BEGIN:MOV AX,ORIENTCMP AX,0JZ MOVE_LCMP AX,1JZ MOVE_RCMP AX,2JZ MOVE_UJMP MOVE_DMOVE_L:MOV AX,SNAKE[0]DEC AXMOV HEAD_X,AXMOV AX,SNAKE[2]MOV HEAD_Y,AXJMP MOVE_XLMOVE_R:MOV AX,SNAKE[0]INC AXMOV HEAD_X,AXMOV AX,SNAKE[2]MOV HEAD_Y,AXJMP MOVE_XLMOVE_U:MOV AX,SNAKE[2]DEC AXMOV HEAD_Y,AXMOV AX,SNAKE[0]MOV HEAD_X,AXJMP MOVE_YLMOVE_D:MOV AX,SNAKE[2]INC AXMOV HEAD_Y,AXMOV AX,SNAKE[0]MOV HEAD_X,AXJMP MOVE_YLMOVE_XL:MOV AX,HEAD_XCMP AX,0JNL MOVE_XGMOV AX,WIDMOV HEAD_X,AX;MOV WIN,1;lose if touch the left border MOVE_XG:CMP AX,WIDJNG MOVE_EATMOV AX,0MOV HEAD_X,AX;MOV WIN,1;lose if touch the right border MOVE_YL:MOV AX,HEAD_YCMP AX,0JNL MOVE_YGMOV AX,HEIMOV HEAD_Y,AX;MOV WIN,1;lose if touch the top border MOVE_YG:CMP AX,HEIJNG MOVE_EATMOV AX,0MOV HEAD_Y,AX;MOV WIN,1;lose if touch the bottom borderMOVE_EAT:MOV AX,HEAD_XCMP AX,SUGAR[0]JNZ MOVE_BUMPMOV AX,HEAD_YCMP AX,SUGAR[2]JNZ MOVE_BUMPINC LENINC TOTALMOV BYTE PTR RE_ADD,80HCMP WORD PTR TOTAL,30JG MOVE_WINJMP MOVE_STARTMOVE_WIN:MOV WIN,2 ;win the gameMOVE_BUMP:MOV BX,LENDEC BXXOR SI,SIMOV DX,HEAD_XMOV AX,HEAD_YMOVE_CHECK_X:CMP DX,SNAKE[SI]JNZ MOVE_CHECK_DIFFCMP AX,SNAKE[SI+2]JZ MOVE_LOSEMOVE_CHECK_DIFF:ADD SI,4DEC BXJNZ MOVE_CHECK_XJMP MOVE_STARTMOVE_LOSE:MOV WIN,1 ;lose the gameMOVE_START:MOV SI,LENDEC SIMOV CL,2SHL SI,CLMOV AX,SNAKE[SI]MOV RE_END[4],AXMOV AX,SNAKE[SI+2]MOV RE_END[6],AXMOV CX,LENDEC CXMOVE_BODY:MOV AX,SNAKE[SI-4]MOV SNAKE[SI],AXMOV AX,SNAKE[SI-2]MOV SNAKE[SI+2],AXSUB SI,4LOOP MOVE_BODYMOVE_HEAD:MOV AX,HEAD_XMOV SNAKE[0],AXMOV RE_END[0],AXMOV AX,HEAD_YMOV SNAKE[2],AXMOV RE_END[2],AXMOVE_RET:POP SIPOP DXPOP CXPOP BXPOP AXRETMOVE ENDP;========================================================== ;INPUT: none;OUTPUT; AX=0FFFFH means ESC, AX=0 means others;FUNCTION: check if any key pressed and change the ORIENT ;========================================================== CHECKKEY PROC NEARCMP WORD PTR WIN,0JZ CHECKKEY_STARTJMP CHECKKEY_FINISHCHECKKEY_START:MOV AH,0BH ;check if any keyINT 21HCMP AL,0JZ CHECKKEY_AX_0MOV AH,00H ;get the keyINT 16H ;AL <- ASCII, AH <- scan codeCMP AL,1BHJZ CHECKKEY_AX_1CMP AH,4BHJZ CHECKKEY_LCMP AH,4DHJZ CHECKKEY_RCMP AH,48HJZ CHECKKEY_UCMP AH,50HJZ CHECKKEY_DJMP CHECKKEY_AX_0CHECKKEY_L:CMP ORIENT,2JL CHECKKEY_AX_0MOV ORIENT1,0JMP CHECKKEY_AX_0CHECKKEY_R:CMP ORIENT,2JL CHECKKEY_AX_0MOV ORIENT1,1JMP CHECKKEY_AX_0CHECKKEY_U:CMP ORIENT,1JG CHECKKEY_AX_0MOV ORIENT1,2JMP CHECKKEY_AX_0CHECKKEY_D:CMP ORIENT,1JG CHECKKEY_AX_0MOV ORIENT1,3CHECKKEY_AX_0:XOR AX,AXJMP CHECKKEY_FINISHCHECKKEY_AX_1:MOV AX,0FFFFHCHECKKEY_FINISH:RETCHECKKEY ENDP;========================================================== ;INPUT: CX=delay time in milliseconds;OUTPUT: none;FUNCTION: delay for a period of time;========================================================== SMALL_DELAY PROC NEARPUSH AXPUSH CXPUSH DXMOV DX,MY8253_MMOV AL,37H ;counter 0, mode 3OUT DX,ALMOV DX,MY8253_0MOV AL,00H ;n=1000OUT DX,ALMOV AL,10HOUT DX,ALMOV DX,MY8253_MMOV AL,70H ;counter 1, mode 0OUT DX,ALMOV AX,CXMOV DX,MY8253_1OUT DX,ALMOV AL,AHOUT DX,ALSMALL_DELAY_CHECK:MOV CX,0FFFHSMALL_DELAY_CX:LOOP SMALL_DELAY_CXMOV DX,LS244IN AL,DXTEST AL,01HJZ SMALL_DELAY_CHECK ;if LS244_1A1 low, check againPOP DXPOP CXPOP AXRETSMALL_DELAY ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: delay for a period of time,; and display the 7SEG during that time,;========================================================== DELAY PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SICALL GETSPEEDMOV AX,TOTALMOV DL,10DIV DLXOR BH,BHMOV BL,ALMOV QUO,BXMOV BL,AHMOV REM,BXDELAY_7SEG:MOV BX,SPEED ;DELAY SPEEDX10 msDELAY_LOOP_BX:MOV DX,MY8255_AMOV AL,0OUT DX,ALMOV DX,MY8255_C ;high bitIN AL,DXAND AL,0FCHOR AL,2OUT DX,ALMOV DX,MY8255_AMOV SI,QUOMOV AL,LED[SI]XOR AL,RE_ADD ;PA7=1 if RE_ADD is 80h OUT DX,ALMOV CX,5CALL SMALL_DELAYMOV DX,MY8255_AMOV AL,0OUT DX,ALMOV DX,MY8255_C ;low bitIN AL,DXAND AL,0FCHOR AL,1OUT DX,ALMOV DX,MY8255_AMOV SI,REMMOV AL,LED[SI]XOR AL,RE_ADD ;PA7=1 if RE_ADD is 80h OUT DX,ALMOV CX,5CALL SMALL_DELAYDEC BXJNZ DELAY_LOOP_BXMOV BYTE PTR RE_ADD,0POP SIPOP DXPOP CXPOP BXPOP AXRETDELAY ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: find random position to place a new sugar;========================================================== PLACE PROC NEARPUSH AXPUSH BXPUSH DXPUSH SIPLACE_RANDOM:MOV AH,2CH ;get the system timeINT 21H ;CX <- h:m, DX <- s:1/100sMOV AL,DHMUL DLMOV DL,100DIV DL ;AL <- QUO, AH <- REMPLACE_CHECK_HEI:CMP AL,HEIJG PLACE_HEIPLACE_CHECK_WID:CMP AH,WIDJG PLACE_WIDJMP PLACE_CHECKPLACE_HEI:SUB AL,HEIJMP PLACE_CHECK_HEIPLACE_WID:SUB AH,WIDJMP PLACE_CHECK_WIDPLACE_CHECK:MOV DL,AH ;DX <- AHXOR AH,AH ;AX <- ALXOR DH,DHMOV BX,LENXOR SI,SIPLACE_CHECK_X:CMP DX,SNAKE[SI]JNZ PLACE_CHECK_DIFFCMP AX,SNAKE[SI+2] ;if sugar is at snake body,JZ PLACE_RANDOM ;find a new positionPLACE_CHECK_DIFF:ADD SI,4DEC BXJNZ PLACE_CHECK_XPLACE_SUGAR:MOV SUGAR[0],DXMOV SUGAR[2],AXPOP SIPOP DXPOP BXPOP AXRETPLACE ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: get the speed;========================================================== GETSPEED PROC NEARPUSH AXPUSH CXPUSH DXPUSH SIMOV DX,ADC0809OUT DX,AL ;start convertMOV CX,0FFFFHGETSPEED_DELAY:LOOP GETSPEED_DELAYIN AL,DX ;82H <= AL <= 0FFH (ADC)XOR AH,AHMOV DL,25DIV DL ;5 <= AL <= 10XOR AH,AHSUB AL,4 ;1 <= AL <= 6 (time)CMP AL,1JL GETSPEED_MINJMP GETSPEED_SAVEGETSPEED_MIN:MOV AL,1GETSPEED_SAVE:MOV SPEED,AXMOV SI,6SUB SI,AX ;0 <= SI <= 5 (speed)MOV AL,LIGHT[SI]MOV DX,MY8255_COUT DX,ALPOP SIPOP DXPOP CXPOP AXRETGETSPEED ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: roll a string in the dot matrix;========================================================== GAMEEND PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SIPUSH DICMP WORD PTR WIN,2JZ GAMEEND_BX_WINJMP GAMEEND_BX_LOSEGAMEEND_BX_WIN:LEA BX,YOUWINMOV SOUNDA,OFFSET SOUNDWJMP GAMEEND_ROLL_STARTGAMEEND_BX_LOSE:LEA BX,YOULOSEMOV SOUNDA,OFFSET SOUNDLGAMEEND_ROLL_START:MOV DX,MY8255_AMOV AL,80HOUT DX,ALMOV CX,2 ;roll 2 timesMOV J, 0 ;0-sound on, 1-sound off GAMEEND_ROLL_DOT:XOR DI,DIGAMEEND_DOT:MOV AX,DIMOV DL,3DIV DLXOR AH,AHMOV SI,AXCMP SI,SOUND_NJZ GAMEEND_SET_JJMP GAMEEND_SOUNDGAMEEND_SET_J:MOV J,1MOV DX,MY8255_A ;8253 gate2=0XOR AL,ALOUT DX,ALGAMEEND_SOUND:CMP J,1JZ GAMEEND_DOT_DISPSHL SI,1MOV DX,MY8253_MMOV AL,0B6HOUT DX,ALPUSH BXMOV BX,SOUNDAMOV AX,[BX][SI]POP BXMOV DX,MY8253_2OUT DX,ALMOV AL,AHOUT DX,ALGAMEEND_DOT_DISP:MOV I, 3GAMEEND_COLUMN_I:MOV AH,80H ;AH=column numberMOV SI,DIGAMEEND_COLUMN:MOV DX,DOT_COLXOR AL,ALOUT DX,ALMOV DX,DOT_ROWMOV AL,[BX][SI]OUT DX,ALMOV DX,DOT_COLMOV AL,AHOUT DX,ALPUSH CXMOV CX,0FFFFHGAMEEND_LOOP_CX:LOOP GAMEEND_LOOP_CXPOP CXINC SISHR AH,1JNC GAMEEND_COLUMNDEC IJNZ GAMEEND_COLUMN_IINC DICMP DI,DOT_NJNG GAMEEND_DOTLOOP GAMEEND_ROLL_DOTPOP DIPOP SIPOP DXPOP CXPOP BXPOP AXRETGAMEEND ENDP;========================================================== ;INPUT: none;OUTPUT: none;FUNCTION: just delay;========================================================== DELAY_FOR_TEST PROC NEARPUSH BXPUSH CXMOV CX,02fH;04FFHDELAY_FOR_TEST_LOOP_CX:MOV BX,0FFFFHDELAY_FOR_TEST_LOOP_BX:DEC BXJNZ DELAY_FOR_TEST_LOOP_BXLOOP DELAY_FOR_TEST_LOOP_CXPOP CXPOP BXRETDELAY_FOR_TEST ENDPCODE ENDSEND START。