M0100:
MOV SI,0080
MOV AL,[SI]
CMP AL,0A
JB 014D
JMP 015E
NOP
M010C DB 0D,0A,'TRY SNAPSHOT 0001 2003
DB 0D,0A,'TO SNAP SCREEN 0001:2003$$
M0140 DB 'SNAPSHOT.DWG',0
M014D:
MOV DX,010C
M0150:
MOV AH,09
INT 21
MOV AX,4C00
INT 21
INT 20
RET ;15B
RET
RET
M015E:
MOV SI,005D
CALL 017D ;161
MOV BX,[015C]
PUSH BX
MOV SI,006D
CALL 017D ;16C
MOV BP,[015C]
POP BX
JMP 01AD
RET ;176
RET
RET
RET
RET
RET
RET
M017D:
MOV WORD PTR [015C],0000
MOV CX,0004
MOV BX,1000
M0189:
LODSB
SUB AL,30
MOV AH,00
CMP AL,0A
JB 0194
SUB AL,07
M0194:
MUL BX
ADD [015C],AX
MOV BP,0010
MOV AX,BX
MOV DX,0000
DIV BP
MOV BX,AX
LOOP 0189
RET ;1A8
RET
RET
RET
RET
M01AD:
CLC
MOV AH,09
MOV AL,00
MOV DX,0140
INT 21
MOV [015C],AX
JNB 01C1
MOV DX,012C
JMP 0150
M01C1:
MOV AX,000E
INT 10
MOV CX,0276
M01C9:
MOV DX,00C8
M01CC:
PUSH CX
PUSH DX
PUSH ES
MOV DI,DX
MOV SI,CX
ADD CX,BP
ADD DX,BX
PUSH DX
POP DS
PUSH CX
POP ES
MOV CX,[BP+SI]
MOV DX,[BX+DI]
PUSH DX
POP ES
PUSH CX
POP DI
MOV AL,[DI]
AND AL,0F
PUSH AX
CALL 020F ;1E8
POP AX
NOP
POP ES
POP DX
POP CX
MOV AH,0C
INT 10
DEC DX
JNZ 01CC
LOOP 01C9
MOV BX,[015C]
MOV AH,3E
INT 21
M0201:
MOV AH,01
INT 16
JZ 0201
MOV AX,4C00
INT 21
INT 20
RET ;20E
M020F:
PUSH CS
POP DS
MOV [015B],AL
MOV DX,015B
MOV CX,0001
MOV BX,[015C]
MOV AH,40
INT 21
RET ;222
Would you like to order my
'Machine Code Training For The IBM-PC Using Debug.Exe'
which contains a complete desciption, with comments,
of all updated Chess COM programs and other COM programs.
Contact Louie.Pace@Xlibris.com at Xlibris.com.
(refer your order to BID 38633)