下面的程序用来删除字符串‘AABA’中第一个出现的由DAT单元指定的字符，删除字符后，后面字符前移，并在字符串尾部添加字符‘$’(24H)。请在横线处填充，使程序能达到预定功能。
DSEG SEGMENT
ARRAY DB‘AABA’
CNT DW $-BUF
DAT DB 41H
DSEG ENDS
SSEG SEGMENT STACK
DB256DUP(0)
SSEG ENDS
CSEG SEGMENT
ASSUME DS：DSEG，SS：SSEG，CS：CSEG，ES，DSEG
START PROCFAR
PUSHDS
XORAX，AX
PUSHAX
MOVAX，DSEG
MOVDS，AX
MOVES，AX
CLD
LEADI，BUF
MOVCX，CNT
MOVAL，DAT
REPNE SCASB
JE DEL
JMPEXIT
DEL： JCXZFILL
SWIM： MOVBL，[DI]
MOV[DI-1]，BL
INCDI
LOOPSWIM
FILL： MOV 【6】 ，24H
EXIT： RET
START ENDP
CSEG EDS
ENDSTART