Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / SYSUTL / TSRSRC31.ZIP / FMARK.ASM < prev next >

Wrap

Assembly Source File | 1991-11-04 | 12.4 KB | 362 lines

;============================================================================== ;FMARK.ASM - mark a position in memory, ; above which TSRs will later be cleared by RELEASE ; this version leaves a minimal size MARK in memory, ; storing the rest on disk ; requires a single command line parameter naming ; the file where the mark will be stored ; ; Syntax: FMARK [/Q] [d:][path]filename ;============================================================================== ; written for TASM ; by Kim Kokkonen, TurboPower Software ; Copyright (c) 1986,1991 Kim Kokkonen, TurboPower Software. ; May be freely distributed but not sold except by permission. ; telephone: 719-260-6641, Compuserve 76004,2611 ;============================================================================== ; version 2.0 6/17/86 ; start at a version number compatible with other TSR utilities ; : ; long intervening history ; : ; version 3.0 9/24/91 ; add Quiet option ; version 3.1 11/4/91 ; no change ;============================================================================== ; Cseg segment public para assume cs:Cseg, ds:Cseg, es:Cseg org 016H ;access to parent's PSP parpsp label word org 02CH envseg label word ;access to environment segment org 80H cmdlen label byte ;command line length org 81H cmdlin label byte ;first character of command line org 100H fmark proc near comentry: ;deallocate environment block of this mark push es mov ax,envseg ;environment segment mov es,ax ; into es mov ah,49H int 21H ;deallocate, no reason for an error to occur pop es ;parse command line for file name mov si,offset cmdlin ;point to command line mov di,offset filnm ;point to filename storage string cld get1: lodsb ;get first non-blank cmp al,32 ;skip space je get1 cmp al,9 ;skip tab je get1 cmp al,13 ;check for end of input jne geto ;got a non-blank, now get the parameter cmp di,offset filnm ;filename already specified? jne gotit ;done if so jmp error ;no parameter --> error geto: cmp al,'/' ;check for option je getoc cmp al,'-' jne get2 getoc: lodsb call upcase cmp al,'Q' jnz operr mov quiet,1 ;set quiet option jmp get1 ;loop around operr: mov dx,offset badopt ;bad option jmp errmsg get2: cmp di,offset filnm ;filename already specified? jne operr ;error if so get2a: call upcase ;upcase char in al stosb ;store the non-blank character lodsb ;get next character cmp al,32 je get1 ;loop back around for blank cmp al,9 je get1 ;loop back around for tab cmp al,13 je gotit ;terminate for <cr> jmp short get2a ;keep adding characters to filename ;create the specified file gotit: mov al,0 stosb ;terminate ASCIIZ pathname mov dx,offset filnm xor cx,cx ;normal attribute mov ah,3CH int 21H ;DOS CREAT jae store mov dx,offset badfil ;bad file name jmp errmsg ;store the interrupt vector table store: mov bx,ax ;keep file handle in bx push ds ;save ds mov cx,400H ;1024 bytes to store xor ax,ax mov ds,ax ;segment 0 assume ds:nothing mov dx,ax ;offset 0 mov ah,40H int 21H ;write block to file pop ds ;get ds back assume ds:cseg jae egasav ;ok, continue mov dx,offset nowrit ;write error jmp errmsg ;store the EGA save pointer egasav: push ds ;save ds mov cx,0008H ;8 bytes to store mov ax,0040H mov ds,ax ;BIOS data segment assume ds:nothing mov dx,00A8H ;EGA save table pointer mov ah,40H int 21H ;write block to file pop ds ;get ds back assume ds:cseg jae intcom ;ok, continue mov dx,offset nowrit ;write error jmp errmsg ;store the interapplications communications area intcom: push ds ;save ds mov cx,0010H ;16 bytes to store mov ax,0040H mov ds,ax ;BIOS data segment assume ds:nothing mov dx,00F0H ;interapplications communication area mov ah,40H int 21H ;write block to file pop ds ;get ds back assume ds:cseg jae parent ;ok, continue mov dx,offset nowrit ;write error jmp errmsg ;store the parent's psp parent: mov cx,2 ;2 bytes to store mov dx,offset parpsp ;point to parent's psp mov ah,40H int 21H ;write block to file jae ems ;ok, continue mov dx,offset nowrit ;write error jmp errmsg ;determine whether EMS is present ems: push bx ;temporarily store the file handle xor bx,bx ;zero the EMS handle count in case EMS not present mov dx,offset emsnm mov ax,3D00H int 21H jb sthand ;EMS driver not installed ;EMS present, close the open "handle" first mov bx,ax ;EMS handle into bx mov ah,3EH int 21H ;close handle ;get the current EMS page map mov ah,4DH mov di,offset emsmap ;es=cs already xor bx,bx ;required by some versions of EMM (bug workaround) cld ;required by some versions of EMM int 67H or ah,ah jz sthand ;result ok xor bx,bx ;error, return zero EMS handles ;store the number of active handles sthand: mov emscnt,bx ;count of active handles ;write the handle table to disk shl bx,1 shl bx,1 ;4 bytes per handle inc bx inc bx ;2 more bytes for the handle count mov cx,bx ;number of bytes to write pop bx ;get file handle back mov dx,offset emscnt ;what we're writing mov ah,40H int 21H ;write out the table jae stomcb ;ok,continue mov dx,offset nowrit ;error while writing jmp errmsg ;write the allocated mcb chain stomcb:push bx ;save file handle mov ax,5802H int 21H ;get UMB link status jnc linkok mov al,0 linkok:xor ah,ah push ax ;save link status mov ax,5803H mov bx,1 ;open up high memory int 21H mov ah,52H ;get first mcb segment int 21H mov ax,es:[bx-2] ;ax=first mcb push cs pop es ;es=cs mov di,emscnt ;get starting address of mcbmap shl di,1 shl di,1 add di,offset emsmap mov si,di ;cs:[si] -> mcbcnt add di,2 ;cs:[di] -> mcbmap xor cx,cx ;cx will count mcbs cld push ds mcbnext: stosw ;store mcb segment held by ax mov ds,ax ;ds:[0] points to mcb mov ax,ds:[1] ;get mcb owner stosw ;store it inc cx ;increment count cmp byte ptr ds:[0],'Z' ;end of mcb chain? je mcbdone mov ax,ds ;restore ax to mcb segment inc ax ;skip over mcb itself add ax,ds:[3] ;add length of memory block jmp mcbnext mcbdone: pop ds mov ax,5803H pop bx ;restore high memory link int 21H mov [si],cx ;store number of mcbs sub di,si ;di=number of bytes in mcb group table mov cx,di ;count of bytes in cx mov dx,si ;what we're writing (mcbcnt+mcbmap) pop bx ;get file handle back mov ah,40H int 21H ;write out the table jae closfl ;ok,continue mov dx,offset nowrit ;error while writing jmp errmsg ;close up the table file closfl:mov ah,3EH int 21H ;close handle jae idstr ;ok, continue mov dx,offset badcls ;error while closing file jmp errmsg ;put a standard ID string into the PSP for RELEASE to check idstr: mov si,offset id mov di,60H ;unused area of the PSP mov cx,idlen ;characters in ID string cld rep movsb ;copy string ;copy the filename into the command tail mov si,offset filnm mov di,offset cmdlin xor cx,cx nxtf: lodsb or al,al jz donf inc cx stosb jmp nxtf donf: mov cmdlen,cl ;print message and TSR gores: cmp quiet,0 ;check quiet flag jnz gores1 mov dx,offset didit mov ah,9 int 21H ;write success message including filename mov dx,offset crlf ;newline mov ah,9 int 21H gores1:xor dx,dx ;get number of paragraphs to keep mov dl,cmdlen ;length of command line add dx,0090H ;rest of PSP plus paragraph margin mov cl,4 shr dx,cl ;convert to paragraphs mov ax,3100H int 21H ;terminate but stay resident ;error output - show syntax line ;dx has offset of error message errmsg:mov ah,9 int 21H error: mov dx,offset syntax mov ah,9 int 21H mov ax,4C01H int 21H fmark endp upcase proc near cmp al,'a' jb noup cmp al,'z' ja noup and al,0DFH ;uppercase noup: ret upcase endp emsnm db 'EMMXXXX0',0 ;file name for testing EMS presence id db 'FM3.1 TSR' ;id string for RELEASE check idlen equ $-id ;messages badfil db 13,10,'Could not open file for writing',36 nowrit db 13,10,'Error while writing',36 badcls db 13,10,'Error closing table file',36 badopt db 13,10,'Bad command line option',36 syntax db 13,10,'Syntax: FMARK [/Q] [d:][path]filename' crlf db 13,10,36 didit db 'FMARK 3.1, Copyright 1991 TurboPower Software',13,10 didit2 db 'Marked current memory position in ' ;data storage area filnm db 50H dup (36) ;mark file name quiet db 0 ;quiet flag emscnt dw 0 ;holds number of active pages in map that follows emsmap = $ ;EMS page map (up to 1024 bytes) mcbcnt = emsmap+400H ;number of allocated mcbs mcbmap = mcbcnt+2 ;MCB map (up to 1024 bytes) Cseg ends end ComEntry