华工电信系汇编习题的编程实现

				stack segment stack 'stack'
				      dw 32 dup(?)
				stack ends
				
				data segment 
				     AB1 db 06H
				     Ab2 db -7H
				     B db ?
				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 al,AB1
				      mov ah,10
				      imul ah
				
				      ROL ax,1
				      ROR al,1
				      add al,AB2
				      mov B,al
				
				
				
				
				      ret
				begin   endp
				code    ends
				      end begin