mirror of
https://github.com/microsoft/MS-DOS.git
synced 2024-11-26 07:35:47 +00:00
932 lines
38 KiB
NASM
932 lines
38 KiB
NASM
|
title MSDOS V2.0 FIND
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Revision History: ;
|
|||
|
|
; ;
|
|||
|
|
; V1.1 8/23/82 M.A.Ulloa ;
|
|||
|
|
; ;
|
|||
|
|
; V1.2 9/22/82 M.A.Ulloa ;
|
|||
|
|
; Added the -c and -n options ;
|
|||
|
|
; ;
|
|||
|
|
; 9/23/82 M.A.Ulloa ;
|
|||
|
|
; Added DOS version number control ;
|
|||
|
|
; ;
|
|||
|
|
; 10/07/82 Rev.2 M.A.Ulloa ;
|
|||
|
|
; Changed quote for double quotes, and added ;
|
|||
|
|
; file name printing ;
|
|||
|
|
; ;
|
|||
|
|
; 10/20/82 Rev.3 M.A.Ulloa ;
|
|||
|
|
; Modified IBM name to FIND, and changed the text ;
|
|||
|
|
; of some messages. ;
|
|||
|
|
; ;
|
|||
|
|
; 10/25/82 Rev.4 M.A.Ulloa ;
|
|||
|
|
; Changed name to FIND and all messages to the ;
|
|||
|
|
; IBM form. ;
|
|||
|
|
; ;
|
|||
|
|
; 10/27/82 Rev.5 M.A.Ulloa ;
|
|||
|
|
; Made the correct exit on version check in case ;
|
|||
|
|
; of a 1.x DOS. ;
|
|||
|
|
; ;
|
|||
|
|
; 11/4/82 Rev. 5 A.R. Reynolds ;
|
|||
|
|
; Messages moved to external module ;
|
|||
|
|
; ;
|
|||
|
|
; 11/10/82 Rev. 6 M.A. Ulloa ;
|
|||
|
|
; Corrected problem with line numbers, and a problem ;
|
|||
|
|
; with seeking for 0 chars. ;
|
|||
|
|
; ;
|
|||
|
|
; 03/30/83 Rev. 7 M.A. Ulloa ;
|
|||
|
|
; Added patch area for bug fixing. ;
|
|||
|
|
; ;
|
|||
|
|
; 04/14/83 Rev. 8 M.A. Ulloa ;
|
|||
|
|
; Made changes for Kanji characters. (uhg!) ;
|
|||
|
|
; ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
|
|||
|
|
FALSE equ 0
|
|||
|
|
TRUE equ NOT FALSE
|
|||
|
|
|
|||
|
|
KANJI equ FALSE ;set to true is kanji vers.
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; FIND program following the standart UNIX operation. ;
|
|||
|
|
; ;
|
|||
|
|
; FORMAT: ;
|
|||
|
|
; find {option} string {filename {filename} {...}} ;
|
|||
|
|
; ;
|
|||
|
|
; NOTES: ;
|
|||
|
|
; 1) String arguments HAVE to be enclosed ;
|
|||
|
|
; in double quotes. (Two double quotes if a ;
|
|||
|
|
; doble quote is to be included). Only ONE ;
|
|||
|
|
; string argument is presently allowed. ;
|
|||
|
|
; ;
|
|||
|
|
; 2) Options are available: ;
|
|||
|
|
; v All lines but those matching are considered ;
|
|||
|
|
; c Only print a count of matching lines ;
|
|||
|
|
; n Each line is preceded by its relative ;
|
|||
|
|
; line number in the file. ;
|
|||
|
|
; ;
|
|||
|
|
; - Options can be Upper or lower case. ;
|
|||
|
|
; - Format: The switch character followed by an options ;
|
|||
|
|
; character. I.e.: In the IBM PC: /v ;
|
|||
|
|
; ;
|
|||
|
|
; 3) The program returns: ;
|
|||
|
|
; 0 - OK, and some matches ;
|
|||
|
|
; 2 - Some Error ;
|
|||
|
|
; ;
|
|||
|
|
; 4) The maximum line size is determined by ;
|
|||
|
|
; buffer size. Bigger lines will bomb the program. ;
|
|||
|
|
; ;
|
|||
|
|
; 5) If no file name is given then it will asssume ;
|
|||
|
|
; the input is comming from the Standart Input. NO ;
|
|||
|
|
; errors are reported when reading from Standart Input. ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
|
|||
|
|
code segment public
|
|||
|
|
assume cs:code,ss:code,ds:nothing,es:nothing
|
|||
|
|
|
|||
|
|
|
|||
|
|
CR equ 0dh ;A Carriage Return
|
|||
|
|
LF equ 0ah ;A Line Feed
|
|||
|
|
quote_char equ 22h ;A double quote character
|
|||
|
|
|
|||
|
|
|
|||
|
|
buffer_size equ 4096 ;file buffer size
|
|||
|
|
st_buf_size equ 128 ;string arg. buffer size
|
|||
|
|
fname_buf_size equ 64 ;file name buffer size
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- DOS EQUATES --------------------------------------------------;
|
|||
|
|
std_in equ 0 ;STD input handle
|
|||
|
|
std_out equ 1 ;STD output handle
|
|||
|
|
std_err equ 2 ;STD error handle
|
|||
|
|
dos_ent equ 21h ;DOS entry point
|
|||
|
|
|
|||
|
|
std_con_string_output equ 9
|
|||
|
|
get_version equ 48
|
|||
|
|
char_oper equ 55 ;get configuration parameters
|
|||
|
|
open equ 61 ;DOS std open code
|
|||
|
|
close equ 62 ;DOS std close code
|
|||
|
|
read equ 63 ;DOS std read code
|
|||
|
|
write equ 64 ;DOS std write code
|
|||
|
|
lseek equ 66 ;DOS file seek
|
|||
|
|
exit equ 76 ;DOS process exit code
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- Misc Data -----------------------------------------------;
|
|||
|
|
make db "***MAUlloa/Microsoft/V12***"
|
|||
|
|
rev db "8"
|
|||
|
|
|
|||
|
|
|
|||
|
|
colon db ": "
|
|||
|
|
n1_buf db "["
|
|||
|
|
n2_buf db 8 dup(0) ;buffer for number conversion
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- OPTION FLAGS -------------------------------------------------;
|
|||
|
|
; If a flag is set (0ffh) then the option has been selected, if
|
|||
|
|
;reset (0) then it has been not. All options are reset initially.
|
|||
|
|
; NOTE: the order of this table has to remain consistent with the
|
|||
|
|
;options dispatch code. If any changes are made they have to
|
|||
|
|
;correspond with the code.
|
|||
|
|
|
|||
|
|
opt_tbl:
|
|||
|
|
|
|||
|
|
v_flg db 0
|
|||
|
|
c_flg db 0
|
|||
|
|
n_flg db 0
|
|||
|
|
x_flg db 0 ;not used
|
|||
|
|
l_flg db 0 ;not used
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- LINE COUNTERS ------------------------------------------------;
|
|||
|
|
mtch_cntr dw 0 ;matched lines counter
|
|||
|
|
line_cntr dw 0 ;line counter
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- MAIN ROUTINE -------------------------------------------------;
|
|||
|
|
start:
|
|||
|
|
|
|||
|
|
;----- CHECK VERSION NUMBER -----------------------------------------;
|
|||
|
|
|
|||
|
|
mov ah,get_version
|
|||
|
|
int 21h
|
|||
|
|
cmp al,2
|
|||
|
|
jge vers_ok
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov dx,offset bad_vers
|
|||
|
|
mov ah,std_con_string_output
|
|||
|
|
int 21h
|
|||
|
|
push es ;bad vers, exit a la 1.x
|
|||
|
|
xor ax,ax
|
|||
|
|
push ax
|
|||
|
|
|
|||
|
|
badfart proc far ;(what a hack!!)
|
|||
|
|
ret
|
|||
|
|
badfart endp
|
|||
|
|
|
|||
|
|
vers_ok:
|
|||
|
|
|
|||
|
|
push cs ;load ES to the right area,
|
|||
|
|
pop es ; for use with DI register
|
|||
|
|
|
|||
|
|
assume es:code
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
|
|||
|
|
mov si,81h ;Start addrss. of commad line buf.
|
|||
|
|
|
|||
|
|
call kill_bl ;Get rid of blanks
|
|||
|
|
or bx,bx ;A CR found?
|
|||
|
|
jz find_opt ;no, first find the options
|
|||
|
|
args_missing:
|
|||
|
|
mov dx,offset errmsg1 ;empty command line, no args: error.
|
|||
|
|
mov cl,cs:errlen1
|
|||
|
|
call prt_err
|
|||
|
|
mov al,2 ;error code for exit
|
|||
|
|
jmp done
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- FIND THE OPTION IF ANY ---------------------------------------;
|
|||
|
|
find_opt:
|
|||
|
|
mov ah,char_oper ;get the dos switch char.
|
|||
|
|
mov al,0
|
|||
|
|
int dos_ent ;switch char in DL
|
|||
|
|
push dx
|
|||
|
|
another_opt:
|
|||
|
|
lodsb ;get the first char of command line
|
|||
|
|
cmp al,' ' ;a blank?
|
|||
|
|
je cont_scan
|
|||
|
|
cmp al,CR ;a Carriage Return
|
|||
|
|
je args_missing
|
|||
|
|
pop dx ;get switch character
|
|||
|
|
cmp al,dl ;is it the switch char?
|
|||
|
|
jne find_str ;no, no options: get the string
|
|||
|
|
push dx ;save for another round
|
|||
|
|
|
|||
|
|
lodsb ;get the option character
|
|||
|
|
cmp al,' ' ;a blank?
|
|||
|
|
je cont_scan ;yes, ignore and continue
|
|||
|
|
cmp al,CR ;a CR?
|
|||
|
|
je args_missing ;yes, error...
|
|||
|
|
call make_caps ;Capitalize the character
|
|||
|
|
mov bx,offset opt_tbl ;pointer to option flag table
|
|||
|
|
|
|||
|
|
cmp al,'V' ;the v option?
|
|||
|
|
je opt_v
|
|||
|
|
cmp al,'C' ;the c option?
|
|||
|
|
je opt_c
|
|||
|
|
cmp al,'N' ;the n option?
|
|||
|
|
je opt_n
|
|||
|
|
|
|||
|
|
mov cs:errmsg5_opt,al ;save the option
|
|||
|
|
mov dx,offset errmsg5 ;unknown option: error
|
|||
|
|
mov cl,cs:errlen5
|
|||
|
|
call prt_err
|
|||
|
|
mov dx,offset crlf ;print a CRLF
|
|||
|
|
mov cx,2
|
|||
|
|
call prt_err
|
|||
|
|
jmp another_opt ;process next option
|
|||
|
|
|
|||
|
|
opt_v:
|
|||
|
|
mov di,0
|
|||
|
|
jmp short opt_dispatch
|
|||
|
|
|
|||
|
|
opt_c:
|
|||
|
|
mov di,1
|
|||
|
|
jmp short opt_dispatch
|
|||
|
|
|
|||
|
|
opt_n:
|
|||
|
|
mov di,2
|
|||
|
|
|
|||
|
|
opt_dispatch:
|
|||
|
|
mov es:byte ptr[bx+di],0ffh ;set the corresponding flag
|
|||
|
|
jmp another_opt ;process the rest of the options
|
|||
|
|
|
|||
|
|
cont_scan:
|
|||
|
|
dec si ;adjust SI
|
|||
|
|
call kill_bl ;get rid of blanks
|
|||
|
|
or bx,bx ;A CR found?
|
|||
|
|
jz another_opt ;no, test for other options
|
|||
|
|
jmp args_missing ;yes, error...
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- FIND STRING ARGUMENT -----------------------------------------;
|
|||
|
|
find_str:
|
|||
|
|
cmp al,quote_char ;string should start with a
|
|||
|
|
jnz bad_str_err ; quote character, if not: error.
|
|||
|
|
mov di,offset st_buffer ;String argument buffer addrss.
|
|||
|
|
xor cx,cx ;Clear to keep string length.
|
|||
|
|
|
|||
|
|
move_str:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,CR ;if a CR is found in the string
|
|||
|
|
jnz str_ok ; then it's a bad string
|
|||
|
|
bad_str_err:
|
|||
|
|
mov dx,offset errmsg2 ;bad string error message
|
|||
|
|
mov cl,cs:errlen2
|
|||
|
|
call prt_err ;print the error.
|
|||
|
|
mov al,2
|
|||
|
|
jmp done
|
|||
|
|
|
|||
|
|
str_ok:
|
|||
|
|
cmp al,quote_char ;look for a quote character
|
|||
|
|
jnz move_char ;not an apost., move to buffer
|
|||
|
|
lodsb ;an apost., check next char.
|
|||
|
|
cmp al,quote_char ;another quote character?
|
|||
|
|
je move_char ;yes, move it to the buffer
|
|||
|
|
dec si ;no, adjust the pointer
|
|||
|
|
mov es:st_length,cx ;store the string length
|
|||
|
|
or cx,cx ;Is the string empty?
|
|||
|
|
jnz other_args ;no: get the rest of the args.
|
|||
|
|
mov al,1 ;empty: no matches(!?)
|
|||
|
|
jmp done
|
|||
|
|
move_char:
|
|||
|
|
stosb ;put in buffer
|
|||
|
|
inc cx ;increment string length
|
|||
|
|
jmp move_str
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- FIND THE FILE ARGUMENTS --------------------------------------;
|
|||
|
|
other_args: ;Process the rest of the command
|
|||
|
|
; line arguments.
|
|||
|
|
call kill_bl ;get rid of leading blanks
|
|||
|
|
or bx,bx ;At least one argument necessary,
|
|||
|
|
jz further_args ; if a CR not found: ok.
|
|||
|
|
|
|||
|
|
;----- USE STD IN FOR INPUT -----------------------------------------;
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov ax,std_in ;handle
|
|||
|
|
jmp fill
|
|||
|
|
|
|||
|
|
further_args:
|
|||
|
|
call clr_cntrs ;set all counters to zero
|
|||
|
|
mov di,offset file_name_buf ;Set pointer to the name buffer
|
|||
|
|
xor cx,cx ;zero file name length
|
|||
|
|
move_fname:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,' ' ;A blank: end of file name,
|
|||
|
|
je done_move
|
|||
|
|
cmp al,CR ;A CR: idem.
|
|||
|
|
je done_move
|
|||
|
|
stosb ;store in name buffer
|
|||
|
|
inc cx ;increment file name length
|
|||
|
|
jmp move_fname
|
|||
|
|
done_move:
|
|||
|
|
dec si ;Adjust pointer for next round.
|
|||
|
|
mov es:byte ptr[di],00h ;File names are null terminated
|
|||
|
|
push si ;Save SI to continue com. line scan.
|
|||
|
|
push ds ;Save DS register contents for
|
|||
|
|
; later because it points to the
|
|||
|
|
; rest of the arguments.
|
|||
|
|
mov es:file_name_len,cx ;save the name length
|
|||
|
|
|
|||
|
|
;----- OPEN FILE FOR READING ----------------------------------------;
|
|||
|
|
push cs ;Load new DS with CS
|
|||
|
|
pop ds
|
|||
|
|
mov dx,offset file_name_buf ;addrss. of the file name
|
|||
|
|
mov ah,open
|
|||
|
|
mov al,0 ;file open for reading
|
|||
|
|
int dos_ent ;call the DOS
|
|||
|
|
jnc say_name ;if no carry then no errors
|
|||
|
|
jmp open_error
|
|||
|
|
|
|||
|
|
;----- PRINT FILE NAME ----------------------------------------------;
|
|||
|
|
say_name:
|
|||
|
|
push ax ;save file handle
|
|||
|
|
mov dx,offset heading
|
|||
|
|
mov cl,cs:heading_len
|
|||
|
|
xor ch,ch
|
|||
|
|
call prout
|
|||
|
|
|
|||
|
|
mov dx,offset file_name_buf
|
|||
|
|
mov cx,ds:file_name_len
|
|||
|
|
call prout
|
|||
|
|
|
|||
|
|
cmp ds:c_flg,0ffh ;count only flag set?
|
|||
|
|
je xx1
|
|||
|
|
|
|||
|
|
mov dx,offset crlf
|
|||
|
|
mov cx,2
|
|||
|
|
call prout
|
|||
|
|
|
|||
|
|
xx1:
|
|||
|
|
pop ax
|
|||
|
|
|
|||
|
|
;----- Fill Buffer for Matching -------------------------------------;
|
|||
|
|
fill:
|
|||
|
|
mov bx,ax ;retrieve handle
|
|||
|
|
refill:
|
|||
|
|
mov dx,offset buffer ;data buffer addrss.
|
|||
|
|
mov cx,buffer_size
|
|||
|
|
mov ah,read
|
|||
|
|
int dos_ent
|
|||
|
|
jnc no_read_error ;if carry then read error
|
|||
|
|
jmp read_error
|
|||
|
|
no_read_error:
|
|||
|
|
or ax,ax ;if ax=0 then all done
|
|||
|
|
jnz go_match
|
|||
|
|
cmp ds:c_flg,0ffh ;count only flag set?
|
|||
|
|
jne sj2
|
|||
|
|
call print_count
|
|||
|
|
sj2:
|
|||
|
|
cmp bx,std_in ;Using STD IN?
|
|||
|
|
jnz regular
|
|||
|
|
jmp foo ;if so: all done, exit
|
|||
|
|
regular:
|
|||
|
|
mov ah,close ;otherwise close the file
|
|||
|
|
int dos_ent
|
|||
|
|
jmp scan_rest ;get another file
|
|||
|
|
|
|||
|
|
;----- MATCH ROUTINE ------------------------------------------------;
|
|||
|
|
;Note: If input is being taken from a file the stack contains
|
|||
|
|
; (from top to bottom):
|
|||
|
|
; - Pointer to the next command in the command line
|
|||
|
|
; - Pointer to the program segment prefix (to be loaded into
|
|||
|
|
; DS to access the command line.
|
|||
|
|
; if the imput is from the standart input then NONE of it will be
|
|||
|
|
; in the stack.
|
|||
|
|
|
|||
|
|
go_match:
|
|||
|
|
push bx ;save the file handle
|
|||
|
|
mov bp,offset buffer ;ptr to first line of file
|
|||
|
|
mov di,ax ;dispalcement from beg of buffer
|
|||
|
|
|
|||
|
|
cmp ax,buffer_size-1 ;last line of the file?
|
|||
|
|
jg no_last_line ;if yes, add a CRLF just in case
|
|||
|
|
mov bx,bp
|
|||
|
|
cmp byte ptr[bx+di-1],LF ;finished with a LF?
|
|||
|
|
je no_last_line ;yes, it's an OK line.
|
|||
|
|
mov byte ptr[bx+di],CR ;put a CR at the end of the data
|
|||
|
|
inc di
|
|||
|
|
mov byte ptr[bx+di],LF ;put a LF ...
|
|||
|
|
inc di
|
|||
|
|
|
|||
|
|
no_last_line:
|
|||
|
|
push di ;save the # of chars. in the buffer
|
|||
|
|
push bp
|
|||
|
|
mov dx,ds:st_length ;length of the string arg.
|
|||
|
|
dec dx ;adjust for later use
|
|||
|
|
jmp short try_again
|
|||
|
|
|
|||
|
|
|
|||
|
|
more_stuff_o:
|
|||
|
|
jmp more_stuff
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- SCAN LINES IN THE BUFFER FOR A MATCH -------------------------;
|
|||
|
|
;Note: at this point the stack contains (from top to bottom):
|
|||
|
|
; - Stuff mentioned before
|
|||
|
|
; - File Handle
|
|||
|
|
; - Number of chars. left in the buffer from the next line.
|
|||
|
|
; - Addrs. of the next line in the buffer.
|
|||
|
|
;
|
|||
|
|
; plus, DX has the adjusted length of the string argument.
|
|||
|
|
|
|||
|
|
try_again:
|
|||
|
|
inc ds:line_cntr ;increment line counter
|
|||
|
|
pop bp ;addrs. of next line in the buffer
|
|||
|
|
mov di,bp ;points to beg. of a line
|
|||
|
|
pop cx ;get # of chars left in the buffer
|
|||
|
|
mov bx,cx ;save in case a non-complete line
|
|||
|
|
mov al,LF ;search for a Line Feed
|
|||
|
|
jcxz more_stuff_o ;no chars left in buffer
|
|||
|
|
repnz scasb
|
|||
|
|
jnz more_stuff_o ;no full line left in buffer
|
|||
|
|
|
|||
|
|
push cx ;save chars left in buffer
|
|||
|
|
push di ;points to beg. of next line
|
|||
|
|
mov cx,di
|
|||
|
|
sub cx,bp ;length of the current line
|
|||
|
|
mov bx,cx ;save in case it has a match
|
|||
|
|
dec cx
|
|||
|
|
dec cx ;CRLF characters discounted
|
|||
|
|
jcxz try_again_opt ;if line empty go to next line
|
|||
|
|
mov di,bp ;pointer to the beg. of current line
|
|||
|
|
another_char:
|
|||
|
|
;
|
|||
|
|
; On entry:
|
|||
|
|
; BX line length
|
|||
|
|
; CX adjusted line length
|
|||
|
|
; DX adjusted string argument length
|
|||
|
|
; DI points to beg. of line
|
|||
|
|
;
|
|||
|
|
|
|||
|
|
IF KANJI
|
|||
|
|
|
|||
|
|
push dx ;save for next line
|
|||
|
|
lop:
|
|||
|
|
pop dx
|
|||
|
|
push dx
|
|||
|
|
inc dx ;different algorithm!
|
|||
|
|
mov si,offset st_buffer ;pointer to beg. of string argument
|
|||
|
|
|
|||
|
|
comp_next_char:
|
|||
|
|
push di
|
|||
|
|
mov di,si
|
|||
|
|
call is_prefix ;check for a prefix char
|
|||
|
|
pop di
|
|||
|
|
jnc nopre
|
|||
|
|
lodsw
|
|||
|
|
cmp cx,1 ; Can not compare a two byte char
|
|||
|
|
jz try_again_opt1 ; if there is only one available
|
|||
|
|
cmp ax,word ptr [di]
|
|||
|
|
jz kmatch1
|
|||
|
|
call next_kchar ;no match, advance di to next kanji
|
|||
|
|
jc try_again_opt1 ;not enough chars left in line
|
|||
|
|
jmp short lop ;try another char in line
|
|||
|
|
|
|||
|
|
nopre:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,byte ptr [di]
|
|||
|
|
jz kmatch
|
|||
|
|
call next_kchar ;no match, advance di to next kanji
|
|||
|
|
jc try_again_opt1 ;not enough chars left in line
|
|||
|
|
jmp short lop ;try another char in line
|
|||
|
|
|
|||
|
|
try_again_opt1:
|
|||
|
|
pop dx
|
|||
|
|
jmp try_again_opt
|
|||
|
|
|
|||
|
|
|
|||
|
|
kmatch1:
|
|||
|
|
dec dx ;last char had prefix so it was
|
|||
|
|
; long.
|
|||
|
|
kmatch:
|
|||
|
|
dec dx
|
|||
|
|
jz a_matchk ; no chars left: a match!
|
|||
|
|
call next_kchar
|
|||
|
|
jc try_again_opt1
|
|||
|
|
jmp comp_next_char ; loop if chars left in arg.
|
|||
|
|
|
|||
|
|
a_matchk:
|
|||
|
|
pop dx
|
|||
|
|
|
|||
|
|
ELSE
|
|||
|
|
|
|||
|
|
mov si,offset st_buffer ;pointer to beg. of string argument
|
|||
|
|
lodsb ;get first character of the str. arg.
|
|||
|
|
repnz scasb ;search for a match in current line
|
|||
|
|
jnz try_again_opt ;no match, try the next line
|
|||
|
|
cmp cx,dx ;compare lengths, a full match is not
|
|||
|
|
jb try_again_opt ; possible if CX < DX.
|
|||
|
|
push di ;save addrs. of next char. in the line
|
|||
|
|
push cx ;save the # of chars. left in the line
|
|||
|
|
mov cx,dx ;get the adjusted string arg. length
|
|||
|
|
jcxz a_match ;if a single char string, then match!
|
|||
|
|
repz cmpsb ;compare string with line
|
|||
|
|
jz a_match ;a match found, hurrah!
|
|||
|
|
pop cx ;no match, get # of chars remaining
|
|||
|
|
; in the line.
|
|||
|
|
pop di ;position of the next char. in the line
|
|||
|
|
jmp another_char
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- A MATCH: CHECK FOR THE v OPTION ------------------------------;
|
|||
|
|
a_match:
|
|||
|
|
pop ax ;adjust stack
|
|||
|
|
pop ax
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
cmp ds:v_flg,0ffh ;is flag set?
|
|||
|
|
jne prt_line ;no, print the line
|
|||
|
|
jmp try_again
|
|||
|
|
|
|||
|
|
;----- NO MATCH: CHECK FOR THE v OPTION -----------------------------;
|
|||
|
|
try_again_opt:
|
|||
|
|
cmp ds:v_flg,0ffh ;is flag set?
|
|||
|
|
jne try_again ;no goto next line
|
|||
|
|
|
|||
|
|
;----- PRINT THE LINE WITH THE MATCH --------------------------------;
|
|||
|
|
;Note: at this point the stack contains (top to bottom)
|
|||
|
|
; - Stuff mentioned before
|
|||
|
|
;
|
|||
|
|
; plus, BP points to begginig of the current line, BX has the length
|
|||
|
|
;of the current line including the CRLF, and DX the adjusted length of
|
|||
|
|
;the string argument.
|
|||
|
|
|
|||
|
|
prt_line:
|
|||
|
|
cmp ds:c_flg,0ffh ;is count only flag set?
|
|||
|
|
jne no_c_flg
|
|||
|
|
inc ds:mtch_cntr ;yes, increment counter
|
|||
|
|
jmp try_again
|
|||
|
|
|
|||
|
|
no_c_flg:
|
|||
|
|
push dx ;save the adjusted string arg. length
|
|||
|
|
cmp ds:n_flg,0ffh ;is line number flag set?
|
|||
|
|
jne no_n_flg
|
|||
|
|
call prt_lcntr
|
|||
|
|
no_n_flg:
|
|||
|
|
mov dx,bp
|
|||
|
|
mov cx,bx
|
|||
|
|
call prout
|
|||
|
|
pop dx ;restore
|
|||
|
|
jmp try_again
|
|||
|
|
|
|||
|
|
;----- READ MORE TEXT LINES INTO THE BUFFER -------------------------;
|
|||
|
|
; The scanning routines have detected that the buffer does not
|
|||
|
|
;contain a full line any more. More lines have to be read into the
|
|||
|
|
;buffer. But first perform a seek on the file in order to re-read
|
|||
|
|
;the non-complete line into the begining of the buffer.
|
|||
|
|
; Uppon entry BP contains points to the begining of the non-complete
|
|||
|
|
;line, and BX has the number of characters left in the buffer.
|
|||
|
|
; The Stack contains (top to bottom):
|
|||
|
|
; - Pointer to the next command in the command line
|
|||
|
|
; - Pointer to the program segment prefix (to be loaded into
|
|||
|
|
; DS to access the command line).
|
|||
|
|
; - File handle.
|
|||
|
|
|
|||
|
|
more_stuff:
|
|||
|
|
mov dx,bx ;get chars left in buffer
|
|||
|
|
pop bx ;get the handle
|
|||
|
|
or dx,dx ;are there 0 left?
|
|||
|
|
jz no_seek ;yes, do not seek
|
|||
|
|
neg dx ;form two's complement
|
|||
|
|
mov cx,-1
|
|||
|
|
mov al,1 ;seek from the current position
|
|||
|
|
mov ah,lseek ;seek on file
|
|||
|
|
int dos_ent
|
|||
|
|
jc read_error
|
|||
|
|
no_seek:
|
|||
|
|
jmp refill ;no errors: refill the buffer
|
|||
|
|
read_error:
|
|||
|
|
cmp bx,std_in ;Using STD IN?
|
|||
|
|
je foo ;if so: all done, exit
|
|||
|
|
mov ah,close ;close the file
|
|||
|
|
int dos_ent
|
|||
|
|
mov dx,offset errmsg4_pre ;read error
|
|||
|
|
mov cl,cs:errlen4_pre
|
|||
|
|
call prt_file_name ;print the file name in error
|
|||
|
|
mov dx,offset errmsg4_post ;read error
|
|||
|
|
mov cl,cs:errlen4_post
|
|||
|
|
jmp r_error
|
|||
|
|
|
|||
|
|
;----- PRINT ERRORS -------------------------------------------------;
|
|||
|
|
open_error:
|
|||
|
|
mov dx,offset errmsg3_pre ;error in open operation
|
|||
|
|
mov cl,cs:errlen3_pre
|
|||
|
|
call prt_err_2 ;print error message
|
|||
|
|
call prt_file_name ;print the file name in error
|
|||
|
|
mov dx,offset errmsg3_post ;error in open operation
|
|||
|
|
mov cl,cs:errlen3_post
|
|||
|
|
r_error:
|
|||
|
|
call prt_err_2 ;print error message
|
|||
|
|
|
|||
|
|
;----- SCAN THE REST OF THE COMMAND LINE ----------------------------;
|
|||
|
|
scan_rest:
|
|||
|
|
pop ds ;restore pointer to comm. line
|
|||
|
|
pop si ;restore pointer to next comm.
|
|||
|
|
call kill_bl ;look for further args.
|
|||
|
|
or bx,bx ;test for a CR
|
|||
|
|
jnz foo
|
|||
|
|
jmp further_args
|
|||
|
|
foo:
|
|||
|
|
mov al,0 ;Proper code
|
|||
|
|
done:
|
|||
|
|
mov ah,exit ;All done, exit with proper code.
|
|||
|
|
int dos_ent
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Get rid of blanks in command line. ;
|
|||
|
|
; Advances the SI reg till the next non-blank character, if the ;
|
|||
|
|
; character is a CR (0dh) then returns with BX non-zero, otherwise ;
|
|||
|
|
; BX is zero. ;
|
|||
|
|
; ;
|
|||
|
|
; entry: ;
|
|||
|
|
; SI points to the first character on the line to scan. ;
|
|||
|
|
; ;
|
|||
|
|
; exit: ;
|
|||
|
|
; SI points to the first non-blank character found. ;
|
|||
|
|
; BX contains 0D hex if the first non-blank found is ;
|
|||
|
|
; a Carriage Return, otherwise it is 0. ;
|
|||
|
|
; ;
|
|||
|
|
; modifies: ;
|
|||
|
|
; BX, SI, and AX ;
|
|||
|
|
; ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
kill_bl:
|
|||
|
|
cld ;increment
|
|||
|
|
xor bx,bx ;zero bx to start: no CR found
|
|||
|
|
no_bl:
|
|||
|
|
lodsb ;get rid of blanks
|
|||
|
|
cmp al,' '
|
|||
|
|
je no_bl
|
|||
|
|
cmp al,CR
|
|||
|
|
jnz no_cr
|
|||
|
|
mov bx,ax ;make bx non-zero (actually 0dh)
|
|||
|
|
no_cr:
|
|||
|
|
dec si ;adjust pointer
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Clear Counters ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
clr_cntrs:
|
|||
|
|
mov byte ptr es:mtch_cntr,0
|
|||
|
|
mov byte ptr es:line_cntr,0
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Print Count of Matched lines ;
|
|||
|
|
; ;
|
|||
|
|
; Modifies: AX,CX,DX and DI ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
print_count:
|
|||
|
|
push bx ;save handle
|
|||
|
|
cmp bx,std_in ;using std_in?
|
|||
|
|
jz sj3 ;if so do not print file name
|
|||
|
|
|
|||
|
|
mov dx,offset colon
|
|||
|
|
mov cx,2
|
|||
|
|
call prout ;print colon
|
|||
|
|
sj3:
|
|||
|
|
mov ax,ds:mtch_cntr
|
|||
|
|
mov di,offset n2_buf ;buffer for characters
|
|||
|
|
call bin2asc ;convert to ascii
|
|||
|
|
mov dx,offset n2_buf
|
|||
|
|
call prout ;print the number
|
|||
|
|
mov dx,offset crlf
|
|||
|
|
mov cx,2
|
|||
|
|
call prout ;print an end of line
|
|||
|
|
pop bx
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Print relative line number ;
|
|||
|
|
; ;
|
|||
|
|
; Modifies: AX,CX and DI ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
prt_lcntr:
|
|||
|
|
push bx
|
|||
|
|
push dx
|
|||
|
|
mov ax,ds:line_cntr
|
|||
|
|
mov di,offset n2_buf
|
|||
|
|
call bin2asc
|
|||
|
|
mov byte ptr[di],"]"
|
|||
|
|
inc cx
|
|||
|
|
inc cx
|
|||
|
|
mov dx,offset n1_buf
|
|||
|
|
call prout
|
|||
|
|
pop dx
|
|||
|
|
pop bx
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Print string to STD_OUT ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
prout:
|
|||
|
|
mov bx,std_out
|
|||
|
|
mov ah,write
|
|||
|
|
int dos_ent
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Binary to Ascii conversion routine ;
|
|||
|
|
; ;
|
|||
|
|
; Entry: ;
|
|||
|
|
; AX Binary number ;
|
|||
|
|
; DI Points to one past the last char in the ;
|
|||
|
|
; result buffer. ;
|
|||
|
|
; ;
|
|||
|
|
; Exit: ;
|
|||
|
|
; Result in the buffer MSD first ;
|
|||
|
|
; CX Digit count ;
|
|||
|
|
; ;
|
|||
|
|
; Modifies: ;
|
|||
|
|
; AX,BX,CX,DX and DI ;
|
|||
|
|
; ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
bin2asc:
|
|||
|
|
mov bx,0ah
|
|||
|
|
xor cx,cx
|
|||
|
|
go_div:
|
|||
|
|
inc cx
|
|||
|
|
cmp ax,bx
|
|||
|
|
jb div_done
|
|||
|
|
xor dx,dx
|
|||
|
|
div bx
|
|||
|
|
add dl,'0' ;convert to ASCII
|
|||
|
|
push dx
|
|||
|
|
jmp short go_div
|
|||
|
|
|
|||
|
|
div_done:
|
|||
|
|
add al,'0'
|
|||
|
|
push ax
|
|||
|
|
mov bx,cx
|
|||
|
|
deposit:
|
|||
|
|
pop ax
|
|||
|
|
stosb
|
|||
|
|
loop deposit
|
|||
|
|
mov cx,bx
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Print the current file name ;
|
|||
|
|
; ;
|
|||
|
|
; modifies: ;
|
|||
|
|
; DX, CX, BX and AX ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
prt_file_name:
|
|||
|
|
mov dx,offset file_name_buf ;print the file name
|
|||
|
|
mov cx,ds:file_name_len ;retrive file name length
|
|||
|
|
jmp short prt_err_2
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; Print an error message to the Standart error ;
|
|||
|
|
; ;
|
|||
|
|
; entry: ;
|
|||
|
|
; DX has the pointer to the message ;
|
|||
|
|
; CX has the length of the message ;
|
|||
|
|
; ;
|
|||
|
|
; modifies: ;
|
|||
|
|
; BX and AX ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
prt_err:
|
|||
|
|
push ds ;Save the current DS
|
|||
|
|
push cs ;Make DS point to the right
|
|||
|
|
pop ds ; place, for DOS use.
|
|||
|
|
call prt_err_2
|
|||
|
|
pop ds
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
prt_err_2:
|
|||
|
|
xor ch,ch
|
|||
|
|
mov bx,std_err
|
|||
|
|
mov ah,write
|
|||
|
|
int dos_ent ;write error message
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; CAPIALIZES THE CHARACTER IN AL ;
|
|||
|
|
; ;
|
|||
|
|
; entry: ;
|
|||
|
|
; AL has the character to Capitalize ;
|
|||
|
|
; ;
|
|||
|
|
; exit: ;
|
|||
|
|
; AL has the capitalized character ;
|
|||
|
|
; ;
|
|||
|
|
; modifies: ;
|
|||
|
|
; AL ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
make_caps:
|
|||
|
|
cmp al,'a'
|
|||
|
|
jb no_cap
|
|||
|
|
cmp al,'z'
|
|||
|
|
jg no_cap
|
|||
|
|
and al,0dfh
|
|||
|
|
no_cap:
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
IF KANJI
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; ADVANCE POINTER TO NEXT KANJI CHARACTER ;
|
|||
|
|
; ;
|
|||
|
|
; entry: DI points to a Kanji string ;
|
|||
|
|
; CX length in bytes of the string ;
|
|||
|
|
; ;
|
|||
|
|
; exit: DI points to next Kanji char ;
|
|||
|
|
; CX has number of bytes left ;
|
|||
|
|
; ;
|
|||
|
|
; modifies: AX ;
|
|||
|
|
; ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
next_kchar:
|
|||
|
|
jcxz no_kleft
|
|||
|
|
call is_prefix
|
|||
|
|
jnc no_p
|
|||
|
|
inc di
|
|||
|
|
dec cx
|
|||
|
|
jcxz no_kleft ; for insurance
|
|||
|
|
no_p:
|
|||
|
|
inc di
|
|||
|
|
dec cx
|
|||
|
|
clc
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
no_kleft:
|
|||
|
|
stc
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
; FIND OUT IS THE BYTE IS A KANJI PREFIX ;
|
|||
|
|
; ;
|
|||
|
|
; entry: DI points to a kanji string ;
|
|||
|
|
; ;
|
|||
|
|
; exit: Carry set if it is a kanji prefix ;
|
|||
|
|
; ;
|
|||
|
|
; modifies: AX ;
|
|||
|
|
; ;
|
|||
|
|
;--------------------------------------------------------------------;
|
|||
|
|
is_prefix:
|
|||
|
|
mov al,byte ptr [di]
|
|||
|
|
cmp al,81h
|
|||
|
|
jb nok
|
|||
|
|
cmp al,0a0h
|
|||
|
|
jb isk
|
|||
|
|
cmp al,0e0h
|
|||
|
|
jb nok
|
|||
|
|
cmp al,0fdh
|
|||
|
|
jb isk
|
|||
|
|
nok:
|
|||
|
|
clc
|
|||
|
|
ret
|
|||
|
|
isk:
|
|||
|
|
stc
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- PATCH AREA ---------------------------------------------------;
|
|||
|
|
|
|||
|
|
patch_area dw 100h dup(?)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- BUFFER AREA --------------------------------------------------;
|
|||
|
|
st_length dw 0 ;String argumnet length
|
|||
|
|
st_buffer db st_buf_size dup(?) ;String argument buffer
|
|||
|
|
|
|||
|
|
file_name_len dw 0 ;File name length
|
|||
|
|
file_name_buf db fname_buf_size+1 dup(?) ;File name buffer,(allow for
|
|||
|
|
; null at the end).
|
|||
|
|
|
|||
|
|
buffer db buffer_size+1 dup(?) ;file buffer, the last byte is
|
|||
|
|
;a guard in case of forced insertion
|
|||
|
|
;of a CRLF pair.
|
|||
|
|
|
|||
|
|
;----- ERROR MESSAGES -----------------------------------------------;
|
|||
|
|
EXTRN bad_vers:byte,crlf:byte,errmsg1:byte,errlen1:byte,errmsg2:byte
|
|||
|
|
EXTRN errmsg3_pre:byte,errlen3_pre:byte
|
|||
|
|
EXTRN errmsg3_post:byte,errlen3_post:byte
|
|||
|
|
EXTRN errmsg4_pre:byte,errlen4_pre:byte
|
|||
|
|
EXTRN errmsg4_post:byte,errlen4_post:byte
|
|||
|
|
EXTRN heading:byte,heading_len:byte,errlen2:byte
|
|||
|
|
EXTRN errmsg5:byte,errmsg5_opt:byte,errlen5:byte
|
|||
|
|
code ends
|
|||
|
|
|
|||
|
|
|
|||
|
|
;----- STACK AREA ---------------------------------------------------;
|
|||
|
|
stack segment stack
|
|||
|
|
|
|||
|
|
dw 64 dup(?,?)
|
|||
|
|
stack_top equ $
|
|||
|
|
|
|||
|
|
stack ends
|
|||
|
|
|
|||
|
|
end start
|
|||
|
|
|