DOS-Forum

Code: Alles auswählen

AUF     DB "├───────────┤"             ; Klapp-Box-Ober-Teil
Auflen = ($-AUF)                       ; Anzahl der Spalten der Klapp-Box
ZELLE   DB "│           │"             ; Klapp-Box-Mittel-Teil
ZU      DB "└───────────┘"             ; Klapp-Box-Unter-Teil
;--------------------------------------
NEBO    DB "└───────────┐"             ; Neben-Klapp-Box-Ober-Teil
NEBU    DB "┌───────────┘"             ; Neben-Klapp-Box-Unter-Teil

Code: Alles auswählen

checkPS2:
int 11h			; get equipment list
test    al, 3
jz  noPS2		; jump if PS/2-Mouse not indicated
mov	bh,3
mov     ax, 0C205h
int 15h		        ; initialize mouse, bh=datasize
jc noPS2
mov	bh,3
mov     ax, 0C203h
int 15h		        ; set mouse resolution bh
jc noPS2
mov     ax, cs
mov     es, ax
mov	bx, OFFSET PS2dummy
mov     ax, 0C207h
int 15h		        ; mouse, es:bx=ptr to handler
jc noPS2
xor     bx, bx
mov     es, bx		; mouse, es:bx=ptr to handler
mov     ax, 0C207h
int 15h
ret

noPS2:
stc
ret

PS2dummy:
retf
;---------------------------------------------------------
enablePS2:
call disablePS2
mov    ax, cs
mov    es, ax
mov    bx, OFFSET IRQhandler
mov    ax, 0C207h	; es:bx=ptr to handler
int 15h
mov	bh,1		; set mouse on
mov     ax, 0C200h
int 15h
ret
;-------------------------------
disablePS2:
xor	bx, bx		; set mouse off
mov	ax, 0C200h
int 15h
xor     bx, bx
mov     es, bx
mov     ax, 0C207h	; es:bx=ptr to handler
int 15h
ret
;---------------------------------------------------------------------------
IRQhandler:
		assume	ds:nothing,es:nothing
cld
push    ds
push    es
pusha
mov     ax, cs
mov     ds, ax
mov	bp,sp
mov	al,[bp+24+6]	; buttons
mov	bl,al
shl	al,3		; CF=Y sign bit
sbb	ch,ch		; signed extension 9->16 bit
cbw			; extend X sign bit
mov	al,[bp+24+4]	; AX=X movement
mov	cl,[bp+24+2]	; CX=Y movement
xchg	bx,ax
neg	cx              ; reverse Y movement
popa
pop	es
pop     ds
retf

Code: Alles auswählen

word x;
word y;
word isPressed;

/* folgende Schleife endet, wenn die Maus in der unteren rechten bildschirm-Ecke angelangt ist */
while(x<319 || x<199){
  setPixel(x,y,COLOR_WHITE);
  /* Maus Bewegung abfragen */
  asm{
    MOV   AX, 0Bh
    INT   33h
    ADD   x, CX
    ADD   y, DX    
  }
  /* get Button */
  asm{
    MOV   AX, 0006h
    MOV   BX, 0000h
    INT   33h
    MOV   isPressed, BX    
  }
  if(isPressed){
    vPutS("Ist gedrueckt!!!");
  }
}

Code: Alles auswählen

    Ber1Xmin     =   
    Ber1Xmax     = 
    Ber1Ymin     =  
    Ber1Ymax     = 

    Ber2Xmin     = 
    Ber2Xmax     =
    Ber2Ymin     = 
    Ber2Ymax     =

Code: Alles auswählen

MBEGR   DW Ber1Xmin, Ber1Xmax, Ber1Ymin, Ber1Ymax ; Tabelle der Mouse-Bereiche
	     DW Ber2Xmin, Ber2Xmax, Ber2Ymin, Ber2Ymax

Code: Alles auswählen

	  mov      si, OFFSET MBEGR  ; Zeiger auf Tabelle
TAIN:  cmp      cx, [si]        ; Mouse-Bereichs-Abfrage
	  jb  TAIR2
	  cmp      cx, [si+2]
	  ja  TAIR2
	  cmp      dx, [si+4]
	  jb  TAIR2
	  cmp      dx, [si+6]
	  ja  TAIR2
	  sub      si, OFFSET MBEGR    ; Tabellen-Nummer bestimmen
	  shr      si, 3               ; geteilt durch 8 Byte je Klickfeld-Bereich(Tabelle)

          ......
.... Abfrage ob geklickt wurde....
          ......

