অ্যাসেম্বলার ল্যাঙ্গুয়েজ ম্যাক্রো সিস্টেম
msystem.zip
411KB।
ম্যাক্রো সিস্টেম
আর্কাইভের প্রধান ফাইলগুলির সংক্ষিপ্ত বিবরণ।
ম্যাক্রো সিস্টেম নিজেই:
MSYSTEM.MAC
এই ফাইলটিতে প্রকৃত ম্যাক্রো সিস্টেম রয়েছে।
MMACROS.MAC
এই ফাইলটিতে অতিরিক্ত দরকারী ম্যাক্রো সংজ্ঞা রয়েছে।
MBIOS.MAC
এই ফাইলটিতে IBM-PC BIOS-এর জন্য ম্যাক্রো সংজ্ঞা রয়েছে।
MDOS.MAC
এই ফাইলটিতে IBM-PC DOS-এর জন্য ম্যাক্রো সংজ্ঞা রয়েছে।
CONIO.MAC
DIR.MAC
ERROR.MAC
FLOAT.MAC
IO.MAC
KBD.MAC
MATH.MAC
MBIOS.MAC
MEM.MAC
MOUSE.MAC
STOV.MAC
STRING.MAC
SYS.MAC
ম্যাক্রো সিস্টেম নিজেই:
CHOISE.M
CLOCK.M
কোডার.এম
রঙ.এম
কার্সার.এম
DBEDIT.M
INIT.M
KEY.M
MENU.M
MKEYS.M
READ.M
REC.M
বলুন
স্ক্রোল.এম
SORT.M
সাউন্ড এম
WINDOW.M
ডকুমেন্টেশন:
MSYSTEM.DOC
এটি ম্যাক্রো সিস্টেমের জন্য একটি ডকুমেন্টেশন ফাইল।
EXTA.DOC
MMACROS.DOC
MMEM.DOC
OGLAV.DOC
READ.DOC
TITLE.DOC
*.ASM ফাইল এই ফাইল ধারণ করে
সিস্টেমে ইনস্টলেশনের জন্য
যে অ্যাসেম্বলার ত্রুটি মনে রাখবেন
আপনার পদ্ধতি যাই হোক না কেন -
অ্যাসেম্বলার নিজেই এখানে ডাউনলোড করা যেতে পারে
tasm25.zip
- 175 কেবি।
উদাহরণস্বরূপ, এখানে একটি সহজ কোড
;
;
.মডেল ছোট
msystem.mac অন্তর্ভুক্ত
sys.mac অন্তর্ভুক্ত
conio.mac অন্তর্ভুক্ত
mouse.mac অন্তর্ভুক্ত
mem.mac অন্তর্ভুক্ত
kbd.mac অন্তর্ভুক্ত
math.mac অন্তর্ভুক্ত
cursor.m অন্তর্ভুক্ত
window.m অন্তর্ভুক্ত
color.m অন্তর্ভুক্ত
rec.m অন্তর্ভুক্ত
dbedit.m অন্তর্ভুক্ত
say.m অন্তর্ভুক্ত
read.m অন্তর্ভুক্ত
key.m অন্তর্ভুক্ত
mkeys.m অন্তর্ভুক্ত
mb.m অন্তর্ভুক্ত
size_com = 20000+256
len_stack = 20000
len_vars = 20000
.CODE
শুরু করুন START,100 ঘন্টা,_প্রধান,{
func mb_empty,,
mov SI, buf_A
মেমফিল <32,@ DEBET_NAME,LEN_NAME>
মেমফিল < 0,@ DEBET_QUAN,LEN_QUAN>
মেমফিল <32,@ KREDIT_NAME,LEN_NAME>
মেমফিল < 0,@ KREDIT_QUAN,LEN_QUAN>
endf
func _pic,<বাইট এক্স,বাইট Y>,,1,পাবলিক
old_color EQU [BP] -1
getcolor ,
mov SI, buf_A
setcolor
sayxy
setcolor
<@DEBET_NAME,@f_name> বলুন
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
বলুন <@ DEBET_QUAN,@ f_quan>
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
<@ KREDIT_NAME,@ f_name> বলুন
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
বলুন <@ KREDIT_QUAN,@ f_quan>
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
endf
func _fuser,<বাইট মোড,ওয়ার্ড RecCur>,,1,পাবলিক
old_color EQU [BP] -1
mov DI, 1
mov AL, cs:mode
AL,<0,1> পরিবর্তন করুন
মামলা 1 { ;
getcolor ,
setcolor
reccount <@ rec_A>,
sayxy <35, 2,@ ii,@ f_w4>
recrecno <@ rec_A>,
sayxy <41, 2,@ ii,@ f_w4>
setcolor
কেস 2 {
mov retr_cho, সত্য
যখন {
mov retr_cho, মিথ্যা
mkeys_to
mov AL, cs:key_AL
AL, { পাল্টান
মামলা 1 {
mov AH, cs:key_AH
AH, পাল্টান
মামলা 1 ;
সন্নিবেশ করা হচ্ছে ,
কেস 2;
মুছে ফেলা হচ্ছে ,
কেস 3;
বাছাই করা হচ্ছে,
কেস 4;
কেস 5;
ডেটিং,
কেস 6;
মেনুপুল
mov DI, 3
এন্ডকেস
কেস 2 { ;
কেস 3;
ইনপুট করা হচ্ছে ,
কেস 4;
সরানো হয়েছে, মিথ্যা
movDI,0
এন্ডকেস
endwh}
এন্ডকেস
endf
লেবেল1 db 'আসছে',0
লেবেল2 ডিবি 'ব্যবহার',0
title1 db ' নামের পরিমাণ
ukeys1 db 1Eh,0
ukeys2 db 1Fh,0
skys1 db 'ENTER',0
nkeys1 db 'ENTER',0
skys2 db 'INS',0
nkeys2 db 'নতুন',0
skys3 db 'DEL',0
nkeys3 db 'DELETE',0
skys4 db 'F5',0
nkeys4 db 'প্রিন্ট',0
skys5 db 'F6',0
nkeys5 db 'ORDER',0
skys6 db 'F7',0
nkeys6 db 'সার্চ',0
skys7 db 'F8',0
nkeys7 db 'SUM',0
skys8 db 'F10',0
nkeys8 db 'মেনু',0
skeys9 db 'ESC',0
nkeys9 db 'ছাড়ুন',0৷
;--- প্রধান পদ্ধতি
ফাংশন প্রধান
;
cli
mov SP, size_com+len_stack
sti
;
farrelease <*CS 00.00 size_com+len_stack+len_vars>
initcon
প্রকাশ করুন <* size_com+len_stack,0>
initsys
initmouse
cursor_off
;
setcolor <<>>
ড্রবক্স
ড্রবক্স < 0, 2.79, 2, @ বক্স_মেইন>
মাউস_অন
setcolor
sayxy <16, 0,@ label1,@ f_s>
sayxy <56, 0,@ label2,@ f_s>
setcolor
sayxy <0, 1,@ title1,@ f_s>
setcolor
<@ title1,@ f_s> বলুন
setcolor <<>>
;
রঙ
mkeys_on
mkeys_fr <79, 0,PGUPKEY*100h,@ukeys1,@snull>
mkeys_fr <79,24,PGDNKEY*100h,@ ukeys2,@ snull>
mkeys_fr <4,24,CRKEY,@skeys1,@nkeys1>
mkeys_fr <14,24,INSKEY*100h,@skeys2,@nkeys2>
mkeys_fr <22,24,DELRKEY*100h,@skeys3,@nkeys3>
mkeys_fr <30,24,F5KEY*100h,@skeys4,@nkeys4>
mkeys_fr <37,24,F6KEY*100h,@skeys5,@nkeys5>
mkeys_fr <44,24,F7KEY*100h,@skeys6,@nkeys6>
mkeys_fr <51,24,F8KEY*100h,@skeys7,@nkeys7>
mkeys_fr <58,24,F10KEY*100h,@skeys8,@nkeys8>
mkeys_fr <65,24,ESCKEY,@skeys9,@nkeys9>
mkeys_on
;
রিকোপেন <@ rec_A,@ file_A,len_A>
getmem , ;recbuffer
recempty <@ rec_A,@ _mb_empty>
;
রঙ
সরানো হয়েছে, সত্য
যখন <সম্পন্ন এবং সত্য>
dbedit <@ rec_A, 0, 3,79,23,@ cs:__pic,@ cs:__fuser>
endwh
;
freemem<*buf_A>
recclose <@ rec_A>
;
mkeys_of
;
মাউস_অফ
cursor_on
;
clrscr
থামান <0>
endf
শেষ শুরু