{"id":22851,"date":"2011-12-06T12:54:22","date_gmt":"2011-12-06T09:54:22","guid":{"rendered":"http:\/\/studentpmr.ru\/?p=22851"},"modified":"2011-12-06T12:54:22","modified_gmt":"2011-12-06T09:54:22","slug":"%d0%bd%d0%b0%d0%b1%d0%be%d1%80-%d0%ba%d0%be%d0%bc%d0%b0%d0%bd%d0%b4-%d0%bf%d1%80%d0%be%d1%86%d0%b5%d1%81%d1%81%d0%be%d1%80%d0%b0-8086","status":"publish","type":"post","link":"http:\/\/studentpmr.ru\/?p=22851","title":{"rendered":"\u041d\u0430\u0431\u043e\u0440 \u043a\u043e\u043c\u0430\u043d\u0434 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430 8086"},"content":{"rendered":"

\u041d\u0430\u0431\u043e\u0440 \u043a\u043e\u043c\u0430\u043d\u0434 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430 8086
\n .8086 ; \u041d\u0430\u0431\u043e\u0440 \u043a\u043e\u043c\u0430\u043d\u0434 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430
\n .model tiny ; \u041c\u043e\u0434\u0435\u043b\u044c \u043f\u0430\u043c\u044f\u0442\u0438 (\u0434\u043b\u044f .COM)
\n .code ; \u041a\u043e\u0434\u043e\u0432\u044b\u0439 \u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.
\n;——————————————————————-
\n; \u0421\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044b
\n;——————————————————————-
\nHT equ 09h ; \u0413\u043e\u0440\u0438\u0437\u043e\u043d\u0442\u0430\u043b\u044c\u043d\u0430\u044f \u0442\u0430\u0431\u0443\u043b\u044f\u0446\u0438\u044f.
\nCR equ 0Dh ; \u0412\u043e\u0437\u0432\u0440\u0430\u0442 \u043a\u0430\u0440\u0435\u0442\u043a\u0438.
\nLF equ 0Ah ; \u041f\u0435\u0440\u0435\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438.
\nEL equ ‘$’ ; \u041a\u043e\u043d\u0435\u0446 \u0441\u0442\u0440\u043e\u043a\u0438 \u0434\u043b\u044f MS-DOS.
\n;——————————————————————-
\n
\n; \u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043f\u0440\u0435\u0444\u0438\u043a\u0441\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0433\u043e \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0430 (\u0430\u0434\u0440\u0435\u0441 CS:[0000h])
\n;——————————————————————-
\nPSP_struc struc
\n db 02Ch dup(?) ; \u041d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c.
\n psp_env dw ? ; \u0421\u0435\u0433\u043c\u0435\u043d\u0442 \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u044f.
\n db 052h dup(?) ; \u041d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c.
\n psp_par db 080h dup(?) ; \u041a\u043e\u043c\u0430\u043d\u0434\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430.
\nPSP_struc ends
\n;——————————————————————-
\n; \u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0431\u043b\u043e\u043a\u0430 \u0443\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u043f\u0430\u043c\u044f\u0442\u044c\u044e MS-DOS
\n;——————————————————————-
\nMCB_struc struc
\n MCB_type db ? ; \u0422\u0438\u043f \u0431\u043b\u043e\u043a\u0430 ( 4Dh \u0438\u043b\u0438 5Ah).
\n MCB_PSP dw ? ; \u0410\u0434\u0440\u0435\u0441 PSP, 0h \u0438\u043b\u0438 8h.
\n MCB_size dw ? ; \u0420\u0430\u0437\u043c\u0435\u0440 \u0431\u043b\u043e\u043a\u0430 \u0432 \u043f\u0430\u0440\u0430\u0433\u0440\u0430\u0444\u0430\u0445.
\n MCB_unused db 3 dup(?) ; \u041d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f.
\n MCB_prog db 8 dup(?) ; \u0418\u043c\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b-\u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0430.
\nMCB_struc ends
\n;\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0
\n;\u00b0 \u00b0
\n;\u00b0 \u0420\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u00b0
\n;\u00b0 \u00b0
\n;\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0
\n;
\n; \u041d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u0430\u0434\u0440\u0435\u0441\u0430 CS:[0000h] \u0438 \u0434\u043e \u0430\u0434\u0440\u0435\u0441\u0430 CS:[0100h] \u0440\u0430\u0441\u043f\u043e\u043b\u043e\u0436\u0435\u043d \u043f\u0440\u0435-
\n; \u0444\u0438\u043a\u0441 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u0433\u043e \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0430 (PSP), \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c MS-DOS \u0445\u0440\u0430\u043d\u0438\u0442 \u0434\u0430\u043d\u043d\u044b\u0435 \u043e
\n; \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435. PSP \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u0442\u0441\u044f \u0432 \u043f\u0430\u043c\u044f\u0442\u0438 \u0432\u043c\u0435\u0441\u0442\u0435 \u0441 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u044c\u044e.
\n;
\n org 100h ; \u041f\u0440\u043e\u043f\u0443\u0441\u0442\u0438\u0442\u044c PSP
\n;——————————————————————-
\n; \u0422\u043e\u0447\u043a\u0430 \u0432\u0445\u043e\u0434\u0430 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u043f\u0440\u0438 \u0437\u0430\u043f\u0443\u0441\u043a\u0435 (\u0441\u043e\u0433\u043b\u0430\u0448\u0435\u043d\u0438\u0435 \u0434\u043b\u044f .COM \u0444\u0430\u0439\u043b\u0430)
\n;——————————————————————-
\nstart: jmp setup ; \u041f\u0435\u0440\u0435\u0445\u043e\u0434 \u0432 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u044e\u0449\u0443\u044e \u0447\u0430\u0441\u0442\u044c
\n;——————————————————————-
\n; \u041e\u0431\u043b\u0430\u0441\u0442\u044c \u043d\u0435\u0438\u0437\u043c\u0435\u043d\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b
\n;——————————————————————-
\ncopyright db ‘ (C) \u0412\u044b\u0445\u043e\u0432\u0430\u043d\u0435\u0446 \u0412.\u0421. 1994 ‘; \u041f\u0440\u0430\u0432\u0430 \u043d\u0430 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435
\nnext_line db CR, LF, EL ; \u0421\u0438\u043c\u0432\u043e\u043b\u044b \u043d\u043e\u0432\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438.
\nflag_on db 0 ; \u0424\u043b\u0430\u0433 \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\nflag_in db 0 ; \u0424\u043b\u0430\u0433 \u0432\u0445\u043e\u0434\u0430 \u0432 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a.
\nint_no db 21h ; \u041f\u0435\u0440\u0435\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u0435\u043c\u043e\u0435 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0435
\nint_fun db 03Fh ; \u041e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f.
\nint_old label dword ; \u041c\u0435\u0442\u043a\u0430 \u0430\u0434\u0440\u0435\u0441\u0430 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431.
\nint_ofs dw 0 ; \u0421\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431-\u043a\u0430.
\nint_seg dw 0 ; \u0421\u0435\u0433\u043c\u0435\u043d\u0442 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431-\u043a\u0430.
\n;——————————————————————-
\n; \u041e\u0431\u043b\u0430\u0441\u0442\u044c \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u0434\u043b\u044f \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438
\n;——————————————————————-
\nint_count dw 0 ; \u0421\u0447\u0435\u0442\u0447\u0438\u043a \u0432\u0445\u043e\u0434\u043e\u0432 \u0432 \u043a\u0440\u0438\u0442.\u0441\u0435\u043a\u0446.
\n;——————————————————————-
\n; \u0422\u043e\u0447\u043a\u0430 \u0432\u0445\u043e\u0434\u0430 \u0432 \u043d\u043e\u0432\u044b\u0439 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f int_no
\n;——————————————————————-
\nint_new:
\n pushf ; \u0421\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435 \u0444\u043b\u0430\u0433\u043e\u0432 \u0438
\n push ax ; \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0445 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u043e\u0432.
\n sti
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0433\u043e \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u044f TSR
\n;——————————————————————-
\n cmp cs:[flag_on], 0h; \u0415\u0441\u043b\u0438 TSR \u0430\u043a\u0442\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0430,
\n jne int_test ; \u0442\u043e \u043d\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u0443\u0441\u043b\u043e\u0432\u0438\u044f.
\nint_old_ret: ; \u0418\u043d\u0430\u0447\u0435 \u0432\u044b\u0437\u043e\u0432 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431.
\n pop ax ; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u043e\u0432.
\n push cs:[int_seg] ; \u0412\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u0432 \u0441\u0442\u0435\u043a \u0430\u0434\u0440\u0435\u0441
\n push cs:[int_ofs] ; \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 int_no
\n iret ; \u0438 \u0435\u0433\u043e \u0432\u044b\u0437\u043e\u0432 \u0447\u0435\u0440\u0435\u0437 \u0432\u043e\u0437\u0432\u0440\u0430\u0442.
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0443\u0441\u043b\u043e\u0432\u0438\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043d\u043e\u0432\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 int_no
\n;——————————————————————-
\nint_test:
\n cmp ah, cs:[int_fun]; \u0415\u0441\u043b\u0438 \u043d\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u043c\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f,
\n jne int_old_ret ; \u0442\u043e \u043d\u0430 \u0432\u044b\u0437\u043e\u0432 \u0441\u0442\u043e\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431.
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0437\u0430\u043d\u044f\u0442\u043e\u0441\u0442\u0438 \u043d\u043e\u0432\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 int_no
\n;——————————————————————-
\nint_busy:
\n mov al, 0FFh ; \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u0435 «\u0437\u0430\u043d\u044f\u0442\u043e»
\n xchg al, cs:[flag_in]; \u041e\u0431\u043c\u0435\u043d\u044f\u0442\u044c \u0444\u043b\u0430\u0433\u0438.
\n cmp al, 0FFh ; \u0415\u0441\u043b\u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a \u0437\u0430\u043d\u044f\u0442,
\n je int_busy ; \u0442\u043e \u043e\u0436\u0438\u0434\u0430\u0442\u044c \u043e\u0441\u0432\u043e\u0431\u043e\u0436\u0434\u0435\u043d\u0438\u0435.
\n;——————————————————————-
\n; \u041d\u0430\u0447\u0430\u043b\u043e \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f int_no
\n;——————————————————————-
\n inc cs:[int_count] ; \u0414\u0430\u043b\u0435\u0435 \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c
\n; . . . ; \u0434\u0430\u043d\u043d\u044b\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438!
\n;——————————————————————-
\n; \u0415\u0441\u043b\u0438 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e, \u0442\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a \u0441 \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u043e\u043c \u0432 TSR
\n;——————————————————————-
\nint_old_call:
\n pop ax ; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u044b
\n popf ; \u0438 \u0444\u043b\u0430\u0433\u0438, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0437\u0430\u043d\u0435\u0441\u0442\u0438
\n pushf ; \u0432 \u0441\u0442\u0435\u043a \u0444\u043b\u0430\u0433\u0438 \u0434\u043b\u044f iret.
\n call cs:[int_old] ; \u0412\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u043e\u0431\u0440\u0430\u0431.
\n sti ; \u0420\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0439!!!
\n pushf ; \u0421\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435 \u0444\u043b\u0430\u0433\u043e\u0432 \u0438 \u0440\u0435\u0433.
\n push ax ; (\u0435\u0441\u043b\u0438 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e).
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0434\u043e\u043b\u0436\u0435\u043d\u0438\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f int_no
\n;——————————————————————-
\n; . . .
\n;——————————————————————-
\n; \u0417\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438 \u0438 \u043e\u0441\u0432\u043e\u0431\u043e\u0436\u0434\u0435\u043d\u0438\u0435 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 int_no
\n;——————————————————————-
\nint_free:
\n mov cs:[flag_in], 0 ; \u0421\u0431\u0440\u043e\u0441\u0438\u0442\u044c \u0444\u043b\u0430\u0433 \u0437\u0430\u043d\u044f\u0442\u043e\u0441\u0442\u0438.
\n;
\n; \u0414\u0430\u043b\u0435\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043d\u0435\u043b\u044c\u0437\u044f!
\n; \u0415\u0441\u043b\u0438 \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0432\u044b\u0437\u044b\u0432\u0430\u044e\u0449\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435 \u0434\u043e\u043b\u0436\u043d\u044b
\n; \u0431\u044b\u0442\u044c \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u044b \u0434\u0430\u043d\u043d\u044b\u0435 \u0447\u0435\u0440\u0435\u0437 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u044b \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430, \u0442\u043e \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e-
\n; \u0449\u0438\u0435 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u044b \u0434\u043e \u0441\u0431\u0440\u043e\u0441\u0430 \u0444\u043b\u0430\u0433\u0430 \u0437\u0430\u043d\u044f\u0442\u043e\u0441\u0442\u0438 \u0437\u0430\u043d\u043e\u0441\u044f\u0442\u0441\u044f \u044d\u0442\u0438 \u0434\u0430\u043d\u043d\u044b\u0435 .
\n;
\n;——————————————————————-
\n; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435 \u043d\u0435\u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c\u044b\u0445 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u043e\u0432 \u0438\u0437 \u0441\u0442\u0435\u043a\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0442
\n;——————————————————————-
\n pop ax ; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u043e\u0432 \u0438
\n popf ; \u0444\u043b\u0430\u0433\u043e\u0432 \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0442 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c-
\n retf 2 ; \u043c\u0443 \u0441 \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435\u043c \u0441\u0442\u0430\u0440\u044b\u0445 \u0444\u043b\u0430-
\n ; \u0433\u043e\u0432 \u0438\u0437 \u0441\u0442\u0435\u043a\u0430 \u0432\u044b\u0437\u043e\u0432\u0430.
\n;——————————————————————-
\n; \u041a\u043e\u043d\u0435\u0446 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438
\n;——————————————————————-
\nend_tsr label byte ; \u043c\u0435\u0442\u043a\u0430 \u043a\u043e\u043d\u0446\u0430 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430
\ncode_size equ ($-int_new)\/2 ; \u0434\u043b\u0438\u043d\u0430 \u043a\u043e\u0434\u0430 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430 \u0432 \u0441\u043b.
\n;\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0
\n;\u00b0 \u00b0
\n;\u00b0 \u0417\u0430\u043f\u0443\u0441\u043a\u0430\u044e\u0449\u0430\u044f \u0447\u0430\u0441\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u00b0
\n;\u00b0 \u00b0
\n;\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0\u00b0
\nsetup:
\n push cs ; \u0417\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0432 \u0440\u0435\u0433\u0438\u0441\u0442\u0440 DS
\n pop ds ; \u0430\u0434\u0440\u0435\u0441 \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.
\n;——————————————————————-
\n; \u0412\u044b\u0432\u043e\u0434 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b
\n;——————————————————————-
\n mov ah, 09h ; \u0412\u044b\u0432\u0435\u0441\u0442\u0438 \u043d\u0430 \u043a\u043e\u043d\u0441\u043e\u043b\u044c
\n lea dx, [next_line] ; \u0441\u0438\u043c\u0432\u043e\u043b\u044b «\u043d\u043e\u0432\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430»
\n int 21h ; \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 MS-DOS.
\n lea dx, [head_msg] ; \u0412\u044b\u0432\u0435\u0441\u0442\u0438 \u043d\u0430 \u043a\u043e\u043d\u0441\u043e\u043b\u044c
\n int 21h ; \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u044f \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0432 \u043e\u043f\u0435\u0440\u0430\u0442\u0438\u0432\u043d\u043e\u0439 \u043f\u0430\u043c\u044f\u0442\u0438
\n;——————————————————————-
\ncheck:
\n mov ah, 52h ; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0441\u043f\u0438\u0441\u043a\u0430
\n int 21h ; \u0441\u043f\u0438\u0441\u043a\u043e\u0432 MS-DOS \u0438 \u0437\u0430\u043d\u0435\u0441\u0442\u0438
\n mov bx, es:[bx-2] ; \u0432 BX \u0430\u0434\u0440\u0435\u0441 \u0431\u043b\u043e\u043a\u0430 \u043f\u0430\u043c\u044f\u0442\u0438.
\n mov dx, cs ; DX= \u0441\u0435\u0433. \u0430\u0434\u0440\u0435\u0441 PSP \u043f\u0440\u043e\u0433\u0440.
\ncheck_next:
\n mov es, bx ; ES=\u0441\u0435\u0433. \u0430\u0434\u0440\u0435\u0441 \u0442\u0435\u043a. \u0431\u043b\u043e\u043a\u0430.
\n cmp es:[MCB_type], 05Ah ; \u0415\u0441\u043b\u0438 \u0431\u043b\u043e\u043a \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439,
\n je command ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u043e\u0431\u0440. \u043a\u043e\u043c\u0430\u043d\u0434.<\/p>\n

cmp es:[MCB_type], 04Dh ; \u0415\u0441\u043b\u0438 \u0442\u0438\u043f \u0431\u043b\u043e\u043a\u0430 \u043d\u0435 4Dh,
\n jne check_error ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043f\u043e \u043e\u0448\u0438\u0431\u043a\u0435.
\n add bx, es:[MCB_size]; \u0412\u044b\u0447\u0438\u0441\u043b\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435-
\n inc bx ; \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430 \u0431\u043b\u043e\u043a\u0430 \u043f\u0430\u043c\u044f\u0442\u0438.
\n mov ax, es:[MCB_PSP]; AX=PSP \u0438\u0437 \u0442\u0435\u043a\u0443\u0449\u0435\u0433\u043e \u0431\u043b\u043e\u043a\u0430.
\n cmp ax, 8 ; \u0415\u0441\u043b\u0438 \u0431\u043b\u043e\u043a \u041e\u0421 \u0438\u043b\u0438 \u0441\u0432\u043e\u0431.,
\n jbe check_next ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0441\u043b\u0435\u0434. \u0431\u043b\u043e\u043a.
\n cmp ax, dx ; \u0415\u0441\u043b\u0438 \u044d\u0442\u043e \u0431\u043b\u043e\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b,
\n je check_next ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0441\u043b\u0435\u0434. \u0431\u043b\u043e\u043a.<\/p>\n

cld ; \u0421\u0431\u0440\u043e\u0441 \u0444\u043b\u0430\u0433\u0430 \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f.
\n mov es, ax ; ES=PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n lea si, [int_new] ; SI=DI=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438-
\n mov di, si ; \u043a\u0430 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0432 \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0435.
\n mov cx, code_size ; CX=\u0434\u043b\u0438\u043d\u0430 \u043a\u043e\u0434\u0430 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n repe cmpsw ; \u0421\u0440\u0430\u0432\u043d\u0438\u0442\u044c \u043a\u043e\u0434 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432
\n jne check_next ; \u041f\u0435\u0440\u0435\u0445\u043e\u0434 \u043f\u043e \u043d\u0435\u0441\u043e\u0432\u043f\u0430\u0434\u0435\u043d\u0438\u044e.
\n mov [PSP_tsr], es ; \u0421\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430
\n jmp short check_next; \u0438 \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0441\u043b\u0435\u0434. \u0431\u043b\u043e\u043a.
\ncheck_error:
\n lea dx, [error_msg] ; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n jmp short terminate ; \u041f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432, \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435
\n;——————————————————————-
\ncommand:
\n lea si, ds:[psp_par]; SI=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043a\u043e\u043c\u0430\u043d\u0434\u043d\u043e\u0439 \u0441\u0442\u0440.
\n mov al, [si] ; \u0427\u0442\u0435\u043d\u0438\u0435 \u0434\u043b\u0438\u043d\u044b \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 AL.
\n mov cl, al ; \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0441\u0447\u0435\u0442\u0447\u0438\u043a\u0430 \u0441\u0438\u043c\u0432\u043e-
\n mov ch, 0 ; \u043b\u043e\u0432 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435 \u0432 CX.
\ncommand_loop:
\n inc si ; SI=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043b\u0435\u0434. \u0441\u0438\u043c\u0432\u043e\u043b\u0430.
\n dec cx ; \u0423\u043c\u0435\u043d\u044c\u0448\u0438\u0442\u044c \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u0442\u0440\u043e\u043a\u0438.
\n jl command_absent ; \u041f\u0435\u0440\u0435\u0445\u043e\u0434, \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0438\u0441\u0447\u0435\u0440\u043f\u0430\u043d.
\n mov ax, [si] ; AX=\u0434\u0432\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u0438\u0437 \u0441\u0442\u0440\u043e\u043a\u0438.
\n cmp ax, ‘I\/’ ; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/I,
\n je install ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u043f\u0443\u0441\u043a.
\n cmp ax, ‘i\/’ ; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/i,
\n je install ; \u0442\u043e \u0442\u043e\u0436\u0435 \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u043f\u0443\u0441\u043a
\n cmp ax, ‘U\/’ ; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/U,
\n je relese ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n cmp ax, ‘u\/’ ; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/u,
\n je relese ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n cmp al, CR ; E\u0441\u043b\u0438 \u043d\u0435 \u043a\u043e\u043d\u0435\u0446 \u0441\u0442\u0440\u043e\u043a\u0438,
\n jne command_loop ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u0432 \u043d\u0430\u0447\u0430\u043b\u043e \u0446\u0438\u043a\u043b\u0430
\ncommand_absent:
\n lea dx, [nopar_msg] ; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n jmp short terminate ; \u041f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n;——————————————————————-
\n; \u0417\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u0440\u0430\u0431\u043e\u0442\u044b \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 (\u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u0435\u0435 \u0438\u0437 \u043f\u0430\u043c\u044f\u0442\u0438)
\n;——————————————————————-
\nrelese:
\n lea dx, [absent_msg]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n mov ax, [PSP_tsr] ; AX=\u0430\u0434\u0440\u0435\u0441 PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n or ax, ax ; E\u0441\u043b\u0438 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430 \u043d\u0435\u0442,
\n jz terminate ; \u0442\u043e \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.<\/p>\n

mov es, ax ; C\u0431\u0440\u043e\u0441 \u0444\u043b\u0430\u0433\u0430 \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u044f
\n mov es:[flag_on], 0h; \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f.<\/p>\n

mov ah, 035h ; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0432 ES:BX
\n mov al, int_no ; \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u0435-
\n int 21h ; \u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0441 \u043d\u043e\u043c\u0435\u0440\u043e\u043c int_no.<\/p>\n

lea dx, [deact_msg] ; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n cmp bx, offset int_new; \u0415\u0441\u043b\u0438 \u0441\u043c\u0435\u0449\u0435\u043d\u0438\u044f \u043d\u0435 \u0440\u0430\u0432\u043d\u044b,
\n jne terminate ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n mov ax, es ; AX=\u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430.
\n cmp ax, [PSP_tsr] ; \u0415\u0441\u043b\u0438 \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u044b \u043d\u0435 \u0440\u0430\u0432\u043d\u044b,
\n jne terminate ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.<\/p>\n

mov ah, 025h ; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u0430\u0434\u0440\u0435\u0441
\n mov al, int_no ; \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438
\n mov dx, es:[int_ofs]; \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f int_no,
\n mov ds, es:[int_seg]; \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u043d\u044b\u0439 \u0432 DS:DX
\n int 21h ; \u0438\u0437 \u0442\u0435\u043b\u0430 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438.
\nrelese_wait:
\n cmp es:[flag_in], 0 ; \u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u043e\u0441\u0432\u043e\u0431\u043e\u0436\u0434\u0435\u043d\u0438\u044f \u043a\u0440\u0438-
\n jne relese_wait ; \u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n mov ah, 49h ; \u041e\u0441\u0432\u043e\u0431\u043e\u0434\u0438\u0442\u044c \u0431\u043b\u043e\u043a, \u0432\u044b\u0434\u0435\u043b\u0435\u043d-
\n int 21h ; \u043d\u044b\u0439 \u0434\u043b\u044f \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438.<\/p>\n

push cs ; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0432 DS \u0430\u0434\u0440\u0435\u0441
\n pop ds ; \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0430 \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.
\n lea dx,[release_msg]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n;——————————————————————-
\n; \u0412\u044b\u0434\u0430\u0447\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0438 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0435\u0439 \u043a\u043e\u0434\u0430 \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u0430 DOS
\n;——————————————————————-
\nterminate:
\n mov bx, dx ; \u0421\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n inc dx ; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0432 DX \u0441\u043c\u0435\u0449.\u0441\u0442\u0440\u043e\u043a\u0438.
\n mov ah, 09h ; \u0412\u044b\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438, \u043e\u043a\u0430\u043d\u0447\u0438\u0432\u0430\u044e-
\n int 21h ; \u0449\u0435\u0439\u0441\u044f ‘$’ \u043d\u0430 \u043a\u043e\u043d\u0441\u043e\u043b\u044c.
\n lea dx, copyright ; \u0412\u044b\u0432\u043e\u0434 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e \u043f\u0440\u0430\u0432\u0430\u0445
\n int 21h ; \u043d\u0430 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n

mov ah, 04Ch ; \u0417\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u0440\u0430\u0431\u043e\u0442\u044b \u043f\u0440\u043e\u0433-
\n mov al, [bx] ; \u0440\u0430\u043c\u043c\u044b \u0441 \u043a\u043e\u0434\u043e\u043c \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u0430
\n int 21h ; \u0432 \u043d\u0430\u0447\u0430\u043b\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0438\u0437 DX.
\n;——————————————————————-
\n; \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043d\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u0435 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0438 \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0435\u0435 \u0440\u0430\u0431\u043e\u0442\u044b
\n;——————————————————————-
\ninstall:
\n mov ax, [PSP_tsr] ; AX=\u0430\u0434\u0440\u0435\u0441 PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n or ax, ax ; E\u0441\u043b\u0438 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430 \u043d\u0435\u0442,
\n jz install_tsr ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443.<\/p>\n

mov es, ax ; ES=\u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n mov es:[flag_on], 0FFh ; \u0420\u0430\u0437\u0440\u0435\u0448\u0438\u0442\u044c \u0440\u0430\u0431\u043e\u0442\u0443 \u0440\u0435\u0437\u0438\u0434.
\n lea dx, [presnt_msg]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n jmp short terminate ; \u041f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n;——————————————————————-
\n; \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 (\u0438\u043d\u0441\u0442\u0430\u043b\u044f\u0446\u0438\u044f) \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b
\n;——————————————————————-
\ninstall_tsr:
\n mov es, ds:[psp_env]; \u041e\u0441\u0432\u043e\u0431\u043e\u0434\u0438\u0442\u044c \u0431\u043b\u043e\u043a \u043f\u0430\u043c\u044f\u0442\u0438,
\n mov ah, 49h ; \u0437\u0430\u043d\u0438\u043c\u0430\u0435\u043c\u044b\u0439 \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u0435\u043c
\n int 21h ; \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.<\/p>\n

mov ah, 035h ; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0442\u0435\u043a\u0443\u0449\u0435\u0433\u043e
\n mov al, int_no ; \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f<\/p>\n

int 21h ; \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0435\u0433\u043e \u0432 \u0442\u0435\u043b\u0435
\n mov int_ofs, bx ; \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0434\u043b\u044f
\n mov int_seg, es ; \u0441\u0432\u044f\u0437\u0438 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a.
\n mov ah, 025h ; \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u043d\u043e\u0432\u043e\u0433\u043e
\n mov al, int_no ; \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f
\n lea dx, int_new ; \u0441 \u043d\u043e\u043c\u0435\u0440\u043e\u043c int_no, \u043d\u0430\u0445\u043e\u0434\u044f-
\n int 21h ; \u0449\u0435\u0433\u043e\u0441\u044f \u0432 \u0442\u0435\u043b\u0435 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.<\/p>\n

lea dx, [inst_msg+1]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u0441\u043e\u043e\u0431\u0449.
\n mov ah, 9 ; \u0412\u044b\u0432\u043e\u0434 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0435
\n int 21h ; \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438.
\n lea dx, copyright ; \u0412\u044b\u0432\u043e\u0434 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e \u043f\u0440\u0430\u0432\u0430\u0445
\n int 21h ; \u043d\u0430 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n

mov [flag_on], 0FFh ; \u0420\u0430\u0437\u0440\u0435\u0448\u0438\u0442\u044c \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u043f\u0440\u0435\u0440\u044b\u0432.<\/p>\n

lea dx, [end_tsr+15]; \u0412\u044b\u0447\u0438\u0441\u043b\u0438\u0442\u044c \u0434\u043b\u0438\u043d\u0443 \u0440\u0435\u0437\u0438\u0434\u0435\u043d-
\n mov cl, 4 ; \u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432
\n shr dx, cl ; \u043f\u0430\u0440\u0430\u0433\u0440\u0430\u0444\u0430\u0445 \u0438 \u0437\u0430\u0432\u0435\u0440\u0448\u0438\u0442\u044c
\n mov al, [inst_msg] ; \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0441 \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435\u043c
\n mov ah, 031h ; \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0432 \u043f\u0430\u043c\u044f\u0442\u0438
\n int 21h ; \u0438 \u043a\u043e\u0434\u043e\u043c \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u0430 \u0438\u0437 \u0441\u043e\u043e\u0431\u0449.
\n;——————————————————————-
\n; \u041e\u0431\u043b\u0430\u0441\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u044e\u0449\u0435\u0439 \u0447\u0430\u0441\u0442\u0438 \u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b
\n;——————————————————————-
\nPSP_tsr dw 0 ; \u0410\u0434\u0440\u0435\u0441 PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430
\nhead_msg db ‘\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 TSR’, EL
\ninst_msg db 0, ‘ \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0430.’, EL
\npresnt_msg db 1, ‘ \u0430\u043a\u0442\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0430.’, EL
\ndeact_msg db 2, ‘ \u0434\u0435\u0430\u043a\u0442\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0430.’, EL
\nabsent_msg db 3, ‘ \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u0432 \u043f\u0430\u043c\u044f\u0442\u0438.’, EL
\nrelease_msg db 4, ‘ \u0443\u0434\u0430\u043b\u0435\u043d\u0430 \u0438\u0437 \u043f\u0430\u043c\u044f\u0442\u0438.’, EL
\nnopar_msg db 5, ‘ \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u0431\u0435\u0437 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432.’, EL
\nerror_msg db 6, ‘ (\u043d\u0430\u0440\u0443\u0448\u0435\u043d\u0430 \u0446\u0435\u043b\u043e\u0441\u0442\u043d\u043e\u0441\u0442\u044c MS-DOS).’, EL
\n;——————————————————————-
\n end start ; \u0422\u043e\u0447\u043a\u0430 \u0432\u0445\u043e\u0434\u0430 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443<\/p>\n","protected":false},"excerpt":{"rendered":"

\u041d\u0430\u0431\u043e\u0440 \u043a\u043e\u043c\u0430\u043d\u0434 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430 8086 .8086 ; \u041d\u0430\u0431\u043e\u0440 \u043a\u043e\u043c\u0430\u043d\u0434 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430 .model tiny ; \u041c\u043e\u0434\u0435\u043b\u044c \u043f\u0430\u043c\u044f\u0442\u0438 (\u0434\u043b\u044f .COM) .code ; \u041a\u043e\u0434\u043e\u0432\u044b\u0439 \u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b. ;——————————————————————- ; \u0421\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044b ;——————————————————————- HT equ 09h ; \u0413\u043e\u0440\u0438\u0437\u043e\u043d\u0442\u0430\u043b\u044c\u043d\u0430\u044f \u0442\u0430\u0431\u0443\u043b\u044f\u0446\u0438\u044f. CR equ 0Dh ; \u0412\u043e\u0437\u0432\u0440\u0430\u0442 \u043a\u0430\u0440\u0435\u0442\u043a\u0438. LF equ 0Ah ; \u041f\u0435\u0440\u0435\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438. EL equ ‘$’ ; \u041a\u043e\u043d\u0435\u0446 \u0441\u0442\u0440\u043e\u043a\u0438 \u0434\u043b\u044f MS-DOS. ;——————————————————————-<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[28],"tags":[],"_links":{"self":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/22851"}],"collection":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=22851"}],"version-history":[{"count":1,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/22851\/revisions"}],"predecessor-version":[{"id":22852,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/22851\/revisions\/22852"}],"wp:attachment":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=22851"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=22851"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=22851"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}