OS/2 Professional

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / fmail / fms.asm < prev next >

Wrap

Assembly Source File | 1991-05-23 | 217.7 KB | 7,561 lines

;Sat Sat 04-06-1991 ; FMAIL ver 1.00 ;******************************************************************************** ; ;This code is only slightly commented, but most of the subroutines are well ;headed with entry and exit characteristics. The code is written in a ;"self commenting" manner so there should be little difficulty in following ;it. ; ;I'll not claim that this is "great" code, It's not! It is very loose and ;wasteful in both size and speed. It is easy to work with though and easy to ;modify. (easier to write too). ; ;The entire first section (up to the start of the data segment) is a set of ;macros and structures to ease the calling conventions of the API and reduce ;errors. I'm still adding to this regularly and it could easily be put in an ;include file. ; ;As a general rule (that is often broken) the subroutines follow the parent. ; ;You will often find non attached pieces of code in this file. These will ;usually be parts of features in progress of debugging aids. ; ;The entire program is my exclusive work with the exception on the crc ;computation routine which was found in public domain file and entirely ;rewritten with the exception of the table of values. My thanks to the unknown ;author. ; ;This work is copyrite 1991 by Patrick O'Riva, all rights reserved. ; ;You may use, modify, distribute, or whatever else you wish to do with it as ;long as no money is asked for it. As long as pieces of it are recognizable ;you must include my copyrite and this notice. ; ;If you are adding features to FMAIL as a whole (rather than writing a new ;mailer using parts of this) send the changes to me for inclusion in an ;"official" release. ; ;********************************************************************************** .286 false equ 0 true equ 1 tight equ false debug equ false drived equ false no_tosslog equ false lodad macro lodsw mov dx,ax lodsw xchg dx,ax endm ddata macro push _data pop ds endm edata macro push _data pop es endm xdses macro push ds push es pop ds pop es endm prt macro message mov di,offset message call print_asciiz endm add_m32_rax macro m32 push dx xor dx,dx add word ptr m32,ax adc word ptr m32+2,dx pop dx endm error_check macro local mend and ax,ax jz mend stc mend: endm openerror macro path,jump local endoe jnc endoe mov si,offset path jmp jump endoe: endm mdosallocseg macro selname,sharing_mode push ax mov ax,offset selname push ds push ax push sharing_mode call dosallocseg error_check endm ;doschdir....ds:si -> at a path (may contain drive(1 based)) mdoschdir macro push ds push si xor ax,ax push ax push ax call doschdir error_check endm ;doschgfileptr ;changes the dos file pointer. Receives the handle in ax, delta in dx:bx ; rets the new file pointer in cur_file_ptr ;cur_file_ptr dd 0 rel_end equ 2 rel_beg equ 0 rel_cur equ 1 mdoschgfileptr macro relative push ax push dx push bx push relative mov ax,offset cur_file_ptr push ds push ax call doschgfileptr error_check endm mdosclose macro local mnoopen and ax,ax jz mnoopen push ax call dosclose error_check mnoopen: endm ;mdosdelete si -> at the pathname to delete mdosdelete macro push ds push si xor ax,ax push ax push ax call dosdelete error_check endm ;for DosExecPgm the following should be defined before the macro call ;objname db 20 dup(0) ;this recs failing .dll ;arg_strings label byte ; simple program name asciiz ; string, followed by one or ; more asciiz args. 2null ; terminated ; ;env_strings label byte ; 0 or more asciiz env strings ; 2null terminated ;child_pathname asciiz ; ;on entry si is offset of pathname, bx is offset of arg strings, cx offset ; of envstrings, ax = 0 for synchronous mode ; ;on exit result is child termination type and result2 is termination code mdosexecpgm macro push ds push offset objname push 20 push ax push ds push bx push ds push cx push ds push offset results push ds push si call dosexecpgm error_check endm mdosfindfirst macro push cx push ax push ds push offset search_handle push dx push word ptr doscall_inseg push si push di push ds push offset max_find xor ax,ax push ax push ax call dosfindfirst and ax,ax error_check endm ;mdosmove si points at old pathname, di points at new pathname ;used for renaming or moving file within a drive, and renaming directories ;directories must exist. extrn dosmove:far mdosmove macro push ds push si push ds push di xor ax,ax push ax push ax call dosmove error_check endm mmdosopen macro push ds push si push ds push offset handle push ds push offset result push bx push cx mov si,ax mov al,ah xor ah,ah push ax mov ax,si xor ah,ah push ax push dx xor ax,ax push ax push ax call dosopen endm mdosopen macro l_o_pathname,if_exist,if_n_exist local m1 push bx push cx push dx push si mov dl,sharing add dl,access mov dh,other_open_flags mov al,if_exist+if_n_exist mov ah,attrib_create mov si,offset filesize mov cx,[si] mov bx,[si+2] mov si,offset l_o_pathname mmdosopen and ax,ax jz m1 stc m1: pop si pop dx pop cx pop bx endm ;mdosqcurdir parameter receives the directory pathname. cx hold the ; length of the buffer, ax has the drive number (1 based) mdosqcurdir macro dirpath mov result,cx push ax push ds push offset dirpath push ds push offset result call dosqcurdir error_check endm ;mdosqcurdisk first parameter receives a word giving the drive number ; (1 based). The second parameter receives a dword drive bitmap ; (bits 0-25 indicate logical drives) mdosqcurdisk macro drive_code,bitmap push ds push offset drive_code push ds push offset bitmap call dosqcurdisk error_check endm mdosqfileinfo macro struc_file_info push handle push 1 push ds push offset struc_file_info push type file_info call dosqfileinfo error_check endm mdosread macro mov ax,handle push ax push doscall_inseg push si push cx push ds push offset results call dosread error_check endm ;mdosscanenv searches the current environment for string pointed to by si ; returns the offset in result if found. mdosscanenv macro push ds push si push ds push offset result call dosscanenv error_check endm ;mdossearchpath searches an explicit list of directories (seperated by semicolons) ; or as contained in an environment variable(bare name only) pointed to by si ; for the filename pointed to by di (wildcards ok). bx points to the buffer to ; receive the fully qualified pathname (wildcards NOT expanded) cx is the length ; of the buffer pointed to by bx. Ax is search control. 0 = search current only ; if explicitly listed. 1 = always search current first. mdossearchpath macro push ax push ds push si push ds push di push ds push bx push cx call dossearchpath error_check endm ;mdosselectdisk requires drive number (1 based) in ax mdosselectdisk macro push ax call dosselectdisk error_check endm ;mdoswrite - receives the handle in ax,the count in cx, offset of buffer in si mdoswrite macro l_o_buffseg,l_o_bytes_written push ax mov ax,l_o_buffseg push ax push si push cx push ds push offset l_o_bytes_written call doswrite error_check endm ;uses viocall and sends a crlf to the console pcrlf macro mov di,offset CRLF call print_asciiz endm nodediz macro mov ax,[di+1] ; or al,[di] or ax,[di+3] endm nodesiz macro mov ax,[si+1] ; or al,[si] or ax,[si+3] endm wstring macro azstring mov si,offset azstring call write_asciiz endm logaz macro azstring mov si,offset azstring call eozs mov ax,log_handle push ds pop doscall_inseg mdoswrite doscall_inseg,results endm extrn dosallocseg:far extrn doschdir:far extrn doschgfileptr:far extrn dosclose:far extrn dosdelete:far extrn dosdelete:far extrn dosexecpgm:far extrn dosexit:far extrn dosfindfirst:far extrn dosfreeseg:far extrn dosgetdatetime:far extrn dosopen:far extrn dosqcurdisk:far extrn dosqcurdir:far extrn dosqfileinfo:far extrn dosread:far extrn dosscanenv:far extrn dossearchpath:far extrn dosselectdisk:far extrn dossetmaxfh:far extrn doswrite:far extrn viowrttty:far dupes_no equ 2000 route_area struc rt_crash db 200 dup (5 dup (0)) rt_hold db 200 dup (5 dup (0)) rt_send db 200 dup (5 dup (0)) rt_leave db 200 dup (5 dup (0)) rt_this_one db 100 dup (5 dup (0)) rt_through db 100 dup (5 dup (0)) route_area ends read_only_attrib equ 1 hidden equ 2 ssystem equ 4 archive equ 32 open equ 1 fail equ 0 replace equ 2 create equ 010h read_only_access equ 0 write_only equ 1 read_write equ 2 deny_all equ 16 deny_write equ 32 deny_read equ 48 deny_none equ 64 no_share equ 0 ;standard data used in file manipulation file_info struc ffile_date_create dw 0 ffile_time_create dw 0 ffile_date_access dw 0 ffile_time_access dw 0 ffile_date_write dw 0 ffile_time_write dw 0 ffile_size dw 0 ffile_size_hi dw 0 ffile_alloc dd 0 ffile_attrib dw 0 flen_filename db 0 ffilename db 20 dup (0) file_info ends config_info struc ;[bx] sys_default db 40 dup (0) config_akas dw 5 dup (0) toss_log db 40 dup (0) net_file db 40 dup (0) net_mail db 40 dup (0) config_info ends smessage_header struc msg_from_net dw 0 msg_from_node dw 0 smessage_header ends line_infos struc li_path db 61 dup (0) li_highest dw 0 ;hex of highest message number. 0 if not yet determined li_flag db 0 li_area db 20 dup (0) li_nodes dw 40 dup (0) line_infos ends message_format struc mFromUser db 36 dup (0) mToUser db 36 dup (0) mSubject db 72 dup (0) mDateTime db 20 dup (0) mtimes_read dw 0 mdest_node dw 0 morigin_node dw 0 mcost dw 0 morigin_net dw 0 mdest_net dw 0 mdest_Zone dw 0 morigin_Zone dw 0 mdest_point dw 0 morigin_point dw 0 mreply_to dw 0 mattribute dw 0 mnext_reply dw 0 mtext db 0 message_format ends pmsg_format struc ; [si] ;pmcode dw 0002h ;This structure is used in get_msg pmorigin_node dw 0 pmdest_node dw 0 pmorigin_net dw 0 pmdest_net dw 0 pmattribute dw 0 pmcost dw 0 pmDateTime dw 0 pmsg_format ends spmsg_format struc ; [si] spmcode dw 0002h ;This structure is used in scanning spmorigin_node dw 0 ;by send_to_node spmdest_node dw 0 spmorigin_net dw 0 spmdest_net dw 0 spmattribute dw 0 spmcost dw 0 spmDateTime dw 0 spmsg_format ends bad_flag equ 1 netmail_flag equ 2 split_flag equ 4 no_more_flag equ 8 ;toss equ's no_area equ 1 end_log equ 2 assume cs:_code assume ds:_data DGROUP group _DATA _DATA SEGMENT para PUBLIC 'DATA' ; ;filesize dd 0 ;?? ;sharing db 0 ;deny_all | deny_none | deny_read | deny_write ;Attrib_creat db 0 ;sum of read_only_attrib + hidden + system + archive ;access db 0 ;read_only_access | write_only | read_write ;other_open_flags db 0 ;(nominal 0) ;high 8bits of mode word config_index label word dw offset config$1 dw offset config$2 dw offset config$3 dw offset config$4 dw offset config$5 dw offset config$6 dw offset config$7 dw offset config$8 dw offset config$9 dw offset config$10 dw offset config$11 dw offset config$12 dw offset config$13 dw offset config$14 dw offset config$15 dw offset config$16 dw offset config$17 dw offset config$18 dw offset config$19 dw offset config$20 dw offset config$21 dw offset config$22 dw offset config_sr_ind end_index label byte config_strings label byte config$1 db 'Primary_Zone',0 config$2 db 'Address',0 config$3 db 'aka',0 config$4 db 'Add_To_Seen',0 config$5 db 'NetMail',0 config$6 db 'NetFile',0 config$7 db 'Outbound',0 config$8 db 'Status_Log',0 config$9 db 'Sysop',0 config$10 db 'Bad_Msgs',0 config$11 db 'Dupes',0 config$12 db 'No_Net_Dupes',0 config$13 db 'No_Content',0 config$14 db 'Echo_Toss_Log',0 config$15 db 'Net_Sent',0 config$16 db 'No_Private_EchoMail',0 config$17 db 'Max_Msgs',0 config$18 db 'Routing_Config_File',0 config$19 db 'No_Forward',0 config$20 db 'Kill_Forwarded_Files',0 config$21 db 'Packet_Path',0 config$22 db 'OMMM_CMD_file',0 config_sr_ind label word dw offset config_sr_1 dw offset config_sr_2 dw offset config_sr_3 dw offset config_sr_4 dw offset config_sr_5 dw offset config_sr_6 dw offset config_sr_7 dw offset config_sr_8 dw offset config_sr_9 dw offset config_sr_10 dw offset config_sr_11 dw offset config_sr_12 dw offset config_sr_13 dw offset config_sr_14 dw offset config_sr_15 dw offset config_sr_16 dw offset config_sr_17 dw offset config_sr_18 dw offset config_sr_19 dw offset config_sr_20 dw offset config_sr_21 dw offset config_sr_22 route_index label word dw offset route$1 route_strings label byte route$1 db 'CRASH',0 route$2 db 'HOLD',0 route_sr_ind label word dw offset route_sr_1 pri_zone dw 0 this_add db 5 dup (0) akas db 10 dup (5 dup (0)) seens db 10 dup (5 dup (0)) netmail_path db 64 dup (0) netfile_path db 64 dup (0) outbound db 64 dup (0) log_file db 64 dup (0) bad_msgs db 64 dup (0) echo_toss db 64 dup (0) routing db 64 dup (0) cmd_file_head db 20 dup (0) pack_path db 80 dup (0) sysop db 20 dup (0) objname db 20 dup (0) dupes dw 1000 max_msgs dw 0ffffh this_seg dw 0 cmd_offset dw 0 size_of_dgroup dw 0 size_of_stack dw 0 crlf db 0dh,0ah,0 cr_only db 0dh,0 space3 db 20h space2 db 20h space1 db 20h,0 toss_cmd db 'toss',0 scan_cmd db 'scan',0 test_cmd db 'test',0 tosslog_cmd db 'tlog',0 delete_cmd db 'delete',0 stack_start dw 0 handle dw 0 results label dword result dw 0 result2 dw 0 doscall_inseg dw 0 doscall_outseg dw 0 search_path_ptr dd 0 search_pattern_offset dw 0 search_handle dw 0 search_attrib dw 0 max_find dw 0 find_ptr dw 0 total_finds dw 0 cur_file_ptr dd 0 comspec_srch db 'COMSPEC',0 cmd_path db 80 dup (0) cmd_simple db 80 dup (0) filesize dd 0 sharing db deny_all Attrib_create db 0 access db read_write other_open_flags db 0 device_name db "COM2:",0 Null_target dw 0 dw 0 lzh_string db '-lh',0 zip_string db 'PK',0 home_drive dw 4 home_dr_ascii db 3 dup(0) home_directory db 64 dup(0) Dev_cont_blk dw 0 dw 0 dflagsb1 db 0 dflagsb2 db 0 dflagsb3 db 0 db 0 db 0 db 0 db 0 end_dev_cont_blk db 0 zero db 0 rail db 0 msg_cntr dw 0 scan_count dw 0 first_digit db 0 temp_def_net dw 0 temp_def_zone db 0 error_code dw 0 system db 180 dup (0) sel_environ dw 0 sel_areas dw 0 sel_ar_bbs dw 0 sel_config_file dw 0 sel_config dw 0 sel_pkt_buf dw 0 sel_msg_buf dw 0 sel_pmsg_buf dw 0 sel_names dw 0 sel_tosslog dw 0 sel_route dw 0 if debug ife drived areas_name db 'h:\work\areas.bbs',0 limit_areas dw 0 area_changed db 0 config_name db 'h:\work\FMAIL.CFG',0 else areas_name db 'd:\binkp\areas.bbs',0 limit_areas dw 0 area_changed db 0 config_name db 'd:\binkp\FMAIL.CFG',0 endif else areas_name db '.\areas.bbs',0 limit_areas dw 0 area_changed db 0 config_name db '.\FMAIL.CFG',0 endif no_more_bndls db 0 packet_path db 60 dup (0) ;place where the pkt path is assembled pkt_handle dw 0 pkt_path_end dw 0 pkt_size dd 0 cur_pkt_file_ptr dd 0 large_packet db 0 ;flag for .pkt >64k packet_search db '*.pkt',0 bundmo db '*.mo?',0 bundtu db '*.tu?',0 bundwe db '*.we?',0 bundth db '*.th?',0 bundfr db '*.fr?',0 bundsa db '*.sa?',0 bundsu db '*.su?',0 all_file_info db type file_info dup (0) end_file_info equ $ configuration db type config_info dup (0) ;obsolete packet_hdr label byte phorigin_node dw 0 phdest_node dw 0 phyear dw 0 phmonth dw 0 phday dw 0 phhour dw 0 phminute dw 0 phsecond dw 0 phbaud dw 0 phcode dw 0 ;0002h phorigin_net dw 0 phdest_net dw 0 phproduct db 089h phserial db 1 ; db 0 phpassword db 8 dup (0) phorigin_Zone db 0 phdest_Zone db 0 ; db 0 phfill db 22 dup (0) packet_hdr_end label byte current_read dw 0 bad_packet db 0 empty_pkt db 0 mail_flags db 0 message_is_split db 0 no_more_msgs db 0 no_more_pkts db 0 current_area_info label dword ;no, do NOT put value here areas_segment dw 0 current_path dw 0 ;pointer to the path part of the parsed areas file. path_line db 1,'PATH:',0 ;search prototype origin_line db ' * Origin:',0 ;search prototype area_line db 'AREA:',0 tear_line db '---',0 seen_by_line db 'SEEN-BY:',0 find_buffer db type file_info dup (0) msg_start dw 0 pathline_start dw 0 ;generally refers to the current version ;of the message (packed or unpacked) msg_length dw 0 upmsg_length dw 0 end_of_msg dw 0 prev_end dw 0 text_start dw 0 EVEN current_area db 20 dup (0) ;as extracted from the areas buffer route_work_area label byte seen_by_list db 4096 dup (0) ;expanded hex format path_list db 4096 dup (0) ;expanded hex format message_pathname label byte ;that's right no value cur_path_line db 80 dup (0) first_seen_by dw 0 first_path dw 0 target_end dw 0 null_node dd 0 highest_msg dw 0 lowest_msg dw 0 column_ctr db 0 path_end dw 0 cur_ar_path_end dw 0 msg_counter dw 0 msg_search db '*.msg',(0) out_search db '*.out',(0) EVEN scratch_path db 64 dup (0) scratch_path_end dw 0 vmsg_dot db '.',0 vmsg_delete db 0dh,0ah,'Deleting msgs in area - ',0 vmsg_get db 'Getting msg ',0 vmsg_to_area db ' to area ',0 vmsg_scan db 'Scanning directory ',0 vmsg_scanned db 'Scan Complete',0 vmsg_toss_num db 'Tossing message ',0 vmsg_pconfig db 'Parsing Configuration File',0 vmsg_pareas db 'Parsing Areas.bbs',0 vmsg_allpkts db 'All packets tossed',0 vmsg_done db 'Done',0 vmsg_error db 'ERROR **** number ',0 vmsg_nocmd db 'No commands given',0 vmsg_pspawn db 'Spawning to Packer',0 logmsg_begin db 'BEGIN ',0 logmsg_end db 'END ',0 logmsg_pkt1 db ' @ ',0 logmsg_pkt2 db ' O=',0 logmsg_pkt3 db ' D=',0 logmsg_pkt4 db ' ID=',0 logmsg_pkt5 db ' S=',0 logmsg_echo1 db ' + ECHO: ',0 logmsg_echo2 db ' (Sent=',0 logmsg_stossed db 'Tossed ',0 logmsg_sscan db 'Scanned out ',0 logmsg_smsg db ' messages in ',0 logmsg_smins db ' minutes ',0 logmsg_ssecs db ' seconds.',0 logmsg_bndl db '& Unpacking ',0 ermsg_no_log db 'Unable to open Log File',0dh,0ah,0 ermsg_no_area db 0dh,0ah,'No such area as ',0 ermsg_bad_msg db 'Bad message or ???',0 ermsg_bad_open db 'Open/Create failed by explicit command',0 title_msg_l1 db 'FMAIL - Echomail utility ver 1.00',0 title_msg_l2 db 'The FAST Mail processor for OS/2',0 title_msg_l3 db 'Copyright 1991 by Patrick O',027h,'Riva 1:143/37',0 msg1 label byte ;in format: message_format fr_fmail db 'Fmail version 1.00 ' db 13 dup (20h),0 to_whom db 'Whom it may concern' db 16 dup (20h),0 sub_why db 'Storage of "High water" mark' db 43 dup (20h),0 dat_un db '21 Mar 91 16:54:32 ',0 hw_misc db 20 dup (0) hw_reply dw 2 hw_attrib dw 0108h dw 0 hw_text db 'High water mark at offset 0B8h',0dh,0ah hw_tear db '---',0dh,0ah hw_origin db 100 dup (20h) msg1_end equ $ hex_buff db 6 dup (0) toss_ptr dw 0 EVEN toss_list label byte db 8000 dup (0) dupes_list label byte dd dupes_no dup (0) scratch_ascii db 80 dup (0) scratch_node db 5 dup (0) dupes_file db 'fdups.dat',(0) dupes_num dw dupes_no dupes_ptr dw offset dupes_list dupes_handle dw 0 first_time db 0 fm_debug db 'h:\work\debug.log',0 debug_handle dw 0 log_handle dw 0 si_length dw 0 di_length dw 0 shortest dw 0 longest dw 0 arc_pathname db 'arc2.exe',0 arc_args db 'arc2',0 db 'x' db 'o ' arc_file db 'filename.ext',0 arc_other db 20 dup(0) db 0 zip_pathname db 'pkunzip2.exe',0 zip_args db 'pkunzip2 ',0 db '-o ' zip_file db 'filename.ext ' zip_other db 20 dup(0) db 0 lh_pathname db 'lh.exe',0 lh_args db 'lh ',0 db 'X ' db '/o ' lh_file db 'filename.ext ',0 lh_other db 20 dup(0) bad_arc_string db 'BAD_ARC.*',0 start_in_secs dw 0 end_in_secs dw 0 toss_flag db 0 tosslog_length dw 0 toss_add dw 0 err_index label word dw offset os_err000 dw offset os_err001 dw offset os_err002 dw offset os_err003 dw offset os_err004 dw offset os_err005 dw offset os_err006 dw offset os_errx dw offset os_err008 dw offset os_errx dw offset os_err00a dw offset os_err00b dw offset os_err00c dw offset os_err00d dw offset os_err00e dw offset os_err00f dw offset os_err010 dw offset os_err011 dw offset os_err012 dw offset os_err013 dw offset os_errx dw offset os_err015 dw offset os_err016 dw offset os_err017 dw offset os_err018 dw offset os_err019 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err01f dw offset os_err020 dw offset os_err021 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err050 dw offset os_errx dw offset os_err052 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err05b dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err06e dw offset os_err06f dw offset os_err070 dw offset os_err071 dw offset os_errx dw offset os_errx dw offset os_err074 dw offset os_err075 dw offset os_errx dw offset os_errx dw offset os_err078 dw offset os_errx dw offset os_errx dw offset os_err07b dw offset os_errx dw offset os_err07d dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err099 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err0a0 dw offset os_err0a1 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err0bc dw offset os_err0bd dw offset os_err0be dw offset os_err0bf dw offset os_err0c0 dw offset os_err0c1 dw offset os_err0c2 dw offset os_err0c3 dw offset os_err0c4 dw offset os_err0c5 dw offset os_errx dw offset os_err0c7 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err0cb dw offset os_errx dw offset os_errx dw offset os_err0ce dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_err0d3 dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx dw offset os_errx os_err000 db 'No Error',0 os_err001 db 'Invalid Function Number',0 os_err002 db 'File not found',0 os_err003 db 'Path not found',0 os_err004 db 'Out of handles',0 os_err005 db 'Access denied',0 os_err006 db 'Invalid handle',0 os_err008 db 'Insufficient memory',0 os_err00a db 'invalid environment',0 os_err00b db 'invalid format',0 os_err00c db 'invalid access code',0 os_err00d db 'invalid data',0 os_err00e db 'unknown unit',0 os_err00f db 'invalid disk drive',0 os_err010 db 'cannot remove current directory',0 os_err011 db 'Not same device',0 os_err012 db 'No more files',0 os_err013 db 'Disk write protected',0 os_err015 db 'Drive not ready',0 os_err016 db 'Unknown unit',0 os_err017 db 'Unknown command',0 os_err018 db 'Data error',0 os_err019 db 'Bad request structure length',0 os_err01f db 'General failure',0 os_err020 db 'Sharing violation',0 os_err021 db 'Lock violation',0 os_err050 db 'File already exists',0 os_err052 db 'Cannot make directory',0 os_err05b db 'System Error',0 os_err06e db 'Open/create failed due to explicit fail command',0 os_err06f db 'Buffer too small',0 os_err070 db 'Disk is full',0 os_err071 db 'No more search handles',0 os_err074 db 'Error on display write or keyboard read',0 os_err075 db 'Invalid DosDevIOCTL catagory',0 os_err078 db 'Invalid function called',0 os_err07b db 'Invalid character or bad filename',0 os_err07d db 'No volume label found',0 os_err099 db 'Invalid list format',0 os_err0a0 db 'Bad environment pointer',0 os_err0a1 db 'Bad pathname for DosExecPgm',0 os_err0bc db 'Invalid starting code segment',0 os_err0bd db 'invalid stack segment',0 os_err0be db 'Invalid module type',0 os_err0bf db 'Wrong EXE file header',0 os_err0c0 db 'Invalid EXE file,link errors',0 os_err0c1 db 'Invalid EXE format',0 os_err0c2 db 'Iterated data exceeds 64KB',0 os_err0c3 db 'Invalid minium allocation size',0 os_err0c4 db 'Invalid Dynamic link fron ring 2 segment',0 os_err0c5 db 'IOPL not enabled in Config.sys',0 os_err0c7 db 'Automatic data segment exceeds 64KB',0 os_err0cb db 'Environment variable not found',0 os_err0ce db 'Filename or extension too long',0 os_err0d3 db 'File system information not available',0 os_errx db 'Undefined error',0 _DATA ENDS _data segment ;------------------------------------------------------------------------------ ; data for crc-32 routine ;------------------------------------------------------------------------------ crc_32_table label dword .radix 010h dw 00000h, 00000h, 07707h, 03096h, 0ee0eh, 0612ch, 09909h, 051bah, 0076dh, 0c419h, 0706ah, 0f48fh, 0e963h, 0a535h, 09e64h, 095a3h dw 00edbh, 08832h, 079dch, 0b8a4h, 0e0d5h, 0e91eh, 097d2h, 0d988h, 009b6h, 04c2bh, 07eb1h, 07cbdh, 0e7b8h, 02d07h, 090bfh, 01d91h dw 01db7h, 01064h, 06ab0h, 020f2h, 0f3b9h, 07148h, 084beh, 041deh, 01adah, 0d47dh, 06dddh, 0e4ebh, 0f4d4h, 0b551h, 083d3h, 085c7h dw 0136ch, 09856h, 0646bh, 0a8c0h, 0fd62h, 0f97ah, 08a65h, 0c9ech, 01401h, 05c4fh, 06306h, 06cd9h, 0fa0fh, 03d63h, 08d08h, 00df5h dw 03b6eh, 020c8h, 04c69h, 0105eh, 0d560h, 041e4h, 0a267h, 07172h, 03c03h, 0e4d1h, 04b04h, 0d447h, 0d20dh, 085fdh, 0a50ah, 0b56bh dw 035b5h, 0a8fah, 042b2h, 0986ch, 0dbbbh, 0c9d6h, 0acbch, 0f940h, 032d8h, 06ce3h, 045dfh, 05c75h, 0dcd6h, 00dcfh, 0abd1h, 03d59h dw 026d9h, 030ach, 051deh, 0003ah, 0c8d7h, 05180h, 0bfd0h, 06116h, 021b4h, 0f4b5h, 056b3h, 0c423h, 0cfbah, 09599h, 0b8bdh, 0a50fh dw 02802h, 0b89eh, 05f05h, 08808h, 0c60ch, 0d9b2h, 0b10bh, 0e924h, 02f6fh, 07c87h, 05868h, 04c11h, 0c161h, 01dabh, 0b666h, 02d3dh dw 076dch, 04190h, 001dbh, 07106h, 098d2h, 020bch, 0efd5h, 0102ah, 071b1h, 08589h, 006b6h, 0b51fh, 09fbfh, 0e4a5h, 0e8b8h, 0d433h dw 07807h, 0c9a2h, 00f00h, 0f934h, 09609h, 0a88eh, 0e10eh, 09818h, 07f6ah, 00dbbh, 0086dh, 03d2dh, 09164h, 06c97h, 0e663h, 05c01h dw 06b6bh, 051f4h, 01c6ch, 06162h, 08565h, 030d8h, 0f262h, 0004eh, 06c06h, 095edh, 01b01h, 0a57bh, 08208h, 0f4c1h, 0f50fh, 0c457h dw 065b0h, 0d9c6h, 012b7h, 0e950h, 08bbeh, 0b8eah, 0fcb9h, 0887ch, 062ddh, 01ddfh, 015dah, 02d49h, 08cd3h, 07cf3h, 0fbd4h, 04c65h dw 04db2h, 06158h, 03ab5h, 051ceh, 0a3bch, 00074h, 0d4bbh, 030e2h, 04adfh, 0a541h, 03dd8h, 095d7h, 0a4d1h, 0c46dh, 0d3d6h, 0f4fbh dw 04369h, 0e96ah, 0346eh, 0d9fch, 0ad67h, 08846h, 0da60h, 0b8d0h, 04404h, 02d73h, 03303h, 01de5h, 0aa0ah, 04c5fh, 0dd0dh, 07cc9h dw 05005h, 0713ch, 02702h, 041aah, 0be0bh, 01010h, 0c90ch, 02086h, 05768h, 0b525h, 0206fh, 085b3h, 0b966h, 0d409h, 0ce61h, 0e49fh dw 05edeh, 0f90eh, 029d9h, 0c998h, 0b0d0h, 09822h, 0c7d7h, 0a8b4h, 059b3h, 03d17h, 02eb4h, 00d81h, 0b7bdh, 05c3bh, 0c0bah, 06cadh dw 0edb8h, 08320h, 09abfh, 0b3b6h, 003b6h, 0e20ch, 074b1h, 0d29ah, 0ead5h, 04739h, 09dd2h, 077afh, 004dbh, 02615h, 073dch, 01683h dw 0e363h, 00b12h, 09464h, 03b84h, 00d6dh, 06a3eh, 07a6ah, 05aa8h, 0e40eh, 0cf0bh, 09309h, 0ff9dh, 00a00h, 0ae27h, 07d07h, 09eb1h dw 0f00fh, 09344h, 08708h, 0a3d2h, 01e01h, 0f268h, 06906h, 0c2feh, 0f762h, 0575dh, 08065h, 067cbh, 0196ch, 03671h, 06e6bh, 006e7h dw 0fed4h, 01b76h, 089d3h, 02be0h, 010dah, 07a5ah, 067ddh, 04acch, 0f9b9h, 0df6fh, 08ebeh, 0eff9h, 017b7h, 0be43h, 060b0h, 08ed5h dw 0d6d6h, 0a3e8h, 0a1d1h, 0937eh, 038d8h, 0c2c4h, 04fdfh, 0f252h, 0d1bbh, 067f1h, 0a6bch, 05767h, 03fb5h, 006ddh, 048b2h, 0364bh dw 0d80dh, 02bdah, 0af0ah, 01b4ch, 03603h, 04af6h, 04104h, 07a60h, 0df60h, 0efc3h, 0a867h, 0df55h, 0316eh, 08eefh, 04669h, 0be79h dw 0cb61h, 0b38ch, 0bc66h, 0831ah, 0256fh, 0d2a0h, 05268h, 0e236h, 0cc0ch, 07795h, 0bb0bh, 04703h, 02202h, 016b9h, 05505h, 0262fh dw 0c5bah, 03bbeh, 0b2bdh, 00b28h, 02bb4h, 05a92h, 05cb3h, 06a04h, 0c2d7h, 0ffa7h, 0b5d0h, 0cf31h, 02cd9h, 09e8bh, 05bdeh, 0ae1dh dw 09b64h, 0c2b0h, 0ec63h, 0f226h, 0756ah, 0a39ch, 0026dh, 0930ah, 09c09h, 006a9h, 0eb0eh, 0363fh, 07207h, 06785h, 00500h, 05713h dw 095bfh, 04a82h, 0e2b8h, 07a14h, 07bb1h, 02baeh, 00cb6h, 01b38h, 092d2h, 08e9bh, 0e5d5h, 0be0dh, 07cdch, 0efb7h, 00bdbh, 0df21h dw 086d3h, 0d2d4h, 0f1d4h, 0e242h, 068ddh, 0b3f8h, 01fdah, 0836eh, 081beh, 016cdh, 0f6b9h, 0265bh, 06fb0h, 077e1h, 018b7h, 04777h dw 08808h, 05ae6h, 0ff0fh, 06a70h, 06606h, 03bcah, 01101h, 00b5ch, 08f65h, 09effh, 0f862h, 0ae69h, 0616bh, 0ffd3h, 0166ch, 0cf45h dw 0a00ah, 0e278h, 0d70dh, 0d2eeh, 04e04h, 08354h, 03903h, 0b3c2h, 0a767h, 02661h, 0d060h, 016f7h, 04969h, 0474dh, 03e6eh, 077dbh dw 0aed1h, 06a4ah, 0d9d6h, 05adch, 040dfh, 00b66h, 037d8h, 03bf0h, 0a9bch, 0ae53h, 0debbh, 09ec5h, 047b2h, 0cf7fh, 030b5h, 0ffe9h dw 0bdbdh, 0f21ch, 0cabah, 0c28ah, 053b3h, 09330h, 024b4h, 0a3a6h, 0bad0h, 03605h, 0cdd7h, 00693h, 054deh, 05729h, 023d9h, 067bfh dw 0b366h, 07a2eh, 0c461h, 04ab8h, 05d68h, 01b02h, 02a6fh, 02b94h, 0b40bh, 0be37h, 0c30ch, 08ea1h, 05a05h, 0df1bh, 02d02h, 0ef8dh _data ends .radix 00ah assume cs:_code assume ds:_data public make_msg_pathname public terminate public main_tonextpkt public main_nxtmsg public main_nxtpkt _code segment public 'code' .286 ;****************************************************************************** ; do_crc32 - ; ; ; ENTRY: es:di -> buffer to crc ; cx = # of bytes to crc ; dx:ax = current crc (use FFFFFFFF if new check) ; ds -> segment with the crc table ; ; EXIT: dx:ax = new crc of buffer ; this should be xor'd with FFFFFFFF if it is the final CRC ; ; DESTROYED: ; ;------------------------------------------------------------------------------ do_crc32: public do_crc32 push bx push cx push di l1: mov bl,es:[di] inc di xor bl,al mov al,ah mov ah,dl mov dl,dh xor dh,dh xor bh,bh shl bx,1 shl bx,1 xor ax,word ptr crc_32_table[bx+2] xor dx,word ptr crc_32_table[bx] loop l1 pop di pop cx pop bx ret parse_config: ;enters with ds = local data public parse_config mov ax,08000h ; m8dosallocseg sel_config,no_share mdosopen config_name,open,fail jnc config1 mov si,offset config_name jmp file_error config1: ;;EXPAND: m8dosQfileinfo all_file_info push handle push 1 push ds push offset all_file_info push type file_info call dosqfileinfo ;;EXPAND: error_check clc and ax,ax jz m2 stc m2: mov bx,offset all_file_info add bx,offset ffile_size mov ax,word ptr [bx] add ax,0100h push ax ;;EXPAND: m8dosallocseg sel_config_file,no_share push ax mov ax,offset sel_config_file push ds push ax push no_share call dosallocseg pop cx dec cx mov es,sel_config_file mov di,0 call clean_buffer mov cx,word ptr [bx] mov si,0 mov ax,sel_config_file mov doscall_inseg,ax ;;EXPAND: m8dosread mov ax,handle push ax push word ptr doscall_inseg push si push cx push ds push offset result call dosread and ax,ax jz m3 stc m3: push ds pop es mov ds,sel_config_file mov si,es:all_file_info.ffile_size mov al,0dh mov cx,4 ;l5: x1: inc si mov byte ptr[si],al loop x1 mov si,0 mov di,offset configuration push di ;l4: x2: call find_config_line cmp si,es:all_file_info.ffile_size jae x6 call sstart jc x2 push si mov bx,0 ;l3: x3: mov si,offset config_index mov di,es:[si+bx] mov cx,es:[si+bx+2] sub cx,di mov ax,si add ax,bx cmp ax,offset end_index jae x5 ;this line didn't match pop si push si repz cmpsb and cx,cx jz x4 ;it's been found inc bx inc bx jmp short x3 ;l1: x4: pop ax ;throw it away call sstart mov di,offset config_sr_ind call es:[di+bx] jmp short x2 ;l2: x5: pop si jmp short x2 ;f1: x6: pop di ret config_sr_1: push si call find_eol call backup_to_eol mov cx,si pop si sub cx,si cmp cx,5 jbe x7 mov cx,5 ;l1: x7: call dechex mov es:pri_zone,ax ret config_sr_2: mov di,offset this_add call net_nodes ret config_sr_3: mov di,offset akas call net_nodes ret config_sr_4: mov di,offset seens call net_nodes ret config_sr_5: mov bx,offset netmail_path call xfer_path ret config_sr_6: mov bx,offset netfile_path call xfer_path ret config_sr_7: mov bx,offset outbound call xfer_path ret config_sr_8: mov bx,offset log_file call xfer_path ret config_sr_9: push si call find_eol mov cx,si pop si sub cx,si mov di,offset sysop rep movsb mov al,0 stosb ret config_sr_10: mov bx,offset bad_msgs call xfer_path ret config_sr_11: call slen call dechex mov es:dupes,ax ret config_sr_12: ret config_sr_13: ret config_sr_14: mov bx,offset echo_toss call xfer_path ret config_sr_15: ret config_sr_16: ret config_sr_17: call slen call dechex mov es:max_msgs,ax ret config_sr_18: mov bx,offset routing call xfer_path ret config_sr_19: ret config_sr_20: ret config_sr_21: mov bx,offset wkg_path call xfer_path ret config_sr_22: mov bx,offset pack_path call xfer_path ret parse_areas: ;enters with ds = local data public parse_areas mov ax,0f000h push ax mdosallocseg sel_areas,no_share pop cx dec cx mov es,sel_areas mov di,0 call clean_buffer mdosopen areas_name,open,fail jnc par1 mov si,offset areas_name jmp file_error par1: ;;EXPAND: m8dosQfileinfo all_file_info push handle push 1 push ds push offset all_file_info push type file_info call dosqfileinfo ;;EXPAND: error_check clc and ax,ax jz m6 stc m6: mov ax,word ptr all_file_info.ffile_size add ax,010h mdosallocseg sel_ar_bbs,no_share mov cx,word ptr all_file_info.ffile_size mov si,0 mov ax,sel_ar_bbs mov doscall_inseg,ax mdosread mov ax,handle mdosclose push ds pop es mov ds,sel_ar_bbs mov si,word ptr es:results mov al,0dh mov cx,4 ;l2: x8: inc si mov byte ptr[si],al loop x8 mov si,0 call sstart push si call find_eol call backup_to_eol mov cx,si pop si sub cx,si mov di,offset system rep movsb push es ;true data is on top of the stack mov di,0 ;l1: x9: call find_eol push di call parse_aline pop di mov dx,es pop es push es mov cx,es:all_file_info.ffile_size dec cx cmp si,cx jb y1 jmp short x10 y1: mov es,dx add di,type line_infos jmp short x9 ;f1: x10: pop es mov es:limit_areas,di push ds call DosFreeSeg push es pop ds mov si,offset origin_line mov di,offset hw_origin call write_asciiz mov si,offset system call write_asciiz mov al,20h stosb mov al,'(' stosb mov si,offset this_add call write_node mov al,')' stosb mov si,offset crlf call write_asciiz mov si,offset crlf call write_asciiz mov al,0 stosb ret parse_aline: ;ds:si points at start of line, di points at next ;available structure in areas segment. ;es has true data push es push di cmp byte ptr [si],'0' jb x13 cmp byte ptr [si],'z' ja x13 cmp byte ptr [si],';' je x13 cmp byte ptr [si],'@' je x13 ;l3: x11: call slen cld mov ax,es:sel_areas mov es,ax rep movsb call sstart jc x12 pop di push di add di,offset li_area call slen rep movsb pop di push di add di,offset li_nodes call sstart call net_nodes ;l2: x12: pop di pop es ret ;l1: x13: mov dx,es mov es,es:sel_areas push di add di,offset li_flag movsb mov es,dx pop di jmp short x11 Net_nodes: ;converts to expanded hex at es:di a ;line of net/nodes at ds:si ;format is: byte;zone word;node word;net call sstart jc x104 call slash_to_word push ax push ds ddata mov al,temp_def_zone stosb pop ds mov ax,dx and ax,07fffh stosw pop ax and ax,07fffh stosw jmp short net_nodes ;l1: x104: ret main: public main mov sel_environ,ax mov cmd_offset,bx mov size_of_dgroup,cx mov size_of_stack,dx mov this_seg,ds ;if debug ; ; mov ax,home_drive ; mdosselectdisk ; mov si,offset home_dr_ascii ; mdoschdir ;endif push 50 call dossetmaxfh mov sharing,deny_all mov byte ptr other_open_flags,020h mov word ptr toss_ptr,offset toss_list pcrlf prt title_msg_l1 pcrlf prt title_msg_l2 pcrlf prt title_msg_l3 pcrlf pcrlf pcrlf push ds mov stack_start,sp prt vmsg_pconfig pcrlf call parse_config pop ds push ds prt vmsg_done pcrlf prt vmsg_pareas pcrlf call parse_areas prt vmsg_done pcrlf mov sharing,deny_write mdosopen log_file,open,create jnc main4 prt ermsg_no_log jmp short main5 main4: mov ax,handle mov log_handle,ax call append call get_time mov di,offset scratch_ascii mov al,0dh stosb mov al,0ah stosb mov si,offset logmsg_begin call write_asciiz call write_time mov al,0dh stosb mov al,0ah stosb logaz scratch_ascii xor dx,dx mov ah,dh mov al,minute mov bx,60 mul bx add al,second adc ah,0 mov start_in_secs,ax main5: pop ds push ds mov ax,0ffffh ;allocate message buffer mdosallocSeg sel_msg_buf,no_share ;*** clean buffer pop ds push ds mov cx,0fffeh mov es,sel_msg_buf mov di,0 call clean_buffer mov si,cmd_offset mov ax,sel_environ push ds mov ds,ax call find_limit_2null push si push cx edata mov di,offset toss_cmd mov ax,1 call search_for jnc main2 pop cx pop si push si push cx mov di,offset scan_cmd mov ax,1 call search_for jnc to_scan pop cx pop si push si push cx mov di,offset delete_cmd mov ax,1 call search_for jnc to_delete pop cx pop si mov di,offset test_cmd mov ax,1 call search_for jnc to_test pop ds prt vmsg_nocmd pcrlf jmp terminate to_delete: pop cx pop si jmp delete_rtn to_test: ddata jmp up_bundle to_scan: pop cx pop si jmp scan main2: pop cx pop si pop ds main2b: call up_bundle mov no_more_bndls,0 jnc main2a mov no_more_bndls,1 main2a: mov access,read_write call get_packet main_test_pkt: jc main2c cmp empty_pkt,0 jz main_nxtpkt main2c: jmp main_tonextpkt ;------------------------------------------------------------------------------ ; each packet ;------------------------------------------------------------------------------ main_nxtpkt: push ds call get_header ;this is the Pkt header call log_pkt_info pop ds mov msg_start,36 mov msg_length,0 ;------------------------------------------------------------------------------ ; each message ;------------------------------------------------------------------------------ main_nxtmsg: ; push ds mov si,msg_start add si,msg_length call get_msg ;This unpacks the message and puts it ;in the message buffer pop ds push ds ;ds true data,es msg buffer test mail_flags,split_flag ; cmp message_is_split,0 jz x15 ; message split across 64K bound? ;p1: x14: call load_more_packet mov msg_start,0 mov msg_length,0 jnc y2 jmp main_tonextpkt y2: jmp main_nxtmsg ;l1: x15: test mail_flags,no_more_flag jz x17 ;temp patch to exit ; jmp terminate jmp main_tonextpkt ;p2: x16: jmp x14 ;l1: x17: test mail_flags,netmail_flag jz x250 jmp it_is_net x250: test mail_flags,bad_flag jz x251 jmp bad_msg x251: ;message must be skipped if it's a dupe call get_message_area call dlen if tight and cx,cx jzx 251a endif inc cx mov area_changed,0 mov si,offset current_area call comp_strings jz x20 mov area_changed,1 xchg di,si xdses push si push di push cx mov cx,20 xor ax,ax rep stosb pop cx pop di pop si call slen push cx rep movsb ;bring area string to data seg xdses ;ds: true data es: msg buffer pop cx ;bring back length of tag mov si,offset current_area pop ds push ds call locate_area jnc x18 x251a: jmp no_such_area ;l1: x18: pop ds push ds mov current_path,di call mov_cur_path_to_data call comp_t_area test first_time,0ffh mov first_time,1 jz x19 call write_dupes ;p1: x19: call load_dupes ;o1: x20: public atag_pull atag_pull: push di push cx call pull_atag pop cx pop di call crc_main jnc y3 jmp main_nxtmsg y3: pop ds push ds call strip_path pop ds push ds call strip_seen_bys push ds pop es ;es must -> at true data for next call mov si,offset akas mov di,offset seen_by_list call add_net_nodes mov si,offset seens mov di,offset seen_by_list call add_net_nodes ;might also have to ad the nodes from the areas list! ; mov di,offset path_list ; mov si,offset null_node ;;l2: ;x21: ; call double_comp ; jz x22 ; add di,4 ; jmp short x21 ;;l3: ;x22: ; mov si,offset this_add ; movsw ; movsw ;the path list is updated! mov di,upmsg_length mov es,sel_msg_buf call write_seen_bys ;this passes the endofmsg in di to next. call write_path_line test area_changed,0ffh jz x23 Throw_this_msg: call get_msg_high ;o2: public x23 x23: ;now we can toss it! call make_msg_pathname call print_tossing call log_area_toss mdosopen scratch_path,replace,create jnc main3 mov si,offset scratch_path call dos_error jmp bad_msg main3: mov ax,handle mov cx,upmsg_length mov si,0 ;;EXPAND: m8doswrite sel_msg_buf,results push ax push sel_msg_buf push si push cx push ds push offset results call doswrite ;;EXPAND: error_check clc and ax,ax jz m9 stc m9: mov ax,handle mdosclose inc msg_cntr ;it's time to look for next msg in packet or next packet jmp main_nxtmsg main_tonextpkt: call get_next_packet cmp byte ptr no_more_pkts,0 jne mtep2 jmp main_test_pkt mtep2: call up_bundle jnc main_tonextpkt ; mov al,no_more_bndls ; and al,al ; jnz terminate ; jmp main2b terminate: x24: ;l1: call write_t_area ;write out the toss log mov ax,msg_cntr and ax,ax jz x24b call write_dupes x24b: call get_time mov di,offset scratch_ascii mov si,offset logmsg_end call write_asciiz call write_time mov al,0dh stosb mov al,0ah stosb mov al,0 stosb logaz scratch_ascii mov al,minute xor ah,ah mov bx,60 mul bx add al,second adc ah,0 mov end_in_secs,ax sub ax,start_in_secs mov bx,60 div bx push dx push ax mov di,offset scratch_ascii mov al,0dh stosb mov al,0ah stosb mov si,offset logmsg_stossed call write_asciiz mov ax,tot_count call write_h_ascii mov si,offset logmsg_smsg call write_asciiz pop ax call write_h_ascii mov si,offset logmsg_smins call write_asciiz pop ax call write_h_ascii mov si,offset logmsg_ssecs call write_asciiz mov al,0 stosb logaz scratch_ascii mov di,offset scratch_ascii call print_asciiz mov ax,log_handle mdosclose mov ax,dupes_handle mdosclose mov ax,1 push ax ;terminate the process push error_code call dosExit ;END of MAIN for TOSS make_msg_pathname: mov di,cur_ar_path_end push _data pop es mov ax,highest_msg inc ax ;we'll put the message in the next one mov highest_msg,ax ;update the value call write_h_ascii mov al,'.' stosb mov al,'m' stosb mov al,'s' stosb mov al,'g' stosb xor ax,ax stosb ret ; ;call update_msg1 ;lodad macro ; lodsw ; mov dx,ax ; lodsw ; xchg dx,ax ;#em write_path_line: public write_path_line mov si,offset path_line mov temp_def_net,0 call write_asciiz mov al,020h stosb mov si,offset path_list x24a: ;l1: call write_node nodesiz jnz x24a push es mov ax,[si-4] mov temp_def_net,ax mov ax,si sub ax,5 ;ax points at last one written mov si,offset this_add push di edata mov di,ax call triple_comp ;if we're already listed pop di pop es jz wpl1 ;don't list us again call write_node wpl1: mov si,offset crlf call write_asciiz mov si,offset crlf call write_asciiz xor ax,ax stosb mov upmsg_length,di ret write_seen_bys: ;writes the seen_by lines to es:di public write_seen_bys mov temp_def_net,0 mov si,offset seen_by_list x25: ;l1: call write_sb_line push si mov si,offset CRLF pushf call write_asciiz popf pop si jnz x25 ret write_sb_line: ;rec pos in the nn_list in si public write_sb_line ;the position in the msg in es:di ;ds as true data. rets with a seen_by ;line written to the message. ;bx=zero and the z flag set if the end ;of the nn_list was reached push si mov si,offset seen_by_line call write_asciiz mov al,020h stosb mov column_ctr,10 mov temp_def_net,0 pop si x26: ;l1: push di call write_node mov ax,di mov bx,di pop di sub ax,di mov di,bx add al,column_ctr mov column_ctr,al cmp al,60 jb x27 mov bx,[si] or bx,[si+2] ret x27: ;l2: mov bx,[si] or bx,[si+2] jnz x26 ret public write_node write_node: ;rec the pos in the nn_list in si ;the position in the msg in es:di ;ds as true data. rets with a net/node ;or node written to the msg lodsb ; cmp al,temp_def_zone ; jz wn1 ; mov temp_def_zone,al ; xor ah,ah ; call write_h_ascii ; mov al,':' ; stosb wn1: lodad xchg ax,dx cmp dx,temp_def_net je x28 mov temp_def_net,dx jmp short x29 x28: ;l1: call write_h_ascii mov al,020h stosb ret x29: ;l2: push ax mov ax,dx call write_h_ascii mov al,'/' stosb pop ax jmp short x28 public write_asciiz write_asciiz: ;writes the ASCIIZ string -> ds:si ;to es:di. di is updated, si trashed ;remainder preserved push es push ds pop es xchg si,di push di call eoz pop di xchg di,si pop es cld rep movsb ret public write_h_ascii write_h_ascii: ;recs 4 digit hex in ax, and writes the ;5 digit (leading 0's supressed) ascii ;to es:di ax,bx,cx,dx,si may be trashed ;di is updated. call hexdec push ax mov al,bh or al,al jz x30 stosb x30: ;l1: mov al,bl or al,al jz x31 stosb x31: ;l2: mov al,dh or al,al jz x32 stosb x32: ;l3: mov al,dl or al,al jz x33 stosb x33: ;l4: pop ax stosb ret public write_h_ascii2d write_h_ascii2d: ;recs 4 digit hex in ax, and writes the ;5 digit (leading 0's supressed) ascii ;to es:di ax,bx,cx,dx,si may be trashed ;di is updated. call hexdec push ax mov al,bh or al,al jz x30a stosb x30a: ;l1: mov al,bl or al,al jz x31a stosb x31a: ;l2: mov al,dh or al,al jz x32a stosb x32a: jmp short wh4d4 public write_h_ascii4d write_h_ascii4d: ;recs 4 digit hex in ax, and writes the ;5 digit (leading 0's supressed) ascii ;to es:di ax,bx,cx,dx,si may be trashed ;di is updated. call hexdec push ax mov al,bh or al,al jz x30b stosb x30b: mov al,bl or al,al jnz wh4d1 mov al,30h wh4d1: stosb mov al,dh or al,al jnz wh4d2 mov al,30h wh4d2: stosb wh4d4: mov al,dl or al,al jnz wh4d3 mov al,30h wh4d3: stosb pop ax stosb ret log_ascii: public double_comp double_comp: ;si->dd w/ di->dd ;rets with cl ne 0 if {si} > {di} ;rets with ch ne 0 if {si} < {di} ;z (equal) flag is valid mov ax,es:[di] mov dx,es:[di+2] sub ax,[si] sbb dx,[si+2] cmp dx,0 jg x34 ;si <= di jl x35 ;si > di or ax,ax ja x34 xor cx,cx ret x34: ;l1: mov cx,0100h ret x35: ;l2: mov cx,1 ret triple_comp: ;a return of carry indicates put it here ;zero flag says entries are equal push di push si inc si ;*no zone inc di ;*no zone ;no zone stuff cmpsb ; jb tc1 ; ja next_slot ;check next slot in list cmpsw jb tc1 ja next_slot cmpsw jb tc1 next_slot: clc tc1: pop si pop di ret public add_net_nodes add_net_nodes: ;di points at target list, si points at ;source list. es and ds -> at true data ;Upon return target list ;has been updated. push es push si push di push si mov si,di call find_targ_len mov es:target_end,si pop si push ds pop es x36: x37: mov ax,[si] or ax,[si+2] ;this checks for a zero source jz x42 cmp es:target_end,0 je x38 ann3: call triple_comp jz x40 jae x41 x38: ;put it here call stretch_target ;we'll put it here (es must =true data) ann4: lodsb mov byte ptr [di],al lodsw mov word ptr [di+1],ax lodsw mov word ptr [di+3],ax x39: xor ah,ah mov al,[si] or ax,[si+1] or ax,[si+3] jz x42 ;source finished jmp short ann3 x40: ;move to next in source add si,5 jmp short x39 x41: ;look at next target add di,5 cmp di,es:target_end jae ann4 jmp short x37 x42: pop di pop si pop es ret public stretch_target stretch_target: ;di points to place hole is to be made. ;es->at true data ;target_end is valid. di is preserved push si push di push cx mov cx,es:target_end sub cx,di je st01 mov di,es:target_end mov si,di add di,4 sub si,1 std rep movsb st01: cld add es:target_end,5 pop cx pop di pop si ret public find_targ_len find_targ_len: ;si points at start. rets the number of ;of entries in cx, offset of first empty ;double in si xor cx,cx x43: ;l1: nodesiz jz x44 add si,5 inc cx jmp short x43 x44: ;l2: ret ;public get_path_list ;get_path_list: ;copies the path line to Cur_path_line ; mov es,sel_msg_buf ; ; ; mov di,offset path_line ; mov cx,upmsg_length ; ; xdses ; mov si,0b8h ;approx end of header ; mov ax,1 ; call search_for ; xdses ; ; mov pathline_start,si ; add si,6 ; mov di,offset Cur_path_line ; ; xdses ; call net_nodes ; xdses ;should have true data in ds: ; ; mov ax,pathline_start ; mov upmsg_length,ax ; ret ;get_path_list: ;pulls of the path line and puts it ; ;into the path_list in expanded hes ; ;format. DS must be valid. upmsg_length ; ;is updated ; mov es,sel_msg_buf ; mov si,pathline_start ; add si,6 ; mov di,offset path_list ; xdses ; call net_nodes ; xdses ; mov ax,pathline_start ; mov upmsg_length,ax ; ret ; public Strip_Path Strip_Path: ;this pulls off the path and puts it ;into the path_list in expanded ;hex format. DS must be valid, upmsg_length ;is updated edata mov di,offset path_list xor ax,ax mov cx,4096 rep stosb mov si,upmsg_length ;start at end and look push si ;towards mov cx,offset mtext ;beginning for mov di,offset origin_line ;the origin line mov ax,sel_msg_buf mov es,ax mov ax,-1 xdses call search_for jnc x200 jmp bad_msg x200: mov di,offset path_line mov ax,1 pop cx call search_for xdses jnc x201 edata mov di,offset path_list mov si,offset this_add ;if no path is mov cx,5 ;found, then one is added rep movsb jmp short x203a ;upmsg_length should be ok x201: mov first_path,si ;now pointing at first path string mov di,si mov cx,6 mov dx,upmsg_length call delete_cx_chars mov upmsg_length,di x202: mov di,offset path_line mov ax,1 mov cx,upmsg_length xdses call search_for xdses jc x203 mov di,si mov cx,6 mov dx,upmsg_length call delete_cx_chars mov upmsg_length,di jmp short x202 x203: mov di,first_path mov dx,upmsg_length call strip_CRs mov upmsg_length,dx mov dx,temp_def_net mov di,offset path_list mov si,first_path xdses call net_nodes xdses mov ax,first_path mov upmsg_length,ax x203a: ret public Strip_seen_bys Strip_seen_bys: ;this pulls off the seen-bys and puts them ;them into the seen_by_list in expanded ;hex format. DS must be valid, upmsg_length ;is updated edata mov di,offset seen_by_list xor ax,ax mov cx,4096 rep stosb mov si,upmsg_length ;start at end and look push si ;towards mov cx,offset mtext ;beginning for mov di,offset origin_line ;the origin line mov ax,sel_msg_buf mov es,ax mov ax,-1 xdses call search_for jnc y4 jmp bad_msg y4: mov di,offset seen_by_line mov ax,1 pop cx call search_for xdses jnc y5 edata mov di,offset seen_by_list mov si,offset this_add mov cx,25 rep movsb mov ax,upmsg_length ret y5: mov first_seen_by,si ;now pointing at first seen by string mov di,si mov cx,8 mov dx,upmsg_length call delete_cx_chars mov upmsg_length,di x45: ;l1: mov di,offset seen_by_line mov ax,1 mov cx,upmsg_length xdses call search_for xdses jc x46 mov di,si mov cx,8 mov dx,upmsg_length call delete_cx_chars mov upmsg_length,di jmp short x45 x46: ;l3: mov di,first_seen_by mov dx,upmsg_length call strip_CRs mov upmsg_length,dx mov dx,temp_def_net mov di,offset seen_by_list mov si,first_seen_by xdses call net_nodes xdses mov si,first_seen_by mov upmsg_length,si mov ax,si ret public locate_area locate_area: ;enters ds:si->current area, cx = length of tag ;rets with es:di ->at path to current area. mov ax,sel_areas mov es,ax mov di,offset li_area x47: ;l1: push si push di push cx repz cmpsb jz x48 la1: pop cx pop di pop si add di,0a4h cmp di,limit_areas jb x47 stc ret x48: ;l2: cmp byte ptr es:[di],0 jnz la1 pop cx pop di pop si sub di,offset li_area mov current_path,di clc ret get_message_area: ;es = message buffer;rets with es:di ->area string mov cx,upmsg_length mov si,offset mtext dec si dec si sub cx,si mov di,offset area_line xdses mov ax,1 call search_for jnc y6 jmp bad_msg y6: add si,5 mov di,si xdses ife tight gma2: cmp byte ptr es:[di],20h jnz gma1 inc di jmp short gma2 gma1: endif ret public get_msg get_msg: mov mail_flags,0 mov ax,end_of_msg mov prev_end,ax mov ax,sel_pkt_buf mov es,ax mov di,si xor dx,dx mov cx,current_read cmp cx,160 ja gmsg2 jmp short x52 gmsg2: sub cx,di cmp cx,160 jb x49 mov cx,160 x49: ;o1: mov ax,0002h x50: ;l1: repnz scasb and cl,cl jz x52 cmp es:[di],ah jne x51 jmp short x55 x51: ;n1: and cx,cx jnz x50 cmp di,current_read jb x54 x52: ;o2: or mail_flags,no_more_flag x53: ;o3: mov ax,cx mov end_of_msg,ax stc ret x54: ;o4: mov byte ptr bad_packet,1 jmp short x52 x55: ;n2: inc di mov msg_start,di ;this is the start of the new checker mov cx,current_read sub cx,di cmp cx,34 jb to_split add di,12 mov cx,current_read cmp cx,0ffffh jb x55a dec cx x55a: call next_z_limit jc to_split ;points at to_user call next_z_limit jc to_split ;points at from_user call next_z_limit jc to_split ;points at subject call next_z_limit jc to_split ;points at area tag mov text_start,di call next_z_limit jc to_split ;points at end of message mov end_of_msg,di sub di,msg_start mov msg_length,di ;now we see it is netmail. i.e. no tagline mov si,text_start mov cx,si add cx,5 ;it must be right here xdses ;xchange ds,es mov di,offset area_line mov ax,1 call search_for jnc not_netmail ; jmp is_netmail xdses or mail_flags,netmail_flag jmp x57 to_split: mov end_of_msg,0 jmp no_eom not_netmail: mov si,es:msg_start if tight mov di,offset path_line mov cx,es:end_of_msg sub cx,8 ;correction for length of path_line mov ax,1 call search_for jc x56 xdses mov pathline_start,si jmp x57 x56: ;o5: xdses or mail_flags,bad_flag mov ax,end_of_msg add_m32_rax cur_pkt_file_ptr stc ret else xdses endif x57: push cx push es mov di,end_of_msg push di ;this cleans buf where msg will go mov es,sel_msg_buf xor ax,ax mov di,ax mov cx,msg_length add cx,03bh rep stosb pop di pop es pop cx ;this little snip updates the packet read pointer push dx push si edata xor dx,dx ; mov ax,word ptr cur_pkt_file_ptr ; or ax,word ptr cur_pkt_file_ptr+2 ; jnz x58 ; mov ax,msg_start ; sub ax,3 ; mov word ptr cur_pkt_file_ptr,ax ;x58: ;;o6: ; mov ax,msg_length ; add ax,3 mov ax,end_of_msg sub ax,prev_end add word ptr cur_pkt_file_ptr,ax adc word ptr cur_pkt_file_ptr+2,dx ; mov si,offset cur_pkt_file_ptr pop si pop dx mov cx,di push ds mov ax,sel_pkt_buf mov si,msg_start mov es,sel_msg_buf mov ds,ax mov ax,pmorigin_node[si] mov es:morigin_node,ax mov ax,pmdest_node[si] mov es:mdest_node,ax mov ax,pmorigin_net[si] mov es:morigin_net,ax mov ax,pmdest_net[si] mov es:mdest_net,ax mov ax,pmattribute[si] mov es:mattribute,ax mov ax,pmcost[si] mov es:mcost,ax add si,offset pmdatetime mov di,offset mdatetime call eozs repnz movsb mov di,dx add di,offset mtouser inc si call eozs repnz movsb mov di,dx add di,offset mfromuser inc si call eozs repnz movsb mov di,dx add di,offset msubject inc si call eozs repnz movsb mov di,dx inc si add di,offset mtext mov ax,ds ;local data seg saved in ax pop ds push ds ;ds should now have true data mov cx,msg_length sub cx,si ;correct for header already done add cx,msg_start mov ds,ax rep movsb pop ds dec di ;normal rep correction mov upmsg_length,di inc msg_counter ; mov ax,debug_handle ; mov handle,ax ; mov ax,word ptr cur_pkt_file_ptr ; call write_decf ; mov ax,word ptr cur_pkt_file_ptr+2 ; call write_decf ; mov ax,msg_counter ; call write_decf clc ret no_eom: public no_eom mov ax,08001h ;local error 1 eom not found or mail_flags,split_flag stc ret ;is_netmail: ; push ds ; pop es ; ddata ; xor dx,dx ; mov ax,word ptr cur_pkt_file_ptr ; or ax,word ptr cur_pkt_file_ptr+2 ; jnz gmsg1 ; mov ax,msg_start ; sub ax,3 ; mov word ptr cur_pkt_file_ptr,ax ;gmsg1: ; mov ax,msg_length ; add ax,2 ; add word ptr cur_pkt_file_ptr,ax ; adc word ptr cur_pkt_file_ptr+2,dx ; ; or mail_flags,netmail_flag ; ; stc ; ret get_packet: public get_packet mov empty_pkt,0 mov ax,sel_pkt_buf and ax,ax jnz x59 mov ax,0ffffh mdosallocseg sel_pkt_buf,no_share jmp short x60 x59: ;n1: mov ax,pkt_path_end mov path_end,ax mov di,ax push ds pop es jmp short x61 x60: ;n2: mov ax,pkt_path_end and ax,ax jz gpkt1 mov di,path_end jmp short x61 gpkt1: mov si,offset netfile_path mov di,si mov ax,ds mov es,ax call eoz mov al,'\' cmp al,[di-1] jz y7 stosb y7: mov path_end,di mov pkt_path_end,di x61: ;n3: mov si,offset packet_search mov cx,6 rep movsb mov dx,0 ;search attribute mov search_handle,1 ;generic search handle mov di,36 ;36 bytes/requested found mov max_find,1 push ds pop word ptr doscall_inseg mov ax,offset netfile_path mov cx,ds mov si,offset find_buffer mdosfindfirst jnc y11 ; jmp no_toss ret y11: mov byte ptr large_packet,0 mov cx,find_buffer.ffile_size_hi mov word ptr pkt_size+2,cx mov ax,find_buffer.ffile_size mov word ptr pkt_size,ax and cx,cx jnz gpkt2 cmp ax,100 jae gpkt2 mov empty_pkt,1 gpkt2: and cx,cx jz x62 mov large_packet,1 x62: ;l1: ; xor cx,cx ; mov bx,cx ; dec bx ; sub word ptr find_buffer.ffile_size,bx ; ; sbb word ptr find_buffer.ffile_size_hi,cx lea si,find_buffer.ffilename mov cl,find_buffer.flen_filename xor ch,ch mov di,path_end push ds pop es cld rep movsb mov al,0 stosb mdosopen netfile_path,open,fail openerror netfile_path,file_error mov ax,handle mov pkt_handle,ax mov ax,sel_pkt_buf mov doscall_inseg,ax mov si,0 test byte ptr large_packet,0ffh jz x66 mov cx,0ffffh x63: ;l5: mov current_read,cx x64: ;l3: mdosRead jnc y8 jmp error y8: add si,result cmp cx,result jz short x65 sub cx,result jmp short x64 x65: ;l2: push si mov si,offset cur_pkt_file_ptr xor ax,ax mov [si],ax mov [si+2],ax pop si clc ret x66: ;l4: mov cx,find_buffer.ffile_size jmp short x63 ;e1: ; ret get_header: push ds mov di,offset packet_hdr mov cx,offset packet_hdr_end sub cx,di push es push ds pop es pop ds mov ds,es:sel_pkt_buf mov si,0 rep movsb pop ds ret backup_to_eol: ;after a find_eol this adjusts si so that ;it is pointing at the CR x66a: ;l1: dec si cmp byte ptr [si],0dh jnz x66a ret xfer_path: call slen mov di,bx rep movsb mov al,0 stosb ret slash_to_word: ;si points at string, temp_def_net has last net # ;and is updated if new found. ;Same with temp_def_zone. ;rets node in AX ;si points string+1(;dx carries temp_def_net value) push cx push si call sclength pop si jc has_zone has_net: test ch,0ffh jz node xor ch,ch call dechex ;*** push ds push ss pop ds mov temp_def_net,ax pop ds call sclength node: push ds ddata mov bx,word ptr temp_def_zone mov dx,temp_def_net pop ds push si call sclength pop si push dx call dechex pop dx inc si pop cx ret has_zone: push cx call dechex pop cx xor ch,ch add si,cx inc si push ds ddata mov temp_def_zone,al pop ds push si call sclength pop si jmp short has_net public slen slen: ;si points at string, rets length of ascii string ;in cx. other regs unchanged. push si xor cx,cx x67: ;l1: cmp byte ptr [si],020h ;space jz x68 cmp byte ptr [si],9 ;tab jz x68 cmp byte ptr [si],0dh ;CR jz x68 cmp byte ptr [si],0ah ;lf jz x68 inc si inc cl jmp short x67 x68: ;l2: pop si ret public dlen dlen: ;si points at string, rets length of ascii string ;in cx. other regs unchanged. push di xor cx,cx xd67: cmp byte ptr es:[di],020h ;space jz xd68 cmp byte ptr es:[di],9 ;tab jz xd68 cmp byte ptr es:[di],0dh ;CR jz xd68 cmp byte ptr es:[di],0ah ;lf jz xd68 inc di inc cl jmp short xd67 xd68: pop di ret ;public slength ;slength: ;si points at string, rets end of string+1 in si ; ;presence of slash in ch, # of chars in cl ; ;if slash present only chars before are counted ; ; xor cx,cx ;x69: ;;l1: ; cmp byte ptr [si],020h ;space ; jz x70 ; cmp byte ptr [si],9 ;tab ; jz x70 ; cmp byte ptr [si],0dh ;CR ; jz x70 ; cmp byte ptr [si],0ah ;lf ; jz x70 ; cmp byte ptr [si],'/' ; jne y9 ; mov ch,1 ;y9: ; jz x70 ; inc si ; inc cl ; jmp short x69 ;x70: ;;l2: ; inc si ; clc ; ret sclength: ;si points at string, rets end of string+1 in si ;presence of slash in ch, # of chars in cl ;if slash present only chars before are counted ;presence of colon in carry xor cx,cx x69: ;l1: cmp byte ptr [si],020h ;space jz x70 cmp byte ptr [si],9 ;tab jz x70 cmp byte ptr [si],0dh ;CR jz x70 cmp byte ptr [si],0ah ;lf jz x70 cmp byte ptr [si],':' jz x260 cmp byte ptr [si],'/' jne y9 mov ch,1 y9: jz x70 inc si inc cl jmp short x69 x70: ;l2: inc si clc ret x260: stc ret ; ;public dlength ;dlength: ;es:di points at string, rets end of string+1 in di ; ;presence of slash in ch, # of chars in cl ; ;if slash present only chars before are counted ; ; xor cx,cx ;x71: ;;l1: ; cmp byte ptr es:[di],020h ;space ; jz x72 ; cmp byte ptr es:[di],9 ;tab ; jz x72 ; cmp byte ptr es:[di],0dh ;CR ; jz x72 ; cmp byte ptr es:[di],0ah ;lf ; jz x72 ; cmp byte ptr es:[di],'/' ; jne y10 ; mov ch,1 ;y10: ; jz x72 ; inc di ; inc cl ; jmp short x71 ;x72: ;;l2: ; inc di ; ret ; sstart: public sstart cmp byte ptr [si],020h jz x73 cmp byte ptr [si],0h jz x73 cmp byte ptr [si],09h jz x73 cmp byte ptr [si],0dh jz x75 cmp byte ptr [si],'\' jz x73a jmp short x74 x73: ;l1: inc si jmp short sstart x73a: add si,3 jmp short sstart x74: ;l2: clc ret x75: ;l3: stc ret ;dstart: ;public dstart ; cmp byte ptr es:[di],020h ; jz xd73 ; cmp byte ptr es:[di],0h ; jz xd73 ; cmp byte ptr es:[di],09h ; jz xd73 ; cmp byte ptr es:[di],0dh ; jz xd75 ; jmp short xd74 ;xd73: ;;l1: ; inc si ; jmp short dstart ; ;xd74: ;;l2: ; clc ; ret ;xd75: ;;l3: ; stc ; ret ; public find_eol find_eol: ;ds:si in line, rets with si pointing at 1st char of ;the next line. other regs preserved (lf's ignored) push ax push cx push di push es mov ax,ds mov es,ax mov di,si mov al,0dh mov cx,512 repnz scasb inc di mov al,0ah cmp al,[si] jnz x76 inc di x76: ;l1: mov si,di pop es pop di pop cx pop ax ret find_config_line: ;ds:si in config file segment. Rets sith SI ;pointing at start of next valid line x77: ;l1: call find_eol cmp byte ptr[si],0 jz x78 cmp byte ptr[si],'#' jz x77 cmp byte ptr[si],' ' je x78 cmp byte ptr[si],'0' jb x77 cmp byte ptr[si],'z' ja x77 x78: ;l2: ret public search_for ;search_forz: ;searches ds:si to limit cx for asciiz string ; ;by es:di. rets carry if not found, or si ; ;pointing to start of string if found ; ;search is forward if ax=01h search is from end ; ;toward the start of ds:si if ax=-1 ; push ax ; push dx ; mov dx,di ;x79: ;;l3: ; push si ; ;x80: ;;l1: ; cmpsb ; ; jnz not_yet ;x81: ;;l2: ; test byte ptr es:[di],0ffh ; jz maybe_found ; cmpsb ; ; jz x81 ;not_yet: ; pop si ; mov di,dx ; add si,ax ; cmp si,cx ; je not_here ; jmp short x79 ;found: ; pop si ; pop dx ; pop ax ; clc ; ret ;not_here: ; pop dx ; pop ax ; stc ; ret ; ;maybe_found: ; cmp byte ptr [si],0 ; jnz not_yet ; jmp found search_for: ;searches ds:si to limit cx for asciiz string ;by es:di. rets carry if not found, or si ;pointing to start of string if found ;search is forward if ax=01h search is from end ;toward the start of ds:si if ax=-1 push ax push dx mov dx,di x79: ;l3: push si x80: ;l1: cmpsb jnz not_yet x81: ;l2: test byte ptr es:[di],0ffh jz found cmpsb jz x81 not_yet: pop si mov di,dx add si,ax cmp si,cx je not_here jmp short x79 found: pop si pop dx pop ax clc ret not_here: pop dx pop ax stc ret public delete_cx_chars delete_cx_chars: ;es:di -> 1st char to remove, cx is # to remove ;dx is the offset of the end of the text. ;di rets w/ the new offset of the eot ;dx and cx undefined. push si push ds mov si,di push es pop ds mov si,di add si,cx sub dx,di sub dx,cx mov cx,dx rep movsb pop ds pop si ret public eoz eoz: ;rec start of asciiz in es:di. on exit di points at ;the zero. length in cx push di mov al,0 mov cx,80h cld repnz scasb dec di mov cx,di pop ax sub cx,ax ret public eozs eozs: ;rec start of asciiz in ds:si. ;rets length in cx push si xdses xchg di,si call eoz xchg di,si xdses pop si ret mov_cur_path_to_data: ;takes the pathline from the areas buffer and ;moves it to local data ; assures ending in '\', ;and assures a '0' terminator. places offset of ;the 0 in cur_ar_path_end. ;entered with ds=true data, cur_path_line valid. ;on ret es=sel_areas, ax, dx, si trashed mov ax,sel_areas mov es,ax mov di,current_path push di call eoz pop si mov di,offset scratch_path xdses rep movsb mov al,'\' cmp al,[di-1] jz x82 stosb x82: ;l1: mov al,0 stosb dec di xdses mov cur_ar_path_end,di ret public get_msg_high get_msg_high: call names jnc x83 call make_msg1 mov word ptr highest_msg,1 ret x83: ;l1: push ds mov cx,max_find mov ds,sel_names push ds pop es push cx call name_num pop cx mov si,8000h ;point it at the start of the list just made call highest pop ds mov highest_msg,bx ret public clean_buffer clean_buffer: ;rec the buffer start in es:di and the length ;to clean in cx. rets with the buffer all 0h. push ax push di mov ax,0 cld rep stosb pop di pop ax ret public clean_wbuffer clean_wbuffer: ;buffer must start on word boundary ;rec the buffer start in es:di and the length ;to clean in cx. in bytes. ;rets with the buffer all 0h. push ax push di mov ax,0 cld rep stosb pop di pop ax ret public Strip_CRs Strip_CRs: ;removes the CR or CRLF's from the string ;-> by es:di to limit of dx. ;ax,cx,di trashed. New end in dx mov al,0dh x84: ;l1: scasb jnz x85 call SCR x85: ;l2: cmp di,dx jb y12 ret y12: jmp short x84 SCR: push di dec di mov cx,1 cmp byte ptr es:[di+1],0ah jnz x86 inc cx x86: ;l3: call delete_cx_chars mov dx,di pop di ret public name_num name_num: ;enters w/ ds:si -> at start of dosfindfirst ;generated file list of cx entries. ;es and ds -> to a segment 2*cx longer than ;8000h. On ret there are cx words of filenames ;converted to hex beginning at 8000h mov ah,0 mov al,'.' mov si,0 mov di,8000h x87: ;l1: call one_name dec cx jz x88 jmp short x87 x88: ;f1: ret public highest highest: ;rets w/ highest of cx numbers -> to by ds:si ;hexvalue is returned in BX xor bx,bx x89: ;l2: lodsw cmp ax,bx jb x90 mov bx,ax x90: ;l1: dec cx jnz x89 ret one_name: ;rets with si->at next structure, . replaced w/ 0 ;dx trashed. ;ax reloaded,numeric value entered at di, ;and di updated add si,offset ffilename push di push cx mov di,si mov cl,byte ptr[si-1] xor ch,ch mov dx,cx add dx,si mov di,si repnz scasb mov byte ptr[di-1],ah sub di,si mov cx,di dec cx call dechex pop cx pop di stosw mov si,dx inc si mov ax,002eh ret public Get_next_packet Get_next_packet: mov ax,pkt_handle mdosclose push ds push offset netfile_path xor ax,ax push ax push ax call DosDelete mov no_more_pkts,0 call get_packet jnc gnp1 mov no_more_pkts,1 gnp1: ret public load_more_packet load_more_packet: mov di,offset cur_pkt_file_ptr mov si,offset pkt_size mov ax,[di] mov dx,[di+2] mov cx,[si+2] mov bx,[si] add ax,4 adc dx,0 sub bx,ax sbb cx,dx jc x93 and cx,cx mov cx,0ffffh jnz x92 mov cx,bx add cx,4 mov byte ptr large_packet,0 x92: ;l1: push cx mov si,offset cur_pkt_file_ptr ;;EXPAND: lodad lodsw mov dx,ax lodsw xchg dx,ax mov bx,ax mov ax,pkt_handle mov handle,ax mov cx,0 ;;EXPAND: m8doschgfileptr cur_pkt_file_ptr push ax push dx push bx push cx mov ax,offset cur_pkt_file_ptr push ds push ax call DosChgFilePtr ;;EXPAND: error_check clc and ax,ax jz m16 stc m16: mov ax,sel_pkt_buf mov es,ax mov doscall_inseg,ax mov si,0 pop cx mdosread mov cx,result mov current_read,cx clc ret x93: ;f1: stc ret public Make_msg1 Make_msg1: push highest_msg mov highest_msg,0 call make_msg_pathname mdosopen scratch_path,replace,create openerror scratch_path,file_error mov ax,handle mov cx,msg1_end-msg1 mov si,offset msg1 ;;EXPAND: m8doswrite ds,results push ax push ds push si push cx push ds push offset results call doswrite ;;EXPAND: error_check clc and ax,ax jz m19 stc m19: mov ax,handle mdosclose pop highest_msg inc highest_msg ret print_tossing: ; push di ; push si ; ;;EXPAND: prt vmsg_dot ;mov di,offset vmsg_dot ;call print_asciiz ; pop si ; pop di ; ret push ax push bx push cx push dx push di push si push es and area_changed,0ffh jz pt1 pcrlf pt1: prt cr_only prt vmsg_toss_num ; prt scratch_path ; pcrlf mov ax,highest_msg call disp_dec prt space2 ; ;;EXPAND: prt vmsg_to_area mov di,offset vmsg_to_area call print_asciiz ; mov di,offset current_area ; call print_asciiz ; pcrlf prt scratch_path pop es pop si pop di pop dx pop cx pop bx pop ax ret comp_strings: ;comps strings ds:si with es:di to length cx push di push si repz cmpsb and cx,cx pop si pop di ret ;ERRORS file_error: ddata edata push ax cmp ax,0deh jb fc1 mov ax,0deh fc1: shl ax,1 mov bx,ax pop ax push si mov si,offset err_index mov di,[si+bx] call print_asciiz pcrlf pop di call print_asciiz jmp terminate dos_error: push ds push es push si push di ddata edata push ax cmp ax,0deh jb fc1 mov ax,0deh de1: shl ax,1 mov bx,ax pop ax push si mov si,offset err_index mov di,[si+bx] call print_asciiz pcrlf pop di call print_asciiz pop di pop si pop es pop ds no_toss: pcrlf prt vmsg_allpkts pcrlf jmp terminate public no_such_area no_such_area: push ds push _data pop ds prt ermsg_no_area mov di,offset current_area call print_asciiz pcrlf jmp bad1 error: Bad_msg: ; push ds push _data pop ds mov sp,stack_start mov di,offset crlf call print_asciiz prt ermsg_bad_msg mov di,offset current_area call print_asciiz pcrlf bad1: call it_is_bad mov di,offset current_area xor al,al stosb ; pop ds jmp throw_this_msg too_long: load_dupes: ;loads the dupe file into the dupes_list area push ds push es push di push si mov ax,_data mov ds,ax mov es,ax mov di,cur_ar_path_end mov si,offset dupes_file call eozs inc cx rep movsb mdosopen scratch_path,open,create jc x95 mov ax,handle mov dupes_handle,ax test result,2 jnz x94 push ds pop word ptr doscall_inseg mov si,offset dupes_list mov cx,dupes_num shl cx,2 mdosread clc x94: ;l1: pop si pop di pop es pop ds ret x95: ;l2: stc jmp short x94 write_dupes: ;writes dupes_list to dupes_file and closes it mov ax,dupes_handle and ax,ax jnz wd1 jmp wd_end wd1: xor bx,bx mov dx,bx mov cx,bx ;;EXPAND: m8doschgfileptr push ax push dx push bx push cx mov ax,offset cur_file_ptr push ds push ax call DosChgFilePtr ;;EXPAND: error_check clc and ax,ax jz m23 stc m23: mov cx,dupes_num shl cx,2 add cx,offset dupes_list ;this is the end of the list sub cx,dupes_ptr mov ax,dupes_handle mov si,dupes_ptr push ds pop word ptr doscall_inseg ;;EXPAND: m8doswrite doscall_inseg,results push ax push word ptr doscall_inseg push si push cx push ds push offset results call doswrite ;;EXPAND: error_check clc and ax,ax jz m24 stc m24: mov ax,dupes_handle mov cx,dupes_ptr mov si,offset dupes_list sub cx,si ;;EXPAND: m8doswrite doscall_inseg,results push ax push word ptr doscall_inseg push si push cx push ds push offset results call doswrite ;;EXPAND: error_check clc and ax,ax jz m25 stc m25: mov ax,dupes_handle mdosclose wd_end: ret public comp_crc comp_crc: ;rec a value in dx-ax. Comps this with each entry ;in dupes_list. If matched rets a carry push si mov cx,dupes_num mov si,offset dupes_list x96: ;l2: cmp ax,[si] jnz x97 cmp dx,[si+2] jnz x97 stc pop si ret x97: ;l1: add si,4 dec cx jnz x96 clc pop si ret add_crc: push di mov di,dupes_ptr mov [di],ax mov [di+2],dx add di,4 mov cx,dupes_num shl cx,2 add cx,offset dupes_list cmp di,cx jb x98 mov di,offset dupes_list x98: ;l1: mov dupes_ptr,di pop di ret make_crc: mov es,sel_msg_buf mov di,0 mov ax,0ffffh mov dx,ax mov cx,164 call do_crc32 ret crc_main: ;generates the new crc, checks it against the ;dupes list and installs it if it's new. ;rets a carry if it's a dupe. no entry or ;exit parameters. push es push ds push si push di ;;EXPAND: ddata push _data pop ds call make_crc call comp_crc jc x99 call add_crc clc x99: ;l1: pop di pop si pop ds pop es ret add_t_area: mov di,toss_ptr mov si,offset current_area call eozs rep movsb mov al,0dh stosb mov al,0ah stosb mov toss_ptr,di ret comp_t_area: push ds push es push di push si mov ax,seg _data mov ds,ax mov es,ax mov di,offset current_area mov si,offset toss_list mov cx,si add cx,8000 mov ax,1 call search_for jnc x100 call add_t_area x100: ;l1: pop si pop di pop es pop ds ret write_t_area: mdosopen echo_toss,open,create openerror echo_toss,file_error mov ax,handle push ax mov bx,0 mov dx,bx mov cx,2 ;append to end of file ;;EXPAND: m8doschgfileptr push ax push dx push bx push cx mov ax,offset cur_file_ptr push ds push ax call DosChgFilePtr ;;EXPAND: error_check clc and ax,ax jz m28 stc m28: pop ax push ax push ds pop word ptr doscall_inseg mov cx,toss_ptr sub cx,offset toss_list mov si,offset toss_list ;;EXPAND: m8doswrite doscall_inseg,results push ax push word ptr doscall_inseg push si push cx push ds push offset results call doswrite ;;EXPAND: error_check clc and ax,ax jz m29 stc m29: pop ax mdosclose ret write_decf: push ax push bx push cx push dx push di push si push ds push es push _data pop ds push ds pop es mov di,offset scratch_ascii mov dx,ax call dx_to_ascii mov ax,20h stosb stosb mov al,0dh stosb mov al,0ah stosb mov ax,word ptr handle mov cx,8 mov si,offset scratch_ascii push ds pop word ptr doscall_inseg ;;EXPAND: m8doswrite doscall_inseg,results push ax push word ptr doscall_inseg push si push cx push ds push offset results call doswrite ;;EXPAND: error_check clc and ax,ax jz m31 stc m31: pop es pop ds pop si pop di pop dx pop cx pop bx pop ax ret mov di,offset hex_buff call print_asciiz pop di pop es ret disp_dec: ;displays the hex number in ax as a decimal at the ;current cursor position. push es push di call hexdec push ax mov ax,ds mov es,ax mov di,offset hex_buff mov ah,20h mov al,bh and al,al jnz kd10 mov al,ah kd10: stosb mov al,bl and al,al jnz kd1 mov al,ah kd1: stosb mov al,dh and al,al jnz hundd mov al,ah hundd: stosb mov al,dl and al,al jnz tend mov al,ah tend: stosb mov al,dh and al,al jnz unitd mov al,ah unitd: pop ax stosb mov ax,0 stosb mov di,offset hex_buff call print_asciiz pop di pop es ret DOSPRINT: PUSH DS PUSH DX PUSH CX MOV DX,OFFSET CRLF MOV CX,2 push ds push dx ;pointer to string (ds:dx) push cx ;length of string cx push 0 call VioWrtTTY POP CX POP DX push ds push dx push cx push 0 call VioWrtTTY POP DS RET print_asciiz: ;print asciiz pointed to by di push dx push ax push di push cx push es push di push ds pop es call eoz mov cx,di pop di sub cx,di push ds push di push cx push 0 call VioWrtTTY print_end: pop es pop cx pop di pop ax pop dx ret ; ; HEXDEC: ;THIS ROUTINE WILL TAKE A 4DIGIT HEXADECIMAL NUMBER IN AX AND ;RETURNS A 5 DIGIT ASCII IN BH,BL,DH,DL,AL. ;TIME AVERAGES ABOUT 140 CLOCKS PER DIGIT ;LEADING 0'S ARE SUPRESSED MOV BX,0 MOV CX,0 MOV DX,0 A10K: CMP AX,10000 JB A1K SUB AX,10000 INC BH JMP A10K A1K: CMP AX,1000 JB HUNDREDS SUB AX,1000 INC BL JMP A1K HUNDREDS: CMP AX,100 JB TENS SUB AX,100 INC DH JMP HUNDREDS TENS: CMP AX,10 JB UNITS SUB AX,10 INC DL JMP TENS UNITS: test bh,0ffh jz x101 add bh,"0" d1: add bl,"0" d2: add dh,"0" d3: add dl,"0" d4: add al,"0" d5: ret x101: ;l1: test bl,0ffh jz x102 jmp short d1 x102: ;l2: test dh,0ffh jz x103 jmp short d2 x103: ;l3: test dl,0ffh jz d4 jmp short d3 DECHEX: ;THIS ROUTINE WILL TAKE A [CL] (MAX 5) DIGIT ;ASCII DECIMAL NUMBER POINTED TO BY SI AND ;RETURN A 4 DIGIT HEX NUMBER IN AX.* push dx XOR DH,DH XOR AX,AX TRY: CMP CL,1 JBE LAST MOV DL,[SI] SUB DL,"0" ADD AX,DX MOV BX,AX SHL AX,1 SHL AX,1 SHL AX,1 ADD AX,BX ADD AX,BX INC SI LOOP TRY LAST: MOV DL,[SI] SUB DX,"0" ADD AX,DX pop dx RET ;prt macro ; mov di,offset #1 ; call print_asciiz ;#em ;****************************************************************************** ; word_to_hex - ; ; ; ENTRY: ax = value to convert ; si -> 4 character buffer to place text in ; ; EXIT: ; ; DESTROYED: ; ;------------------------------------------------------------------------------ word_to_hex: push ax mov ah,al shr ah,1 shr ah,1 shr ah,1 shr ah,1 and ax,0f0fh add al,'0' add ah,'0' mov [si+2],ah mov [si+3],al pop ax mov al,ah shr ah,1 shr ah,1 shr ah,1 shr ah,1 and ax,0f0fh add al,'0' add ah,'0' mov [si+0],ah mov [si+1],al ret dx_to_ASCII: ;outputs to es:di the 4 digit hex in dx mov al,dh call al_to_ascii mov al,dl al_to_ascii: mov ah,al push cx mov cl,4 shr al,cl pop cx call lo_nib_al_to_as mov al,ah lo_nib_al_to_as: and al,0Fh add al,90h daa adc al,40h daa stosb ret it_is_bad: mov si,offset bad_msgs x211: push ds pop es call move_to_scratch ret it_is_net: mov si,offset netmail_path push ds pop es call move_to_scratch jmp throw_this_msg next_z_limit: ;es:di->string. cx is the limit. rets cy if ;limit is reached without finding a null ;on exit di points to the zero xor al,al x213: scasb jz x214 cmp di,cx jb x213 stc ret x214: clc ret move_to_scratch: ;moves the path pointed to by ds:si into ;scratch path and cleans it up. ;updates current_ar_path_end mov di,offset scratch_path call eozs rep movsb mov al,'\' cmp al,[di-1] jz x210 stosb x210: mov al,0 stosb dec di mov cur_ar_path_end,di ret _code ends _data segment message_one db 512 dup (0) this_scan db 0 use_no_log db 0 max_msg_cntr dw 0 EVEN scratch_nn_list db 256 dup (0) prepack_nn_list db 256 dup (0) nnlist db 100 dup (5 dup (0)) nn_handle_list dw 100 dup (0) num_entries dw 0 ;num of entries in the nn list ;of last call to length_nn tot_count dw 0 nn_cntr db 0 temp_ptr dw 0 msg_ascii db '.msg',0 current_node dw 0 wkg_path db '.\' db 80 dup (0) wpe_end label byte db 0 wkg_path_end dw 0 time_info label byte hour db 0 minute db 0 second db 0 h_of_s db 0 day db 0 month db 0 year dw 0 t_zone dw 0 day_o_week dw 0 _data ends assume cs:_code assume ds:_data _code segment byte public 'code' public scan scan: mov di,offset tosslog_cmd mov ax,1 call search_for pop ds mov access,read_write jnc scan1 mov use_no_log,1 scan1: mov this_scan,1 call clean_pm_buf xor ax,ax mov current_path,ax jmp scan_areas public nn_is_here public nn_not_here public nn_seen public thats_all public try_next public bns1 public build_nnn_seen public list_complete public mhl1 public make_handle_list public gh1 public get_handle_for_nn public adding_error public add_nn_to_list public check_for_end public not_in_list public this_is_it public sl1 public search_list public get_time public end_of_file public find_wkg_path_end public nn_entry_num public pack_message public send_to_node public no_such_msg public get_msg_ax public lenn1 public lenn2 public length_nn public make_scratch_nn public lim2 public lim1 public limits public make_scratch_path public next_nn public area_done public next_msg_scan public sp1 public sp2 public scan_path public finished public sa1 public scan_areas public cpb2 public clean_pm_buf clean_pm_buf: ;0's the pmsg_buf. ds is true data mov ax,sel_pmsg_buf and ax,ax jnz cpb2 mov ax,0ffffh mdosallocSeg sel_pmsg_buf,no_share mov ax,sel_pmsg_buf mov es,ax cpb2: mov di,0 ; mov cx,upmsg_length mov cx,100 call clean_wbuffer ret scan_areas: mov ax,sel_areas mov es,ax call find_wkg_path_end mov di,0 test use_no_log,0ffh jz use_log ;if no_tosslog sal1: push di call scan_path pop di add di,type line_infos mov current_path,di mov ax,sel_areas mov es,ax nop cmp byte ptr es:[di],0 jnz sal1 jmp finished use_log: call get_tosslog and ax,ax ;this tests tosslog for 0 length jnz sal1a jmp terminate sal1a: call convert_crs sa1: call get_nxt_toss_area test toss_flag,end_log jnz finished test toss_flag,no_area jnz sa1 mov di,si mov current_path,di call scan_path mov ax,sel_areas mov es,ax jmp short sa1 ;endif finished: ; call spawn_pack edata mov di,offset vmsg_scanned call print_asciiz call get_time mov di,offset scratch_ascii mov si,offset logmsg_end call write_asciiz call write_time mov al,0dh stosb mov al,0ah stosb xor al,al stosb logaz scratch_ascii mov al,minute xor ah,ah mov bx,60 mul bx add al,second adc ah,0 mov end_in_secs,ax sub ax,start_in_secs mov bx,60 div bx push dx push ax mov di,offset scratch_ascii mov al,0dh stosb mov al,0ah stosb mov si,offset logmsg_sscan call write_asciiz mov ax,tot_count call write_h_ascii mov si,offset logmsg_smsg call write_asciiz pop ax call write_h_ascii mov si,offset logmsg_smins call write_asciiz pop ax call write_h_ascii mov si,offset logmsg_ssecs call write_asciiz mov al,0 stosb logaz scratch_ascii mov di,offset scratch_ascii call print_asciiz mov ax,0 term_scan: push 1 push ax call dosexit scan_path: ;di->an area_line. This area is scanned and the ;messages put in working files for each node call get_scan_area call make_scratch_path push di pcrlf prt vmsg_scan mov di,offset scratch_path call print_asciiz pcrlf pop di call limits jc next_msg_scan call make_scratch_nn mov ax,lowest_msg sp2: mov bx,offset scratch_nn_list call get_msg_ax jc next_msg_scan call pack_message jc next_msg_scan mov si,offset prepack_nn_list sp1: call send_to_node call next_nn jz next_msg_scan jmp short sp1 next_msg_scan: mov ax,lowest_msg inc ax mov lowest_msg,ax mov hw_reply,ax cmp ax,highest_msg ja area_done jmp short sp2 area_done: mov area_changed,1 call log_area_toss mov ax,scan_count add tot_count,ax mov scan_count,0 mov di,cur_ar_path_end mov al,'1' stosb mov al,'.' stosb mov al,'m' stosb mov al,'s' stosb mov al,'g' stosb mov al,0 stosb mov access,read_write mdosopen scratch_path,open,create jc ad1 mov ax,handle mov cx,msg1_end-offset msg1 ; mov cx,offset mtext dec hw_reply mov si,offset msg1 mov doscall_inseg,ds mdoswrite doscall_inseg,results mov ax,handle mdosclose ad1: ret next_nn: add si,5 mov di,si nodediz ret make_scratch_path: call mov_cur_path_to_data ; push ds ; pop es ; mov si,current_path ; mov ax,sel_areas ; mov ds,ax ; call eozs ; mov di,offset scratch_path ; rep movsb ; ddata ret limits: ;scratch_path is valid, rets w/ lowest_msg ;and highest_msg valid. ax has lowest_msg call get_msg_high ; mov highest_msg,ax mov ax,1 call get_msg_ax jnc lim1 mov lowest_msg,2 jmp short lim2 lim1: mov ax,handle mdosclose mov ax,sel_msg_buf mov es,ax mov si,offset mreply_to mov ax,es:[si] cmp ax,2 jae lim3 mov ax,2 lim3: cmp ax,highest_msg jb lim5 mov ax,highest_msg lim5: mov lowest_msg,ax cmp ax,highest_msg jae lim4 lim2: clc ret lim4: stc ret make_scratch_nn: edata mov di,offset scratch_nn_list mov cx,512 ;this also cleans prepack buf call clean_wbuffer mov es,sel_areas ; mov current_path,di mov si,current_path ;pointer to current line in areas add si,offset li_nodes mov di,offset scratch_nn_list xdses call length_nn rep movsb ddata ret length_nn: push si xor cx,cx lenn2: nodesiz jz lenn1 add si,5 add cx,5 jmp short lenn2 lenn1: pop si ret get_msg_ax: ;rec the HEX VALUE of a file in ax ;rets w/nc and the file in the umsg_buf if ;successful, otherwise carry is set. ;upmsg_length is updated push ax ; pcrlf prt vmsg_dot pop ax push ax ; call print_h_ascii ; prt space3 mov ax,sel_msg_buf mov es,ax mov di,0 mov cx,upmsg_length call clean_wbuffer ; push ds ; pop es ;; mov di,offset scratch_ascii ;; mov dx,lowest_msg ; ; ; ; ; call dx_to_ascii ; mov si,offset scratch_ascii ; mov cx,4 ; mov di,cur_ar_path_end ;gma1: ; cmp byte ptr [si],30h ; jbe gma2 ; rep movsb ; jmp short gma4 ;gma2: ; inc si ;gma3: ; loop gma1 ;gma4: edata mov di,cur_ar_path_end pop ax call write_h_ascii mov si,offset msg_ascii call eozs inc cx rep movsb mdosopen scratch_path,open,fail jc no_such_msg mov ax,sel_msg_buf mov doscall_inseg,ax mov cx,0ffffh xor si,si mdosread mov ax,result mov upmsg_length,ax clc ret no_such_msg: stc ret send_to_node: ;si ->to net/node in prepack_nn_list. ;creates or appends msg to time.pkt mov di,offset prepack_nn_list mov ax,[si+1] mov es,sel_pmsg_buf mov di,offset spmdest_net stosw mov ax,[si+3] mov di,offset spmdest_node stosw call get_handle_for_nn mov cx,msg_length push si mov si,0 mdoswrite sel_pmsg_buf,results f3: inc word ptr max_msg_cntr inc scan_count mov ax,max_msgs cmp max_msg_cntr,ax jb stn1 push word ptr sharing push word ptr access call close_handles call clean_nn_list call spawn_pack mov ax,1 ;**** ; jmp term_scan ;**** pop word ptr access pop word ptr sharing xor ax,ax mov max_msg_cntr,ax stn1: pop si ret pack_message: ;receives a message in upmsg_buf ;ds is true data. Rets with the msg ;packed in the pm buffer,msg_length ;valid for pmsg push ds pop es call strip_path call strip_seen_bys ; mov si,current_path ; add si,offset li_nodes ; mov di,offset scratch_nn_list ; mov ax,sel_areas ; mov ds,ax ; edata ; call length_nn ; rep movsb ; ddata ;both point at true data now mov si,offset scratch_nn_list mov di,offset seen_by_list call build_nnn_seen jnz pm1 stc jmp pm2 pm1: call add_net_nodes mov ax,sel_msg_buf mov es,ax mov di,upmsg_length call write_seen_bys call write_path_line xor bx,bx mov dx,bx mov ax,handle mdoschgfileptr rel_beg mov ax,handle mov cx,upmsg_length mov si,0 mdoswrite sel_msg_buf,results mov ax,handle public test2 test2: mdosclose mov es,sel_pmsg_buf call clean_pm_buf push ds mov ax,sel_msg_buf mov ds,ax mov di,0 mov ax,2 stosw ;this is the packed msg code mov si,offset morigin_node lodsw stosw mov si,offset mdest_node lodsw stosw mov si,offset morigin_net lodsw stosw mov si,offset mdest_net lodsw stosw mov si,offset mattribute lodsw stosw mov si,offset mcost lodsw stosw mov si,offset mdatetime call write_asciiz mov al,0 stosb mov si,offset mtouser call write_asciiz mov al,0 stosb mov si,offset mfromuser call write_asciiz mov al,0 stosb mov si,offset msubject call write_asciiz mov al,0 stosb push ds ddata mov si,offset area_line call write_asciiz mov si,offset current_area call write_asciiz mov si,offset crlf call write_asciiz pop ds mov si,offset mtext mov dx,ds pop ds push ds mov cx,upmsg_length sub cx,si mov ds,dx rep movsb ; mov al,0 ; stosb ;message is now packed pop ds mov msg_length,di clc ret pm2: mov ax,handle mdosclose stc ret nn_entry_num: ;ds:si -> at entry in prepack_nn_list ;rets with bx containing the entry number (0 based) ;all regs preserved mov bx,si sub bx,offset prepack_nn_list shr bx,2 ret find_wkg_path_end: ;ds true data. rets w/ the end of the working path ;in di, length in cx, and wkg_path_end valid mov ax,ds mov es,ax mov di,offset wkg_path call eoz cmp byte ptr es:[di-1],'\' jz l6 mov al,'\' stosb l6: mov wkg_path_end,di ret ;public dx_to_ASCII ;dx_to_ASCII: ;outputs to es:di the 4 digit hex in dx ; mov al,dh ; call al_to_ascii ; mov al,dl ; ;al_to_ascii: ; mov ah,al ; push cx ; mov cl,4 ; shr al,cl ; pop cx ; call lo_nib_al_to_as ; mov al,ah ; ; ;lo_nib_al_to_as: ; and al,0Fh ; add al,90h ; daa ; adc al,40h ; daa ; stosb end_of_file: ;rec handle in ax push bx push cx push dx xor bx,bx mov dx,bx mov cx,2 mdoschgfileptr rel_end pop dx pop cx pop bx ret get_time: mov ax,offset time_info push ds push ax call dosgetdatetime ret search_list: ;ds:si -> at target nc=found with the ;entry number in cx ;if not found, first blank is pointed to ;by di, with its number incx xor cx,cx mov ah,ch edata mov di,offset nnlist sl1: call check_for_end jz not_in_list call triple_comp jz this_is_it inc cx add di,5 jmp sl1 this_is_it: clc ret not_in_list: stc ret check_for_end: mov ax,[di+1] or al,[di] or ax,[di+3] ret ;nn_comp: ;ds:si -> target si -> into list to search ; push si ; push di ; cmpsb ; jnz not_this ; cmpsw ; jnz not_this ; cmpsw ;not_this: ; pop di ; pop si ; ret add_nn_to_list: ;di -> to first blank entry, si carries a ;pointer into the prepack_nn_list ;cx the number of the entry push si push di edata ; call get_time ; mov di,wkg_path_end ; mov dx,word ptr hour ; call dx_to_ascii ; mov dx,word ptr second ; call dx_to_ascii mov di,wkg_path_end mov dx,word ptr[si+1] call dx_to_ascii mov dx,word ptr[si+3] call dx_to_ascii mov al,'.' stosb mov al,'o' stosb mov al,'u' stosb mov al,'t' stosb xor al,al stosb mdosopen wkg_path,open,create jc adding_error call append mov ax,handle xor bx,bx mov dx,bx mdoschgfileptr rel_end mov ax,handle mov bx,cx shl bx,1 mov si,offset nn_handle_list mov [si+bx],ax mov bp,sp mov si,[bp+2] mov di,[bp] mov cx,5 rep movsb mov si,[bp+2] call build_header mov cx,offset packet_hdr_end-offset packet_hdr mov si,offset packet_hdr mov ax,handle mdoswrite this_seg,results jc adding_error mov ax,handle clc pop di pop si ret adding_error: jmp file_error get_handle_for_nn: ;ds:si -> at entry in scratch nn list ;rets with handle in ax push si push di call print_node mov di,offset nnlist call search_list jc gh1 mov bx,cx shl bx,1 mov si,offset nn_handle_list mov ax,[si+bx] clc pop di pop si ret gh1: call add_nn_to_list jc gh2 gh3: pop di pop si ret gh2: push ax mov di,offset vmsg_error call print_asciiz pop ax call print_h_ascii jmp short gh3 make_handle_list: xor ax,ax mov cx,30 mov di,offset nn_handle_list rep stosw mov si,offset scratch_nn_list mov di,offset nn_handle_list mhl1: call check_for_end jz list_complete call get_handle_for_nn stosw jmp short mhl1 list_complete: ret build_nnn_seen: push si push di edata mov nn_cntr,0 mov ax,offset prepack_nn_list mov temp_ptr,ax mov si,offset scratch_nn_list bns1: mov di,offset seen_by_list call nn_seen jc try_next inc byte ptr nn_cntr push di mov di,temp_ptr mov cx,5 mov byte ptr[si],0 ;* no zone stuff rep movsb mov temp_ptr,di pop di xchg di,si nodediz xchg di,si jz thats_all jmp bns1 try_next: add si,5 nodesiz jnz bns1 thats_all: test byte ptr nn_cntr,0ffh pop di pop si ret nn_seen: ;si->at source node di-> at target list mov ax,[di+1] ;no zone or al,[di] or ax,[di+3] jz nn_not_here call triple_comp jz nn_is_here add di,5 jmp short nn_seen nn_not_here: clc ret nn_is_here: stc ret build_header: ;si points at hex z/n/n to build the header ;for. Header is built into packet_hdr push si mov ax,[si+1] mov phdest_net,ax mov ax,[si+3] mov phdest_node,ax mov al,[si] mov phdest_zone,al mov si,offset this_add mov ax,[si+1] mov phorigin_net,ax mov ax,[si+3] mov phorigin_node,ax mov al,[si] mov phorigin_zone,al mov ax,year mov phyear,ax xor ah,ah mov al,month dec al mov phmonth,ax mov al,day mov phday,ax mov al,hour mov phhour,ax mov al,minute mov phminute,ax mov al,second mov phsecond,ax mov ax,2 mov phcode,ax pop si ret print_node: ;ds:si points at a z:n/n push di push si push es push ds edata mov byte ptr es:temp_def_zone,0ffh mov word ptr es:temp_def_net,0ffffh mov di,offset scratch_ascii push di call write_node mov al,0 stosw ddata pop di call print_asciiz pop ds pop es pop si pop di ret print_h_ascii: ;prints the hex in ax as ascii to the screen push bx push cx push dx push si push di push ds push es ddata edata mov di,offset scratch_ascii push di call write_h_ascii mov al,0 stosb pop di call print_asciiz pop es pop ds pop di pop si pop dx pop cx pop bx ret find_limit_2null: ;finds double null terminator. entry ds:si -> ;at start of string. rets limit (first null) ;in cx push ax push si xor ax,ax fle1: cmp al,[si] jne fle2 cmp al,[si+1] jne fle2 mov cx,si pop si pop ax ret fle2: inc si jmp short fle1 get_bundle: mov ax,sel_names and ax,ax jnz getbund_noalloc mov ax,0a000h push ax mov ax,offset sel_names push ds push ax mov ax,0 ;this shuld be implemented as a discardable segment (ax=2) push ax call DosAllocSeg getbund_noalloc: cmp path_end,0 jnz gbun1 mov si,offset netfile_path mov di,si mov ax,ds mov es,ax call eoz mov al,'\' cmp al,[di-1] jz gb1 stosb gb1: mov path_end,di mov pkt_path_end,di gbun1: mov si,offset bundmo gbun4: mov bp,si mov cx,0 mov bx,0 mov dx,bx mov di,8000h mov ax,sel_names mov doscall_inseg,ax mov find_ptr,si gbun2: mov cx,6 mov di,path_end rep movsb mov max_find,300 mov si,0 mov di,8000h mov cx,ds mov ax,1 mov search_handle,ax mov ax,offset netfile_path mdosfindfirst cmp ax,12h je gbun5 cmp ax,0 jne gbun_error gbun5: mov cx,max_find and cx,cx clc jnz nd1 add total_finds,cx and cx,cx jz next_day mov bx,offset flen_filename gbun3: add si,bx xor ax,ax mov al,[si] add si,ax loop gbun3 next_day: cmp bp,offset bundsu jae nd2 mov si,bp add si,6 jmp gbun4 nd2: stc nd1: ret gbun_error: jmp file_error up_bundle: call get_bundle jnc ub5 jmp bundle_up ub5: mov si,offset flen_filename mov ax,sel_names edata mov ds,ax xor cx,cx mov cl,[si] inc si mov di,es:path_end rep movsb ddata mov byte ptr[di],cl push word ptr access mov sharing,deny_none mov access,read_only_access mdosopen netfile_path,open,fail pop word ptr access jnc ub1 mov si,offset netfile_path jmp file_error ub1: pusha mov di,offset scratch_ascii mov si,offset logmsg_bndl call write_asciiz mov si, offset netfile_path call write_asciiz mov si,offset crlf call write_asciiz mov si,pkt_path_end call bndl_to_node mov al,0 stosb pusha prt scratch_ascii popa logaz scratch_ascii popa mov ax,ds mov doscall_inseg,ax mov si,offset scratch_ascii mov cx,10 mdosread jnc ub2 jmp file_error ub2: mov ax,handle mdosclose call check_arc jc ub3 call unarc_bundle jmp bundle_up ub3: call check_zip jc ub4 call unzip_bundle jmp bundle_up ub4: call unarc_bundle bundle_up: ret unlh_bundle: call unpack_sr1 mov si,path_end mov di,offset lh_file call eozs rep movsb mov bx,offset lh_args mov cx,offset null_target mov si,offset lh_pathname jmp unpack_sr2 unzip_bundle: call unpack_sr1 mov si,path_end mov di,offset zip_file call eozs rep movsb mov bx,offset zip_args mov cx,offset null_target mov si,offset zip_pathname jmp unpack_sr2 public unarc_bundle unarc_bundle: call unpack_sr1 mov si,path_end mov di,offset arc_file call eozs rep movsb mov bx,offset arc_args mov cx,offset null_target mov si,offset arc_pathname jmp unpack_sr2 public unpack_sr2 unpack_sr2: xor ax,ax stosb mdosexecpgm jnc unpack_sr2b unpack_sr2b: cmp result2,0 jz unpack_sr2a call rename_bad_arc unpack_sr2a: mov si,offset netfile_path mdosdelete call retr_cur_ddir ret unpack_sr1: call save_cur_ddir mov si,offset netfile_path mov cx,path_end unb2: sub cx,si dec cx mov di,offset scratch_path rep movsb mov byte ptr[di],0 mov si,offset scratch_path mov ax,[si] xor ah,ah cmp al,'Z' jb unb1 sub al,20h unb1: sub al,'@' mdosselectdisk mdoschdir ret rename_bad_arc: mov si,offset netfile_path mov cx,path_end sub cx,si mov di,offset scratch_path rep movsb mov si,offset bad_arc_string mov cx,10 push si rep movsb call get_bad_high pop si push ax edata mov cx,63 mov di,offset scratch_path call clean_buffer mov si,offset netfile_path mov cx,path_end sub cx,si mov di,offset scratch_path rep movsb mov si,offset bad_arc_string mov cx,8 rep movsb pop ax xor ah,ah call hexdec and dh,dh jnz renb2 add dh,30h renb2: mov [di],dh inc di and dl,dl jnz renb3 add dl,30h renb3: mov [di],dl inc di and al,al jnz renb4 add bl,30h renb4: mov [di],al inc di xor ax,ax mov [di],al mov si,offset netfile_path mov di,offset scratch_path mdosmove ret get_bad_high: ;rets w/next number of bad_arc in al mov ax,sel_names and ax,ax jnz getbad_noalloc mov ax,0a000h push ax mov ax,offset sel_names push ds push ax mov ax,0 ;this shuld be implemented as a discardable segment (ax=2) push ax call DosAllocSeg getbad_noalloc: push ds pop es mov di,offset scratch_path mov si,offset bad_arc_string mov cx,10 rep movsb mov di,path_end mov ax,sel_names mov doscall_inseg,ax mov search_handle,1 mov dx,0 mov si,dx mov di,08000h mov cx,900 ;the size of the buffer and this value ;limit the number of messages that can ;be handled mov max_find,cx mov cx,ds mov ax,offset scratch_path mdosfindfirst jnc gbh1 gbh1: mov si,0 add si,offset ffilename add si,8 mov di,8000h mov cx,max_find and cx,cx jz gbh_end gbh2: mov ax,sel_names mov ds,ax mov es,ax public gbh2a gbh2a: push cx push si ;si is offset of filename extension mov cx,3 call dechex pop si stosb add si,4 add si,offset ffilename add si,8 pop cx loop gbh2a gbh3: ddata mov di,8000h mov cx,max_find xor ax,ax gbh5: cmp al,es:[di] jae gbh4 mov al,es:[di] gbh4: inc di loop gbh5 inc al gbh_end: ret cmp_rm_double: ;ds:si points to a dword, dx:ax has comp value ;rets carry if mem higher than dx:ax z flag valid push bx push cx mov cx,dx mov bx,ax sub bx,[si] sbb cx,[si+2] pop cx pop bx ret get_lengths: ;updates 2 variables si_length and di_length ;with the lengths of the strings pointed ;to by ds:si and es:di ;also updates shortest and longest ;cx has value of shortest,ax value of longest push di call eoz mov di_length,cx call eozs mov si_length,cx pop di mov cx,di_length sub cx,si_length jc di_low mov cx,si_length mov ax,di_length glen1: mov shortest,cx mov longest,ax ret di_low: mov ax,si_length mov cx,di_length jmp short glen1 ret string_compare: call get_lengths repz cmpsb and cx,cx jz same_so_far dec di dec si mov al,[di] cmp al,[si] ret ;carry says si is larger same_so_far: mov ax,di_length cmp ax,si_length ret unpack_bdls: save_cur_ddir: push es push di edata mdosqcurdisk home_drive,results mov cx,64 mov ax,home_drive add ax,40h mov di,offset home_dr_ascii stosb mov al,':' stosb mov al,'\' stosb mdosqcurdir home_directory pop di pop es ret retr_cur_ddir: mov ax,home_drive mdosselectdisk mov si,offset home_dr_ascii mdoschdir ret check_arc: mov al,9 cmp al,[si+1] ret check_lh: push si mov cx,10h mov si,offset scratch_ascii mov di,offset lzh_string call search_for pop si ret check_zip: push si mov cx,10h mov si,offset scratch_ascii mov di,offset zip_string call search_for pop si ret public spawn_pack spawn_pack: call save_cur_ddir mov si,offset comspec_srch mdosscanenv jnc spp1 jmp file_error spp1: edata mov si,result mov ax,sel_environ push ds mov ds,ax call eozs mov di,offset cmd_path rep movsb pop ds mov si,offset cmd_path mov di,offset cmd_simple call get_simple mov al,0 stosb mov al,'/' stosb mov al,'c' stosb mov si,offset pack_path call eozs rep movsb prt vmsg_pspawn prt space3 prt cmd_simple mov cx,offset null_target mov bx,offset cmd_simple mov si,offset cmd_path xor ax,ax mdosexecpgm ret get_simple: ;must only be called with si -> at fully ;qualified pathname. di -> to location ;for the simple name. The simple name is ;considered to be the string between the ;last \ and the first period (less than 20 ;chars. push di call eozs mov di,si add di,cx mov bx,cx call back_to_back xchg bx,cx sub cx,bx inc di mov si,di pop di gs1: lodsb cmp al,'.' jz got_simple stosb loop gs1 got_simple: ret back_to_back: ;enter with di-> at end of string, cx length of string ;rets with di-> to last \ in string mov al,'\' std repnz scasb cld inc di ret clean_nn_list: mov di,offset nnlist mov cx,600 call clean_wbuffer ret close_handles: mov si,offset nn_handle_list chan1: lodsw and ax,ax jz chan2 push ax push si mov si,offset scratch_ascii mov word ptr [si],0 mov cx,ds mov doscall_inseg,cx mov cx,2 mdoswrite doscall_inseg,results pop si pop ax mdosclose jmp short chan1 chan2: ret append: ;moves the file pointer of <handle> to eof ;handle must be valid push ax push bx push cx push dx xor bx,bx mov dx,bx mov ax,handle mdoschgfileptr rel_end pop dx pop cx pop bx pop ax ret fptr_begin: ;moves the file pointer to beginning of file push ax push bx push dx xor bx,bx mov dx,bx mov ax,handle mdoschgfileptr rel_beg pop dx pop bx pop ax ret public delete_rtn delete_rtn: ddata ; mov ds,ax mov di,0 delr1: mov ax,sel_areas mov es,ax push di cmp byte ptr es:[di],0 jz del_end call try_delete pop di add di,type line_infos mov current_path,di jmp short delr1 del_end: pop di xor ax,ax jmp term_scan public try_delete try_delete: mov ax,sel_areas mov es,ax mov di,current_path cmp byte ptr es:[di+offset li_flag],'#' ; add di,offset li_flag ; mov al,byte ptr es:[di] ; cmp al,'#' jnz td1 call mov_cur_path_to_data call names call delete_msgs td1: ret public delete_msgs delete_msgs: push ds pop es ; mov cx,offset wpe_end ; mov di,wkg_path_end ; sub cx,di ; call clean_buffer mov di,cur_ar_path_end mov si,0 cmp max_find,0 jz dmsg2 mov ax,sel_names mov ds,ax push di push ds ddata prt vmsg_delete mov di,es:current_path mov ax,es:sel_areas mov ds,ax add di,offset li_area call print_asciiz pop ds pop di dmsg3: mov di,es:cur_ar_path_end xor cx,cx add si,offset flen_filename mov cl,[si] and cl,cl jz dmsg2 inc cl inc si rep movsb push ds push si ddata mov si,offset scratch_path mdosdelete jnc dmsg1 jmp file_error dmsg1: prt vmsg_dot pop di pop es dec max_find cmp max_find,0 jz dmsg2 push es pop ds edata mov si,di jmp short dmsg3 dmsg2: ddata ret write_time: ;writes the current date time to es:di xor ax,ax mov al,month call write_h_ascii mov al,'-' stosb mov al,day call write_h_ascii mov al,'-' stosb mov ax,year ; add ax,1980 call write_h_ascii mov al,' ' stosb xor ax,ax mov al,hour call write_h_ascii2d mov al,':' stosb mov al,minute call write_h_ascii2d mov al,':' stosb mov al,second call write_h_ascii2d ret public log_pkt_info log_pkt_info: mov di,offset scratch_ascii wstring logmsg_pkt1 mov si,path_end call write_asciiz mov al,' ' stosb stosb xor ax,ax mov ax,phmonth call write_h_ascii2d mov al,'-' stosb mov ax,phday call write_h_ascii2d mov al,'-' stosb mov ax,phyear add ax,1900 call write_h_ascii2d mov al,' ' stosb mov ax,phhour call write_h_ascii2d mov al,':' stosb mov ax,phminute call write_h_ascii2d mov al,':' stosb mov ax,phsecond call write_h_ascii2d wstring logmsg_pkt2 mov ax,phorigin_net call write_h_ascii mov al,'/' stosb mov ax,phorigin_node call write_h_ascii mov al,' ' stosb stosb wstring logmsg_pkt3 mov ax,phdest_net call write_h_ascii mov al,'/' stosb mov ax,phdest_node call write_h_ascii wstring logmsg_pkt4 xor ah,ah mov al,phproduct call write_h_ascii wstring logmsg_pkt5 mov si,offset pkt_size lodsw mov dx,[si] call dw_to_ascii mov al,0dh stosb mov al,0ah stosb xor al,al stosb logaz scratch_ascii ret public dw_to_ascii dw_to_ascii: mov first_digit,0 push ax push dx mov bx,1000 div bx xor dx,dx div bx xor dx,dx and ax,ax jz dww1 push ax add al,30h stosb mov first_digit,1 pop ax mul bx mul bx mov cx,dx mov bx,ax pop dx pop ax sub ax,bx sbb dx,cx push ax push dx dww1: pop dx pop ax push ax push dx mov bx,1000 div bx xor dx,dx mov bx,100 div bx xor dx,dx and ax,ax jnz dww1a and first_digit,0ffh jz dww2 dww1a: push ax add al,30h stosb mov first_digit,1 pop ax mul bx mov bx,1000 mul bx mov cx,dx mov bx,ax pop dx pop ax sub ax,bx sbb dx,cx push ax push dx dww2: pop dx pop ax push ax push dx mov bx,10000 div bx xor dx,dx and ax,ax jnz dww2a test first_digit,0ffh jz dww3 dww2a: push ax add al,30h stosb mov first_digit,1 pop ax mov bx,10000 mul bx mov cx,dx mov bx,ax pop dx pop ax sub ax,bx sbb dx,cx push ax push dx dww3: pop dx pop ax push ax xor dx,dx mov bx,1000 div bx and ax,ax jnz dww3a test first_digit,0ffh jz dww4 dww3a: push ax add al,30h stosb pop ax mul bx mov bx,ax pop ax sub ax,bx push ax dww4: pop ax mov bp,ax mov bx,100 xor dx,dx div bx mov cx,ax add al,30h stosb mov ax,cx mul bx sub bp,ax mov ax,bp mov bx,10 div bx mov cx,ax add al,30h stosb mov ax,cx mul bx sub bp,ax mov ax,bp add al,30h stosb ret log_area_toss: push ax push bx push cx push dx push di push si push es and area_changed,0ffh jz lat1 edata mov di,offset scratch_ascii wstring logmsg_echo1 wstring current_area mov al,20h stosb mov al,'.' lat2: stosb cmp di,offset scratch_ascii+43 jbe lat2 mov al,20h stosb mov ax,msg_cntr add tot_count,ax call write_h_ascii4d wstring logmsg_echo2 mov ax,scan_count call write_h_ascii4d mov al,')' stosb wstring crlf mov al,0 stosb logaz scratch_ascii mov msg_cntr,0 lat1: pop es pop si pop di pop dx pop cx pop bx pop ax ret get_scan_area: ;di -> at area entry in sel areas ;moves it to current_area push es push di push si xchg di,si mov ax,sel_areas mov es,ax xdses add si,offset li_area mov di,offset current_area call eozs rep movsb xor al,al stosb xdses pop si pop di pop es ret names: mov ax,sel_names and ax,ax jnz gethigh_noalloc mov ax,0a000h push ax mov ax,offset sel_names push ds push ax mov ax,0 ;this shuld be implemented as a discardable segment (ax=2) push ax call DosAllocSeg public gethigh_noalloc gethigh_noalloc: push ds pop es mov di,cur_ar_path_end mov si,offset msg_search mov cx,6 rep movsb mov ax,sel_names mov doscall_inseg,ax mov search_handle,1 mov dx,0 mov si,dx mov di,08000h mov cx,900 ;the size of the buffer and this value ;limit the number of messages that can ;be handled mov max_find,cx mov cx,ds mov ax,offset scratch_path mdosfindfirst ret public get_tosslog get_tosslog: mov toss_add,0 mov ax,0ffffh mdosallocseg sel_tosslog,no_share push word ptr sharing push word ptr access mov sharing,deny_none mov access,read_only_access mdosopen echo_toss,open,fail pop word ptr access pop word ptr sharing openerror echo_toss,file_error mov ax,sel_tosslog mov doscall_inseg,ax mov si,0 mov cx,0ffffh mdosread jnc gtoss1 jmp short gtoss2 gtoss1: mov ax,result mov tosslog_length,ax gtoss2: ret convert_crs: mov ax,sel_tosslog mov cx,tosslog_length mov es,ax mov di,0 mov bx,di mov al,0dh cc1: repnz scasb mov es:[di-1],bl and cx,cx jnz cc1 ret get_nxt_toss_area: ;on entry di is pointing at the ;area line in the tosslog to be ;scanned now. on exit it will point ;at the next one. ;rets carry on error. toss_flag ;end_log if at end of log or ;toss_flag no_area if area not found ;otherwise si is pointing to the area ;line. push ds mov ax,sel_tosslog mov es,ax mov di,toss_add mov cx,limit_areas cmp di,tosslog_length jae gnta2 mov ax,sel_areas mov ds,ax mov si,0 mov ax,1 call search_for ddata pushf mov cx,limit_areas call next_z_limit ;di should not have varied til now inc di ;moves di to start of next line mov toss_add,di popf jc gnta3 xor dx,dx mov bx,type line_infos mov bh,0 mov ax,si div bx xor dx,dx mul bx mov si,ax pop ds ret gnta2: or toss_flag,end_log pop ds ret gnta3: or toss_flag,no_area pop ds ret pull_atag: ; push es mov ax,sel_msg_buf mov es,ax mov di,offset mtext call dlen inc cx mov bx,di add bx,cx cmp byte ptr es:[bx],0dh jnz pa1 inc cx pa1: cmp byte ptr es:[bx],0ah jnz pa2 inc cx pa2: mov dx,upmsg_length call delete_cx_chars mov upmsg_length,di pop es ret parse_route: ;enters with ds = local data public parse_route mov ax,08000h mdosopen routing,open,fail jnc route1 mov si,offset routing jmp file_error route1: mdosQfileinfo all_file_info mov bx,offset all_file_info add bx,offset ffile_size mov ax,word ptr [bx] add ax,0100h push ax mdosallocseg sel_route,no_share pop cx dec cx mov es,sel_route mov di,0 call clean_buffer mov cx,word ptr [bx] mov si,0 mov ax,sel_route mov doscall_inseg,ax mdosread push ds pop es mov ds,sel_route mov si,es:all_file_info.ffile_size mov al,0dh mov cx,4 parr1: inc si mov byte ptr[si],al loop parr1 mov si,0 parr2: call find_config_line cmp si,es:all_file_info.ffile_size jae parr6 call sstart jc parr2 push si mov bx,0 parr3: mov si,offset route_index mov di,es:[si+bx] mov cx,es:[si+bx+2] sub cx,di mov ax,si add ax,bx cmp ax,offset end_index jae parr5 ;this line didn't match pop si push si repz cmpsb and cx,cx jz parr4 ;it's been found inc bx inc bx jmp short parr3 parr4: pop ax ;throw it away call sstart mov di,offset route_sr_ind call es:[di+bx] jmp short parr2 parr5: jmp short parr2 parr6: ret route_sr_1: mov bx,offset route_work_area lea di,offset rt_crash [bx] call net_nodes ret route_sr_2: mov bx,offset route_work_area lea di,offset rt_hold [bx] call net_nodes ret route_sr_3: mov di,offset akas call net_nodes ret each_out: edata mov si,offset outbound mov si,offset out_search call find_file ;look for a .out file ;check first crash then hold ;look for bundle to that node ;add it to or create new ;if new, add to carrier ;adjust carrier type ; ;for packing/routing netmail ;get list of msgs ;open each ; check to/from ; if not to us and if not sent ; adjust and put in outbound ; delete if k/s out_node: ;on entry si points at .out file name ;on exit ax contains the node dx has the net push si mov cx,4 call dechex pop si push ax mov cx,4 add si,cx call dechex pop dx ret public find_file find_file: ;enters with si pointing at the path to ;search, di pointing at search pattern ;exits with the first file found in ;scratch path rets w/ carry if no file ;found push di mov di,offset all_file_info.ffilename mov cx,20 call clean_buffer pop di mov search_pattern_offset,di call eozs inc cx mov di,offset scratch_path push di rep movsb pop di mov ax,ds mov es,ax call eoz mov al,'\' cmp al,[di-1] jz ff1a stosb ;gb1: ff1a: mov scratch_path_end,di ff1: ff4: mov cx,0 mov bx,0 mov dx,bx mov di,40 mov ax,_data mov doscall_inseg,ax mov find_ptr,si ff2: mov si,search_pattern_offset call eozs inc cx mov di,scratch_path_end rep movsb mov max_find,1 mov si,0 mov di,40 mov cx,ds mov ax,1 mov search_handle,ax mov ax,offset scratch_path mdosfindfirst cmp ax,12h je ff5 cmp ax,0 jne ff_error ff5: mov cx,offset flen_filename inc cx mov si,offset all_file_info.ffilename mov di,scratch_path_end rep movsb clc ff_error: ret asciih_to_hexd: ;on entry si points to a 4 digit ascii ;hex number. On exit ax conts the value call si_to_hexd mov bh,al call si_to_hexd mov bl,al call si_to_hexd mov ah,al call si_to_hexd shl bh,4 shl ah,4 add bl,bh add al,ah mov ah,bl ret bndl_to_node: ;on entry si points at the bndl number ;es:di points to place to write the net/node push di call asciih_to_hexd push ax call asciih_to_hexd push ax xor ax,ax mov di,offset scratch_node stosb pop dx pop ax mov si,offset this_add inc si ; mov bx,0ffffh ; xor ax,bx add ax,word ptr[si] stosw inc si inc si mov ax,dx ; xor ax,bx add ax,word ptr[si] stosw mov si,offset scratch_node pop di call write_node ret si_to_hexd: lodsb cmp al,39h jbe ath1 sub al,7 ath1: sub al,30h ret _code ends end main