LC-3下汇编实现简易版四子棋的游戏

问题描述：

两位选手通过键盘和输出窗口轮流交互操作，棋盘由6 X 6的网格组成。
游戏规则如下：
两位选手依次轮流落子；
选手不能悔棋；
有子的地方不能继续落子；
直到有一方的四个棋子能够连成一条水平线、垂直线或者是对角线；
如果棋盘已满，无人获胜，则平局。
游戏最初时应该打印空的棋盘，可以用ASCII码"-" （即ASCII 码 x002D）来表示该处为空，"O"(ASCII 码 x004F)表示第一位选手的棋子，"X" (ASCII 码 x0058)来表示第二位选手的棋子，为了让棋盘更易于观察，在各列间加一个空格，第6列之后不要添加，初始棋盘应该如下：
- - - - - -
- - - - - -
- - - - - -
- - - - - -
- - - - - -
- - - - - -


选手一始终先下第一步棋，然后两者轮流落子，在每次落子之后，应该打印该选手的信息，提示他落子，以选手一为例，应该打印信息如下：
Player 1, choose a column:
为了明确选手的落子的位置，该选手应该输入数字1-6，然后回车，数字1-6指示在落子所在的列，从左到右，无需输入行号，程序应默认从行号6到行号1递减的顺序填入该棋子，若前后输入的列号相同，则行号减一。例如，如果选手第一次在左起第二列落子，应该输入2，然后回车，则该棋子落在行6列2处，当后面输入的列号再次为2时，则将棋子落子行5列2处，以此类推，详情见后续示例输出。程序应该确保选手输入的数字对应正确的列的范围，如果输入不合理，应该输出一条错误信息，提示该选手继续输入，例如，如果对于选手一：
Player 1, choose a column: D 
    Invalid move. Try again. 
    Player 1, choose a column: 7 
    Invalid move. Try again. 
Player 1, choose a column:
程序应该一直提示该选手，知道输入正确的数字，当用户输入完成，程序应通过显示回馈给选手，然后通过换行符(ASCII 码 x000A)换行。
当选手输入成功后，程序应打印更新后的棋盘，并检查是否有人获胜，如果没人获胜，则轮到下一位输入。
当其中一位获胜或平局时，游戏结束，程序显示最后的棋盘情况并终止（Halt）。例如，如果选手二有四子相连，应该输出：
Player 2 Wins.
如果平局，程序应该输出：
Tie Game. 

整体设计思路：
1．棋盘数据存放在x4000 – x4024中，其中数值0代表该位置为空，数值1（即正数）代表玩家1下的棋子，数值-1（即负数）代表玩家2下的棋子。
2．子程序OUTCB（棋盘输出）可根据棋盘数据为正负零输出O、X或 - 。
3．子程序JUDGEMENT（判断下棋位置）首先定位玩家下棋位置，再判断该位置是否为空，若为数值0，则可下棋，根据下棋玩家赋值1或-1。否则返回0。
4．子程序IFWIN（判断输赢），首先将棋盘分配好坐标，根据坐标的值范围[ (0,0)<=(x , y)<=(5,5) ] 来判断是否溢出。然后判断下棋位置的纵列是否连成4个，若能，返回结束。否则继续依次执行判断横列，斜列能否连成4子。
5．主程序在执行下棋循环超过18次（玩家1、2各下18个棋子），则结束程序，平局输出。

流程图表示：

汇编代码实现：

; The code is designed by Li Mingzhao.
; Program is a game named Connect Four.
; PLAY1 plays chess first. R6=1 represents the PLAY1. R6=-1 represents the PLAY2.
; The subprogram JUDGEMENT to judge whether the chess piece is legal.
; The subprogram IFWIN to judge whether there is a winner.
; The subprogram OUTCB to output the ChessBoard.
; ChessBoard to save at x4000-x4024.
; 
              .ORIG    x3000
;
              LD       R4,FULL                ; R4 is counter, initialize to 18
              JSR      OUTCB                  ; Output the empty chessboard
NEXTLOOP      LD       R6,PLAY1               ; Now R6 represents PLAY1's turn
AGAIN         JSR      OUTP1IN                ; Hint to PLAY1's input
              TRAP     x20
              TRAP     X21
              JSR      JUDGEMENT              ; Judge the location.
              JSR      OUTNewLine

              ADD      R5,R5,#0               ; R5=1 means right input
              BRnp     REPLAY2                ; If match, it turns to PLAY2
              JSR      OUTERROR 
              BRnzp    AGAIN                  ; If no match, do AGAIN

REPLAY2       JSR      OUTCB
              JSR      IFWIN                  
              ADD      R3,R3,#0               ; R3 means win or not  
              BRp      ONEWIN                 ; If m