 | La procedura
è parzialmente scritta in linguaggio
Assembly. E' probabile che il lettore, in questo momento, non sia in possesso delle
conoscenze di base della programmazione a basso
livello, per cui questa pagina pụ risultare
incomprensibile; desidero fornirtela comunque, come stimolo per approfondire questa potente tecnica di programmazione
(vedi Sezione
Tutorial Assembly).
 | La procedura
fissa il movimento del Cursore del Mouse con l’aiuto
delle Funzioni 07H e
08H della libreria
INT 33H, caricata in memoria dal
driver del Mouse direttamente da Windows o manualmente dal prompt
del Dos [consulta
la Scheda dedicata al Mouse nella Sezione
Dentro il Computer]. |
|
Codice Sorgente |
|
 |
 |
 |
PROCEDURE
BoxMouse (rig1,col1,rig2,col2:word;pixel:boolean);
BEGIN
IF pixel
THEN
asm
PUSH AX
PUSH DX
PUSH CX
MOV CX,col1
MOV DX,col2
MOV AX,0007H
INT 33H
MOV CX,rig1
MOV DX,rig2
MOV AX,0008H
INT 33H
POP CX
POP DX
POP AX
end
ELSE
asm
PUSH AX
PUSH DX
PUSH CX
MOV CX,col1
DEC CX
SAL CX,1
SAL CX,1
SAL CX,1
MOV DX,col2
DEC DX
SAL DX,1
SAL DX,1
SAL DX,1
MOV AX,0007H
INT 33H
MOV CX,rig1
DEC CX
SAL CX,1
SAL CX,1
SAL CX,1
MOV DX,rig2
DEC DX
SAL DX,1
SAL DX,1
SAL DX,1
MOV AX,0008H
INT 33H
POP CX
POP DX
POP AX
end;
END; |
|
