Қисмларни ёзиш ва тузилиши - Информатика и ИТ - Рефераты

Қисмларни ёзиш ва тузилиши

Загружено в:

20.09.2019

Скачано:

0

Размер:

128.5 KB

Қисмларни ёзиш ва тузилиши Режа: 1. Киритиш. 2. Жадвалларни таърифлаш 3. Жадвалларга бевосита кириш йўли 4. Жадвал қидируви 5. XLAT трансляцияланадиган командаси 6. Дастур: жадвал элементларини саралаш 7. Тур, узунлик ва катталик операторлар.

Таянч сўзлар ва иборалар: XLAT командаси, стек, жадвал, бевосита жадвалга кириш йўли, уникал элементларга эга жадваллар, буйсира билан жадваллар, сатрлар солиштириш билан жадвал қидируви, ўзгарадиган узунликга эга элементлари билан жадваллар. 1. КИРИШ. Кўпинча дастур ишлатишларда Маълумотлар жадвал кўринишда тўзилган бўладилар (номлар, тасвирлар, катталиклар, нархлар). Жадвалларни таърифланиш ва ишлатиш учун ассемблерда XLAT команда бор. Жадвалларни таърифлаш вариантлари ва қидирув алгоритмлари кўп бор. 2. ЖАДВАЛЛАРНИ ТАЪРИФЛАШ Жадвал қидирувни осонлаштириш учун кўп жадваллар тартибли таърифланадилар. Жадвал элементлари бир хил форматга (символ ёки сон) бир хил узунликга эга ва юкорига йўналган ёки пасайтиб борадиган элеметнлар кетма-кетликга эга. Стек ҳам жадвал дир. У 64-та инициаллаштирилган сўзлардан иборат STACK DW 64DUP(?) Қуйидаги икта жадваллар символ ва сон қийматлардан инициаллаштирилганлар: MONTAB DB ‘JAN’,’FEB’,’MAR’,...,’DEC’ CODTAB DB 205,208,209,212,215,224 MONT АВ жадвали алифбодаги ойларни бошланғич ҳарфларни аниқлайди , COSTAB жадвали эса - хизматчиларни рақамлар жадвалини аниқлайди . Жадвалларда аралаштирилган Маълумотлар ҳам бўлади ( сон ва символ майдонлар мўнтазам алмашиб туришади ). Қуйидаги навлар жадвалида ҳар

бир сон элементи ( инвентар рақами ) икта рақамдан ( битта байт ) иборат , ҳар бир символ элементлари эса ( ном ) туккизта байтга эга . “Paper” номида нуқталар бўлса , улар шу майдонни узунлигини 9 байтгача кушиб мукаммалаштиради . Нуқталар қуйидагисига кўрсатишади : кам бўлган майдон бор бўлиши керак . Нуқталарни киритиш шарт эмас . STOKTBL DB 12,’Computers’,14,’Paper....’,17,’Diskettes’ Аниқ бўлиш учун жадвалэлементларни вертикал кодлаштириш ҳам мумкин: STOKTBL DB 12,’Coputers’ DB 14,’Papers....’ DB 17,’Diskettes’ Энди жадвалларни дастурларда ишлатиш ҳар хил усулларини кўрайлик . 3. ЖАДВАЛЛАРГА БЕВОСИТА КИРИШ ЙЎЛИ Фараз қилайлик. Агар фойдаланувчи 03 ой тартиб ракмини кииртса, дастур бу рақамни алифбо қийматга айлантириш керак - March. Шундай айлантириш дастури жадвал таърифини бир хил узунликга эга ойларни алифбо номларини ичига олади. Чунки энг узун ой номи “September”, жадвал қуйидаги кўринишда бўлади: MONTBL DB ‘January..’ DB ‘February’ DB ‘March....’ ... Жадвални ҳар бир элементи 9 байт узунликда . ‘January’ элементни адреси MONTBL+0, ‘February’ - MONTBL+9, ‘March’ - MONTLB+18. 03 ойни маълум жойда топиш учун, дастур қуйидагиларни бажариш керак: 1. Киритилган ой рақамини ASCII 33 дан иккили 03 га айлантириш. 2. Ой рақамидан 1 ни айриш: 03-1=02 3. Натижани элемент узунликга кўпайтириш: 02*9=18

