504c1b3c02
git-svn-id: https://svn.code.sf.net/p/freedos/svn/kernel/trunk@18 6ac86273-5f31-0410-b378-82cca8765d1b
262 lines
7.8 KiB
NASM
262 lines
7.8 KiB
NASM
;
|
|
; File:
|
|
; int2f.asm
|
|
; Description:
|
|
; multiplex interrupt support code
|
|
;
|
|
; Copyright (c) 1996, 1998
|
|
; Pasquale J. Villani
|
|
; All Rights Reserved
|
|
;
|
|
; This file is part of DOS-C.
|
|
;
|
|
; DOS-C is free software; you can redistribute it and/or
|
|
; modify it under the terms of the GNU General Public License
|
|
; as published by the Free Software Foundation; either version
|
|
; 2, or (at your option) any later version.
|
|
;
|
|
; DOS-C is distributed in the hope that it will be useful, but
|
|
; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
|
|
; the GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU General Public
|
|
; License along with DOS-C; see the file COPYING. If not,
|
|
; write to the Free Software Foundation, 675 Mass Ave,
|
|
; Cambridge, MA 02139, USA.
|
|
;
|
|
; $Logfile: D:/dos-c/src/kernel/int2f.asv $
|
|
;
|
|
; $Id$
|
|
;
|
|
; $Log$
|
|
; Revision 1.3 2000/05/17 19:15:12 jimtabor
|
|
; Cleanup, add and fix source.
|
|
;
|
|
; Revision 1.2 2000/05/08 04:30:00 jimtabor
|
|
; Update CVS to 2020
|
|
;
|
|
; $Log$
|
|
; Revision 1.3 2000/05/17 19:15:12 jimtabor
|
|
; Cleanup, add and fix source.
|
|
;
|
|
; Revision 1.4 2000/03/31 05:40:09 jtabor
|
|
; Added Eric W. Biederman Patches
|
|
;
|
|
; Revision 1.3 2000/03/09 06:07:11 kernel
|
|
; 2017f updates by James Tabor
|
|
;
|
|
; Revision 1.2 1999/08/10 17:57:12 jprice
|
|
; ror4 2011-02 patch
|
|
;
|
|
; Revision 1.1.1.1 1999/03/29 15:40:59 jprice
|
|
; New version without IPL.SYS
|
|
;
|
|
; Revision 1.4 1999/02/08 05:55:57 jprice
|
|
; Added Pat's 1937 kernel patches
|
|
;
|
|
; Revision 1.3 1999/02/01 01:48:41 jprice
|
|
; Clean up; Now you can use hex numbers in config.sys. added config.sys screen function to change screen mode (28 or 43/50 lines)
|
|
;
|
|
; Revision 1.2 1999/01/22 04:13:26 jprice
|
|
; Formating
|
|
;
|
|
; Revision 1.1.1.1 1999/01/20 05:51:01 jprice
|
|
; Imported sources
|
|
;
|
|
;
|
|
; Rev 1.2 06 Dec 1998 8:48:12 patv
|
|
; Bug fixes.
|
|
;
|
|
; Rev 1.1 29 May 1996 21:03:46 patv
|
|
; bug fixes for v0.91a
|
|
;
|
|
; Rev 1.0 19 Feb 1996 3:34:38 patv
|
|
; Initial revision.
|
|
; $EndLog$
|
|
;
|
|
|
|
%include "segs.inc"
|
|
|
|
segment _TEXT
|
|
extern _nul_dev:wrt DGROUP
|
|
|
|
global _int2f_handler
|
|
_int2f_handler:
|
|
sti ; Enable interrupts
|
|
cmp ah,11h ; Network interrupt?
|
|
jne Int2f3 ; No, continue
|
|
Int2f1:
|
|
or al,al ; Installation check?
|
|
jz FarTabRetn ; yes, just return
|
|
Int2f2:
|
|
stc
|
|
FarTabRetn:
|
|
retf 2 ; Return far
|
|
Int2f3:
|
|
cmp ah,16h
|
|
je FarTabRetn ; Win Hook return fast
|
|
cmp ah,12h
|
|
je IntDosCal ; Dos Internal calls
|
|
cmp ah,10h ; SHARE.EXE interrupt?
|
|
je Int2f1 ; yes, do installation check
|
|
cmp ah,14h ; NLSFUNC.EXE interrupt?
|
|
je Int2f1 ; yes, do installation check
|
|
iret ; Default, interrupt return
|
|
|
|
;
|
|
; added by James Tabor For Zip Drives
|
|
;Return Null Device Pointer
|
|
IntDosCal:
|
|
cmp al,02ch
|
|
jne Int2f2
|
|
mov ax,_nul_dev
|
|
mov bx,seg _nul_dev
|
|
clc
|
|
jmp FarTabRetn
|
|
|
|
; Int 2F Multipurpose Remote System Calls
|
|
;
|
|
; added by James Tabor jimtabor@infohwy.com
|
|
;
|
|
; int_2f_Remote_call(ax,bx,cx,dx,[es:di],si, return data * ptr)
|
|
; assume ss == ds after setup of stack in entry
|
|
; sumtimes return data *ptr is the push stack word
|
|
;
|
|
global _int2f_Remote_call
|
|
_int2f_Remote_call:
|
|
push bp
|
|
mov bp,sp
|
|
push es
|
|
push ds
|
|
push si
|
|
push di
|
|
push dx
|
|
push cx
|
|
push bx
|
|
|
|
push ss ; hay, did I say assume
|
|
pop ds
|
|
|
|
mov si,[bp+16]
|
|
les di,[bp+12]
|
|
mov dx,[bp+10]
|
|
mov cx,[bp+8]
|
|
mov bx,[bp+6]
|
|
mov ax,[bp+4]
|
|
|
|
cmp al,08h ; R/W Remote File
|
|
je short int2f_r_1
|
|
cmp al,09h
|
|
jne short int2f_r_2
|
|
int2f_r_1:
|
|
call int2f_call
|
|
jnc short int2f_skip1
|
|
jmp int2f_rfner
|
|
int2f_skip1:
|
|
les di,[bp+18] ; do return data stuff
|
|
mov [es:di],cx
|
|
jmp short int2f_rfner
|
|
int2f_r_2:
|
|
cmp al,0ch ; Get Remote DPB
|
|
jne short int2f_r_3
|
|
call int2f_call
|
|
jc int2f_rfner
|
|
les di,[bp+18]
|
|
mov [es:di+0],ax
|
|
mov [es:di+2],bx
|
|
mov [es:di+4],cx
|
|
mov [es:di+6],dx
|
|
jmp short int2f_rfner
|
|
int2f_r_3:
|
|
cmp al,0fh ; Get Remote File Attrib
|
|
jne short int2f_r_4
|
|
call int2f_call
|
|
jc short int2f_rfner
|
|
mov si,di
|
|
les di,[bp+18] ; pointer to struct
|
|
mov [es:di+0],ax
|
|
mov [es:di+2],si ; lo
|
|
mov [es:di+4],bx ; high
|
|
mov [es:di+6],cx
|
|
mov [es:di+8],dx
|
|
mov ax,0000h
|
|
jmp short int2f_rfner
|
|
int2f_r_4:
|
|
cmp al,01eh
|
|
je short int2f_r_5
|
|
cmp al,01fh
|
|
jne short int2f_r_6
|
|
int2f_r_5:
|
|
push ds
|
|
push word [bp+20]
|
|
pop ds
|
|
call int2f_call
|
|
pop ds
|
|
jc short int2f_rfner
|
|
xor ax,ax
|
|
jmp short int2f_rfner
|
|
int2f_r_6:
|
|
cmp al,021h ; Lseek from eof
|
|
jne short int2f_r_7
|
|
call int2f_call
|
|
jc short int2f_rfner
|
|
les di,[bp+18]
|
|
mov [es:di],ax
|
|
mov [es:di+2],dx
|
|
xor ax,ax
|
|
jmp short int2f_rfner
|
|
int2f_r_7:
|
|
;
|
|
; everything else goes through here.
|
|
;
|
|
call int2f_call
|
|
jc int2f_rfner
|
|
xor ax,ax
|
|
int2f_rfner:
|
|
pop bx
|
|
pop cx
|
|
pop dx
|
|
pop di
|
|
pop si
|
|
pop ds
|
|
pop es
|
|
pop bp
|
|
ret
|
|
;
|
|
; Pull this one out of the Chain.
|
|
;
|
|
global _QRemote_Fn
|
|
_QRemote_Fn
|
|
push bp
|
|
mov bp,sp
|
|
push es
|
|
push ds
|
|
push si
|
|
push di
|
|
mov ax,1123h
|
|
lds si,[bp+4]
|
|
les di,[bp+8]
|
|
stc
|
|
int 2fh
|
|
mov ax,0xffff
|
|
jnc QRemote_Fn_out
|
|
xor ax,ax
|
|
QRemote_Fn_out:
|
|
pop di
|
|
pop si
|
|
pop ds
|
|
pop es
|
|
pop bp
|
|
ret
|
|
|
|
|
|
int2f_call:
|
|
push bp
|
|
push word [bp+18] ; very fakey, HaHa ;)
|
|
stc ; set to fail
|
|
int 2fh
|
|
pop bp
|
|
pop bp
|
|
ret
|