t20.asm

关于8086汇编程序的编写

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
TABLE DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H
data ends
code segment
begin proc far
assume ss:stack,cs:code,ds:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
MOV DX,0B863H
MOV AL,80H
OUT DX,AL
MOV DX,0B861H
MOV SI,0

AG:MOV AL,TABLE[SI]
OUT DX,AL
MOV BX,8000
LOP:LOOP $
DEC BX
CMP BX,0
JNZ LOP
INC SI
MOV AH,11
INT 21H
CMP AL,0
JNZ EXIT
CMP SI,16
JB AG
SUB SI,16
JMP AG
EXIT:ret
begin endp
code ends
end begin