За последние 60 дней ни разу не выходила
Сайт рассылки: http://rusfaq.ru Открыта: 28-06-2000
Выпуск № 662от 22.01.2007, 00:35
Приложение: ACK equ 06h NACK equ 15h PORT equ 00h ;com1 PORTO equ 3f8h CONTROL equ 3fdh PARAM equ 11100111b ;parƒmetros code segment 'CODE' assume cs:code, es:code, ds:code, ss:code org 100h start: jmp princip quest db 13,10,'File to view: $' error db 'File not found or error in transmission ',7,'$' fname db 35,?,36 dup(?) princip proc near call clrscr ;limpa a tela call serialcfg ;configura a serial call rserial novof: lea dx,quest ;pede o nome do mov ah,9h ;arquivo int 21h lea dx,fname ;lˆ o nome do mov ah,0ah ;arquivo int 21h call sfname ;envia o nome do ;arquivo call waitchar cmp al,ACK ;vˆ se recebeu fname je recebeu ;sucesso call clrscr ;limpa a tela lea dx,error ;msg de erro mov ah,9h int 21h jmp novof recebeu: ;aguarda os pacotes push bx push dx n2: call waitchar ;Lˆ o tamanho do mov bl,al ;pacote em BX call waitchar mov bh,al cmp bx,0 ;verifica se o pacote ;est vazio je fim ;se sim ->fim push cx mov cx,bx ;tamanho do pacote em ;CX next: call waitchar ;aguarda o byte mov dl,al ;mostra o caractere mov ah,2 int 21h dec cx cmp cx,0 jne next call wait2send mov dx,PORTO mov al,ACK out dx,al jmp n2 pop cx fim: pop dx pop bx ret princip endp serialcfg proc near ;configura a serial push ax push dx mov ah,0 mov al,PARAM mov dx,PORT int 14h pop dx pop ax ret serialcfg endp clrscr proc near push ax push bx push cx push dx mov ah,6 xor cx,cx mov dx,184fh mov al,0 mov bh,7 int 10h pop dx pop cx pop bx pop ax ret clrscr endp sfname proc near push ax push si push cx push dx xor cx,cx mov cl,fname[1] ;tamanho do fname inc cl ;+ 0dh mov si,2 mov dx,PORTO aguarda:call wait2send mov al,fname[si] ;pega o caractere out dx,al ;envia o char inc si dec cl cmp cl,0 jne aguarda pop dx pop cx pop si pop ax ret sfname endp waitchar proc near push dx mov dx,CONTROL again2: in al,dx and al,1h cmp al,1h jne again2 mov dx,PORTO in al,dx pop dx ret waitchar endp wait2send proc near push ax push dx mov dx,control again: in al,dx and al,20h cmp al,20h jne again pop dx pop ax ret wait2send endp rserial proc near push dx push ax mov dx,CONTROL mov al,0 out dx,al pop ax pop dx ret rserial endp code ends end start
Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
{#template MAIN} {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} Войти на сайт {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} {#include js_tmpl_auth_reg_descr} Если вы еще не с нами, то начните с регистрации Вход для авторов {#/if} {#if $P.login_register_tab == 2} Регистрация {* {#include js_tmpl_soc_auth_reg_descr} *} {#include js_tmpl_auth_reg_soc} {#include js_tmpl_auth_reg_agree} {* #include js_tmpl_auth_reg_descr *} {#include js_tmpl_auth_reg_action} {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} {#/if} {* *} {#/template MAIN} {#template js_tmpl_auth_reg_tab} Вход на сайт Регистрация {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} {#if $P.login_register_tab == 1} E-mail или код подписчика Пароль Русская раскладка клавиатуры! У вас включен Caps Lock! У вас включен Caps Lock и русская раскладка клавиатуры! Чужой компьютер Забыли пароль? {#/if} {#if $P.login_register_tab == 2} E-mail Я ознакомился и согласен с условиями сервиса Subscribe.ru Нажимая на кнопку "Готово!", я даю согласие на обработку персональных данных {* Я хочу получать новости о скидках на одежду *} Готово! {#/if} {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} Я ознакомился и согласен с условиями сервиса Subscribe.ru {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} {#if $P.login_register_tab == 1} Email OpenID Вконтакте Mail.Ru {#/if} {#if $P.login_register_tab == 2} Email OpenID Вконтакте Mail.Ru {#/if} {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} {#if $P.login_register_tab == 1} {#/if} {#if $P.login_register_tab == 2} {#/if} {#/template js_tmpl_auth_reg_soc}
{#include js_tmpl_auth_reg_descr}
{#template MAIN} {#include js_tmpl_auth_reg_tab} {#include js_tmpl_auth_reg_descr} {#include js_tmpl_auth_reg_action} {#/template MAIN} {#template js_tmpl_auth_reg_tab} Регистрация {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} Пожалуйста, подтвердите ваш адрес.Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} Или введите код из письма: Не пришло письмо? Пожалуйста, проверьте папку Спам (папку для нежелательной почты). Вышлите мне письмо еще раз! Готово {#/template js_tmpl_auth_reg_action}