北理的汇编期末题其实也没太大难度，很多三星题都是C里面写过的非常容易的题目，而且因为允许提前准备，所以难度又降低了很多，我下面的代码基本上都是自己敲得（不排除有一些算法去网上搜了一下借鉴了一下别人的），另外不完全排除留有bug的可能性，因为我也不是每个用例都测试过了。
也可以看出我这个人的风格，就是喜欢疯狂开堆栈，疯狂写子程序，能封装的东西就一直封装到祖坟里去，毕竟我搞嵌入式软件搞得比较多，那种能封装就封装的工程思想就算是写这种百来行的代码也很难改掉习惯。
在多模块设计中，主模块中调用内部模块buf1，buf2，buf3，buf4。主模块根据键盘输入的指令（如：a,b,c,d）调用上述对应的子程序，每个子程序的任务是显示其入口地址。调用后继续等待调用，若输入ESC键（ASCII码为1BH）则结束程序的执行。请编写完成该任务的程序。
没有什么特别难的地方，主要是得注意一下DISPLAY那边的写法
MOV CL,04H
ROL BX,CL ;只能用CL做循环移位，每次移动4位
AND AX,0FH ;取低4位，然后单独打印
打印字母要用到ADD 07H
入口获取就直接在DATA SEGMENT里面声明DW的几个变量，然后声明PROC的时候用它们就行了
DATA SEGMENT
BUF DB 10
DB ?
DB 10 DUP('$')
NEWLINE DB 0DH,0AH,'$'
OUTPUT DW BUF1,BUF2,BUF3,BUF4
DATA ENDS
STACKS SEGMENT STACK
DB 100 DUP(0)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
INPUT:
MOV AH,0AH
LEA DX,BUF
INT 21H
MOV SI,OFFSET BUF
ADD SI,02H
MOV AL,[SI]
JUDGE:
CMP AL,'a'
JE ISA
CMP AL,'b'
JE ISB
CMP AL,'c'
JE ISC
CMP AL,'d'
JE ISD
CMP AL,1BH
JE BREAK
JMP INPUT
BREAK:
MOV AH,4CH
INT 21H
ISA:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF1
JMP INPUT
ISB:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF2
JMP INPUT
ISC:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF3
JMP INPUT
ISD:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF4
JMP INPUT
;子程序调用
BUF1 PROC
MOV BX,OFFSET BUF1
CALL DISPLAY
RET
BUF1 ENDP
BUF2 PROC
MOV BX,OFFSET BUF2
CALL DISPLAY
RET
BUF2 ENDP
BUF3 PROC
MOV BX,OFFSET BUF3
CALL DISPLAY
RET
BUF3 ENDP
BUF4 PROC
MOV BX,OFFSET BUF4
CALL DISPLAY
RET
BUF4 ENDP
;显示
DISPLAY PROC
PUSH AX
PUSH CX
PUSH DX
MOV CH,04H
MOV CL,04H
TURN:
ROL BX,CL
MOV AL,BL
AND AL,0FH
CMP AL,9
JBE NUM
;否则是字母
MOV DL,AL
ADD DL,37H
MOV AH,02H
INT 21H
DEC CH
JZ DONE
JMP TURN
NUM:
MOV DL,AL
ADD DL,'0'
MOV AH,02H
INT 21H
DEC CH
JZ DONE
JMP TURN
DONE:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
POP DX
POP CX
POP AX
RET
DISPLAY ENDP
CODE ENDS
END START
现有一控制程序共5个工序，要求输入04的序号，分别执行各工序的子程序，每个子程序的任务是显示其入口地址。调用后继续等待调用，按回车则结束程序的执行。
这个和第一题有个jb的区别啊
DATA SEGMENT
BUF DB 10
DB ?
DB 10 DUP('$')
NEWLINE DB 0DH,0AH,'$'
OUTPUT DW BUF1,BUF2,BUF3,BUF4,BUF5
DATA ENDS
STACKS SEGMENT STACK
DB 100 DUP(0)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
INPUT:
MOV AH,0AH
LEA DX,BUF
INT 21H
MOV SI,OFFSET BUF
ADD SI,02H
MOV AL,[SI]
JUDGE:
CMP AL,'0'
JE ISA
CMP AL,'1'
JE ISB
CMP AL,'2'
JE ISC
CMP AL,'3'
JE ISD
CMP AL,'4'
JE ISE
CMP AL,0DH
JE BREAK
JMP INPUT
BREAK:
MOV AH,4CH
INT 21H
ISA:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF1
JMP INPUT
ISB:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF2
JMP INPUT
ISC:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF3
JMP INPUT
ISD:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF4
JMP INPUT
ISE:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
CALL BUF5
JMP INPUT
;子程序调用
BUF1 PROC
MOV BX,OFFSET BUF1
CALL DISPLAY
RET
BUF1 ENDP
BUF2 PROC
MOV BX,OFFSET BUF2
CALL DISPLAY
RET
BUF2 ENDP
BUF3 PROC
MOV BX,OFFSET BUF3
CALL DISPLAY
RET
BUF3 ENDP
BUF4 PROC
MOV BX,OFFSET BUF4
CALL DISPLAY
RET
BUF4 ENDP
BUF5 PROC
MOV BX,OFFSET BUF5
CALL DISPLAY
RET
BUF5 ENDP
;显示
DISPLAY PROC
PUSH AX
PUSH CX
PUSH DX
MOV CH,04H
MOV CL,04H
TURN:
ROL BX,CL
MOV AL,BL
AND AL,0FH
CMP AL,9
JBE NUM
;否则是字母
ADD AL,07H
MOV AH,02H
INT 21H
DEC CH
JZ DONE
JMP TURN
NUM:
MOV DL,AL
ADD DL,'0'
MOV AH,02H
INT 21H
DEC CH
JZ DONE
JMP TURN
DONE:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
POP DX
POP CX
POP AX
RET
DISPLAY ENDP
CODE ENDS
END START
现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序从键盘输入4个字符的字符串，若存在将其修改为disk, 并将结果在显示器上显示。
好好用子程序和堆栈就能解决大部分的问题，这里主要是先把算法想清楚了问题就简单很多，
DATA SEGMENT
INPUTBUF DB 10
DB ?
DB 10 DUP('$')
BUF DB 'data',',','name',',','time',',','file',',','code',',','path',',','user',',','exit',',','quit',',','text','$'
REPLACE DB 'disk'
BUFTOCMP DB 4 DUP('$')
NEWLINE DB 0AH,0DH,'$'
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP('$')
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
MOV AH,0AH
LEA DX,INPUTBUF
INT 21H
MOV CH,00H
MOV CL,0AH
MOV SI,OFFSET BUF
WORK:
CALL PASTE
CALL COMPARE
BREAK:
ADD SI,05H
LOOP WORK
RESULT:
;输出
CALL DISPLAY
MOV AH,4CH
INT 21H
;子程序段
;从BUF中赋值到BUFTOCMP
PASTE PROC
PUSH DI
PUSH AX
PUSH CX
PUSH SI
MOV CH,00H
MOV CL,04H
MOV DI,OFFSET BUFTOCMP
A:
MOV AL,[SI]
MOV [DI],AL
INC DI
INC SI
LOOP A
POP SI
POP CX
POP AX
POP DI
RET
PASTE ENDP
;将INPUTBUF中的数据和BUFTOCMP进行比较
COMPARE PROC
PUSH SI
PUSH DI
PUSH CX
PUSH AX
PUSH BX
MOV SI,OFFSET BUFTOCMP
MOV DI,OFFSET INPUTBUF
ADD DI,02H
MOV CH,00H
MOV CL,04H
B:
MOV AL,[SI]
MOV BL,[DI]
INC SI
INC DI
CMP AL,BL
JNE NOTEUQL
LOOP B
;说明找到的一致，进行交换
POP BX
POP AX
POP CX
POP DI
POP SI
CALL EXCHANGE
NOTEUQL:
POP BX
POP AX
POP CX
POP DI
POP SI
JMP BREAK
RET
COMPARE ENDP
;显示
DISPLAY PROC
PUSH DX
PUSH AX
MOV DX,OFFSET NEWLINE
MOV AH,09H
INT 21H
MOV DX,OFFSET BUF
MOV AH,09H
INT 21H
POP AX
POP DX
RET
DISPLAY ENDP
;进行交换
EXCHANGE PROC
PUSH DI
PUSH CX
PUSH AX
MOV CH,00H
MOV CL,04H
MOV DI,OFFSET REPLACE
C:
MOV AL,[DI]
MOV [SI],AL
INC SI
INC DI
LOOP C
;交换完就不再循环，直接退出打印
JMP RESULT
POP AX
POP CX
POP DI
POP SI
RET
EXCHANGE ENDP
CODE ENDS
END START
现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序从键盘输入4个字符的字符串，若存在将其删除, 并在显示器上显示。
同样和上一道题没有jb差别，这里是删除，所以设计子程序为：
1.把buf中的值粘贴到buftocmp
2.和输入值比较
3.如果不相等则paste到outputbuf中
4.如果相等就跳回原来的工作循环
太简单所以几分钟就改完了
DATA SEGMENT
INPUTBUF DB 10
DB ?
DB 10 DUP('$')
BUF DB 'data',',','name',',','time',',','file',',','code',',','path',',','user',',','exit',',','quit',',','text','$'
BUFTOCMP DB 4 DUP('$')
NEWLINE DB 0AH,0DH,'$'
OUTPUTBUF DB 8 DUP(4 DUP('$'),','),4 DUP('$'),'$'
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP('$')
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
MOV AH,0AH
LEA DX,INPUTBUF
INT 21H
MOV CH,00H
MOV CL,0AH
MOV SI,OFFSET BUF
MOV DI,OFFSET OUTPUTBUF
WORK:
CALL PASTE
CALL COMPARE
ADD DI,05H
BREAK:
ADD SI,05H
LOOP WORK
RESULT:
;输出
CALL DISPLAY
MOV AH,4CH
INT 21H
;子程序段
;从BUF中赋值到BUFTOCMP
PASTE PROC
PUSH DI
PUSH AX
PUSH CX
PUSH SI
MOV CH,00H
MOV CL,04H
MOV DI,OFFSET BUFTOCMP
A:
MOV AL,[SI]
MOV [DI],AL
INC DI
INC SI
LOOP A
POP SI
POP CX
POP AX
POP DI
RET
PASTE ENDP
;将INPUTBUF中的数据和BUFTOCMP进行比较
COMPARE PROC
PUSH SI
PUSH DI
PUSH CX
PUSH AX
PUSH BX
MOV SI,OFFSET BUFTOCMP
MOV DI,OFFSET INPUTBUF
ADD DI,02H
MOV CH,00H
MOV CL,04H
B:
MOV AL,[SI]
MOV BL,[DI]
INC SI
INC DI
CMP AL,BL
;说明找到的一致，进行交换
JNE NOTEUQL
LOOP B
POP BX
POP AX
POP CX
POP DI
POP SI
JMP BREAK
NOTEUQL:
POP BX
POP AX
POP CX
POP DI
POP SI
CALL COPY
RET
COMPARE ENDP
;显示
DISPLAY PROC
PUSH DX
PUSH AX
MOV DX,OFFSET NEWLINE
MOV AH,09H
INT 21H
MOV DX,OFFSET OUTPUTBUF
MOV AH,09H
INT 21H
POP AX
POP DX
RET
DISPLAY ENDP
COPY PROC
PUSH SI
PUSH DI
PUSH CX
PUSH AX
MOV CH,00H
MOV CL,04H
C:
MOV AL,[SI]
MOV [DI],AL
INC SI
INC DI
LOOP C
POP AX
POP CX
POP DI
POP SI
RET
COPY ENDP
CODE ENDS
END START
一个有符号字数组以0为结束标志，编程求这个数组的最大值、 最小值、平均值。
数组长度闭着眼睛就能弄到
求最大值最小值也很无脑，拿个buf放在那边，一个一个去比大小就行了
求平均值依然无脑，求和然后除一下长度就结束了
算除法的时候得把和放到AX中，最好用IDIV，这里是正数，所以结果反正是一样的
DATA SEGMENT
BUF DB 0D5H,21H,0A3H,83H,70H,00H
LEN EQU $BUF
MAX DB 00H,'$'
MIN DB 00H,'$'
AVER DB 00H,',',00H,'$'
NEWLINE DB 0AH,0DH,'$'
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP(0)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
MOV SI,OFFSET BUF
;获取数组长度
MOV CH,00H
MOV CL,LEN
DEC CL
;找最大数
CALL FINDMAX
;找最小数
CALL FINDMIN
;求平均值
CALL AVERAGE
;显示
CALL DISPLAY
MOV AH,4CH
INT 21H
;子程序段
;找最大值
FINDMAX PROC
PUSH AX
PUSH CX
PUSH SI
PUSH DI
MOV DI,OFFSET MAX
MOV AL,[SI]
MOV [DI],AL
A:
CMP AL,[SI]
JL MAXEXCHANGE
INC SI
LOOP A
JMP MAXDONE
MAXEXCHANGE:
MOV AL,[SI]
MOV [DI],AL
INC SI
LOOP A
MAXDONE:
POP DI
POP SI
POP CX
POP AX
RET
FINDMAX ENDP
;找最小值
FINDMIN PROC
PUSH AX
PUSH CX
PUSH SI
PUSH DI
MOV DI,OFFSET MIN
MOV AL,[SI]
MOV [DI],AL
B:
CMP AL,[SI]
JG MINEXCHANGE
INC SI
LOOP B
JMP MINDONE
MINEXCHANGE:
MOV AL,[SI]
MOV [DI],AL
INC SI
LOOP B
MINDONE:
POP DI
POP SI
POP CX
POP AX
RET
FINDMIN ENDP
;求平均
AVERAGE PROC
PUSH AX
PUSH CX
PUSH SI
PUSH DI
PUSH BX
MOV AL,00H
MOV AH,00H
;先求和
C:
MOV BL,[SI]
ADD AL,BL
ADC AH,00H
INC SI
LOOP C
MOV CL,LEN
;再求平均
DIV CL
;AL中为商，AH中为余数
MOV DI,OFFSET AVER
MOV [DI],AL
ADD DI,02H
MOV [DI],AH
POP BX
POP DI
POP SI
POP CX
POP AX
RET
AVERAGE ENDP
;显示，这个又要用到和第一题一样的技巧了，运用循环右移的方式把结果输出出来
DISPLAY PROC
;打印最大值
MOV CH,00H
MOV CL,04H
MOV BL,02H
MOV DI,OFFSET MAX
MOV CH,[DI]
D:
ROL CH,CL
MOV DL,CH
AND DL,0FH
CMP DL,09H
JB NUM
ADD DL,37H
MOV AH,02H
INT 21H
DEC BL
JNZ D
JMP MINPRINT
NUM:
ADD DL,'0'
MOV AH,02H
INT 21H
DEC BL
JNZ D
MINPRINT:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
MOV CH,00H
MOV CL,04H
MOV BL,02H
MOV DI,OFFSET MIN
MOV CH,[DI]
E:
ROL CH,CL
MOV DL,CH
AND DL,0FH
CMP DL,09H
JB MINNUM
ADD DL,37H
MOV AH,02H
INT 21H
DEC BL
JNZ E
JMP AVERPRINT
MINNUM:
ADD DL,'0'
MOV AH,02H
INT 21H
DEC BL
JNZ E
AVERPRINT:
MOV AH,09H
MOV DX,OFFSET NEWLINE
INT 21H
MOV CH,00H
MOV CL,04H
MOV BL,02H
MOV DI,OFFSET AVER
MOV CH,[DI]
F:
ROL CH,CL
MOV DL,CH
AND DL,0FH
CMP DL,09H
JB AVERNUM
ADD DL,37H
MOV AH,02H
INT 21H
DEC BL
JNZ F
JMP ENDING
AVERNUM:
ADD DL,'0'
MOV AH,02H
INT 21H
DEC BL
JNZ F
ENDING:
RET
DISPLAY ENDP
CODE ENDS
END START
在BUFFER中定义了的十个带符号字，将其中的负数变成绝对值，并以十进制方式输出。
……这种弱智东西也好意思出成三星题
遍历，和0比判断是不是负数
将负数变成绝对值：取补码，结束
用十进制输出：遍历，做十进制调整，游戏结束
DATA SEGMENT
BUF DB 0AH,31H,63H,53H,7EH,88H,0EEH,0DCH,0A2H,0C8H
LEN EQU $BUF
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP(?)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
MOV CH,00H
MOV CL,LEN
MOV SI,OFFSET BUF
;将所有负数变成绝对值
CALL ABSLUTE
;将结果输出
CALL OUTPUT
MOV AH,4CH
INT 21H
;子程序段
ABSLUTE PROC
PUSH CX
PUSH SI
A:
MOV AL,[SI]
CMP AL,0
JL TURNPOSITIVE
INC SI
LOOP A
JMP DONE
TURNPOSITIVE:
NOT AL
ADD AL,01H
MOV [SI],AL
LOOP A
DONE:
POP SI
POP CX
RET
ABSLUTE ENDP
;转变为十进制数
OUTPUT PROC
PUSH CX
PUSH SI
PUSH AX
PUSH BX
PUSH DX
MOV SI,OFFSET BUF
B:
MOV AL,[SI]
ADD AL,00H
DAA
MOV [SI],AL
INC SI
LOOP B
;进行输出
MOV BH,00H
MOV BL,LEN
MOV CH,00H
MOV CL,04H
MOV SI,OFFSET BUF
C:
MOV CH,[SI]
ROL CH,CL
MOV DL,CH
AND DL,0FH
ADD DL,'0'
MOV AH,02H
INT 21H
ROL CH,CL
MOV DL,CH
AND DL,0FH
ADD DL,'0'
MOV AH,02H
INT 21H
MOV DL,','
MOV AH,02H
INT 21H
INC SI
DEC BL
JNZ C
POP DX
POP BX
POP AX
POP SI
POP CX
RET
OUTPUT ENDP
CODE ENDS
END START
已知数组A包含20个互不相等的字型整数，数组B包含30个互不相等的字型整数，试编制一程序把在A中而不在B中出现的整数放于数组C中。
这个挺C的……用汇编来做……也差不多
算法很简单，嵌套循环即可，每查阅一次A的一个单元，就遍历一次B，找B中有没有出现，如果出现了就跳过，没出现的话就复制到C中
就是无脑的双层循环，直接KO
DATA SEGMENT
BUFA DB 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
BUFB DB 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
BUFC DB 50 DUP('$')
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP(0)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
;外层循环BUFA
MOV CX,20
MOV SI,OFFSET BUFA
MOV DI,OFFSET BUFC
A:
MOV AL,[SI]
;内存循环BUFB
PUSH CX
PUSH SI
MOV CX,30
MOV SI,OFFSET BUFB
B:
MOV BL,[SI]
CMP AL,BL
JE DONE
INC SI
LOOP B
;复制到BUFC中
MOV [DI],AL
INC DI
DONE:
POP SI
POP CX
INC SI
LOOP A
MOV AH,4CH
INT 21H
CODE ENDS
END START
已知数组A包含20个互不相等的字型整数，数组B包含30个互不相等的字型整数，试编制一程序把既在A中又在B中出现的数存放于数组C中。
和上面的一样，只不过条件换了一下
DATA SEGMENT
BUFA DB 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
BUFB DB 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
BUFC DB 50 DUP('$')
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP(0)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
MOV DX,STACKS
MOV SS,DX
;外层循环BUFA
MOV CX,20
MOV SI,OFFSET BUFA
MOV DI,OFFSET BUFC
A:
MOV AL,[SI]
;内存循环BUFB
PUSH CX
PUSH SI
MOV CX,30
MOV SI,OFFSET BUFB
B:
MOV BL,[SI]
CMP AL,BL
JE COPYTOC
INC SI
LOOP B
JMP DONE
COPYTOC:
;复制到BUFC中
MOV [DI],AL
INC DI
DONE:
POP SI
POP CX
INC SI
LOOP A
MOV AH,4CH
INT 21H
CODE ENDS
END START
- 判断一个不超过65535的整数是否为质数
这个用c写也同样非常的基础
算法很简单，把所有非1和自身的数都除一遍，能整除就说明不是质数
DATA SEGMENT
BUF DW 13
YES DB 'yes','$'
NO DB 'no','$'
FLAG DB 00H
DATA ENDS
STACKS SEGMENT STACK
DW 100 DUP(0)
STACKS ENDS
CODE SEGMENT
ASSUME DS:DATA,CS:CODE,SS:STACKS
START:
MOV AX,DATA
MOV DS,AX
;判断
CALL JUDGE
;输出
CALL OUTPUT
MOV AH,4CH
INT 21H
JUDGE PROC
PUSH AX
PUSH CX
PUSH DX
PUSH SI
MOV SI,OFFSET FLAG
MOV DX,0000H
MOV AX,BUF
MOV CX,AX
DEC CX
A:
DIV CX
CMP DX,0
JE NOTPRIME
MOV AX,BUF
MOV DL,0
DEC CX
CMP CX,01H
JNE A
MOV AL,01H
MOV [SI],AL
JMP DONE
NOTPRIME:
MOV AL,00H
MOV [SI],AL
DONE:
POP SI
POP DX
POP CX
POP AX
RET
JUDGE ENDP
OUTPUT PROC
PUSH AX
PUSH SI
PUSH DX
MOV SI,OFFSET FLAG
MOV AL,[SI]
CMP AL,0
JE OUTPUTNO
MOV DX,OFFSET YES
MOV AH,09H
INT 21H
JMP FINISH
OUTPUTNO:
MOV DX,OFFSET NO
MOV AH,09H
INT 21H
FINISH:
POP DX
POP SI
POP AX
RET
OUTPUT ENDP
CODE ENDS
END START