4. Кўпайтмани (18) MONTBL адресига қўшиш. Натижада керакли 03 номини адреси чиқади MONTBL+18. CODESG SEGMENT PARA ‘Code’ ASSUME CS:CODESG,DS:CODESG,ES:CODESG ORG 100H BEGIN: JMP SHORT MAIN ;------------------------------------------------------------------------ THREE DB 3 MONIN DB ‘11’ ALFMON DB ‘???’,’$’ MONTAB DB ‘JAN’,’FEB’,MAR’,APR’,’MAY’,’JUN’ DB ‘JUL’,’AUG’,SEP’,OKT’,NOV’,’DEC’ ;-------------------------------------------------------------------------- MAIN PROC NEAR ; Асосий процедура CALL C10CONV ; Иккили қийматни олиш CALL D10LOC ; Жадвалдан ойни ажратиб чиқариш CALL F10DISP ; Экранга ойни чиқариш RET MAIN ENDP ; ASCII ни иккили кўринишга айлантириш ;--------------------------------------------------------------------------------- C10CONV PROC MOV AH,MONIN ; Ойнинг рақамини юклаш MOV AL,MONIN+1 XOR AX,3030H ; ASCII учларни ўчириш CMP AH,00 ; 01-09 ой - ми ?

JZ C20 ; Ха - ўтиш SUB AH,AH ; Йўқ - АН ни тозалаш ADD AL,10 ; ва иккили га ўзгартириш C20: RET C10CONV ENDP ;Жадвалдан ойни чиқариб бериш ;---------------------------------------------------------------------- D10LOC PROC LEA SI,MONTAB DEC AL ; Жадвал учун коррекция MUL THREE ; AL ни 3 га кўпайтириш ADD SI,AX MOV CX,03 ; уч символлни юбориш CLD LEA DI,ALFMON REP MOVSB ; учта символни юбориш RET D10LOC ENDP ; Экранга ойни символларини чиқариш ;------------------------------------------------------------------- F10DISP PROC LEA DX,ALFMON MOV AH,09 INT 21H RET F10DISP ENDP CODESG ENDS END BEGIN

Тепадеги ой номлар жадвалга бевосита кириш йўли келтирилган . Кискалик учун 9 символ номлар ўрнида 3 символли номлар ишлатилади. Киритилган ой таркиб рақами MONIN майдонда таърифланган. Шундай жадваллар билан ишлаш усули бевосита жадвалга кириш йўли деб айтилади. Чунки берилган алгоритм керакли жадвал элемент адресини бевосита ҳисоблаб чиқаради, дастурда қидирув операцияларни бажариш керак эмас. Бевосита жадвал адреслаштириш жуда эффектив бўлса ҳам, у фақат кетма-кетли тузилишда мумкин. Элементлар мўнтазам кетма-кетликда бўлса, шу жадваллардан фойдаланиш мумкин: 1,2,3... ёки 106,107,108, ёки 5,10,15. Лекин, жадваллар ҳар доим шундай тузилган булмайди. Номунтазам тузилган жавалларни кўрайлик. 4. ЖАДВАЛ ҚИДИРУВИ Баъзи жадваллар кўринадиган конунийликда бўлмаган сонлар кетма- кетликдан иборат. Масалан: кетма-кет рақамлардаги инвентар рақамларни жадвали: 134, 138, 141, 239, 245. Жадвалларни бошқа тури - буйсирада тақсимланган миқдорлар, масалан, даромад солиги. Уникал элементларга эга жадваллар. Кўп фирмаларда инвентар рақамлар кетма-кетли тартибда эмасдир. Одатда, рақамлар категорияларга гуруҳланишади. Масалан, биринчи рақамлар булимлар рақамларига кўрсатишади. Шундан ташкари, вакти-вакти билан эски рақамар учирилади ва янгилар киритилади. Жадвалда инвентар рақамларни ва номларни боглаш керак (ва, зарур бўлса, нархни қўшиш). Инвентар рақамлар ва номлар ҳар хил жадвалларда таърифланганлари мумкин, масалан: STOKNOS DB ‘101’,’107’,’109’,... STOKDCR DB ‘ExcavatORs’,’PROCessORs’,’Assemblers’,... ёки битта жадвалда , масалан :

