Liren Large Software Subsidy 5/05.iso/a/a062/1.ddi/MFOXP.ASM

Assembly Source File | 1990-10-08 | 3.5 KB | 159 lines

;Title cover all of use-ares
;*****************************
stack segment para stack 'stack'
        dw 64 dup(?)
stack ends
;*****************************
datasg segment para public 'data'
      wpcb1    dw  ?
      wpcb2    dw  80h
      wpcb3    dw  ?
      wpcb4    dw  5ch
      wpcb5    dw  ?
      wpcb6    dw  6ch
      wpcb7    dw  ?
      wfilenam  db 'mfox.exe                         ',00h,00h,00h
      buf     db  55h,8bh,0ech,81h,0ech,00h,10h,8dh,86h,00h,0f0h,0a3h,32h,6ah,0a3h,48h
              db  6ah,80h,0c4h,08h,0a3h,4ch,6ah,8dh,86h,00h,0f8h,0a3h,0a4h,8bh,0ffh,76h
              db  08h,0ffh,76h,06h,9ah,02h,02h,00h,00h,83h,0c4h,04h,2bh,0c0h,50h,0a1h
datasg  ends
;*****************************
codesg segment para public 'code'
start proc far
      assume cs:codesg,ds:datasg,ss:stack,es:nothing
      push ds
      sub ax,ax
      push ax
      push ds
      mov dx,ax
      mov ax,2594h
      int 21h
      mov bx,2ch
      mov si,bx
      mov cx,[si]
      mov ds,cx
      mov ax,2592h
      int 21h
      lea dx,int80
      mov ax,cs
      mov ds,ax
      mov ax,2580h
      int 21h
      pop ds
      mov ax,3594h
      int 21h
      mov bx,200h
      mov ah,4ah
      int 21h
      mov ax,3594h
      int 21h
      mov ax,datasg
      mov ds,ax
      mov ax,es
      mov wpcb3,ax
      mov wpcb5,ax
      mov wpcb7,ax
      mov ax,3592h
      int 21h
      mov ax,datasg
      mov ds,ax
      mov bx,es
      mov wpcb1,bx
      lea dx,wpcb1
      mov bx,dx
      mov ax,ds
      mov es,ax
      lea dx,wfilenam
      mov ah,4bh
      mov al,00h
      int 21h
;****************************
      mov ax,200h
      mov si,ax
      mov cx,40h
      mov ax,00h
      mov ds,ax
cle:  mov [si],ax
      inc si
      inc si
      loop cle
      ret
;****************************
int80:push es
      push ds
      push bp
      push di
      push si
      push dx
      push cx
      push bx
      push ax
;*******     work    *******
      mov ax,2560h
      int 21h
      mov ax,3594h
      int 21h
      mov ax,datasg
      mov ds,ax
      lea ax,buf
      mov si,ax
      mov bx,2170h
      mov cx,30h
ldo:  mov al,[si]
      cmp al,00
      jz  ldo1
      push ds
      push es
      pop  ds
      mov [bx],al
      pop  ds
ldo1: inc bx
      inc si
      loop ldo
;     process
      mov ax,00
      mov ds,ax
      mov ax,200h
      mov si,ax
      mov cx,60h
l2:   mov ax,0
      mov [si],ax
      inc si
      inc si
      loop  l2
      mov ax,datasg
      mov ds,ax
      lea ax,buf
      mov si,ax
      mov cx,50h
l3:   mov ax,0
      mov [si],ax
      inc si
      inc si
      loop  l3
      mov ax,cs
      mov ds,ax
      mov ax,81h
      mov si,ax
      mov cx,3ah
      mov ax,00h
l4:   mov [si],ax
      inc si
      inc si
      loop  l4
;***********************
      pop ax
      pop bx
      pop cx
      pop dx
      pop si
      pop di
      pop bp
      pop ds
      pop es
      iret
start endp
;*************************************
codesg ends
      end start