汇编语言一个程序

NAME EX1
PAGE 50,70

DATAS SEGMENT PARA 'DAT'
A1 DB 12H,34H,56H,78H,9AH
DB 0BCH,0DEH,0F0H
B1=$-A1
B2=B1*2
A2 DB B2 DUP(?)
DAT ENDS

STAC SEGMENT PARA STACK 'STA'
STA1 DW 100 DUP(?)
STAC ENDS

CODE SEGMENT PARA'CODE'
ASSUME CS:CODE,DS:DAT
ASSUME SS:STAC,ES:DAT
STAR PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DAT
MOV DS,AX
MOV ES,AX
LEA SI,A1
LEA DI,A2
MOV CX,B1
G1: MOV BL,2
MOV AL,[SI]
MOV BH,AL
PUSH CX
MOV CL,4
ROR AL,CL
POP CX
G2: AND AL,0FH
DAA
ADD AL,0F0H
ADC AL,40H
MOV [DI],AL
INC DI
MOV AL,BH
DEC BL
JNZ G2
INC SI
LOOP G1
MOV SI OFFSET A2
MOV CX,B2
CALL P1
RET
P1 PROC
MOV BL,2
G:

汇编语言简单程序一个 用汇编语言编写一个程序 用汇编语言编一个闹钟的程序 急求一个汇编语言程序,电话号码本!!!~ 汇编语言程序 请大家帮我做一个汇编语言排序程序 求助 怎样用汇编语言写一个黑白棋的程序 关于一个汇编语言程序的问题，高手请进！ 用汇编语言编写一个打字练习计时程序 求一个汇编语言编写的动态五角星的程序