Ассемблер и программирование для IBM PC



         

ГЛАВА 23. Прерывания BIOS и DOS - часть 49


Ассемблер для IBM PC. Программы. 147

TITLE MACRO6 (COM) Проверка дирктив IF и IFNDEF ; ------------------------------------------------ DIVIDE MACRO DIVIDEND,DIVISOR,QUOTIENT LOCAL COMP LOCAL OUT CNTR = 0 ; AX-делимое, BX-делитель, CX-частное IFNDEF DIVIDEND ; Делитель не определен CNTR = CNTR +1 ENDIF IFNDEF DIVISOR ; Делимое не определено CNTR = CNTR +1 ENDIF IFNDEF QUOTIENT ; Частное не определено CNTR = CNTR +1 ENDIF IF CNTR ; Макрорасширение отменено EXITM ENDIF MOV AX,DIVIDEND ;Загрузка делимого MOV BX,DIVISOR ;Загрузка делителя SUB CX,CX ;Регистр для частного COMP: CMP AX,BX ;Делимое < делителя? JB OUT ; да - выйти SUB AX,BX ;Делимое - делитель INC CX ;Частное + 1 JMP COMP OUT: MOV QUOTIENT,CX ;Запись результата ENDM ; ------------------------------------------------ 0000 CSEG SEGMENT PARA 'Code' ASSUME CS:CSEG,DS:CSEG,SS:CSEG,ES:CSEG 0100 ORG 100H 0100 EB 06 BEGIN: JMP SHORT MAIN ; ------------------------------------------------ 0102 0096 DIVDND DW 150 0104 001B DIVSOR DW 27 0106 ???? QUOTNT DW ? ; ------------------------------------------------ 0108 MAIN PROC NEAR .LALL DIVIDE DIVDND,DIVSOR,QUOTNT = 0000 + CNTR = 0 + ; AX-делимое, BX-делитель, CX-частное + ENDIF + ENDIF

Ассемблер для IBM PC. Программы. 148

+ ENDIF + ENDIF 0108 A1 0102 R + MOV AX,DIVDND ;Загрузка делимого 0108 8B 1E 0104 R + MOV BX,DIVSOR ;Загрузка делителя 010F 2B C9 + SUB CX,CX ;Регистр для частного 0111 + ??0000: 0111 3B C3 + CMP AX,BX ;Делимое < делителя? 0113 72 05 + JB ??0001 ; да - выйти 0115 2B C3 + SUB AX,BX ;Делимое - делитель 0117 41 + INC CX 0118 EB F7 + JMP ??0000 011A + ??0001: 011A 89 0E 0106 R + MOV QUOTNT,CX ;Запись результата DIVIDE DIDND,DIVSOR,QUOT = 0000 + CNTR = 0 + ; AX-делимое, BX-делитель, CX-частное + IFNDEF DIDND + ; Делитель не определен = 0001 + CNTR = CNTR +1 + ENDIF + ENDIF + IFNDEF QUOT + ; Частное не определено = 0002 + CNTR = CNTR +1 + ENDIF + IF CNTR + ; Макрорасширение отменено + EXITM 011E C3 RET 011F MAIN ENDP 011F CSEG ENDS END BEGIN

Ассемблер для IBM PC. Программы. 149




Содержание  Назад  Вперед