下面程序的功能是利用逻辑尺对BUF变量中的数据进行变换，执行该程序后，以RESULT为首地址的前两个字节单元中的数据依次为 【6】 。
DSEG SEGMENT
BUF DB 1，5，4，0，7，9，2，6
L EQU 00111001B ；用做逻辑尺
RESULT DB 10 DUP()
DSEG ENDS
SSEG SEGMENT STACK
DB 256 DUP(0)
SSEG ENDS
CSEG SEGMENT
ASSUME DS：DSEG，SS：SSEG，CS：CSEG
START PROC FAR
PUSH DS
XORAX，AX
PUSH AX
MOVAX，DSEG
MOVDS，AX
MOVSI，0
MOVCX，8
MOVDL，L
GOON： SHRDL，1
JC FILL
MOVAL，BUF[SI]
JMPNEXT
FILL： MOV AL，OFFH
NEXT： MOV RESULT[SI]，AL
INCSI
LOOP GOON
RET
STARTENDP
CSEGENDS
ENDSTART
