glm94/86-DOS-0.11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

General cleanup

Browse Source 
Clean up of various source files. The CHESS program is not fully cleaned up yet.
This commit is contained in:
Yufeng Gao
2026-01-25 22:26:55 +10:00
parent 2b03858c61
commit c7b866b40d
8 changed files with 468 additions and 446 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CHESS.A86
+83 -82
View File
@@ -11,10 +11,10 @@
;***********************************************************
; SYSTEM EQUATES
;***********************************************************
INCHAR EQU 1
PRINTBUF EQU 9
INBUF EQU 10
SYSTEM EQU 5
INCHAR: EQU 1
PRINTBUF:EQU 9
INBUF: EQU 10
SYSTEM: EQU 5
;***********************************************************
; EQUATES
@@ -96,7 +96,7 @@ START:
ORG START+80H
PUT START+80H
TBASE: EQU START+100H
;**********************************************************
;***********************************************************
; DIRECT -- Direction Table. Used to determine the dir-
; ection of movement of each piece.
;***********************************************************
@@ -108,7 +108,7 @@ DIRECT: EQU $-TBASE
DB +10,+10,+11,+09
DB -10,-10,-11,-09
;***********************************************************
; DPOINT -- Direction Table Pointer. Used to determine
; DPOINT -- Direction Table Pointer. Used to determine
; where to begin in the direction table for any
; given piece.
;***********************************************************
@@ -116,7 +116,7 @@ DPOINT: EQU $-TBASE
DB 20,16,8,0,4,0,0
;***********************************************************
; DCOUNT -- Direction Table Counter. Used to determine
; DCOUNT -- Direction Table Counter. Used to determine
; the number of directions of movement for any
; given piece.
;***********************************************************
@@ -124,7 +124,7 @@ DCOUNT: EQU $-TBASE
DB 4,4,8,4,4,8,8
;***********************************************************
; PVALUE -- Point Value. Gives the point value of each
; PVALUE -- Point Value. Gives the point value of each
; piece, or the worth of each piece.
;***********************************************************
PVALUE: EQU $-TBASE-1
@@ -132,7 +132,7 @@ PVALUE: EQU $-TBASE-1
;***********************************************************
; PIECES -- The initial arrangement of the first rank of
; pieces on the board. Use to set up the board
; pieces on the board. Use to set up the board
; for the start of the game.
;***********************************************************
PIECES: EQU $-TBASE
@@ -140,7 +140,7 @@ PIECES: EQU $-TBASE
;***********************************************************
; BOARD -- Board Array. Used to hold the current position
; of the board during play. The board itself
; of the board during play. The board itself
; looks like:
; FFFFFFFFFFFFFFFFFFFF
; FFFFFFFFFFFFFFFFFFFF
@@ -156,15 +156,15 @@ PIECES: EQU $-TBASE
; FFFFFFFFFFFFFFFFFFFF
; The values of FF form the border of the
; board, and are used to indicate when a piece
; moves off the board. The individual bits of
; moves off the board. The individual bits of
; the other bytes in the board array are as
; follows:
; Bit 7 -- Color of the piece
; 1 -- Black
; 0 -- White
; Bit 6 -- Not used
; Bit 5 -- Not used
; Bit 4 --Castle flag for Kings only
; Bit 5 -- Pawn attack flag for ATTACK
; Bit 4 -- Castle flag for Kings only
; Bit 3 -- Piece has moved flag
; Bits 2-0 Piece type
; 1 -- Pawn
@@ -180,16 +180,16 @@ BOARD: EQU $-TBASE
BOARDA: DS 120
;***********************************************************
; ATKLIST -- Attack List. A two part array, the first
; ATKLIST -- Attack List. A two part array, the first
; half for white and the second half for black.
; It is used to hold the attackers of any given
; square in the order of their value.
;
; WACT -- White Attack Count. This is the first
; WACT -- White Attack Count. This is the first
; byte of the array and tells how many pieces are
; in the white portion of the attack list.
;
; BACT -- Black Attack Count. This is the eighth byte of
; BACT -- Black Attack Count. This is the eighth byte of
; the array and does the same for black.
;***********************************************************
ATKLST: DW 0,0,0,0,0,0,0
@@ -197,7 +197,7 @@ WACT: EQU ATKLST
BACT: EQU ATKLST+7
;***********************************************************
; PLIST -- Pinned Piece Array. This is a two part array.
; PLIST -- Pinned Piece Array. This is a two part array.
; PLISTA contains the pinned piece position.
; PLISTD contains the direction from the pinned
; piece to the attacker.
@@ -207,41 +207,41 @@ PLISTD: EQU PLIST+10
PLISTA: DW 0,0,0,0,0,0,0,0,0,0
;***********************************************************
; POSK -- Position of Kings. A two byte area, the first
; POSK -- Position of Kings. A two byte area, the first
; byte of which hold the position of the white
; king and the second holding the position of
; the black king.
;
; POSQ -- Position of Queens. Like POSK,but for queens.
;***********************************************************
; POSQ -- Position of Queens. Like POSK,but for queens.
;************************************************************
POSK: DB 24,95
POSQ: DB 14,94
DB -1
;***********************************************************
; SCORE -- Score Array. Used during Alpha-Beta pruning to
; hold the scores at each ply. It includes two
;************************************************************
; SCORE -- Score Array. Used during Alpha-Beta pruning to
; hold the scores at each ply. It includes two
; "dummy" entries for ply -1 and ply 0.
;***********************************************************
;************************************************************
SCORE: DW 0,0,0,0,0,0
;***********************************************************
; PLYIX -- Ply Table. Contains pairs of pointers, a pair
; for each ply. The first pointer points to the
;************************************************************
; PLYIX -- Ply Table. Contains pairs of pointers, a pair
; for each ply. The first pointer points to the
; top of the list of possible moves at that ply.
; The second pointer points to which move in the
; list is the one currently being considered.
;***********************************************************
;************************************************************
PLYIX: DW 0,0,0,0,0,0,0,0,0,0
DW 0,0,0,0,0,0,0,0,0,0
;***********************************************************
;************************************************************
; STACK -- Contains the stack for the program.
;***********************************************************
;************************************************************
ORG START+2FFH
STACK:
;***********************************************************
;************************************************************
; TABLE INDICES SECTION
;
; M1-M4 -- Working indices used to index into
@@ -250,10 +250,10 @@ STACK:
; T1-T3 -- Working indices used to index into Direction
; Count, Direction Value, and Piece Value tables.
;
; INDX1 -- General working indices. Used for various
; INDX1 -- General working indices. Used for various
; INDX2 purposes.
;
; NPINS -- Number of Pins. Count and pointer into the
; NPINS -- Number of Pins. Count and pointer into the
; pinned piece list.
;
; MLPTRI -- Pointer into the ply table which tells
@@ -262,7 +262,7 @@ STACK:
; MLPTRJ -- Pointer into the move list to the move that is
; currently being processed.
;
; SCRIX -- Score Index. Pointer to the score table for
; SCRIX -- Score Index. Pointer to the score table for
; the ply being examined.
;
; BESTM -- Pointer into the move list for the move that
@@ -270,12 +270,12 @@ STACK:
; Alpha-Beta pruning process.
;
; MLLST -- Pointer to the previous move placed in the move
; list. Used during generation of the move list.
; list. Used during generation of the move list.
;
; MLNXT -- Pointer to the next available space in the move
; list.
;
;***********************************************************
;************************************************************
ORG START+0
PUT START+0
M1: DW TBASE
@@ -295,10 +295,10 @@ BESTM: DW 0
MLLST: DW 0
MLNXT: DW MLIST
;***********************************************************
;************************************************************
; VARIABLES SECTION
;
; KOLOR -- Indicates computer's color. White is 0, and
; KOLOR -- Indicates computer's color. White is 0, and
; Black is 80H.
;
; COLOR -- Indicates color of the side with the move.
@@ -340,7 +340,7 @@ MLNXT: DW MLIST
; not on the move.
;
; MTRL -- A measure of the difference in material
; currently on the board. It is the total value of
; currently on the board. It is the total value of
; the white pieces minus the total value of the
; black pieces.
;
@@ -355,7 +355,7 @@ MLNXT: DW MLIST
; BMOVES -- Our very tiny book of openings. Determines
; the first move for the computer.
;
;***********************************************************
;************************************************************
KOLOR: DB 0
COLOR: DB 0
P1: DB 0
@@ -381,7 +381,7 @@ BMOVES: DB 35,55,10H
DB 85,65,10H
DB 84,64,10H
;***********************************************************
;************************************************************
; MOVE LIST SECTION
;
; MLIST -- A 2048 byte storage area for generated moves.
@@ -392,7 +392,7 @@ BMOVES: DB 35,55,10H
; in the move list.
;
; MLPTR -- The Move List is a linked list of individual
; moves each of which is 6 bytes in length. The
; moves each of which is 6 bytes in length. The
; move list pointer(MLPTR) is the link field
; within a move.
;
@@ -403,7 +403,7 @@ BMOVES: DB 35,55,10H
; board position to which the piece is moving.
;
; MLFLG -- A field in the move entry which contains flag
; information. The meaning of each bit is as
; information. The meaning of each bit is as
; follows:
; Bit 7 -- The color of any captured piece
; 0 -- White
@@ -424,7 +424,7 @@ BMOVES: DB 35,55,10H
; MLVAL -- The field in the move entry which contains the
; score assigned to the move.
;
;***********************************************************
;************************************************************
ORG START+300H
PUT START+300H
MLIST: DS 2048
@@ -435,11 +435,11 @@ MLTOP: EQU 3
MLFLG: EQU 4
MLVAL: EQU 5
;***********************************************************
;************************************************************
; PROGRAM CODE SECTION
;***********************************************************
;************************************************************
; BOARD SETUP ROUTINE
;***********************************************************
;************************************************************
; FUNCTION: To initialize the board array, setting the
; pieces in their initial positions for the
; start of the game.
@@ -449,7 +449,7 @@ MLVAL: EQU 5
; CALLS: None
;
; ARGUMENTS: None
;***********************************************************
;*************************************************************
INITBD: MOV CX,60 ; Pre-fill board with -1's
MOV DI,BOARDA
MOV AX,-1
@@ -479,16 +479,16 @@ IB2: MOV AL,[SI-8] ; Fill non-border squares
MOV B,[SI+3],94
RET
;***********************************************************
;************************************************************
; PATH ROUTINE
;***********************************************************
;************************************************************
; FUNCTION: To generate a single possible move for a given
; piece along its current path of motion including:
;
; Fetching the contents of the board at the new
; position, and setting a flag describing the
; contents:
; 0 -- New position is empty
; 0 -- New postion is empty
; 1 -- Encountered a piece of the
; opposite color
; 2 -- Encountered a piece of the
@@ -504,7 +504,7 @@ IB2: MOV AL,[SI-8] ; Fill non-border squares
;
; ARGUMENTS: Direction from the direction array giving the
; constant to be added for the new position.
;***********************************************************
;************************************************************
PATH: ADD [M2],CL ; Add direction constant to previous position
MOV SI,[M2] ; Load board index
MOV AL,[SI+BOARD] ; Get contents of board
@@ -523,9 +523,9 @@ PATH: ADD [M2],CL ; Add direction constant to previous position
PA2: MOV AL,3 ; Set off board flag
RET
;***********************************************************
;************************************************************
; PIECE MOVER ROUTINE
;***********************************************************
;************************************************************
; FUNCTION: To generate all the possible legal moves for a
; given piece.
;
@@ -537,7 +537,7 @@ PA2: MOV AL,3 ; Set off board flag
; ENPSNT
;
; ARGUMENTS: The piece to be moved.
;***********************************************************
;*************************************************************
MPIECE: XOR AL,[BX] ; Piece to move
AND AL,87H ; Clear flag bit
CMP AL,BPAWN ; Is it a black Pawn ?
@@ -624,7 +624,7 @@ MP36: CALL ENPSNT ; Try en passant capture
; ADJPTR
;
; ARGUMENTS: -- None
;***********************************************************
;************************************************************
ENPSNT: MOV AL,[M1] ; Set position of Pawn
TEST B,[P1],080H ; Check color, is it white ?
JZ EP5 ; Yes - skip
@@ -665,9 +665,9 @@ EP10: CMP AL,10 ; Is difference 10 ?
MOV AL,[M3] ; Restore "from" position
MOV [M1],AL
;***********************************************************
;************************************************************
; ADJUST MOVE LIST POINTER FOR DOUBLE MOVE
;***********************************************************
;************************************************************
; FUNCTION: -- To adjust move list pointer to link around
; second move in double move.
;
@@ -679,16 +679,16 @@ EP10: CMP AL,10 ; Is difference 10 ?
; CALLS: -- None
;
; ARGUMENTS: -- None
;***********************************************************
;*************************************************************
ADJPTR: MOV BX,[MLLST] ; Get list pointer
SUB BX,6 ; Back up list pointer
MOV [MLLST],BX ; Save list pointer
MOV [BX],0 ; Zero out link
RET ; Return
;***********************************************************
;************************************************************
; CASTLE ROUTINE
;***********************************************************
;************************************************************
; FUNCTION: -- To determine whether castling is legal
; (Queen side, King side, or both) and add it
; to the move list if it is.
@@ -700,7 +700,7 @@ ADJPTR: MOV BX,[MLLST] ; Get list pointer
; ADJPTR
;
; ARGUMENTS: -- None
;***********************************************************
;************************************************************
CASTLE:
TEST B,[P1],008H ; Has king moved ?
JNZ RET ; Yes - return
@@ -759,9 +759,9 @@ CA20: MOV AL,CH ; Scan Index
MOV CX,01FCH ; Set Queen-side initial values
JMP CA5 ; Jump
;***********************************************************
;************************************************************
; ADMOVE ROUTINE
;***********************************************************
;************************************************************
; FUNCTION: -- To add a move to the move list
;
; CALLED BY: -- MPIECE
@@ -771,7 +771,7 @@ CA20: MOV AL,CH ; Scan Index
; CALLS: -- None
;
; ARGUMENT: -- None
;***********************************************************
;*************************************************************
ADMOVE: MOV DX,[MLNXT] ; Addr of next loc in move list
MOV BX,MLEND ; Address of list end
SUB BX,DX ; Calculate difference
@@ -797,7 +797,7 @@ AM5: XCHG DX,DI ; Address of move area
MOV [MLNXT],DI ; Save address for next move
MOV DI,DX
RET ; Return
AM10: MOV [BX],0 ; Abort entry on table ovflow
AM10: MOV [BX],0 ; Abort entry on table ovflow
RET
;***********************************************************
@@ -915,27 +915,27 @@ ATTACK: PUSH CX ; Save Register CX
CALL ATKADJ ; Scan adjacent squares
MOV AH,KNIGHT ; Check for a Knight
CALL ATKADJ ; Scan adjacent squares
MOV AH,20H ; Bit 5 set
MOV AH,20H ; Pawn attack flag
MOV AL,[BP+11] ; Get piece at +11
AND AL,87H ; Clear flag bit
CMP AL,BPAWN ; Black Pawn ?
JNZ AT5 ; No - jump
OR [BP+11],AH ; Turn on bit 5
OR [BP+11],AH ; Set Pawn attack flag
AT5: MOV AL,[BP+9] ; Get piece at +9
AND AL,87H ; Clear flag bit
CMP AL,BPAWN ; Black Pawn ?
JNZ AT10 ; No - jump
OR [BP+9],AH ; Turn on bit 5
OR [BP+9],AH ; Set Pawn attack flag
AT10: MOV AL,[BP-11] ; Get piece at -11
AND AL,87H ; Clear flag bit
CMP AL,PAWN ; White Pawn ?
JNZ AT15 ; No - jump
OR [BP-11],AH ; Turn on bit 5
OR [BP-11],AH ; Set Pawn attack flag
AT15: MOV AL,[BP-9] ; Get piece at -9
AND AL,87H ; Clear flag bit
CMP AL,PAWN ; White Pawn ?
JNZ AT20 ; No - jump
OR [BP-9],AH ; Turn on bit 5
OR [BP-9],AH ; Set Pawn attack flag
AT20: MOV SI,DIRECT+TBASE ; Load direction table
MOV AH,BISHOP ; Check for a Bishop
CALL ATKOUT ; Scan outwards
@@ -994,20 +994,20 @@ AO5: MOV DX,0C0H ; Bitmask for color flags
MOV DI,BP ; Load pointer to piece
AO10: ADD DI,BX ; Add direction constant
MOV AL,[DI] ; Get attacking piece
AND AL,27H ; Get piece type and bit 5
AND AL,27H ; Get piece type and Pawn attack flag
JZ AO10 ; No piece, keep going
CMP AL,AH ; Same as what we want ?
JZ AO22 ; Yes - jump
CMP AL,QUEEN ; Queen ?
JZ AO20 ; Yes - jump
CMP AL,PAWN+20H ; Pawn with bit 5 ?
CMP AL,PAWN+20H ; Pawn with Pawn attack flag ?
JZ AO21 ; Yes - jump
AO15: LOOP AO5 ; Go check for next direction
RET ; Return
AO20: INC DH ; Set Queen found flag
AO21: AND B,[DI],0DFH ; Remove bit 5 for piece
AO21: AND B,[DI],0DFH ; Remove Pawn attack flag
AO22: MOV AL,[DI] ; Get piece
ADD AL,80H ; CY if back, NC if white
ADD AL,80H ; CY if black, NC if white
RCR AL ; Bit 7 set if black, bit 6 if white
AND DL,AL ; Keep only bits 6 and 7
JZ AO15 ; Nothing, next direction
@@ -1030,7 +1030,8 @@ AO22: MOV AL,[DI] ; Get piece
; the aforementioned routines as soon as an
; attacker of the opposite color is encountered.
;
; CALLED BY: -- ATTACK
; CALLED BY: -- ATKADJ
; ATKOUT
;
; CALLS: -- None
;
@@ -1046,16 +1047,16 @@ ATKCHK: MOV AL,[DI] ; Get piece
MOV AX,0DFFFH ; FF (border) in AL and DF in AH
CMP [BP+9],AL ; Is +9 border ?
JZ ACK5 ; Yes, jump
AND [BP+9],AH ; Remove bit 5 for piece
AND [BP+9],AH ; Remove Pawn attack flag
ACK5: CMP [BP+11],AL ; Is +11 border ?
JZ ACK6 ; Yes - jump
AND [BP+11],AH ; Remove bit 5 for piece
AND [BP+11],AH ; Remove Pawn attack flag
ACK6: CMP [BP-9],AL ; Is -9 border ?
JZ ACK7 ; Yes - jump
AND [BP-9],AH ; Remove bit 5 for piece
AND [BP-9],AH ; Remove Pawn attack flag
ACK7: CMP [BP-11],AL ; Is -11 border ?
JZ ACK8 ; Yes - jump
AND [BP-11],AH ; Remove bit 5 for piece
AND [BP-11],AH ; Remove Pawn attack flag
ACK8: MOV AL,1 ; Set attacker found flag
POP CX ; Restore CX reg
RET ; Return from ATTACK
@@ -2304,4 +2305,4 @@ IY: DS 2
BC: DS 2
DE: DS 2
HL: DS 2