{"id":7722,"date":"2009-04-09T10:34:22","date_gmt":"2009-04-09T07:34:22","guid":{"rendered":"http:\/\/studentpmr.ru\/?p=7722"},"modified":"2009-04-09T10:34:22","modified_gmt":"2009-04-09T07:34:22","slug":"%d0%bb%d0%b8%d1%81%d1%82%d0%b8%d0%bd%d0%b3-%d0%bf%d1%80%d0%be%d0%b3%d1%80%d0%b0%d0%bc%d0%bc%d1%8b-%d0%be%d0%ba%d0%be%d0%bd%d1%87%d0%b0%d0%bd%d0%b8%d0%b5","status":"publish","type":"post","link":"https:\/\/studentpmr.ru\/?p=7722","title":{"rendered":"\u041b\u0438\u0441\u0442\u0438\u043d\u0433 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b, \u043e\u043a\u043e\u043d\u0447\u0430\u043d\u0438\u0435"},"content":{"rendered":"

;_—-== \u0414\u0410\u041d\u041d\u042b\u0415 ==—-<\/p>\n

old_1Ch dw 2 dup(?) ; \u0432\u0435\u043a\u0442\u043e\u0440 1Ch<\/p>\n

cur_pos dw 1680 ;\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0430\u0434\u0440\u0435\u0441\u0441 \u0432 \u0432\u0438\u0434\u0435\u043e\u043f\u0430\u043c\u044f\u0442\u0438<\/p>\n

ev_len db 0 ;\u0431\u043b\u0438\u0436\u0430\u0439\u0448\u0435\u0435 \u0447\u0435\u0442\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0434\u043b\u044f mes_long<\/p>\n

message db 50 DUP (0) ;\u0441\u044e\u0434\u0430 \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435<\/p>\n

<\/p>\n

db ‘$’<\/p>\n

count dw 0<\/p>\n

clck dw 0<\/p>\n

mes_off dw offset message ;\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0432\u044b\u0432\u043e\u0434\u0438\u043c\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438<\/p>\n

mes_long db 0 ;\u0434\u043b\u0438\u043d\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f<\/p>\n

attrib db 79<\/p>\n

tim dw ?<\/p>\n

set_msg db ‘\u041d\u043e\u0432\u043e\u0435 \u0432\u0440\u0435\u043c\u044f \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043e’,13,10,’$’<\/p>\n

titl db ‘\u0420\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 — \u0431\u0443\u0434\u0438\u043b\u044c\u043d\u0438\u043a’,13,10,’$’<\/p>\n

inv_msg db ‘\u041d\u0435\u0432\u0435\u0440\u043d\u0430\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430.’,13,10,’\u0418\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435: hs!alarm [r] <hh:mm> [message]’,13,10<\/p>\n

db ‘ \u0433\u0434\u0435 hh — \u0447\u0430\u0441\u044b, mm — \u043c\u0438\u043d\u0443\u0442\u044b’,13,10<\/p>\n

db ‘ message — \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435’,13,10<\/p>\n

db ‘ r — \u0432\u044b\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0431\u0443\u0434\u0438\u043b\u044c\u043d\u0438\u043a \u0438\u0437 \u043f\u0430\u043c\u044f\u0442\u0438’,13,10<\/p>\n

db ‘\u041f\u0440\u0438\u043c\u0435\u0440: hs!alarm 12:00 \u0412\u0440\u0435\u043c\u044f \u043f\u0438\u0442\u044c \u0445\u0435\u0440\u0448\u0438’,13,10,’$’<\/p>\n

remove_msg db ‘\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0443\u0441\u043f\u0435\u0448\u043d\u043e \u0432\u044b\u0433\u0440\u0443\u0436\u0435\u043d\u0430 \u0438\u0437 \u043f\u0430\u043c\u044f\u0442\u0438…’,13,10,’$’<\/p>\n

nim_msg db ‘\u0411\u0443\u0434\u0438\u043b\u044c\u043d\u0438\u043a \u043d\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d’,13,10,’$’<\/p>\n

savescr dw 240 dup(0)<\/p>\n

;_____________________________________________________________________________<\/p>\n

;_—-== \u0418\u041d\u0418\u0426\u0418\u0410\u041b\u0418\u0417\u0410\u0426\u0418\u042f ==—-<\/p>\n

init:<\/p>\n

@DisStr titl ;\u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a<\/p>\n

;_——== \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u043d\u0430 \u0432\u0440\u0435\u043c\u044f ==——<\/p>\n

mov SI,80h ;PSP — \u043a\u043e\u043c\u043c\u0430\u043d\u0434\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430,\u0440\u0430\u0437\u043c\u0435\u0440<\/p>\n

mov CH,0<\/p>\n

mov CL,[SI] ;\u0434\u0430\u0442\u044c \u0434\u043b\u0438\u043d\u0443<\/p>\n

; cmp CL,1<\/p>\n

; jle inv_time<\/p>\n

jcxz inv_time<\/p>\n

call com_time ;\u0434\u0430\u043d\u043d\u044b\u0435 \u0438\u0437 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u0437\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u044e\u0442\u0441\u044f \u0442\u0430\u043c, \u0433\u0434\u0435 \u043d\u0430\u0434\u043e<\/p>\n

jnc no_probl<\/p>\n

cmp dl,’r’ ;\u0432\u044b\u043a\u0438\u043d\u0443\u0442\u044c \u043d\u0430\u0441 \u0438\u0437 \u043f\u0430\u043c\u044f\u0442\u0438 ?<\/p>\n

je remove_from_mem<\/p>\n

jmp inv_time<\/p>\n

no_probl:<\/p>\n

;_——== \u041f\u043e\u0439\u043c\u0430\u0435\u043c \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0435 ==——<\/p>\n

mov AX,351Ch ;\u043f\u043e\u0439\u043c\u0430\u0435\u043c 1Ch \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0435;<\/p>\n

int 21h<\/p>\n

cmp bx,offset int_1Ch ;\u043c\u044b \u0443\u0436\u0435 \u0435\u0441\u0442\u044c \u0432 \u043f\u0430\u043c\u044f\u0442\u0438 ?<\/p>\n

jne set_resid<\/p>\n

;_—-== \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043c \u043d\u043e\u0432\u043e\u0435 \u0432\u0440\u0435\u043c\u044f ==—-<\/p>\n

mov ax,ds:tim ;\u043f\u043e\u043b\u0443\u0447\u0438\u043c \u043d\u043e\u0432\u043e\u0435 \u0432\u0440\u0435\u043c\u044f<\/p>\n

mov es:tim,ax ;\u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043c \u0435\u0433\u043e<\/p>\n

mov ax,ds:count ;\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432<\/p>\n

mov es:count,ax<\/p>\n

mov al,ds:mes_long<\/p>\n

mov es:mes_long,al<\/p>\n

cld ;\u0434\u0432\u0438\u0433\u0430\u0435\u043c\u0441\u044f \u0432\u043f\u0435\u0440\u0435\u0434<\/p>\n

lea si,ds:message ;\u043e\u0442\u043a\u0443\u0434\u0430<\/p>\n

lea di,es:message ;\u043a\u0443\u0434\u0430<\/p>\n

mov cx,ds:count ;50 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432<\/p>\n

rep movsb<\/p>\n

@DisStr set_msg<\/p>\n

jmp no_load ;\u043f\u043e\u0441\u043b\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u0445 \u0432\u044b\u0439\u0434\u0435\u043c<\/p>\n

;\u0437\u0430\u043f\u043e\u043c\u043d\u0438\u043c \u0441\u0442\u0430\u0440\u044b\u0439 \u0432\u0435\u043a\u0442\u043e\u0440<\/p>\n

set_resid:<\/p>\n

mov word ptr cs:old_1Ch,bx ;\u0437\u0430\u043f\u043e\u043c\u043d\u0438\u043c \u0441\u0442\u0430\u0440\u044b\u0439 \u0430\u0434\u0440\u0435\u0441<\/p>\n

mov word ptr cs:old_1Ch+2,es<\/p>\n

;_——== \u043e\u0441\u0432\u043e\u0431\u043e\u0434\u0438\u043c environment ==——<\/p>\n

push es<\/p>\n

mov AX,DS:[2ch]<\/p>\n

mov ES,AX<\/p>\n

mov AH,49h<\/p>\n

int 21h<\/p>\n

pop ES<\/p>\n

;_——== \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 1Ch \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f ==——<\/p>\n

mov AX,251Ch ;\u043f\u043e\u0432\u0435\u0441\u0438\u043c \u0441\u0432\u043e\u044e \u0437\u0430\u043f\u043b\u0430\u0442\u043a\u0443<\/p>\n

lea DX,int_1Ch<\/p>\n

int 21h<\/p>\n

;_——== \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043c \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442 ==——<\/p>\n

mov AX,3100H<\/p>\n

mov DX,(init-start+10FH)\/16<\/p>\n

int 21H<\/p>\n

; mov DX, offset init<\/p>\n

; int 21h<\/p>\n

;_——== Invalid Time ==——<\/p>\n

inv_time:<\/p>\n

@DisStr inv_msg<\/p>\n

jmp no_load<\/p>\n

; \u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043d\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u0430 \u0432 \u043f\u0430\u043c\u044f\u0442\u044c<\/p>\n

notinmem:<\/p>\n

@DisStr nim_msg<\/p>\n

jmp no_load<\/p>\n

;_——== Remove from memory ==——<\/p>\n

remove_from_mem:<\/p>\n

mov AX,351Ch ; !! \u043f\u043e\u0439\u043c\u0430\u0435\u043c 1Ch \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0435;<\/p>\n

int 21h ; !!<\/p>\n

cmp bx,offset int_1Ch ; !! \u043c\u044b \u0443\u0436\u0435 \u0435\u0441\u0442\u044c \u0432 \u043f\u0430\u043c\u044f\u0442\u0438 ?<\/p>\n

jne notinmem ; !!<\/p>\n

@DisStr remove_msg<\/p>\n

mov ax,351Ch<\/p>\n

int 21h<\/p>\n

mov ax,word ptr es:old_1Ch ; \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435 \u0432\u0435\u043a\u0442\u043e\u0440\u0430<\/p>\n

mov dx,word ptr es:old_1Ch+2 ; 1Ch<\/p>\n

push es ; \u0432 ES \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u043e CS \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u043f\u0440-\u043c\u044b<\/p>\n

cli<\/p>\n

xor bx,bx<\/p>\n

mov es,bx<\/p>\n

mov bx,1Ch*4<\/p>\n

mov es:[bx],ax ; \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435 \u0441\u0442\u0430\u0440\u043e\u0433\u043e<\/p>\n

mov es:[bx+2],dx ; \u0432\u0435\u043a\u0442\u043e\u0440\u0430 1Ch<\/p>\n

sti<\/p>\n

mov ah,49h<\/p>\n

pop es<\/p>\n

int 21h<\/p>\n

;_____________________________________________________________________________<\/p>\n

;_——== Exit ==—-<\/p>\n

no_load:<\/p>\n

mov ah,4Ch<\/p>\n

int 21h<\/p>\n

code ENDS<\/p>\n

;_____________________________________________________________________________<\/p>\n

END start<\/p>\n","protected":false},"excerpt":{"rendered":"

;_—-== \u0414\u0410\u041d\u041d\u042b\u0415 ==—- old_1Ch dw 2 dup(?) ; \u0432\u0435\u043a\u0442\u043e\u0440 1Ch cur_pos dw 1680 ;\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0430\u0434\u0440\u0435\u0441\u0441 \u0432 \u0432\u0438\u0434\u0435\u043e\u043f\u0430\u043c\u044f\u0442\u0438 ev_len db 0 ;\u0431\u043b\u0438\u0436\u0430\u0439\u0448\u0435\u0435 \u0447\u0435\u0442\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0434\u043b\u044f mes_long message db 50 DUP (0) ;\u0441\u044e\u0434\u0430 \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[67],"tags":[],"_links":{"self":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/7722"}],"collection":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7722"}],"version-history":[{"count":0,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/7722\/revisions"}],"wp:attachment":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7722"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7722"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7722"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}