mirror of
https://github.com/microsoft/MS-DOS.git
synced 2024-11-25 23:25:47 +00:00
677 lines
16 KiB
NASM
677 lines
16 KiB
NASM
TITLE PART3 - COMMAND Transient routines.
|
||
|
||
INCLUDE COMSW.ASM
|
||
|
||
.xlist
|
||
.xcref
|
||
INCLUDE DOSSYM.ASM
|
||
INCLUDE DEVSYM.ASM
|
||
INCLUDE COMSEG.ASM
|
||
.list
|
||
.cref
|
||
|
||
INCLUDE COMEQU.ASM
|
||
|
||
|
||
DATARES SEGMENT PUBLIC
|
||
EXTRN BATCH:WORD,BATLOC:DWORD
|
||
EXTRN RETCODE:WORD,ECHOFLAG:BYTE
|
||
EXTRN SINGLECOM:WORD,FORFLAG:BYTE,UFORDRV:BYTE
|
||
EXTRN FORSET:BYTE,FORCOM:BYTE,FORVAR:BYTE,FORPTR:WORD
|
||
EXTRN FORUFCB:BYTE,FORFCB:BYTE,RE_INSTR:BYTE,RE_OUT_APP:BYTE
|
||
EXTRN RE_OUTSTR:BYTE,PIPEFLAG:BYTE
|
||
|
||
DATARES ENDS
|
||
|
||
TRANDATA SEGMENT PUBLIC
|
||
|
||
EXTRN BADLAB:BYTE,SYNTMES:BYTE,FORNESTMES:BYTE
|
||
EXTRN NOTFND:BYTE,FULDIR:BYTE,IFTAB:BYTE
|
||
TRANDATA ENDS
|
||
|
||
TRANSPACE SEGMENT PUBLIC
|
||
|
||
EXTRN BATHAND:WORD,RESSEG:WORD,DIRBUF:BYTE,COMBUF:BYTE
|
||
EXTRN GOTOLEN:WORD,IFNOTFLAG:BYTE
|
||
|
||
TRANSPACE ENDS
|
||
|
||
|
||
TRANCODE SEGMENT PUBLIC BYTE
|
||
ASSUME CS:TRANGROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING
|
||
|
||
EXTRN SCANOFF:NEAR,DOCOM:NEAR,DOCOM1:NEAR,CERROR:NEAR
|
||
EXTRN PRINT:NEAR,TCOMMAND:NEAR,DELIM:NEAR,GETBATBYT:NEAR
|
||
EXTRN FCB_TO_ASCZ:NEAR
|
||
|
||
PUBLIC GOTO,$IF,IFERLEV,SHIFT,IFEXISTS
|
||
PUBLIC STRCOMP,MesTran,$FOR,IFNOT
|
||
PUBLIC FORPROC,BATOPEN,BATCLOSE
|
||
PUBLIC IOSET,TESTDOREIN,TESTDOREOUT
|
||
|
||
ASSUME DS:RESGROUP
|
||
FORTERM:
|
||
MOV [FORFLAG],0
|
||
CMP [SINGLECOM],0FF00H
|
||
JNZ NOFORP2
|
||
MOV [SINGLECOM],-1 ; Cause a terminate
|
||
NOFORP2:
|
||
JMP TCOMMAND
|
||
|
||
FORPROC:
|
||
ASSUME DS:RESGROUP
|
||
CMP [FORUFCB],-1
|
||
JZ NORMFOR
|
||
MOV DX,OFFSET TRANGROUP:DIRBUF
|
||
PUSH DS
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:TRANGROUP
|
||
MOV AH,SET_DMA
|
||
INT int_command
|
||
POP DS
|
||
ASSUME DS:RESGROUP
|
||
MOV DX,OFFSET RESGROUP:FORFCB
|
||
MOV AH,DIR_SEARCH_NEXT
|
||
CMP [FORUFCB],0
|
||
JZ DOFORSRCH
|
||
MOV AH,DIR_SEARCH_FIRST
|
||
MOV [FORUFCB],0
|
||
DOFORSRCH:
|
||
INT int_command
|
||
OR AL,AL
|
||
JNZ FORTERM
|
||
PUSH DS
|
||
POP ES
|
||
ASSUME ES:RESGROUP
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:TRANGROUP
|
||
MOV SI,OFFSET TRANGROUP:DIRBUF
|
||
MOV DI,OFFSET RESGROUP:FORSET
|
||
MOV [FORPTR],DI
|
||
LODSB ;Get drive spec
|
||
ADD AL,'@'
|
||
CMP AL,'@'
|
||
JZ NDRV8
|
||
CMP [UFORDRV],0
|
||
JZ NDRV8
|
||
MOV AH,':'
|
||
STOSW
|
||
NDRV8:
|
||
CALL FCB_TO_ASCZ
|
||
MOV BYTE PTR ES:[DI-1],0DH
|
||
PUSH ES
|
||
POP DS
|
||
ASSUME DS:RESGROUP
|
||
NORMFOR:
|
||
PUSH CS
|
||
POP ES
|
||
ASSUME ES:TRANGROUP
|
||
MOV BX,[FORPTR]
|
||
CMP BYTE PTR [BX],0
|
||
JZ FORTERM
|
||
MOV SI,BX
|
||
PARMSUB0:
|
||
LODSB
|
||
CMP AL,0DH
|
||
JNZ PARMSUB0
|
||
MOV DX,SI ; DX points to next parm
|
||
MOV SI,OFFSET RESGROUP:FORCOM
|
||
MOV DI,OFFSET TRANGROUP:COMBUF+2
|
||
XOR CX,CX
|
||
TFORCOM:
|
||
LODSB
|
||
CMP AL,'%'
|
||
JNZ NOFORPARM
|
||
MOV AH,[FORVAR]
|
||
CMP AH,[SI]
|
||
JNZ NOFORPARM
|
||
INC SI
|
||
PUSH SI
|
||
MOV SI,BX
|
||
PARMSUB:
|
||
LODSB
|
||
CMP AL,0DH
|
||
JZ PARMSUBDONE
|
||
INC CX
|
||
STOSB
|
||
JMP SHORT PARMSUB
|
||
PARMSUBDONE:
|
||
POP SI ; Get back command line pointer
|
||
JMP TFORCOM
|
||
NOFORPARM:
|
||
STOSB
|
||
INC CX
|
||
CMP AL,0DH
|
||
JNZ TFORCOM
|
||
DEC CX
|
||
MOV [COMBUF+1],CL
|
||
MOV [FORPTR],DX ; Point to next set element
|
||
TEST [ECHOFLAG],-1
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:TRANGROUP
|
||
JZ NOECHO3
|
||
MOV BYTE PTR ES:[DI-1],'$'
|
||
MOV DX,OFFSET TRANGROUP:COMBUF+2
|
||
CALL PRINT
|
||
MOV BYTE PTR ES:[DI-1],0DH
|
||
JMP DOCOM
|
||
NOECHO3:
|
||
JMP DOCOM1
|
||
|
||
ASSUME DS:TRANGROUP,ES:TRANGROUP
|
||
|
||
FORNESTERR:
|
||
PUSH DS
|
||
MOV DS,[RESSEG]
|
||
ASSUME DS:RESGROUP
|
||
MOV DX,OFFSET TRANGROUP:FORNESTMES
|
||
CMP [SINGLECOM],0FF00H
|
||
JNZ NOFORP3
|
||
MOV [SINGLECOM],-1 ; Cause termination
|
||
NOFORP3:
|
||
POP DS
|
||
ASSUME DS:TRANGROUP
|
||
JMP CERROR
|
||
|
||
$FOR:
|
||
MOV SI,81H
|
||
XOR CX,CX
|
||
MOV ES,[RESSEG]
|
||
ASSUME ES:RESGROUP
|
||
MOV DI,OFFSET RESGROUP:FORSET
|
||
XOR AL,AL
|
||
MOV [UFORDRV],AL
|
||
XCHG AL,[FORFLAG]
|
||
OR AL,AL
|
||
JNZ FORNESTERR
|
||
MOV [FORPTR],DI
|
||
MOV [FORUFCB],-1
|
||
CALL SCANOFF
|
||
LODSW
|
||
CMP AL,'%'
|
||
JNZ FORERRORJ
|
||
MOV [FORVAR],AH
|
||
CALL SCANOFF
|
||
CMP AL,0DH
|
||
JZ FORERRORJ2
|
||
LODSW
|
||
CMP AX,('N' SHL 8) OR 'I'
|
||
JZ FOROK1
|
||
CMP AX,('n' SHL 8) OR 'i'
|
||
JNZ FORERRORJ
|
||
FOROK1:
|
||
CALL SCANOFF
|
||
LODSB
|
||
CMP AL,'('
|
||
JNZ FORERRORJ
|
||
CALL SCANOFF
|
||
CMP AL,')' ; Special check for null set
|
||
JNZ FORSETLP
|
||
MOV DS,[RESSEG]
|
||
JMP FORTERM
|
||
FORSETLP:
|
||
LODSB
|
||
CMP AL,0DH
|
||
FORERRORJ2:
|
||
JZ FORERRORJ3
|
||
CMP AL,')'
|
||
JZ FORSETEND
|
||
STOSB
|
||
CMP AL,'*'
|
||
JZ SETFORSCAN
|
||
CMP AL,'?'
|
||
JNZ NOFORSCAN
|
||
SETFORSCAN:
|
||
MOV [FORUFCB],1
|
||
NOFORSCAN:
|
||
CALL DELIM
|
||
JNZ FORSETLP
|
||
MOV BYTE PTR ES:[DI-1],0DH
|
||
CALL SCANOFF
|
||
JMP FORSETLP
|
||
|
||
FORSETEND:
|
||
MOV AX,000DH
|
||
CMP BYTE PTR ES:[DI-1],0DH
|
||
JNZ FORSETTERM
|
||
XOR AX,AX
|
||
FORSETTERM:
|
||
STOSW
|
||
CALL SCANOFF
|
||
LODSW
|
||
CMP AX,('O' SHL 8) OR 'D'
|
||
JZ FOROK2
|
||
CMP AX,('o' SHL 8) OR 'd'
|
||
FORERRORJ:
|
||
JNZ FORERROR
|
||
FOROK2:
|
||
CALL SCANOFF
|
||
CMP AL,0DH
|
||
FORERRORJ3:
|
||
JZ FORERROR
|
||
MOV DI,OFFSET RESGROUP:FORCOM
|
||
FORCOMLP:
|
||
LODSB
|
||
STOSB
|
||
CMP AL,0DH
|
||
JNZ FORCOMLP
|
||
INC [FORFLAG]
|
||
CMP [SINGLECOM],-1
|
||
JNZ NOFORP
|
||
MOV [SINGLECOM],0FF00H ; Flag single command for
|
||
NOFORP:
|
||
CMP [FORUFCB],1
|
||
retnz
|
||
PUSH ES
|
||
POP DS
|
||
ASSUME DS:RESGROUP
|
||
MOV DI,OFFSET RESGROUP:FORFCB
|
||
MOV SI,OFFSET RESGROUP:FORSET
|
||
CMP BYTE PTR [SI+1],':'
|
||
JNZ NOSETUDRV
|
||
INC [UFORDRV]
|
||
NOSETUDRV:
|
||
MOV AX,PARSE_FILE_DESCRIPTOR SHL 8
|
||
INT int_command
|
||
return
|
||
|
||
|
||
ASSUME DS:TRANGROUP,ES:TRANGROUP
|
||
|
||
IFERRORP:
|
||
POP AX
|
||
IFERROR:
|
||
FORERROR:
|
||
MOV DX,OFFSET TRANGROUP:SYNTMES
|
||
JMP CERROR
|
||
|
||
$IF:
|
||
MOV [IFNOTFLAG],0
|
||
MOV SI,81H
|
||
IFREENT:
|
||
CALL SCANOFF
|
||
CMP AL,0DH
|
||
JZ IFERROR
|
||
MOV BP,SI
|
||
MOV DI,OFFSET TRANGROUP:IFTAB ; Prepare to search if table
|
||
MOV CH,0
|
||
IFINDCOM:
|
||
MOV SI,BP
|
||
MOV CL,[DI]
|
||
INC DI
|
||
JCXZ IFSTRING
|
||
JMP SHORT FIRSTCOMP
|
||
IFCOMP:
|
||
JNZ IFDIF
|
||
FIRSTCOMP:
|
||
LODSB
|
||
MOV AH,ES:[DI]
|
||
INC DI
|
||
CMP AL,AH
|
||
JZ IFLP
|
||
OR AH,20H ; Try lower case
|
||
CMP AL,AH
|
||
IFLP:
|
||
LOOP IFCOMP
|
||
IFDIF:
|
||
LAHF
|
||
ADD DI,CX ; Bump to next position without affecting flags
|
||
MOV BX,[DI] ; Get handler address
|
||
INC DI
|
||
INC DI
|
||
SAHF
|
||
JNZ IFINDCOM
|
||
LODSB
|
||
CMP AL,0DH
|
||
IFERRORJ:
|
||
JZ IFERROR
|
||
CALL DELIM
|
||
JNZ IFINDCOM
|
||
CALL SCANOFF
|
||
JMP BX
|
||
|
||
IFNOT:
|
||
NOT [IFNOTFLAG]
|
||
JMP IFREENT
|
||
|
||
|
||
IFSTRING:
|
||
PUSH SI
|
||
XOR CX,CX
|
||
FIRST_STRING:
|
||
LODSB
|
||
CMP AL,0DH
|
||
JZ IFERRORP
|
||
CALL DELIM
|
||
JZ EQUAL_CHECK
|
||
INC CX
|
||
JMP SHORT FIRST_STRING
|
||
EQUAL_CHECK:
|
||
CMP AL,'='
|
||
JZ EQUAL_CHECK2
|
||
CMP AL,0DH
|
||
JZ IFERRORP
|
||
LODSB
|
||
JMP SHORT EQUAL_CHECK
|
||
EQUAL_CHECK2:
|
||
LODSB
|
||
CMP AL,'='
|
||
JNZ IFERRORP
|
||
CALL SCANOFF
|
||
CMP AL,0DH
|
||
JZ IFERRORP
|
||
POP DI
|
||
REPE CMPSB
|
||
JZ MATCH
|
||
CMP BYTE PTR [SI-1],0DH
|
||
JZ IFERRORJ
|
||
SKIPSTRINGEND:
|
||
LODSB
|
||
NOTMATCH:
|
||
CMP AL,0DH
|
||
IFERRORJ2:
|
||
JZ IFERRORJ
|
||
CALL DELIM
|
||
JNZ SKIPSTRINGEND
|
||
MOV AL,-1
|
||
JMP SHORT IFRET
|
||
MATCH:
|
||
LODSB
|
||
CALL DELIM
|
||
JNZ NOTMATCH
|
||
XOR AL,AL
|
||
JMP SHORT IFRET
|
||
|
||
IFEXISTS:
|
||
MOV DI,OFFSET TRANGROUP:DIRBUF
|
||
MOV AX,(PARSE_FILE_DESCRIPTOR SHL 8) OR 01H
|
||
INT int_command
|
||
MOV AH,FCB_OPEN
|
||
MOV DX,DI
|
||
INT int_command
|
||
IFRET:
|
||
TEST [IFNOTFLAG],-1
|
||
JZ REALTEST
|
||
NOT AL
|
||
REALTEST:
|
||
OR AL,AL
|
||
JZ IFTRUE
|
||
JMP TCOMMAND
|
||
IFTRUE:
|
||
CALL SCANOFF
|
||
MOV CX,SI
|
||
SUB CX,81H
|
||
SUB DS:[80H],CL
|
||
MOV CL,DS:[80H]
|
||
MOV [COMBUF+1],CL
|
||
MOV DI,OFFSET TRANGROUP:COMBUF+2
|
||
REP MOVSB
|
||
MOV AL,0DH
|
||
STOSB
|
||
JMP DOCOM1
|
||
|
||
IFERLEV:
|
||
MOV BH,10
|
||
XOR BL,BL
|
||
GETNUMLP:
|
||
LODSB
|
||
CMP AL,0DH
|
||
JZ IFERRORJ2
|
||
CALL DELIM
|
||
JZ GOTNUM
|
||
SUB AL,'0'
|
||
XCHG AL,BL
|
||
MUL BH
|
||
ADD AL,BL
|
||
XCHG AL,BL
|
||
JMP SHORT GETNUMLP
|
||
GOTNUM:
|
||
PUSH DS
|
||
MOV DS,[RESSEG]
|
||
ASSUME DS:RESGROUP
|
||
MOV AH,BYTE PTR [RETCODE]
|
||
POP DS
|
||
ASSUME DS:TRANGROUP
|
||
XOR AL,AL
|
||
CMP AH,BL
|
||
JAE IFRET
|
||
DEC AL
|
||
JMP SHORT IFRET
|
||
|
||
ASSUME DS:TRANGROUP
|
||
|
||
SHIFT:
|
||
MOV DS,[RESSEG]
|
||
ASSUME DS:RESGROUP
|
||
MOV AX,[BATCH]
|
||
TEST AX,-1
|
||
retz
|
||
MOV ES,AX
|
||
MOV DS,AX
|
||
ASSUME DS:NOTHING,ES:NOTHING
|
||
XOR CX,CX
|
||
MOV AX,CX
|
||
MOV DI,CX
|
||
DEC CX
|
||
REPNZ SCASB
|
||
MOV SI,DI
|
||
INC SI
|
||
INC SI
|
||
MOV CX,9
|
||
REP MOVSW ; Perform shift of existing parms
|
||
CMP WORD PTR [DI],-1
|
||
retz ; No new parm
|
||
MOV SI,[DI]
|
||
MOV WORD PTR [DI],-1 ; Assume no parm
|
||
MOV DS,[RESSEG]
|
||
ASSUME DS:RESGROUP
|
||
SKIPCRLP:
|
||
LODSB
|
||
CMP AL,0DH
|
||
JNZ SKIPCRLP
|
||
CMP BYTE PTR [SI],0
|
||
retz ; End of parms
|
||
MOV ES:[DI],SI ; Pointer to next parm as %9
|
||
return
|
||
|
||
|
||
ASSUME DS:TRANGROUP,ES:TRANGROUP
|
||
GOTO:
|
||
MOV DS,[RESSEG]
|
||
ASSUME DS:RESGROUP
|
||
TEST [BATCH],-1
|
||
retz ; If not in batch mode, a nop
|
||
XOR DX,DX
|
||
MOV WORD PTR [BATLOC],DX ; Back to start
|
||
MOV WORD PTR [BATLOC+2],DX
|
||
CALL BATOPEN ; Find the batch file
|
||
MOV DI,FCB+1 ; Get the label
|
||
MOV CX,11
|
||
MOV AL,' '
|
||
REPNE SCASB
|
||
JNZ NOINC
|
||
INC CX
|
||
NOINC:
|
||
SUB CX,11
|
||
NEG CX
|
||
MOV [GOTOLEN],CX
|
||
CALL GETBATBYT
|
||
CMP AL,':'
|
||
JZ CHKLABEL
|
||
LABLKLP: ; Look for the label
|
||
CALL GETBATBYT
|
||
CMP AL,0AH
|
||
JNZ LABLKTST
|
||
CALL GETBATBYT
|
||
CMP AL,':'
|
||
JZ CHKLABEL
|
||
LABLKTST:
|
||
TEST [BATCH],-1
|
||
JNZ LABLKLP
|
||
CALL BATCLOSE
|
||
PUSH CS
|
||
POP DS
|
||
MOV DX,OFFSET TRANGROUP:BADLAB
|
||
JMP CERROR
|
||
|
||
CHKLABEL:
|
||
MOV DI,FCB+1
|
||
MOV CX,[GOTOLEN]
|
||
NEXTCHRLP:
|
||
PUSH CX
|
||
CALL GETBATBYT
|
||
POP CX
|
||
OR AL,20H
|
||
CMP AL,ES:[DI]
|
||
JNZ TRYUPPER
|
||
JMP SHORT NEXTLABCHR
|
||
TRYUPPER:
|
||
SUB AL,20H
|
||
CMP AL,ES:[DI]
|
||
JNZ LABLKTST
|
||
NEXTLABCHR:
|
||
INC DI
|
||
LOOP NEXTCHRLP
|
||
CALL GETBATBYT
|
||
CMP AL,' '
|
||
JA LABLKTST
|
||
CMP AL,0DH
|
||
JZ SKIPLFEED
|
||
TONEXTBATLIN:
|
||
CALL GETBATBYT
|
||
CMP AL,0DH
|
||
JNZ TONEXTBATLIN
|
||
SKIPLFEED:
|
||
CALL GETBATBYT
|
||
BATCLOSE:
|
||
MOV BX,CS:[BATHAND]
|
||
MOV AH,CLOSE
|
||
INT int_command
|
||
return
|
||
|
||
BATOPEN:
|
||
;Open the BATCH file, If open fails, AL is drive of batch file (A=1)
|
||
ASSUME DS:RESGROUP,ES:TRANGROUP
|
||
PUSH DS
|
||
MOV DS,[BATCH]
|
||
ASSUME DS:NOTHING
|
||
XOR DX,DX
|
||
MOV AX,OPEN SHL 8
|
||
INT int_command ; Open the batch file
|
||
JC SETERRDL
|
||
POP DS
|
||
ASSUME DS:RESGROUP
|
||
MOV [BATHAND],AX
|
||
MOV BX,AX
|
||
MOV DX,WORD PTR [BATLOC]
|
||
MOV CX,WORD PTR [BATLOC+2]
|
||
MOV AX,LSEEK SHL 8 ; Go to the right spot
|
||
INT int_command
|
||
return
|
||
|
||
SETERRDL:
|
||
MOV BX,DX
|
||
MOV AL,[BX] ; Get drive spec
|
||
SUB AL,'@' ; A = 1
|
||
POP DS
|
||
STC ; SUB mucked over carry
|
||
return
|
||
|
||
MESTRAN:
|
||
ASSUME DS:NOTHING,ES:NOTHING
|
||
LODSB
|
||
CMP AL,"$"
|
||
retz
|
||
STOSB
|
||
JMP MESTRAN
|
||
IOSET:
|
||
; ALL REGISTERS PRESERVED
|
||
ASSUME DS:NOTHING,ES:NOTHING,SS:NOTHING
|
||
PUSH DS
|
||
PUSH DX
|
||
PUSH AX
|
||
PUSH BX
|
||
PUSH CX
|
||
MOV DS,[RESSEG]
|
||
ASSUME DS:RESGROUP
|
||
CMP [PIPEFLAG],0
|
||
JNZ NOREDIR ; Don't muck up the pipe
|
||
CALL TESTDOREIN
|
||
CALL TESTDOREOUT
|
||
NOREDIR:
|
||
POP CX
|
||
POP BX
|
||
POP AX
|
||
POP DX
|
||
POP DS
|
||
ASSUME DS:NOTHING
|
||
return
|
||
|
||
TESTDOREIN:
|
||
ASSUME DS:RESGROUP
|
||
CMP [RE_INSTR],0
|
||
retz
|
||
MOV DX,OFFSET RESGROUP:RE_INSTR
|
||
MOV AX,(OPEN SHL 8)
|
||
INT int_command
|
||
MOV DX,OFFSET TRANGROUP:NOTFND
|
||
JC REDIRERR
|
||
MOV BX,AX
|
||
MOV AL,0FFH
|
||
XCHG AL,[BX.PDB_JFN_Table]
|
||
MOV DS:[PDB_JFN_Table],AL
|
||
return
|
||
|
||
REDIRERR:
|
||
PUSH CS
|
||
POP DS
|
||
JMP CERROR
|
||
|
||
TESTDOREOUT:
|
||
ASSUME DS:RESGROUP
|
||
CMP [RE_OUTSTR],0
|
||
JZ NOREOUT
|
||
CMP [RE_OUT_APP],0
|
||
JZ REOUTCRT
|
||
MOV DX,OFFSET RESGROUP:RE_OUTSTR
|
||
MOV AX,(OPEN SHL 8) OR 1
|
||
INT int_command
|
||
JC REOUTCRT
|
||
XOR DX,DX
|
||
XOR CX,CX
|
||
MOV BX,AX
|
||
MOV AX,(LSEEK SHL 8) OR 2
|
||
INT int_command
|
||
JMP SHORT SET_REOUT
|
||
REOUTCRT:
|
||
MOV DX,OFFSET RESGROUP:RE_OUTSTR
|
||
XOR CX,CX
|
||
MOV AH,CREAT
|
||
INT int_command
|
||
MOV DX,OFFSET TRANGROUP:FULDIR
|
||
JC REDIRERR
|
||
MOV BX,AX
|
||
SET_REOUT:
|
||
MOV AL,0FFH
|
||
XCHG AL,[BX.PDB_JFN_Table]
|
||
MOV DS:[PDB_JFN_Table+1],AL
|
||
NOREOUT:
|
||
return
|
||
|
||
STRCOMP:
|
||
; Compare ASCIZ DS:SI with ES:DI.
|
||
; SI,DI destroyed.
|
||
CMPSB
|
||
retnz ; Strings not equal
|
||
cmp byte ptr [SI-1],0 ; Hit NUL terminator?
|
||
retz ; Yes, strings equal
|
||
jmp short STRCOMP ; Equal so far, keep going
|
||
|
||
|
||
|
||
TRANCODE ENDS
|
||
END
|
||
|
||
|