{"id":22849,"date":"2011-12-06T12:52:45","date_gmt":"2011-12-06T09:52:45","guid":{"rendered":"http:\/\/studentpmr.ru\/?p=22849"},"modified":"2011-12-06T12:52:45","modified_gmt":"2011-12-06T09:52:45","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-tsr","status":"publish","type":"post","link":"http:\/\/studentpmr.ru\/?p=22849","title":{"rendered":"\u041b\u0418\u0421\u0422\u0418\u041d\u0413 \u041f\u0420\u041e\u0413\u0420\u0410\u041c\u041c\u042b TSR"},"content":{"rendered":"

\t\t\t \u041f\u0420\u0418\u041b\u041e\u0416\u0415\u041d\u0418\u0415 1
\n\t\t \u041b\u0418\u0421\u0422\u0418\u041d\u0413 \u041f\u0420\u041e\u0413\u0420\u0410\u041c\u041c\u042b TSR<\/p>\n

\u041fp\u043e\u0433p\u0430\u043c\u043c\u0430 OS02.ASM \u043c\u043e\u0436\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u043fp\u0438\u043c\u0435p\u043e\u043c \u043fp\u043e\u0433p\u0430\u043c\u043c\u044b TSR. \u0412 p\u0435-
\n\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 p\u0430\u0431\u043e\u0442\u044b \u043fp\u043e\u0433p\u0430\u043c\u043c\u044b \u043f\u0435\u0440\u0435\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0437\u0430\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439
\nint_no \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0435 \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u0435\u0433\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 int_fun. \u041f\u0440\u043e\u0433-
\n\u0440\u0430\u043c\u043c\u0430 \u0441\u0430\u043c\u043e\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0430 \u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u043f\u043e\u044f\u0441\u043d\u0435\u043d\u0438\u044f.<\/p>\n

;——————————————————————-
\n\t\t.8086\t\t\t; \u041d\u0430\u0431\u043e\u0440 \u043a\u043e\u043c\u0430\u043d\u0434 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430
\n\t\t.model tiny\t\t; \u041c\u043e\u0434\u0435\u043b\u044c \u043f\u0430\u043c\u044f\u0442\u0438 (\u0434\u043b\u044f .COM)
\n\t\t.code\t\t\t; \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\t\tequ\t09h\t\t; \u0413\u043e\u0440\u0438\u0437\u043e\u043d\u0442\u0430\u043b\u044c\u043d\u0430\u044f \u0442\u0430\u0431\u0443\u043b\u044f\u0446\u0438\u044f.
\nCR\t\tequ\t0Dh\t\t; \u0412\u043e\u0437\u0432\u0440\u0430\u0442 \u043a\u0430\u0440\u0435\u0442\u043a\u0438.
\nLF\t\tequ\t0Ah\t\t; \u041f\u0435\u0440\u0435\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438.
\nEL\t\tequ\t‘$’\t\t; \u041a\u043e\u043d\u0435\u0446 \u0441\u0442\u0440\u043e\u043a\u0438 \u0434\u043b\u044f MS-DOS.
\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\tstruc
\n\t\tdb\t02Ch dup(?)\t; \u041d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c.
\n psp_env\tdw\t?\t\t; \u0421\u0435\u0433\u043c\u0435\u043d\u0442 \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u044f.
\n\t\tdb\t052h dup(?)\t; \u041d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c.
\n psp_par\tdb\t080h dup(?)\t; \u041a\u043e\u043c\u0430\u043d\u0434\u043d\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430.
\nPSP_struc\tends
\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\tstruc
\n MCB_type\tdb\t?\t\t; \u0422\u0438\u043f \u0431\u043b\u043e\u043a\u0430 ( 4Dh \u0438\u043b\u0438 5Ah).
\n MCB_PSP\tdw\t?\t\t; \u0410\u0434\u0440\u0435\u0441 PSP, 0h \u0438\u043b\u0438 8h.
\n MCB_size\tdw\t?\t\t; \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\tdb\t3 dup(?)\t; \u041d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f.
\n MCB_prog\tdb\t8 dup(?)\t; \u0418\u043c\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b-\u0432\u043b\u0430\u0434\u0435\u043b\u044c\u0446\u0430.
\nMCB_struc\tends
\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\t\torg\t100h\t\t; \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:\t\tjmp\tsetup\t ; \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\tdb ‘ (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\tdb\tCR, LF, EL\t; \u0421\u0438\u043c\u0432\u043e\u043b\u044b \u043d\u043e\u0432\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438.
\nflag_on\t\tdb\t0\t\t; \u0424\u043b\u0430\u0433 \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.<\/p>\n

\t\t\t\t\t\t\t\t 33<\/p>\n

flag_in\t\tdb\t0\t\t; \u0424\u043b\u0430\u0433 \u0432\u0445\u043e\u0434\u0430 \u0432 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a.
\nint_no\t\tdb\t21h\t\t; \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\t\tdb\t03Fh\t\t; \u041e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f.
\nint_old\t\tlabel\tdword\t\t; \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\t\tdw\t0\t\t; \u0421\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431-\u043a\u0430.
\nint_seg\t\tdw\t0\t\t; \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\tdw\t0\t\t; \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\t\tpushf\t\t\t; \u0421\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435 \u0444\u043b\u0430\u0433\u043e\u0432 \u0438
\n\t\tpush\tax\t\t; \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0445 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u043e\u0432.
\n \t\tsti
\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\t\tcmp\tcs:[flag_on], 0h; \u0415\u0441\u043b\u0438 TSR \u0430\u043a\u0442\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0430,
\n\t\tjne\tint_test\t; \u0442\u043e \u043d\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u0443\u0441\u043b\u043e\u0432\u0438\u044f.
\nint_old_ret:\t\t\t\t; \u0418\u043d\u0430\u0447\u0435 \u0432\u044b\u0437\u043e\u0432 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431.
\n\t\tpop\tax\t\t; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435 \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u043e\u0432.
\n\t\tpush\tcs:[int_seg]\t; \u0412\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u0432 \u0441\u0442\u0435\u043a \u0430\u0434\u0440\u0435\u0441
\n\t\tpush\tcs:[int_ofs]\t; \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 int_no
\n\t\tiret\t\t\t; \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\t\tcmp\tah, 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\t\tjne\tint_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\t\tmov\tal, 0FFh\t; \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u0435 «\u0437\u0430\u043d\u044f\u0442\u043e»
\n\t\txchg\tal, cs:[flag_in]; \u041e\u0431\u043c\u0435\u043d\u044f\u0442\u044c \u0444\u043b\u0430\u0433\u0438.
\n\t\tcmp\tal, 0FFh\t; \u0415\u0441\u043b\u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a \u0437\u0430\u043d\u044f\u0442,
\n\t\tje\tint_busy\t; \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 \t\tinc\tcs:[int_count]\t; \u0414\u0430\u043b\u0435\u0435 \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c
\n;\t\t. . .\t\t\t; \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\t\tpop\tax\t\t; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u044b
\n\t\tpopf\t\t\t; \u0438 \u0444\u043b\u0430\u0433\u0438, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0437\u0430\u043d\u0435\u0441\u0442\u0438
\n\t\tpushf\t\t\t; \u0432 \u0441\u0442\u0435\u043a \u0444\u043b\u0430\u0433\u0438 \u0434\u043b\u044f iret.
\n\t\tcall\tcs:[int_old]\t; \u0412\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u043e\u0431\u0440\u0430\u0431.
\n\t\tsti\t\t\t; \u0420\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0439!!!
\n\t\tpushf\t\t\t; \u0421\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435 \u0444\u043b\u0430\u0433\u043e\u0432 \u0438 \u0440\u0435\u0433.
\n\t\tpush\tax\t\t; (\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;\t\t. . .<\/p>\n

34<\/p>\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\t\tmov\tcs:[flag_in], 0\t; \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\t\tpop\tax\t\t; \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\t\tpopf\t\t\t; \u0444\u043b\u0430\u0433\u043e\u0432 \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0442 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c-
\n\t\tretf\t2\t\t; \u043c\u0443 \u0441 \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435\u043c \u0441\u0442\u0430\u0440\u044b\u0445 \u0444\u043b\u0430-
\n\t\t\t\t\t; \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\t\tlabel\tbyte\t\t; \u043c\u0435\u0442\u043a\u0430 \u043a\u043e\u043d\u0446\u0430 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430
\ncode_size\tequ\t($-int_new)\/2\t; \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\t\tpush\tcs\t\t; \u0417\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0432 \u0440\u0435\u0433\u0438\u0441\u0442\u0440 DS
\n\t\tpop\tds\t\t; \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\t\tmov\tah, 09h\t\t; \u0412\u044b\u0432\u0435\u0441\u0442\u0438 \u043d\u0430 \u043a\u043e\u043d\u0441\u043e\u043b\u044c
\n\t\tlea\tdx, [next_line]\t; \u0441\u0438\u043c\u0432\u043e\u043b\u044b «\u043d\u043e\u0432\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430»
\n\t\tint\t21h\t\t; \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 MS-DOS.
\n\t\tlea\tdx, [head_msg]\t; \u0412\u044b\u0432\u0435\u0441\u0442\u0438 \u043d\u0430 \u043a\u043e\u043d\u0441\u043e\u043b\u044c
\n\t\tint\t21h ; \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\t\tmov\tah, 52h\t\t; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0441\u043f\u0438\u0441\u043a\u0430
\n\t\tint\t21h\t\t; \u0441\u043f\u0438\u0441\u043a\u043e\u0432 MS-DOS \u0438 \u0437\u0430\u043d\u0435\u0441\u0442\u0438
\n\t\tmov\tbx, es:[bx-2]\t; \u0432 BX \u0430\u0434\u0440\u0435\u0441 \u0431\u043b\u043e\u043a\u0430 \u043f\u0430\u043c\u044f\u0442\u0438.
\n\t\tmov\tdx, cs\t\t; DX= \u0441\u0435\u0433. \u0430\u0434\u0440\u0435\u0441 PSP \u043f\u0440\u043e\u0433\u0440.
\ncheck_next:
\n\t\tmov\tes, bx\t\t; ES=\u0441\u0435\u0433. \u0430\u0434\u0440\u0435\u0441 \u0442\u0435\u043a. \u0431\u043b\u043e\u043a\u0430.
\n\t\tcmp\tes:[MCB_type], 05Ah ; \u0415\u0441\u043b\u0438 \u0431\u043b\u043e\u043a \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439,
\n\t\tje\tcommand\t\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u043e\u0431\u0440. \u043a\u043e\u043c\u0430\u043d\u0434.<\/p>\n

\t\tcmp\tes:[MCB_type], 04Dh ; \u0415\u0441\u043b\u0438 \u0442\u0438\u043f \u0431\u043b\u043e\u043a\u0430 \u043d\u0435 4Dh,
\n\t\tjne\tcheck_error\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043f\u043e \u043e\u0448\u0438\u0431\u043a\u0435.
\n\t\tadd\tbx, 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\t\tinc\tbx\t\t; \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430 \u0431\u043b\u043e\u043a\u0430 \u043f\u0430\u043c\u044f\u0442\u0438.
\n\t\tmov\tax, es:[MCB_PSP]; AX=PSP \u0438\u0437 \u0442\u0435\u043a\u0443\u0449\u0435\u0433\u043e \u0431\u043b\u043e\u043a\u0430.
\n\t\tcmp\tax, 8\t\t; \u0415\u0441\u043b\u0438 \u0431\u043b\u043e\u043a \u041e\u0421 \u0438\u043b\u0438 \u0441\u0432\u043e\u0431.,
\n\t\tjbe\tcheck_next\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0441\u043b\u0435\u0434. \u0431\u043b\u043e\u043a.<\/p>\n

\t\t\t\t\t\t\t\t 35<\/p>\n

\t\tcmp\tax, dx\t\t; \u0415\u0441\u043b\u0438 \u044d\u0442\u043e \u0431\u043b\u043e\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b,
\n\t\tje\tcheck_next\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0441\u043b\u0435\u0434. \u0431\u043b\u043e\u043a.<\/p>\n

\t\tcld\t\t\t; \u0421\u0431\u0440\u043e\u0441 \u0444\u043b\u0430\u0433\u0430 \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f.
\n\t\tmov\tes, ax\t\t; ES=PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n\t\tlea\tsi, [int_new]\t; SI=DI=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438-
\n\t\tmov\tdi, si\t\t; \u043a\u0430 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0432 \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0435.
\n\t\tmov\tcx, code_size\t; CX=\u0434\u043b\u0438\u043d\u0430 \u043a\u043e\u0434\u0430 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n\t\trepe\tcmpsw\t\t; \u0421\u0440\u0430\u0432\u043d\u0438\u0442\u044c \u043a\u043e\u0434 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432
\n\t\tjne\tcheck_next\t; \u041f\u0435\u0440\u0435\u0445\u043e\u0434 \u043f\u043e \u043d\u0435\u0441\u043e\u0432\u043f\u0430\u0434\u0435\u043d\u0438\u044e.
\n\t\tmov\t[PSP_tsr], es\t; \u0421\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430
\n\t\tjmp\tshort check_next; \u0438 \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0441\u043b\u0435\u0434. \u0431\u043b\u043e\u043a.
\ncheck_error:
\n\t\tlea\tdx, [error_msg]\t; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n\t\tjmp\tshort terminate\t; \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\t\tlea\tsi, 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\t\tmov\tal, [si]\t; \u0427\u0442\u0435\u043d\u0438\u0435 \u0434\u043b\u0438\u043d\u044b \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 AL.
\n\t\tmov\tcl, al\t\t; \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0441\u0447\u0435\u0442\u0447\u0438\u043a\u0430 \u0441\u0438\u043c\u0432\u043e-
\n\t\tmov\tch, 0\t\t; \u043b\u043e\u0432 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435 \u0432 CX.
\ncommand_loop:
\n\t\tinc\tsi\t\t; SI=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043b\u0435\u0434. \u0441\u0438\u043c\u0432\u043e\u043b\u0430.
\n\t\tdec\tcx\t\t; \u0423\u043c\u0435\u043d\u044c\u0448\u0438\u0442\u044c \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u0442\u0440\u043e\u043a\u0438.
\n\t\tjl\tcommand_absent\t; \u041f\u0435\u0440\u0435\u0445\u043e\u0434, \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0438\u0441\u0447\u0435\u0440\u043f\u0430\u043d.
\n\t\tmov\tax, [si]\t; AX=\u0434\u0432\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u0438\u0437 \u0441\u0442\u0440\u043e\u043a\u0438.
\n\t\tcmp\tax, ‘I\/’\t; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/I,
\n\t\tje\tinstall\t\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u043f\u0443\u0441\u043a.
\n\t\tcmp\tax, ‘i\/’\t; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/i,
\n\t\tje\tinstall ; \u0442\u043e \u0442\u043e\u0436\u0435 \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u043f\u0443\u0441\u043a
\n\t\tcmp\tax, ‘U\/’\t; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/U,
\n\t\tje\trelese ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n\t\tcmp\tax, ‘u\/’\t; \u0415\u0441\u043b\u0438 \u0437\u0430\u0434\u0430\u043d\u0430 \u043a\u043e\u043c\u0430\u043d\u0434\u0430 \/u,
\n\t\tje\trelese ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.
\n\t\tcmp\tal, CR\t\t; E\u0441\u043b\u0438 \u043d\u0435 \u043a\u043e\u043d\u0435\u0446 \u0441\u0442\u0440\u043e\u043a\u0438,
\n\t\tjne\tcommand_loop\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u0432 \u043d\u0430\u0447\u0430\u043b\u043e \u0446\u0438\u043a\u043b\u0430
\ncommand_absent:
\n\t\tlea\tdx, [nopar_msg]\t; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n\t\tjmp\tshort terminate\t; \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\t\tlea\tdx, [absent_msg]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n\t\tmov\tax, [PSP_tsr]\t; AX=\u0430\u0434\u0440\u0435\u0441 PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n\t\tor\tax, ax\t\t; E\u0441\u043b\u0438 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430 \u043d\u0435\u0442,
\n\t\tjz\tterminate\t; \u0442\u043e \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.<\/p>\n

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

\t\tmov\tah, 035h\t; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0432 ES:BX
\n\t\tmov\tal, int_no\t; \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u0435-
\n\t\tint\t21h\t\t; \u0440\u044b\u0432\u0430\u043d\u0438\u044f \u0441 \u043d\u043e\u043c\u0435\u0440\u043e\u043c int_no.<\/p>\n

\t\tlea\tdx, [deact_msg]\t; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n\t\tcmp\tbx, offset int_new; \u0415\u0441\u043b\u0438 \u0441\u043c\u0435\u0449\u0435\u043d\u0438\u044f \u043d\u0435 \u0440\u0430\u0432\u043d\u044b,
\n\t\tjne\tterminate\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.<\/p>\n

36<\/p>\n

\t\tmov\tax, es\t\t; AX=\u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430.
\n\t\tcmp\tax, [PSP_tsr]\t; \u0415\u0441\u043b\u0438 \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u044b \u043d\u0435 \u0440\u0430\u0432\u043d\u044b,
\n\t\tjne\tterminate\t; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435.<\/p>\n

\t\tmov\tah, 025h\t; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u0430\u0434\u0440\u0435\u0441
\n\t\tmov\tal, int_no\t; \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438
\n\t\tmov\tdx, es:[int_ofs]; \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f int_no,
\n\t\tmov\tds, es:[int_seg]; \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u043d\u044b\u0439 \u0432 DS:DX
\n\t\tint\t21h\t\t; \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\t\tcmp\tes:[flag_in], 0\t; \u041e\u0436\u0438\u0434\u0430\u043d\u0438\u0435 \u043e\u0441\u0432\u043e\u0431\u043e\u0436\u0434\u0435\u043d\u0438\u044f \u043a\u0440\u0438-
\n\t\tjne\trelese_wait\t; \u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0441\u0435\u043a\u0446\u0438\u0438 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n\t\tmov\tah, 49h\t\t; \u041e\u0441\u0432\u043e\u0431\u043e\u0434\u0438\u0442\u044c \u0431\u043b\u043e\u043a, \u0432\u044b\u0434\u0435\u043b\u0435\u043d-
\n\t\tint\t21h\t\t; \u043d\u044b\u0439 \u0434\u043b\u044f \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438.<\/p>\n

\t\tpush\tcs\t\t; \u0412\u043e\u0441\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0432 DS \u0430\u0434\u0440\u0435\u0441
\n\t\tpop\tds\t\t; \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\t\tlea\tdx,[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\t\tmov\tbx, dx\t\t; \u0421\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n\t\tinc\tdx\t\t; \u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0432 DX \u0441\u043c\u0435\u0449.\u0441\u0442\u0440\u043e\u043a\u0438.
\n\t\tmov\tah, 09h\t\t; \u0412\u044b\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438, \u043e\u043a\u0430\u043d\u0447\u0438\u0432\u0430\u044e-
\n\t\tint\t21h\t\t; \u0449\u0435\u0439\u0441\u044f ‘$’ \u043d\u0430 \u043a\u043e\u043d\u0441\u043e\u043b\u044c.
\n\t\tlea\tdx, copyright\t; \u0412\u044b\u0432\u043e\u0434 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e \u043f\u0440\u0430\u0432\u0430\u0445
\n\t\tint\t21h\t\t; \u043d\u0430 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n

\t\tmov\tah, 04Ch\t; \u0417\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u0440\u0430\u0431\u043e\u0442\u044b \u043f\u0440\u043e\u0433-
\n\t\tmov\tal, [bx]\t; \u0440\u0430\u043c\u043c\u044b \u0441 \u043a\u043e\u0434\u043e\u043c \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u0430
\n\t\tint\t21h\t\t; \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\t\tmov\tax, [PSP_tsr]\t; AX=\u0430\u0434\u0440\u0435\u0441 PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n\t\tor\tax, ax ; E\u0441\u043b\u0438 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430 \u043d\u0435\u0442,
\n\t\tjz\tinstall_tsr ; \u0442\u043e \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043d\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443.<\/p>\n

\t\tmov\tes, ax\t\t; ES=\u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.
\n\t\tmov\tes:[flag_on], 0FFh ; \u0420\u0430\u0437\u0440\u0435\u0448\u0438\u0442\u044c \u0440\u0430\u0431\u043e\u0442\u0443 \u0440\u0435\u0437\u0438\u0434.
\n\t\tlea\tdx, [presnt_msg]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f.
\n\t\tjmp\tshort terminate\t; \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\t\tmov\tes, ds:[psp_env]; \u041e\u0441\u0432\u043e\u0431\u043e\u0434\u0438\u0442\u044c \u0431\u043b\u043e\u043a \u043f\u0430\u043c\u044f\u0442\u0438,
\n\t\tmov\tah, 49h\t\t; \u0437\u0430\u043d\u0438\u043c\u0430\u0435\u043c\u044b\u0439 \u043e\u043a\u0440\u0443\u0436\u0435\u043d\u0438\u0435\u043c
\n\t\tint\t21h\t\t; \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.<\/p>\n

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

\t\tint\t21h\t\t; \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0435\u0433\u043e \u0432 \u0442\u0435\u043b\u0435
\n\t\tmov\tint_ofs, bx\t; \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0434\u043b\u044f
\n\t\tmov\tint_seg, es\t; \u0441\u0432\u044f\u0437\u0438 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a.<\/p>\n

\t\t\t\t\t\t\t 37<\/p>\n

\t\tmov\tah, 025h\t; \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c \u0430\u0434\u0440\u0435\u0441 \u043d\u043e\u0432\u043e\u0433\u043e
\n\t\tmov\tal, int_no\t; \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f
\n\t\tlea\tdx, int_new\t; \u0441 \u043d\u043e\u043c\u0435\u0440\u043e\u043c int_no, \u043d\u0430\u0445\u043e\u0434\u044f-
\n\t\tint\t21h\t\t; \u0449\u0435\u0433\u043e\u0441\u044f \u0432 \u0442\u0435\u043b\u0435 \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430.<\/p>\n

\t\tlea\tdx, [inst_msg+1]; DX=\u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u0441\u043e\u043e\u0431\u0449.
\n\t\tmov\tah, 9\t\t; \u0412\u044b\u0432\u043e\u0434 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0435
\n\t\tint\t21h\t\t; \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438.
\n\t\tlea\tdx, copyright\t; \u0412\u044b\u0432\u043e\u0434 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e \u043f\u0440\u0430\u0432\u0430\u0445
\n\t\tint\t21h ; \u043d\u0430 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n

\t\tmov\t[flag_on], 0FFh\t; \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

\t\tlea\tdx, [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\t\tmov\tcl, 4\t\t; \u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432
\n\t\tshr\tdx, cl\t\t; \u043f\u0430\u0440\u0430\u0433\u0440\u0430\u0444\u0430\u0445 \u0438 \u0437\u0430\u0432\u0435\u0440\u0448\u0438\u0442\u044c
\n\t\tmov\tal, [inst_msg]\t; \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0441 \u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435\u043c
\n\t\tmov\tah, 031h\t; \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438 \u0432 \u043f\u0430\u043c\u044f\u0442\u0438
\n\t\tint\t21h\t\t; \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\t\tdw\t0\t\t ; \u0410\u0434\u0440\u0435\u0441 PSP \u0440\u0435\u0437\u0438\u0434\u0435\u043d\u0442\u0430
\nhead_msg\tdb\t‘\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 TSR’, EL
\ninst_msg\tdb\t0, ‘ \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u0430.’, EL
\npresnt_msg\tdb\t1, ‘ \u0430\u043a\u0442\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0430.’, EL
\ndeact_msg\tdb\t2, ‘ \u0434\u0435\u0430\u043a\u0442\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0430.’, EL
\nabsent_msg\tdb\t3, ‘ \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u0432 \u043f\u0430\u043c\u044f\u0442\u0438.’, EL
\nrelease_msg\tdb\t4, ‘ \u0443\u0434\u0430\u043b\u0435\u043d\u0430 \u0438\u0437 \u043f\u0430\u043c\u044f\u0442\u0438.’, EL
\nnopar_msg\tdb\t5, ‘ \u0437\u0430\u043f\u0443\u0449\u0435\u043d\u0430 \u0431\u0435\u0437 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432.’, EL
\nerror_msg\tdb\t6, ‘ (\u043d\u0430\u0440\u0443\u0448\u0435\u043d\u0430 \u0446\u0435\u043b\u043e\u0441\u0442\u043d\u043e\u0441\u0442\u044c MS-DOS).’, EL
\n;——————————————————————-
\n\t\tend\tstart\t\t; \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":"

\u041f\u0420\u0418\u041b\u041e\u0416\u0415\u041d\u0418\u0415 1 \u041b\u0418\u0421\u0422\u0418\u041d\u0413 \u041f\u0420\u041e\u0413\u0420\u0410\u041c\u041c\u042b TSR \u041fp\u043e\u0433p\u0430\u043c\u043c\u0430 OS02.ASM \u043c\u043e\u0436\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u043fp\u0438\u043c\u0435p\u043e\u043c \u043fp\u043e\u0433p\u0430\u043c\u043c\u044b TSR. \u0412 p\u0435- \u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 p\u0430\u0431\u043e\u0442\u044b \u043fp\u043e\u0433p\u0430\u043c\u043c\u044b \u043f\u0435\u0440\u0435\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0437\u0430\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 int_no \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u0435 \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u0435\u0433\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 int_fun. \u041f\u0440\u043e\u0433- \u0440\u0430\u043c\u043c\u0430 \u0441\u0430\u043c\u043e\u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0430 \u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u043f\u043e\u044f\u0441\u043d\u0435\u043d\u0438\u044f.<\/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\/22849"}],"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=22849"}],"version-history":[{"count":1,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/22849\/revisions"}],"predecessor-version":[{"id":22850,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/22849\/revisions\/22850"}],"wp:attachment":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=22849"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=22849"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=22849"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}