STOKTAB DB ‘101’, ’ExcavatORs’ DB ‘107’, ‘PROCessORs’ DB ‘109’, ‘Assemblers’ Пасдеги дастур инвентар жадвални та o риф ва жадвал қидирувни бажаради . Жадвалда рақамлар ва номлар олтита пар бор . Қидирув цикли STOKNIN майдонга киритилган рақамни жадвалдаги биринчи рақами билан солиштиришдан бошлайди . CODESG SEGMENT PARA ‘Code’ ASSUME CS:CODESG,DS:CODESG,ES:CODESG ORG 100H BEGIN: JMP SHORT MAIN STOKNIN DW ‘23’ STOKTAB DB ‘05’,’ExcavatORs’ DB ‘08’,’Listers ’ DB ‘09’,’Presses ’ DB ‘12’,’Valves ’ DB ‘23’,’PROCessORs’ DB ‘27’,Pumps ‘ DESCRN 10 DUP(?) MAIN PROC NEAR MOV AX,STOKNIN ; Элемент рақамини юклаш XCHG AL,AH MOV CX,06 ; Жадвалдаги элементлар сони LEA SI,STOKTAB ; Жадвални бошланғич адреси A20: CMP AX,[SI] ; Элементларни солиштириш JE A30 ; тенг бўлсалар , чиқиш ADD SI,12 ; йўқ - қуйидаги элемент LOOP A20 CALL R10ERR ; Жадвалда элемент топилмаган

RET A30: MOV CX,05 ; Элементни тасвирини узунлиги LEA DI,DASCRN ; Элемент тасвирини адреси INC SI INC SI ; Тасвирни REP MOVSW ; жадвалдан чиқариб олиш RET MAIN ENDP ; R10ERR PROC ; < Хато Тўғрисида ҳабарни чиқариш > RET R10ERR ENDP CODESG ENDS END BEGIN Агар рақамлар ҳар хил бўлса , жадвалда адреси қуйидаги инвентар рақами билан солиштириш учун кўпайяди . Агар рақамлар тенг бўлса , дастур ( А 30) жадвалдан номини чиқариб уни DESCRN майдонга ёзади . Қидирув максимум олти марта бажарилади. Ва агар керакли рақам жадвалда йўқ бўлса, хато ишлов дастурга ўтиш бажарилади ва экранга тегишли ҳабар чиқади. Дастурни бошланишида STOKNIN майдон ичидагисини АХ регистрга юборадиган команда бор. STOKNIN 3233 дек аниқланган бўлсаҳам, MOV командаси АХ регистрга бу қийматни байтларни тескари кетма-кетликда юклайди - 3332.

Чунки жадвал элементлари байтларни Тўғри кетма-кетликга эга, MOV командадан кейин XCHG команда бор. XCHG команда АХ регистрда байтлар жойларини алмаштиради ва уларга Тўғри кетма-кетликни қайтаради - 3233. СМР командаси, тескари кетма-кетлигини тахмин қилиб, олдин ўнг кейин чап байтларни солиштиради. Шундан қилиб, тенгликга текшириш Тўғри бўлади, лекин каттароқликга ёки кичикрорликга текширишлар ноТўғри натижаларни беради. Каттароқ ёки кичикроқликга солиштириш учун XCHG командани тушириб, жадвал элементини MOV команда билан, масалан, ВХ регистрда юрориш керак ва кейин АХ ва ВХ регистрлар ичидагиларни қуйидаги усулда солиштириш керак: MOV AX,STOKNIN LEA SI,STOKTAB C20: MOV BX,[SI] CMP AX,BX JA ёки JB Шу усулдаги дастурда бошқа жадвал товар бирлигини нархини аниқлаш мумкин. Дастур жадвал элементини маълум жойга қўйиш, сотиладиган нархни ҳисоблаш (товар миқдорини товар бирлик нархига кўпайтириш) ва экранга товар номини ва сотиладиган нархни чиқариш мумкин. Мисолда жадвал иккибайтли рақамларни ва ун байтли номларни сақлайди. Батафсил дастурлаш ҳар хил сонлар ва элемент узунликлар учун фарқланади. Масалан, уч байтли майдонларни солиштириш учун REPE CMPSB командадан фойдаланиш мумкин, бу команда ҳам СХ регистрни ишлатишини ичига олса ҳам. Буйсира билан жадваллар.

