![]() |
|
msystem.zip 411 কেবি। P> ম্যাক্রোগুলির সিস্টেম আপনাকে একটি উচ্চ-স্তরের ভাষার পরিচিত সিনট্যাক্সে প্রোগ্রামগুলি লেখার অনুমতি দেয় এবং প্রোগ্রামগুলির পাঠ্যগুলি পড়ার এবং উপলব্ধির জন্য আরও স্বচ্ছ করে তোলে। TASM-2.5 এবং MASM-5.0 সমাবেশের ভাষা সংকলকগুলির জন্য সিস্টেমটি তৈরি করা হয়েছে এটি একটি উচ্চ-স্তরের কাঠামোগত ভাষা যা কোনও আকারের প্রোগ্রাম এবং যে কোনও উদ্দেশ্যে লেখার জন্য ব্যবহার করা যেতে পারে। এমন প্রোগ্রামারটির জন্য তৈরি যা ইতিমধ্যে সমাবেশ ভাষায় প্রোগ্রামিংয়ের অভিজ্ঞতা আছে p>
সংরক্ষণাগারের মূল ফাইলগুলির একটি সংক্ষিপ্ত বিবরণ h3>
ম্যাক্রোগুলির নিজেই সিস্টেম: h4>
|
উদাহরণস্বরূপ, এখানে একটি সাধারণ ডাটাবেস প্রোগ্রামের কোড, আয় এবং অর্থ ব্যয়ের জন্য অ্যাকাউন্টিং p>
; এমবি.এএসএম
; ডি এল। কনিউখভ
.মোডেল ছোট
এমএসসিস্টেম.ম্যাক
অন্তর্ভুক্ত করুন
sys.mac
অন্তর্ভুক্ত করুন
conio.mac
অন্তর্ভুক্ত করুন
মাউস.ম্যাক
অন্তর্ভুক্ত করুন
mem.mac
অন্তর্ভুক্ত করুন
kbd.mac
অন্তর্ভুক্ত করুন
গণিত.ম্যাক
অন্তর্ভুক্ত করুন
কার্সার.এম
অন্তর্ভুক্ত করুন
উইন্ডো.এম
অন্তর্ভুক্ত করুন
color.m
অন্তর্ভুক্ত করুন
rec.m
অন্তর্ভুক্ত করুন
dbedit.m
অন্তর্ভুক্ত করুন
say.m
অন্তর্ভুক্ত করুন
read.m
অন্তর্ভুক্ত করুন
key.m
অন্তর্ভুক্ত করুন
mkeys.m
অন্তর্ভুক্ত করুন
এমবি.এম
অন্তর্ভুক্ত করুন
আকার_কম = 20000 + 256
len_stack = 20000
len_vars = 20000
.CODE
শুরু, 100 ঘন্টা, _মেন, {
func mb_empty ,, \u0026 lt; এসআই এবং জিটি;
মুভি এসআই, বুফ_এ
মেমফিল \u0026 lt; 32, @ DEBET_NAME, LEN_NAME \u0026 gt;
মেমফিল \u0026 এলটি; 0, @ DEBET_QUAN, LEN_QUAN \u0026 জিটি;
মেমফিল \u0026 lt; 32, @ KREDIT_NAME, LEN_NAME \u0026 gt;
মেমফিল \u0026 এলটি; 0, @ KREDIT_QUAN, LEN_QUAN \u0026 জিটি;
endf
Func _pic, \u0026 lt; বাইট এক্স, বাইট Y \u0026 gt ;, \u0026 lt; এসআই \u0026 gt ;, 1, সর্বজনীন
old_color EQU [BP] -1
getcolor, \u0026 lt; old_color \u0026 gt;
মুভি এসআই, বুফ_এ
সেটকলার \u0026 lt; দেবআত্র \u0026 জিটি;
sayxy \u0026 lt; এক্স, ওয়াই, @ স্পেস, @ f_s \u0026 জিটি;
সেটকলার \u0026 lt; পুরানো_ রঙ \u0026 জিটি;
\u0026 lt; @ DEBET_NAME, @ f_name \u0026 gt;
বলুন
সেটকলার \u0026 lt; দেবআত্র \u0026 জিটি;
\u0026 lt; @ স্পেস, @ f_s \u0026 জিটি;
বলুন
সেটকলার \u0026 lt; পুরানো_ রঙ \u0026 জিটি;
\u0026 lt; @ DEBET_QUAN, @ f_quan \u0026 gt;
বলুন
সেটকলার \u0026 lt; দেবআত্র \u0026 জিটি;
\u0026 lt; @ স্পেস, @ f_s \u0026 জিটি;
বলুন
সেটকলার \u0026 lt; KreAttr \u0026 gt;
\u0026 lt; @ স্পেস, @ f_s \u0026 জিটি;
বলুন
সেটকলার \u0026 lt; পুরানো_ রঙ \u0026 জিটি;
\u0026 lt; @ KREDIT_NAME, @ f_name \u0026 gt;
বলুন
সেটকলার \u0026 lt; KreAttr \u0026 gt;
\u0026 lt; @ স্পেস, @ f_s \u0026 জিটি;
বলুন
সেটকলার \u0026 lt; পুরানো_ রঙ \u0026 জিটি;
\u0026 lt; @ KREDIT_QUAN, @ f_quan \u0026 gt;
বলুন
সেটকলার \u0026 lt; KreAttr \u0026 gt;
\u0026 lt; @ স্পেস, @ f_s \u0026 জিটি;
বলুন
সেটকলার \u0026 lt; পুরানো_ রঙ \u0026 জিটি;
endf
ফানক _ফিউজার, \u0026 lt; বাইট মোড, শব্দ পুনরুদ্ধার \u0026 gt ;, \u0026 lt; ডিআই ও জিটি ;, 1, সর্বজনীন
old_color EQU [BP] -1
মুভি ডিআই, 1
মুভ আল, সিএস: মোড
AL, \u0026 lt; 0.1 \u0026 gt;
এ স্যুইচ করুন
মামলা 1 {; অঙ্কন
getcolor, \u0026 lt; old_color \u0026 gt;
সেটকলার \u0026 lt; LblAttr \u0026 gt;
পুনঃনিরোধক \u0026 lt; @ rec_A \u0026 gt ;, \u0026 lt; ii \u0026 gt;
sayxy \u0026 lt; 35, 2, @ ii, @ f_w4 \u0026 gt;
বিনোদনজগত \u0026 lt; @ rec_A \u0026 gt ;, \u0026 lt; ii \u0026 gt;
sayxy \u0026 lt; 41, 2, @ ii, @ f_w4 \u0026 gt;
সেটকলার \u0026 lt; পুরানো_ রঙ \u0026 জিটি;
কেস 2 {
মুভি retr_cho, সত্য
যখন \u0026 lt; retr_cho ই সত্য \u0026 gt; {
মুভি retr_cho, মিথ্যা
mkeys_to
মুভ আল, সিএস: কী_এল
AL স্যুইচ করুন এবং \u0026 lt; নলকি, স্পেসিই, সিআরকেই, ইস্কি \u0026 জিটি; {
কেস 1 {
মুভ এএইচ, সিএস: কী_এইচ
এএইচ, ও \u0026 lt; ইনস্কি, দেলকি, এফ 6 কে, ফ 7 কে, এফ 8 কে, এফ 10 কে ও জিটি; স্যুইচ করুন
মামলা 1; সন্নিবেশ
সন্নিবেশ করা হচ্ছে, \u0026 lt; ডিআই ও জিটি;
কেস 2; মুছে ফেলুন
মোছা হচ্ছে, \u0026 lt; ডিআই ও জিটি;
কেস 3; সাজান
বাছাই করা হচ্ছে, \u0026 lt; ডিআই ও জিটি;
কেস 4;
সন্ধান করুন
কেস 5; তারিখ
ডেটিং, \u0026 lt; ডিআই \u0026 জিটি;
মামলা 6; মেনু
মেনুপুল
মুভি ডিআই, 3
সমাপ্তি
কেস 2 {; চিহ্ন
কেস 3; ইনপুট
ইনপুটিং \u0026 lt; পুনরুদ্ধার \u0026 gt ;, \u0026 lt; ডিআই এবং জিটি;
কেস 4; প্রস্থান
মুভি শেষ, মিথ্যা
মুভি ডিআই, 0
সমাপ্তি
endwh}
সমাপ্তি
endf \u0026 lt; শব্দ ডিআই \u0026 জিটি;
লেবেল 1 ডিবি 'প্যারিশ', 0
লেবেল 2 ডিবি 'ফ্লোও', 0
শিরোনাম 1 ডিবি 'শিরোনাম পরিমাণ', 0
ukeys1 ডিবি 1Eh, 0
ukeys2 ডিবি 1Fh, 0
skeys1 ডিবি 'ENTER', 0
nkeys1 ডিবি 'ENTER', 0
skeys2 ডিবি 'আইএনএস', 0
nkeys2 ডিবি 'নতুন', 0
skeys3 ডিবি 'ডেল', 0
nkeys3 ডিবি 'মুছে ফেলুন', 0
skeys4 ডিবি 'F5', 0
nkeys4 ডিবি 'প্রিন্ট', 0
skeys5 ডিবি 'F6', 0
nkeys5 ডিবি 'অর্ডার', 0
skeys6 ডিবি 'F7', 0
nkeys6 ডিবি 'অনুসন্ধান', 0
skeys7 ডিবি 'F8', 0
nkeys7 db 'SUM', 0
skeys8 ডিবি 'F10', 0
nkeys8 ডিবি 'মেনু', 0
skeys9 ডিবি 'ESC', 0
nkeys9 ডিবি 'প্রস্থান', 0
; --- প্রধান পদ্ধতি
ফানক মুখ্য |
; স্ট্যাক
ক্লিপ
মুভ এসপি, আকার_কম + লেন_স্ট্যাক
sti
; আমি সিস্টেমটি খুলি
ফররিলিজ \u0026 এলটি; * সিএস 00,00 সাইজ_কম + লেন_স্ট্যাক + লেন_ভারস \u0026 জিটি;
initcon
\u0026 lt; * আকার_com + লেন_স্ট্যাক, 0 \u0026 জিটি;
প্রকাশ করুন
initsys
উদ্যোগী
কার্সার_অফ
; মূল ফ্রেম আঁকুন -
সেটক্লোর \u0026 lt; \u0026 lt; \u0026 lt; বাইট পিটিআর মাইনআটার \u0026 gt; \u0026 gt; \u0026 gt;
ড্রয়বক্স \u0026 এলটি; সিএস: স্ক্রিনমিনএক্স, সিসি: স্ক্রিনমিনি, সিএস: স্ক্রিনম্যাক্সএক্স, সিএস: স্ক্রনম্যাক্স, @ বক্স_মাইন \u0026 জিটি;
ড্রবক্স \u0026 এলটি; 0, 2.79, 2, @ box_main \u0026 gt;
মাউস_অন
সেটকলার \u0026 lt; LblAttr \u0026 gt;
sayxy \u0026 lt; 16, 0, @ লেবেল 1, @ f_s \u0026 জিটি;
sayxy \u0026 lt; 56, 0, @ লেবেল 2, @ f_s \u0026 জিটি;
সেটকলার \u0026 lt; দেবআত্র \u0026 জিটি;
sayxy \u0026 lt; 0, 1, @ শিরোনাম 1, @ f_s \u0026 জিটি;
সেটকলার \u0026 lt; KreAttr \u0026 gt;
\u0026 lt; @ শিরোনাম 1, @ f_s \u0026 জিটি;
বলুন
সেটক্লোর \u0026 lt; \u0026 lt; \u0026 lt; বাইট পিটিআর মাইনআটার \u0026 gt; \u0026 gt; \u0026 gt;
; মেনু-লাইন
রঙ \u0026 lt; মেনুআত্র \u0026 gt;
mkeys_on \u0026 lt; সত্য \u0026 gt;
mkeys_fr \u0026 lt; ,৯, ০, পিজুপিকে * ১০০ ঘন্টা, @ ukeys1, @ শঙ্কা \u0026 জিটি;
mkeys_fr \u0026 lt; .2৯.২৪, পিজিডিএনকেই * ১০০ ঘন্টা, @ ukeys2, @ শঙ্কা \u0026 জিটি;
mkeys_fr \u0026 lt; 4.24, সিআরকেই, @ স্কাই 1, @ নেকে 1 এবং জিটি;
mkeys_fr \u0026 lt; 14.24, ইনস্কি * 100 ঘন্টা, @ skeys2, @ nkeys2 \u0026 জিটি;
mkeys_fr \u0026 lt; 22,24, DELRKEY * 100 ঘন্টা, @ skeys3, @ nkeys3 \u0026 gt;
mkeys_fr \u0026 lt; 30,24, F5KEY * 100 ঘন্টা, @ skeys4, @ nkeys4 \u0026 gt;
mkeys_fr \u0026 lt; 37.24, F6KEY * 100 ঘন্টা, @ skeys5, @ nkeys5 \u0026 gt;
mkeys_fr \u0026 lt; 44,24, F7KEY * 100 ঘন্টা, @ skeys6, @ nkeys6 \u0026 gt;
mkeys_fr \u0026 lt; 51,24, F8KEY * 100 ঘন্টা, @ skeys7, @ nkeys7 \u0026 gt;
mkeys_fr \u0026 lt; 58.24, F10KEY * 100 ঘন্টা, @ skeys8, @ nkeys8 \u0026 gt;
mkeys_fr \u0026 lt; 65,24, ESCKEY, @ skeys9, @ nkeys9 \u0026 gt;
mkeys_on \u0026 lt; মিথ্যা \u0026 জিটি;
; ফাইলটি খুলছে
পুনরায় খুলুন \u0026 lt; @ rec_A, @ ফাইল_এ, লেন_এ \u0026 জিটি;
getmem \u0026 lt; len_A \u0026 gt ;, \u0026 lt; buf_A \u0026 gt; পুনরুদ্ধারকারী
রিসেপটি \u0026 lt; @ rec_A, @ _mb_empty \u0026 gt;
;
ফাইলের সাথে কাজ করা
রঙ \u0026 lt; মেইনএটার \u0026 জিটি;
মুভ সম্পন্ন, সত্য
যখন \u0026 lt; ই সত্য \u0026 gt;
করা হয়েছে
ডাবিডিট \u0026 এলটি; @ রেক_এ, 0, 3,79,23, @ সিস: __ পিক, @ সিসি: __ ফুজার \u0026 জিটি;
শেষ
; ফাইলটি বন্ধ করুন
freemem \u0026 lt; * buf_A \u0026 gt;
পুনরায় বন্ধ করুন \u0026 lt; @ rec_A \u0026 gt;
; আমি অন্য
বন্ধ
mkeys_of
; আমি সিস্টেমটি বন্ধ করি
মাউস_অফ
কার্সার_আন
; প্রোগ্রামটি থেকে বের হচ্ছে
clrscr
বন্ধ করুন \u0026 lt; 0 \u0026 gt;
endf
সমাপ্তি