; ; FIMAX2.ASM ; ; (c) Copyright 1997-2000 DF7BE ; Free Software under property of the ; GNU General Public License ; ; Date : 20.02.2000 ; ; ; Logbuchprogramm DF7BE ; Amateur-Radio log by DF7BE ; Zusatzmodul fuer Handle-Erweiterung ; deutsche Version ; Clipper Sommer 87 oder 5.2 ; ; 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., 675 Mass Ave, Cambridge, MA 02139, USA ( or visit ; their web site at http://www.gnu.org/ ). ; ; ; Modification documentation ; ; +------------+-------------------------+----------------------------------+ ; + Date ! Name and Call ! Modification ! ; +------------+-------------------------+----------------------------------+ ; ! 20.02.2000 ! W.Brunken DF7BE ! first creation ! ; +------------+-------------------------+----------------------------------+ ; ; Dieses Zusatzmodul erweitert die Handle-Tabelle von Clipper ; Es ist auch nicht mehr erforderlich, die Variable ; SET CLIPPER=Fxxx zu setzen. ; Lediglich der Eintrag FILES= in der CONFIG.SYS entscheidet ueber die ; vom Programm verfuegbaren Dateihandles ; Im Initialisierungteil des Clipper-Hauptprogrammes machen Sie ; (bevor irgendwelche Dateien oder Datenbanken geoeffnet werden) ; den Aufruf ; DO FIMAX2 ; Auf diese Weise stehen Ihnen in einem Clipper Programm ; (hier: mit Version Sommer 1987 kompiliert) mehr als 15 Dateihandles ; zur Verfuegung. Auch wenn Sie bisher FILES= und SET CLIPPER=Fxxx ; gesetzt hatten, so war bei 15 File-Handles schluss. ; Mit FIMAX2.OBJ nun nicht mehr ! ; ; Uebesetzen : ; PUBLIASM FIMAX2 ; Linken mit ; plink86 FI %1,FIMAX2 LIB CLIPPER,EXTEND NOBELL ; ; PUBLIASM ist ein MASM-kompatibler Public-Domain Assembler. ; Natuerlich geht auch Microsoft MASM EXTRN __RET:FAR PUBLIC FIMAX2 CSEG SEGMENT 'CODE' ASSUME CS:CSEG FIMAX2 PROC FAR PUSH BP MOV BP,SP PUSH DS PUSH ES PUSH SI PUSH DI ; hole PSP MOV AH,67h ; Set Handle Count MOV BX,64h ; 100 Handles INT 21h CALL __ret POP DI POP SI POP ES POP DS POP BP RET FIMAX2 ENDP CSEG ENDS END ;