![]() |
Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. www.neurohope.ro |
atei posedati
Last Updated: Jan 05 2009 14:46, Started by
shobi
, Dec 09 2008 13:26
·
0
![](https://forum.softpedia.com//public/style_images/classic/icon_users.png)
#127
Posted 17 December 2008 - 19:04
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#128
Posted 17 December 2008 - 19:41
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#129
Posted 17 December 2008 - 19:54
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
AMAN_SER, on Dec 17 2008, 19:02, said: Deci sa inteleg ca ai ceva cu mine.??? ![]() sorin520, on Dec 17 2008, 19:41, said: Oamenii inteligenți reușesc să răspundă de obicei și la întrebări simple,dar dacă tu nu reușești să răspunzi la așa ceva,atunci nici nu mai am curaj să merg mai departe ![]() Edited by caroline_hi, 17 December 2008 - 19:55. |
#130
Posted 17 December 2008 - 19:55
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#131
Posted 17 December 2008 - 20:01
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#132
Posted 17 December 2008 - 20:25
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
Ateii sunt posedați în masă de duhul prostiei. Crăciun fericit!
#include p16f887.inc w_temp EQU 0x7D status_temp EQU 0x7E pclath_temp EQU 0x7F cblock 0x20 Port_A Port_B Rsn32temp RXchr endc ;********************************************************************** ORG 0x0000 nop goto main ;********************************************************************** ORG 0x0004 movwf w_temp movf STATUS,w movwf status_temp movf PCLATH,w movwf pclath_temp ;********************************************************************** banksel PIE1 btfss PIE1, RCIE goto ISR_Not_RX232int banksel PIE1 btfsc PIR1, RCIF call RX232_int_proc ISR_Not_RX232int movf pclath_temp,w movwf PCLATH movf status_temp,w movwf STATUS swapf w_temp,f swapf w_temp,w retfie ;********************************************************************** RX232_int_proc banksel RCSTA movf RCSTA, w movwf Rsn32temp btfsc Rsn32temp, FERR goto RX232_int_proc_FERR btfsc Rsn32temp, OERR goto RX232_int_proc_OERR goto RX232_int_proc_Cont RX232_int_proc_FERR bcf RCSTA, CREN nop nop bsf RCSTA, CREN movf RCREG, w bsf Port_A, 0 movf Port_A, w movwf PORTA goto Rsn32_exit RX232_int_proc_OERR bcf RCSTA, CREN nop nop bsf RCSTA, CREN movf RCREG, w bsf Port_A, 1 movf Port_A, w movwf PORTA goto Rsn32_exit RX232_int_proc_Cont movf RCREG, W movwf RXchr movwf PORTB movwf TXREG Rsn32_exit return ;********************************************************************** main banksel ANSEL clrf ANSEL clrf ANSELH banksel TRISA movlw b'11111100' movwf TRISA movlw b'00000000' movwf TRISB banksel PORTA movlw b'11111100' movwf PORTA movwf Port_A movlw b'00000000' movwf PORTB movwf Port_B banksel TRISC bcf TRISC, 6 bsf TRISC, 7 banksel BAUDCTL bsf BAUDCTL, BRG16 banksel SPBRG movlw .51 movwf SPBRG clrf SPBRGH banksel TXSTA bcf TXSTA, TX9 bsf TXSTA, TXEN bcf TXSTA, SYNC bsf TXSTA, BRGH banksel RCSTA bsf RCSTA, SPEN bcf RCSTA, RX9 bsf RCSTA, CREN bcf RCSTA, ADDEN movf RCSTA, W movf RCREG, W banksel PIE1 bsf PIE1, RCIE bsf INTCON, PEIE bsf INTCON, GIE goto $ end Edited by craciunfericit, 17 December 2008 - 20:32. |
#133
Posted 17 December 2008 - 20:32
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
craciunfericit, on Dec 17 2008, 20:25, said: Ateii sunt posedați în masă de duhul prostiei. Crăciun fericit! #include p16f887.inc w_temp EQU 0x7D ; Variabilă pentru salvarea reg. W status_temp EQU 0x7E ; Variabilă pentru salvarea reg. STATUS pclath_temp EQU 0x7F ; Variabilă pentru salvarea reg. PCLATH cblock 0x20 ; blocul varibilelor începe la adresa 20 h Port_A ; Variabilă la adresa 20 h Port_B ; Variabilă la adresa21 h Rsn32temp ; Variabilă la adresa 22 h RXchr ; Variabilă la adresa 23 h endc ; sfârșitul blocului de variabile ;********************************************************************** ORG 0x0000 ; vectorul de reset nop goto main ; Du-te la începutul programului (eticheta "main") ;********************************************************************** ORG 0x0004 ; adresa vectorului de întrerupere movwf w_temp ; salvează valoarea reg. W movf STATUS,w ; salvează valoarea reg. STATUS movwf status_temp movf PCLATH,w ; salvează valoarea reg. PCLATH movwf pclath_temp ;********************************************************************** ; Parte a programului executată în rutina de întrerupere banksel PIE1 btfss PIE1, RCIE goto ISR_Not_RX232int banksel PIE1 btfsc PIR1, RCIF call RX232_int_proc ISR_Not_RX232int movf pclath_temp,w movwf PCLATH ; refacere valoare originală a reg. PCLATH movf status_temp,w movwf STATUS ; refacere valoare originală a reg. STATUS swapf w_temp,f swapf w_temp,w ; refacere valoare originală a reg. W retfie ; Întoarcere din rutina de întrerupere ;********************************************************************** RX232_int_proc ; verificare apariție erori banksel RCSTA movf RCSTA, w movwf Rsn32temp btfsc Rsn32temp, FERR goto RX232_int_proc_FERR btfsc Rsn32temp, OERR goto RX232_int_proc_OERR goto RX232_int_proc_Cont RX232_int_proc_FERR bcf RCSTA, CREN ; Pentru ștergerea bitului FERR, receptorul este mai întâi oprit și apoi pornit nop ; întârziere nop bsf RCSTA, CREN movf RCREG, w ; citire registru receptor și ștergeer bit FERR bsf Port_A, 0 ; comută LED pe ON (indicator eroare UART) movf Port_A, w movwf PORTA goto Rsn32_exit RX232_int_proc_OERR bcf RCSTA, CREN ; șterge bit OERR nop ; întârziere nop bsf RCSTA, CREN movf RCREG, w ; citește reg. receptorului și șșterge bitul FERR bsf Port_A, 1 ; comută LED pe ON (indicator eroare UART) movf Port_A, w movwf PORTA goto Rsn32_exit RX232_int_proc_Cont movf RCREG, W ; citire date primite movwf RXchr movwf PORTB movwf TXREG ; trimitere date înapoi la PC Rsn32_exit return ; Revenire din rutina de întrerupere ;********************************************************************** ; Programul principal main banksel ANSEL ; selectare banc care conține reg. ANSEL clrf ANSEL ; toate intrările sunt digitale clrf ANSELH ;--------------------------------------- ; configurare Port ;--------------------------------------- banksel TRISA movlw b'11111100' movwf TRISA movlw b'00000000' movwf TRISB ;--------------------------------------- ; setare valori inițiale ;--------------------------------------- banksel PORTA movlw b'11111100' movwf PORTA movwf Port_A movlw b'00000000' movwf PORTB movwf Port_B ;--------------------------------------- ; USART - setare pentru 38400 bps ;--------------------------------------- banksel TRISC bcf TRISC, 6 ; RC6/TX/CK = ieșire bsf TRISC, 7 ; RC7/RX/DT = intrare banksel BAUDCTL bsf BAUDCTL, BRG16 banksel SPBRG movlw .51 ; rată baud = 38400 ; ( Fosc/(4*(SPBRG+1)) ) Eroare +0.16% movwf SPBRG clrf SPBRGH banksel TXSTA bcf TXSTA, TX9 ; date sunt pe 8 biți bsf TXSTA, TXEN ; activare transmisie de date bcf TXSTA, SYNC ; modul asincron bsf TXSTA, BRGH ; rată de baud viteză mare banksel RCSTA bsf RCSTA, SPEN ; configurare ieșiri RX/DT și TX/CK bcf RCSTA, RX9 ; Selectare mod de recepție date pe 8 biți bsf RCSTA, CREN ; activare recepție de date bcf RCSTA, ADDEN ; dacă nu se detectează adresă, al nouălea bit se poate folosi ca bit de paritate movf RCSTA, W movf RCREG, W ;--------------------------------------- ; Activare întreuperi ;--------------------------------------- banksel PIE1 bsf PIE1, RCIE ; activare întrerupere USART Rx bsf INTCON, PEIE ; permite întreruperi de la toate perifericele bsf INTCON, GIE ; activare întrerupere globală ;--------------------------------------- ; Rămâi aici ;--------------------------------------- goto $ end ; Sfârșitul programului ![]() |
#134
Posted 17 December 2008 - 20:33
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
............
goto hell hell decfsz apocalipse1 .......... ; Crăciun fericit! Edited by craciunfericit, 17 December 2008 - 20:35. |
#135
Posted 17 December 2008 - 20:40
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
[quote name='craciunfericit' date='Dec 17 2008, 20:25' post='5687786']
Ateii sunt posedați în masă de duhul prostiei. Crăciun fericit! Ce metodă de calcul ai folosit pentru a ajunge la acest rezultat? |
#136
Posted 17 December 2008 - 20:40
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
|
#137
Posted 17 December 2008 - 20:42
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#138
Posted 17 December 2008 - 20:43
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#139
Posted 17 December 2008 - 20:47
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#140
Posted 17 December 2008 - 20:48
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
...
Attached FilesEdited by craciunfericit, 17 December 2008 - 20:53. |
#141
Posted 17 December 2008 - 20:56
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
noroc ca shape asta e in stare sa copieze din niste exemple
![]() clona shapuiasca poti si ceva de capul tau sau esti plin de exemple ? Edited by arpisz, 17 December 2008 - 20:56. |
|
#142
Posted 17 December 2008 - 20:59
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
arpisz, on Dec 17 2008, 20:56, said: noroc ca shape asta e in stare sa copieze din niste exemple ![]() clona shapuiasca poti si ceva de capul tau sau esti plin de exemple ? ![]() Ungure bulan ai invățat instrucțiunile sau îți fac rezultatul left justified în freză? Edited by craciunfericit, 17 December 2008 - 21:01. |
#143
Posted 17 December 2008 - 21:01
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
#144
Posted 17 December 2008 - 21:02
![](https://forum.softpedia.com//public/style_images/classic/post_offline.png)
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users