SWAGOLX.EXE (c) 1993 GDSOFT ALL RIGHTS RESERVED 00006 DESQVIEW ROUTINES 1 05-28-9313:37ALL SWAG SUPPORT TEAM DESQVIEW.PAS IMPORT 39 tΦ% { Does anyone know the routine For making a Program DV aware, and if itπ finds it, can you get it to make calls to it instead of Dos?π}πHere is a desqview Unit I have used in the past.ππUnit DESQVIEW ;ππ{$O+,F+}ππInterfaceππUses Dos ;ππVarπ DV_ACTIVE : Boolean ; { True if running under DESQview }π Win_ACTIVE : Boolean ; { True if Windows 3.x Enhanced Mode }π DV_VERSION : Word ; { desqVIEW version number }π DV_VSEG : Word ;π DV_VMODE : Byte Absolute $0040:$0049 ;π DV_VWIDTH : Byte ;π DV_VROWS : Byte ;π DV_VofS : Word ;πππProcedure DV_RQM ; { Give up the rest of our timeslice }πProcedure DV_begin_CRITICAL ; { Turn Task Switching off. }πProcedure DV_end_CRITICAL ; { Turn switching back on. }πProcedure DV_VIDEO_BUFFER ; { Set Global Video Variables }πFunction DV_Window_NUMBER : Byte ; { Returns Window Number }πProcedure DV_COMMON_MEMorY(Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_CONV_MEMorY (Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_EMS_MEMorY (Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_FASTWrite (X,Y: Word; STR: String; FG,BG: Word) ;ππImplementationππVarπ REG : Registers ;ππProcedure DV_RQM ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, 1000hπ int 15hπ end ;π end else beginπ if Win_ACTIVE then beginπ Asmπ mov ax, 1680hπ int 2fhπ end ;π end ;π end ;πend { dv_rqm };ππProcedure DV_begin_CRITICAL ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $101bπ int 15hπ end ;π end else beginπ if Win_ACTIVE then beginπ Asmπ mov ax, 1681hπ int 2fhπ end ;π end ;π end ;πend ; { dv_begin_critical }ππProcedure DV_end_CRITICAL ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $101cπ int 15hπ end ;π end else beginπ if Win_ACTIVE then beginπ Asmπ mov ax, $1682π int 2fhπ end ;π end ;π end ;πend ; { dv_end_critical }ππProcedure DV_VIDEO_BUFFER ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $2b02π mov bx, $4445 ; { DE }π mov dx, $5351 ; { SQ }π int 21hπ mov DV_VSEG, dxπ mov DV_VWIDTH, blπ mov DV_VROWS, bhπ mov DV_VofS, 0π end ;π end else beginπ if (DV_VMODE = 7) then DV_VSEG := $b000 else DV_VSEG := $b800 ;π DV_VWIDTH := memw[$0040:$004a] ;π DV_VROWS := 25 ;π DV_VofS := memw[$0040:$004e] ;π end ;πend ; { dv_video_buffer }ππFunction DV_Window_NUMBER ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $de07π int 15hπ mov @RESULT, alπ end ;π end else beginπ DV_Window_NUMBER := 0 ;π end ;πend ;ππProcedure DV_COMMON_MEMorY ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $de04π int 15hπ les di, AVAILπ mov es:[di], bxπ les di, LARGESTπ mov es:[di], cxπ les di, toTALπ mov es:[di], dxπ end ;π end else beginπ AVAIL := 0 ;π LARGEST := 0 ;π toTAL := 0 ;π end ;πend ;ππProcedure DV_CONV_MEMorY ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $de05π int 15hπ les di, AVAILπ mov es:[di], bxπ les di, LARGESTπ mov es:[di], cxπ les di, toTALπ mov es:[di], dxπ end ;π end else beginπ AVAIL := 0 ;π LARGEST := 0 ;π toTAL := 0 ;π end ;πend ;ππProcedure DV_EMS_MEMorY ;ππbeginπ if DV_ACTIVE then beginπ Asmπ mov ax, $de06π int 15hπ les di, AVAILπ mov es:[di], bxπ les di, LARGESTπ mov es:[di], cxπ les di, toTALπ mov es:[di], dxπ end ;π end else beginπ AVAIL := 0 ;π LARGEST := 0 ;π toTAL := 0 ;π end ;πend ;ππProcedure DV_FASTWrite ;ππVarπ I : Word ;ππbeginπ X := DV_VofS + ((Y-1) * DV_VWIDTH + (X-1)) * 2 ;π For I := 1 to length(STR) do beginπ MEMW[DV_VSEG:X] := (((BG shl 4) + FG) shl 8) + ord(STR[I]) ;π X := X + 2 ;π end ;πend ;ππbegin { main }π REG.AX := $2b01 ;π REG.CX := $4445 ; { DE }π REG.DX := $5351 ; { SQ }π intr($21,REG) ;ππ Win_ACTIVE := False ;π DV_ACTIVE := (REG.AL <> $ff) ;ππ DV_VERSION := 0 ;π if DV_ACTIVE then beginπ DV_VERSION := REG.BX ;π REG.AX := $de0b ;π REG.BX := $0200 ; { Minimum of Desqview 2.00 }π intr($15,REG) ;π end else beginπ REG.AX := $1600 ;π intr($2f,REG) ;π Case REG.AL ofπ $00 : ; { An enhanced Windows API is not Running }π $80 : ; { An enhanced Windows API is not Running }π $01 : ; { Windows / 386 Version 2.x }π $ff : ; { Windows / 386 Version 2.x }π else beginπ Win_ACTIVE := True ;π DV_VERSION := swap(REG.AX) ;π end ;π end ;π end ;ππ DV_VIDEO_BUFFER ;πend. { main }π 2 05-28-9313:37ALL SWAG SUPPORT TEAM DV-VIDEO.PAS IMPORT 7 tw\ {π> Has anyone done any work With DV's virtual screen? Someplace Iπ> used to have the address For it, but I seem to have lost it. Doesπ> anybody know what it is?ππ> What I'm trying to do is bypass TJT's direct screen Writes byπ> replacing the BaseOfScreen Pointer With the one For DV's virtualπ> screen. if I can't do that then I'm going to have to make anotherπ> attempt at rewriting the assembly level screen routines.π}ππFunction DV_Video_Buffer;πbeginπ Reg.AH := $0F;π INTR($10, Reg);π if Reg.AL = 7 thenπ Reg.ES := $B000π elseπ Reg.ES := $B800;π if DV_Loaded thenπ beginπ Reg.DI := 0;π Reg.AX := $FE00;π INTR($10, Reg);π end;π DV_Video_Buffer := Reg.ES;πend;π 3 11-26-9318:18ALL FRED COHEN Time SLICES for OS/2 & DVIMPORT 23 t└ª {πFrom: FRED COHENπ Time Slices...ππlooking for routines for giving up time slices toπvarious multi-taskers, mainly DV and OS/2. Please eitherπpost them if they are small enough, or tell me where I canππYou will need turbo pascal 6.0+ for this to compile. It is easy toπconvert over to regular pascal though.π}ππConstππ MDOS = 0; { DOS }π OS2 = 1; { OS/2 is installed }π WIN = 2; { Windoze }π DV = 3; { DesqView }ππVarππ Ops : Byte; { Operating System OS/2/DOS/WIN/DV}πππPROCEDURE giveslice; Assembler; {Gives up remainder of clock cycleπ under dos, windows, os/2 }π asmπ CMP ops,MDos { Compare to DOS }π JE @MSDOS { Jump if = }π CMP ops,Dv { Compare to Desqview }π JE @DESQVIEW { Jump if = }π CMP ops, Win { Compare to Windows }π JE @WINOS2 { Jump if = }π CMP ops, OS2 { Compart OS/2 }π JE @WINOS2 { Jump if = }π JMP @NONE { None found, Jump to End }πππ @MSDOS:π INT 28h { Interupt 28h }π JMP @NONE { Jump to the end }ππ @DESQVIEW:π MOV ax,1000h { AX = 1000h }π INT 15h { Call Interupt 15h }π JMP @NONE { Jump to the end }ππ @WINOS2:π MOV AX, 1680h { AX = 1680h }π INT 2Fh { Call Interupt 2Fh for Win-OS/2 TimeSlice }ππ @NONE:ππend; {GiveSlice}ππ{***********}ππPROCEDURE checkos; Assembler;π{ Currently Supports DesqView, Microsoft Windows and IBM's OS/2 }ππasmπ mov ops, MDos { Default DOS }π mov ah, 30h { AH = 30h }π int 21h { dos version }π cmp al, 14hπ jae @IBMOS2 { Jump if >= to 20 }πππ mov ax,2B01hπ mov cx,4445hπ mov dx,5351hπ int 21h { Desqview Installed? }π cmp al, 255π jne @DesqView { Jump if AL <> 255 }ππ mov ax,160Ahπ int 2Fh { Windows Install?}π cmp ax, 0hπ je @Windows { If = Jump to Windows }π jmp @Finish { Nothing found, go to the end }ππ@IBMOS2:π mov Ops, Os2 { Set OS Value }π jmp @Finishππ@DesqView:π mov ops, Dv { Set OS Value }π jmp @Finishππ@Windows:π mov ops, win { Set OS Value }π jmp @Finishππ@FINISH:πend; { checkos }ππ{*********** MORE ********}ππprocedure GiveTimeSlice; ASSEMBLER;πasm { GiveTimeSlice }π cmp MultiTasker, DesqViewπ je @DVwaitπ cmp MultiTasker, Windowsπ je @WinOS2waitπ cmp MultiTasker, OS2π je @WinOS2waitπ cmp MultiTasker, NetWareπ je @Netwarewaitπ cmp MultiTasker, DoubleDOSπ je @DoubleDOSwaitππ@Doswait:π int $28π jmp @WaitDoneππ@DVwait:π mov AX, $1000π int $15π jmp @WaitDoneππ@DoubleDOSwait:π mov AX, $EE01π int $21π jmp @WaitDoneππ@WinOS2wait:π mov AX, $1680π int $2Fπ jmp @WaitDoneππ@Netwarewait:π mov BX, $000Aπ int $7Aππ@WaitDone:πend; { TimeSlice }ππ 4 02-09-9411:50ALL JOEL BERGEN DESQVIEW Support Unit IMPORT 17 t (* ------------------------------------------------------------ *)ππ{ This unit adds support for the DESQview" multi-tasking enviromentπ By Joel Bergen last revised: 9/17/90 }ππ{$A+,B-,D+,E+,F-,I+,L+,N-,O+,R+,S+,V+}π{$M 1024,0,0}ππUNIT DESQview;ππINTERFACEππUSES DOS;ππVARπ Dv_Loaded : BOOLEAN; {True if running under DESQview }π Dv_Version : WORD; {DESQview" version number }π {Returns "0" if DESQview" is not loaded. }π {Use: }π {WRITELN(Hi(Dv_Version)+Lo(Dv_Version)/100:4:2); }π {to display the version of "Desqview" correctly. }πππFUNCTION Dv_There : BOOLEAN; {True if Desqview loaded. Sets Dv_Version}πPROCEDURE Dv_Pause; {Give up the rest of our timeslice}πPROCEDURE Dv_Begin_Critical; {Turn switching off for time critical ops}πPROCEDURE Dv_End_Critical; {Turn switching back on}πFUNCTION Dv_Video_Buffer : WORD; {returns address of video buffer}ππIMPLEMENTATIONππVARπ Reg : REGISTERS;ππFUNCTION Dv_There;πBEGINπ Reg.CX:=$4445;π Reg.DX:=$5351;π Reg.AX:=$2B01;π INTR($21,Reg);π Dv_Loaded:=(Reg.AL<>$0FF);π IF Dv_Loaded THEN Dv_Version:=Reg.BX ELSE Dv_Version:=0;π Dv_There:=Dv_Loaded;πEND;ππPROCEDURE Dv_Pause;πBEGINπ IF DV_Loaded THEN BEGINπ Reg.AX:=$1000;π INTR($15,Reg);π END;πEND;ππPROCEDURE Dv_Begin_Critical;πBEGINπ IF DV_Loaded THEN BEGINπ Reg.AX:=$101B;π INTR($15,Reg);π END;πEND;ππPROCEDURE Dv_End_Critical;πBEGINπ IF DV_Loaded THEN BEGINπ Reg.AX:=$101C;π INTR($15,Reg);π END;πEND;ππFUNCTION DV_Video_Buffer;πBEGINπ Reg.AH:=$0F;π INTR($10,Reg);π IF Reg.AL=7 THEN Reg.ES:=$B000 ELSE Reg.ES:=$B800;π IF DV_Loaded THEN BEGINπ Reg.DI:=0;π Reg.AX:=$FE00;π INTR($10,Reg);π END;π DV_Video_Buffer:=Reg.ES;πEND;ππBEGIN { Checks to see if desqview is loaded at startup. }π Dv_Loaded:=Dv_There;πEND.ππ 5 05-25-9408:11ALL MIKE DICKSON DESQVIEW API Routines SWAG9405 118 t {π********************************************************************π* *π* DESQview API routines *π* for Turbo Pascal 6.0 *π* by Jonathan L. Zarate *π* Released to the Public Domain *π* *π********************************************************************π}π{π ** Please refer to Ralf Brown's Interrupt Listπ ** for additional information.π}ππUnit DV;ππInterfaceππTypeπ Msg_Write2 = recordπ len : longint;π str : pointer;π end;π Msg_Write2_NewWin = recordπ len : longint;π str : pointer;π handle : pointer;π end;ππconstπ{ Stream Types }π WinStream = $00;π QueryStream = $01;π ManagerStream = $10;ππ{ Manager Streams }π MStream_MoveHoriz = $00; { horizontal movement }π MStream_MoveVert = $01; { vertical movement }π MStream_ChangeWidth = $02; { width change }π MStream_ChangeHeight = $03; { height change }π MStream_ScrollHoriz = $04; { horizontal scroll }π MStream_ScrollVert = $05; { vertical scroll }π MStream_CloseWindow = $06; { close window option }π MStream_HideWindow = $07; { hide window option }π MStream_FreezeApp = $08; { freeze window option }π MStream_ScissorsMenu = $0E; { scissors menu }π MStream_MainMenu = $10; { main DESQview menu }π MStream_SwitchWinMenu= $11; { switch windows menu }π MStream_OpenWinMenu = $12; { open windows menu }π MStream_QuitMenu = $13; { quit menu }ππ{ Window/Query streams }π WStream_CursorRow = $A0; { Cursor row }π WStream_CursorColumn = $A1; { Cursor Column }π WStream_ScrollTopRow = $A2; { Top row of scrolling region }ππ{ DVError Constants }π DVErrorMouEither = 00; { use either mouse buttons to remove window }π DVErrorMouRight = 32; { use right mouse button to remove window }π DVErrorMouLeft = 64; { use left mouse button to remove window }π DVErrorBeep = 128; { beep on error }π{ ----------------------- }ππconstπ InDV : boolean = false; { In DESQview flag }π DV_Version : word = $0000; { DESQview version }ππvarπ DVArray : array[1..80] of byte; { stream array }ππfunction DVInit : pointer;πprocedure DVGetVersion;πfunction DVGetShadowSeg( VideoSeg : word ) : word;πprocedure DVPause;πprocedure DVBeginC;πprocedure DVEndC;πfunction DVAPPNum : word;πprocedure DVSendMsg( Handle : pointer; _bh, _bl : byte; size : word; var param);πprocedure DVStream( Handle : pointer; mode : byte; params : string );πfunction DVGetHandle( HandleType : byte ) : pointer;πprocedure DVSound( Handle : pointer; frequency, duration : word );πprocedure DVError( Handle : pointer; xsize, ysize : byte; msg : string; params:byte);πprocedure DVAPILevel( major, minor : byte );πprocedure DVWrite( Handle : pointer; s : string );πprocedure DVWriteln( Handle : pointer; s : string );πfunction DVNewWin( x, y : word ) : pointer;πprocedure DVFree( var Handle : pointer );πfunction DVTimer_New : pointer;πprocedure DVTimer_Start( Handle : pointer; Time : longint );πfunction DVTimer_Len( Handle : pointer ) : longint;π{ ---- Window Streams ---- }πprocedure DVClear( Handle : pointer );πprocedure DVRedraw( Handle : pointer );πprocedure DVResize( Handle : pointer; x, y : byte );πprocedure DVMove( Handle : pointer; x, y : shortint );πprocedure DVTitle( Handle : pointer; title : string );πprocedure DVMove2( Handle : pointer; x, y : shortint );πprocedure DVResize2( Handle : pointer; x, y : shortint );πprocedure DVSetAttr( Handle : pointer; color : byte );πprocedure DVFrameAttr( Handle : pointer; color : byte );πprocedure DVFrameOn( Handle : pointer; b : boolean );πprocedure DVWinUnHide( Handle : pointer );πprocedure DVWinHide( Handle : pointer );πprocedure DVGotoXY( Handle : pointer; x, y : byte );πprocedure DVSetVirtualWinSize( Handle : pointer; x, y : byte );π{ -- Manager Streams -- }πprocedure DVAllow( Handle : pointer; command : byte );πprocedure DVDisallow( Handle : pointer; command : byte );πprocedure DVForeOnly( Handle : pointer; b : boolean );πprocedure DVMinWinSize( Handle : pointer; x, y : byte );πprocedure DVMaxWinSize( Handle : pointer; x, y : byte );πprocedure DVForceForeground( Handle : pointer );πprocedure DVForceBackground( Handle : pointer );πprocedure DVTopProcess( Handle : pointer );πprocedure DVBottomProcess( Handle : pointer );π{ ---- Query Streams ---- }πprocedure DVQSize( Handle : pointer; var x, y : byte );πprocedure DVQPos( Handle : pointer; var x, y : shortint );πprocedure DVQVirtualWinSize( Handle : pointer; var x, y : byte );πfunction DVWhereX( Handle : pointer ) : shortint;πfunction DVWhereY( Handle : pointer ) : shortint;ππImplementationππfunction DVInit : pointer;πbeginπ { get DESQview version & get our window handle }π DVGetVersion;π if InDV then DVInit:=DVGetHandle(1);πend;ππprocedure DVGetVersion; assembler;πasmπ { get DESQview version/set InDV flag }π mov cx,'DE'π mov dx,'SQ'π mov ax,2b01hπ int 21hπ cmp al,0ffhπ je @GV1π mov DV_Version,bxπ mov InDV,Trueπ jmp @GV2π@GV1:π mov InDV,Falseπ@GV2:πend;ππfunction DVGetShadowSeg( VideoSeg : word ) : word; assembler;πasmπ { get task's shadow buffer & start shadowing }π mov ax,VideoSegπ mov es,axπ mov di,0π mov ah,0fehπ int 10hπ mov ax,esπ { di=offset ??don't know if used?? }πend;ππprocedure DVPause; assembler;πasmπ { give up CPU time }π mov ax,1000hπ int $15πend;ππprocedure DVBeginC; assembler;πasmπ { begin critical region }π mov ax,101bhπ int $15πend;ππprocedure DVEndC; assembler;πasmπ { end critical region }π mov ax,101chπ int $15πend;ππfunction DVAPPNum : word; assembler;πasmπ { get application's switch number }π mov ax,0de07hπ int 15hπend;ππprocedure DVSendMsg( Handle : pointer; _BH, _BL : byte;π size : word; var param ); assembler;πasmπ std { string goes backwards }π mov dx,sp { save sp }ππ mov cx,size { load size of param }π jcxz @SM2 { if zero then don't push anything }ππ mov bx,ds { save ds }ππ lds si,param { load address of param }π add si,cx { start from the top }π dec si { minus 2 }π dec si { ^^^^^^^ }π shr cx,1 { cx:=cx div 2 }π@SM1:π lodsw { load 1 word }π push ax { push it }π loop @SM1 { if cx > 0 loop }ππ mov ds,bx { restore ds }π@SM2:π les di,Handle { get handle }π mov ax,es { move es to ax for compare }π cmp ax,0 { if segment is 0 then }π je @SM3 { don't push handle }π push es { push segment }π push di { push offset }π@SM3:π mov ah,$12π mov bh,_bhπ mov bl,_blπ int $15 { call dv }ππ cld { string goes forward }π mov ax,sp { calculate the number of }π mov cx,dx { returned parameter(s) }π sub cx,ax { in stack }ππ jcxz @SMX { exit if none }π les di,param { load address of param }π add di,sizeπ shr cx,1 { cx:=cx div 2 }π@SM4:π pop axπ stoswπ loop @SM4π@SMX:πend;ππfunction DVGetHandle( HandleType : byte ) : pointer; assembler;πasmπ { return object handle }π mov ah,$12π mov bh,$00π mov bl,HandleTypeπ int $15π pop axπ pop dxπend;ππprocedure DVSound( Handle : pointer; frequency, duration : word ); assembler;πasmπ { generate a sound }π mov ax,$1019π mov bx,frequencyπ mov cx,duration { in 18.2 ticks/sec }π int $15πend;ππprocedure DVError( handle : pointer; xsize, ysize : byte; msg : string; params: byte);πassembler;πasmπ { pop-up an error box }π {π use DVERRORxxxxx for PARAMSπ example: DVError(Handle1, 80, 25, 'Don't Touch That!',π DVErrorMouEither+DVErrorBeep);π }π mov ch,xsizeπ mov cl,ysize;π mov bh,paramsπ les dx,Handleπ mov dx,esπ les di,msgπ mov bl,es:[di]π inc diπ mov ax,$101Fπ int $15πend;ππprocedure DVAPILevel( major, minor : byte ); assembler;πasmπ { define the minimum API revision level than the program requires }π mov bh,majorπ mov bl,minorπ mov ax,0de0bhπ int 15hπend;ππprocedure DVStream( handle : pointer; mode : byte; params : string );πvarπ Msg : Msg_Write2;πbeginπ { send a stream of opcode(s) }π DVArray[1]:=$1B;π DVArray[2]:=mode; { stream mode }π DVArray[3]:=length(params);π DVArray[4]:=00;π move(params[1],DVArray[5],length(params));π with Msg doπ beginπ Str:=@DVArray;π Len:=Length(params)+4;π end;π DVSendMsg(Handle, $05, ord((handle=nil)), sizeof(Msg), Msg);π { Meaning of "ord((handle=nil))" }π { If handle=nil then return 1 else return 0 }πend;ππprocedure DVWrite( Handle : pointer; s : string );πvarπ Msg : Msg_Write2;πbeginπ { write a string }π with Msg doπ beginπ str:=@s[1];π len:=length(s);π end;π DVSendMsg(Handle, $05, Ord((Handle=Nil)), Sizeof(Msg), Msg );πend;ππprocedure DVWriteln( Handle : pointer; s : string );πbeginπ DVWrite(Handle, s+#13#10 );πend;ππfunction DVNewWin( x, y : word ) : pointer;πvarπ Msg : Msg_Write2_NewWin;πbeginπ { allocate new window ( X and Y are the window's size & virtual size }π DVArray[1]:=$1B;π DVArray[2]:=$00;π DVArray[3]:=$04;π DVArray[4]:=$00;π DVArray[5]:=$E6;π DVArray[6]:=y; { Y-Size }π DVArray[7]:=x; { X-Size }π With Msg doπ beginπ Len:=$07;π Str:=@DVArray;π Handle:=Nil;π DVSendMsg( Nil, $05, $01, Sizeof(Msg)-4, Msg);π DVNewWin:=Handle;π end;πend;ππprocedure DVFree( var Handle : pointer );πbeginπ { free a handle (close a window/free a timer/etc..) }π DVSendMsg(Handle, $02, $00, $00, Handle );π Handle:=Nil;πend;ππfunction DVTimer_New : pointer;πvarπ Handle : pointer;πbeginπ { allocate a new timer }π DVSendMsg( Nil, $01, $0B, $00, Handle );π DVTimer_New:=Handle;πend;ππprocedure DVTimer_Start( Handle : pointer; Time : longint );πbeginπ { start a timer countdown (TIME is in 1/100 of a second) }π DVSendMsg(Handle, $0a, $00, sizeof(Time), Time);πend;ππfunction DVTimer_Len( Handle : pointer ) : longint;πvarπ Len : longint;πbeginπ { get current timer value (in 1/100 of a second) }π DVSendMsg(Handle, $09, $00, $00, Len);π DVTimer_Len:=Len;πend;ππ{ ---- Window Streams ---- }ππprocedure DVClear( Handle : pointer );πbeginπ { clear window }π DVStream(Handle, WinStream, chr($E3))πend;ππprocedure DVRedraw( Handle : pointer );πbeginπ { redraw window }π DVStream(Handle, WinStream, chr($E4))πend;ππprocedure DVResize( Handle : pointer; x, y : byte );πbeginπ { resize window }π DVStream(Handle, WinStream, chr($C3)+chr(y)+chr(x));πend;ππprocedure DVMove( Handle : pointer; x, y : shortint );πbeginπ { move the window }π DVStream(Handle, WinStream, chr($C2)+chr(y)+chr(x))πend;ππprocedure DVTitle( Handle : pointer; title : string );πbeginπ { change window title }π DVStream(Handle, WinStream, chr($EF)+title[0]+title)πend;ππprocedure DVMove2( Handle : pointer; x, y : shortint );πbeginπ { set window position relative to the current position }π { use negative (-1) values to move up/left }π DVStream(Handle, WinStream, chr($CA)+chr(y)+chr(x));πend;ππprocedure DVResize2( Handle : pointer; x, y : shortint );πbeginπ { set window size relative to the current size }π { use negative (-1) values to shrink window }π DVStream(handle, WinStream, chr($CB)+chr(y)+chr(x));πend;ππprocedure DVSetAttr( Handle : pointer; color : byte );πbeginπ { set the output color }π DVStream(Handle, WinStream, chr($E2)+chr(color));πend;ππprocedure DVFrameAttr( Handle : pointer; color : byte );πbeginπ { set the frame color }π DVStream(Handle, WinStream, chr($ED)+chr($FF)+chr($08)+π chr(color)+chr(color)+chr(color)+chr(color)+π chr(color)+chr(color)+chr(color)+chr(color));πend;ππprocedure DVFrameOn( Handle : pointer; b : boolean );πbeginπ{ must use DVRedraw to remove the frame }π if b then DVStream(Handle, WinStream, chr($D6))π else DVStream(Handle, WinStream, chr($D7))πend;ππprocedure DVWinUnHide( Handle : pointer );πbeginπ { unhide a window }π DVStream(Handle, WinStream, chr($D4));πend;ππprocedure DVWinHide( Handle : pointer );πbeginπ { hide a window }π DVStream(Handle, WinStream, chr($D5));πend;ππprocedure DVGotoXY( Handle : pointer; x, y : byte );πbeginπ { positions the cursor at X, Y }π DVStream(Handle, WinStream, chr($C0)+chr(y-1)+chr(x-1));πend;ππprocedure DVSetVirtualWinSize( Handle : pointer; x, y : byte );πbeginπ { set window's virtual size }π DVStream(Handle, WinStream, chr($AB)+chr(x));π DVStream(Handle, WinStream, chr($AA)+chr(y));πend;ππ{ ---- Query Streams ---- }ππprocedure DVQSize( Handle : pointer; var x, y : byte );πbeginπ { get the window size }π DVStream(Handle, QueryStream, chr($C3));π { result is in DVArray[6..7] }π y:=DVArray[6];π x:=DVArray[7];πend;ππprocedure DVQPos( Handle : pointer; var x, y : shortint );πbeginπ { get the window position }π DVStream(Handle, QueryStream, chr($C2));π { result is in DVArray[6..7] }π y:=DVArray[6];π x:=DVArray[7];πend;ππprocedure DVQVirtualWinSize( Handle : pointer; var x, y : byte );πbeginπ { get virtual window size }π DVStream(Handle, QueryStream, chr($AA));π Y:=DVArray[6];π DVStream(Handle, QueryStream, chr($AB));π X:=DVArray[6];πend;ππfunction DVWhereX( Handle : pointer ) : shortint;πbeginπ { return the cursor's X position }π DVStream( Handle, QueryStream, chr($A1) );π DVWhereX:=DVArray[6];πend;ππfunction DVWhereY( Handle : pointer ) : shortint;πbeginπ { return the cursor's Y position }π DVStream( Handle, QueryStream, chr($A0) );π DVWhereY:=DVArray[6];πend;ππ{ --- Manager Stream Procedures --- }ππprocedure DVAllow( Handle : pointer; command : byte );πbeginπ { disallow a command (see constants "MStream_xxxxxx") }π DVStream(Handle, ManagerStream, chr(command));πend;ππprocedure DVDisallow( Handle : pointer; command : byte );πbeginπ { disallow a command (see constants "MStream_xxxxxx") }π DVStream(Handle, ManagerStream, chr(command+$20));πend;ππprocedure DVForeOnly( Handle : pointer; b : boolean );πbeginπ { B=TRUE if application runs on foreground only }π if b then DVStream(Handle, ManagerStream, chr($86))π else DVStream(Handle, ManagerStream, chr($87));πend;ππprocedure DVMinWinSize( Handle : pointer; x, y : byte );πbeginπ { define window's minimum size }π DVStream(Handle, ManagerStream, chr($88)+chr(y)+chr(x));πend;ππprocedure DVMaxWinSize( Handle : pointer; x, y : byte );πbeginπ { define window's maximum size }π DVStream(Handle, ManagerStream, chr($89)+chr(y)+chr(x));πend;ππprocedure DVForceForeground( Handle : pointer );πbeginπ { force process to run into foreground }π DVStream(Handle, ManagerStream, chr($C1));πend;ππprocedure DVForceBackground( Handle : pointer );πbeginπ { force process to run into background }π DVStream(Handle, ManagerStream, chr($C9));πend;ππprocedure DVTopProcess( Handle : pointer );πbeginπ { make current window topmost in process }π DVStream( Handle, ManagerStream, chr($C2) );πend;ππprocedure DVBottomProcess( Handle : pointer );πbeginπ { make current window bottom-most in process }π DVStream( Handle, ManagerStream, chr($CA) );πend;ππend.π 6 08-24-9413:33ALL JEFF GUILLAUME Access to DesqView SWAG9408 µ2│ 9 t {π Simply pass a number (1-3) through it:π 1 -- Switches to next windowπ 2 -- Pops up the Alt menuπ ^^^^^^^^^^^^^^^^^^^^ this is what you wantπ 3 -- Close the current windowππ I don't know about Alt-H though.. I know that if you used ReadKeyπ you'd have to read it twice -- once for the #0 (tells you thatπ it is an extended code) -- again for the extended code (35=Alt-H).ππ Hope this helps! Good luck.π -- Jeff.Guillaume@launchpad.unc.eduπ}ππProcedure DesqView(Func : Byte); ASSEMBLER;πASMπ mov AH, $05π cmp Func, 1 { Switch to next window }π je @SwitchNextπ cmp Func, 2 { Pop up Alt-menu }π je @PopDesqViewπ cmp Func, 3 { Close current window }π je @CloseWinπ π@SwitchNext:π mov CX, $FB00π jmp @CallIntπ π@PopDesqView:π mov CX, $FC00π jmp @CallIntπ π@CloseWin:π mov CX, $FE00π π@CallInt:π int $16π πEnd; {* DesqView *}π