Даромад солиги буйсирали қийматлар билан жадвалларини ажойиб масаласини беради. Масалан, жадвалимиз бор. Бу жадвал солик солинган даромад катталикларни, солик фоизини ва тузатиш коэффициентини сақлайди: Даромад катталиги Солик фоизи Тузатиш коэф. 0-1000.00 10 0.00 1000.01-2500.00 15 050.00 2500.01-4250.00 18 125.00 4250.01-6000.00 20 260.00 6000.01 ва каттароқ 23 390.00 Солик жадвалда фоиз даромад катталигини кўпайишга мос кўпайяди. Даромад жадвал элементлари ҳар бир қадам уун максимал миқдорларини сақлайди: TAXTBL DD 100000, 250000, 425000, 600000, 999999 Шундай жадвалда қидирувни тўзиш учун дастур солик туловчи даромадини даромадни жадвал қиймати билан солиштиради:  кичикроқ ёки тенг бўлса, тегишли фоиз ва тузатишни ишлатиш;  каттароқ бўлса, жадвални қуйидаги элементига ўтиш. Солик миқдори қуйидаги формуладан ҳисоблаб чиқарилади: Даромад * Солик фоизи : 100 - тўзитиш коэф. Сатрлар солиштириш билан жадвал қидируви. Агар жадвал элементини узунлиги икта байтдан каттароқ бўлса, солиштириш операция учун REPE CMPS командани ишлатиш мумкин. Инвентар рақамларни жадвали уч байтли рақамлар учун катадан ўзгартирилганини тахмин киоайлик. Агар STOKNIN Маълумотлар атрофида биринчи майдон, STOKTAB эса - иккинчи майдон бўлса, улар қуйидаги кўринишда бўлиш мумкин:

Маълумотлар: | 123 | 035ExcavatORs | 038Lifters | 049Presses | ... | | | | | | | Адреслар: 00 03 06 16 19 29 32 Қуйида келтирилган дастур ‘999’ охирги элементни қидирувда жадвални охиргисини индикациялаш учун ичига олиб, STOKTAB жадвални анкилайди. Қидирув дастури жадвални ҳар бир элементни ичидагисини STOKNIN майдонни ичидагиси билан солиштиради: Жадвал элементи STOKNIN Солиштириш натижаси 035 123 кичикроқ: қуйидаги элементини текшириш 038 123 кичикроқ: қуйидаги элементини текшириш 049 123 кичикроқ: қуйидаги элементини текшириш 102 123 кичикроқ: қуйидаги элементини текшириш 123 123 тенг : элемент топилди СМРSP команда ҳамма байтларни биттадан солиштиради, байтлар тенг бўлишгача, ва SI ва DI регистрларни автоматик оширади. CODESG SEGMENT PARA ‘Code’ ASSUME CS: CODESG, DS: CODESG,ES: CODESG ORG 100H BEGIN JMP SHORT MAIN ;------------------------------------------------------------------------------------- STOKNIN DW ‘123’ STOKTAB DB ‘035’,’ExcavatORs’ ; Жадвални бошланиши DB ‘038’,Lifters ’ DB ‘049’,’Presses ‘ DB ‘102’,Valves ‘ DB ‘123’,’PROCessORs’ DB ‘127’,’Pumps ‘

DB ‘999’, 10 DUP)’ ‘) ;Жадвални охириси DESCRN DB 10 DUP (?) ;------------------------------------------------------------------------------------------ MAIN PROC NEAR CLD LEA SI,STOKTAB ;Жадвални бошланғич адреси A20: MOV CX,03 ;3 байтлардан солиштириш LEA DI,STOKNIN ;Керакли элементни адреси REPE CMPSB ;Солиштириш JE A30 ;Тенг бўлса, чиқиш JA A40 ;Каттароқ бўлса - жадвалда йўқ ADD SI,CX ;Адресга СХ ни қўшиш JMP A20 ;Жадвални қуйидаги элементи A30: MOV CX,05 ;5 сўзларни юбориш LEA DI,DESCRN ;Тасвирни адреси REP MOVSV ;Жадвалдан юбориш RET A40: CALL R10ERR :Элемент жадвалда топилмаган RET MAIN ENDP R10ERR PROC ; <Экранга хато Тўғрисида ҳабар чиқариш> RET R10ERR ENDP CODESG ENDS END BEGIN