TAIR2:  lea      si, [si+8]         ; auf nächsten Tabellen-Eintrag erhöhen(macht das selbe wie "add si, 8" nur schneller)
	     cmp      si, OFFSET MBGend  ;  letzter Tabellen-Eintrag?
	     jb  TAIN                    ; sonst weiter mit dem nächsten Tabelleintrag abfragen

Code: Alles auswählen

PS2IRQ:   push    ds
          pusha
          mov     ax, DATEN
          mov     ds, ax
          mov     bp, sp
          mov     bx, [bp+22+6]   ; status byte(buttons,Sign,Overflow)
          mov     cx, [bp+22+4]   ; X movement
          mov     dx, [bp+22+2]   ; Y movement
          mov     ax, [XACK]
          test    bx, 10h         ; Sign X  Mouse goes right
          jz short MOGOR
          neg     cl
          sub     ax, cx
          cmp     ax, [BHMIN]     ; (Hmin) Mouse-Zeiger zu weit links ?
          jb  short IY0
;          test   bx, 40h          ; Overflow X
;          jz  short IY0
IX1:      jmp short IX2           ; X schreiben
;---------
MOGOR:    add     ax, cx
          cmp     ax, [BHMAX]     ; (Hmax) Mouse-Zeiger zu weit rechts ?
          ja  short IY0
;          test   bx, 40h          ; Overflow X
;          jz  short IY0
IX2:      mov     [XACK], ax
;---------------------------------
IY0:      mov     ax, [YACK]
          test    bx, 20h         ; Sign Y Mouse goes down
          jnz short MOGOU
          sub     ax, dx
          cmp     ax, [BVMIN]     ; (Vmin) Mouse-Zeiger zu hoch ?
          jb  short IIZ
;          test    bx, 80h         ; Overflow Y
;          jz  short IIZ
IY1:      jmp short IY2           ; Y schreiben
;---------
MOGOU:    neg     dl
          add     ax, dx
          cmp     ax, [BVMAX]     ; (Vmax)  Mouse-Zeiger zu tief ?
          ja  short IIZ
;          test     bx, 80h        ; Overflow Y
;          jz  short IIZ
IY2:      mov     [YACK], ax
;---------------------------------
IIZ:      and     bx, 3           ; only buttons, remove Sign + Overflow
          mov     [TACK], bx
;---------
          popa
          pop     ds
PS2TEST:  retf

Code: Alles auswählen

GETMPOS:  cli
          xor      ecx, ecx
          xor      edx, edx
          mov      cx, [XACK]          ; cx = X-Positon   holen
          mov      dx, [YACK]          ; dx = Y-Position  holen
          mov      bx, [TACK]          ; bx = Mouse-Taste holen
	  lea      ecx, [ecx*4]             ; ecx * 4 (für 32Bit true-color-Position)
	  lea      edx, [edx*4]
	  mov      [RETCLIC], bx
	  cmp      ecx, DWORD PTR[MX]
	  jnz short MSOI
	  cmp      edx, DWORD PTR[MY]
	  jz  NOMOUT                   ; wenn dieselbe Pos., dann nicht setzen
         .....
...Mousezeiger wird gesetzt.....
         .....
	  mov      bx, [RETCLIC]
 	  mov      ecx, DWORD PTR[MX]
	  mov      edx, DWORD PTR[MY]
NOMOUT:   sti
	  ret

Code: Alles auswählen

Hallo,

weil mich folgender quicksort doch viel länger als erwartet beschäftigt hat:

ESI : Adresse des ersten (signed int32) Element der Liste
EDI : Adresse del letzten Elements
Sortierung erfolgt aufsteigend
Diese qsort-Variante läuft auch mit vorstortierten Listen schnell.


@start:         mov ecx,edi
                shr ecx,1
                mov eax,esi
                shr eax,1
                add ecx,eax
                and ecx,$FFFFFFFC
                mov ecx,dword ptr[ecx]
                push edi
                push esi
                sub esi,4
                add edi,4
@loop:          add esi,4
                cmp dword ptr[ESI],ecx
                jl @loop
@loop2:         sub edi,4
                cmp ecx,dword ptr[EDI]
                jl @loop2
                cmp edi,esi
                jc @skip
                mov eax, dword ptr[esi]
                mov ebx, dword ptr[edi]
                mov dword ptr[edi],eax
                mov dword ptr[esi],ebx
                jmp @loop
@skip:          pop eax
                cmp edi,eax
                jbe @m1
                push esi
                mov esi,eax
                call @start
                pop esi
@m1:            pop edi
                cmp edi,esi
                jnbe @start



Gruss

Jan Bruns