diff options
Diffstat (limited to 'tools/sci/scitrace.asm')
-rw-r--r-- | tools/sci/scitrace.asm | 136 |
1 files changed, 0 insertions, 136 deletions
diff --git a/tools/sci/scitrace.asm b/tools/sci/scitrace.asm deleted file mode 100644 index 360e0b7ffc..0000000000 --- a/tools/sci/scitrace.asm +++ /dev/null @@ -1,136 +0,0 @@ -; ScummVM - Graphic Adventure Engine -; -; ScummVM is the legal property of its developers, whose names -; are too numerous to list here. Please refer to the COPYRIGHT -; file distributed with this source distribution. -; -; This program 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 -; of the License, or (at your option) any later version. - -; This program 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 this program; if not, write to the Free Software -; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. -; -; $URL$ -; $Id$ -; -;--------------------------------------------------------------------------- -; -; SCITRACE -; TSR for logging specific calls inside sierra sci -; Written by M. Kiewitz -; -;--------------------------------------------------------------------------- - -; Simply replace 51h 51h 51h 51h in sierra sci with -; CDh 90h 90h 90h. This code will then log copyrect calls to scitrace.bin - - .286 - -code_seg segment public - assume cs:code_seg, ds:nothing, es:nothing - org 00100h - -scitrace: jmp install_my_prog - -;--------------------------------------------------------------------------- - -filename: db 'SCITRACE.BIN', 0 - -inthandler: push ax - push bx - push cx - push dx - push ds - push cs - pop ds - mov ah, 3Dh - mov al, 1 - mov dx, offset filename - xor cl, cl - int 21h - pop ds - jc int_error - mov bx, ax - mov ax, 4202h - xor cx, cx - xor dx, dx - int 21h - mov dx, si - mov ah, 40h - mov cx, 8 - int 21h - mov ah, 3Eh - int 21h -int_error: pop dx - pop cx - pop bx - pop ax - movsw - movsw - movsw - movsw - iret - -end_of_tsr: - -;--------------------------------------------------------------------------- - -titlestr: db 'SCITRACE - written by M. Kiewitz',13,10,'$' -errorfile: db 'error creating file',13,10,'$' - -;--------------------------------------------------------------------------- - -install_my_prog: - push cs - pop ds - mov ah, 09h - mov dx, offset titlestr - int 21h - - mov ah, 3Ch - mov cx, 0 - mov dx, offset filename - int 21h - jnc valid_open - mov ah, 09h - mov dx, offset errorfile - int 21h - mov ax, 6200h - int 21h - mov es, bx - mov ax, 4C00h - int 21h - -valid_open: mov bx, ax - mov ah, 3Eh - int 21h - -NowInstallTSR: - mov ax, 2590h - mov dx, offset inthandler - int 21h ; int 90h pointer <- ds:dx - - mov ax, ds:[002ch] ; get envt segment - mov es, ax - mov ax, 4900h - int 21h - - mov dx, offset end_of_tsr - add dx, 15 - shr dx, 4 - mov ax, 3100h - int 21h - -;--------------------------------------------------------------------------- - -code_seg ends - end scitrace - |