СХ регистри 03 қиймати билан инициаллаштирилади, бошланғич нисбий адреслар SI ва DI регистрларда 03 ва 00 га тегишли қўйиладилар. Жадвални биринчи элементи билан (035:123) солиштириши биринчи байтда тамомланади, шундан кейин SI регистр 04 ни, DI - 01, CX - 02 ни сақлайдилар. Қуйидаги солиштириш учун SI регистрда 16 қиймат, DI да 00 қийматлар бўлиш керак. DI регистрни Тўғрилаши STOKNIN адреси оддий кайта ююлашка келтиради. Жадвални SI регистрда бўлиш керак қуйидаги элементини адрес ошириши олдинги солиштириш қайси байтда тугаган бўлганидан ( биринчи, иккинчи ёки учинчи) боьлиқ. СХ регистри солиштиришда катнашмаган байт сонини сақлайди, бизнинг холимизда - 02. SI регистр ичидагисига CХ регистр қийматини ва ном узунлигини кушиб, қуйидаги элементни нисбий адресини олаймиз: CMPSB дан кейин SI да адрес: 04 СХ ни қўшиш: 02 Ном узунлигини қўшиш: 10 Қуйидаги элементни нисбий адреси: 16 Чунки СХ регистр ҳардоим солиштиришда камамайдиган байт сонини сақлайди (агар шундай бўлса), шу ҳисоб ҳамма холларга Тўғри бўлади: солиштиришни 1, 2 ёки 3 байтдан кейин солиштиришни тугатиш. Агар бир хил элементлар солиштирилган бўлса, СХ регистрда 00 қиймат бўлади, SI регистрдаги адрес эса керакли номга кўрсатади. Ўзгарадиган узунликга эга элементлари билан жадваллар. Элементлар ўзгарадиган узунликга эга бўлган жадваллар ҳам бор. Шу жадвалларда ҳар бир элемент махсус чекланадиган белги билан тамомлайди, масалан, ўн олтили 00 дан; жадвални охирини 1-ли FF билан белгилаш мумкин. Шундай холларда жадвални элементларини ичида кўрсатилган чекланишлар бўлиш керак эмас. Иккили сонлар ҳар бир бит комбинациялар кўринишда бўлиш мумкин. Қидирув учун SCAC командадан фойдаланиш мумкин.

5. XLAT ТРАНСЛЯЦИЯЛАНАДИГАН КОМАНДАСИ XLAT командаси биттта байтни ичидагисини бошқа олдиндан таърифланган қийматига трансляциялайди. XLAT командани ердамида маъумотлар элементларини ичидагидари Тўғри бўлишига текшириш мумкин. Шахсий компьютер ва ЕС ЭВМ (IBM) лар орасида Маълумотларни юборишида XLAT командаси ердамида ASCII ва EBCDIC форматларни кайтадан кодлаштиришни бажариш мумкин. Қуйидаги мисолда 0 дан 9 гача рақамларни ASCII коддан EBCDIC кодга айлантириши бўлади. Чунки ASCII кодда рақамлар 16-ли 30-39 кўринишида, ECDIC кодда эса - 16-ли F0-F9 да, алмаштиришни OR командадан бажариш мумкин. Аммо, қўшимча ASCII ҳамма қолган кодларни пробелга (16-ли 40) га EBCDIC кодда айлантирамиз. XLAT командаси учун катадан кодлаштириш жадвалини таърифлаш керак. Бу жадвал ҳамма 256 мумкин белгиларни EBCDIC кодлар билан ASCII позицияларда ҳисобга олади: XLTBL DB 47 DUP(40H) ;EBCDIC кодда пробеллар DB 0F0H,0F1H,0F2H,0F3H,...,0F9H ; 0 - 9 (EBCDIC) DB 199 DUP(40H) ; EBCDIC кодда пробеллар XLAT команда жадвални адресини ВХ регистрдалигини, трансляцияланадиган байт эса (масалан, ASCNO майдонлар) AL регистрдалигини тахмин қилади. Қуйидаги командалар байтни тайерлаш ва трансляциялашни бажаришади: LEA BX,XLTBL MOV AL,ASCNO XLAT XLAT командаси AL регистдаги қийматини жадвалдаги нисбий адреси сифатида ишлатади. XLAT командаси адресни ВХ га кушиб қўяди ва силжитишни AL га. Агар, масалан, ASCNO 00 га эга бўлса, жадвалда байтни адреси XLTBL+00 бўлади ва XLAT команда 00 ни жадвалдаги 16-ли 40 алмаштиради. Агар ASCNO майдони 16-ли 32 ни сақлайдиган бўлса,

