【文章內(nèi)容簡介】 。開定時(shí)器 。============================================================================================== 。游戲主程序 判斷鍵盤 , 移動 , 是否死亡 , 吃食 , 顯示 。============================================================================================== MAIN_GAME: JNB BT0,MAIN_GAME 。等待 T0 中斷 CLR BT0 。清除 T0 中斷標(biāo)志 CALL KEYTEST 。調(diào)用鍵盤測試程序 JNB B_KEYTEST,NOKEY 。判斷是否有鍵按下 CALL READKEY_X_Y 。有鍵按下調(diào)用鍵盤操作子程序 CJNE A,0F0H,XX_X_YY_Y 。再次判斷是否有鍵按下 JMP NOKEY XX_X_YY_Y: 。有鍵按下將取得的方向值送入 X,Y MOV X,XX MOV Y,YY NOKEY: DJNZ TIME_400,MAINDISP 。等待 400MS 到 MOV TIME_400,TIME 。重送初值 CLR INC PUT_FOOD 。對移動次數(shù)進(jìn)行計(jì)數(shù)從而產(chǎn)生隨機(jī)碼 CALL SNAKE_MOVE 。調(diào)用蛇身移動子程序==================1 CALL SNAKE_DED 。判斷蛇是否死亡子程序================2 JB B_SNAKE_DED,GAMEOVER 。死亡則顯示 GAMEOVER CALL SNAKE_FOOD 。判斷是否吃到食物子程序==============3 JNB B_SNAKE_FOOD,MAINDISP CALL SNAKE_ZHANGCHANG 。吃到食物則增長一節(jié)并重放食物========4 JNB B_PASS,MAINDISP CLR TR0 CALL SNAKE_PASS MOV A,PASS_NUM CJNE A,10,GOTO_START JMP START_1 16 MAINDISP: CALL GAME_DISP 。 顯示蛇==============================5 JB B_GAME_ON_OFF,GAMEOVER JMP MAIN_GAME 。繼續(xù)循環(huán) GAMEOVER: CLR TR0 CLR B_GAME_ON_OFF CALL DISP_GAMEOVER 。啟 停鍵在游戲中按下則結(jié)束顯示GAMEOVER JNB B_GAME_ON_OFF,GAMEOVER 。再次按下啟停鍵則進(jìn)入 SNAKE 進(jìn)行等待 CLR B_GAME_ON_OFF 。清除啟停標(biāo)志位 GOTO_START: JMP START 。=============================================================================================== 。T0 中斷服務(wù)子程序 重送初值 置標(biāo)志位 。=============================================================================================== T0_SET: MOV DPTR,6553620xx0 MOV TH0,DPH MOV TL0,DPL SETB BT0 RETI 。================================================================================================ 。INTO 中斷服務(wù)子程序 啟 , 停 。================================================================================================ GAME_ON_OFF: 。INTO 中斷服務(wù)子程序 CLR EX0 JB ,OUT CALL DEL_10MS JB ,OUT SETB B_GAME_ON_OFF 。置啟停標(biāo)志位為 1 表示按下 OUT: SETB EX0 17 RETI 。=============================================================================================== 。鍵盤測試子程序 有鍵按下則 B_KEYTEST=1 。============================================================================================== KEYTEST: SETB B_KEYTEST MOV A,P1 ANL A,0F0H CJNE A,0F0H,KEYTEST_OUT CLR B_KEYTEST KEYTEST_OUT: RET 。=============================================================================================== 。讀鍵值并得出方向 ,即 X, Y 的值 。=============================================================================================== READKEY_X_Y: JNB ,PD_UP_DOWN1 。判斷是否為向上鍵按下 JMP KEY_DOWN PD_UP_DOWN1: MOV A,Y CJNE A,0,KEY_DOWN MOV YY,1 。向上鍵按下則置方向標(biāo)志 MOV XX,0 JMP READKEY_OUT KEY_DOWN: JNB ,PD_UP_DOWN2 。判斷是否為向下鍵按下 JMP KEY_LEFT PD_UP_DOWN2: MOV A,Y CJNE A,0,KEY_LEFT MOV YY,1 。向下鍵按下 則置方向標(biāo)志 MOV XX,0 JMP READKEY_OUT KEY_LEFT: JNB ,PD_LEFT_RIGHT1 。判斷是否為向左鍵按下 JMP KEY_RIGHT 18 PD_LEFT_RIGHT1: MOV A,X CJNE A,0,KEY_RIGHT MOV XX,1 。向左鍵按下則置方向標(biāo)志 MOV YY,0 JMP READKEY_OUT KEY_RIGHT: JNB ,PD_LEFT_RIGHT2 。判斷是否為向右鍵按下 JMP READKEY_OUT PD_LEFT_RIGHT2: MOV A,X CJNE A,0,READKEY_OUT MOV XX,1 。向右鍵按下則置方向標(biāo)志 MOV YY,0 READKEY_OUT: MOV A,P1 。去抖 ANL A,0F0H RET 。=============================================================================================== 。蛇移動子程序 。=============================================================================================== SNAKE_MOVE: MOV R1,SNAKE_CHANG MOV A,SNAKE_TOU_X ADD A,X 。蛇頭 X 坐標(biāo)加上 方向 X 坐標(biāo) MOV R0,SNAKE_TOU_X MOVE_CHANGE_X: 。依次將前一個(gè)蛇身 X 坐標(biāo)轉(zhuǎn)向下一蛇身 X 坐標(biāo) XCH A,@R0 INC R0 DJNZ R1,MOVE_CHANGE_X 。MOV SNAKE_TAIL_X,A MOV R1,SNAKE_CHANG MOV A,SNAKE_TOU_Y ADD A,Y 。蛇頭 Y 坐標(biāo)加上 方向 Y 坐標(biāo) MOV R0,SNAKE_TOU_Y MOVE_CHANGE_Y: 。依次將前一個(gè)蛇 19 身 Y 坐標(biāo)轉(zhuǎn)向下一蛇身 Y 坐標(biāo) XCH A,@R0 INC R0 DJNZ R1,MOVE_CHANGE_Y 。MOV SNAKE_TAIL_Y,A RET 。=======================================================================================