Power-Programmierung

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

/ Power-Programmierung / CD1.mdf / assemblr / library / sampler0 / tsrpark.asm < prev next >

Wrap

Assembly Source File | 1988-07-18 | 20.9 KB | 485 lines

PAGE 60,120 TITLE TSRPARK.ASM -- TesSeRact Demo program to park disk drive heads ;---------------------------------------------------------------------------- SUBTTL Originally TESSPARK.ASM : TesSeRact Revision Level 1 ;----------------------------------------------------------------------------- ; TesSeRact(tm) -- A Library of Routines for Creating Ram-Resident (TSR) ; programs for the IBM PC and compatible Personal ; Computers. ; ;The software, documentation and source code are: ; ; Copyright (C) 1986, 1987, 1988 Tesseract Development Team ; All Rights Reserved ; ; c/o Chip Rabinowitz ; Innovative Data Concepts ; 2084 Woodlawn Avenue ; Glenside, PA 19038 ; 1-215-884-3373 ; ;----------------------------------------------------------------------------- ; This product supports the TesSeRact Standard for Ram-Resident Program ; Communication. For information about TesSeRact, contact the TesSeRact ; Development Team at: ; Compuserve: 70731,20 ; MCIMAIL: 315-5415 ; This MCIMAIL Account has been provided to the TesSeRact Development ; Team by Borland International, Inc. The TesSeRact Development Team ; is in no way associated with Borland International, Inc. ;----------------------------------------------------------------------------- ; ; BASED on code originally provided by Jim Mischel ; ; ORIGINAL COPYRIGHT NOTICE: ; ;;;; AUTOPARK.ASM - program to automatically park the disk drive heads ;;;; at specified time intervals. ;;;; ;;;; Copyright (c) 1988, Jim Mischel ;;;; ;;;; This program has been assembled using MASM 5.0. Changes may be required ;;;; for use with earlier versions. ;;;; ;;;;; TSRPARK.ASM - Rick Housh ;;;;; ;;;;; TSRPARK.ASM - Modifications to TESSPARK.ASM to allow variable timing ;;;;; intervals from 1 to 9 minutes for autopark with use of numerical ;;;;; parameter on command line, to support manual parking with use ;;;;; of hotkey, with popup when on DOS command line, detection of ;;;;; park failure on installation, and communication with the resident ;;;;; program to allow dynamically changing the elapsed time between ;;;;; automatic parks. Assembled using MASM 5.1. ;;;;; ;;;;; Everything is self-explanatory, except perhaps how to reset the ;;;;; timer when resident. Just enter ' TSRPARK # ', where # is any number ;;;;; of minutes between 1 and 9, and the new value will be inserted in the ;;;;; resident portion of the program. A message will confirm the change ;;;;; and even the MAPMEM display of residents will show the new value. ;;;;; Entering ' TSRPARK ' with no parameter will yield a confirming message ;;;;; if TSRPARK is resident, and an instructional message if it has not ;;;;; yet been installed. When the hotkey is pressed from the DOS prompt ;;;;; a message is displayed, in addition to the TESSBEEP sound. Inside ;;;;; a program, the sound will occur, but there will be no message. ;;;;; ;;;;; I have changed the "mysterious" headparking code somewhat, and tried ;;;;; to expand the comments to show how it really works. It's not that ;;;;; complicated, and does NOT care whether the computer is an AT or not, ;;;;; contrary to the comments in the original TESSPARK. I have also found ;;;;; an undocumented and useful function. Tch, tch. TSRCHECKRESIDENT ;;;;; returns the segment of the resident program in the es register if ;;;;; it has found the program installed in memory. The documentation ;;;;; only mentions a result returned in the ax register. I found this ;;;;; very useful, and have implemented in TSRPARK. ;;;;; ;;;;; TSRPARK Modifications of TESSPARK, Rick Housh, CIS 72466,212 - 7/18/1988 ;;;;; ;;;;; ;;;;; To assemble this TesSeRact version: ;;;;; ;;;;; MASM TSRPARK; ;;;;; LINK TESS_ASM + TESS_BP + TSRPARK + TESS_END,TSRPARK; ;;;;; EXE2BIN TSRPARK.EXE TSRPARK.COM ;;;;; .model small .code ; ; Ticks2wait is # of timer ticks to wait between the last disk access ; and parking the disk. There are approximately 18.2 ticks per second. ; ; Maximum possible ticks2wait is 65536 ticks, very close to 1 hour. ; Limit with this configuration is 9828 (9 minutes). ; ticks_min equ 1092 ;Number of timer ticks in 1 minute tinkle equ 1 ;Sound TESSBEEP if set ;set tinkle to 0 ;for no sound tick_count dw ? ;Current count ticks2wait dw ? ;Ticks to wait: 1092 = 1 minute ; ; The parkit routine attempts to park all hard disks. ; Returns with carry set if park was unsuccessful. ; parkit proc near mov si,0080h ;Hard drive id nos. start at 80h pk0: mov ah,08h ;Function gets drive parms. mov dx,si ;DX is drive ID No. int 13h ;Get drive parms, dl = No. of drives jc pkdone ;Error if carry, jump out xor dh,dh ;Don't need max head-side number mov di,dx ;Save drive count from dl to di cmp di,01h ;Is there at least one? jb pkdone ;If no hard drives, exit add di,7fh ;Convert drive no. to drive id no. inc ch ;CH is now tracks + 1 jnb pk1 add cl,40h ;CL is sectors pk1: mov ax,0c01h ;seek to cylinder mov dx,si ;DX is drive ID int 13h ;this does the seek inc si ;bump drive count cmp si,di ;Was it the last? No? Then jbe pk0 ;loop until all drives are parked pkdone: if tinkle EXTRN TESSBEEP:NEAR call TESSBEEP endif ret parkit endp ; ; TesSeRact Entry Points ; ; PUBLIC TSRUSERPROC, TSRTIMERPROC, TSRBACKCHECK, TSRMAIN, TSRBACKPROC PUBLIC TSRCLEANUP ; ; TSUSERPROC is a NULL procedure. We don't service it in this program. ; ; TSRUSERPROC: ;Return, does nothing ret int13ptr dw 0 ;Saved location of INT 13 flag ; from TesSeRact data area do_park db 0 ;Flag set to 1 when wish to park TSRminutes db " " ;Holds minutes between parks in ASCII park_msg label near ;Message to display when popped up ; AND at DOS prompt db 13,10,10 db 'TSRPark has manually parked the hard disk(s)',13,10 db 'as requested. Will automatically repark in ',13,10 db ' minute(s) after next disk access. ',13 msg_len dw $ - park_msg reset_it proc near mov do_park,0 ;Say not to park mov bx,[int13ptr] ;Get INT13 flag mov byte ptr [bx],0 ;and turn off because ;parking isn't using. mov ax,[ticks2wait] ;Use our timer to mov [tick_count],ax ;restart wait. ret reset_it endp TSRBACKCHECK proc near assume cs:_TEXT, ds:_TEXT mov al,do_park ;Put flag in ax xor ah,ah ;if non-zero, call TSRBACKPROC ret TSRBACKCHECK endp TSRBACKPROC proc near assume cs:_TEXT, ds:_TEXT call parkit ;Attempt to park it call reset_it ;and reset everything ret TSRBACKPROC endp TSRMAIN proc near assume cs:_TEXT, ds:_TEXT ;On hotkey call parkit ;Park disks call reset_it ;and reset flags and timer mov ax,5453h ;TesSerAct function mov bx,16h ;to get InDos state mov cx,ParkNum ;This ident # int 2fh ;Call function 16h cmp bx,1 ;Check if at DOS prompt jnz mainX ;and end if not mov ah,08h ;First read attribute mov bh,0 ;at current position int 10h ;then or ah,08h ;turn on intensity bit mov bl,ah ;and save it in bl mov si,offset park_msg ;Point to message mov cx,[msg_len] ;and its length putmsg: lodsb ;Load ASCII character cmp al,20h ;Is it lower than space? jb no_att ;then don't paint attribute push ax ;Save character mov ah,09h ;Paint an attribute mov al,20h ;with a space sub bh,bh ;on page zero push cx ;Save count mov cx,1 ;With this function int 10h ;cursor doesn't move pop cx ;Restore character count pop ax ;and ASCII character no_att: mov ah,0eh ;Set to print TTY sub bh,bh ;at page 0 int 10h ;and print characters loop putmsg ;until end of string mov si,offset TSRminutes ;Display minutes lodsb ;Load a single character int 10h ;and display it mov al,10 ;Now a line feed int 10h ;with TTY display mov ax,5453h ;TesSeRact function to mov cx,ParkNum ;Stuff a CR into mov bx,21h ;Keyboard Buffer mov di,Offset park_msg ;Point to a 13 mov si,1 ;(one character). mov dx,0101h ;ASCII - medium speed int 2fh ;call TesSerAct ;DOS prompt should be back. ;Can't correct error so no test. mainX: ret TSRMAIN endp TSRCLEANUP proc near assume cs:_TEXT, ds:_TEXT or ax,ax jnz clean_term clean_init: ; ; Please note that the data area returned by this function is also available ; as the TESS_GLOBALS public symbol. ; mov cx,ParkNum ;This program's ID num. mov bx,4h ;in data area mov ax,5453h ;Ready for multiplex int 2fh ;Call it, then point bx to add bx,3h ;offset of TesSerAct flag "Was13" mov int13ptr,bx ;and put in local pointer ;Since program owns segment ;no need to worry about it! clean_term: ;Nothing needed to terminate! clean_out: ret TSRCLEANUP endp TSRTIMERPROC proc near assume cs:_TEXT, ds:_TEXT mov bx,[int13ptr] ;Check to see if cmp byte ptr [bx],1 ;disk has been accessed jne no_park ;since last parked no_disk: mov [do_park],0 ;If no access, set park flag off dec [tick_count] ;decrement the timer jnz no_park ;and exit mov [do_park],1 ;else set park flag on clear_it: mov ax,[ticks2wait] ;Use our own parameter mov [tick_count],ax ;to restart wait mov byte ptr [bx],0 ;and clear flag no_park: ret TSRTIMERPROC endp ; If AUTOPARK already installed, display error message and exit. ; If not installed, attempt to park the disks and install the resident ; portion. ; EXTRN TSDOINIT:NEAR EXTRN TSCHECKRESIDENT:near EXTRN TSSETSTACK:near ParkNum dw 0 ;This ID number ParkName db 'TSRPARK ',0 ;This Identification string public topstack db 48 dup('Back_Gnd') ;BackProcStack - 384 bytes db 48 dup('TSR_Main') ;MainProcStack - 384 bytes topstack equ this byte PUBLIC TESSINITSTART ;required entry point TESSINITSTART: assume cs:_TEXT, ds:_TEXT jmp start_init get_cmd_line: mov si,80h ;Start of command line lodsb ;Command length cmp al,0 ;If nothing on command line jz cmd_err ;exit get_1: lodsb ;else get next character cmp al,13 ;A CR? Then end of line jz cmd_err ;with nothing legal. Exit. cmp al,"1" - 1 ;Is it < ASCII "1"? ja chk_9 ;No? Check for > "9" jmp short get_1 ;Yes? get another. chk_9: cmp al,"9" + 1 ;Above a nine? jb cmd_ok ;No? OK - between "1" and "9" jmp short get_1 ;Yes? Get another cmd_ok: mov [TSRminutes],al ;Is between 1 and 9, so ;save in TSR ASCII variable mov [minutes],al ;And in non-resident part too. and ax,0Fh ;Convert ASCII to numerical mov cx, ticks_min mul cx ;Multiply by ticks_min. (1092) mov di,offset tick_count stosw ;and initialize count stosw ;and wait timer value ; ;The next few bytes just stuff "# minute(s)." into the command line ;which will be carried along with the resident program, for MAPMEM ;or its ilk to see our wait time. ; mov si,offset signon ;Signon starts with a CR mov di,80h ;which is the value we need. movsb ;Move 13 to the length byte at 80h mov si,offset minutes ;Point source at '# minute(s).' mov di,82h ;destination at command line mov cx,13 ;and move 13 bytes stuff_loop: ;looping here movsb loop stuff_loop clc ;then, after clearing carry flag ret ;exit subroutine cmd_err: stc ;Set carry flag ret ;and return ; ; Although I can't find it in the version 1.00 TesSerAct documentation, ; TSRCHECKRESIDENT, if it finds the code resident, returns not only ; 0ffffh in ax but the segment of the resident version in the es register. ; This makes it unnecessasry to call multiplex function 4 to find ; its location. I will use that undocumented feature here, but ; we should have been told. - Rick Housh ; start_init: mov si,offset ParkName ;Check to see if mov di,offset ParkNum ;resident call TSCHECKRESIDENT ;Returns segment of resident ;program in es if installed or ax,ax ;If already installed jnz is_tsr ;then reset or display info msg jmp short do_install ;else install it is_tsr: call get_cmd_line ;If NOT valid command line jc just_checking ;just display status and exit mov al,[TSRMinutes] ;else get new value in ASCII mov es:[TSRMinutes],al ;and put it in resident code mov es:[82h],al ;and in resident cmd line for mapmem mov ax,[ticks2wait] ;Same with ticks to wait mov es:[ticks2wait],ax mov dx,offset tsr_reset ;Tell em have changed it mov ah,09h int 21h jmp short display_time ;and display new value just_checking: mov dx,offset already_installed ;Already installed mov ah,09h ;and no change, requested so int 21h ;display status message and exit display_time: mov al,es:[TSRMinutes] ;Get minutes from resident code mov [minutes],al ;move resident value here mov dx,offset auto_time ;and display int 21h ;current TSR minute value term_it: mov ax,4c01h ;Set error code to 1 int 21h ;and quit do_install: ;"Take care of stack early" mov si,offset topstack ;Because using both, mov di,si ;divide stack area dec di ;into areas for dec di ;PopUpStack and sub si,384 ;BackGroundStack call TSSETSTACK ;Two 384 byte stacks call get_cmd_line ;Check for valid command line jc cmdline_err ;If invalid display message and exit call parkit ;else attempt to park heads jnc good_park ;If able to park say so mov dx,offset bad_park ;else print problem mov ah,09 int 21h jmp term_it ;and quit with error code ; ; display installed message and exit ; good_park: mov dx,offset installed mov ah,09 ;Show that it's installed int 21h mov dx,offset miwa_miwa_parwa_stella mov ah,09 int 21h ;and that it tinkles mov dx,offset TESSINITSTART mov bx,1070h ;No pop graphics, timer proc, ; background and main procs only mov ax,0A19h ;Alt-LeftShift-P ;will be hotkey for manual park. call TSDOINIT mov ax,4c00h ;Exit with no error code int 21h cmdline_err: mov dx,offset signon mov ah,09 int 21h ;Display the signon message jmp term_it ;and quit with error code ; ;Non-resident data area ; ;Following are the message strings for the transient part of the program ;They do not go resident and are not available to the TSR portion ; signon label byte db 13,10,'TESSPARK.COM Version 1.0, Copyright (c) ' db '1988, TesSeRact(tm) Development Team',13,10 db 'All Rights Reserved',13,10,10 db 'Based on Original Code provided by Jim Mischel:',13,10 db ' AUTOPARK 1.0 Copyright (c) 1988, Jim Mischel',13,10,10 db 'TSRPARK additions provided by Rick Housh:',13,10 db ' Hotkey instant park, variable auto park intervals,',13,10 db ' popup message (at DOS prompt), detection of park',13,10 db ' failure on installation, and change of timer while',13,10 db ' resident without removal and reinstallation.' db 13,10,10 db 7,'Command line error. TSRPark NOT loaded.',7,13,10,10 db 'Syntax: TSRPARK # (Where # is 1 - 9 [minutes] between parks)' db 13,10,'$' already_installed label byte db 13,10,'TSRPARK was already resident',13,10,7,'$' tsr_reset label byte db 13,10,'TSRPARK was resident and has been reset.',13,10,7,'$' installed label byte db 13,10,'TSRPARK installed. ' auto_time label byte db 'Auto park every ' minutes db ' ' db ' minute(s).',13,10 db 'Alt + Left Shift + "P" parks hard disks instantly',13,10,'$' miwa_miwa_parwa_stella label byte ;Or "miva" and "parva" if you prefer db 'A "tinkle" will sound when heads are parked',13,10,'$' bad_park label byte ;BAD PROBLEM, LOTS OF BELLS db 13,10,7,'Hard disk error. Unable to park hard disk.' db 13,10,7,'Terminating.',13,10,7,'$' _TEXT ends END