жадвалда тегишли байтни адреси XLTBL+50 бўлади. Шу байт XLAT ни AL регистрга юклайдиган 16-ли F2 ни сақлайди (2 EBCDIC кодда). CODESG SEGMENT PARA ‘ ASSUME CS:CODESG, DS:CODESG, ES:CODESG ORG 100H BEGIN: JMP MAIN ;------------------------------------------------------------------------------------- ASCNO DB ‘-31.5’ EBCNO DB 6 DUP(‘ ‘) XLTAB DB 45 DUP(40H) DB 60H, 2DH DB 5CH DB 0F0H,0F1H,0F2H,0F3H,0F4H DB 0F5H,0F6H,0F7H,0F8H,0F9H DB 199 DUP(40H) ;--------------------------------------------------------------------------------- MAIN PROC NEAR ; Асосий процедура LEA SI,ASCNO ;ASCNO символларни адреси LEA DI,EBCNO ;EBCNO майдонни адреси MOV CX,06 ; Узўнлик LEA BX,XLTAB ; Жадвални адреси A20: MOV AL,[SI] ; ASCII символни олиш XLAT ; кайтадан кодлаштириш MOV [DI],AL ; EBCNO майдонга ёзиш INC DI INC SI LOOP A20 ; 6 марта қайтариш RET

MAIN ENDP CODESG ENDS END BEGIN Дастурда ўнли нуқтани (2 Е ) ва минус белгисини (2D) ASCII коддан EBCDIC кодга айлантириш ( тегишли 4 В ва 60) қўшилган . Дастурда 6 байтли майданларни ишлов учун цикл тўзилган . ASCNO майдон дастурни бажариши болшанишида 31.5 қийматни қуйидаги пробел билан сақлайди , ёки 16- ли 2D33312E3520. дастурни бажариши охирисида EBCNO майдонда 16- ли 60F3F14BF540 бўлиш керак . 6. ДАСТУР : ЖАДВАЛ ЭЛЕМЕНТЛАРИНИ САРАЛАШ Кўпинча жадвални элементларини юкорига кетган ёки пастга караган тартибга саралаш керак бўлади . Масалан , фойдаланувчига товар номлари алифбо тартибида ёки умумий нархларни пастга карайдиган кетма - кетлигига рўйхати керак . Одатда , жадвал Маълумотлар олдинги дастурдеагига ушхаб таърифламайдилар , лекин клавиатурадан ёки дискдан юкланадилар . Берилган бўлинмада жадвал элементларини саралаш кўрсатилган . Жадвалларни саралаш бир неса алгоритмлар бор , эффектив эмас лардан ( лекин тушунарли ) эффективларгача ( лекин тушунарли эмас ). Албатта , ҳар хал саралаш алгоритмларни текширмасак , энг эффетив эмас дастур бизга тез ишлайдиган бўлиб кўринади . Берилган маърузаларни мақсади - сралашни эмас , ассеблер техникасини кўрсатиш . Асосий усули - жадваллни кушни элементларини солиштириш . Шундай қилиб 1 билан 2, 2 билан 3, 3 билан 4 ва хокизо элементлари солиштирилади жадвални охиригача , керак бўлса элементларни жойларини алмаштириб . Агар ишлашда жойлар алмашган бўлса , жараён жадвални бошидан қайтарилади . 1- 2, 2-3 ... элементлар кайтадан солиштириладилар . Агар ишлашда ўрин алмашишлар бўлмаган бўлса , жадвал сараланган бўлади ва жараённни тўхтатиш мумкин .

Қуйида келтирилган алгоритмда SWAP ўзгаранувчи идникатор бўлган : элементларни жойлари алмаштирилган бўлган (YES) ёки бўлмаган (NO): G10: Охирги элементни адресини аниқлаш G20: SWAP=NO урнатиш Биринчи элементни адресини аниқлаш G30: Элемент > қуйидаги элемент дан ми ? Ха: Элементлар жойларини алмаштириш SWAP=YES урнатиш Қуйидаги элементга ўтиш Жадвални охиргиси-ми? Йўқ: G30 га ўтиш Ха: SWAP=YES ми ? Ха: G20 га ўтиш (саралашни қайтариш) Йўқ: Саралашни охиргиси (тугатиш) Дастур клавиатурадан 30 номлар гача киритишга, киритилган номларни алифбо тартибида саралашга ва сараланган номлар руй хатини чиқаришга рухсат беради: TITLE NMSORT (EXE) номларни киритиш ва саралаш ; ----------------------------------------------------------------------------- STACK SGMENT OARA STACK ‘Stack’ DW 32 DUP(?) STACK ENDS ; ---------------------------------------------------------------------------- DATASG SEGMENT PARA ‘Data’ NAMEPAR LABEL BYTE ; параметрлар руйхатини номи MAXNLEN DB 21 ; максимал узунлиги NAMELEN DB ? ; киритилган белгиларни сони

