For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / pascal.doc / pas_1-5.doc < prev next >

Wrap

Text File | 1989-11-26 | 90.5 KB | 2,180 lines

âïÇéÇ 15 é¡πΓαÑ¡¡∩∩ «αúá¡¿ºáµ¿∩ Æπαí«-Åáß¬á½∩ é φΓ«⌐ ú½áóÑ ñáÑΓß∩ ñ«»«½¡¿ΓÑ½∞¡á∩ ΓÑσ¡¿τÑß¬á∩ ¿¡Σ«α¼á- µ¿∩ ñ½∩ ΓÑσ, ¬Γ« σ«τÑΓ í«½ÑÑ πú½πí½Ñ¡¡« ¿ºπτ¿Γ∞ »α«úαá¼¼¿α«- óá¡¿Ñ ¡á Æπαí«-Åáß¬á½Ñ. îδ ¬«ß¡Ñ¼ß∩ Γá¬¿σ ó«»α«ß«ó, ¬á¬ ¬áα- Γá »á¼∩Γ¿, »α«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿, Σ«α¼áΓδ ó¡πΓαÑ¡¡¿σ ñá¡¡δσ, ß«ú½áΦÑ¡¿∩ »« óδº«óá¼ ¿ Γ.ñ. ìá É¿ß. 15.1 »α¿óÑñÑ¡á ßσÑ¼á αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ »α«úαá¼¼δ ¡á Æπαí«-Åáß¬á½Ñ. ÅαÑΣ¿¬ß¡δ⌐ ßÑú¼Ñ¡Γ »α«úαá¼¼δ (ÉSÉ) - φΓ« «í½áßΓ∞ ñ½¿¡«⌐ 256 íá⌐Γ, ¬«Γ«αá∩ ßΓα«¿Γß∩ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐ äÄæ »α¿ ºáúαπº¬Ñ Σá⌐½á .àòà. ÇñαÑß ßÑú¼Ñ¡Γá ÉSÉ ß«σαá¡∩ÑΓß∩ ó »αÑñ- óáα¿ΓÑ½∞¡« «»¿ßá¡¡«⌐ ó Æπαí«-Åáß¬á½Ñ »ÑαÑ¼Ñ¡¡«⌐ ñ½¿¡«⌐ ó ß½«ó« ß ¿¼Ñ¡Ñ¼ ÉrefixSeg. èáªñ«¼π »α«úαá¼¼¡«¼π ¼«ñπ½ε (¬«Γ«αδ⌐ ó¬½ετáÑΓ ó ßÑí∩ «ß¡«ó¡πε »α«úαá¼¼π ¿ ¬áªñδ⌐ ¼«ñπ½∞) ß««ΓóÑΓßΓóπÑΓ ßÑú¼Ñ¡Γ Ñú« ¬«ñá. Äß¡«ó¡á∩ »α«úαá¼¼á ºá¡¿¼áÑΓ »Ñαóδ⌐ ßÑú¼Ñ¡Γ ¬«ñá. æ½ÑñπεΘ¿Ñ ßÑú¼Ñ¡Γδ ¬«ñá ºá¡∩Γδ ¼«ñπ½∩¼¿ (ó »«α∩ñ¬Ñ, «íαáΓ¡«¼ Γ«¼π, ó ¬«Γ«α«¼ «¡¿ π¬áºá¡δ ó »αÑñ½«ªÑ¡¿¿ ¿ß»«½∞º«óá¡¿∩). Å«ß½Ññ¡¿⌐ ßÑú¼Ñ¡Γ ¬«ñá ºá¡∩Γ í¿í½¿«ΓÑ¬«⌐ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ (¼«ñπ½∞ System). Éáº¼Ñα «ΓñÑ½∞¡«ú« ßÑú¼Ñ¡Γá ¡Ñ ¼«ªÑΓ »αÑóδ- ΦáΓ∞ 64è, «ñ¡á¬« «íΘ¿⌐ αáº¼Ñα ¬«ñá «úαá¡¿τÑ¡ Γ«½∞¬« «íΩÑ¼«¼ ¿¼ÑεΘÑ⌐ß∩ »á¼∩Γ¿. æÑú¼Ñ¡Γ ñá¡¡δσ (áñαÑßπÑ¼δ⌐ τÑαÑº αÑú¿ßΓα DS) ß«ñÑαª¿Γ óßÑ Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, ºá ¬«Γ«αδ¼¿ ß½ÑñπεΓ óßÑ ú½«íá½∞- ¡δÑ »ÑαÑ¼Ñ¡¡δÑ. é »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ αÑú¿ßΓα DS ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓß∩. Éáº¼Ñα ßÑú¼Ñ¡Γá ñá¡¡δσ ¡Ñ ¼«ªÑΓ »αÑ- óδΦáΓ∞ 64è. éÑασ¡∩∩ úαá¡¿µá »á¼∩Γ¿ äÄæ ------------------------------------------- ! é ß»¿ß¬Ñ ßó«í«ñ¡δσ «í½áßΓÑ⌐ ! ! «Γ¼ÑτáÑΓß∩ ¿¼ÑεΘÑÑß∩ »α«ßΓαá¡ßΓó« ! ! ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ! FreePtr !-----------------------------------------! ! æó«í«ñ¡á∩ »á¼∩Γ∞ ! ìÑáαÉtr !-----------------------------------------! ! ä¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ ! ! «í½áßΓ∞ »á¼∩Γ¿ αáßΦ¿α∩ÑΓß∩ ó ! ! ßΓ«α«¡π πóÑ½¿τÑ¡¿∩ áñαÑß«ó... ! ìÑáαÄrg !-----------------------------------------!OvrHeapEnd ! ÄóÑα½Ñ⌐¡δ⌐ íπΣÑα ! !-----------------------------------------!OvrHeapOrg ! æÑú¼Ñ¡Γ ßΓÑ¬á æΓÑ¬ πóÑ½¿τ¿óáÑΓß∩ ! ! ó ßΓ«α«¡π π¼Ñ¡∞ΦÑ¡¿∩ ! ! áñαÑß«ó... ! !-----------------------------------------!SSeg:SPtr ! æó«í«ñ¡á∩ «í½áßΓ∞ ßΓÑ¬á ! !-----------------------------------------!SSeg:0000 ! â½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ! !-----------------------------------------!<------- ! Æ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ ! ! !-----------------------------------------!DSeg:0000 ! Æ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ ! ! !-----------------------------------------! ! ! æÑú¼Ñ¡Γ ¬«ñá ¼«ñπ½∩ System ! ! ! ! ! !-----------------------------------------! ! ! æÑú¼Ñ¡Γ ¬«ñá ¼«ñπ½∩ »Ñαó«ú« ! æ«ñÑα-! !-----------------------------------------! ª¿¼«Ñ ! . (æÑú¼Ñ¡Γδ ¬«ñá ñαπú¿σ ¼«ñπ½Ñ⌐) . «íαáºá! .-----------------------------------------! Σá⌐½á ! ! æÑú¼Ñ¡Γ ¬«ñá »«ß½Ññ¡Ñú« ¼«ñπ½∩ ! .àòà ! !-----------------------------------------! ! ! æÑú¼Ñ¡Γ ¬«ñá «ß¡«ó¡«⌐ »α«úαá¼¼δ ! ! !-----------------------------------------! ! ! ÅαÑΣ¿¬ß¡δ⌐ ßÑú¼Ñ¡Γ »α«úαá¼¼δ (ÉSÉ) ! ! ÉrefixSeg-------------------------------------------------- É¿ß. 15.1 Åα¿ óσ«ñÑ ó »α«úαá¼¼π αÑú¿ßΓα ßÑú¼Ñ¡Γá ßΓÑ¬á (SS) ¿ π¬áºáΓÑ½∞ ßΓÑ¬á (SÉ) ºáúαπªáεΓß∩ Γá¬, τΓ« SS:SÉ π¬áºδóáÑΓ ¡á »Ñαóδ⌐ íá⌐Γ, ß½ÑñπεΘ¿⌐ ºá ßÑú¼Ñ¡Γ«¼ ßΓÑ¬á. ÉÑú¿ßΓα SS ó »α«- µÑßßÑ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓß∩, á SÉ ¼«ªÑΓ »ÑαÑ¼ÑΘáΓ∞ß∩ ó¡¿º, »«¬á ¡Ñ ñ«ßΓ¿ú¡ÑΓ ¡¿ª¡Ñ⌐ úαá¡¿µδ ßÑú¼Ñ¡- Γá. Éáº¼Ñα ßÑú¼Ñ¡Γá ßΓÑ¬á ¡Ñ ¼«ªÑΓ »αÑóδΦáΓ∞ 64è. Å« π¼«½- τá¡¿ε Ñ¼π ¡áº¡áτáÑΓß∩ αáº¼Ñα, αáó¡δ⌐ 16è, ¡« ß »«¼«Θ∞ε ñ¿- αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $î φΓ« º¡áτÑ¡¿Ñ ¼«ª¡« ¿º¼Ñ¡¿Γ∞. é ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß«σαá¡∩εΓß∩ ñ¿¡á- ¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ, Γ« ÑßΓ∞ »ÑαÑ¼Ñ¡¡δÑ, óδñÑ½Ñ¡¡δÑ »α¿ «í- αáΘÑ¡¿∩σ ¬ ßΓá¡ñáαΓ¡δ¼ »α«µÑñπαá¼ New ¿ GetMem. Ä¡á ºá¡¿¼áÑΓ óßε ßó«í«ñ¡πε »á¼∩Γ∞ ¿½¿ τáßΓ∞ ßó«í«ñ¡«⌐ »á¼∩Γ¿, «ßΓáóΦπεß∩ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ. äÑ⌐ßΓó¿ΓÑ½∞¡δ⌐ αáº¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ºáó¿ß¿Γ «Γ ¼á¬ß¿¼á½∞¡«ú« ¿ ¼¿¡¿¼á½∞- ¡«ú« º¡áτÑ¡¿⌐, ¬«Γ«αδÑ ¼«ª¡« πßΓá¡«ó¿Γ∞ ñ½∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $î. âáαá¡Γ¿α«óá¡¡δ⌐ ¼¿¡¿¼á½∞¡δ⌐ αáº¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ- ¼«⌐ «í½áßΓ¿ ¡Ñ ¼«ªÑΓ íδΓ∞ ¼Ñ¡∞ΦÑ ¼¿¡¿¼á½∞¡«ú« º¡áτÑ¡¿∩, πß- Γá¡«ó½Ñ¡¡«ú« ñ½∩ φΓ«⌐ «í½áßΓ¿. îá¬ß¿¼á½∞¡δ⌐ αáº¼Ñα ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡¿¬«úñá ¡Ñ »αÑóδΦáÑΓ ºáñá¡¡«ú« ñ½∩ ¡ÑÑ ¼á¬ß¿¼á½∞¡«ú« º¡áτÑ¡¿∩. àß½¿ π¬áºá¡¡δ⌐ ¼¿¡¿¼á½∞¡δ⌐ «íΩÑ¼ »á¼∩Γ¿ ¡Ññ«ßΓπ»Ñ¡, Γ« »α«úαá¼¼á ¡Ñ óδ»«½¡∩ÑΓß∩. Å« π¼«½τá¡¿ε ¼¿¡¿¼á½∞¡δ⌐ αáº¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αáóÑ¡ 0 èíá⌐Γ, á ¼á¬ß¿- ¼á½∞¡δ⌐ αáº¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß«ßΓáó½∩ÑΓ 1 îíá⌐Γ. ¥Γ« «º¡áτáÑΓ, τΓ« »« π¼«½τá¡¿ε ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼á∩ «í½áßΓ∞ íπñÑΓ ºá¡¿¼áΓ∞ óßε «ßΓáóΦπεß∩ »á¼∩Γ∞. Åα«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ (∩ó½∩εΘá∩- ß∩ τáßΓ∞ε í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ), ¬á¬ ¼«ª¡« ñ«úá- ñáΓ∞ß∩, π»αáó½∩ÑΓ ñ¿¡á¼¿τÑß¬¿ αá»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε. äÑ- Γá½∞¡« «¡á «»¿ßδóáÑΓß∩ ó ß½ÑñπεΘÑ¼ αáºñÑ½Ñ. Å«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ ä¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ - φΓ« »«σ«ªá∩ ¡á ßΓÑ¬ ßΓαπ¬Γπαá, ¬«Γ«αá∩ πóÑ½¿τ¿óáÑΓß∩, ¡áτ¿¡á∩ «Γ ¼½áñΦ¿σ áñαÑß«ó »á¼∩Γ¿. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ ßÑú¼Ñ¡Γ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. ì¿ª¡∩∩ úαá¡¿µá ñ¿¡á¼¿τÑß¬¿ αá»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿ ºá»«¼¿¡áÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐ ìÑápÄrg, á óÑασ¡∩∩ úαá¡¿µá ñ¿¡á¼¿τÑß¬¿ αá»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß««ΓóÑΓßΓóπÑΓ ¡¿ª- ¡Ñ⌐ úαá¡¿µÑ ßó«í«ñ¡«⌐ »á¼∩Γ¿ ¿ ß«σαá¡∩ÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐ ìÑ- ápÉtr. Åα¿ ¬áªñ«¼ óδñÑ½Ñ¡¿¿ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó ñ¿¡á- ¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »«ñß¿ßΓÑ¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ (»«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε) »ÑαÑ¼ÑΘáÑΓ »ÑαÑ¼Ñ¡¡πε ìÑáαÉtr óóÑασ ¡á αáº¼Ñα »ÑαÑ¼Ñ¡¡«⌐, ¬á¬ íδ «αúá¡¿ºπ∩ »α¿ φΓ«¼ ßΓÑ¬ ñ¿¡á¼¿- τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ, ó ¬«Γ«α«¼ «ñ¡á »ÑαÑ¼Ñ¡¡á∩ αáº¼ÑΘáÑΓß∩ ¡áñ ñαπú«⌐. ÅÑαÑ¼Ñ¡¡á∩ ìÑápÉtr »«ß½Ñ ¬áªñ«⌐ «»Ñαáµ¿¿ ¬á¬ »αáó¿½« ¡«α¼á½¿ºπÑΓß∩, ¿ ß¼ÑΘÑ¡¿Ñ, Γá¬¿¼ «íαáº«¼, »α¿¡¿¼áÑΓ º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ «Γ $0000 ñ« $000F. Æá¬ ¬á¬ ¬áªñá∩ »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á µÑ½¿¬«¼ ß«ñÑαªáΓ∞ß∩ ó «ñ¡«¼ ßÑú¼Ñ¡ΓÑ, ¼á¬ß¿¼á½∞¡δ⌐ αáº¼Ñα «ΓñÑ½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞ αáº¼ÑΘÑ¡á ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, ß«ßΓáó½∩ÑΓ 65521 íá⌐Γ (τΓ« ß««ΓóÑΓßΓóπÑΓ $10000 ¼¿¡πß $000F). îÑΓ«ñδ «ßó«í«ªñÑ¡¿∩ «í½áßΓÑ⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿ ä¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ, ß«σαá¡∩Ñ¼δÑ ó ñ¿¡á¼¿τÑß¬¿ αáß- »αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, «ßó«í«ªñáεΓß∩ «ñ¡¿¼ ¿º ñóπσ ß½ÑñπεΘ¿σ ß»«ß«í«ó: 1. æ »«¼«Θ∞ε »α«µÑñπα Dispose ¿½¿ FrÑÑîÑ¼. 2. æ »«¼«Θ∞ε »α«µÑñπα îárk ¿ RÑlÑásÑ. Åα«ßΓÑ⌐ΦÑ⌐ ßσÑ¼«⌐ ¿ß»«½∞º«óá¡¿∩ »α«µÑñπα îárk ¿ RÑlÑásÑ, ¡á»α¿¼Ñα, ∩ó½∩ÑΓß∩ óδ»«½¡Ñ¡¿Ñ ß½ÑñπεΘ¿σ «»ÑαáΓ«α«ó: New(Ptr1); New(Ptr2); Mark(P); New(Ptr3); New(Ptr4); New(Ptr5); æσÑ¼á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »α¿ φΓ«¼ íπñÑΓ óδú- ½∩ñÑΓ∞, ¬á¬ »«¬áºá¡« ¡á É¿ß. 15.2. Étr1 -------------------------------- î½áñΦ¿Ñ ! æ«ñÑαª¿¼«Ñ Étr1 ! áñαÑßá Étr2 !------------------------------! »á¼∩Γ¿ ! æ«ñÑαª¿¼«Ñ Étr2 ! Étr3 !------------------------------! ! æ«ñÑαª¿¼«Ñ Étr3 ! Étr4 !------------------------------! ! æ«ñÑαª¿¼«Ñ Étr4 ! Étr5 !------------------------------! ! æ«ñÑαª¿¼«Ñ Étr5 ! ìÑápÉtr !------------------------------! ! ! æΓáαΦ¿Ñ ! ! áñαÑßá ! ! »á¼∩Γ¿ -------------------------------- É¿ß. 15.6 îÑΓ«ñ «ßó«í«ªñÑ¡¿∩ «í½áßΓÑ⌐ ñ¿¡á¼¿τÑß¬¿ αáß»- αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »«¼«Θ∞ε »α«µÑñπα îárk ¿ RÑlÑásÑ Étr1 -------------------------------- î½áñΦ¿Ñ ! æ«ñÑαª¿¼«Ñ Étr1 ! áñαÑßá Étr2 !------------------------------! »á¼∩Γ¿ ! æ«ñÑαª¿¼«Ñ Étr2 ! ìÑápÉtr !------------------------------! ! ! ! ! ! ! æΓáαΦ¿Ñ ! ! áñαÑßá ! ! »á¼∩Γ¿ -------------------------------- É¿ß. 15.3 æσÑ¼á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »α¿ óδ»«½¡Ñ¡¿¿ »α«µÑñπαδ RÑleásÑ(É) Ä»ÑαáΓ«α îárk(É) «Γ¼ÑτáÑΓ ß«ßΓ«∩¡¿Ñ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ óδñÑ½Ñ¡¿Ñ¼ »á¼∩Γ¿ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ Étr3 (»πΓÑ¼ ß«σαá¡Ñ¡¿∩ ΓÑ¬πΘÑú« º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡- ¡«⌐ ìÑápÉtr ó É). àß½¿ óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α RÑleásÑ(É), Γ« ßσÑ¼á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ßΓá¡«ó¿Γß∩ Γá¬«⌐, ¬á¬ »«¬áºá¡« ¡á É¿ß. 15.3. Åα¿ φΓ«¼, »«ß¬«½∞¬π »α«¿ºó«ñ¿Γß∩ «íαáΘÑ¡¿Ñ ¬ »α«µÑñπαÑ îárk, «ßó«í«ªñáÑΓß∩ »á¼∩Γ∞, óδñÑ½Ñ¡¡á∩ »«ñ óßÑ π¬áºáΓÑ½¿. Åα¿¼Ñτá¡¿Ñ: éδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ RÑleásÑ(ìÑápÄrg) »«½- ¡«ßΓ∞ε «ßó«í«ªñáÑΓ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞ »á¼∩Γ¿, »«ß¬«½∞¬π »ÑαÑ¼Ñ¡¡á∩ ìÑápÄrg π¬áºδóáÑΓ ¡á ¡¿ª- ¡εε úαá¡¿µπ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. Étr1 -------------------------------- î½áñΦ¿Ñ ! æ«ñÑαª¿¼«Ñ Étr1 ! áñαÑßá Étr2 !------------------------------! »á¼∩Γ¿ ! æ«ñÑαª¿¼«Ñ Étr2 ! !------------------------------! !//////////////////////////////! Étr4 !------------------------------! ! æ«ñÑαª¿¼«Ñ Étr4 ! Étr5 !------------------------------! ! æ«ñÑαª¿¼«Ñ Étr5 ! ìÑápÉtr !------------------------------! ! ! æΓáαΦ¿Ñ ! ! áñαÑßá ! ! »á¼∩Γ¿ -------------------------------- É¿ß. 15.4 æ«ºñá¡¿Ñ ¡Ñºá¡∩Γ«⌐ «í½áßΓ¿ ("ñδαδ") ó ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ Åα¿¼Ñ¡Ñ¡¿Ñ »α«µÑñπα îárk ¿ RÑlÑásÑ ñ½∩ «ßó«í«ªñÑ¡¿∩ »á- ¼∩Γ¿, óδñÑ½Ñ¡¡«⌐ ñ½∩ ñ¿¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ, ¡á ¬«Γ«αδÑ ßßδ½áεΓß∩ π¬áºáΓÑ½¿, ó »«α∩ñ¬Ñ, ó Γ«τ¡«ßΓ¿ «íαáΓ¡«¼ Γ«¼π, ó ¬«Γ«α«¼ »α«¿ßσ«ñ¿½« óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿, óÑß∞¼á φΣΣÑ¬Γ¿ó¡«. Äñ- ¡á¬« ó í«½∞Φ¿¡ßΓóÑ »α«úαá¼¼ ¿¼ÑÑΓß∩ ΓÑ¡ñÑ¡µ¿∩ ó í«½ÑÑ ß½π- τá⌐¡«¼π óδñÑ½Ñ¡¿ε ¿ «ßó«í«ªñÑ¡¿ε »á¼∩Γ¿, «ΓóÑñÑ¡¡«⌐ ñ½∩ ñ¿- ¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ, ¡á ¬«Γ«αδÑ ßßδ½áεΓß∩ π¬áºáΓÑ½¿, τΓ« ó½ÑτÑΓ ºá ß«í«⌐ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ í«½ÑÑ Γ«¡¬¿σ ¼ÑΓ«ñ«ó π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε, ¬«Γ«αδÑ αÑá½¿º«óá¡δ ß »«¼«Θ∞ε »α«µÑñπα Dispose ¿ FrÑÑMem. ¥Γ¿ »α«µÑñπαδ »«ºó«½∩εΓ ó ½εí«⌐ ¼«¼Ñ¡Γ «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε ñ½∩ ½εí«⌐ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¡á ¬«Γ«απε ßßδ½áÑΓß∩ π¬áºáΓÑ½∞. è«úñá ß »«¼«Θ∞ε »α«µÑñπα Dispose ¿ FrÑÑîÑ¼ «ßó«í«ªñáÑΓ- ß∩ »á¼∩Γ∞, «ΓóÑñÑ¡¡á∩ ñ½∩ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¡Ñ ∩ó½∩ε- Θá∩ß∩ "ßá¼«⌐ óÑασ¡Ñ⌐" »ÑαÑ¼Ñ¡¡«⌐ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ- ¼«⌐ «í½áßΓ¿, Γ« ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ ßΓá¡«ó¿Γ- ß∩ Σαáú¼Ñ¡Γ¿α«óá¡¡«⌐. ÅαÑñ»«½«ª¿¼, τΓ« óδ»«½¡∩½áß∞ Γá ªÑ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ «»ÑαáΓ«α«ó, τΓ« ¿ ó »αÑñδñπΘÑ¼ »α¿¼ÑαÑ. Æ«úñá »«ß½Ñ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ Dispose(Étr3) ó µÑ¡ΓαÑ ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ «íαáºπÑΓß∩ ¡Ñºá¡∩Γ«Ñ »α«ßΓαá¡ßΓó« ("ñδαá"). ¥Γ« »«¬áºá¡« ¡á É¿ß. 15.4. àß½¿ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ óδ»«½¡∩ÑΓß∩ »α«µÑñπαá New(Étr3), Γ« φΓ« «»∩Γ∞ »α¿óÑñÑΓ ¬ óδñÑ½Ñ¡¿ε Γ«⌐ ªÑ «í½áßΓ¿ »á¼∩Γ¿. æ ñαπú«⌐ ßΓ«α«¡δ, óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ Dispose(Étr4) πóÑ½¿τ¿Γ αáº¼Ñα ßó«í«ñ¡«ú« í½«¬á, Γá¬ ¬á¬ Étr3 ¿ Étr4 íδ½¿ ß«ßÑñ¡¿¼¿ í½«¬á¼¿ (ß¼. É¿ß. 15.5). Étr1 -------------------------------- î½áñΦ¿Ñ ! æ«ñÑαª¿¼«Ñ Étr1 ! áñαÑßá Étr2 !------------------------------! »á¼∩Γ¿ ! æ«ñÑαª¿¼«Ñ Étr2 ! !------------------------------! !//////////////////////////////! !//////////////////////////////! Étr5 !------------------------------! ! æ«ñÑαª¿¼«Ñ Étr5 ! ìÑápÉtr !------------------------------! ! ! æΓáαΦ¿Ñ ! ! áñαÑßá ! ! »á¼∩Γ¿ -------------------------------- É¿ß. 15.5 ôóÑ½¿τÑ¡¿Ñ αáº¼Ñαá ¡Ñºá¡∩Γ«ú« í½«¬á »á¼∩Γ¿ é ¬«¡Ñτ¡«¼ ¿Γ«úÑ óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ Dispose(Étr5) »α¿óÑñÑΓ ß¡áτá½á ¬ ß«ºñá¡¿ε ¡Ñºá¡∩Γ«ú« í½«¬á í«½∞ΦÑú« αáº¼Ñ- αá, á ºáΓÑ¼ ìÑápÉtr »ÑαÑ¼ÑßΓ¿Γß∩ ó í«½ÑÑ ¼½áñΦ¿Ñ áñαÑßá »á- ¼∩Γ¿. Å«ß¬«½∞¬π »«ß½Ññ¡¿¼ ñ«»πßΓ¿¼δ¼ π¬áºáΓÑ½Ñ¼ ΓÑ»Ñα∞ íπñÑΓ Étr2 (ß¼. É¿ß. 15.6), Γ« φΓ« »α¿óÑñÑΓ ¬ ñÑ⌐ßΓó¿ΓÑ½∞¡«¼π «ß- ó«í«ªñÑ¡¿ε ¡Ñºá¡∩Γ«ú« í½«¬á. Étr1 -------------------------------- î½áñΦ¿Ñ ! æ«ñÑαª¿¼«Ñ Étr1 ! áñαÑßá Étr2 !------------------------------! »á¼∩Γ¿ ! æ«ñÑαª¿¼«Ñ Étr2 ! ìÑápÉtr !------------------------------! ! ! ! ! ! ! ! ! ! ! æΓáαΦ¿Ñ ! ! áñαÑßá ! ! »á¼∩Γ¿ -------------------------------- É¿ß. 15.7 Äßó«í«ªñÑ¡¿Ñ ¡Ñºá¡∩Γ«ú« í½«¬á »á¼∩Γ¿ èá¬ »«¬áºá¡« ¡á É¿ß. 15.2. ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ ΓÑ»Ñα∞ ¡áσ«ñ¿Γß∩ ó Γ«¼ ªÑ ßá¼«¼ ß«ßΓ«∩¡¿¿, ó ¬á¬«¼ «¡á ¡áσ«ñ¿½áß∞ íδ »«ß½Ñ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ RÑlÑásÑ(É). Äñ¡á¬« ß«ºñáóáÑ¼δÑ ¿ «ßó«í«ªñáÑ¼δÑ »α¿ Γá¬«¼ »α«µÑßßÑ ¡Ñºá¡∩ΓδÑ í½«¬¿ «Γß½Ñª¿óáεΓß∩ ñ½∩ ¿σ ó«º¼«ª¡«ú« »«óΓ«α¡«ú« ¿ß»«½∞º«óáóá¡¿∩. æ»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó ÇñαÑßá ¿ αáº¼Ñαδ ßó«í«ñ¡δσ í½«¬«ó, ß«ºñá¡¡δσ »α¿ «»Ñαá- µ¿∩σ Dispose ¿ FrÑÑîÑ¼, σαá¡∩Γß∩ ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó, ¬«Γ«αδ⌐ πóÑ½¿τ¿óáÑΓß∩ ó¡¿º, ¡áτ¿¡á∩ ß« ßΓáαΦ¿σ áñαÑß«ó »á¼∩- Γ¿, ó ßÑú¼Ñ¡ΓÑ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. èáªñδ⌐ αáº »ÑαÑñ óδñÑ½Ñ¡¿Ñ¼ »á¼∩Γ¿ ñ½∩ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, »Ñ- αÑñ ΓÑ¼, ¬á¬ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ íπñÑΓ αáßΦ¿- αÑ¡á, »α«óÑα∩ÑΓß∩ ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó. àß½¿ ¿¼ÑÑΓß∩ í½«¬ ß««ΓóÑΓßΓóπεΘÑú« αáº¼Ñαá (Γ« ÑßΓ∞ αáº¼Ñα ¬«Γ«α«ú« í«½∞ΦÑ ¿½¿ αáóÑ¡ ΓαÑíπÑ¼«¼π αáº¼Ñαπ), Γ« «¡ ¿ß»«½∞ºπÑΓß∩. Åα¿¼Ñτá¡¿Ñ: Åα«µÑñπαá RÑlÑásÑ óßÑúñá «τ¿ΘáÑΓ ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó. Æá¬¿¼ «íαáº«¼, »α«úαá¼¼á ñ¿¡á¼¿τÑß- ¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ "ºáíδóáÑΓ" « ¡Ñºá¡∩Γδσ í½«- ¬áσ, ¬«Γ«αδÑ ¼«úπΓ ßπΘÑßΓó«óáΓ∞ ¡¿ªÑ π¬áºáΓÑ½∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. àß½¿ óδ τÑαÑñπÑΓÑ «íαá- ΘÑ¡¿∩ ¬ »α«µÑñπαá¼ îárk ¿ RÑlÑásÑ ß «íαáΘÑ¡¿∩¼¿ ¬ »α«- µÑñπαá¼ Dispose ¿ FrÑÑîÑ¼, Γ« ¡πª¡« «íÑß»Ñτ¿Γ∞ «ΓßπΓ- ßΓó¿Ñ Γá¬¿σ ßó«í«ñ¡δσ í½«¬«ó. ô¬áºáΓÑ½∞ ß»¿ß¬á ßó«í«ñ¡δσ í½«¬«ó ß«σαá¡∩ÑΓß∩ ó »ÑαÑ- ¼Ñ¡¡«⌐ ß ¿¼Ñ¡Ñ¼ FrÑÑÉtr. ò«Γ∩ φΓá »ÑαÑ¼Ñ¡¡á∩ «»¿ßδóáÑΓß∩, ¬á¬ »ÑαÑ¼Ñ¡¡á∩ Γ¿»á π¬áºáΓÑ½∞, ó ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ¿ «¡á π¬áºδ- óáÑΓ ¡á ¼áßß¿ó ºá»¿ßÑ⌐ ßó«í«ñ¡δσ í½«¬«ó, « τÑ¼ ßó¿ñÑΓÑ½∞- ßΓóπÑΓ Γ¿» »ÑαÑ¼Ñ¡¡«⌐ FrÑÑListÉ: type FreeRec = record OrgPtr,EndPtr: pointer; end; FreeList = array[0..8190] of FreeRec; FreeListP = ^FreeList; Å«½∩ ¬áªñ«⌐ ºá»¿ß¿ ÄrgÉtr ¿ àndÉtr «»αÑñÑ½∩εΓ ¡áτá½« ¿ ¬«¡Ñµ ¬áªñ«ú« ßó«í«ñ¡«ú« í½«¬á. (ànd Σá¬Γ¿τÑß¬¿ π¬áºδóáÑΓ ¡á »Ñαóδ⌐ ß½ÑñπεΘ¿⌐ ºá í½«¬«¼ ßó«í«ñ¡δ⌐ íá⌐Γ.) Äíá π¬áºáΓÑ½∩ ∩ó½∩εΓß∩ ¡«α¼á½¿º«óá¡¡δ¼¿. è«½¿τÑßΓó« ºá»¿ßÑ⌐ ó ¼áßß¿óÑ FrÑÑList óδτ¿ß½∩ÑΓß∩ »« Σ«α¼π½Ñ: FreeCount = (8192 - Ofs(FreePtr^) div 8) mod 8192 ¥Γ« «º¡áτáÑΓ, τΓ« ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó ¼«ªÑΓ ß«- ñÑαªáΓ∞ß∩ ñ« 8191 ºá»¿ßÑ⌐. è«úñá ß¼ÑΘÑ¡¿Ñ ñ½∩ π¬áºáΓÑ½∩ FreePtr αáó¡« 0, Γ« ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó »πßΓ. ô¬áºáΓÑ½∞ FreePtr ¼«ª¡« ßαáó¡¿Γ∞ ß π¬áºáΓÑ½Ñ¼ ßΓÑ¬á ó Γ«¼ ß¼δß½Ñ, τΓ« «¡ πóÑ½¿τ¿óáÑΓß∩ ó ßΓ«α«¡π ¼½áñΦ¿σ áñαÑß«ó, ¿ óßÑ íá⌐Γδ, ¡á- τ¿¡á∩ «Γ FreePtr ¿ ñ« ¬«¡µá ßÑú¼Ñ¡Γá ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩- Ñ¼«⌐ «í½áßΓ¿ ∩ó½∩εΓß∩ τáßΓ∞ε "ßó«í«ñ¡«ú« »α«ßΓαá¡ßΓóá ßΓÑ- ¬á". Åα¿¼Ñτá¡¿Ñ: Å«»δΓ¬á «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, ºá¡∩Γπε ñ½∩ ñ¿- ¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ó ß¿Γπáµ¿¿, ¬«úñá ß»¿ß«¬ ßó«- í«ñ¡δσ í½«¬«ó »ÑαÑ»«½¡Ñ¡, ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼- ¼δ »α¿óÑñÑΓ ó «Φ¿í¬Ñ. Äñ¡á¬« »ÑαÑ»«½¡Ñ¡¿Ñ ß»¿ß¬á ßó«- í«ñ¡δσ í½«¬«ó - φΓ« ¬αá⌐¡Ñ ¼á½«óÑα«∩Γ¡á∩ ß¿Γπáµ¿∩. ä½∩ φΓ«ú« »«ΓαÑíπÑΓß∩ «ßó«í«ñ¿Γ∞ íÑº »«óΓ«α¡«ú« ¿ß»«½∞º«- óá¡¿∩ 8191 »«½¡«ßΓ∞ε ¡Ñß¼Ñª¡δσ í½«¬«ó. ô¬áºáΓÑ½∞ FreePrt ß½πª¿Γ Γá¬ªÑ ñ½∩ «Γ¼ÑΓ¬¿ óÑασ¡Ñ⌐ úαá- ¡¿µδ ßó«í«ñ¡«⌐ »á¼∩Γ¿ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ (¡á ¡¿ª¡εε ÑÑ úαá¡¿µπ π¬áºδóáÑΓ ìÑápÉtr). çá¼ÑΓ¿¼, «ñ¡á¬«, τΓ« ¬«úñá ß¼ÑΘÑ¡¿Ñ ñ½∩ FreePtr αáó¡« 0, Γ« ñ½∩ »«½πτÑ¡¿∩ ¿ß- Γ¿¡¡«ú« π¬áºáΓÑ½∩ ¡á óÑασ¡εε úαá¡¿µπ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩- Ñ¼«⌐ «í½áßΓ¿ ¡πª¡« ¬ áñαÑßπ ßÑú¼Ñ¡Γá ñ«íáó¿Γ∞ $1000. (öá¬Γ¿- τÑß¬¿, áñαÑß ßÑú¼Ñ¡Γá ñ½∩ FrÑÑÉtr óßÑúñá ß«ñÑαª¿Γ áñαÑß ßÑú- ¼Ñ¡Γá ñ½∩ óÑασ¡Ñ⌐ úαá¡¿µδ »á¼∩Γ¿, ¼¿¡πß $1000.) Åα¿ «ßó«í«ªñÑ¡¿¿ α∩ñá «Γ¼ÑτÑ¡¡δσ π¬áºáΓÑ½∩¼¿ ¡Ñß¼Ñª¡δσ «í½áßΓÑ⌐ ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó πóÑ½¿τ¿óáÑΓß∩ (αáßΦ¿α∩ÑΓß∩ ó¡¿º), τΓ«íδ «íαáº«óáΓ∞ »α«ßΓαá¡ßΓó« ñ½∩ ºá»¿ß¿ ¬áªñ«ú« í½«- ¬á. Å«¬á ¼Ñªñπ π¬áºáΓÑ½∩¼¿ ìÑápÉtr ¿ FrÑÑÉtr ¿¼ÑÑΓß∩ ñ«ßΓá- Γ«τ¡«Ñ »α«ßΓαá¡ßΓó«, »α«í½Ñ¼ ¡Ñ ó«º¡¿¬áÑΓ. Äñ¡á¬«, ¬«úñá ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »«τΓ¿ ºá»«½¡Ñ¡á, Γ« ¼«ªÑΓ «í¡áαπª¿Γß∩ ¡ÑσóáΓ¬á »α«ßΓαá¡ßΓóá ñ½∩ í«½∞Φ«ú« ß»¿ß¬á ßó«- í«ñ¡δσ í½«¬«ó. Åα¿ φΓ«¼ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ »α«¿ß- σ«ñ¿Γ «Φ¿í¬á. ÅαÑñßΓáó¿¼, ó τáßΓ¡«ßΓ¿, τΓ« ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó »πßΓ, á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »«τΓ¿ ºá»«½¡Ñ¡á. é Γá¬«⌐ ß¿Γπáµ¿¿ «íó«í«ªñÑ¡¿Ñ α∩ñá «Γ¼ÑτÑ¡¡δσ π¬áºáΓÑ½∩¼¿ í½«¬«ó, «Γ½¿τ¡δσ «Γ Γ«ú«, ¡á ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ßá¼δ⌐ óÑασ¡¿⌐ π¬áºáΓÑ½∞, »α¿óÑñÑΓ ¬ αáßΦ¿αÑ¡¿ε í½«¬«ó ñ½∩ ß»¿ß¬á ßó«í«ñ¡δσ í½«¬«ó. ùΓ«íδ »αÑñ«ΓóαáΓ¿Γ∞ ¿½¿ »αÑñó¿ñÑΓ∞ »«ñ«í¡δÑ »α«í½Ñ¼δ, ó »α«úαá¼¼Ñ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ »αÑñπß¼«ΓαÑ¡á »ÑαÑ¼Ñ¡¡á∩ ñ½¿¡«⌐ ó ß½«ó« ß ¿¼Ñ¡Ñ¼ FrÑÑîin, ¬«Γ«απε ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ π»αáó½Ñ¡¿∩ ¼¿¡¿¼á½∞¡« ñ«»πßΓ¿¼δ¼ αáº¼Ñα«¼ «í½áßΓ¿ »á¼∩Γ¿ ¼Ñªñπ ìÑápÉtr ¿ FrÑÑÉtr. éδ ¡Ñ ¼«ªÑΓÑ ¿ß»«½∞- º«óáΓ∞ »α«µÑñπαδ New ¿½¿ GetîÑ¼ ñ½∩ Γ«ú«, τΓ«íδ «ΓóÑßΓ¿ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ Γá¬πε »á¼∩Γ∞, ¬«Γ«αá∩ π¼Ñ¡∞Φ¿½á íδ αáº¼Ñα ñá¡¡«⌐ «í½áßΓ¿ ñ« º¡áτÑ¡¿∩ ¼Ñ¡∞ΦÑú«, τÑ¼ FrÑÑîin. Åα«µÑñπαδ MemAvail ¿ îáσAvail Γá¬ªÑ »ÑαÑñ ó«ºóαáΘÑ¡¿Ñ¼ ßó«¿σ αÑºπ½∞Γá- Γ«ó óδτ¿ΓáεΓ º¡áτÑ¡¿Ñ FrÑÑîin ¿º αáº¼Ñαá φΓ«⌐ «í½áßΓ¿. ç¡áτÑ¡¿Ñ, ß«σαá¡∩Ñ¼«Ñ ó »ÑαÑ¼Ñ¡¡«⌐ FrÑÑîin »αÑñßΓáó½∩ÑΓ ß«í«⌐ αáº¼Ñα «í½áßΓ¿ ó íá⌐Γáσ. ä½∩ «íÑß»ÑτÑ¡¿∩ »α«ßΓαá¡ßΓóá ñ½∩ ºáñá¡¡«ú« τ¿ß½á ºá»¿ßÑ⌐ ß»¿ß¬á ßó«í«ñ¡δσ í½«¬«ó π¼¡«ª∞ΓÑ φΓ« τ¿ß½« ¡á 8 ¿ ß«σαá¡¿ΓÑ ó »ÑαÑ¼Ñ¡¡«⌐ FrÑÑîin. çá¬½ετ¿ΓÑ½∞¡«Ñ ºá¼Ñτá¡¿Ñ »« ß»¿ß¬π ßó«í«ñ¡δσ í½«¬«ó ¬á- ßáÑΓß∩ »«ΓÑ¡µ¿á½∞¡«⌐ »α«í½Ñ¼δ Σαáú¼Ñ¡Γáµ¿¿. æΓÑ»Ñ¡∞ ñÑΓá½¿- ºáµ¿¿ ñ½∩ »α«úαá¼¼δ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ ß«ßΓáó½∩ÑΓ 1 íá⌐Γ, Γ« ÑßΓ∞, Ñß½¿ óδ «Γó«ñ¿ΓÑ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ 1 íá⌐Γ, Γ« «¡á íπñÑΓ ºá¡¿¼áΓ∞ φΓ«Γ 1 íá⌐Γ. é í«½∞Φ¿¡ßΓóÑ ß½πτáÑó, «ß«íÑ¡¡« »α¿ ¿ß»«½∞º«óá¡¿¿ »α«µÑñπα îárk ¿ RÑlÑásÑ, ¿½¿ ¬«úñá ¡Ñ »α«¿ºó«ñ¿Γß∩ ¡¿¬á¬¿σ «ßó«í«ªñÑ¡¿⌐, φΓ« «íÑß»Ñ- τ¿óáÑΓ «»Γ¿¼á½∞¡«Ñ ¿ß»«½∞º«óá¡¿Ñ ñ«ßΓπ»¡«⌐ »á¼∩Γ¿. Äñ¡á¬«, φΓ« Γá¬ªÑ ¼«ªÑΓ «¬áºáΓ∞ß∩ «í¼á¡τ¿óδ¼. Åα¿ ß½πτá⌐¡«¼ ºá¡∩Γ¿¿ ¿ «ßó«í«ªñÑ¡¿¿ í«½∞Φ«ú« τ¿ß½á í½«¬«ó αáº½¿τ¡«ú« αáº¼Ñαá, ¬á¬, ¡á»α¿¼Ñα, »α¿ αáí«ΓÑ ß« ßΓα«¬«óδ¼¿ ºá»¿ß∩¼¿ ó »α«úαá¼¼Ñ «íαáí«Γ¬¿ ΓÑ¬ßΓ«ó, ó αÑºπ½∞- ΓáΓÑ íπñÑΓ »«½πτÑ¡« «τÑ¡∞ í«½∞Φ«Ñ ¬«½¿τÑßΓó« ¡Ñí«½∞Φ¿σ ¡Ñºá- ¡∩Γδσ í½«¬«ó, τΓ« ¼«ªÑΓ »α¿óÑßΓ¿ ¬ »ÑαÑ»«½¡Ñ¡¿ε ß»¿ß¬á ßó«- í«ñ¡δσ í½«¬«ó. é ¬áτÑßΓóÑ »α¿¼Ñαá »αÑñ»«½«ª¿¼, τΓ« ºá¡¿¼áÑΓ- ß∩ ¿ «ßó«í«ªñáÑΓß∩ í½«¬ αáº¼Ñα«¼ 50 íá⌐Γ«ó. Å«ß½Ñ Ñú« «ßó«- í«ªñÑ¡¿∩ ºá»¿ß∞ « ¡Ñ¼ ó¬½ετáÑΓß∩ ó ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó. àß½¿ ó ñá½∞¡Ñ⌐ΦÑ¼ »«ΓαÑíπÑΓß∩ í½«¬ αáº¼Ñα«¼ 49 íá⌐Γ«ó, Γ« ñá¡¡δ⌐ í½«¬ íπñÑΓ »«óΓ«α¡« ¿ß»«½∞º«óá¡. Åα¿ φΓ«¼ ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó «ßΓá¡ÑΓß∩ ºá»¿ß∞ « ¡Ñºá¡∩Γ«¼ í½«¬Ñ ñ½¿¡«⌐ ó 1 íá⌐Γ. Å«¬á ¡Ñ íπñÑΓ «ßó«í«ªñÑ¡ «ñ¿¡ ¿º ß«ßÑñ¡¿σ í½«¬«ó (»α¿ φΓ«¼ í½«¬ ñ½¿¡«⌐ ó 1 íá⌐Γ ß«½∞ÑΓß∩ ó í«½∞Φ¿⌐ í½«¬) óÑ- α«∩Γ¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ í½«¬á ñ½¿¡«⌐ ó 1 íá⌐Γ «τÑ¡∞ ¼á½á. Æá¬¿¼ «íαáº«¼, φΓá ºá»¿ß∞ íπñÑΓ ¡áσ«ñ¿Γß∩ ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó ó ΓÑτÑ¡¿¿ »α«ñ«½ª¿ΓÑ½∞¡«ú« óαÑ¼Ñ¡¿, Ñß½¿ ó««íΘÑ ¡Ñ ñ« ¬«¡µá αáí«Γδ »α«úαá¼¼δ. àß½¿ ó αÑºπ½∞ΓáΓÑ φΓ«ú« ó«º¡¿¬áÑΓ »ÑαÑ»«½¡Ñ¡¿Ñ ß»¿ß¬á ßó«í«ñ¡δσ í½«¬«ó, Γ« ñ½∩ «¬απú½Ñ¡¿∩ ó ßΓ«α«¡π πóÑ½¿τÑ¡¿∩ αáº¼Ñαá, «»αÑñÑ½∩Ñ¼«ú« »α¿ ¬áªñ«¼ óδº«óÑ »α«µÑñπα GetîÑ¼ ¿ FrÑÑîÑ¼ (π¼¡«ªÑ¡¿∩ Ñú« ¡á ¬á¬«Ñ-½¿í« τ¿ß½«) óδ ¼«ªÑΓÑ óóÑßΓ¿ "¬«φΣΣ¿µ¿Ñ¡Γ αáºñα«í½Ñ¡¡«ßΓ¿". é «íΘÑ¼ ß½πτáÑ, τÑ¼ óδΦÑ φΓ« τ¿ß½«, ΓÑ¼ ¼Ñ¡ÑÑ óÑα«∩Γ¡« ó«º¡¿¬¡«óÑ¡¿Ñ ¡Ñ¿ß»«½∞ºπÑ¼δσ ßó«- í«ñ¡δσ í½«¬«ó. ä½∩ Γ«ú«, τΓ«íδ φΓ« ßñÑ½áΓ∞, óá¼ »«ΓαÑíπÑΓß∩ ß«ßΓáó¿Γ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ »α«úαá¼¼δ GetîÑ¼ ¿ FrÑÑîÑ¼, ¬«Γ«- αδÑ íπñπΓ ¿º¼Ñ¡∩Γ∞ »áαá¼ÑΓα Size ¿ ºáΓÑ¼ «íαáΘáΓ∞ß∩ ¬ »α«µÑ- ñπαá¼ SystÑ¼.GetîÑ¼ ¿ SystÑ¼.FrÑÑîÑ¼: procedure MyGetMem(var p: pointer; Size: word) begin Size := Size div 16*16 { ¡á¿¼Ñ¡∞Φ¿⌐ αáº¼Ñα - 16 íá⌐Γ«ó } System.GetMem(p,Size); end; öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ ÉÑá½¿º«óáΓ∞ Σπ¡¬µ¿ε «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß- »αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¼«ª¡«ß »«¼«Θ∞ε »ÑαÑ¼Ñ¡¡«⌐ ìÑápàrror. ¥Γá Σπ¡¬µ¿∩ óδºδóáÑΓß∩ ¬áªñδ⌐ αáº, ¬«úñá »α«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ ¡Ñ ¼«ªÑΓ óδ»«½¡¿Γ∞ ºá»α«ß ¡á óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿. ìÑápàrror ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼, ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ¡á Σπ¡¬µ¿ε ß« ß½ÑñπεΘ¿¼ ºáú«½«ó¬«¼: {$F+} function HeapFunc(Size: word): integer; {$F-} çá¼ÑΓ¿¼, τΓ« ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$F+} π¬áºδóáÑΓ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡Ñ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óáΓ∞ ñá½∞¡¿Ñ «íαáΘÑ¡¿∩. öπ¡¬µ¿∩ «íαáí«Γ¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- ½áßΓ¿ αÑá½¿ºπÑΓß∩ »πΓÑ¼ »α¿ßóá¿óá¡¿∩ ÑÑ áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ ìÑápàror: HeapError := @HeapFunc; öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- ½áßΓ¿ »«½πτáÑΓ π»αáó½Ñ¡¿Ñ, ¬«úñá »α¿ «íαáΘÑ¡¿¿ ¬ »α«µÑñπαá¼ New ¿½¿ GetîÑ¼ ºá»α«ß ¡Ñ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡. Åáαá¼ÑΓα Size ß«ñÑαª¿Γ αáº¼Ñα í½«¬á, ñ½∩ ¬«Γ«α«ú« ¡Ñ «¬áºá½«ß∞ «í½áßΓ¿ »á- ¼∩Γ¿ ß««ΓóÑΓßΓóπεΘÑú« αáº¼Ñαá, ¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »α«¿ºóÑñÑΓ »«»δΓ¬π «ßó«- í«ªñÑ¡¿∩ í½«¬á, αáº¼Ñα ¬«Γ«α«ú« ¡Ñ ¼Ñ¡∞ΦÑ ñá¡¡«ú« αáº¼Ñαá. é ºáó¿ß¿¼«ßΓ¿ «Γ πß»Ñσá óδ»«½¡Ñ¡¿∩ φΓ«⌐ »«»δΓ¬¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ó«ºóαá- ΘáÑΓ º¡áτÑ¡¿∩ 0, 1 ¿½¿ 2. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 0 ßó¿ñÑΓÑ½∞- ßΓóπÑΓ « ¡Ñπñáτ¡«⌐ »«»δΓ¬Ñ, τΓ« ¡Ñ¼Ññ½Ñ¡¡« »α¿ó«ñ¿Γ ó ó«º- ¡¿¬¡«óÑ¡¿ε «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. é«ºóαáΘáÑ- ¼«Ñ º¡áτÑ¡¿Ñ 1 Γá¬ªÑ ßó¿ñÑΓÑ½∞ßΓóπÑΓ « ¡Ñπñáτ¡«⌐ »«»δΓ¬Ñ, ¡« ó¼ÑßΓ« «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½Ñ¡¿∩ «¡« »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« »α«µÑñπαδ GetîÑ¼ ¿½¿ FrÑÑîÑ¼ ó«ºóαáΘáεΓ π¬áºáΓÑ½∞ nil. ìá¬«- ¡Ñµ, ó«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 2 ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í πñáτ¡«⌐ »«- »δΓ¬Ñ ¿ óδºδóáÑΓ »«óΓ«α¡πε »«»δΓ¬π óδñÑ½¿Γ∞ »á¼∩Γ∞ (¬«Γ«αá∩ Γá¬ªÑ ¼«ªÑΓ »α¿óÑßΓ¿ ¬ óδº«óπ Σπ¡¬µ¿¿ «íαáí«Γ¿ «Φ¿í¬¿ ñ¿¡á- ¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿). æΓá¡áñáαΓ¡á∩ «íαáí«Γ¬¿ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß- »αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ óßÑúñá ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ 0, »α¿ó«ñ∩, Γá¬¿¼ «íαáº«¼, ¬ «Φ¿í¬Ñ óß∩¬¿⌐ αáº, ¬«úñá ¡Ñ ¼«úπΓ íδΓ∞ óδ- »«½¡Ñ¡δ »α«µÑñπαδ New ¿½¿ GetîÑ¼. Äñ¡á¬« ñ½∩ ¼¡«ú¿σ »α¿¬½áñ- ¡δσ ºáñáτ í«½ÑÑ »«ñσ«ñ∩ΘÑ⌐ ∩ó½∩ÑΓß∩ »α«ßΓá∩ Σπ¡¬µ¿∩ «íαáí«Γ- ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, »α¿¼Ñα ¬«Γ«α«⌐ »α¿óÑñÑ¡ ¡¿ªÑ: {$F+} function HeapFunc(Size: word) integer; {$F-} begin HeapFunc := 1; end; àß½¿ Γá¬á∩ Σπ¡¬µ¿∩ αÑá½¿º«óá¡á, Γ« ó¼ÑßΓ« »α¿¡πñ¿ΓÑ½∞- ¡«ú« ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ ó ß¿Γπáµ¿¿, ¬«úñá »α«µÑñπαδ New ¿½¿ GetîÑ¼ ¡Ñ ¼«úπΓ óδ»«½¡¿Γ∞ ºá»α«ß, «¡á íπñÑΓ ó«ºóαá- ΘáΓ∞ »πßΓ«⌐ π¬áºáΓÑ½∞ (π¬áºáΓÑ½∞ nil). ö«α¼áΓδ ó¡πΓαÑ¡¡Ñú« »αÑñßΓáó½Ñ¡¿∩ ñá¡¡δσ ûÑ½δ⌐ Γ¿» ö«α¼áΓ, óδí¿αáÑ¼δ⌐ ñ½∩ »αÑñßΓáó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ µÑ½«ú« Γ¿»á, ºáó¿ß¿Γ «Γ ÑÑ ¼¿¡¿¼á½∞¡«⌐ ¿ ¼á¬ß¿¼á½∞¡«⌐ úαá¡¿µ: 1. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ -128..127 (¬«α«Γ¬«Ñ µÑ½«Ñ), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ íá⌐Γ ß« º¡á¬«¼. 2. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ 0..255 (íá⌐- Γ«óá∩ »ÑαÑ¼Ñ¡¡á∩), Γ« »ÑαÑ¼Ñ¡á∩ σαá¡¿Γß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á. 3. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ -32768..32767 (µÑ½«Ñ), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ ß½«ó« ß« º¡á¬«¼. 4. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ 0..65535 (»ÑαÑ¼Ñ¡¡á∩ ñ½¿¡«⌐ ó ß½«ó«), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γ- ß∩, ¬á¬ ß½«ó«. 5. é »α«Γ¿ó¡«¼ ß½πτáÑ »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ ñó«⌐¡«Ñ ß½«ó« ß« º¡á¬«¼ (ñ½¿¡¡«Ñ µÑ½«Ñ). æ¿¼ó«½∞¡δ⌐ Γ¿» æ¿¼ó«½∞¡δ⌐ Γ¿» ¿½¿ »«ññ¿á»áº«¡ ß¿¼ó«½∞¡«ú« Γ¿»á σαá¡¿Γ- ß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á. üπ½Ñóß¬¿⌐ Γ¿» ç¡áτÑ¡¿∩ ¿ »ÑαÑ¼Ñ¡¡δÑ íπ½Ñóß¬«ú« Γ¿»á ºá»«¼¿¡áεΓß∩, ¬á¬ íá⌐Γ. Åα¿ φΓ«¼ »«ñαáºπ¼ÑóáεΓß∩, τΓ« «¡¿ ¼«úπΓ »α¿¡¿¼áΓ∞ º¡á- τÑ¡¿∩ 0 (FalsÑ) ¿½¿ 1 (ÆruÑ). ÅÑαÑτ¿ß½¿¼δ⌐ Γ¿» ç¡áτÑ¡¿∩ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á σαá¡∩Γß∩, ¬á¬ íá⌐Γ íÑº º¡á- ¬á, Ñß½¿ ¡π¼Ñαáµ¿∩ ¡Ñ »αÑóδΦáÑΓ 256. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡¿ σαá¡∩Γß∩, ¬á¬ ß½«ó« íÑº º¡á¬á. Æ¿»δ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ Æ¿»δ º¡áτÑ¡¿⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ (óÑΘÑßΓóÑ¡¡δ⌐, ß «ñ¿- ¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, ß »«óδΦÑ¡¡«⌐ Γ«τ¡«- ßΓ∞ε ¿½¿ ß½«ª¡δ⌐) σαá¡∩Γß∩ ó ó¿ñÑ ñó«¿τ¡«ú« »αÑñßΓáó½Ñ¡¿∩ º¡á¬á (+ ¿½¿ -), φ¬ß»«¡Ñ¡Γδ ¿ º¡áτáΘÑ⌐ τáßΓ¿ τ¿ß½á. ÅαÑñß- Γáó½∩Ñ¼«Ñ τ¿ß½« ¿¼ÑÑΓ º¡áτÑ¡¿Ñ: +/- º¡áτáΘá∩_τáßΓ∞ ò 2**φ¬ß»«¡Ñ¡Γá úñÑ º¡áτáΘá∩ τáßΓ∞ τ¿ß½á »αÑñßΓáó½∩ÑΓ ß«í«⌐ «ΓñÑ½∞¡δ⌐ í¿Γ ß½Ñóá «Γ ñó«¿τ¡«⌐ ñÑß∩Γ¿τ¡«⌐ ºá»∩Γ«⌐ (Γ« ÑßΓ∞ 0 <= º¡áτáΘá∩ τáßΓ∞ <= 2). Åα¿¼Ñτá¡¿Ñ: é ß½ÑñπεΘÑ⌐ ñá½ÑÑ ßσÑ¼Ñ ß½Ñóá αáß»«½«ªÑ- ¡δ ßΓáαΦ¿Ñ º¡áτáΘ¿Ñ í¿Γδ, á ß»αáóá - ¼½áñΦ¿Ñ º¡áτáΘ¿Ñ í¿Γδ. æá¼«Ñ ½Ñó«Ñ º¡áτÑ¡¿Ñ σαá¡¿Γß∩ ó ßá¼δσ ßΓáαΦ¿σ áñαÑßáσ. ìá»α¿¼Ñα, ñ½∩ º¡áτÑ¡¿∩ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á e ß«σαá¡∩ÑΓß∩ ó »Ñαó«¼ íá⌐ΓÑ, f - ó ß½ÑñπεΘ¿σ »∩Γ¿ íá⌐- Γáσ, á s - ó ßΓáαΦÑ¼ º¡áτáΘÑ¼ í¿ΓÑ »«ß½Ññ¡Ñú« íá⌐Γá. éÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ÿÑßΓ¿íá⌐Γ«ó«Ñ (48-í¿Γ«ó«Ñ) óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½« »«ñαáºñÑ- ½∩ÑΓß∩ ¡á Γα¿ »«½∩: 1 39 8 αáº¼Ñα ------------------------------------------------------ ! s ! f ! e ! ------------------------------------------------------ ßΓáαΦ¿Ñ í¿Γδ ¼½áñΦ¿Ñ í¿Γδ »«α∩ñ«¬ ç¡áτÑ¡¿Ñ v τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ¡¿⌐: if 0 < e <= 255, then v = (-1)**s * 2**(e-129)*(l.f). if e = 0, then v = 0. Åα¿¼Ñτá¡¿Ñ: éÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ¡Ñ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ σαá¡Ñ¡¿∩ ¡Ñ¡«α¼á½¿º«óá¡¡δσ τ¿ßÑ½, á Γá¬ªÑ íÑß¬«- ¡Ñτ¡« ¼á½δσ ¿ íÑß¬«¡Ñτ¡« í«½∞Φ¿σ º¡áτÑ¡¿⌐. ìÑ¡«α¼á½¿- º«óá¡¡«Ñ τ¿ß½« »α¿ ß«σαá¡Ñ¡¿¿ Ñú« ó ó¿ñÑ óÑΘÑßΓóÑ¡¡«ú« »α¿¡¿¼áÑΓ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ, á íÑß¬«¡Ñτ¡« ¼á½δÑ ¿ íÑß- ¬«¡Ñτ¡« í«½∞Φ¿Ñ º¡áτÑ¡¿∩ »α¿ »«»δΓ¬Ñ ¿ß»«½∞º«óáΓ∞ ñ½∩ ¿σ ºá»¿ß¿ Σ«α¼áΓ óÑΘÑßΓóÑ¡¡«ú« τ¿ß½á »α¿ó«ñ∩Γ ¬ «Φ¿í¬Ñ »ÑαÑ»«½¡Ñ¡¿∩. Æ¿» τ¿ß½á ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε ùÑΓδαÑσíá⌐Γ«ó«Ñ (32-í¿Γ«ó«Ñ) τ¿ß½« »«ñαáºñÑ½∩ÑΓß∩ ¡á Γα¿ »«½∩: 1 8 23 αáº¼Ñα ------------------------------------------------------ ! s ! e ! f ! ------------------------------------------------------ ßΓáαΦ¿Ñ í¿Γδ ¼½áñΦ¿Ñ í¿Γδ »«α∩ñ«¬ ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ- ¡¿⌐: if 0 < e < 255, then v = (-1)**s * 2**(e-12) * (l.f). if e = 0 and f <> 0, then v = (-1)**s * 2**(126) * (o.f). if e = 0 and f = 0, then v = (-1)**s * O. if e = 255 and f = 0, then v = (-1)**s * Inf. if e = 255 and f <> 0, then v = NaN. Æ¿» τ¿ß½á ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε é«ß∞¼¿íá⌐Γ«ó«Ñ (64-í¿Γ«ó«Ñ) τ¿ß½« »«ñαáºñÑ½∩ÑΓß∩ ¡á Γα¿ »«½∩: 1 11 52 αáº¼Ñα ------------------------------------------------------ ! s ! e ! f ! ------------------------------------------------------ ßΓáαΦ¿Ñ í¿Γδ ¼½áñΦ¿Ñ í¿Γδ »«α∩ñ«¬ ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ- ¡¿⌐: if 0 < e < 2047, then v = (-1)**s * 2**(e-1023) * (l.f). if e = 0 and f <> 0, then v = (-1)**s * 2**(1022) * (o.f). if e = 0 and f = 0, then v = (-1)**s * O. if e = 2047 and f = 0, then v = (-1)**s * Inf. if e = 2047 and f <> 0, then v = NaN. Æ¿» τ¿ß½á ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε äÑß∩Γ¿íá⌐Γ«ó«Ñ (80-í¿Γ«ó«Ñ) τ¿ß½« »«ñαáºñÑ½∩ÑΓß∩ ¡á τÑ- ΓδαÑ »«½∩: 1 15 63 αáº¼Ñα ------------------------------------------------------ ! s ! e ! f ! ------------------------------------------------------ ßΓáαΦ¿Ñ í¿Γδ ¼½áñΦ¿Ñ í¿Γδ »«α∩ñ«¬ ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ- ¡¿⌐: if 0 < e < 32767, then v = (-1)**s * 2**(e-1023) * (l.f). if e = 32767 and f = 0, then v = (-1)**s * Inf. if e = 32767 and f <> 0, then v = NaN. æ½«ª¡δ⌐ Γ¿» é«ß∞¼¿íá⌐Γ«ó«Ñ (64-í¿Γ«ó«Ñ) τ¿ß½« ß½«ª¡«ú« Γ¿»á »«ñαáº- ñÑ½∩ÑΓß∩ ¡á ñóá »«½∩: 1 63 αáº¼Ñα ------------------------------------------------------ ! s ! d ! ------------------------------------------------------ ßΓáαΦ¿Ñ í¿Γδ ¼½áñΦ¿Ñ í¿Γδ »«α∩ñ«¬ ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ- ¡¿⌐: if s = 1 and d = 0, then v = NaN. ó »α«Γ¿ó¡«¼ ß½πτáÑ v »αÑñßΓáó½∩ÑΓ ß«í«⌐ 64-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ, ∩ó½∩εΘÑÑß∩ ñ«»«½¡Ñ¡¿Ñ¼ ñ« ñóπσ. ç¡áτÑ¡¿∩ Γ¿»á π¬áºáΓÑ½∞ ç¡áτÑ¡¿Ñ Γ¿»á π¬áºáΓÑ½∞ σαá¡¿Γß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá, »α¿ φΓ«¼ ß¼ÑΘÑ¡¿Ñ σαá¡¿Γß∩ ó ¼½áñΦÑ¼ ß½«óÑ, á áñαÑß ßÑú¼Ñ¡Γá - ó ßΓáαΦÑ¼ ß½«óÑ. ç¡áτÑ¡¿Ñ π¬áºáΓÑ½∩ nil σαá¡¿Γß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá, ºá»«½¡Ñ¡¡«ú« 0. ç¡áτÑ¡¿∩ ßΓα«¬«ó«ú« Γ¿»á æΓα«¬á ºá¡¿¼áÑΓ ßΓ«½∞¬« íá⌐Γ, ¬á¬«óá ¼á¬ß¿¼á½∞¡á∩ ñ½¿¡á ßΓα«¬¿, »½εß «ñ¿¡ íá⌐Γ. ÅÑαóδ⌐ íá⌐Γ ß«ñÑαª¿Γ ΓÑ¬πΘπε ñ¿¡á¼¿- τÑß¬πε ñ½¿¡π ßΓα«¬¿, á »«ß½ÑñπεΘ¿Ñ íá⌐Γδ ß«ñÑαªáΓ ß¿¼ó«½δ ßΓα«¬¿. ü¿Γ ñ½¿¡δ ¿ ß¿¼ó«½δ αáßß¼áΓα¿óáεΓß∩, ¬á¬ º¡áτÑ¡¿∩ íÑº º¡á¬á. îá¬ß¿¼á½∞¡á∩ ñ½¿¡á ßΓα«¬¿ - 255 ß¿¼ó«½«ó, »½εß íá⌐Γ ñ½¿¡δ (string[255]). ç¡áτÑ¡¿∩ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á î¡«ªÑßΓó« - φΓ« ¼áßß¿ó í¿Γ«ó, ó ¬«Γ«α«¼ ¬áªñδ⌐ í¿Γ π¬á- ºδóáÑΓ, ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ »α¿¡áñ½ÑªáΘ¿¼ ¼¡«ªÑßΓóπ ¿½¿ ¡ÑΓ. îá¬ß¿¼á½∞¡«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ¼¡«ªÑßΓóá - 256, Γá¬ τΓ« ¼¡«- ªÑßΓó« ¡¿¬«úñá ¡Ñ ¼«ªÑΓ ºá¡¿¼áΓ∞ í«½ÑÑ 32 íá⌐Γ«ó. ù¿ß½« íá⌐- Γ«ó, ºá¡∩Γδσ «ΓñÑ½∞¡δ¼ ¼¡«ªÑßΓó«¼, óδτ¿ß½∩ÑΓß∩, ¬á¬: ByteSize = (Max div 8) - (Min div 8) + 1 úñÑ îin ¿ îáσ - ¡¿ª¡∩∩ ¿ óÑασ¡∩∩ úαá¡¿µá íáº«ó«ú« Γ¿»á φΓ«ú« ¼¡«ªÑßΓóá. ì«¼Ñα íá⌐Γá ñ½∩ ¬«¡¬αÑΓ¡«ú« φ½Ñ¼Ñ¡Γá à óδτ¿ß½∩ÑΓ- ß∩ »« Σ«α¼π½Ñ: ByteNumber = (E div 8) - (Min div 8) á ¡«¼Ñα í¿Γá ó¡πΓα¿ φΓ«ú« íá⌐Γá »« Σ«α¼π½Ñ: BitNumber = E mod 8 ç¡áτÑ¡¿∩ Γ¿»á ¼áßß¿ó îáßß¿ó σαá¡¿Γß∩ ó ó¿ñÑ ¡Ñ»αÑαδó¡«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ »ÑαÑ¼Ñ¡¡δσ, ¬áªñá∩ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ Γ¿» ¼áßß¿óá. ¥½Ñ¼Ñ¡Γδ ß ¡á¿¼Ñ¡∞Φ¿¼¿ ¿¡ñÑ¬ßá¼¿ σαá¡∩Γß∩ ó ¼½áñΦ¿σ áñαÑßáσ »á¼∩Γ¿. î¡«ú«¼Ñα¡δ⌐ ¼áßß¿ó σαá¡¿Γß∩ Γá¬¿¼ «íαáº«¼, τΓ« »αáóδ⌐ ¿¡ñÑ¬ß ó«ºαáßΓáÑΓ íδßΓαÑÑ. ç¡áτÑ¡¿∩ Γ¿»á ºá»¿ß∞ Å«½∩ ºá»¿ß¿ σαá¡∩Γß∩, ¬á¬ ¡Ñ»αÑαδó¡á∩ »«ß½Ññ«óáΓÑ½∞- ¡«ßΓ∞ »ÑαÑ¼Ñ¡¡δσ. ÅÑαó«Ñ »«½Ñ σαá¡¿Γß∩ ó ¼½áñΦ¿σ áñαÑßáσ »á- ¼∩Γ¿. àß½¿ ó ºá»¿ß¿ ß«ñÑαªáΓß∩ αáº½¿τ¡δÑ τáßΓ¿, Γ« ¬áªñá∩ τáßΓ∞ ¡áτ¿¡áÑΓß∩ ß «ñ¡«ú« ¿ Γ«ú« ªÑ áñαÑßá »á¼∩Γ¿. ç¡áτÑ¡¿∩ Σá⌐½«ó«ú« Γ¿»á ç¡áτÑ¡¿∩ Σá⌐½«ó«ú« Γ¿»á »αÑñßΓáó½∩εΓß∩ ó ó¿ñÑ ºá»¿ßÑ⌐. Æ¿»¿º«óá¡¡δÑ ¿ ¡ÑΓ¿»¿º«óá¡¡δÑ Σá⌐½δ ºá¡¿¼áεΓ 128 íá⌐Γ«ó, ¬«- Γ«αδÑ αáß»«½áúáεΓß∩ »« ß½ÑñπεΘÑ⌐ ßσÑ¼Ñ: type FileRec = record Handle : word; { «íαáí«Γ¬á } Mode : word; { αÑª¿¼ } RecSize : word; { αáº¼Ñα ºá»¿ß¿ } Private : array[1..26] of byte; UserData : array[1..16] of byte; Name : array[0..79] of char; end; ÆÑ¬ßΓ«óδÑ Σá⌐½δ ºá¡¿¼áεΓ 256 íá⌐Γ«ó ß« ß½ÑñπεΘÑ⌐ ßσÑ¼«⌐ αáß»«½«ªÑ¡¿∩: type CharBuf = array[0..127] of char; TextRec = record Handle : word; Mode : word; BufSize : word; Private : word; BufPos : word; BufEnd : word; BufPtr : ^CharBuf; OpenFunc : pointer; InOutFunc : pointer; FlushFunc : pointer; CloseFunc : pointer; UserData : array[1..16] of byte; Name : array[0..79] of char; Buffer : CharBuf; end; é »ÑαÑ¼Ñ¡¡«⌐ ìándlÑ ß«ñÑαª¿Γß∩ ¡«¼Ñα ¬á¡á½á Σá⌐½á (¬«úñá Σá⌐½ «Γ¬αδΓ). ¥Γ« º¡áτÑ¡¿Ñ ó«ºóαáΘáÑΓß∩ äÄæ. Å«½Ñ î«dÑ ßτ¿ΓáÑΓß∩ αáó¡δ¼ «ñ¡«¼π ¿º ß½ÑñπεΘ¿σ º¡áτÑ- ¡¿⌐: const fmClosed = $D7B0; fmInput = $D7B1; fmOutput = $D7B2; fmInOut = $D7B3; ç¡áτÑ¡¿Ñ fmClosed »«¬áºδóáÑΓ, τΓ« Σá⌐½ ºá¬αδΓ. ç¡áτÑ¡¿∩ fmInput ¿ fmOutput »«¬áºδóáεΓ, τΓ« Σá⌐½ ∩ó½∩ÑΓß∩ ΓÑ¬ßΓ«óδ¼ Σá⌐½«¼ ¿ τΓ« ñ½∩ ¡Ñú« íδ½á óδ»«½¡Ñ¡á »α«µÑñπαá Reset (fmInput) ¿½¿ Rewrite (fmOutput). ç¡áτÑ¡¿Ñ fmOutput »«¬áºδ- óáÑΓ, τΓ« »ÑαÑ¼Ñ¡¡á∩ Σá⌐½«ó«ú« Γ¿»á ∩ó½∩ÑΓß∩ Γ¿»¿º«óá¡¡δ¼ ¿½¿ ¡ÑΓ¿»¿º«óá¡¡δ¼ Σá⌐½«¼, ñ½∩ ¬«Γ«α«ú« íδ½á óδ»«½¡Ñ¡á »α«- µÑñπαá Reset ¿½¿ Rewrite. ïεí«Ñ ñαπú«Ñ º¡áτÑ¡¿Ñ ú«ó«α¿Γ « Γ«¼, τΓ« ñ½∩ Σá⌐½«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ßóá¿óá¡¿Ñ ¡Ñ íδ½« óδ»«½- ¡Ñ¡« (¿ «¡á, Γá¬¿¼ «íαáº«¼, ¡Ñ ¿¡¿µ¿á½¿º¿α«óá¡á). Å«½Ñ UserData ó Æπαí«-Åáß¬á½Ñ ¡Ññ«ßΓπ»¡« ¿ »«½∞º«óá- ΓÑ½∞ß¬¿Ñ »α«úαá¼¼δ ¼«úπΓ ß«σαá¡∩Γ∞ ó ¡Ñ¼ ñá¡¡δÑ. Å«½Ñ Ná¼Ñ ß«ñÑαª¿Γ ¿¼∩ Σá⌐½á, ¬«Γ«α«Ñ »αÑñßΓáó½∩ÑΓ ß«- í«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß¿¼ó«½«ó, «¬á¡τ¿óáεΘπεß∩ ¡π½Ñóδ¼ ß¿¼- ó«½«¼ (#0). ä½∩ Γ¿»¿º«óá¡¡δσ ¿ ¡ÑΓ¿»¿º«óá¡¡δσ »«½Ñ⌐ RÑßSizÑ ß«ñÑα- ª¿Γ ñ½¿¡π ºá»¿ß¿ ó íá⌐Γáσ, á »«½Ñ Érivate ºáαÑºÑαó¿α«óá¡«, ¡« ∩ó½∩ÑΓß∩ ßó«í«ñ¡δ¼. ä½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó éufPtr ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼ ¡á íπ- ΣÑα αáº¼Ñα«¼ éufSize, éufÉ«s »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¿¡ñÑ¬ß ß½Ñ- ñπεΘÑú« ß¿¼ó«½á ó íπΣÑαÑ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ ºá»¿ßá¡ ¿½¿ »α«τ¿Γá¡, á éufànd - ßτÑΓτ¿¬ ñ«»πßΓ¿¼δσ ß¿¼ó«½«ó ó íπΣÑαÑ. ô¬áºáΓÑ½¿ OpenFunc, InOutFunc, FlushFunc ¿ CloseFunc ß½πªáΓ ñ½∩ ßßδ½¬¿ ¡á »α«úαá¼¼δ óó«ñá-óδó«ñá ¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ π»αáó½Ñ¡¿∩ Σá⌐½«¼. é «ñ¡«¼ ¿º ß½ÑñπεΘ¿σ ñá½ÑÑ αáºñÑ½«ó »«ñ ºáú½áó¿Ñ¼ "äαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó" »α¿- ó«ñ¿Γß∩ ñ«»«½¡¿ΓÑ½∞¡á∩ ¿¡Σ«α¼áµ¿∩ »« φΓ«¼π ó«»α«ßπ. Åα«µÑñπα¡δÑ Γ¿»δ Åα«µÑñπα¡δÑ Γ¿»δ σαá¡∩Γß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá. Åα¿ φΓ«¼ ß ¼½áñΦÑ¼ ß½«óÑ ß«ñÑαª¿Γß∩ ß¼ÑΘÑ¡¿Ñ »α«µÑñπαδ, á ó ßΓáαΦÑ¼ - íáº«óδ⌐ ßÑú¼Ñ¡Γ. æ«ú½áΦÑ¡¿∩ »« óδº«óá¼ Åáαá¼ÑΓαδ »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼ »ÑαÑñáεΓß∩ τÑαÑº ßΓÑ¬. ÅÑαÑñ óδº«ó«¼ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ »áαá¼ÑΓαδ »«¼ÑΘáεΓß∩ ó ßΓÑ¬ ó »«α∩ñ¬Ñ ¿σ «»¿ßá¡¿∩. ÅÑαÑñ óδσ«ñ«¼ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ óßÑ »áαá¼ÑΓαδ ¿ºó½Ñ¬áεΓß∩ ¿º ßΓÑ¬á. Åα¿¼Ñα¡δ⌐ óδº«ó »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ª¡« »αÑñßΓáó¿Γ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: PUSH Param1 PUSH Param2 . . . PUSH ParamX Call ProcOrFunc Åáαá¼ÑΓαδ ¼«úπΓ »ÑαÑñáóáΓ∞ß∩ »« ßßδ½¬Ñ ¿½¿ »« º¡áτÑ¡¿ε. è«úñá »áαá¼ÑΓα »ÑαÑñáÑΓß∩ »« ßßδ½¬Ñ, Γ« π¬áºáΓÑ½∞, ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ¡á αÑá½∞¡πε ∩τÑ⌐¬π »á¼∩Γ¿, »«¼ÑΘáÑΓß∩ ó ßΓÑ¬. è«ú- ñá »áαá¼ÑΓα »ÑαÑñáÑΓß∩ »« º¡áτÑ¡¿ε, ó ßΓÑ¬ »«¼ÑΘáÑΓß∩ ßá¼« Σá¬Γ¿τÑß¬«Ñ º¡áτÑ¡¿Ñ. Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ (»áαá¼ÑΓαδ var) óßÑúñá »ÑαÑñáεΓß∩ »« ßßδ½¬Ñ, Γ« ÑßΓ∞ π¬áºáΓÑ½∞ ßßδ½áÑΓß∩ ¡á ∩τÑ⌐¬π »á¼∩Γ¿ ß Σá¬Γ¿τÑß¬¿¼ º¡áτÑ¡¿Ñ¼. Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩ Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩ »ÑαÑñáεΓß∩ »« º¡áτÑ¡¿ε ¿½¿ »« ßßδ½- ¬Ñ, ó ºáó¿ß¿¼«ßΓ¿ «Γ ¿σ Γ¿»á ¿ αáº¼Ñαá. é «íΘÑ¼ ß½πτáÑ, Ñß½¿ »áαá¼ÑΓα-º¡áτÑ¡¿Ñ ºá¡¿¼áÑΓ 1, 2 ¿½¿ 4 íá⌐Γá, Γ« º¡áτÑ¡¿Ñ »«- ¼ÑΘáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ßΓÑ¬. é »α«Γ¿ó¡«¼ ß½πτáÑ ó ßΓÑ¬ »«¼ÑΘáÑΓß∩ π¬áºáΓÑ½∞ ¡á º¡áτÑ¡¿Ñ, á »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¬«»¿απÑΓ ºáΓÑ¼ º¡áτÑ¡¿Ñ ó ½«¬á½∞¡πε ∩τÑ⌐¬π »á¼∩Γ¿. Åα¿¼Ñτá¡¿Ñ: é »α«µÑßß«αÑ 8086 ¡Ñ »«ññÑαª¿óáεΓß∩ íá⌐Γ«- óδÑ ¿¡ßΓαπ¬µ¿¿ ÉUSì ¿ ÉÄÉ, »«φΓ«¼π íá⌐Γ«óδÑ »áαá¼ÑΓαδ óßÑúñá »ÑαÑñáεΓß∩ ó ßΓÑ¬Ñ, ¬á¬ ß½«óá. î½áñΦ¿⌐ íá⌐Γ ß½«óá ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ, á ßΓáαΦ¿⌐ íá⌐Γ ß½«óá ßó«í«ñÑ¡ (¿ ¡Ñ«»αÑñÑ½Ñ¡). ç¡áτÑ¡¿Ñ ¿½¿ »áαá¼ÑΓα µÑ½«ú« Γ¿»á »ÑαÑñáÑΓß∩ ¬á¬ íá⌐Γ, ß½«ó« ¿½¿ ñó«⌐¡«Ñ ß½«ó«. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ Γá¬«⌐ ªÑ Σ«α- ¼áΓ, ¬á¬ ñ½∩ »αÑñßΓáó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ µÑ½«ú« Γ¿»á. (ä½∩ ñó«⌐¡δσ ß½«ó ßΓáαΦÑÑ ß½«ó« »«¼ÑΘáÑΓß∩ ó ßΓÑ¬ »ÑαÑñ ¼½áñΦ¿¼ ß½«ó«¼, Γá¬ τΓ« ¼½áñΦÑÑ ß½«ó« αáº¼ÑΘáÑΓß∩ ó í«½ÑÑ ¼½áñΦ¿σ áñαÑßáσ.) Åáαá¼ÑΓα ß¿¼ó«½∞¡«ú« Γ¿»á »ÑαÑñáÑΓß∩, ¬á¬ íá⌐Γ íÑº º¡á- ¬á. Åáαá¼ÑΓα íπ½Ñóß¬«ú« Γ¿»á »ÑαÑñáÑΓß∩, ¬á¬ íá⌐Γ ß« º¡áτÑ- ¡¿Ñ¼ 0 ¿½¿ 1. Åáαá¼ÑΓα Γ¿»á »ÑαÑτ¿ß½Ñ¡¿∩ »ÑαÑñáÑΓß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á, Ñß½¿ ¡π¼Ñαáµ¿∩ ¡Ñ »αÑóδΦáÑΓ 256. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡ »ÑαÑñáÑΓß∩, ¬á¬ ß½«ó« íÑº º¡á¬á. Åáαá¼ÑΓα óÑΘÑßΓóÑ¡¡«ú« Γ¿»á (óÑΘÑßΓóÑ¡¡«Ñ º¡áτÑ¡¿Ñ) »Ñ- αÑñáÑΓß∩, ¬á¬ 6 íá⌐Γ«ó ó ßΓÑ¬Ñ, »αÑñßΓáó½∩∩ ß«í«⌐, Γá¬¿¼ «í- αáº«¼, ¿ß¬½ετÑ¡¿Ñ ¿º Γ«ú« »αáó¿½á, τΓ« ó ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ßΓÑ¬Ñ »ÑαÑñáεΓß∩ Γ«½∞¬« 1, 2 ¿½¿ 4 íá⌐Γá. Åáαá¼ÑΓαδ ΓÑσ Γ¿»«ó, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó »α«µÑßß«αÑ 8087 (º¡áτÑ¡¿∩ ß «ñ¿¡áα¡«⌐, ñó«⌐¡«⌐ ¿½¿ »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿½¿ ß½«ª¡«ú« Γ¿»á), ¡Ñ »ÑαÑñáεΓß∩ τÑαÑº ßΓÑ¬ »α«µÑßß«αá 8086. é¼ÑßΓ« φΓ«ú« »áαá¼ÑΓαδ ß Γ¿»á¼¿, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó »α«µÑßß«αÑ 8087, »«¼ÑΘáεΓß∩ ó »«α∩ñ¬Ñ ¿σ »«∩ó½Ñ¡¿∩ ó« ó¡πΓαÑ¡¡¿⌐ ßΓÑ¬ ¼áΓÑ¼áΓ¿τÑß¬«ú« ß«»α«µÑßß«αá 8087. ¥Γ« «úαá- ¡¿τ¿óáÑΓ ñ«»πßΓ¿¼«Ñ τ¿ß½« »áαá¼ÑΓα«ó »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ß Γ¿»á¼¿, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó »α«µÑßß«αÑ 8087, º¡áτÑ¡¿Ñ¼ 8 (ßΓÑ¬ »α«µÑßß«αá 8087 ¿¼ÑÑΓ ó«ßÑ¼∞ πα«ó¡Ñ⌐ ú½πí¿¡δ). Åáαá¼ÑΓα Γ¿»á π¬áºáΓÑ½∞ »ÑαÑñáÑΓß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«- óá (áñαÑß ßÑú¼Ñ¡Γá »«¼ÑΘáÑΓß∩ ó ßΓÑ¬ »ÑαÑñ ß¼ÑΘÑ¡¿Ñ¼, Γá¬ τΓ« τáßΓ∞, »αÑñßΓáó½∩εΘá∩ ß«í«⌐ ß¼ÑΘÑ¡¿Ñ, ºá¬á¡τ¿óáÑΓß∩ ó ßá¼«¼ ¼½áñΦÑ¼ áñαÑßÑ). Åáαá¼ÑΓα ßΓα«¬«ó«ú« Γ¿»á »ÑαÑñáÑΓß∩ ó ó¿ñÑ π¬áºáΓÑ½∩ ¡á "αáß»á¬«óá¡¡«Ñ" ¼¡«ªÑßΓó« ñ½¿¡«⌐ 32 íá⌐Γá. îáßß¿ó ¿½¿ ºá»¿ß∞ ¿º 1, 2 ¿½¿ 4 íá⌐Γ«ó »«¼ÑΘáÑΓß∩ ¡Ñ- »«ßαÑñßΓóÑ¡¡« ó ßΓÑ¬. äαπú¿Ñ ¼áßß¿óδ ¿ ºá»¿ß¿ »ÑαÑñáεΓß∩, ¬á¬ π¬áºáΓÑ½¿ ¡á º¡áτÑ¡¿∩. ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐ ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á (µÑ½δÑ, ß¿¼ó«½∞- ¡δÑ, íπ½Ñóß¬¿Ñ, Γ¿»á »ÑαÑτ¿ß½Ñ¡¿∩) ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαáσ µÑ¡Γαá½∞¡«ú« »α«µÑßß«αá: íá⌐Γδ ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαÑ ÇL, ß½«óá - ó αÑú¿ßΓαÑ Çò, ñó«⌐¡δÑ ß½«óá - ó Dò:Çò (ßΓáαΦÑÑ ß½«- ó« - ó Dò, ¼½áñΦÑÑ - ó Çò). ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á (º¡áτÑ¡¿∩ óÑΘÑßΓ- óÑ¡¡«ú« Γ¿»á) ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαáσ Dò:éò:Çò (ßΓáαΦÑÑ ß½«ó« - ó αÑú¿ßΓαÑ Dò, ßαÑñ¡ÑÑ ß½«ó« - ó αÑú¿ßΓαÑ éò, ¼½áñ- ΦÑÑ ß½«ó« - ó Çò). ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿, ¿¼ÑεΘ¿Ñ «ñ¿¡ ¿º Γ¿»«ó, ¿ß»«½∞ºπε- Θ¿σß∩ ó »α«µÑßß«αÑ 8087, (º¡áτÑ¡¿∩ ß «ñ¿¡áα¡«⌐, ñó«⌐¡«⌐ ¿½¿ »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿½¿ ß½«ª¡«ú« Γ¿»á), ó«ºóαáΘáεΓß∩ ó αÑ- ú¿ßΓαÑ óÑαΦ¿¡δ ßΓÑ¬á ß«»α«µÑßß«αá 8087 (SÆ(0)). ÉÑº½∞ΓáΓδ Σπ¡¬µ¿¿ Γ¿»á π¬áºáΓÑ½∞ ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓ- αÑ Dò:Çò (áñαÑß ßÑú¼Ñ¡Γá - ó Dò, á ß¼ÑΘÑ¡¿Ñ - ó Çò). ùΓ« ¬áßáÑΓß∩ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ ßΓα«¬«ó«ú« Γ¿»á, Γ« óδ- ºδóáεΘá∩ »α«úαá¼¼á »«¼ÑΘáÑΓ ó ßΓÑ¬ »ÑαÑñ »ÑαÑñáτÑ⌐ ¬á¬¿σ-½¿- í« »áαá¼ÑΓα«ó óαÑ¼Ñ¡¡πε ∩τÑ⌐¬π »á¼∩Γ¿, á Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ßΓα«¬«ó«Ñ º¡áτÑ¡¿Ñ ó φΓ«⌐ óαÑ¼Ñ¡¡«⌐ ∩τÑ⌐¬Ñ. öπ¡¬µ¿∩ ¡Ñ ñ«½ª¡á πñá½∩Γ∞ π¬áºáΓÑ½∞. ü½¿ª¡¿Ñ ¿ ñá½∞¡¿Ñ Γ¿»δ óδº«ó«ó é µÑ¡Γαá½∞¡«¼ »α«µÑßß«αÑ 8086 »«ññÑαª¿óáÑΓß∩ ñóá Γ¿»á óδº«ó«ó ¿ ¿¡ßΓαπ¬µ¿⌐ ó«ºóαáΓá π»αáó½Ñ¡¿∩ - í½¿ª¡¿Ñ ¿ ñá½∞- ¡¿Ñ. ü½¿ª¡¿Ñ óδº«óδ »ÑαÑñáεΓ π»αáó½Ñ¡¿Ñ ñαπú«⌐ ∩τÑ⌐¬Ñ ó »αÑ- ñÑ½áσ Γ«ú« ªÑ »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá, á ñá½∞¡¿Ñ óδº«óδ »«ºó«- ½∩εΓ »ÑαÑ⌐Γ¿ ó ñαπú«⌐ »α«úαá¼¼¡δ⌐ ßÑú¼Ñ¡Γ. ê¡ßΓαπ¬µ¿∩ í½¿ª¡Ñú« «íαáΘÑ¡¿∩ æÇLL »«¼ÑΘáÑΓ ó ßΓÑ¬ 16-í¿Γ«óδ⌐ áñαÑß ó«ºóαáΓá (Γ«½∞¬« ß¼ÑΘÑ¡¿Ñ), á ¿¡ßΓαπ¬µ¿∩ ñá½∞¡Ñú« óδº«óá »«¼ÑΘáÑΓ ó ßΓÑ¬ 32-í¿Γ«óδ⌐ áñαÑß ó«ºóαáΓá (áñαÑß ßÑú¼Ñ¡Γá ¿ ß¼ÑΘÑ¡¿Ñ). æ««ΓóÑΓßóπεΘá∩ ¿¡ßΓαπ¬µ¿∩ RàÆ ¿ºó½Ñ¬áÑΓ ¿º ßΓÑ¬á Γ«½∞¬« ß¼ÑΘÑ¡¿Ñ ¿½¿ áñαÑß ßÑú¼Ñ¡Γá ¿ ß¼Ñ- ΘÑ¡¿Ñ. ìá «ß¡«óÑ «»¿ßá¡¿∩ »α«µÑñπαδ ó Æπαí«-Åáß¬á½Ñ íπñÑΓ áó- Γ«¼áΓ¿τÑß¬¿ óδí¿αáΓ∞ß∩ »αáó¿½∞¡δ⌐ Γ¿» «íαáΘÑ¡¿∩. Åα«µÑñπαδ, «»¿ßá¡¡δÑ ó ¿¡ΓÑαΣÑ⌐ßΓ¡«⌐ ßÑ¬µ¿¿ ¼«ñπ½∩ ß««ΓóÑΓßΓóπεΓ ñá½∞- ¡Ñ¼π «íαáΘÑ¡¿ε ¿ ¼«úπΓ óδºδóáΓ∞ß∩ ¿º ñαπú¿σ í½«¬«ó. Åα«µÑñπ- αδ, «»¿ßá¡¡δÑ ó »α«úαá¼¼Ñ ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¼«ñπ½∩, ∩ó½∩- εΓß∩ í½¿ª¡¿¼¿ ¿ ¼«úπΓ óδºδóáΓ∞ß∩ Γ«½∞¬« ¿º φΓ«⌐ »α«úαá¼¼δ ¿½¿ ñá¡¡«ú« ¼«ñπ½∩. ä½∩ ¡Ñ¬«Γ«αδσ ¬«¡¬αÑΓ¡δσ µÑ½Ñ⌐ ¼«ª¡« »«ΓαÑí«óáΓ∞, τΓ«íδ »α«µÑñπαá ¿¼Ñ½á ñá½∞¡¿⌐ Γ¿» óδº«óá. ìá»α¿¼Ñα, »α«µÑñπαá óδ- σ«ñá, ñαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ¿ ñαπú¿Ñ ßαÑñßΓóá, ¿ß»«½∞ºπεΘ¿Ñ π¬áºáΓÑ½¿ ¡á »α«µÑñπαδ. ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$F+} π¬áºδóáÑΓ ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ ñá½∞¡Ñú« Γ¿»á óδº«ó«ó. Åα«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ß¬«¼»¿½¿α«óá¡- ¡δÑ ß ñá¡¡«⌐ ñ¿αÑ¬Γ¿ó«⌐ óßÑúñá íπñπΓ ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«- óá. Åα¿ ¿ß»«½∞º«óá¡¿¿ ó Æπαí«-Åáß¬á½Ñ ñ¿αÑ¬Γ¿óδ {$F-} »αá- ó¿½∞¡á∩ ßσÑ¼á óδº«óá íπñÑΓ óδí¿αáΓ∞ß∩ áóΓ«¼áΓ¿τÑß¬¿. Å« π¼«½τá¡¿ε ¡áº¡áτáÑΓß∩ αÑª¿¼ {$F-}. é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ßτ¿ΓáÑΓß∩ ó½«ªÑ¡¡«⌐, ¬«úñá «¡á «»¿ßδóáÑΓß∩ ó¡πΓα¿ ñαπú«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Å« π¼«½τá- ¡¿ε ó½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ óßÑúñá ¿ß»«½∞ºπεΓ í½¿ª¡¿⌐ Γ¿» óδº«óá (NEAR), »«ß¬«½∞¬π «¡¿ ñ«ßΓπ»¡δ Γ«½∞¬« ó¡πΓα¿ «»- αÑñÑ½Ñ¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ó Γ«¼ ªÑ ßÑú¼Ñ¡ΓÑ ¬«ñá. Äñ- ¡á¬« ó «óÑα½Ñ⌐¡δσ ºáñáτáσ «íδτ¡« ñ½∩ Γ«ú«, τΓ«íδ «íÑß»Ñτ¿Γ∞ ñ½∩ óßÑσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ñá½∞¡¿⌐ Γ¿» óδº«óá (FAR), ¿ß- »«½∞ºπÑΓß∩ ñ¿αÑ¬Γ¿óá {$F+}. Åα¿ óδº«óÑ ó½«ªÑ¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¬«¼»¿½∩Γ«α ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ¿¡ßΓαπ¬µ¿Ñ⌐ CALL úÑ¡Ñα¿ΓπÑΓ ¿¡ßΓαπ¬µ¿ε PUSH BP, Σá¬Γ¿τÑß¬¿ »ÑαÑñáóá∩ αÑú¿ßΓα BP óδºδóáεΘÑ⌐ »α«úαá¼- ¼δ ó ¬áτÑßΓóÑ ñ«»«½¡¿ΓÑ½∞¡«ú« »áαá¼ÑΓαá. Å«ß½Ñ Γ«ú«, ¬á¬ óδ- ºδóáÑ¼á∩ »α«µÑñπαá πßΓá¡«ó¿Γ ßó«⌐ ß«íßΓóÑ¡¡δ⌐ αÑú¿ßΓα BP, αÑú¿ßΓα éÉ óδºδóáεΘÑ⌐ »α«µÑñπαδ ñ«ßΓπ»Ñ¡, ¬á¬ ß½«ó«, ß«σαá- ¡Ñ¡¡«Ñ ó [BP+4] ¿½¿ ó [BP+6] (Ñß½¿ »α«µÑñπαá ¿¼ÑÑΓ ñá½∞¡¿⌐ Γ¿» óδº«óá). êß»«½∞ºπ∩ ßó∩ºí τÑαÑº [BP+4] ¿ [BP+6], óδºδóáÑ- ¼á∩ »α«µÑñπαá ¼«ªÑΓ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ½«¬á½∞¡δ¼ »ÑαÑ¼Ñ¡¡δ¼ ó úαá¡¿µáσ ßΓÑ¬á óδºδóáεΘÑ⌐ »α«µÑñπαδ. æ½ÑñπεΘ¿⌐ »α¿¼Ñα »«¬á- ºδóáÑΓ, ¬á¬ ¼«ª¡« »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ½«¬á½∞¡δ¼ »ÑαÑ¼Ñ¡¡δ¼ ¿º «»ÑαáΓ«αá inline ó« ó½«ªÑ¡¡«⌐ »α«µÑñπαÑ: {$F+} procedure PA; var IntA: integer; {$F+} procedure B; var IntB: integer; {$F-} procedure C; var IntC: integer; begin inline( $8B/$46/<IntC>/ { MOV AX,[BP+IntC] ;AX = IntC } $8B/$5E/$04/ { MOV BX,[BP+4] ;BX = ßΓÑ¬ é } $36/$8b/$47/<IntB>/ { MOV AX,SS:[BX+IntB];AX = IntB } $8B/$5E/$04/ { MOV BX,[BP+4] ;BX = ßΓÑ¬ B } $36/8B/$5F/$06/ { MOV BX,SS:[BX+6] ;BX = ßΓÑ¬ Ç } $36/$8B/$47/<IntA>); { MOV AX,SS:[BX+IntA];AX =IntA } end; begin end; begin end; Åα¿¼Ñτá¡¿Ñ: é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¡Ñ½∞º∩ «»¿ßδóáΓ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ external. æΓá¡ñáαΓ¡δÑ «»ÑαáΓ«αδ óσ«ñá ¿ óδσ«ñá èáªñá∩ »α«µÑñπαá ¿ Σπ¡¬µ¿∩ Åáß¬á½∩ ¡áτ¿¡áÑΓß∩ ¿ ºá¬á¡- τ¿óáÑΓß∩ ßΓá¡ñáαΓ¡δ¼ ¡áí«α«¼ «»ÑαáΓ«α«ó, ¬«Γ«αδÑ »«ºó«½∩εΓ á¬Γ¿ó¿º¿α«óáΓ∞ ¿ ñÑá¬Γ¿ó¿º¿α«óáΓ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. æΓá¡ñáαΓ¡δ¼ óσ«ñ«¼ ß½πª¿Γ ß½ÑñπεΘá∩ úαπ»»á «»ÑαáΓ«α«ó: PUSH BP ; ß«σαá¡¿Γ∞ αÑú¿ßΓα éÉ MOV BP,SP ; πßΓá¡«ó¿Γ∞ úαá¡¿µδ ßΓÑ¬á SUB SP,LocalSize ; óδñÑ½¿Γ∞ »á¼∩Γ∞ ñ½∩ ½«¬á½∞¡δσ »ÑαÑ- ; ¼Ñ¡¡δσ é φΓ«¼ »α¿¼ÑαÑ LocalSize - φΓ« αáº¼Ñα ½«¬á½∞¡δσ »ÑαÑ- ¼Ñ¡¡δσ. ê¡ßΓαπ¬µ¿∩ SUé »α¿ßπΓßΓóπÑΓ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, ¬«úñá LocalSize ¡Ñ αáó¡« ¡π½ε. àß½¿ Γ¿» «íαáΘÑ¡¿∩ ¬ »α«µÑñπ- ∩ó½∩ÑΓß∩ í½¿ª¡¿¼, Γ« »áαá¼ÑΓαδ ¡áτ¿¡áεΓß∩ ß éÉ+4, Ñß½¿ ñ½δ óδº«óá »α«µÑñπαδ ¿ß»«½∞ºπÑΓß∩ ñá½∞¡¿⌐ Γ¿» «íαáΘÑ¡¿∩, Γ« «¡¿ ¡áτ¿¡áεΓß∩ ß éÉ+6. æΓá¡áñáαΓ¡«⌐ úαπ»»«⌐ «»ÑαáΓ«α«ó óδσ«ñá ∩ó½∩ÑΓß∩: MOV SP,BP ; «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε ñ½∩ ; ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ POP BP ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα éÉ RET ParamSize ; πñá½¿Γ∞ »áαá¼ÑΓαδ ¿ óδ»«½¡¿Γ∞ ó«ºóαáΓ ; π»αáó½Ñ¡¿∩ çñÑß∞ Éárá¼SizÑ - φΓ« αáº¼Ñα »áαá¼ÑΓα«ó. ê¡ßΓαπ¬µ¿∩ RàÆ ∩ó½∩ÑΓß∩ ¿¡ßΓαπ¬µ¿Ñ⌐ í½¿ª¡Ñú« ¿½¿ ñá½∞¡Ñú« Γ¿»á, ó ºáó¿ß¿- ¼«ßΓ¿ «Γ Γ¿»á «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ. æ«ú½áΦÑ¡¿∩ »« ß«σαá¡Ñ¡¿ε αÑú¿ßΓα«ó é »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ß½ÑñπÑΓ ß«σαá¡∩Γ∞ αÑú¿ßΓαδ éÉ, SÉ, SS ¿ DS. ç¡áτÑ¡¿∩ óßÑσ ñαπú¿σ αÑú¿ßΓα«ó ¼«ª¡« ¿º¼Ñ¡∩Γ∞. è«¼»«¡«ó¬á ß »α«úαá¼¼á¼¿ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá æ »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $L ¼«ª¡« óδ»«½¡¿Γ∞ ¬«¼- »«¡«ó¬π »α«úαá¼¼ ¿½¿ ¼«ñπ½Ñ⌐ ¡á ∩ºδ¬Ñ Åáß¬á½∞ ¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá. êº ¿ßσ«ñ¡«ú« Σá⌐½á ¡á ∩ºδ¬Ñ áß- ßÑ¼í½Ñαá ¼«ª¡« ß »«¼«Θ∞ε áßßÑ¼í½Ñαá »«½πτ¿Γ∞ «íΩÑ¬Γ¡δ⌐ Σá⌐½ (ß αáßΦ¿αÑ¡¿Ñ¼ .ÄéJ). êß»«½∞ºπ∩ αÑñá¬Γ«α ßó∩ºÑ⌐, ¡Ñß¬«½∞¬« «íΩÑ¬Γ¡δσ Σá⌐½«ó ¼«ª¡« ß¬«¼»«¡«óáΓ∞ ß »α«úαá¼¼«⌐ ¿½¿ ¼«ñπ- ½Ñ¼. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $L. é »α«úαá¼¼Ñ ¿½¿ ¼«ñπ½Ñ ¡á ∩ºδ¬Ñ Åáß¬á½∞ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ¡á»¿ßá¡¡δÑ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá, ñ«½ª¡δ íδΓ∞ «»¿ßá- ¡δ, ¬á¬ ó¡ÑΦ¡¿Ñ. ìá»α¿¼Ñα: function LoCase(Ch : char): char; external; é ß««ΓóÑΓßΓóπεΘÑ¼ Σá⌐½Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá óßÑ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿ ñ«½ª¡δ ¡áσ«ñ¿Γ∞ß∩ ó ßÑú¼Ñ¡ΓÑ ß ¿¼Ñ¡Ñ¼ æÄDà, á ¿¼Ñ¡á ó¡ÑΦ¡¿σ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ñ«½ª¡δ íδΓ∞ π¬áºá¡δ ó ñ¿- αÑ¬Γ¿óáσ ÉUéLIæ. (é¼ÑßΓ« æÄDà ó ¬áτÑßΓóÑ ¿¼Ñ¡¿ ßÑú¼Ñ¡Γá ó«ß»α¿¡¿¼áÑΓß∩ Γá¬ªÑ æseg.) éδ ñ«½ª¡δ «íÑß»Ñτ¿Γ∞ ß««ΓóÑΓßΓó¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ÑÑ «»αÑñÑ½Ñ¡¿ε ó Åáß¬á½Ñ. ¥Γ« «Γ¡«ß¿Γß∩ ó Γ¿»π ÑÑ óδº«óá (í½¿ª¡¿⌐ ¿½¿ ñá½∞¡¿⌐), τ¿ß½π ¿ Γ¿»π »áαá¼ÑΓα«ó ¿ Γ¿»π αÑ- ºπ½∞ΓáΓá. é ¿ßσ«ñ¡«¼ Σá⌐½Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¼«úπΓ «»¿ßδóáΓ∞ß∩ »ÑαÑ¼Ñ¡¡δÑ, ß«ñÑαªáΘ¿Ñß∩ ó ßÑú¼Ñ¡ΓÑ ß ¿¼Ñ¡Ñ¼ DAÆA. é ¿ßσ«ñ- ¡«¼ Σá⌐½Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá φΓ¿ »ÑαÑ¼Ñ¡¡δÑ ∩ó½∩εΓß∩ ½«- ¬á½∞¡δ¼¿ ¿ ¡á ¡¿σ ¡Ñ½∞º∩ ßßδ½áΓ∞ß∩ ¿º ¼«ñπ½∩ ¿½¿ »α«úαá¼¼δ ¡á Åáß¬á½Ñ. Ä¡¿, «ñ¡á¬«, ¡áσ«ñ∩Γß∩ ó Γ«¼ ªÑ ßÑú¼Ñ¡ΓÑ, τΓ« ¿ ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ Åáß¬á½∩, ¿ ¼«úπΓ íδΓ∞ ñ«ßΓπ»¡δ τÑαÑº αÑú¿ßΓα ßÑú¼Ñ¡Γá DS. (é¼ÑßΓ« ¿¼Ñ¡¿ ßÑú¼Ñ¡Γá DAÆA ¼«ªÑΓ Γá¬ªÑ ó«ß»α¿¡¿¼áΓ∞ß∩ ¿¼∩ ßÑú¼Ñ¡Γá Dseg.) ìá óßÑ »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿ »ÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó ¼«- ñπ½Ñ ¿½¿ »α«úαá¼¼Ñ ¡á Åáß¬á½Ñ ¿ ¡á ΓÑ ¿º ¡¿σ, ¬«Γ«αδÑ «»¿ßá- ¡δ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¿ß»«½∞ºπÑ¼δσ ¼«ñπ½Ñ⌐, ¼«ª¡« ßßδ- ½áΓ∞ß∩ ¿º ¿ßσ«ñ¡«ú« Σá⌐½á ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ß »«¼«Θ∞ε ñ¿- αÑ¬Γ¿óδ àòÆRN. Åα¿ φΓ«¼ «í∩ºá¡¡«ßΓ∞ «íÑß»Ñτ¿Γ∞ ¬«ααÑ¬Γ¡δ⌐ Γ¿» ó «»αÑñÑ½Ñ¡¿¿ àòÆRN Γá¬ªÑ ó«º½áúáÑΓß∩ ¡á óáß. è«úñá «íΩÑ¬Γ¡δ⌐ Σá⌐½ π¬áºδóáÑΓß∩ ó ñ¿αÑ¬Γ¿óÑ $L, Æπα- í«-Åáß¬á½∞ »αÑ«íαáºπÑΓ Σá⌐½ ¿º Σ«α¼áΓá »ÑαÑ¼ÑΘáÑ¼δσ «íΩÑ¬- Γ¡δσ ¼«ñπ½Ñ⌐ (.ÄéJ) Σ¿α¼δ Intel ó ßó«⌐ ß«íßΓóÑ¡¡δ⌐ ó¡πΓ- αÑ¡¡¿⌐ Σ«α¼áΓ »ÑαÑ¼ÑΘáÑ¼δσ ¼«ñπ½Ñ⌐. ¥Γ« »αÑ«íαáº«óá¡¿Ñ ó«º- ¼«ª¡« ½¿Φ∞ »α¿ ß«í½εñÑ¡¿¿ ¡Ñ¬«Γ«αδσ »αáó¿½: 1. éßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ«½ª¡δ íδΓ∞ »«¼ÑΘÑ¡δ ó ßÑú- ¼Ñ¡Γ ß ¿¼Ñ¡Ñ¼ æÄDà, á óßÑ ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ñ«½ª¡δ íδΓ∞ »«¼ÑΘÑ¡δ ó ßÑú¼Ñ¡Γ ß ¿¼Ñ¡Ñ¼ DAÆA. éßÑ ñαπú¿Ñ ßÑú¼Ñ¡Γδ ¿ú¡«α¿απεΓß∩, »«φΓ«¼π ¿¼ÑÑΓß∩ ñ¿- αÑ¬Γ¿óá GRÄUÉ. é «»αÑñÑ½Ñ¡¿∩σ ßÑú¼Ñ¡Γá ¼«ªÑΓ ºáñá- óáΓ∞ß∩ óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá ¿½¿ íá⌐Γá (WORD ¿½¿ éYÆà). Åα¿ αÑñá¬Γ¿α«óá¡¿¿ ßó∩ºÑ⌐ «¡¿ óßÑúñá óδαáó¡¿óáεΓß∩ ¡á úαá¡¿µπ ß½«óá. é «»αÑñÑ½Ñ- ¡¿∩σ ßÑú¼Ñ¡Γ«ó ¼«úπΓ π¬áºδóáΓ∞ß∩ ñ¿αÑ¬Γ¿óδ ÉUéLIæ («¡¿ ¿ú¡«α¿απεΓß∩), ¡« ó ¡¿σ ¡Ñ ñ«½ª¡« ºáñáóáΓ∞ß∩ ¿¼∩ ¬½áßßá. (é¼ÑßΓ« ¿¼Ñ¡¿ ßÑú¼Ñ¡Γá æÄDà ¼«ªÑΓ Γá¬ªÑ ó«ß»α¿¡¿¼áΓ∞ß∩ ¿¼∩ ßÑú¼Ñ¡Γá æseg, á ó¼ÑßΓ« ¿¼Ñ¡¿ ßÑú¼Ñ¡Γá DAÆA ¼«ªÑΓ ó«ß»α¿¡¿¼áΓ∞ß∩ ¿¼∩ ßÑú¼Ñ¡Γá Dseg.) 2. Åα¿ «»¿ßá¡¿¿ »ÑαÑ¼Ñ¡¡δσ ßÑú¼Ñ¡ΓÑ DAÆA ¿½¿ Dseg ñ½∩ «»αÑñÑ½Ñ¡¿∩ º¡áτÑ¡¿∩ óßÑúñá ¿ß»«½∞ºπ⌐ΓÑ ó«»α«ß¿- ΓÑ½∞¡δ⌐ º¡á¬ (?). ìá»α¿¼Ñα: Count DW ? Buffer DB 128 DUP(?) ïεí«⌐ ºá»α«ß ¡á ß«ºñá¡¿Ñ ¿¡¿µ¿á½¿º¿α«óá¡¡δσ »ÑαÑ¼Ñ¡¡δσ ó ßÑú¼Ñ¡ΓÑ DAÆA ¿½¿ Dseg ó Æπαí«-Åáß¬á½Ñ ¿ú¡«α¿απÑΓß∩. 3. Åα¿ ßßδ½¬Ñ ¡á »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Γ¿»á àòÆRN ¡Ñ π¬áºδóá⌐ΓÑ ß¼ÑΘÑ¡¿Ñ. ìÑñ«»πßΓ¿¼á, ¡á»α¿¼Ñα, ß½Ññπε- Θá∩ ¬«¡ßΓαπ¬µ¿∩: EXTRN MyProc : NEAR CALL MyProc + 8 çá¼ÑΓ¿¼, τΓ« φΓ« «úαá¡¿τÑ¡¿Ñ ¡Ñ ¬áßáÑΓß∩ »ÑαÑ- ¼Ñ¡¡δσ Γ¿»á àòÆRN. 4. üá⌐Γ«óδÑ ßßδ½¬¿ ¡á ß¿¼ó«½δ Γ¿»á àòÆRN ¡Ññ«»πßΓ¿¼δ. ¥Γ« «º¡áτáÑΓ, ¡á»α¿¼Ñα, τΓ« «»ÑαáΓ«αδ ìIGìÆ ¿ LÄW ¡Ñ½∞º∩ ¿ß»«½½∞º«óáΓ∞ ß ß¿¼ó«½á¼¿ Γ¿»á àòÆRN. Æπαí«-ÇßßÑ¼í½Ñα ¿ Æπαí«-Åáß¬á½∞ Æπαí«-ÇßßÑ¼í½Ñα (TASM) º¡áτ¿ΓÑ½∞¡« «í½ÑúτáÑΓ αáºαáí«Γ¬π »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¿ «αúá¡¿ºáµ¿¿ ó ¡¿σ ¿¡ΓÑαΣÑ⌐ßá ß »α«úαá¼¼á¼¿ ¡á Æπαí«-Åáß¬á½Ñ. Æπαí«-ÇßßÑ¼í½Ñα »«ññÑαª¿óáÑΓ ß»Ñµ¿Σ¿τÑß¬«Ñ ¿ß»«½∞º«óá¡¿Ñ ßÑú¼Ñ¡Γ«ó, ßσÑ¼π »á¼∩Γ¿ ¿ ∩ºδ¬«- óπε »«ññÑαª¬π ñ½∩ »α«úαá¼¼¿ßΓ«ó, αáí«ΓáεΘ¿σ ¡á Æπαí«-Åáß¬á½Ñ. êß»«½∞ºπ∩ «»µ¿ε TPASCAL ¿ ñ¿αÑ¬Γ¿óπ .MODEL, ¼«ª¡« «íÑß- »Ñτ¿Γ∞ ß«í½εñÑ¡¿Ñ ß«ú½áΦÑ¡¿⌐ « ßó∩º∩σ ß Æπαí«-Åáß¬á½Ñ¼, «»- αÑñÑ½¿Γ∞ ¿¼Ñ¡á ßÑú¼ÑΓ«ó, óδ»«½¡¿Γ∞ ¿¡ßΓαπ¬µ¿¿ PUSH BP ¿ MOV PB,SP, á Γá¬ªÑ «íÑß»Ñτ¿Γ∞ ó«ºóαáΓ π»αáó½Ñ¡¿∩ ß »«¼«Θ∞ε «»Ñ- αáΓ«α«ó POP BP ¿ RET N (úñÑ N - φΓ« τ¿ß½« íá⌐Γ«ó »áαá¼ÑΓαá). ä¿αÑ¬Γ¿óá PROC »«ºó«½∩ÑΓ óá¼ ºáñáΓ∞ »áαá¼ÑΓαδ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ¬á¬ «¡¿ «»αÑñÑ½Ñ¡δ ó »α«úαá¼¼Ñ ¡á Æπαí«-Åáß¬á½Ñ. àß½¿ óδ «»αÑñÑ½∩ÑΓÑ Σπ¡¬µ¿ε, ¬«Γ«αá∩ ó«ºóαáΘáÑΓ ßΓα«¬π, «í- αáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á Γ«, τΓ« ñ¿αÑ¬Γ¿óá PROC ¿¼ÑÑΓ «»µ¿ε RETURN, »«ºó«½∩εΘπε óá¼ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ óαÑ¼Ñ¡¡«¼π π¬áºá- ΓÑ½ε ßΓα«¬¿ ó ßΓÑ¬Ñ ¿ ¡Ñ «¬áºδóáεΘπε ó½¿∩¡¿∩ ¡á τ¿ß½« íá⌐Γ«ó »áαá¼ÑΓαá, ñ«íáó½∩Ñ¼δσ ó «»ÑαáΓ«αÑ RET. Åα¿óÑñÑ¼ »α¿¼Ñαδ ¬«ñá, ó ¬«α«αδσ ¿ß»«½∞ºπεΓß∩ ñ¿αÑ¬Γ¿óδ .MODEL ¿ PROC: .MODEL TPASCAL .CODE MyProc PROC FAR 1:BYTE, j:BYTE RETURNS result:DWORD PUBLIC MyProc les di,result ;»«½πτ¿Γ∞ áñαÑß óαÑ¼Ñ¡¡«⌐ ßΓα«¬¿ mov al,i ;»«½πτ¿Γ∞ »Ñαóδ⌐ »áαá¼ÑΓα i mov bl,j ;»«½πτ¿Γ∞ óΓ«α«⌐ »áαá¼ÑΓα j . . . ret Ä»αÑñÑ½Ñ¡¿Ñ Σπ¡¬µ¿¿ ó Æπαí«-Åáß¬á½Ñ íπñÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: function MyProc(i,j : char) : string external; ü«½ÑÑ »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε «í ¿¡ΓÑαΣÑ⌐ßÑ ¼Ñªñπ Æπαí«-Åáß¬á½Ñ¼ ¿ Æπαí«-ÇßßÑ¼í½Ñα«¼ ¼«ª¡« ¡á⌐Γ¿ ó â½áóÑ 7 "Éπ¬«ó«ñßΓóá »«½∞º«óáΓÑ½∩ »« Æπαí«-ÇßßÑ¼í½Ñαπ". Åα¿¼Ñαδ »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá æ½ÑñπεΘá∩ »α«úαá¼¼á ∩ó½∩ÑΓß∩ »α¿¼Ñα«¼ ¼«ñπ½∩ ¿ »αÑñß- Γáó½∩ÑΓ ß«í«⌐ ñóÑ »α«úαá¼¼δ ¡á áßßÑ¼í½ÑαÑ, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ «íαáí«Γ¬¿ ßΓα«¬. öπ¡¬µ¿∩ UααÑræásÑ »αÑ«íαáºπÑΓ ß¿¼ó«½δ ßΓα«¬¿ ó »α«»¿ß¡δÑ íπ¬óδ, á Σπ¡¬µ¿∩ StringOf ó«ºóαáΘáÑΓ ßΓα«¬π ß¿¼ó«½«ó ºáñá¡¡«⌐ ñ½¿¡δ. unit Strings; interface function UpperCase(S: string): error in example .............. RET ; ¿ºó½Ñτ∞ »áαá¼ÑΓαδ ¿ óδ⌐Γ¿ SrtingOf ENDP CODE ENDS END é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »«¬áºá¡á »α«úαá¼¼á ¡á áßßÑ¼í½ÑαÑ, ¬«Γ«αá∩ ¼«ªÑΓ ßßδ½áΓ∞ß∩ ¡á »α«úαá¼¼δ ¿ »ÑαÑ¼Ñ¡¡δÑ Åáß¬á½∩. Åα«úαá¼¼á Number ßτ¿ΓδóáÑΓ ñ« 100 µÑ½δσ º¡áτÑ¡¿⌐ ¿ ºáΓÑ¼ ñ½∩ »α«óÑα¬¿ úαá¡¿µ ¬áªñ«ú« ¿º φΓ¿σ º¡áτÑ¡¿⌐ óδºδóáÑΓ »α«úαá¼¼π ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá. àß½¿ º¡áτÑ¡¿Ñ óδσ«ñ¿Γ ºá úαá¡¿µδ, »α«- µÑñπαá, ¡á»¿ßá¡¡á∩ ¡á áßßÑ¼í½ÑαÑ, óδºδóáÑΓ ñ½∩ ¿σ αáß»ÑτáΓ¬¿ »α«µÑñπαπ, ¡á»¿ßá¡¡πε ¡á ∩ºδ¬Ñ Åáß¬á½∞. program Numbers; {$L CHECK} var Data: array[1..100] of integer; Count,I: integer; procedure RangeError(N: integer); begin Writeln('Range error: ',N); end; procedure CheckRange(Min,Max: integer); external; begin Count := 0; while not Eof and (Count < 100) do begin Count := Count + 1; Readln(Data[Count]); end; CheckRange(-10,10); end; öá⌐½ ß »α«úαá¼¼«⌐ ¡á áßßÑ¼í½ÑαÑ, αÑá½¿ºπεΘ¿⌐ »α«µÑñπαπ æheckRángÑ, »α¿ó«ñ¿Γß∩ ñá½ÑÑ. ÅÑαÑñ ¬«¼»¿½∩µ¿Ñ⌐ »α«úαá¼¼δ Numbers Ñú« ¡πª¡« áßßÑí¼½¿α«óáΓ∞ ó Σá⌐½ ß ¿¼Ñ¡Ñ¼ æìàæè.ÄéJ. çá¼ÑΓ¿¼, τΓ« ñ½∩ »α«µÑñπαδ ¿ß»«½∞ºπÑΓß∩ í½¿ª¡¿⌐ Γ¿» óδº«óá, »«ß¬«½∞¬π φΓ« «»¿ßá¡« ó »α«úαá¼¼Ñ. DATA SEGMENT WORD PUBLIC EXTRN Data: WORD, Count: Word ; »ÑαÑ¼Ñ¡¡δÑ Åáß¬á½∩ DATA ENDS CODE SEGMENT BYTE PUBLIC ASSUME CS: CODE, DS: DATA EXTRN RangeError: NEAR ; αÑá½¿º«óá¡« ¡á Åáß¬á½Ñ PUBLIC CheckRange ; αÑá½¿º«óá¡δ ºñÑß∞ CheckRange PROC NEAR MOV BX,SP ; »«½πτ¿Γ∞ π¬áºáΓÑ½∞ »áαá¼ÑΓα«ó MOV AX,SS:[BX+4] ; ºáúαπº¿Γ∞ îin MOV DX,SS:[BX+2] ; ºáúαπº¿Γ∞ îáσ XOR BX,BX ; «τ¿ßΓ¿ßΓ∞ ¿¡ñÑ¬ß ñá¡¡δσ MOV CX,Count ; ºáúαπº¿Γ∞ ßτÑΓτ¿¬ JCXZ SD4 ; »α«»πßΓ¿Γ∞ Ñß½¿ αáó¡« 0 SD1: CMP Data[Bx],AX ; ß½¿Φ¬«¼ ¼á½«?; JL SD2 ; ñá, »ÑαÑ⌐Γ¿ CMP Data[BX],DX ; ß½¿Φ¬«¼ óÑ½¿¬«? JLE SD3 ; ¡ÑΓ, »ÑαÑ⌐Γ¿ SD2: PUSH AX ; ß«σαá¡¿Γ∞ αÑú¿ßΓαδ PUSH BX PUSH CX PUSH DX PUSH Data[BX] ; »ÑαÑñáΓ∞ óδσ«ñ∩ΘÑÑ ºá úαá¡¿µδ ; º¡áτÑ¡¿Ñ ó Åáß¬á½∞ CALL RangeError ; óδºóáΓ∞ »α«µÑñπαπ ¡á Åáß¬á½Ñ POP DX ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓαδ POP CX POP BX POP AX SD3: INC BX ; πßΓá¡«ó¿Γ∞ π¬áºáΓÑ½∞ ¡á ß½Ññπ- ; εΘ¿⌐ φ½Ñ¼Ñ¡Γ INC BX LOOP SD1 ; »«óΓ«α¿Γ∞ µ¿¬½ ñ½∩ ¬áªñ«ú« ; φ½Ñ¼Ñ¡Γá SD4: RET 4 ; «τ¿ßΓ¿Γ∞ ßΓÑ¬ ¿ ó«ºóαáΓ¿Γ∞ ; π»αáó½Ñ¡¿Ñ CheckRange ENDS END Åα¿¼Ñα ¡á Æπαí«-ÇßßÑ¼í½ÑαÑ Åα¿óÑñÑ¼ »α¿¼Ñα »α«úαá¼¼δ ¡á Æπαí«-ÇßßÑ¼í½ÑαÑ, ó ¬«Γ«- α«¼ ¿ß»«½∞ºπεΓß∩ óßÑ »αÑ¿¼πΘÑßΓóá »«ññÑαª¬¿ ó TASM ßαÑñßΓó ßó∩º¿ ß Æπαí«-Åáß¬á½Ñ¼. ¥Γ«Γ »α¿¼Ñα ∩ó½∩ÑΓ¼∩ ¼«ñ¿Σ¿¬áµ¿Ñ⌐ »αÑñδñπΘÑ⌐ »α«úαá¼¼δ. .MODEL TPASCAL ; ¼«ñÑ½∞ ¬«ñá Æπαí«-Åáß¬á½∩ LOCALS @@ ; «»αÑñÑ½¿Γ∞ ½«¬á½∞¡δ⌐ ; »αÑΣ¿¬ß ¼ÑΓ«¬ .DATA ; ßÑú¼Ñ¡Γ ñá¡¡δσ EXTRN Buffer:WORD,COunt:WORD ; »Ñα¼Ñ¡¡δÑ Åáß¬á½∩ .CODE ; ßÑú¼Ñ¡Γ ¬«ñá EXTRN RangeError: NEAR ; αÑá½¿º«óá¡« ¡á Åáß¬á½Ñ PUBLIC CheckRange ; αÑá½¿º«óá¡δ ºñÑß∞ CheckRange PROC NEAR MOV BX,SP ; »«½πτ¿Γ∞ π¬áºáΓÑ½∞ »áαá¼ÑΓα«ó MOV AX,SS:[BX+4] ; ºáúαπº¿Γ∞ îin MOV DX,SS:[BX+2] ; ºáúαπº¿Γ∞ îáσ XOR BX,BX ; «τ¿ßΓ¿ßΓ∞ ¿¡ñÑ¬ß ñá¡¡δσ MOV CX,Count ; ºáúαπº¿Γ∞ ßτÑΓτ¿¬ JCXZ SD4 ; »α«»πßΓ¿Γ∞ Ñß½¿ αáó¡« 0 @@1: CMP Data[Bx],AX ; ß½¿Φ¬«¼ ¼á½«?; JL SD2 ; ñá, »ÑαÑ⌐Γ¿ CMP Data[BX],DX ; ß½¿Φ¬«¼ óÑ½¿¬«? JLE SD3 ; ¡ÑΓ, »ÑαÑ⌐Γ¿ @@2: PUSH AX ; ß«σαá¡¿Γ∞ αÑú¿ßΓαδ PUSH BX PUSH CX PUSH DX PUSH Data[BX] ; »ÑαÑñáΓ∞ óδσ«ñ∩ΘÑÑ ºá úαá- ; ¡¿µδ º¡áτÑ¡¿Ñ ó Åáß¬á½∞ CALL RangeError ; óδºóáΓ∞ »α«µÑñπαπ ¡á Åáß¬á½Ñ POP DX ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓαδ POP CX POP BX POP AX @@3: INC BX ; πßΓá¡«ó¿Γ∞ π¬áºáΓÑ½∞ ¡á ß½Ñ- ; ñπεΘ¿⌐ φ½Ñ¼Ñ¡Γ INC BX LOOP SD1 ; »«óΓ«α¿Γ∞ µ¿¬½ ñ½∩ ¬áªñ«ú« ; φ½Ñ¼Ñ¡Γá @@4: RET ; «τ¿ßΓ¿Γ∞ ßΓÑ¬ ¿ ó«ºóαáΓ¿Γ∞ ; π»αáó½Ñ¡¿Ñ CheckRange ENDS END çá¼ÑΓ¿¼, τΓ« »α¿ ¿ß»«½∞º«óá¡¿¿ ñ¿αÑ¬Γ¿óδ .MODEL TPASCAL Æπαí«-ÇßßÑ¼í½Ñα íπñÑΓ áóΓ«¼áΓ¿τÑß¬¿ úÑ¡Ñα¿α«óáΓ∞ »ÑαÑñ »Ñα- ó«⌐ ¿¡ßΓαπ¬µ¿Ñ⌐ ßΓá¡ñáαΓ¡δÑ «»ÑαáΓ«αδ óσ«ñá ¿ ßΓá¡ñáαΓ¡δÑ «»ÑαáΓ«αδ óδσ«ñá »«ß½Ñ ¿¡ßΓαπ¬µ¿¿ RET. é¡πΓαÑ¡¡¿⌐ ¼áΦ¿¡¡δ⌐ ¬«ñ ä½∩ ¡Ñí«½∞Φ¿σ »«ñ»α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá «τÑ¡∞ πñ«í¡« ¿ß»«½∞º«óáΓ∞ ó¡πΓαÑ¡¡¿Ñ ñ¿αÑ¬Γ¿óδ ¿ «»ÑαáΓ«αδ Æπα- í«-Åáß¬á½∩ («»ÑαáΓ«αδ inline). Ä¡¿ »«ºó«½∩εΓ óßΓáó½∩Γ∞ ¿¡ßΓ- απ¬µ¿¿ ¼áΦ¿¡¡«ú« ¬«ñá ¡Ñ»«ßαÑñßΓóÑ¡¡« ó »α«úαá¼¼π ¿½¿ ΓÑ¬ßΓ í½«¬á, ó¼ÑßΓ« Γ«ú«, τΓ«íδ ¿ß»«½∞º«óáΓ∞ «íΩÑ¬Γ¡δ⌐ Σá⌐½. Ä»ÑαáΓ«αδ Inline Ä»ÑαáΓ«α inline ß«ßΓ«¿Γ ¿º ºáαÑºÑαó¿α«óá¡¡«ú« ß½«óá Inline, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ «ñ¿¡ ¿½¿ í«½ÑÑ ó¡πΓαÑ¡¡¿σ ºá»¿- ßÑ⌐ (ºá»¿ßÑ⌐ ¼áΦ¿¡¡«ú« ¬«ñá), αáºñÑ½Ñ¡¡δσ ¬«ß«⌐ τÑαΓ«⌐ ¿ ºá¬½ετÑ¡¡δσ ó ¬απú½δÑ ß¬«í¬¿: inline(10/$2345/Count+1/Data-Offset); Ä»ÑαáΓ«α inline ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: -------- --- -------------- --- Ä»ÑαáΓ«α -->( inline )->( ( )-->! ºá»¿ß∞ ó« !-->( ) )--> inline -------- --- ^ ! ó¡πΓαÑ¡¡Ñ¼ ! ! --- ! ! ¼áΦ¿¡¡«¼ ! ! ! ! ¬«ñÑ ! ! ! -------------- ! ! ! ! --- ! -------( / )<----- --- èáªñδ⌐ «»ÑαáΓ«α inline ß«ßΓ«¿Γ ¿º ¡Ñ«í∩ºáΓÑ½∞¡«ú« ß»Ñ- µ¿Σ¿¬áΓ«αá αáº¼Ñαá, < ¿½¿ > ¿ ¬«¡ßΓá¡Γδ ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ¼Ñ¡«⌐, ºá ¬«Γ«α«⌐ ß½ÑñπεΓ ¡«½∞ ¿½¿ í«½ÑÑ ß»Ñµ¿Σ¿¬áΓ«α«ó ß¼ÑΘÑ¡¿∩ (ß¼. «»¿ßá¡¡δ⌐ ñá½ÑÑ ß¿¡Γá¬ß¿ß). æ»Ñµ¿Σ¿¬áΓ«α ß¼Ñ- ΘÑ¡¿∩ ß«ßΓ«¿Γ ¿º + ¿½¿ -, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ¬«¡ßΓá¡Γá. èáªñá∩ ó¡πΓαÑ¡¡∩∩ ºá»¿ß∞ »«α«ªñáÑΓ 1 íá⌐Γ ¿½¿ «ñ¡« ß½«- ó« ¬«ñá. ç¡áτÑ¡¿∩ óδτ¿ß½∩ÑΓß∩, ¿ßσ«ñ∩ ¿º º¡áτÑ¡¿∩ »Ñαó«⌐ ¬«¡ßΓá¡Γδ ¿½¿ ß¼ÑΘÑ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ¼Ñ¡¡«⌐, ¬ ¬«Γ«α«¼π ñ«íáó½∩ÑΓß∩ ¿½¿ ¿º ¬«Γ«α«ú« óδτ¿ΓáÑΓß∩ º¡áτÑ¡¿Ñ ¬áªñ«⌐ ¿º »«ß½ÑñπεΘ¿σ ¬«¡ßΓá¡Γ. ------------- çá»¿ß∞ ó« ----------------------->! ¬«¡ßΓá¡Γá !----------> ó¡πΓαÑ¡¡Ñ¼ ! --- ^ ------------- ^ ¼áΦ¿¡¡«¼ !-->( < )------! ! ¬«ñÑ ! --- ! ! ! --- ! ! !-->( > )------- ! ! --- ! ! ----------------- ! -->! ¿ñÑ¡Γ¿Σ¿¬áΓ«α !----------------------- ! »ÑαÑ¼Ñ¡¡«⌐ ! ! ^ ----------------- ! ! ------ ------- ! ------ ----------- ! ------>!º¡á¬!-->!¬«¡ßΓá¡Γá!---- ^ ------ ----------- ! ! ! --------------------------- àß½¿ ºá»¿ß∞ ó ¼áΦ¿¡¡«¼ ¬«ñÑ ß«ßΓ«¿Γ Γ«½∞¬« ¿º ¬«¡ßΓá¡Γ ¿ Ñß½¿ ÑÑ º¡áτÑ¡¿Ñ ½Ñª¿Γ ó 8-í¿Γ«ó«¼ ñ¿á»áº«¡Ñ (0..255), Γ« «¡á »«α«ªñáÑΓ «ñ¿¡ íá⌐Γ ¬«ñá. àß½¿ º¡áτÑ¡¿Ñ óδσ«ñ¿Γ ºá úαá- ¡¿µπ 8-í¿Γ«ó«ú« ñ¿á»áº«¡á ¿½¿ Ñß½¿ ó¡πΓαÑ¡¡∩∩ ºá»¿ß∞ ßßδ½á- ÑΓß∩ ¡á »ÑαÑ¼Ñ¡¡πε, Γ« úÑ¡Ñα¿απÑΓß∩ «ñ¡« ß½«ó« ¬«ñá (¼½áñΦ¿⌐ º¡áτáΘ¿⌐ íá⌐Γ ß½ÑñπÑΓ »Ñαóδ¼). Ä»ÑαáΓ«αδ < ¿ > ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ «Γ¼Ñ¡δ áóΓ«¼á- Γ¿τÑß¬«ú« óδí«αá αáº¼Ñαá, ¬«Γ«αδ⌐ íδ½ «»¿ßá¡ αá¡ÑÑ. àß½¿ «»ÑαáΓ«α inline ¡áτ¿¡áÑΓß∩ ß «»ÑαáΓ«αá <, Γ« ó ¬«ñ ó¬½ε- τáÑΓß∩ Γ«½∞¬« ¼½áñΦ¿⌐ º¡áτáΦ¿⌐ íá⌐Γ º¡áτÑ¡¿∩, ñáªÑ Ñß½¿ φΓ« 16-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ. àß½¿ «»ÑαáΓ«α inline ¡áτ¿¡áÑΓß∩ ß «»ÑαáΓ«αá >, Γ« ó ¬«ñ ó¬½ετáÑΓß∩ óßÑúñá ß½«ó«, ñáªÑ Ñß½¿ ßΓáαΦ¿⌐ º¡áτáΘ¿⌐ íá⌐Γ αáóÑ¡ 0. ìá»α¿¼Ñα, «»ÑαáΓ«α: inline(<$1234/>$44); úÑ¡Ñ¡¿απÑΓ ¬«ñ ñ½¿¡«⌐ Γα¿ íá⌐Γá: $34,$44,$00. ç¡áτÑ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ¼Ñ¡¡«⌐ ó« ó¡πΓαÑ¡¡Ñ⌐ ºá»¿ß¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ áñαÑß ß¼ÑΘÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ó¡πΓα¿ ÑÑ íáº«- ó«ú« ßÑú¼Ñ¡Γá. üáº«óδ⌐ ßÑú¼Ñ¡Γ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ (»ÑαÑ- ¼Ñ¡¡δσ, «»¿ßá¡¡δσ ¡á ßá¼«¼ ó¡ÑΦ¡Ñ¼ πα«ó¡Ñ ó ¼«ñπ½Ñ ¿½¿ »α«ú- αá¼¼Ñ) ¿ Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, ñ«ßΓπ» ¬ ¬«Γ«αδ¼ «αúá¡¿º«- óá¡ τÑαÑº αÑú¿ßΓα DS, »αÑñßΓáó½∩εΓ ß«í«⌐ ßÑú¼Ñ¡Γ ñá¡¡δσ. üá- º«óδ⌐ ßÑú¼Ñ¡Γ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ (»ÑαÑ¼Ñ¡¡δσ, «»¿ßá¡¡δσ ó¡πΓα¿ »«ñ»α«úαá¼¼δ) ∩ó∩ÑΓß∩ ßÑú¼Ñ¡Γ«¼ ßΓÑ¬á. é φΓ«¼ ß½πτáÑ ß¼ÑΘÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ «Γ¡«ß¿Γß∩ ó αÑú¿ßΓαπ éÉ, τΓ« áóΓ«¼áΓ¿- τÑß¬¿ ó½ÑτÑΓ ºá ß«í«⌐ óδí«α ßÑú¼Ñ¡Γá ßΓÑ¬á. Åα¿¼Ñτá¡¿Ñ: ÉÑú¿ßΓαδ éÉ, SÉ, SS ¿ DS ñ«½ª¡δ ß«σαá¡∩Γ∞- ß∩ ß »«¼«Θ∞ε ó¡πΓαÑ¡¡¿σ «»ÑαáΓ«α«ó. ç¡áτÑ¡¿Ñ óßÑσ ñαπ- ú¿σ αÑú¿ßΓα«ó ¼«ª¡« ¿º¼Ñ¡∩Γ∞. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ «»ÑαáΓ«αá inline úÑ¡Ñα¿απÑΓß∩ ¼áΦ¿¡¡δ⌐ ¬«ñ ñ½∩ ºá»¿ß¿ ºáñá¡¡«ú« τ¿ß½á ß½«ó ¿½¿ ñá¡¡δσ ó π¬áºá¡¡πε »ÑαÑ¼Ñ¡¡πε. Åα¿ óδº«óÑ »α«µÑñπαδ FillWord Count ß½«ó ß« º¡áτÑ¡¿Ñ¼ Data ºá»¿ßδóáÑΓß∩ ó »á¼∩Γ¿, ¡áτ¿¡á∩ ß »Ñα- ó«ú« íá⌐Γá, «í«º¡áτÑ¡¡«ú« ¬á¬ Dest. procedure FillWord(var Dest, Count, Data: word); begin inline( $C4/$BE/Dest/ { LES DI,Dest[BP] } $8B/$8e/Count/ { MOV CX,Xount[BP] } $8B/$86/Data/ { MOV AX,Data[BP] } $FC/ { CLD } $F3/$AB); { REP STOSW } é «»ÑαáΓ«α¡«⌐ τáßΓ¿ í½«¬á «»ÑαáΓ«αδ inline ¼«úπΓ ßó«- í«ñ¡« τÑαÑñ«óáΓ∞ß∩ ß ñαπú¿¼¿ «»ÑαáΓ«αá¼¿. ä¿αÑ¬Γ¿óδ inline ä¿αÑ¬Γ¿óδ inline »«ºó«½∩εΓ »¿ßáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ »αÑ«íαáºπεΓß∩ »α¿ ¬áªñ«¼ óδº«óÑ ó ºáñá¡¡πε »«ß½Ñ- ñ«óáΓÑ½∞¡«ßΓ∞ ¿¡ßΓαπ¬µ¿⌐, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ ¼áΦ¿¡¡δ⌐ ¬«ñ. æ¿¡Γá¬ß¿ß π ñ¿αÑ¬Γ¿óδ inline Γá¬«⌐ ªÑ, ¬á¬ π «»ÑαáΓ«αá inline: -------------- ä¿αÑ¬Γ¿óá ---------------------->! «»ÑαáΓ«α !--> inline ! inline ! -------------- Åα¿ óδº«óÑ «íδτ¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ (ó¬½ετá∩ ΓÑ, ¬«Γ«αδÑ ß«ñÑαªáΓ ó ßÑíÑ «»ÑαáΓ«αδ inline) ¬«¼¿½∩Γ«α«¼ úÑ¡Ñ- α¿απÑΓß∩ Γá¬«⌐ ¬«ñ, ó ¬«Γ«α«¼ »áαá¼ÑΓαδ (Ñß½¿ «¡¿ ¿¼ÑεΓ- ß∩) »«¼ÑΘáεΓß∩ ó ßΓÑ¬, á ºáΓÑ¼ πªÑ ñ½∩ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ úÑ¡Ñα¿απÑΓß∩ ¿¡ßΓαπ¬µ¿∩ æÇLL. Äñ¡á¬«, ¬«úñá óδ «íαáΘáÑΓÑß∞ ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ Γ¿»á inline, ¬«¼»¿½∩Γ«α ó¼ÑßΓ« ¿¡ßΓαπ¬µ¿¿ æÇLL úÑ¡Ñα¿απÑΓ ¬«ñ ¿º ñ¿αÑ¬Γ¿óδ inline. é«Γ ¬«α«Γ¬¿⌐ »α¿¼Ñα ñóπσ ñ¿αÑ¬Γ¿ó inline: procedure DisableInterrupts; inline($FA); { CLI } procedure EnableInterrupts; inline($FB); { STI } è«úñá óδºδóáÑΓß∩ »α«µÑñπαá DisableInterrupt Γ« úÑ¡Ñα¿- απÑΓß∩ «ñ¿¡ íá⌐Γ ¬«ñá - ¿¡ßΓαπ¬µ¿∩ æLI. Åα«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, «»¿ßá¡¡δÑ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó inline, ¼«úπΓ ¿¼ÑΓ∞ »áαá¼ÑΓαδ, «ñ¡á¬« ¡á »áαá¼ÑΓαδ ¡Ñ½∞º∩ ßßδ½áΓ∞ß∩ ß¿¼ó«½¿τÑß¬¿ (σ«Γ∩ ñ½∩ ñαπú¿σ »ÑαÑ¼Ñ¡¡δσ φΓ« ñ«- »πß¬áÑΓß∩). è Γ«¼π ªÑ »«ß¬«½∞¬π Γá¬¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Σá¬Γ¿τÑß¬¿ ∩ó½∩εΓß∩ ¼á¬α«¬«¼á¡ñá¼¿, π ¡¿σ «ΓßπΓßΓóπεΓ áóΓ«- ¼áΓ¿τÑß¬¿⌐ ¬«ñ ß ¿¡ßΓαπ¬µ¿∩¼¿ óσ«ñá ¿½¿ óδσ«ñá ¿ ¡¿¬á¬¿σ ¿¡ßΓαπ¬µ¿⌐ ó«ºóαáΓá π»αáó½Ñ¡¿∩ ¡Ñ ΓαÑíπÑΓß∩. æ½ÑñπεΘá∩ Σπ¡¬µ¿∩ »α«¿ºó«ñ¿Γ π¼¡«ªÑ¡¿Ñ ñóπσ µÑ½δσ º¡á- τÑ¡¿⌐, ó αÑºπ½∞ΓáΓÑ τÑú« »«½πτáÑΓß∩ τ¿ß½« ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á: function LongMul(X,Y : integer): longint; inline( $58/ { POP DS ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á Y } $5A/ { POP AX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á X } $F7/$EA); { IMUL DX ; DX:AX = X*Y } ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á «ΓßπΓßΓó¿Ñ ¿¡ßΓαπ¬µ¿⌐ óσ«ñá ¿ óδ- σ«ñá ¿ ¿¡ßΓαπ¬µ¿¿ ó«ºóαáΓá π»αáó½Ñ¡¿∩. êσ »α¿ßπΓßΓó¿∩ ¡Ñ ΓαÑíπÑΓß∩, »«ß¬«½∞¬π »α¿ óδº«óÑ φΓ«⌐ Σπ¡¬µ¿¿ ß«ñÑαªáΘ¿Ñß∩ ó ¡Ñ⌐ τÑΓδαÑ íá⌐Γá »α«ßΓ« ó¬½ετáεΓß∩ ó ΓÑ¬ßΓ »α«úαá¼¼δ. ä¿αÑ¬Γ¿óδ inline »αÑñ¡áº¡áτÑ¡δ Γ«½∞¬« ñ½∩ «τÑ¡∞ ¬«α«Γ- ¬¿σ (¼Ñ¡ÑÑ 10 íá⌐Γ«ó) »α«µÑñπα ¿ Σπ¡¬µ¿⌐. êº-ºá Γ«ú«, τΓ« »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Γ¿»á inline ¿¼ÑεΓ σáαá¬ΓÑα ¼á¬α««»αÑñÑ½Ñ¡¿⌐, «¡¿ ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬á- τÑßΓóÑ áαúπ¼Ñ¡Γá «»ÑαáΓ«αá @ ¿½¿ ó Σπ¡¬µ¿∩σ Addr, Äffs ¿ Seg. Åα∩¼á∩ »á¼∩Γ∞ ¿ ñ«ßΓπ» ¬ »«αΓá¼ îáßß¿óδ îÑ¼, îÑ¼W ¿ îÑ¼L é Æπαí«-Åáß¬á½Ñ αÑá½¿º«óá¡δ Γα¿ »αÑñ«»αÑñÑ½Ñ¡¡δσ ¼áßß¿- óá - îÑ¼, îÑ¼W ¿ îÑ¼L. ¥Γ¿ ¼áßß¿óδ ¿ß»«½∞ºπεΓß∩ ñ½∩ »α∩¼«ú« ñ«ßΓπ»á ¬ »á¼∩Γ¿. èáªñδ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá îÑ¼ »αÑñßΓáó½∩ÑΓ ß«í«⌐ íá⌐Γ, ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ îÑ¼W - φΓ« ß½«ó«, á ¬áªñδ⌐ φ½Ñ- ¼Ñ¡Γ ¼áßß¿óá îÑ¼L ∩ó½∩ÑΓß∩ º¡áτÑ¡¿Ñ¼ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á. ä½∩ ¿¡ñÑ¬ß«ó ¼áßß¿ó«ó îÑ¼ ¿ß»«½∞ºπÑΓß∩ ß»Ñµ¿á½∞¡δ⌐ ß¿¡- Γá¬ß¿ß: ñ½∩ Γ«ú«, τΓ«íδ ºáñáΓ∞ íáº«óδ⌐ ßÑú¼Ñ¡Γ ¿ ß¼ÑΘÑ¡¿∩ ñ½∩ ∩τÑ⌐¬¿ »á¼∩Γ¿, ¬ ¬«Γ«α«⌐ »α«¿ºó«ñ¿Γß∩ ñ«ßΓπ», ¿ß»«½∞ºπ- εΓß∩ ñóá óδαáªÑ¡¿∩ µÑ½«ú« Γ¿»á ñ½¿¡«⌐ ó ß½«ó«, αáºñÑ½Ñ¡¡δÑ ñó«ÑΓ«τ¿Ñ¼. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó: Mem[$0040 : $0049] := 7; Data := Mem[Seg(V) : Ofs(V)]; MemLong := MemL[64 : 3*4]; ÅÑαóδ⌐ «»ÑαáΓ«α ß«σαá¡∩ÑΓ º¡áτÑ¡¿Ñ 7 ó íá⌐ΓÑ $0040:$0049. éΓ«α«⌐ «»ÑαáΓ«α »«¼ÑΘáÑΓ º¡áτÑ¡¿Ñ ñ½¿¡«⌐ ó ß½«- ó«, ºá»¿ßá¡¡«Ñ ó »Ñαóδσ ñóπσ íá⌐Γáσ »ÑαÑ¼Ñ¡¡«⌐ V, ó »ÑαÑ¼Ñ¡- ¡πε Data. ÆαÑΓ¿⌐ «»ÑαáΓ«α »«¼ÑΘáÑΓ º¡áτÑ¡¿Ñ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á, ºá»¿ßá¡¡«Ñ »« áñαÑßπ $0040:$000æ ó »ÑαÑ¼Ñ¡¡πε îÑ¼Long. îáßß¿óδ É«rt ¿ É«rtW ä½∩ ñ«ßΓπ»á ¬ »«αΓá¼ ñá¡¡δσ µÑ¡Γαá½∞¡«ú« »α«µÑßß«αá 80σ86 ó Æπαí«-Åáß¬á½Ñ αÑá½¿º«óá¡δ ñóá »αÑñ«»αÑñÑ½Ñ¡¡δσ ¼áß- ß¿óá - É«rt ¿ É«rtW. Äíá ¼áßß¿óá ∩ó½∩εΓß∩ «ñ¡«¼Ñα¡δ¼¿ ¿ ¬áª- ñδ⌐ φ½Ñ¼Ñ¡Γ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«αΓ ñá¡¡δσ, ñ½∩ ¬«Γ«αδσ áñ- αÑß »«αΓá ß««ΓóÑΓßΓóπÑΓ ¿¡ñÑ¬ßπ. ê¡ñÑ¬ß«¼ ∩ó½∩ÑΓß∩ º¡áτÑ¡¿Ñ µÑ½«ú« Γ¿»á ñ½¿¡«⌐ ó ß½«ó«. ¥½Ñ¼Ñ¡Γδ ¼áßß¿óá É«rt ¿¼ÑεΓ ñ½¿- ¡π «ñ¿¡ íá⌐Γ, á φ½Ñ¼Ñ¡Γδ ¼áßß¿óá É«rtW ¿¼ÑεΓ ñ½¿¡π «ñ¡« ß½«- è«úñá φ½Ñ¼Ñ¡Γπ ¼áßß¿óá É«rt ¿½¿ É«rtW »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ, Γ« φΓ« º¡áτÑ¡¿Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óδó«ñ ó óδíαá¡- ¡δ⌐ »«αΓ. è«úñá φ½Ñ¼Ñ¡Γδ ¼áßß¿óá É«rt ¿½¿ É«rtW ∩ó½∩εΓß∩ ßßδ½¬á¼¿ ¡á óδαáªÑ¡¿Ñ, Ñú« º¡áτÑ¡¿Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óó«ñ ¿º óδíαá¡¡«ú« »«αΓá. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó: Port[$20] := $20; Port[Base] := Port[Base] xor Mask; while Port[$B2] and $80 = 0 do { «ª¿ñá¡¿Ñ } êß»«½∞º«óá¡¿Ñ ¼áßß¿ó«ó É«rt ¿ É«rtW «úαá¡¿τÑ¡« Γ«½∞¬« ó «Γ¡«ΦÑ¡¿¿ »α¿ßóá¿óá¡¿∩ ¿ ßßδ½¬¿ ¡á óδαáªÑ¡¿Ñ, Γ« ÑßΓ∞ φ½Ñ- ¼Ñ¡Γδ ¼áßß¿ó«ó É«rt ¿ É«rtW ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬á- τÑßΓóÑ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ. ü«½ÑÑ Γ«ú«, ßßδ½¬¿ ¡á óÑß∞ ¼áßß¿ó É«rt ¿½¿ É«rtW (íÑº π¬áºá¡¿∩ ¿¡ñÑ¬ß«ó) ¡Ñ ñ«»πß¬áεΓ- ß∩. Äíαáí«Γ¬á »αÑαδóá¡¿⌐ ü¿í½¿«ΓÑ¬á ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ Æπαí«-Åáß¬á½∩ ¿ ¬«ñ, ß«ºñáóáÑ¼δ⌐ ¬«¼»¿½∩Γ«α«¼, ∩ó½∩εΓß∩ »«½¡«ßΓ∞ε »αÑαδóáÑ¼δ¼¿. ü«½∞Φ¿¡ßΓó« ¿º »α«úαá¼¼ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ∩ó½∩- εΓß∩ Γá¬ªÑ αÑÑ¡ΓÑαáíÑ½∞¡δ¼¿, τΓ« »«ºó«½∩ÑΓ óá¼ »¿ßáΓ∞ ¡á Æπαí«-Åáß¬á½Ñ »α«úαá¼¼δ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐. Éáºαáí«Γ¬á »α«µÑñπα «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ Åα«µÑñπαδ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ «»¿ßδóáεΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ Interrupt. é ¬áªñ«⌐ »α«µÑñπαÑ «íαáí«Γ¬¿ »αÑαδóá- ¡¿⌐ ñ«½ªÑ¡ «»αÑñÑ½∩Γ∞ß∩ ß½ÑñπεΘ¿⌐ ºáú«½«ó«¬ »α«µÑñπαδ (¿½¿, ¬á¬ íπñÑΓ »«∩ß¡∩Γ∞ß∩ ñá½ÑÑ, Ñú« »«ñ¼¡«ªÑßΓó«): procedure IntHandler(Flags,CS,IPAX,BX,CX,DX,SI,DI,DS,ES,BP: word); interrupt; begin . . . end; èá¬ ¼«ª¡« ó¿ñÑΓ∞, óßÑ αÑú¿ßΓαδ »ÑαÑñáεΓß∩ ó ¬áτÑßΓóÑ »ßÑóñ«-»áαá¼ÑΓα«ó, Γá¬ τΓ« óδ ¼«ªÑΓÑ ¿σ ¿ß»«½∞º«óáΓ∞ ¿ ¿º¼Ñ- ¡∩Γ∞ ó ßó«Ñ⌐ »α«úαá¼¼Ñ. éδ ¼«ªÑΓÑ «»πßΓ¿Γ∞ ¡Ñ¬«Γ«αδÑ ¿º »á- αá¼ÑΓα«ó ¿½¿ óßÑ »áαá¼ÑΓαδ, ¡áτ¿¡á∩ ß »áαá¼ÑΓαá Flag ¿ ¬«¡- τá∩ éÉ. Å«»δΓ¬á «»¿ßáΓ∞ í«½∞ΦÑÑ ¬«½¿τÑßΓó« »áαá¼ÑΓα«ó ¿½¿ »«»δΓ¬á «»πßΓ¿Γ∞ «ΓñÑ½∞¡δ⌐ »áαá¼ÑΓα íÑº »α«»πß¬á Γá¬ªÑ Γ«ú« »áαá¼ÑΓαá, ºá ¬«Γ«αδ¼ «¡ ß½ÑñπÑΓ, ∩ó½∩ÑΓß∩ «Φ¿í¬«⌐, σ«Γ∩ ß«- «íΘÑ¡¿∩ « ¡Ñ⌐ ¡Ñ óδñáÑΓß∩. ìá»α¿¼Ñα: procedure IntHandler(DI,ES,BP : word); procedure IntHandler(SI,DI,DS,ES,BP : word); Åα¿ óσ«ñÑ ó ¡ÑÑ »α«µÑñπαá «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ áóΓ«¼á- Γ¿τÑß¬¿ ß«σαá¡∩ÑΓ óßÑ αÑú¿ßΓαδ (¡Ñºáó¿ß¿¼« «Γ ºáú«½«ó¬á »α«- µÑñπαδ) ¿ ¿¡¿µ¿á½¿º¿απÑΓ αÑú¿ßΓα DS: PUSH AX PUSH BX PUSH DX PUSH SI PUSH DI PUSH DS PUSH ES PUSH BP MOV BP,SP SUB SP,LocalSize MOV AX,SEG DATA MOV DS,AX ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á «ΓßπΓßΓó¿Ñ »α«µÑñπαδ æLI, τΓ«íδ αáºαÑΦ¿Γ∞ ñá½∞¡Ñ⌐Φ¿Ñ »αÑαδóá¡¿∩. æ »«¼«Θ∞ε «»ÑαáΓ«αá inline óδ ¼«ªÑΓÑ ¡á»¿ßáΓ∞ ÑÑ ßá¼¿ (Ñß½¿ φΓ« ¡Ñ«íσ«ñ¿¼«). ìáí«α «»Ñ- αáΓ«α«ó óδσ«ñá ó«ßßΓá¡áó½¿óáÑΓ αÑú¿ßΓαδ ¿ óδ»«½¡∩ÑΓ Σπ¡¬- µ¿ε ó«ºóαáΓá »αÑαδóá¡¿∩: MOV SP,BP POP BP POP ES POP DS POP DI POP SI POP DX POP CX POP BX POP AX IRET Åα«µÑñπαá «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ ¼«ªÑΓ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ßó«¿ »áαá¼ÑΓαδ. è«úñá «íαáí«Γτ¿¬ »αÑαδóá¡¿⌐ ó«ºóαáΓ¿Γ π»αáó- ½Ñ¡¿Ñ, ¿º¼Ñ¡Ñ¡¿Ñ «»¿ßá¡¡δσ »áαá¼ÑΓα«ó »α¿óÑñÑΓ ¬ ¿º¼Ñ¡Ñ¡¿ε ß«ñÑαª¿¼«ú« ß««ΓóÑΓßΓóπεΘ¿σ αÑú¿ßΓα«ó. ¥Γ« ¼«ªÑΓ «¬áºáΓ∞ß∩ »«½Ñº¡δ¼, ¬«úñá óδ ¿ß»«½∞ºπÑΓÑ «íαáí«Γτ¿¬ »αÑαδóá¡¿⌐ ó ¬á- τÑßΓóÑ »«½∞º«óáΓÑ½∞ß¬«ú« ßÑαó¿ß¡«ú« ßαÑñßΓóá, á¡á½«ú¿τ¡«ú« óδº«óπ Σπ¡¬µ¿¿ äÄæ »« ¿¡ßΓαπ¬µ¿¿ INÆ 21ì. é »α«µÑñπαáσ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐, «íß½πª¿óáεΘ¿σ »αÑαδ- óá¡¿∩, »«½πτáÑ¼δÑ «Γ á»»áαáΓ¡δσ ßσÑ¼, ß½ÑñπÑΓ ó«ºñÑαª¿óáΓ∞ß∩ «Γ ¿ß»«½∞º«óá¡¿∩ ¬á¬¿σ-½¿í« »α«úαá¼¼ óó«ñá-óδó«ñá Æπαí«- Åáß¬á½∩ ¿½¿ »α«úαá¼¼ αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿, »«ß¬«½∞¬π «¡¿ ¡Ñ ∩ó½∩εΓß∩ αÑÑ¡ΓÑαáíÑ½∞¡δ¼¿. êº-ºá ¿σ ¡ÑαÑÑ¡ΓÑαáíÑ½∞¡«ßΓ¿ ¡Ñ½∞º∩ Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ¡¿¬á¬¿Ñ Σπ¡¬µ¿¿ äÄæ. äαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó èá¬ πªÑ π»«¼¿¡á½«ß∞ ó â½áóÑ 10 ("éó«ñ ¿ óδó«ñ"), Æπα- í«-Åáß¬á½∞ »«ºó«½∩ÑΓ óá¼ «»αÑñÑ½¿Γ∞ óáΦ¿ ß«íßΓóÑ¡¡δÑ ñαá⌐óÑ- αδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó. äαá⌐óÑα πßΓα«⌐ßΓóá ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡áí«α ¿º τÑΓδαÑσ Σπ¡¬- µ¿⌐, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ »«½¡δ⌐ ¿¡ΓÑαΣÑ⌐ß ¼Ñªñπ Σá⌐½«ó«⌐ ß¿ßΓÑ¼«⌐ Æπαí«-Åáß¬á½∩ ¿ ¬á¬¿¼-½¿í« πßΓα«⌐ßΓó«¼. ¥Γ¿¼¿ τÑ- Γδα∞¼∩ Σπ¡¬µ¿∩¼¿, ß »«¼«Θ∞ε ¬«Γ«αδσ «»αÑñÑ½∩ÑΓß∩ ½εí«⌐ ñαá⌐- óÑα πßΓα«⌐ßΓóá, ∩ó½∩εΓß∩ Σπ¡¬µ¿¿: Open, InOut, Flush, Close çáú«½«ó«¬ Σπ¡¬µ¿¿ ñ½∩ ¬áªñ«⌐ Σπ¡¬µ¿¿ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ: function DeviceFunc(var F: TextRec) integer úñÑ ÆÑσtRÑß - Γ¿» ºá»¿ß¿ ΓÑ¬ßΓ«ó«ú« Σá⌐½á, ¬«Γ«αδ⌐ «»αÑñÑ½∩- ÑΓß∩ ó »αÑñδñπΘÑ¼ αáºñÑ½Ñ »«ñ ºáú½áó¿Ñ¼ "Æ¿»δ Σá⌐½«ó". ùΓ«íδ ó Σπ¡¬µ¿¿ ¿ß»«½∞º«óá½ß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, ¬áªñá∩ ¿º ¡¿σ ñ«½ª¡á ¬«¼»¿½¿α«óáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ {$F+}. ç¡áτÑ¡¿Ñ, ó«ºóαá- ΘáÑ¼«Ñ ¬áªñ«⌐ Σπ¬¡µ¿Ñ⌐, »αÑñßΓáó½∩εΘÑ⌐ ß«í«⌐ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ßΓá¡«ó¿Γß∩ º¡áτÑ¡¿Ñ¼, ó«ºóαáΘáÑ¼δ¼ Σπ¡¬µ¿Ñ⌐ IOResult. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 0 ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í πß»ÑΦ- ¡«¼ ºáóÑαΦÑ¡¿¿ «»Ñαáµ¿¿. Åα¿¼Ñτá¡¿Ñ: ò«Γ∩ ÆÑσtRec ∩ó½∩ÑΓß∩ ó ßΓá¡ñáαΓ¡«¼ ¼«ñπ½Ñ Dos ó¡πΓαÑ¡¡Ñ⌐ ºá»¿ß∞ε, óδ ¼«ªÑΓÑ »ÑαÑ«»αÑñÑ½¿Γ∞ ÑÑ (á¬¬παáΓ¡«!), ¬á¬ φΓ« íπñÑΓ ñÑ½áΓ∞ß∩ ñá½ÑÑ. ìáóáª¡«, ¬á¬¿Ñ ¿¼Ñ¡á ¿ß»«½∞ºπεΓß∩ ñ½∩ Σπ¡¬µ¿⌐, «ßπΘÑßΓó½∩εΘ¿σ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ¡« »áαá¼ÑΓα ¬áªñ«⌐ Σπ¡¬µ¿¿ ñ«½ªÑ¡ íδΓ∞ »áαá¼ÑΓα«¼-»ÑαÑ¼Ñ¡¡«⌐ ¿ ¿¼ÑΓ∞ Γ¿» ÆÑσtRec, á αÑºπ½∞ΓáΓ Σπ¡¬µ¿¿ ñ«½ªÑ¡ íδΓ∞ µÑ½«ú« Γ¿»á. ä½∩ Γ«ú«, τΓ«íδ ßó∩ºáΓ∞ Σπ¡¬µ¿ε, «ßπΘÑßΓó½∩εΘπε ¿¡ΓÑα- ΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ß ¬«¡¬αÑΓ¡δ¼ Σá⌐½«¼, ¡πª¡« ¡á»¿ßáΓ∞ ß»Ñ- µ¿á½∞¡πε »α«µÑñπαπ Assign (á¡á½«ú¿τ¡πε »α«µÑñπαÑ AssignCrt ó ¼«ñπ½Ñ Crt). ¥Γá »α«µÑñπαá ñ«½ª¡á »α¿ßóá¿óáΓ∞ áñαÑßá τÑΓδαÑσ Σπ¡¬µ¿⌐, «ßπΘÑßΓó½∩εΘ¿σ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓóá¼¿, τÑΓδαÑ¼ π¬áºáΓÑ½∩¼ ¡á Σπ¡¬µ¿¿ ó »ÑαÑ¼Ñ¡¡«⌐ ΓÑ¬ßΓ«ó«ú« Σá⌐½á. é »α¿- ñáτπ ¬ φΓ«¼π óδ ñ«½ª¡δ ß«σαá¡¿Γ∞ ß¿ßΓÑ¼¡πε ¬«¡ßΓá¡Γπ fmClosed ó »«½Ñ î«dÑ, ºá»¿ßáΓ∞ αáº¼Ñα íπΣÑαá ΓÑ¬ßΓ«ó«ú« Σá⌐- ½á ó »ÑαÑ¼Ñ¡πε éufSize, ß«σαá¡¿Γ∞ π¬áºáΓÑ½∞ íπΣÑαá ΓÑ¬ßΓ«ó«- ú« Σá⌐½á ó »ÑαÑ¼Ñ¡¡«⌐ BufPtr ¿ «τ¿ßΓ¿Γ∞ ßΓα«¬π Ná¼Ñ. ÅαÑñ»«½«ª¿¼, ¡á»α¿¼Ñα, τΓ« ¿¼Ñ¡á¼¿ τÑΓδαÑσ Σπ¡¬µ¿⌐, αÑ- á½¿ºπεΘ¿σ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ∩ó½∩εΓß∩: DevOpen, DevInOut, DevFlush, DevClose, Assign Æ«úñá »α«µÑñπαá Assing ¼«ªÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: procedure AssignDev(var F: Text); begin with TextRec(F) do begin mode := fmClosed; BufSize := SizeOf(Buffer); BufPtr := @Buffer; OpenFunc := @DevOpen; InOutFunc := @DevInOut; FlushFunc := @DevFlush; CloseFunc := @DevClose; Name[0] := #0; end; end; ä½∩ σαá¡Ñ¡¿∩ »«½∞º«óáΓÑ½∞ß¬«⌐ ¿¡Σ«α¼áµ¿¿ ó Σπ¡¬µ¿¿, αÑá½¿ºπεΘ¿Ñ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ »«½Ñ ºá»¿ß¿ UserData. ¥Γ« »«½Ñ ¡Ñ ¿º¼Ñ¡∩ÑΓß∩ Σá⌐½«ó«⌐ ß¿ßΓÑ- ¼«⌐ Æπαí«-Åáß¬á½∩. öπ¡¬µ¿∩ ÄαÑn öπ¡¬µ¿∩ ÄαÑn óδºδóáÑΓß∩ ßΓá¡ñáαΓ¡δ¼¿ »α«µÑñπαá¼¿ RÑset, RÑwritÑ ¿ AppÑnd ñ½∩ «Γ¬αδΓ¿∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á, ßó∩ºá¡¡«ú« ß πßΓα«⌐ßΓó«¼. ùΓ«íδ «Γ¼ÑΓ¿Γ∞ íδ½á ½¿ Σπ¡¬µ¿∩ ÄαÑn óδºóá¡á ¿º »α«µÑñπαδ RÑset, RÑwritÑ ¿½¿ AppÑnd, ¡á óσ«ñÑ »«½Ñ î«dÑ ß«- ñÑαª¿Γ º¡áτÑ¡¿Ñ fmInput, fmOutput ¿½¿ fmInOut. é ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿Ñ¼ î«dÑ Σπ¡¬µ¿∩ ÄαÑn »«ñú«Γáó- ½¿óáÑΓ Σá⌐½ ñ½∩ óó«ñá ¿½¿ óδó«ñá. àß½¿ ó î«dÑ π¬áºδóáÑΓß∩ FmInOut (π¬áºδóá∩, τΓ« Σπ¡¬µ¿∩ ÄpÑn íδ½á óδºóá¡á ¿º ÇααÑnd), Γ« »ÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ Σπ¡¬µ¿Ñ⌐ ÄpÑn φΓ« º¡áτÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ¿º¼Ñ¡Ñ¡« ¡á fmOutput. öπ¡¬µ¿∩ OpÑn óßÑúñá óδºδóáÑΓß∩ »ÑαÑñ ½εí«⌐ ñαπú«⌐ Σπ¡¬- µ¿Ñ⌐, αÑá½¿ºπεΘÑ⌐ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼. Å« φΓ«⌐ »α¿τ¿¡Ñ Σπ¡¬µ¿∩ Çssign ¿¡¿µ¿á½¿º¿απÑΓ Γ«½∞¬« »«½Ñ ÄpÑnFunc, «Γ¬½áñδ- óá∩ ¿¡¿µ¿á½¿ºáµ¿ε «ßΓáóΦ¿σß∩ óÑ¬Γ«α«ó ñ« ºáóÑαΦÑ¡¿∩ óδ»«½¡Ñ- ¡¿∩ Σπ¡¬µ¿¿ ÄpÑn. Äß¡«óδóá∩ß∞ ¡á º¡áτÑ¡¿¿ »«½∩ î«dÑ Σπ¡¬µ¿∩ ÄpÑn ¼«ªÑΓ πßΓá¡«ó¿Γ∞ π¬áºáΓÑ½¿ ¬á¬ ñ½∩ Σπ¬¡µ¿⌐, «α¿Ñ¡Γ¿α«- óá¡¡δσ ¡á óó«ñ, Γá¬ ¿ ñ½∩ Σπ¡¬µ¿⌐, «α¿Ñ¡Γ¿α«óá¡¡δσ ¡á óδó«ñ. ¥Γ« »«ºó«½∩ÑΓ ¿ºíÑªáΓ∞ «»αÑñÑ½Ñ¡¿∩ ΓÑ¬πΘÑú« αÑª¿¼á ó Σπ¡¬- µ¿∩σ InOut, Flush ¿ Close. öπ¡¬µ¿∩ InOut éß∩¬¿⌐ αáº, ¬«úñá ΓαÑíπÑΓß∩ óó«ñ ß πßΓα«⌐ßΓóá ¿½¿ óδó«ñ ¡á ¡Ñú«, Σπ¡¬µ¿∩¼¿ Readln, Read, Write, Writeln, Page, Eof, SeekEof, SeekEoln ¿ Close óδºδóáÑΓß∩ Σπ¡¬µ¿∩ InOut. è«úñá ó »«½Ñ î«dÑ πßΓá¡«ó½Ñ¡« º¡áτÑ¡¿Ñ fnInput, Σπ¡¬µ¿∩ InOut ßτ¿ΓδóáÑΓ ß¿¼ó«½δ («íΩÑ¼ óó«ñá ºáñáÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐ BufSize) ó BufPtr^ ¿ ó«ºóαáΘáÑΓ τ¿ß½« ßτ¿Γá¡¡δσ ß¿¼ó«½«ó ó BufEnd, á Γá¬ªÑ ºá»¿ßδóáÑΓ 0 ó éufÉ«z. àß½¿ Σπ¡¬µ¿∩ InOut ó αÑºπ½∞ΓáΓÑ ºá»α«ßá ¡á óó«ñ ó«ºóαáΘáÑΓ ó éufànd º¡áτÑ¡¿Ñ 0, Γ« »ÑαÑ¼Ñ¡¡á∩ à«f ñ½∩ Σá⌐½á »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ÆruÑ. è«úñá ó »«½Ñ î«dÑ πßΓá¡«ó½Ñ¡« º¡áτÑ¡¿Ñ fnOutput, Σπ¡¬- µ¿∩ InOut ºá»¿ßδóáÑΓ ß¿¼ó«½δ, ¬«½¿τÑßΓó« ¬«Γ«αδσ «»αÑñÑ½∩ÑΓ- ß∩ »ÑαÑ¼Ñ¡¡«⌐ éufÉ«s, ¿º éufPtr^ ¿ ó«ºóαáΘáÑΓ ó éufÉ«s º¡á- τÑ¡¿Ñ 0. öπ¡¬µ¿∩ Flush öπ¡¬µ¿∩ Flush óδºδóáÑΓß∩ ó ¬«¡µÑ óδ»«½¡Ñ¡¿∩ ¬áªñ«⌐ Σπ¡¬µ¿¿ RÑád, Write, RÑádln ¿½¿ Writeln. Ä¡á ¼«ªÑΓ Γá¬ªÑ ßíαáßδóáΓ∞ íπΣÑα ΓÑ¬ßΓ«ó«ú« Σá⌐½á. àß½¿ ó »«½Ñ î«dÑ ¡áσ«ñ¿Γ- ß∩ fmInput, Σπ¡¬µ¿∩ Flush ñ½∩ Γ«ú«, τΓ«íδ «Γíα«ß¿Γ∞ «ßΓáóΦ¿- Ñß∩ (¡Ñßτ¿Γá¡¡δÑ) ß¿¼ó«½δ ó íπΣÑαÑ, ¼«ªÑΓ ºá»¿ßáΓ∞ 0 ó BufPos ¿ BufEnd. ¥Γ« ßαÑñßΓó« ¿ß»«½∞ºπÑΓß∩ αÑñ¬«. àß½¿ ó »«½Ñ î«dÑ ¡áσ«ñ¿Γß∩ fnOutput, Γ« Σπ¡¬µ¿∩ Flush ¼«ªÑΓ ºá»¿ßáΓ∞ ß«ñÑαª¿¼«Ñ íπΣÑαá, ó Γ«τ¡«ßΓ¿ Γá¬¿¼ ªÑ «íαá- º«¼, ¬á¬ Σπ¡¬µ¿∩ InOut. ¥Γ« úáαá¡Γ¿απÑΓ, τΓ« óδóÑñÑ¡¡δ⌐ ¡á πßΓα«⌐ßΓ« ΓÑ¬ßΓ »«∩ó¿Γß∩ ¡á πßΓα«⌐ßΓóÑ ¡Ñ¼Ññ½Ñ¡¡«. àß½¿ Σπ¡¬µ¿∩ Flush ¡Ñ óδ»«½¡∩ÑΓ ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐, ΓÑ¬ßΓ ¡Ñ íπñÑΓ óδóÑñÑ¡ ¡á πßΓα«⌐ßΓó«, »«¬á íπΣÑα ¡Ñ ßΓá¡ÑΓ »«½¡δ¼ ¿½¿ Σá⌐½ ¡Ñ íπñÑΓ ºá¬αδΓ. öπ¡¬µ¿∩ æl«sÑ öπ¡¬µ¿∩ æl«sÑ óδºδóáÑΓß∩ ßΓá¡ñáαΓ¡«⌐ »α«µÑñπα«⌐ æl«sÑ ñ½∩ ºá¬αδΓ¿∩ ßó∩ºá¡¡«ú« ß πßΓα«⌐ßΓó«¼ ΓÑ¬ßΓ«ó«ú« Σá⌐½á. (Åα«µÑñπαδ RÑsÑt, RÑwritÑ, AppÑnd Γá¬ªÑ óδºδóáεΓ Σπ¡¬µ¿ε æl«sÑ, Ñß½¿ Σá⌐½, ¬«Γ«αδ⌐ «¡¿ «Γ¬αδóáεΓ, πªÑ íδ½ «Γ¬αδΓ.) àß½¿ ó »«½Ñ î«dÑ ¡áσ«ñ¿Γß∩ fmOut, Γ« »ÑαÑñ óδº«ó«¼ Σπ¡¬µ¿¿ æl«sÑ Σá⌐½«óá∩ ß¿ßΓÑ¼á Æπαí«-Åáß¬á½∩ «íαáΘáÑΓß∩ ¬ Σπ¡¬µ¿¿ InOut. ¥Γ« úáαá¡Γ¿απÑΓ óδó«ñ ¡á πßΓα«⌐ßΓó« óßÑσ ß¿¼ó«½«ó. Åα¿¼Ñαδ ñαá⌐óÑα«ó πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó Åα¿óÑñÑ¡¡δ⌐ ñá½ÑÑ ¼«ñπ½∞ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ñαá⌐óÑα ¬«¼¼π¡¿¬áµ¿«¡¡δσ »«αΓ«ó (»«ß½Ññ«óáΓÑ½∞¡δσ »«αΓ«ó) ¬«¼»∞εΓÑαá IMB PC ñ½∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á: unit AuxInOut; interface uses Dos; procedure AssignAux(var F: Text; Port, Params: word); implementation {$K-,R-} const fmClose := $D7B0; fmInput := $D7B1; fmOutput := $D7B2; fmInOut := $D7B3; type CharBuf = atrray[0..127] of char; procedure AuxInit(Port, Params : word); inline( $58/ { POP AX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á »áαá¼ÑΓαδ } $5A/ { POP DX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á ¡«¼Ñα »«αΓá } $B4/$00/ { MOV AH,0 ; ¿¡ßΓαπ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ } $CD/$14); { INT 14H ; «íαáΘÑ¡¿Ñ ¬ íáº«ó«⌐ ß¿ßΓÑ¼Ñ ; óó«ñá-óδó«ñá } function AuxInchar(Port: word): char; inline( $5A/ { POP AX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á ¡«¼Ñα »«αΓá } $B4/$02/ { MOV AH,2 ; ¿¡ßΓαπ¬µ¿∩ óó«ñá } $CD/$14/); { INT 14H ; «íαáΘÑ¡¿Ñ ¬ íáº«ó«⌐ ß¿ßΓÑ¼Ñ ; óó«ñá-óδó«ñá } procedure AuxOutchar(Port: word; Ch: char); inline( $58/ { POP AX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á ß¿¼ó«½ } $5A/ { POP DX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á ¡«¼Ñα »«αΓá } $B4/$01 { MOV AH,1 ; ¿¡ßΓαπ¬µ¿∩ ñ½∩ óδó«ñá } $CD/$14); { INT 14H ; «íαáΘÑ¡¿Ñ ¬ íáº«ó«⌐ ß¿ßΓÑ¼Ñ ; óó«ñá-óδó«ñá } function AuxInReady(Port: word) : boolean; inline( $5A/ { POP DX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á ¡«¼Ñα »«αΓá } $B4/$03/ { MOV AH,3 ; ß«ßΓ«∩¡¿Ñ } $CD/$14/ { INT 14H ; «íαáΘÑ¡¿Ñ ¬ íáº«ó«⌐ ß¿ßΓÑ¼Ñ ; óó«ñá-óδó«ñá } $88/$E0/ { MOV AL,AH ; »«½πτ¿Γ∞ ó Aì ß«ßΓ«∩¡¿Ñ ; ßΓα«¬¿ } $24/$01); { AND AL,1 ; óδñÑ½¿Γ∞ í¿Γ ú«Γ«ó¡«ßΓ¿ ; ñá¡¡δσ } {$F+} function AuxInput(var F : TextRec) : integer; var P : integer; begin with F do begin P := 0; while AuxInReady(AuxPort) and (P<BufSize) do begin BufPtr^[P]:=AuxInChar(AuxPort); Inc(P); end; BufPos := 0; BufEnd := P; end; function AuxOutput(var F: TextRec): integer; var P: integer; begin with F do begin for P := 0 to BufPos-1 do AuxOutChar(AuxPort,BufPtr^[P]); BufPos := 0; end; AuxOutput := 0; end; function AuxIgnore(var F: TextRec) : integer; begin AuxIgnore := 0; end; function AuxOpen(var F: TextRec) : integer; begin with F do begin AuxInit(AuxPort,AuxPaaram); if Mode = fmInput then begin InOutFunc := @AuxInput; FlushFunc := @AuxIgnore; end else begin Mode := fmOutput; InOutFunc := @AuxOutput; FlushFunc := @AuxOutput; end; CloseFunc := @AuxIgnore; end; AuxOpen := 0; end; {$F-} procedure AssignAux; begin with TextRec(F) do begin Handle := $FFFF; Mode := fmClosed; BufSize := SizeOf(Buffer); BufPtr := @Buffer; Openfunc := @AuxOpen; AuxPort := Port; AuxParam := Param; Name[0] := #0; end; end; end. Æ¿» »ÑαÑ¼Ñ¡¡«⌐ ÆÑσtRÑß, «»αÑñÑ½∩Ñ¼«⌐ ó ¼«ñπ½Ñ AuxInOut, ¡Ñ ß«ó»áñáÑΓ Γ«τ¡« ß Γ¿»«¼ ¿ßσ«ñ¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ÆÑσtRÑß. é¼ÑßΓ« 16-íá⌐Γ«ó«ú« »«½∩ UserData «¡á ß«ñÑαª¿Γ ñóá »«½∩ ñ½¿- ¡«⌐ ó ß½«ó«, ó ¬«Γ«αδσ ºá»«¼¿¡áεΓß∩ ¡«¼Ñα ¬«¼¼π¡¿¬áµ¿«¡¡«ú« »«αΓá ¿ íá⌐Γ »áαá¼ÑΓαá. çá φΓ¿¼¿ ñóπ¼∩ »«½∩¼¿ ß½ÑñπÑΓ 12 ¡Ñ- ¿ß»«½∞ºπÑ¼δσ íá⌐Γ«ó (τΓ«íδ «íΘÑÑ ¬«½¿τÑßΓó« íá⌐Γ«ó αáó¡∩½«ß∞ 16). Åα«µÑñπαá AuxInit ¿¡¿µ¿á½¿º¿απÑΓ π¬áºá¡¡δ⌐ ¬«¼¼π¡¿¬áµ¿- «¡¡δ⌐ »«αΓ ó ß««ΓóÑΓßΓó¿¿ ß ºáñá¡¡δ¼ íá⌐Γ«¼ »áαá¼ÑΓαá. öπ¡¬- µ¿∩ AuxInChar ßτ¿ΓδóáÑΓ ß¿¼ó«½ ¿º ºáñá¡¡«ú« »«αΓá. Åα«µÑñπαá AuxOutChar óδó«ñ¿Γ ß¿¼ó«½ ó ºáñá¡¡δ⌐ »«αΓ. öπ¡¬µ¿∩ AuxInReady ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ÆruÑ ó Γ«¼ ß½πτáÑ, Ñß½¿ ß¿¼- ó«½ ú«Γ«ó ñ½∩ ßτ¿Γδóá¡¿∩ ¿º ºáñá¡¡«ú« »«αΓá. ÄíαáΓ¿ΓÑ ó¡¿¼á- ¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ ñ½∩ αÑá½¿ºáµ¿¿ φΓ¿σ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó¡πΓαÑ¡¡¿σ ñ¿αÑ¬Γ¿ó. äá½∞¡Ñ⌐Φ¿Ñ »«ñα«í¡«ßΓ¿ »« ¿ß»«½∞º«óá¡¿ε ¬«¼¼π¡¿¬áµ¿«¡¡δσ »«αΓ«ó «»¿ßá¡δ ó "ÆÑσ¡¿τÑß¬«¼ ß»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »« ¬«¼»∞εΓÑαπ IBM Éæ". ä½∩ «íαáΘÑ¡¿∩ ó ºáñá¡¡«¼π ¬«¼¼π¡¿¬áµ¿«¡¡«¼π »«αΓπ ß «»- αÑñÑ½Ñ¡¡δ¼ íá⌐Γ«¼ »áαá¼ÑΓαá »α«µÑñπαá AssignAux ¿¡¿µ¿á½¿º¿- απÑΓ ºáñá¡¡πε »ÑαÑ¼Ñ¡¡πε ΓÑ¬ßΓ«ó«ú« Σá⌐½á. ì«¼Ñαá »«αΓ«ó 0 ¿ 1 ß««ΓóÑΓßΓóπεΓ »«αΓá¼ æÄî1 ¿ æÄî2. üá⌐Γ »áαá¼ÑΓαá «»¿ßδóá- ÑΓß∩ ó "ÆÑσ¡¿τÑß¬«¼ ß»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »« ¬«¼»∞εΓÑαπ IBM PC". AuxLocn ¿¡¿µ¿á½¿º¿απÑΓ óδíαá¡¡δ⌐ ¬«¼¼π¡¿¬áµ¿«¡¡δ⌐ »«αΓ ¿ πßΓá¡áó½¿óáÑΓ π¬áºáΓÑ½¿ Σπ¡¬µ¿¿ ó ß««ΓóÑΓßΓó¿¿ ß »«½Ñ¼ î«dÑ. ÄΓ¼ÑΓ¿¼, τΓ« »α¿ óδó«ñÑ FlushFunc πßΓá¡áó½¿óáÑΓß∩ ¡á Γ«Γ ªÑ áñαÑß, τΓ« ¿ InOutFunc, τΓ« óδºδóáÑΓ «τ¿ßΓ¬π íπΣÑαá ΓÑ¬ßΓ«ó«ú« Σá⌐½á »«ß½Ñ ¬áªñ«⌐ «»Ñαáµ¿¿ Write ¿½¿ Writeln. AuxInput óó«ñ¿Γ ß¿¼ó«½δ («íΩÑ¼ óó«ñá ºáñáÑΓß∩ »ÑαÑ¼Ñ¡- ¡«⌐ BufSize) ¿º óδíαá¡¡«ú« »«αΓá, á AuxOutput óδó«ñ¿Γ ß«ñÑα- ª¿¼«Ñ íπΣÑαá ó ºáñá¡¡δ⌐ »«αΓ. öπ¡¬µ¿∩ AuxIgnore ¿ß»«½∞ºπÑΓß∩ ó ΓÑσ ß½πτá∩σ, ¬«úñá ¡Ñ ΓαÑíπÑΓß∩ ß»Ñµ¿á½∞¡δσ ñÑ⌐ßΓó¿⌐, ¬á¬, ¡á»α¿¼Ñα, ñ½∩ Σπ¡¬µ¿⌐ ælosÑ ¿ Flush (ó αÑª¿¼Ñ óó«ñá). Åα¿óÑñÑ¡¡á∩ ñá½ÑÑ ¬«α«Γ¬á∩ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ AuxInOut ñ½∩ ºá»¿ß¿ ßΓα«¬¿ ó «ñ¿¡ ¿º ¬«¼¼π¡¿¬áµ¿«¡¡δσ »«α- Γ«ó. æ »«¼«Θ∞ε »α«µÑñπαδ AssingAUx Σá⌐½ æ«¼1 ßó∩ºδóáÑΓß∩ ß »«αΓ«¼ æÄî1. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ ß¬«α«ßΓ∞ »ÑαÑñáτ¿ 1200 í«ñ, 1 ßΓ«»-í¿Γ, 8 í¿Γ«ó ñá¡¡δσ ¿ «ΓßπΓßΓó¿Ñ »α«óÑα¬¿ »áα¿- ΓÑΓá. program TestAux; uses AuxInOut; var Com1 : Text; begin AssignAux(Co1,0,$83); Rewrite(Com1); Writeln(Com1,'evice drivers are fun!'); Close(Com1); end; Åα«µÑñπαδ óδσ«ñá é »«¼«Θ∞ε »α«µÑñπα óδσ«ñá óδ ¼«ªÑΓÑ π»αáó½∩Γ∞ »α«µÑßß«¼ ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ. ¥Γ« »«½Ñº¡« ó Γ«¼ ß½πτáÑ, ¬«úñá óδ σ«Γ¿ΓÑ »ÑαÑñ »αÑ¬αáΘÑ¡¿Ñ¼ αáí«Γδ »α«úαá¼¼δ «íÑß»Ñτ¿Γ∞ óδ- »«½¡Ñ¡¿Ñ «»αÑñÑ½Ñ¡¡δσ ñÑ⌐ßΓó¿⌐ (Γ¿»¿τ¡δ¼ »α¿¼Ñα«¼ ∩ó½∩ÑΓß∩ «í¡«ó½Ñ¡¿Ñ ¿ ºá¬αδΓ¿Ñ Σá⌐½«ó). ÉÑá½¿º«óáΓ∞ »α«µÑñπαπ óδσ«ñá óá¼ »«ºó«½∩ÑΓ »ÑαÑ¼Ñ¡- ¡á∩-π¬áºáΓÑ½∞ àσitProc. Åα«µÑñπαá óδσ«ñá óßÑúñá »«½πτáÑΓ óδ- º«ó »α¿ ºáóÑαΦÑ¡¿¿ αáí«Γδ »α«úαá¼¼δ, ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, ∩ó- ½∩ÑΓß∩ ½¿ φΓ« ºáóÑαΦÑ¡¿Ñ ¡«α¼á½∞¡δ¼ «¬«¡τá¡¿Ñ¼ αáí«Γδ »α«ú- αá¼¼δ, ºáóÑαΦÑ¡¿Ñ¼ »«ß½Ñ «íαáΘÑ¡¿∩ ¬ Σπ¡¬µ¿¿ ìált, ¿½¿ αáí«- Γá »α«úαá¼¼δ »αÑ¬αáΓ¿½áß∞ ¿º-ºá «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩. Åáαá¼ÑΓαδ ñ½∩ »α«µÑñπαδ óδσ«ñá ¡Ñ ΓαÑíπεΓß∩ ¿ ñ½∩ Γ«ú«, τΓ«íδ ¿ß»«½∞º«óá½ß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, «¡á ñ«½ª¡á ¬«¼»¿½¿- α«óáΓ∞ß∩ ß π¬áºá¡¿Ñ¼ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$F+}. è«úñá »α«µÑñπαá óδσ«ñá ñ«½ª¡δ¼ «íαáº«¼ αÑá½¿º«óá¡á, «¡á ó ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ¿ ßΓá¡«ó¿Γß∩ τáßΓ∞ε µÑ»«τ¬¿ »α«µÑñπα óδσ«- ñá. ¥Γá µÑ»«τ¬á »«ºó«½∩ÑΓ αÑá½¿º«óáΓ∞ »α«µÑñπαδ óδσ«ñá ¬á¬ ñ½∩ ¼«ñπ½Ñ⌐, Γá¬ ¿ ñ½∩ »α«úαá¼¼. é ¡Ñ¬«Γ«αδσ ¼«ñπ½∩σ »α«µÑ- ñπαá óδσ«ñá αÑá½¿ºπÑΓß∩, ¬á¬ τáßΓ∞ ßá¼«ú« ¼«ñπ½∩, á óδ»«½¡Ñ- ¡¿Ñ ¡Ñ¬«Γ«αδσ ºáóÑαΦáεΘ¿σ ñÑ⌐ßΓó¿⌐ »«ß½Ñ óδσ«ñá ¿º ¼«ñπ½∩, ¡á»α¿¼Ñα, ºá¬αδΓ¿Ñ Σá⌐½«ó ¿½¿ ó«ßßΓá¡«ó½Ñ¡¿Ñ óÑ¬Γ«α«ó »αÑαδ- óá¡¿⌐, ó«º½áúáÑΓß∩ ¡á ¬«¡¬αÑΓ¡πε »α«µÑñπαπ. Åα«µÑñπαδ ó µÑ- »«τ¬Ñ óδσ«ñá óδ»«½¡∩εΓß∩ ó »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿, «íαáΓ¡«⌐ »«- α∩ñ¬π ¿σ αÑá½¿ºáµ¿¿. ¥Γ¿¼ «íÑß»Ñτ¿óáÑΓß∩, τΓ« «»ÑαáΓ«αδ óδ- σ«ñá «ñ¡«ú« í½«¬á ¡Ñ óδ»«½¡∩εΓß∩, »«¬á ¡Ñ íπñπΓ óδ»«½¡Ñ¡δ «»ÑαáΓ«αδ óδσ«ñá ¬á¬«ú«-½¿í« ºáó¿ß∩ΘÑú« «Γ ¡Ñú« ¼«ñπ½∩. ùΓ«íδ ß«σαá¡¿Γ∞ µÑ»«τ¬π óδσ«ñá ó ¡Ñ»α¿¬«ß¡«óÑ¡¡«ßΓ¿, óδ ñ«½ª¡δ »ÑαÑñ ¿º¼Ñ¡Ñ¡¿Ñ¼ π¬áºáΓÑ½∩ àσitPr«ß ¡á áñαÑß óáΦÑ⌐ ß«íßΓóÑ¡¡«⌐ »α«µÑñπαδ ß«σαá¡¿Γ∞ ΓÑ¬πΘÑÑ ß«ñÑαª¿¼«Ñ φΓ«ú« π¬áºáΓÑ½∩. äá½ÑÑ, ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ óáΦá »α«µÑñπαá óδσ«ñá ñ«½ª¡á ñ«½ª¡á ó«ßßΓá¡«ó¿Γ∞ ß«σαá¡Ñ¡¡«Ñ º¡áτÑ¡¿Ñ àσitProc. é ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ »«¬áºá¡δ «ß¡«óδ ¼Ñ- Γ«ñá αÑá½¿ºáµ¿¿ Γá¬«⌐ »α«µÑñπαδ óδσ«ñá. program Testexit; var ExitSave: pointer; {$F+} procedure MyExit ; {$F-} begin . . . ExitProc := ExitSave; ExitProc := MyExit; . . . end. Åα¿ óσ«ñÑ ó »α«úαá¼¼π ß«ñÑαª¿¼«Ñ àσitProc ß«σαá¡∩ÑΓß∩ ß àσitSave, á ºáΓÑ¼ ß½ÑñπÑΓ »α«µÑñπαá óδσ«ñá îπàσit. Å«ß½Ñ Γ«ú«, ¬á¬ «¡á íπñÑΓ óδºóá¡á ó ¬áτÑßΓóÑ φ½Ñ¼Ñ¡Γá »α«µÑßßá ºá- óÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ, »α«µÑñπαá îπàσit ó«ßßΓá¡«ó¿Γ »αÑ- ñδñπΘπε »α«µÑñπαπ óδσ«ñá. Åα«úαá¼¼á ºáóÑαΦÑ¡¿∩ ó í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ íπñÑΓ óδºδóáΓ∞ »α«µÑñπαδ óδσ«ñá, »«¬á π¬áºáΓÑ½∞ àσitPr«ß ¡Ñ »α¿¼ÑΓ º¡áτÑ¡¿Ñ nil. é« ¿ºíÑªá¡¿¿ ºáµ¿¬½¿óá¡¿∩ àσitPr«ß πß- Γá¡áó½¿óáÑΓß∩ ó nil »ÑαÑñ ¬áªñδ¼ «íαáΘÑ¡¿Ñ¼, Γá¬ τΓ« ß½Ññπε- Θá∩ »α«µÑñπαá óδσ«ñá óδºδóáÑΓß∩ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ ΓÑ¬πΘá∩ »α«µÑñπαá óδσ«ñá πßΓá¡áó½¿óáÑΓ ñ½∩ àσitPr«ß ÑÑ áñ- αÑß. àß½¿ »α¿ óδ»«½¡Ñ¡¿¿ »α«µÑñπαδ óδσ«ñá ó«º¡¿¬áÑΓ «Φ¿í¬á, Γ« ó ¡Ñ⌐ ¡Ñ πß»ÑÑΓ ÑΘÑ óδ»«½¡¿Γ∞ß∩ »α¿ßóá¿óá¡¿Ñ ¡«ó«ú« áñαÑ- ßá π¬áºáΓÑ½ε àσitPr«ß, Γá¬ ¬á¬ φΓ« ñÑ½áÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ΓÑ¼, ¬á¬ »α«µÑñπαá óδσ«ñá óδ»«½¡¿Γ ó«ºóαáΓ π»αáó½Ñ¡¿∩. Åα«µÑñπαá óδσ«ñá ¼«ªÑΓ αáß»«º¡áóáΓ∞ »α¿τ¿¡π ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ »πΓÑ¼ »α«óÑα¬¿ µÑ½«τ¿ß½Ñ¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ àσitCode ¿ »ÑαÑ¼Ñ¡¡«⌐-π¬áºáΓÑ½∩ ErrorAddr. é ß½πτáÑ ¡«α- ¼á½∞¡«ú« ºáóÑαΦÑ¡¿∩ ó àσitCode ß«ñÑαª¿Γß∩ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ ¿ ErrorAddr ¿¼ÑÑΓ º¡áτÑ¡¿Ñ nil. é ß½πτáÑΓ ºáóÑαΦÑ¡¿∩ τÑαÑº «í- αáΘÑ¡¿Ñ ¬ »α«µÑñπαÑ ìált àσitCode ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ, »ÑαÑ- ñá¡¡«Ñ Σπ¡¬µ¿¿ ìált, á ErrorAddr ¿¼ÑÑΓ º¡áτÑ¡¿Ñ nil. ìá¬«- ¡Ñµ, ó ß½πτáÑ »αÑ¬αáΘÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ ¿º-ºá «Θ¿í¬¿ ó« óαÑ¼∩ ÑÑ óδ»«½¡Ñ¡¿∩ àσitCode ß«ñÑαª¿Γ ¬«ñ «Φ¿í¬¿, á ErrorAddr ß«ñÑαª¿Γ áñαÑß «Φ¿í«τ¡«ú« «»ÑαáΓ«αá. Å«ß½Ññ¡∩∩ »α«µÑñπαá óδσ«ñá (¬«Γ«αá∩ ß«ñÑαª¿Γß∩ ó í¿í½¿- «ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ) ºá¬αδóáÑΓ Σá⌐½δ Input ¿ Output ¿ ó«ßßΓá¡áó½¿óáÑΓ óÑ¬Γ«αδ »αÑαδóá¡¿⌐, ¬«Γ«αδÑ íδ½¿ »ÑαÑσóáτÑ¡δ Æπαí«-Åáß¬á½Ñ¼. Åα¿ φΓ«¼, Ñß½¿ π¬áºáΓÑ½∞ ErrorAddr ¿¼ÑÑΓ º¡áτÑ¡¿Ñ, «Γ½¿τ¡«Ñ «Γ nil, Γ« »α«µÑñπαá óδσ«ñá óδó«ñ¿Γ ß««í- ΘÑ¡¿Ñ «í «Φ¿í¬Ñ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. àß½¿ óδ σ«Γ¿- ΓÑ óδó«ñ¿Γ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ß««íΘÑ¡¿∩ «í «Φ¿í¬áσ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩, ¿ß»«½∞ºπ⌐ΓÑ »α«µÑñπαπ óδσ«ñá, ¬«Γ«αá∩ »α«óÑα∩ÑΓ ErrorAddr ¿ óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ, Ñß½¿ Ñú« º¡áτÑ¡¿Ñ «Γ½¿τ¡« «Γ nil. é ñ«íáó«¬ ó φΓ«¼π »ÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ ¡Ñ«íσ«ñ¿¼« «íÑß»Ñτ¿Γ∞, τΓ«íδ π¬áºáΓÑ½∞ ErrorAddr íδ½ πßΓá- ¡«ó½Ñ¡ ó º¡áτÑ¡¿Ñ nil, τΓ«íδ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¡Ñ óδñáóá- ½«ß∞ ß¡«óá ñαπú«⌐ »α«µÑñπα«⌐ óδσ«ñá. Å«ß½Ñ Γ«ú«, ¬á¬ í¿í½¿«ΓÑ¬á ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ «íαáΘá- ÑΓß∩ ó »α«µÑñπαá¼ óδσ«ñá, «¡á ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ äÄæ ¿ »ÑαÑñáÑΓ ó ¬áτÑßΓóÑ ¬«ñá ó«ºóαáΓá º¡áτÑ¡¿Ñ, ß«ñÑαªáΘÑÑß∩ ó àσitCode. ÇóΓ«¼áΓ¿τÑß¬á∩ «»Γ¿¼¿ºáµ¿∩ é Æπαí«-Åáß¬á½Ñ óδ»«½¡∩ÑΓß∩ ¡Ñß¬«½∞¬« αáº½¿τ¡δσ Γ¿»«ó «»Γ¿¼¿ºáµ¿¿ ¬«ñá, ¡áτ¿¡á∩ «Γ ßóÑαΓδóá¡¿∩ ¬«¡ßΓá¡Γ ¿ óδτ¿ß½Ñ- ¡¿∩ íπ½Ñóß¬¿σ óδαáªÑ¡¿⌐ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ¿ ¬«¡τá∩ φΣΣÑ¬Γ¿ó- ¡δ¼ αÑñá¬Γ¿α«óá¡¿Ñ¼ ßó∩ºÑ⌐. Éáßß¼«Γα¿¼ ¡Ñ¬«Γ«αδÑ ó¿ñδ «»Γ¿- ¼¿ºáµ¿¿. æóÑαΓδóá¡¿Ñ ¬«¡ßΓá¡Γ àß½¿ πτáßΓóπεΘ¿Ñ ó «»Ñαáµ¿¿ «»Ñαá¡ñδ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¡ßΓá¡Γδ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á, Γ« ó Æπαí«-Åáß¬á½Ñ Γá¬«Ñ óδαá- ªÑ¡¿Ñ óδτ¿ß½∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ ò:= 3+4*2 »α¿óÑñÑΓ ¬ úÑ¡Ñαáµ¿¿ Γá¬«ú« ªÑ ¬«ñá, ¬á¬ óδαáªÑ¡¿Ñ ò := 11. Ç¡á½«ú¿τ¡«, Ñß½¿ «»Ñαá¡ñδ Σπ¡¬µ¿⌐ Abs, Sqr, Succ, Pred, Odd, Lo, Hi, Swap »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¡ßΓá¡Γδ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á, Γ« Σπ¡¬µ¿∩ óδτ¿ß½∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. àß½¿ ¿¡ñÑ¬ß«¼ ¼áßß¿óá ∩ó½∩ÑΓß∩ ¬«¡ßΓá¡ñá ¿½¿ óδαáªÑ¡¿Ñ, ß«ßΓ«∩ΘÑÑ ¿º ¬«¡ßΓá¡Γ, Γ« áñαÑß φ½Ñ¼Ñ¡Γá óδτ¿ß½∩ÑΓß∩ ó« óαÑ- ¼∩ ¬«¼»¿½∩µ¿¿. ìá»α¿¼Ñα, ñ«ßΓπ» ¬ φ½Ñ¼Ñ¡Γπ Dátá[5,5] Γá¬ ªÑ φΣΣÑ¬Γ¿óÑ¡, ¬á¬ ñ«ßΓπ» ¬ »α«ßΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐. æ½¿∩¡¿Ñ ¬«¡ßΓá¡Γ êß»«½∞º«óá¡¿Ñ «ñ¡«⌐ ¿ Γ«⌐ ªÑ ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γδ ñóá ¿½¿ í«½ÑÑ αáº »α¿ó«ñ¿Γ ¬ úÑ¡Ñαáµ¿¿ Γ«½∞¬« «ñ¡«⌐ ¬«»¿¿ ¬«¡ß- Γá¡Γδ. ìá»α¿¼Ñα, ñóá ¿½¿ í«½ÑÑ «»ÑαáΓ«αá Write('D«nÑ') ó «ñ- ¡«⌐ ¿ Γ«⌐ ªÑ τáßΓ¿ »α«úαá¼¼δ »α¿óÑñÑΓ ¬ ßßδ½¬Ñ ¡á «ñ¡π ¿ Γπ ªÑ ¬«»¿ε ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γδ 'DonÑ'. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ é Æπαí«-Åáß¬á½Ñ αÑá½¿ºπÑΓß∩ óδτ¿ß½Ñ¡¿Ñ íπ½Ñóß¬«ú« óδαá- ªÑ¡¿∩ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ. ¥Γ« «º¡áτáÑΓ, τΓ« óδτ¿ß½Ñ¡¿Ñ íπ- ½Ñóß¬«ú« óδαáªÑ¡¿∩ »αÑ¬αáΘáÑΓß∩, ¬á¬ Γ«½∞¬« αÑºπ½∞ΓáΓ óßÑú« íπ½Ñóß¬«ú« óδαáªÑ¡¿∩ ßΓá¡«ó¿Γß∩ «τÑó¿ñ¡δ¼. Åα¿ φΓ«¼ «íÑß»Ñ- τ¿óáÑΓß∩ ¼¿¡¿¼á½∞¡«Ñ óαÑ¼∩ óδ»«½¡Ñ¡¿∩ ¿, «íδτ¡«, ¼¿¡¿¼á½∞¡δ⌐ αáº¼Ñα «íΩÑ¬Γ¡«ú« ¬«ñá. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ñÑ½áÑΓ Γá¬ªÑ ó«º¼«ª¡δ¼ óδτ¿ß½Ñ¡¿Ñ ¬«¡ßΓαπ¬µ¿⌐, ¬«Γ«αδÑ ¿¡áτÑ íδ½¿ íδ ¡Ññ«»πßΓ¿¼δ¼¿. ìá»α¿¼Ñα: while (I<=Length(S)) and (S[I]<>' ') do Inc(I); while (P<>nil) and (P^.Value<>5) do P:=P^.Next; é «í«¿σ ß½πτá∩σ, Ñß½¿ »Ñαóá∩ »α«óÑα¬á ¿¼ÑÑΓ º¡áτÑ¡¿Ñ FalsÑ, óΓ«αá∩ »α«óÑα¬á ¡Ñ óδτ¿ß½∩ÑΓß∩. Åα«Γ¿ó«»«½«ª¡δ¼ óδτ¿ß½Ñ¡¿ε »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ∩ó½∩ÑΓß∩ »«½¡«Ñ óδτ¿ß½Ñ¡¿Ñ, ¬«Γ«α«Ñ ¼«ª¡« óδíαáΓ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$é+}. é φΓ«¼ ß½πτáÑ «íÑß»Ñτ¿óáÑΓß∩ óδτ¿ß½Ñ¡¿Ñ ¬áªñ«ú« «»Ñαá¡ñá íπ½Ñóß¬«ú« óδαáªÑ¡¿∩. Å«α∩ñ«¬ óδτ¿ß½Ñ¡¿∩ æΓá¡ñáαΓá¼¿ Åáß¬á½∩ ñ«»πß¬áÑΓß∩, τΓ« «»Ñαá¡ñδ ó óδαáªÑ- ¡¿¿ τáßΓ« óδτ¿ß½∩εΓß∩ ó »«α∩ñ¬Ñ, «Γ½¿τ¡«¼ «Γ Γ«ú«, ó ¬«Γ«α«¼ «¡¿ ºá»¿ßá¡δ (ß½Ñóá ¡á»αáó«). ìá»α¿¼Ñα, «»ÑαáΓ«α: I:=F(J) div G(J) úñÑ F ¿ G - Σπ¡¬µ¿¿ µÑ½«ú« Γ¿»á, »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« G óδ- τ¿ß½∩ÑΓß∩ »ÑαÑñ óδτ¿ß½Ñ¡¿Ñ¼ F, Γá¬ ¬á¬ φΓ« »«ºó«½∩ÑΓ ¬«¼»¿- ½∩Γ«απ »«½πτ¿Γ∞ í«½ÑÑ «»Γ¿¼á½∞¡δ⌐ «íΩÑ¬Γ¡δ⌐ ¬«ñ. éáª¡«, »«φ- Γ«¼π, τΓ«íδ óδαáªÑ¡¿Ñ ¡¿¬«úñá ¡Ñ ºáó¿ßÑ½« «Γ ¬á¬«ú«-Γ« ¬«¡¬- αÑΓ¡«ú« »«α∩ñ¬á óδτ¿ß½Ñ¡¿∩ óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐. àß½¿ óÑα- ¡πΓ∞ß∩ ¬ »αÑñδñπΘÑ¼π »α¿¼Ñαπ, Γ« ñ½∩ Γ«ú«, τΓ«íδ óδºóáΓ∞ Σπ¡¬µ¿ε F »ÑαÑñ Σπ¡¬µ¿Ñ⌐ G, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ óαÑ¼Ñ¡¡πε »Ñ- αÑ¼Ñ¡¡πε: T:=F(J); I:=T div G(J); Åα¿¼Ñτá¡¿Ñ: êß¬½ετÑ¡¿Ñ¼ ¿º φΓ«ú« »αáó¿½á ∩ó½∩ÑΓß∩ óδ- τ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ (αáºαÑΦÑ¡¡«Ñ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá {$é-}, »α¿ ¬«Γ«α«¼ «»Ñαá¡ñδ íπ½Ñóß¬«ú« Γ¿»á, ßó∩ºá¡¡δÑ «»Ñαáµ¿∩¼¿ and ¿½¿ «r, óßÑúñá óδτ¿ß½∩- εΓß∩ ß½Ñóá ¡á»αáó«. Åα«óÑα¬á ¡á ñ«»πßΓ¿¼«ßΓ∞ úαá¡¿µ Åα¿ßó«Ñ¡¿Ñ ¬«¡ßΓá¡Γδ »ÑαÑ¼Ñ¡¡«⌐ ¿ ¿ß»«½∞º«óá¡¿Ñ ¬«¡ß- Γá¡Γδ ó ¬áτÑßΓóÑ º¡áτÑ¡¿∩ »áαá¼ÑΓαá »α«óÑα∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ ¡á ñ«»πßΓ¿¼«ßΓ∞ ¡áσ«ªñÑ¡¿∩ ó ºáñá¡¡δσ úαá¡¿µáσ. Åα¿ φΓ«¼ úÑ¡Ñα¿απÑΓß∩ Γá¬«⌐ ¬«ñ, τΓ« ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ Γá- ¬¿σ »α«óÑα«¬ ¡Ñ ñÑ½áÑΓß∩. ìá»α¿¼Ñα, ò := 999, úñÑ ò - »ÑαÑ- ¼Ñ¡¡á∩ íá⌐Γ«ó«ú« Γ¿»á (BytÑ), »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ ¬«¼»¿½∩µ¿¿. êß»«½∞º«óá¡¿Ñ ñó¿úá ó¼ÑßΓ« π¼¡«ªÑ¡¿∩ Ä»Ñαáµ¿∩ ò*æ, úñÑ æ - ¬«¡ßΓá¡Γá, ∩ó½∩εΘá∩ß∩ ßΓÑ»Ñ¡∞ε τ¿ß½á 2, »α¿ó«ñ¿Γ ¬ úÑ¡Ñαáµ¿¿ «íΩÑ¬Γ¡«ú« ¬«ñá, ó ¬«Γ«α«¼ ¿ß- »«½∞ºπÑΓß∩ ¿¡ßΓαπ¬µ¿∩ Shl (ßñó¿ú ó½Ñó«). Ç¡á½«ú¿τ¡«, ¬«úñá αáº¼Ñα¡«ßΓ∞ ¼áßß¿óá »αÑñßΓáó½∩ÑΓ ß«- í«⌐ ßΓÑ»Ñ¡∞ τ¿ß½á 2, Γ« ñ½∩ óδτ¿ß½Ñ¡¿∩ ¿¡ñÑ¬ß¡δσ óδαáªÑ¡¿⌐ ¿ß»«½∞ºπÑΓß∩ ¿¡ßΓαπ¬µ¿∩ Shl (á ¡Ñ ¿¡ßΓαπ¬µ¿∩ îul). ÇóΓ«¼áΓ¿τÑß¬«Ñ óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá Å« π¼«½τá¡¿ε Æπαí«-Åáß¬á½∞ óδαáó¡¿óáÑΓ óßÑ »ÑαÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, »αÑóδΦáεΘ¿Ñ »« αáº¼Ñαπ 1 íá⌐Γ, ¡á úαá¡¿µπ ¼áΦ¿¡¡«ú« ß½«óá. ìá óßÑσ 16-αáºα∩ñ¡δσ »α«µÑßß«αáσ ßÑ¼Ñ⌐ßΓóá 80σ86 óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá «º¡áτáÑΓ í«½ÑÑ íδßΓα«Ñ óδ»«½¡Ñ¡¿Ñ, »«ß¬«½∞¬π ñ«ßΓπ» ¬ φ½Ñ¼Ñ¡Γá¼ αáº¼Ñα«¼ ó ß½«ó« ¿½¿ τÑΓ¡δ¼ áñαÑßá¼ «ßπΘÑßΓó½∩ÑΓß∩ íδßΓαÑÑ, τÑ¼ ¬ ß½«- óá¼ »« ¡ÑτÑΓ¡«¼π áñαÑßπ. éδαáó¡¿óá¡¿Ñ ñá¡¡δσ π»αáó½∩ÑΓß∩ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá $A. Å« π¼«½τá¡¿ε ó ß«ßΓ«∩¡¿¿ {$A+} »ÑαÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ óδαáó¡¿óáεΓß∩ π¬áºá¡¡δ¼ óδΦÑ «íαáº«¼. é ß«ßΓ«∩¡¿¿ {$A-} ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐ »« óδαáó¡¿óá¡¿ε ¡Ñ »α«¿ºó«ñ¿Γß∩. äá½∞¡Ñ⌐Φ¿Ñ »«ñα«í¡«ßΓ¿ »α¿óÑñÑ¡δ ó Åα¿½«ªÑ¡¿¿ é ("ä¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá"). ôñá½Ñ¡¿Ñ ¡Ñ¿ß»«½∞ºπÑ¼«ú« ¬«ñá Ä»ÑαáΓ«αδ, « ¬«Γ«αδσ ¿ºóÑßΓ¡«, τΓ« «¡¿ ¡¿¬«úñá ¡Ñ íπñπΓ óδ»«½¡∩Γ∞ß∩, ¡Ñ ó¬½ετáεΓß∩ ó «íΩÑ¬Γ¡δ⌐ ¬«ñ. äá¡¡δÑ óδαáªÑ- ¡¿∩, ¡á»α¿¼Ñα, ¡Ñ »α¿óÑñπΓ ¬ úÑ¡Ñαáµ¿¿ «íΩÑ¬Γ¡«ú« ¬«ñá: if false then statement while false do statement ¥ΣΣÑ¬Γ¿ó¡á∩ ¬«¼»«¡«ó¬á ÉÑñá¬Γ«α ßó∩ºÑ⌐ áóΓ«¼áΓ¿τÑß¬¿ πñá½∩ÑΓ ¡Ñ¿ß»«½∞ºπÑ¼δ⌐ ¬«ñ (»« »α«µÑñπαá¼), Γ« ÑßΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ∩ó½∩εΘ¿Ñß∩ τáßΓ∞ε ß¬«¼»¿½¿α«óá¡¡«⌐ »α«úαá¼¼δ, ¡« ¬ ¬«Γ«αδ¼ ¡ÑΓ «íαáΘÑ- ¡¿⌐, ¡Ñ ó¬½ετáεΓß∩ ó Σá⌐½ Γ¿»á .àòà. Åα«µÑñπαδ, Σπ¬¡µ¿¿, »Ñ- αÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, πτáßΓóπεΘ¿Ñ ó »α«µÑßßÑ ¬«¼»¿½∩µ¿¿, ¡« ßßδ½¬¿ ¡á ¬«Γ«αδÑ «ΓßπΓßΓóπεΓ, πñá½∩εΓß∩ ¿º Σá⌐½⌐ .EXE. ôñá½Ñ¡¿Ñ ¡Ñ¿ß»«½∞ºπÑ¼«ú« ¬«ñá óδ»«½∩¡ÑΓß∩ »« »α«µÑñπαá¼, á πñá½Ñ¡¿Ñ ¡Ñ¿ß»«½∞ºπÑ¼δσ ñá¡¡δσ - »« ßÑ¬µ¿∩¼, úñÑ φΓ¿ ñá¡¡δÑ «»¿ßδóáεΓß∩. Éáßß¼«Γα¿¼ ß½ÑñπεΘπε »α«úαá¼¼π: program SmartLink; const H: array[0..15] of char = '0123456789ABCDEF'; var I,J : integer; X,Y : real; var S: string[79]; var A: array[1..10000] of integer; procedure P1: begin A[1] = 1; end; procedure P2; begin I := 1; end; procedure P3; begin S := 'Turbo Pascal'; P2; end; begin P3; end; Äß¡«ó¡á∩ »α«úαá¼¼á óδºδóáÑΓ »α«µÑñπαπ É3, ¬«Γ«αá∩ óδºδ- óáÑΓ »α«µÑñπαπ É2, »«φΓ«¼π «íÑ »α«µÑñπαδ É2 ¿ É3 ó¬½ετáεΓß∩ ó Σá⌐½ .àòà. Å«ß¬«½∞¬π É2 ßßδ½áÑΓß∩ ¡á »Ñαóδ⌐ αáºñÑ½ «»¿ßá- ¡¿∩ »ÑαÑ¼Ñ¡¡δσ, á É3 ßßδ½áÑΓß∩ ¡á óΓ«α«⌐ αáºñÑ½ «»¿ßá¡¿Ñ »Ñ- αÑ¼Ñ¡¡δσ, »ÑαÑ¼Ñ¡¡δÑ I, J, X, Y, S »º¬ªÑ ó¬½ετáεΓß∩ ó óδ»«½- ¡∩Ñ¼δ⌐ Σá⌐½. Äñ¡á¬« ¡á »α«µÑñπαπ É1 ¡¿¬á¬¿σ ßßδ½«¬ ¡ÑΓ, á ó¬½ετÑ¡¡δÑ ó óδ»«½∩¡Ñ¼δ⌐ Σá⌐½ »α«µÑñπαδ ¡Ñ ßßδ½áεΓß∩ ¡á »Ñ- αÑ¼Ñ¡¡δÑ ì ¿ A, »«φΓ«¼π φΓ¿ «íΩÑ¬Γδ πñá½∩εΓß∩. ¥ΣΣÑ¬Γ¿ó¡á∩ ¬«¼»«¡«ó¬á ¿¼ÑÑΓ «ß«íπε µÑ¡¡«ßΓ∞ ó ßó∩º¿ ß ¿ß»«½∞º«óá¡¿Ñ¼ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ αÑá½¿ºπεΓ í¿í½¿«ΓÑ¬¿ »α«µÑ- ñπα ¿ Σπ¡¬µ¿⌐. Åα¿¼Ñα«¼ Γá¬«ú« ¼«ñπ½∩ ∩ó½∩ÑΓß∩ ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Dos, ¬«Γ«αδ⌐ ß«ñÑαª¿Γ α∩ñ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. Åα¿ φΓ«¼ »α«úαá¼¼á αÑñ¬« ¿ß»«½∞ºπÑΓ óßÑ φΓ¿ »α«µÑñπαδ. àß½¿ «¡á ¿ß»«½∞ºπÑΓ Γ«½∞¬« «ñ¡π ¿½¿ ñóÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, Γ« Γ«½∞¬« φΓ¿ »α«µÑñπαδ ó¬½ετáεΓß∩ ó »«½πτÑ¡¡δ⌐ ó αÑºπ½∞ΓáΓÑ Σá⌐½ .àòà, τΓ« »«ºó«½∩ÑΓ º¡áτ¿ΓÑ½∞¡« π¼Ñ¡∞Φ¿Γ∞ Ñú« αáº¼Ñα. Åα¿¼Ñτá¡¿Ñ: Åα¿ ¬«¼»¿½∩µ¿¿ ó »á¼∩Γ∞ φΣΣÑ¬Γ¿ó¡á∩ ¬«¼»«¡«ó¬á Æπαí«-Åáß¬á½∩ ¡Ñ αáí«ΓáÑΓ. ¥Γ¿¼ «íΩ∩ß¡∩ÑΓ- ß∩, »«τÑ¼π ¡Ñ¬«Γ«αδÑ »α«úαá¼¼δ ßΓá¡«ó∩Γß∩ ¼Ñ¡∞ΦÑ »α¿ ¬«¼»¿½∩µ¿¿ ¿σ ¡á ñ¿ß¬.