mirror of
https://github.com/microsoft/MS-DOS.git
synced 2024-12-01 18:15:47 +00:00
868 lines
21 KiB
NASM
868 lines
21 KiB
NASM
|
TITLE DEBUASM
|
|||
|
|
|
|||
|
|
; Code for the UASSEMble command in the debugger
|
|||
|
|
|
|||
|
|
.xlist
|
|||
|
|
.xcref
|
|||
|
|
INCLUDE DEBEQU.ASM
|
|||
|
|
INCLUDE DOSSYM.ASM
|
|||
|
|
.cref
|
|||
|
|
.list
|
|||
|
|
|
|||
|
|
|
|||
|
|
CODE SEGMENT PUBLIC BYTE 'CODE'
|
|||
|
|
CODE ENDS
|
|||
|
|
|
|||
|
|
CONST SEGMENT PUBLIC BYTE
|
|||
|
|
|
|||
|
|
EXTRN SYNERR:BYTE
|
|||
|
|
EXTRN NSEG:WORD,SISAVE:WORD,BPSAVE:WORD,DISAVE:WORD
|
|||
|
|
EXTRN BXSAVE:WORD,DSSAVE:WORD,ESSAVE:WORD,CSSAVE:WORD,IPSAVE:WORD
|
|||
|
|
EXTRN SSSAVE:WORD,CXSAVE:WORD,SPSAVE:WORD,FSAVE:WORD
|
|||
|
|
EXTRN DISTAB:WORD,SHFTAB:WORD,IMMTAB:WORD,GRP1TAB:WORD,GRP2TAB:WORD
|
|||
|
|
EXTRN DBMN:BYTE,ESCMN:BYTE,DISPB:WORD,STACK:BYTE,REG8:BYTE
|
|||
|
|
EXTRN REG16:BYTE,SREG:BYTE,SIZ8:BYTE,SEGTAB:WORD,M8087_TAB:BYTE
|
|||
|
|
EXTRN FI_TAB:BYTE,SIZE_TAB:BYTE,MD9_TAB:BYTE,MD9_TAB2:BYTE
|
|||
|
|
EXTRN MDB_TAB:BYTE,MDB_TAB2:BYTE,MDD_TAB:BYTE,MDD_TAB2:BYTE
|
|||
|
|
EXTRN MDF_TAB:BYTE
|
|||
|
|
|
|||
|
|
CONST ENDS
|
|||
|
|
|
|||
|
|
DATA SEGMENT PUBLIC BYTE
|
|||
|
|
|
|||
|
|
EXTRN DISADD:BYTE,DISCNT:WORD,BYTCNT:BYTE,TEMP:BYTE,AWORD:BYTE
|
|||
|
|
EXTRN MIDFLD:BYTE,MODE:BYTE,REGMEM:BYTE,OPCODE:WORD,OPBUF:BYTE
|
|||
|
|
EXTRN INDEX:WORD
|
|||
|
|
|
|||
|
|
DATA ENDS
|
|||
|
|
|
|||
|
|
DG GROUP CODE,CONST,DATA
|
|||
|
|
|
|||
|
|
|
|||
|
|
CODE SEGMENT PUBLIC BYTE 'CODE'
|
|||
|
|
ASSUME CS:DG,DS:DG,ES:DG,SS:DG
|
|||
|
|
|
|||
|
|
|
|||
|
|
PUBLIC UNASSEM
|
|||
|
|
PUBLIC DISASLN,MEMIMM,JMPCALL,SIGNIMM,ALUFROMREG,WORDTOALU
|
|||
|
|
PUBLIC GRP2,PREFIX,OUTVARW,GRP1,SSPRE,MOVSEGTO,DSPRE,SHIFT
|
|||
|
|
PUBLIC ESPRE,IMMED,CSPRE,OUTVARB,CHK10,ACCIMM,INT3,INVARB
|
|||
|
|
PUBLIC MOVSEGFROM,LOADACC,OUTFIXB,XCHGAX,REGIMMW,SHORTJMP
|
|||
|
|
PUBLIC SAV8,M8087,M8087_DB,M8087_DF,M8087_D9,M8087_DD
|
|||
|
|
PUBLIC SAV16,SAVHEX,INFIXW,REGIMMB,OUTFIXW,SHIFTV,LONGJMP
|
|||
|
|
PUBLIC INVARW,STOREACC,INFIXB,NOOPERANDS,ALUTOREG
|
|||
|
|
PUBLIC SEGOP,REGOP,GETADDR
|
|||
|
|
|
|||
|
|
EXTRN CRLF:NEAR,PRINTMES:NEAR,BLANK:NEAR,TAB:NEAR,OUT:NEAR
|
|||
|
|
EXTRN HEX:NEAR,DEFAULT:NEAR,OUTSI:NEAR,OUTDI:NEAR
|
|||
|
|
|
|||
|
|
UNASSEM:
|
|||
|
|
MOV BP,[CSSAVE] ; Default code segment
|
|||
|
|
MOV DI,OFFSET DG:DISADD ; Default address
|
|||
|
|
MOV CX,DISPB ; Default length
|
|||
|
|
SHR CX,1
|
|||
|
|
SHR CX,1
|
|||
|
|
CALL DEFAULT
|
|||
|
|
MOV WORD PTR [DISADD],DX ; Displacement of disassembly
|
|||
|
|
MOV WORD PTR [DISADD+2],AX ; Segment
|
|||
|
|
MOV WORD PTR [DISCNT],CX ; No. of bytes (but whole instructions)
|
|||
|
|
DISLP:
|
|||
|
|
CALL DISASLN ; Disassemble one line
|
|||
|
|
CALL CRLF
|
|||
|
|
TEST [DISCNT],-1 ; See if we've used up the range
|
|||
|
|
JNZ DISLP
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
GOTDIS: PUSH DS ; RE-GET LAST BYTE
|
|||
|
|
PUSH SI
|
|||
|
|
LDS SI,DWORD PTR [DISADD]
|
|||
|
|
MOV AL,[SI-1]
|
|||
|
|
POP SI
|
|||
|
|
POP DS
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
GETDIS:
|
|||
|
|
PUSH DS
|
|||
|
|
LDS SI,DWORD PTR [DISADD]
|
|||
|
|
LODSB ; Get the next byte of code
|
|||
|
|
POP DS
|
|||
|
|
MOV WORD PTR [DISADD],SI ; Update pointer
|
|||
|
|
PUSH AX
|
|||
|
|
CALL HEX ; Display each code byte
|
|||
|
|
MOV SI,[DISCNT]
|
|||
|
|
OR SI,SI ; Check if range exhausted
|
|||
|
|
JZ ENDRNG ; If so, don't wrap around
|
|||
|
|
DEC SI ; Count off the bytes
|
|||
|
|
MOV [DISCNT],SI
|
|||
|
|
ENDRNG:
|
|||
|
|
INC BYTE PTR[BYTCNT] ; Keep track of no. of bytes per line
|
|||
|
|
POP AX
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
DSPRE: INC BYTE PTR [NSEG+1]
|
|||
|
|
SSPRE: INC BYTE PTR [NSEG+1]
|
|||
|
|
CSPRE: INC BYTE PTR [NSEG+1]
|
|||
|
|
ESPRE: INC BYTE PTR [NSEG+1]
|
|||
|
|
|
|||
|
|
PREFIX:
|
|||
|
|
POP BX ; Dump off return address
|
|||
|
|
CALL FINLN
|
|||
|
|
CALL CRLF
|
|||
|
|
DISASLN:
|
|||
|
|
PUSH DS
|
|||
|
|
LDS SI,DWORD PTR [DISADD]
|
|||
|
|
CALL OUTSI ; Show disassembly address
|
|||
|
|
POP DS
|
|||
|
|
CALL BLANK
|
|||
|
|
DISASLN1:
|
|||
|
|
MOV BYTE PTR [BYTCNT],0 ; Count of code bytes per line
|
|||
|
|
MOV DI,OFFSET DG:OPBUF ; Point to operand buffer
|
|||
|
|
MOV AL," "
|
|||
|
|
MOV CX,OPBUFLEN-1 ; Don't do last byte which has end marker
|
|||
|
|
REP STOSB ; Initialize operand buffer to blanks
|
|||
|
|
MOV BYTE PTR [DI]," "+80H
|
|||
|
|
CALL GETDIS ; Get opcode
|
|||
|
|
MOV AH,0
|
|||
|
|
MOV BX,AX
|
|||
|
|
AND AL,1 ; Mask to "W" bit
|
|||
|
|
MOV [AWORD],AL
|
|||
|
|
MOV AL,BL ; Restore opcode
|
|||
|
|
SHL BX,1
|
|||
|
|
SHL BX,1 ; Multiply opcode by 4
|
|||
|
|
ADD BX,OFFSET DG:DISTAB
|
|||
|
|
MOV DX,[BX] ; Get pointer to mnemonic from table
|
|||
|
|
MOV [OPCODE],DX ; Save it until line is complete
|
|||
|
|
MOV DI,OFFSET DG:OPBUF ; Initialize for opcode routines
|
|||
|
|
CALL WORD PTR [BX+2] ; Dispatch to opcode routine
|
|||
|
|
FINLN:
|
|||
|
|
MOV SI,OFFSET DG:DISADD
|
|||
|
|
MOV AH,[BYTCNT] ; See how many bytes in this instruction
|
|||
|
|
ADD AH,AH ; Each uses two characters
|
|||
|
|
MOV AL,14 ; Amount of space we want to use
|
|||
|
|
SUB AL,AH ; See how many fill characters needed
|
|||
|
|
CBW
|
|||
|
|
XCHG CX,AX ; Parameter for TAB needed in CX
|
|||
|
|
CALL TAB
|
|||
|
|
MOV SI,[OPCODE]
|
|||
|
|
OR SI,SI ; MAKE SURE THERE IS SOMETHING TO PRINT
|
|||
|
|
JZ NOOPC
|
|||
|
|
CALL PRINTMES ; Print opcode mnemonic
|
|||
|
|
MOV AL,9
|
|||
|
|
CALL OUT ; and a tab
|
|||
|
|
NOOPC: MOV SI,OFFSET DG:OPBUF
|
|||
|
|
JMP PRINTMES ; and the operand buffer
|
|||
|
|
|
|||
|
|
GETMODE:
|
|||
|
|
CALL GETDIS ; Get the address mode byte
|
|||
|
|
MOV AH,AL
|
|||
|
|
AND AL,7 ; Mask to "r/m" field
|
|||
|
|
MOV [REGMEM],AL
|
|||
|
|
SHR AH,1
|
|||
|
|
SHR AH,1
|
|||
|
|
SHR AH,1
|
|||
|
|
MOV AL,AH
|
|||
|
|
AND AL,7 ; Mask to center 3-bit field
|
|||
|
|
MOV [MIDFLD],AL
|
|||
|
|
SHR AH,1
|
|||
|
|
SHR AH,1
|
|||
|
|
SHR AH,1
|
|||
|
|
MOV [MODE],AH ; Leaving 2-bit "MOD" field
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
IMMED:
|
|||
|
|
MOV BX,OFFSET DG:IMMTAB
|
|||
|
|
CALL GETMNE
|
|||
|
|
FINIMM:
|
|||
|
|
CALL TESTREG
|
|||
|
|
JMP SHORT IMM
|
|||
|
|
|
|||
|
|
MEMIMM:
|
|||
|
|
CALL GETMODE
|
|||
|
|
JMP SHORT FINIMM
|
|||
|
|
|
|||
|
|
ACCIMM:
|
|||
|
|
XOR AL,AL
|
|||
|
|
IMM1:
|
|||
|
|
CALL SAVREG
|
|||
|
|
IMM:
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
TEST BYTE PTR [AWORD],-1
|
|||
|
|
JNZ SAV16
|
|||
|
|
SAV8:
|
|||
|
|
CALL GETDIS
|
|||
|
|
JMP SHORT SAVHEX
|
|||
|
|
|
|||
|
|
LONGJMP:
|
|||
|
|
PUSH DI
|
|||
|
|
MOV DI,OFFSET DG:TEMP
|
|||
|
|
CALL SAV16
|
|||
|
|
POP DI
|
|||
|
|
CALL SAV16
|
|||
|
|
MOV AL,":"
|
|||
|
|
STOSB
|
|||
|
|
MOV SI,OFFSET DG:TEMP
|
|||
|
|
MOV CX,4
|
|||
|
|
MOVDIG:
|
|||
|
|
LODSB
|
|||
|
|
STOSB
|
|||
|
|
LOOP MOVDIG
|
|||
|
|
RET
|
|||
|
|
SAV16:
|
|||
|
|
CALL GETDIS ; Get low byte
|
|||
|
|
MOV DL,AL
|
|||
|
|
CALL GETDIS ; Get high byte
|
|||
|
|
MOV DH,AL
|
|||
|
|
CALL SAVHEX ; Convert and store high byte
|
|||
|
|
MOV AL,DL
|
|||
|
|
SAVHEX:
|
|||
|
|
MOV AH,AL
|
|||
|
|
SHR AL,1
|
|||
|
|
SHR AL,1
|
|||
|
|
SHR AL,1
|
|||
|
|
SHR AL,1
|
|||
|
|
CALL SAVDIG
|
|||
|
|
MOV AL,AH
|
|||
|
|
SAVDIG:
|
|||
|
|
AND AL,0FH
|
|||
|
|
ADD AL,90H
|
|||
|
|
DAA
|
|||
|
|
ADC AL,40H
|
|||
|
|
DAA
|
|||
|
|
STOSB
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
CHK10:
|
|||
|
|
CALL GETDIS
|
|||
|
|
CMP AL,10
|
|||
|
|
JNZ SAVHEX
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
SIGNIMM:
|
|||
|
|
MOV BX,OFFSET DG:IMMTAB
|
|||
|
|
CALL GETMNE
|
|||
|
|
CALL TESTREG
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
SAVD8:
|
|||
|
|
CALL GETDIS ; Get signed 8-bit number
|
|||
|
|
CBW
|
|||
|
|
MOV DX,AX ; Save true 16-bit value in DX
|
|||
|
|
MOV AH,AL
|
|||
|
|
MOV AL,"+"
|
|||
|
|
OR AH,AH
|
|||
|
|
; JZ nosign
|
|||
|
|
JNS POSITIV ; OK if positive
|
|||
|
|
MOV AL,"-"
|
|||
|
|
NEG AH ; Get magnitude if negative
|
|||
|
|
POSITIV:
|
|||
|
|
STOSB
|
|||
|
|
; nosign:
|
|||
|
|
MOV AL,AH
|
|||
|
|
JMP SHORT SAVHEX
|
|||
|
|
|
|||
|
|
ALUFROMREG:
|
|||
|
|
CALL GETADDR
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
REGFLD:
|
|||
|
|
MOV AL,[MIDFLD]
|
|||
|
|
SAVREG:
|
|||
|
|
MOV SI,OFFSET DG:REG8
|
|||
|
|
CMP BYTE PTR [AWORD],1
|
|||
|
|
JNE FNDREG
|
|||
|
|
SAVREG16:
|
|||
|
|
MOV SI,OFFSET DG:REG16
|
|||
|
|
FNDREG:
|
|||
|
|
CBW
|
|||
|
|
ADD SI,AX
|
|||
|
|
ADD SI,AX
|
|||
|
|
MOVSW
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
SEGOP:
|
|||
|
|
SHR AL,1
|
|||
|
|
SHR AL,1
|
|||
|
|
SHR AL,1
|
|||
|
|
SAVSEG:
|
|||
|
|
AND AL,3
|
|||
|
|
MOV SI,OFFSET DG:SREG
|
|||
|
|
JMP SHORT FNDREG
|
|||
|
|
|
|||
|
|
REGOP:
|
|||
|
|
AND AL,7
|
|||
|
|
JMP SHORT SAVREG16
|
|||
|
|
|
|||
|
|
MOVSEGTO:
|
|||
|
|
MOV BYTE PTR [AWORD],1
|
|||
|
|
CALL GETADDR
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,[MIDFLD]
|
|||
|
|
JMP SHORT SAVSEG
|
|||
|
|
|
|||
|
|
MOVSEGFROM:
|
|||
|
|
CALL GETMODE
|
|||
|
|
CALL SAVSEG
|
|||
|
|
MOV BYTE PTR [AWORD],1
|
|||
|
|
JMP SHORT MEMOP2
|
|||
|
|
|
|||
|
|
GETADDR:
|
|||
|
|
CALL GETMODE
|
|||
|
|
JMP SHORT ADDRMOD
|
|||
|
|
|
|||
|
|
WORDTOALU:
|
|||
|
|
MOV BYTE PTR [AWORD],1
|
|||
|
|
ALUTOREG:
|
|||
|
|
CALL GETMODE
|
|||
|
|
CALL REGFLD
|
|||
|
|
MEMOP2:
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
ADDRMOD:
|
|||
|
|
CMP BYTE PTR [MODE],3
|
|||
|
|
MOV AL,[REGMEM]
|
|||
|
|
JE SAVREG
|
|||
|
|
XOR BX,BX
|
|||
|
|
MOV BYTE PTR [NSEG],3
|
|||
|
|
MOV BYTE PTR [DI],"["
|
|||
|
|
INC DI
|
|||
|
|
CMP AL,6
|
|||
|
|
JNE NODRCT
|
|||
|
|
CMP BYTE PTR [MODE],0
|
|||
|
|
JE DIRECT ; Mode=0 and R/M=6 means direct addr.
|
|||
|
|
NODRCT:
|
|||
|
|
MOV DL,AL
|
|||
|
|
CMP AL,1
|
|||
|
|
JBE USEBX
|
|||
|
|
CMP AL,7
|
|||
|
|
JE USEBX
|
|||
|
|
CMP AL,3
|
|||
|
|
JBE USEBP
|
|||
|
|
CMP AL,6
|
|||
|
|
JNE CHKPLS
|
|||
|
|
USEBP:
|
|||
|
|
MOV BX,[BPSAVE]
|
|||
|
|
MOV BYTE PTR [NSEG],2 ; Change default to Stack Segment
|
|||
|
|
MOV AX,BPREG
|
|||
|
|
SAVBASE:
|
|||
|
|
STOSW
|
|||
|
|
CHKPLS:
|
|||
|
|
CMP DL,4
|
|||
|
|
JAE NOPLUS
|
|||
|
|
MOV AL,"+"
|
|||
|
|
STOSB
|
|||
|
|
NOPLUS:
|
|||
|
|
CMP DL,6
|
|||
|
|
JAE DOMODE ; No index register
|
|||
|
|
AND DL,1 ; Even for SI, odd for DI
|
|||
|
|
JZ USESI
|
|||
|
|
ADD BX,[DISAVE]
|
|||
|
|
MOV AX,DIREG
|
|||
|
|
SAVINDX:
|
|||
|
|
STOSW
|
|||
|
|
DOMODE:
|
|||
|
|
MOV AL,[MODE]
|
|||
|
|
OR AL,AL
|
|||
|
|
JZ CLOSADD ; If no displacement, then done
|
|||
|
|
CMP AL,2
|
|||
|
|
JZ ADDDIR
|
|||
|
|
CALL SAVD8 ; Signed 8-bit displacement
|
|||
|
|
ADDCLOS:
|
|||
|
|
ADD BX,DX
|
|||
|
|
CLOSADD:
|
|||
|
|
MOV AL,"]"
|
|||
|
|
STOSB
|
|||
|
|
MOV [INDEX],BX
|
|||
|
|
NOOPERANDS:
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
ADDDIR:
|
|||
|
|
MOV AL,"+"
|
|||
|
|
STOSB
|
|||
|
|
DIRECT:
|
|||
|
|
CALL SAV16
|
|||
|
|
JMP SHORT ADDCLOS
|
|||
|
|
|
|||
|
|
USEBX:
|
|||
|
|
MOV BX,[BXSAVE]
|
|||
|
|
MOV AX,BXREG
|
|||
|
|
JMP SHORT SAVBASE
|
|||
|
|
|
|||
|
|
USESI:
|
|||
|
|
ADD BX,[SISAVE]
|
|||
|
|
MOV AX,SIREG
|
|||
|
|
JMP SHORT SAVINDX
|
|||
|
|
|
|||
|
|
SHORTJMP:
|
|||
|
|
CALL GETDIS
|
|||
|
|
CBW
|
|||
|
|
ADD AX,WORD PTR [DISADD]
|
|||
|
|
XCHG DX,AX
|
|||
|
|
SAVJMP:
|
|||
|
|
MOV AL,DH
|
|||
|
|
CALL SAVHEX
|
|||
|
|
MOV AL,DL
|
|||
|
|
JMP SAVHEX
|
|||
|
|
|
|||
|
|
JMPCALL:
|
|||
|
|
CALL GETDIS
|
|||
|
|
MOV DL,AL
|
|||
|
|
CALL GETDIS
|
|||
|
|
MOV DH,AL
|
|||
|
|
ADD DX,WORD PTR [DISADD]
|
|||
|
|
JMP SHORT SAVJMP
|
|||
|
|
|
|||
|
|
XCHGAX:
|
|||
|
|
AND AL,7
|
|||
|
|
CALL SAVREG16
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
XOR AL,AL
|
|||
|
|
JMP SAVREG16
|
|||
|
|
|
|||
|
|
LOADACC:
|
|||
|
|
XOR AL,AL
|
|||
|
|
CALL SAVREG
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
MEMDIR:
|
|||
|
|
MOV AL,"["
|
|||
|
|
STOSB
|
|||
|
|
XOR BX,BX
|
|||
|
|
MOV BYTE PTR [NSEG],3
|
|||
|
|
JMP DIRECT
|
|||
|
|
|
|||
|
|
STOREACC:
|
|||
|
|
CALL MEMDIR
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
XOR AL,AL
|
|||
|
|
JMP SAVREG
|
|||
|
|
|
|||
|
|
REGIMMB:
|
|||
|
|
MOV BYTE PTR [AWORD],0
|
|||
|
|
JMP SHORT REGIMM
|
|||
|
|
REGIMMW:
|
|||
|
|
MOV BYTE PTR [AWORD],1
|
|||
|
|
REGIMM:
|
|||
|
|
AND AL,7
|
|||
|
|
JMP IMM1
|
|||
|
|
|
|||
|
|
INT3:
|
|||
|
|
MOV BYTE PTR [DI],"3"
|
|||
|
|
RET
|
|||
|
|
;
|
|||
|
|
; 8087 instructions whose first byte is 0dfh
|
|||
|
|
;
|
|||
|
|
M8087_DF:
|
|||
|
|
CALL GET64F
|
|||
|
|
JZ ISDD3
|
|||
|
|
MOV SI,OFFSET DG:MDF_TAB
|
|||
|
|
JMP NODB3
|
|||
|
|
;
|
|||
|
|
; 8087 instructions whose first byte is 0ddh
|
|||
|
|
;
|
|||
|
|
M8087_DD:
|
|||
|
|
CALL GET64F
|
|||
|
|
JZ ISDD3
|
|||
|
|
MOV SI,OFFSET DG:MDD_TAB
|
|||
|
|
JMP NOD93
|
|||
|
|
|
|||
|
|
ISDD3:
|
|||
|
|
MOV AL,DL
|
|||
|
|
TEST AL,100B
|
|||
|
|
JZ ISSTI
|
|||
|
|
JMP ESC0
|
|||
|
|
ISSTI: AND AL,11B
|
|||
|
|
MOV SI,OFFSET DG:MDD_TAB2
|
|||
|
|
MOV CL,AL
|
|||
|
|
CALL MOVBYT
|
|||
|
|
JMP PUTRST
|
|||
|
|
;
|
|||
|
|
; 8087 instructions whose first byte is 0dbh
|
|||
|
|
;
|
|||
|
|
M8087_DB:
|
|||
|
|
CALL GET64F
|
|||
|
|
JZ ISDB3
|
|||
|
|
MOV SI,OFFSET DG:MDB_TAB
|
|||
|
|
NODB3: CALL PUTOP
|
|||
|
|
CALL PUTSIZE
|
|||
|
|
JMP ADDRMOD
|
|||
|
|
|
|||
|
|
ISDB3:
|
|||
|
|
MOV AL,DL
|
|||
|
|
TEST AL,100B
|
|||
|
|
JNZ ISDBIG
|
|||
|
|
ESC0V: JMP ESC0
|
|||
|
|
ISDBIG: CALL GOTDIS
|
|||
|
|
AND AL,11111B
|
|||
|
|
CMP AL,4
|
|||
|
|
JAE ESC0V
|
|||
|
|
MOV SI,OFFSET DG:MDB_TAB2
|
|||
|
|
JMP DOBIG
|
|||
|
|
;
|
|||
|
|
; 8087 instructions whose first byte is 0d9h
|
|||
|
|
;
|
|||
|
|
M8087_D9:
|
|||
|
|
CALL GET64F
|
|||
|
|
JZ ISD93
|
|||
|
|
|
|||
|
|
MOV SI,OFFSET DG:MD9_TAB
|
|||
|
|
NOD93: CALL PUTOP
|
|||
|
|
AND AL,111B
|
|||
|
|
CMP AL,3
|
|||
|
|
JA NOSHO
|
|||
|
|
MOV AL,DL
|
|||
|
|
CALL PUTSIZE
|
|||
|
|
NOSHO: JMP ADDRMOD
|
|||
|
|
|
|||
|
|
ISD93: MOV AL,DL
|
|||
|
|
TEST AL,100B
|
|||
|
|
JNZ ISD9BIG
|
|||
|
|
AND AL,111B
|
|||
|
|
OR AL,AL
|
|||
|
|
JNZ NOTFLD
|
|||
|
|
MOV AX,"DL"
|
|||
|
|
STOSW
|
|||
|
|
JMP SHORT PUTRST
|
|||
|
|
NOTFLD: CMP AL,1
|
|||
|
|
JNZ NOTFXCH
|
|||
|
|
MOV AX,"CX"
|
|||
|
|
STOSW
|
|||
|
|
MOV AL,"H"
|
|||
|
|
JMP SHORT PUTRST1
|
|||
|
|
NOTFXCH:CMP AL,3
|
|||
|
|
JNZ NOTFSTP
|
|||
|
|
MOV AX,"TS"
|
|||
|
|
STOSW
|
|||
|
|
MOV AL,"P"
|
|||
|
|
PUTRST1:STOSB
|
|||
|
|
PUTRST: MOV AL,9
|
|||
|
|
STOSB
|
|||
|
|
JMP PUTST0
|
|||
|
|
|
|||
|
|
NOTFSTP:CALL GOTDIS
|
|||
|
|
CMP AL,11010000B ; CHECK FOR FNOP
|
|||
|
|
JZ GOTFNOP
|
|||
|
|
JMP ESC0
|
|||
|
|
GOTFNOP:MOV AX,"ON"
|
|||
|
|
STOSW
|
|||
|
|
MOV AL,"P"
|
|||
|
|
STOSB
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
ISD9BIG:
|
|||
|
|
CALL GOTDIS ; GET THE MODE BYTE
|
|||
|
|
MOV SI,OFFSET DG:MD9_TAB2
|
|||
|
|
DOBIG: AND AL,11111B
|
|||
|
|
MOV CL,AL
|
|||
|
|
JMP MOVBYT
|
|||
|
|
;
|
|||
|
|
; entry point for the remaining 8087 instructions
|
|||
|
|
;
|
|||
|
|
M8087:
|
|||
|
|
CALL GET64
|
|||
|
|
CALL PUTFI ; PUT FIRST PART OF OPCODE
|
|||
|
|
MOV AL,DL
|
|||
|
|
CMP BYTE PTR [MODE],11B ; CHECK FOR REGISTER MODE
|
|||
|
|
JZ MODEIS3
|
|||
|
|
CALL PUTMN ; PUT MIDDLE PART OF OPCODE
|
|||
|
|
NO3: MOV AL,9 ; OUTPUT A TAB
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,DL
|
|||
|
|
CALL PUTSIZE ; OUTPUT THE OPERAND SIZE
|
|||
|
|
JMP ADDRMOD
|
|||
|
|
|
|||
|
|
MODEIS3:
|
|||
|
|
TEST AL,100000B ; D BIT SET?
|
|||
|
|
JZ MPUT ; NOPE...
|
|||
|
|
TEST AL,000100B ; FDIV OR FSUB?
|
|||
|
|
JZ MPUT ; NOPE...
|
|||
|
|
XOR AL,1 ; REVERSE SENSE OF R
|
|||
|
|
MOV DL,AL ; SAVE CHANGE
|
|||
|
|
MPUT: CALL PUTMN ; PUT MIDDLE PART OF OPCODE
|
|||
|
|
MOV AL,DL
|
|||
|
|
TEST AL,010000B
|
|||
|
|
JZ NOPSH
|
|||
|
|
MOV AL,"P"
|
|||
|
|
STOSB
|
|||
|
|
NOPSH: MOV AL,9
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,DL
|
|||
|
|
AND AL,00000111B
|
|||
|
|
CMP AL,2 ; FCOM
|
|||
|
|
JZ PUTST0
|
|||
|
|
CMP AL,3 ; FCOMP
|
|||
|
|
JZ PUTST0
|
|||
|
|
MOV AL,DL
|
|||
|
|
TEST AL,100000B
|
|||
|
|
JZ PUTSTST0
|
|||
|
|
;
|
|||
|
|
; output 8087 registers in the form st(n),st
|
|||
|
|
;
|
|||
|
|
PUTST0ST:
|
|||
|
|
CALL PUTST0
|
|||
|
|
MOV AL,','
|
|||
|
|
ISCOMP: STOSB
|
|||
|
|
|
|||
|
|
PUTST: MOV AX,"TS"
|
|||
|
|
STOSW
|
|||
|
|
RET
|
|||
|
|
;
|
|||
|
|
; output 8087 registers in the form st,st(n)
|
|||
|
|
;
|
|||
|
|
PUTSTST0:
|
|||
|
|
CALL PUTST
|
|||
|
|
MOV AL,','
|
|||
|
|
STOSB
|
|||
|
|
|
|||
|
|
PUTST0: CALL PUTST
|
|||
|
|
MOV AL,"("
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,[REGMEM]
|
|||
|
|
ADD AL,"0"
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,")"
|
|||
|
|
STOSB
|
|||
|
|
RET
|
|||
|
|
;
|
|||
|
|
; output an 8087 mnemonic
|
|||
|
|
;
|
|||
|
|
PUTMN: MOV SI,OFFSET DG:M8087_TAB
|
|||
|
|
MOV CL,AL
|
|||
|
|
AND CL,00000111B
|
|||
|
|
JMP SHORT MOVBYT
|
|||
|
|
;
|
|||
|
|
; output either 'FI' or 'F' for first byte of opcode
|
|||
|
|
;
|
|||
|
|
PUTFI: MOV SI,OFFSET DG:FI_TAB
|
|||
|
|
JMP SHORT PUTFI2
|
|||
|
|
;
|
|||
|
|
; output size (dword, tbyte, etc.)
|
|||
|
|
;
|
|||
|
|
PUTSIZE:MOV SI,OFFSET DG:SIZE_TAB
|
|||
|
|
PUTFI2: CMP BYTE PTR [MODE],11B ; check if 8087 register
|
|||
|
|
JNZ PUTFI3
|
|||
|
|
AND AL,111000B ; LOOK FOR INVALID FORM OF 0DAH OPERANDS
|
|||
|
|
CMP AL,010000B
|
|||
|
|
JZ ESC0PJ
|
|||
|
|
MOV AL,DL
|
|||
|
|
CMP AL,110011B ; FCOMPP
|
|||
|
|
JNZ GOFI
|
|||
|
|
CMP BYTE PTR [REGMEM],1
|
|||
|
|
JZ GOFI
|
|||
|
|
ESC0PJ: JMP ESC0P
|
|||
|
|
GOFI: XOR CL,CL
|
|||
|
|
JMP SHORT MOVBYT
|
|||
|
|
;
|
|||
|
|
; Look for qword
|
|||
|
|
;
|
|||
|
|
PUTFI3: CMP AL,111101B
|
|||
|
|
JZ GOTQU
|
|||
|
|
CMP AL,111111B
|
|||
|
|
JNZ NOTQU
|
|||
|
|
GOTQU: MOV CL,2
|
|||
|
|
JMP SHORT MOVBYT
|
|||
|
|
;
|
|||
|
|
; look for tbyte
|
|||
|
|
;
|
|||
|
|
NOTQU: CMP AL,011101B
|
|||
|
|
JZ GOTTB
|
|||
|
|
CMP AL,111100B
|
|||
|
|
JZ GOTTB
|
|||
|
|
CMP AL,111110B
|
|||
|
|
JZ GOTTB
|
|||
|
|
CMP AL,011111B
|
|||
|
|
JNZ NOTTB
|
|||
|
|
GOTTB: MOV CL,5
|
|||
|
|
JMP SHORT MOVBYT
|
|||
|
|
|
|||
|
|
NOTTB: MOV CL,4
|
|||
|
|
SHR AL,CL
|
|||
|
|
MOV CL,AL
|
|||
|
|
;
|
|||
|
|
; SI POINTS TO A TABLE OF TEXT SEPARATED BY "$"
|
|||
|
|
; CL = WHICH ELEMENT IN THE TABLE YOU WISH TO COPY TO [DI]
|
|||
|
|
;
|
|||
|
|
MOVBYT: PUSH AX
|
|||
|
|
INC CL
|
|||
|
|
MOVBYT1:DEC CL
|
|||
|
|
JZ MOVBYT3
|
|||
|
|
MOVBYT2:LODSB
|
|||
|
|
CMP AL,'$'
|
|||
|
|
JZ MOVBYT1
|
|||
|
|
JMP MOVBYT2
|
|||
|
|
MOVBYT3:LODSB
|
|||
|
|
CMP AL,'$'
|
|||
|
|
JZ MOVBYT5
|
|||
|
|
CMP AL,'@' ; THIS MEANS RESVERED OP-CODE
|
|||
|
|
JNZ MOVBYT4
|
|||
|
|
POP AX
|
|||
|
|
JMP SHORT ESC0P ; GO DO AN ESCAPE COMMAND
|
|||
|
|
MOVBYT4:STOSB
|
|||
|
|
JMP MOVBYT3
|
|||
|
|
MOVBYT5:POP AX
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
PUTOP: AND AL,111B
|
|||
|
|
MOV CL,AL
|
|||
|
|
CALL MOVBYT
|
|||
|
|
MOV AL,9
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,DL
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
GET64F: CALL GET64
|
|||
|
|
MOV AL,"F"
|
|||
|
|
STOSB
|
|||
|
|
CMP BYTE PTR [MODE],3
|
|||
|
|
MOV AL,DL
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
GET64:
|
|||
|
|
AND AL,7
|
|||
|
|
MOV DL,AL
|
|||
|
|
CALL GETMODE
|
|||
|
|
SHL DL,1
|
|||
|
|
SHL DL,1
|
|||
|
|
SHL DL,1
|
|||
|
|
OR AL,DL
|
|||
|
|
MOV DL,AL ; SAVE RESULT
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
ESC0P: POP DI ; CLEAN UP STACK
|
|||
|
|
ESC0: MOV WORD PTR [OPCODE],OFFSET DG:ESCMN
|
|||
|
|
MOV AL,DL
|
|||
|
|
MOV DI,OFFSET DG:OPBUF
|
|||
|
|
JMP SHORT ESC1
|
|||
|
|
|
|||
|
|
ESC: CALL GET64
|
|||
|
|
ESC1: CALL SAVHEX
|
|||
|
|
CMP BYTE PTR [MODE],3
|
|||
|
|
JZ SHRTESC
|
|||
|
|
MOV BYTE PTR [AWORD],1
|
|||
|
|
JMP MEMOP2
|
|||
|
|
|
|||
|
|
SHRTESC:
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
MOV AL,[REGMEM]
|
|||
|
|
AND AL,7
|
|||
|
|
JMP SAVREG
|
|||
|
|
|
|||
|
|
INVARW:
|
|||
|
|
CALL PUTAX
|
|||
|
|
JMP SHORT INVAR
|
|||
|
|
INVARB:
|
|||
|
|
CALL PUTAL
|
|||
|
|
INVAR: MOV AL,','
|
|||
|
|
STOSB
|
|||
|
|
JMP PUTDX
|
|||
|
|
|
|||
|
|
INFIXW:
|
|||
|
|
CALL PUTAX
|
|||
|
|
JMP SHORT INFIX
|
|||
|
|
INFIXB:
|
|||
|
|
CALL PUTAL
|
|||
|
|
INFIX: MOV AL,','
|
|||
|
|
STOSB
|
|||
|
|
JMP SAV8
|
|||
|
|
STOSW
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
OUTVARB:
|
|||
|
|
MOV BX,"LA"
|
|||
|
|
JMP SHORT OUTVAR
|
|||
|
|
OUTVARW:
|
|||
|
|
MOV BX,"XA"
|
|||
|
|
OUTVAR: CALL PUTDX
|
|||
|
|
OUTFV: MOV AL,','
|
|||
|
|
STOSB
|
|||
|
|
MOV AX,BX
|
|||
|
|
STOSW
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
OUTFIXB:
|
|||
|
|
MOV BX,"LA"
|
|||
|
|
JMP SHORT OUTFIX
|
|||
|
|
OUTFIXW:
|
|||
|
|
MOV BX,"XA"
|
|||
|
|
OUTFIX: CALL SAV8
|
|||
|
|
JMP OUTFV
|
|||
|
|
|
|||
|
|
PUTAL: MOV AX,"A"+4C00H ; "AL"
|
|||
|
|
JMP SHORT PUTX
|
|||
|
|
PUTAX: MOV AX,"A"+5800H ; "AX"
|
|||
|
|
JMP SHORT PUTX
|
|||
|
|
PUTDX: MOV AX,"D"+5800H ; "DX"
|
|||
|
|
PUTX: STOSW
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
SHFT:
|
|||
|
|
MOV BX,OFFSET DG:SHFTAB
|
|||
|
|
CALL GETMNE
|
|||
|
|
TESTREG:
|
|||
|
|
CMP BYTE PTR [MODE],3
|
|||
|
|
JZ NOFLG
|
|||
|
|
MOV SI,OFFSET DG:SIZE_TAB
|
|||
|
|
MOV CL,3
|
|||
|
|
TEST BYTE PTR [AWORD],-1
|
|||
|
|
JNZ TEST_1
|
|||
|
|
INC CL
|
|||
|
|
TEST_1: CALL MOVBYT
|
|||
|
|
NOFLG:
|
|||
|
|
JMP ADDRMOD
|
|||
|
|
|
|||
|
|
SHIFTV:
|
|||
|
|
CALL SHFT
|
|||
|
|
MOV AL,","
|
|||
|
|
STOSB
|
|||
|
|
MOV WORD PTR [DI],"C"+4C00H ; "CL"
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
SHIFT:
|
|||
|
|
CALL SHFT
|
|||
|
|
MOV AX,"1,"
|
|||
|
|
STOSW
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
GETMNE:
|
|||
|
|
CALL GETMODE
|
|||
|
|
MOV DL,AL
|
|||
|
|
CBW
|
|||
|
|
SHL AX,1
|
|||
|
|
ADD BX,AX
|
|||
|
|
MOV AX,[BX]
|
|||
|
|
MOV [OPCODE],AX
|
|||
|
|
MOV AL,DL
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
GRP1:
|
|||
|
|
MOV BX,OFFSET DG:GRP1TAB
|
|||
|
|
CALL GETMNE
|
|||
|
|
OR AL,AL
|
|||
|
|
JZ FINIMMJ
|
|||
|
|
JMP TESTREG
|
|||
|
|
FINIMMJ:
|
|||
|
|
JMP FINIMM
|
|||
|
|
|
|||
|
|
GRP2:
|
|||
|
|
MOV BX,OFFSET DG:GRP2TAB
|
|||
|
|
CALL GETMNE
|
|||
|
|
CMP AL,2
|
|||
|
|
JB TESTREG
|
|||
|
|
CMP AL,6
|
|||
|
|
JAE INDIRECT
|
|||
|
|
TEST AL,1
|
|||
|
|
JZ INDIRECT
|
|||
|
|
MOV AX,"AF" ; "FAR"
|
|||
|
|
STOSW
|
|||
|
|
MOV AX," R"
|
|||
|
|
STOSW
|
|||
|
|
INDIRECT:
|
|||
|
|
JMP ADDRMOD
|
|||
|
|
|
|||
|
|
CODE ENDS
|
|||
|
|
END UNASSEM
|
|||
|
|
|