NAMEFLD DB 21 DUP(‘ ‘) ; ном CRLF DB 13,10,’$’ ENDADDR DW ? MESSG1 DB ‘Name?’, ‘$’ NAMECTR DB 00 NAMETAB DB 30 DUP(20 DUP(‘ ‘)) ; номлар жадвали NAMESAV DB 20 DUP(?), 13, 10, ‘$’ SWAPPED DB 00 DATA ENDS ;---------------------------------------------------------------------------------- CODESG SEGMENT PARA ‘Code’ BEGIN PROC FAR ASSUME CS:CODESG,DS:DATASG,SS:STACK,ES:DATASG PUSH DS SUB AX,AX PUSH AX MOV AX,DATASG MOV DS,AX MOV ES,AX CLD LEA DI,NAMETAB CALL Q10CLR ; Экранни тозалаш CALL Q20CURS ; Курсорни урнатиш A20LOOP: CALL B10READ ; Клавиатурадан номни киритиш CMP NAMELEN,00 ; Яна номлар бор-ми? JZ A30 ; йўқ - саралашга ўтиш CALL D10STOR ; номни жадвалга ёзиш JMP A20LOOP

A30: ; номлар киритиш тамомланиши CALL Q10CLR ; экранни тозалаш CALL Q20CURS ; ва курсорни урнатиш CMP NAMECTR,01 ; 2-дан кам номлар киритилган ми? JBE A40 ; Ха - чиқиш CALL G10SORT ; номларни саралаш CALL K10DISP ; натижани экранга чиқариш A40: RET ; дастурни тамомлаш BEGIN ENDP ; Номларни клавиатурадан киритиш ;------------------------------------------------------ B10READ PROC MOV AH,09 LEA DX,MESSG1 ; Сўроқ матни чиқариш INT 21H MOV AH,0AH LEA DX,NAMEPAR ; Номни киритиш INT 21H MOV AH,09 LEA DX,CRLF ; CRLF ни чиқариш INT 21H MOV BH,00 ; Номдан кейин майдонни тозалаш MOV BL,NAMELEN ; Белгиларни ҳисоблангичини олиш MOV CX,21 SUB CX,BX ; Колган узунликни ҳисоблаш B20: MOV NAMEFLD[BX],20H ; пробел белгисини урнатиш INC BX LOOP B20

RET B10READ ENDP ; Номни жадвалга ёзиш ;-------------------------------------------------------------------- D10STOR PROC INC NAMECTR ; жадвалда номлар сони CLD LES SI,NAMEFLD MOV CX,10 REP MOVSV ; Номни жадвалга юбориш RET D10STOR ENDP ; Жадвалга номларни саралаш ;------------------------------------------------------------------------------- G10SORT PROC SUB DI,40 ; тухтатиш адреслани урнатиш MOV ENDADDR,DI G20: MOV SWAPPED,00 ; жадвал бошланишини LEA SI,NAMETAB ; урнатиш G30: MOV CX,20 ; солиштириш узунлиги MOV DI,SI ADD DI,20 ; солиштириш учун қуйидаги номи MOV AX,DI MOV BX,SI REPE CMPSB ; номни қуйидаги ном билан солиштириш

JBE G40 ; жойлар алмаштириши йўқ CALL H10XCHG ; жой алмаштириш G40: MOV SI,AX CMP SI,ENDADDR ; жадвални охиргиси ми? JBE G30 ; йўқ - давом этиш CMP SWAPPED,00 ; жой алмаштиришлар бор-ми? JNZ G20 ; ха - давом этиш RET ; йўқ - саралашни тугатиш G10SORT ENDP ; Жадвалда элементлар жойларини алмаштириш ;--------------------------------------------------------------------------------- H10XCHG PROC MOV CX,10 LEA DI,NAMESAV MOV SI,BX REP MOVSW ; кенжа элементини сақлаш MOV CX,10 MOV DI,BX REP MOVSW ; кенжа элементни ўрнига ; катта элементни юбориш MOV SWAPPED,01 ; алмаштириш хоссаси RET H10XCHG ENDP ; Экранга сараланган номларни чиқариш ;------------------------------------------------------------------------------------- K10DISP PROC

