;_——== \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u044f \u043a \u0447\u0430\u0441\u0430\u043c ==——<\/p>\n
; \u0437\u0430\u0432\u0438\u0441\u0438\u0442 \u043e\u0442 AL: al = 00h — \u0441\u0435\u043a\u0443\u043d\u0434\u044b<\/p>\n
; al = 02h — \u043c\u0438\u043d\u0443\u0442\u044b<\/p>\n
; al = 04h — \u0447\u0430\u0441\u044b<\/p>\n
; \u0427\u0435\u0441\u0442\u043d\u043e \u0441\u043e\u0434\u0440\u0430\u043d\u0430 \u0441 \u043e\u0434\u043d\u043e\u0433\u043e \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.\u0421\u043f\u0430\u0441\u0438\u0431\u043e \u0430\u0432\u0442\u043e\u0440\u0443<\/p>\n
<\/p>\n
read_clock PROC NEAR<\/p>\n
out 70h,AL<\/p>\n
jmp short $+2<\/p>\n
jmp short $+2<\/p>\n
jmp short $+2<\/p>\n
in AL,71h<\/p>\n
ret<\/p>\n
read_clock ENDP<\/p>\n
;_____________________________________________________________________________<\/p>\n
;_——== CLICK \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043a\u0430 \u043f\u0440\u043e\u0441\u0442\u043e\u0433\u043e \u043f\u0438\u043a\u0430\u043d\u044c\u044f.\u0412\u0440\u0435\u043c\u0435\u043d\u043d\u043e. ==——<\/p>\n
click proc near<\/p>\n
mov cx, 0002<\/p>\n
repc1: ;cli<\/p>\n
mov word ptr cs:[clck], 08000h<\/p>\n
call simp<\/p>\n
mov word ptr cs:[clck], 02000h<\/p>\n
call simp<\/p>\n
;sti<\/p>\n
loop repc1<\/p>\n
ret<\/p>\n
simp: mov dx, 00C8H<\/p>\n
in al, 61H<\/p>\n
and al, 0FEH<\/p>\n
repc2: or al, 02<\/p>\n
out 61H, al<\/p>\n
mov cx, cs:[clck]<\/p>\n
loop $<\/p>\n
and al, 0FDH<\/p>\n
out 61H, al<\/p>\n
mov cx, cs:[clck]<\/p>\n
loop $<\/p>\n
dec dx<\/p>\n
jne repc2<\/p>\n
pop cx<\/p>\n
ret<\/p>\n
click endp<\/p>\n
;_____________________________________________________________________________<\/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
com_time PROC NEAR ;\u0442\u0430\u043a\u0430\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u0431\u044b\u043b\u0430 \u0432 SPY. \u041d\u043e \u0443\u0436 \u043e\u0447\u0435\u043d\u044c \u0438\u0434\u0435\u044f \u043f\u043e\u043d\u0440\u0430-<\/p>\n
;\u0432\u0438\u043b\u0430\u0441\u044c<\/p>\n
new_nomber:<\/p>\n
mov di,82h<\/p>\n
mov dl,[di]<\/p>\n
cmp dl,20h ;\u044d\u0442\u043e \u043f\u0440\u043e\u0431\u0435\u043b ?<\/p>\n
je new_nomber<\/p>\n
cmp dl,’0′<\/p>\n
jb bad_exit<\/p>\n
cmp dl,’9′<\/p>\n
ja bad_exit<\/p>\n
mov ax,[di] ;\u043f\u0435\u0440\u0432\u044b\u0435 2 \u0441\u0438\u043c\u0432\u043e\u043b\u0430<\/p>\n
cmp ah,’:’ ; \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c ?<\/p>\n
jne short sec_nomber ; \u041d\u0435\u0442, \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0438\u043c \u043f\u043e\u0438\u0441\u043a<\/p>\n
dec di ;\u0434\u0430, => \u0441\u0438\u043c\u0432\u043e\u043b \u043e\u0434\u0438\u043d, \u0432\u0437\u044f\u0442\u044c \u0435\u0433\u043e<\/p>\n
shl ax,8 ;<\/p>\n
sec_nomber:<\/p>\n
mov bx,[di+3] ;\u0432\u0437\u044f\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 2 \u0441\u0438\u043c\u0432\u043e\u043b\u0430<\/p>\n
cmp bh,0Dh ;\u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 — Enter ?<\/p>\n
je short loc_105 ; \u0414\u0430<\/p>\n
cmp bh,0 ; \u042d\u0442\u043e 0 ?<\/p>\n
je short loc_105 ; \u0414\u0430<\/p>\n
cmp bh,20h ; ‘ ‘ ?<\/p>\n
je short loc_105 ; \u0414\u0430<\/p>\n
jmp short loc_106 ;\u043d\u0435\u0442, \u044d\u0442\u043e \u0441\u0438\u043c\u0432\u043e\u043b 0><\/p>\n
loc_105:<\/p>\n
shl bx,8 ;\u0441\u0438\u043c\u0432\u043e\u043b \u043e\u0434\u0438\u043d,\u0441\u043e\u0442\u0440\u0435\u043c \u043b\u0438\u0448\u043d\u0435\u0435 \u0438\u0437 BX<\/p>\n
loc_106:<\/p>\n
xchg al,ah ;\u043f\u0440\u0438 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0438 \u0447\u0438\u0441\u043b\u0430, \u043e\u043d\u043e \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u043f\u0435\u0440\u0432\u044b\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u043c \u0432 AL<\/p>\n
;\u0430 \u0432\u0442\u043e\u0440\u044b\u043c \u0432 AH, \u043c\u0435\u043d\u044f\u0435\u043c\u0441\u044f \u0438\u043c\u0438<\/p>\n
xchg bl,bh ;\u0442\u043e \u0436\u0435 \u0438 \u0441 BX, \u0433\u0434\u0435 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0432\u0442\u043e\u0440\u043e\u0435 \u0447\u0438\u0441\u043b\u043e<\/p>\n
sub al,30h ; ‘0’ \u0423\u0431\u0435<\/p>\n
sub ah,30h ; ‘0’ \u0440\u0435\u043c<\/p>\n
sub bl,30h ; ‘0’ \u043b\u0438\u0448<\/p>\n
sub bh,30h ; ‘0’ \u043d\u0435\u0435<\/p>\n
shl ah,4 ; \u0438 \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u0435\u043c \u0442\u0430\u043a, \u0447\u0442\u043e\u0431\u044b \u0432 AX \u0438 BX \u0432\u043c\u0435\u0441\u0442\u043e<\/p>\n
shl bh,4 ;Hex \u043a\u043e\u0434\u043e\u0432 \u0431\u044b\u043b\u0438 \u0438\u043c\u0435\u043d\u043d\u043e \u0447\u0438\u0441\u043b\u0430, \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u043a\u043e-<\/p>\n
or al,ah ;\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435. \u042d\u0442\u0438 \u0447\u0438\u0441\u043b\u0430 \u043e\u043a\u0430\u0436\u0443\u0442\u0441\u044f \u0432 AL \u0438 BL<\/p>\n
or bl,bh ;<\/p>\n
mov ah,al ;\u043f\u043e\u043b\u0443\u0447\u0438\u043c \u0432 AX \u0432\u0440\u0435\u043c\u044f<\/p>\n
mov al,bl<\/p>\n
mov ds:tim,ax<\/p>\n
end_com_time:<\/p>\n
jmp com_continue<\/p>\n
bad_exit:<\/p>\n
stc ;\u043f\u043b\u043e\u0445\u0430\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430, \u0432\u044b\u0439\u0434\u0435\u043c \u0441 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u043e\u0439 \u0444\u043b\u0430\u0433\u0430<\/p>\n
jmp norm_exit<\/p>\n
com_continue:<\/p>\n
cld ;\u0431\u0443\u0434\u0435\u043c \u043f\u0435\u0440\u0435\u0434\u0432\u0438\u0433\u0430\u0442\u044c\u0441\u044f \u0432\u043f\u0435\u0440\u0435\u0434<\/p>\n
mov SI,DI ;\u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a<\/p>\n
com_cycle:<\/p>\n
lodsb<\/p>\n
cmp AL,0DH ;\u044d\u0442\u043e ENTER ?<\/p>\n
je norm_exit<\/p>\n
mov di,ds:count<\/p>\n
mov ds:message[di],al<\/p>\n
inc ds:count ;\u0441\u0447\u0435\u0442\u0447\u0438\u043a<\/p>\n
inc ds:mes_long<\/p>\n
jmp com_cycle<\/p>\n
norm_exit:<\/p>\n
ret<\/p>\n
com_time ENDP<\/p>\n
;_____________________________________________________________________________<\/p>\n
;_—-== \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u0441\u044f \u0441\u0438\u043c\u0432\u043e\u043b \u0438\u0437 AL \u0441 \u0430\u0442\u0442\u0440\u0438\u0431\u0443\u0442\u043e\u043c \u0438\u0437 attrib. ==—-<\/p>\n
;\u0418\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u043a\u0430 \u0438 \u044f \u043e\u0447\u0435\u043d\u044c \u0431\u043b\u0430\u0433\u043e\u0434\u0430\u0440\u0435\u043d \u0430\u0432\u0442\u043e\u0440\u0443 \u043f\u0440\u043e\u0433\u0438,\u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u044f \u0435\u0435 \u043d\u0430\u0448\u0435\u043b<\/p>\n
show_symbol PROC NEAR<\/p>\n
mov ES:[DI],AL<\/p>\n
inc DI<\/p>\n
mov AL,CS:attrib<\/p>\n
mov ES:[DI],AL<\/p>\n
inc DI<\/p>\n
ret<\/p>\n
show_symbol ENDP<\/p>\n
;_____________________________________________________________________________<\/p>\n
;_—-== \u0432\u044b\u0432\u0435\u0441\u0442\u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u0440\u0430\u043c\u043e\u0447\u043a\u043e\u0439 ==—-<\/p>\n
mes_out PROC NEAR<\/p>\n
;\u0412\u044b\u0432\u0435\u0441\u0442\u0438 \u0440\u0430\u043c\u043e\u0447\u043a\u0443<\/p>\n
mov AX,0b800h ;\u0430\u0434\u0440\u0435\u0441 \u0432\u0438\u0434\u0435\u043e\u043f\u0430\u043c\u044f\u0442\u0438 \u0432 ES<\/p>\n
mov ES,AX<\/p>\n
mov AL,CS:mes_long<\/p>\n
cbw<\/p>\n
mov CL,2<\/p>\n
div CL<\/p>\n
xor AH,AH<\/p>\n
mul CL ;\u0438\u0437\u0431\u0430\u0432\u043b\u044f\u0435\u043c\u0441\u044f \u043e\u0442 \u043d\u0435\u0447\u0435\u0442\u043d\u043e\u0433\u043e mes_long<\/p>\n
;\u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0432\u043e\u0437\u043d\u0438\u043a\u0430\u043b\u043e \u0443\u0433\u043b\u043e\u0432\u0430\u0442\u043e\u0441\u0442\u0435\u0439<\/p>\n
mov CS:ev_len,AL<\/p>\n
sub CS:cur_pos,AX ;\u043d\u0430\u0447\u0430\u043b\u043e \u0432\u044b\u0432\u043e\u0434\u0430 \u0440\u0430\u043c\u043a\u0438 ‘+’ : 1680 — ev_len<\/p>\n
; mov AX, ;\u0432 DI<\/p>\n
mov DI,CS:cur_pos <\/p>\n
; mov SI,CS:savescr<\/p>\n
mov AL,’+’<\/p>\n
call show_symbol<\/p>\n
mov AL,CS:mes_long ;\u0433\u043e\u0440\u0438\u0437\u043e\u043d\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u043b\u0438\u043d\u0438\u0438<\/p>\n
cbw<\/p>\n
mov CX,AX ;\u0447\u0438\u0441\u043b\u043e \u043f\u043e\u0432\u0442\u043e\u0440\u043e\u0432<\/p>\n
hor_ln:<\/p>\n
mov AL,’-‘<\/p>\n
call show_symbol ;——-<\/p>\n
add DI,318 ;|<\/p>\n
mov AL,’-‘ ;|<\/p>\n
call show_symbol ;|<\/p>\n
sub DI,320 ;|<\/p>\n
loop hor_ln ;——-<\/p>\n
mov AL,’+’<\/p>\n
call show_symbol<\/p>\n
mov AX,CS:cur_pos ;\u043b\u0435\u0432\u0430\u044f |<\/p>\n
add AX,160<\/p>\n
mov DI,AX<\/p>\n
mov AL,’\u00a6’<\/p>\n
call show_symbol<\/p>\n
mov AX,CS:mes_off<\/p>\n
mov SI,AX ;\u043d\u0430\u0447\u0430\u043b\u043e \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 SI<\/p>\n
mov cx,cs:count<\/p>\n
next_let: ;\u0432\u044b\u0432\u0435\u0441\u0442\u0438 \u0441\u0442\u0440\u043e\u043a\u0443 \u043d\u0430 \u044d\u043a\u0440\u0430\u043d<\/p>\n
mov al,CS:[SI]<\/p>\n
cmp AL,’$’<\/p>\n
je all_done<\/p>\n
call show_symbol<\/p>\n
inc SI<\/p>\n
loop next_let<\/p>\n
all_done:<\/p>\n
mov AL,’\u00a6’ ;\u043f\u0440\u0430\u0432\u0430\u044f<\/p>\n
call show_symbol<\/p>\n
mov AX,CS:cur_pos<\/p>\n
mov DI,AX<\/p>\n
add DI,320<\/p>\n
mov AL,’+’<\/p>\n
call show_symbol<\/p>\n
mov AL,CS:mes_long<\/p>\n
cbw<\/p>\n
add DI,AX<\/p>\n
add DI,AX<\/p>\n
mov AL,’+’<\/p>\n
call show_symbol<\/p>\n
;_______ \u0432\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043c \u043f\u0435\u0440\u0432\u043e\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435<\/p>\n
mov CS:cur_pos,1680<\/p>\n
ret<\/p>\n
mes_out ENDP<\/p>\n
;_________<\/p>\n","protected":false},"excerpt":{"rendered":"
;_——== \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u044f \u043a \u0447\u0430\u0441\u0430\u043c ==—— ; \u0437\u0430\u0432\u0438\u0441\u0438\u0442 \u043e\u0442 AL: al = 00h — \u0441\u0435\u043a\u0443\u043d\u0434\u044b ; al = 02h — \u043c\u0438\u043d\u0443\u0442\u044b ; al = 04h — \u0447\u0430\u0441\u044b ; \u0427\u0435\u0441\u0442\u043d\u043e \u0441\u043e\u0434\u0440\u0430\u043d\u0430 \u0441 \u043e\u0434\u043d\u043e\u0433\u043e \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.\u0421\u043f\u0430\u0441\u0438\u0431\u043e \u0430\u0432\u0442\u043e\u0440\u0443<\/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\/7723"}],"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=7723"}],"version-history":[{"count":0,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/7723\/revisions"}],"wp:attachment":[{"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7723"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7723"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7723"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}