LEA SI, NAMETAB K20: LEA DI,NAMESAV ; жадвални бошланғич адреси MOV CX,10 REP MOVSV MOV AH,09 LEA DX,NAMESAV INT 21H ; экранга чиқариш DEC NAMECTR ; Бу охирги элемент - ми ? JNZ K20 ; йўқ - циклни қайтариш RET ; ха - чиқиш K10DISP ENDP ; Экранни тозалаш ;----------------------------------------------------------------------- Q10CLR PROC MOV AX,0600H MOV BH,61H ; Ранг (07 ок - қора учун ) SUB CX,CX MOV DX,184FH INT 10H RET Q10CLR ENDP ; Курсорни урнатиш ;----------------------------------------------------------------------------- Q20CURS PROC MOV AH,02 SUB BH,BH

SUB DX,DX ; курсорни 00,00 га урнатиш INT 10H RET Q20CURS ENDP CODESG ENDS END BEGIN 7. ТУР, УЗУНЛИК ВА КАТТАЛИК ОПЕРАТОРЛАР Ассемблерда кетма-кет махсус операторлар бор. Улар дастурлаш жараёнда фойдали бўлиш мумкин. Масалан, жадвални узунлигини ўзгартиришда дастурни (янги жадвалри таърифлаш учун) ва жадвал охирисини текширадиган процедураларни модификациялаштириш керак бўлади. Бу холда TYPE (тур), LENGTH (узўнлик) ва SIZE (катталик) операторларни ишлатиши модификация қилинадиган командаларн сонини камайтиради. Ун сўздан иборат қуйидаги жадвал таърифини курайдлик: TABLEX DW 10 DUP(?) ;ун сўздан иборат жадвал Дастур TYPE операторни тур ни аниқлаш учун (бу холда DW), LENGTH олператорни DUP-факторни аниқлаш учун (10) ва SIZE операторни байтлдар солнини ҳисоблаш учун (10 х 2 = 20) ишлатиш мумкин. Қуйидаги командалар шундай ишлатишларни учтасини кўрсатишади: MOV AX,TYPE TABLEX ;AX=0002 MOV BX,LENGTH TABLEX ;BX=000A (10) MOV CX,SIZE TABLEX ;CX=0014 (20) LENGTH ва SIZE қийматларни жадвал кижирув ёки саралаш учун ишлатиш мумкин . Масалан , агар SI регистрда қидирув бажарилганда жадвални силгитилган адреси бўлса , жадвални охирисига текшириш қуйидаги бўлиш мумкин : CMP SI,SIZE TABLEX

Адабиетлар : 1. А.В. Гордеев, А.Ю. Молчанов «Системное программное обеспечение» Учебник.Питер. Санкт-Петербург, 2002 г. 2. В.М.Илюшечкин. "Системное программное обеспечение". Москва"Высшая школа" 1991г (126с). 3. Н.Н.Смирнов. "Программные средства персональных ЭВМ". Ленинград" Машинстроение" 1990 (270с). 4. Майер Г "Надежность программного обеспечения". Москва "Мир" 1990 (360с) . 5. Д.Хаузер, Дж.Хирт, Б.Хоукинс"Операционная система MS-DOS". Москва "Финансы и статистика" 1987. 6. Джордан "Спровочник программиста персональных компьютеров" Москва 1993 "Наука". 7. П. Нортон "Архитектура персональных компьютеров фирма IBM" Киев 1996. 8. Бэк "Введение в системное программирование". Москва 1995.

Похожие

Матнли ахборотларда расм чизиш ва формула ёзиш

Эгилувчан магнит дискларга ёзиш ва укиш курилмаси.

Power Point дастурида расм овозлар ва анимациялар ёзиш

Тилнинг алфавити ва тилнинг асосий тушунчалари. Программа матнини ёзиш коидалари

MS DOSнинг тузилиши ва функциялари