用RADASM写多模块的.com文件:请高手将下面代码的子程序改写在另一模块上。

ss1yy

        public BootMessage
        ;extrn DispStr: near
code segment public "code"
                 org 0100h
                 
                assume cs:code ;ds:DATA
        start:
        jmp  begin               
        begin:
         mov AX,cs
         mov ds, ax
         mov es, ax
         call DispStr ; 调用显示字符串例程
         jmp $
BootMessage :
         db 'Hello, OS world!'
DispStr :
        SUB AX,AX
         mov ax, OFFSET  BootMessage
         mov bp, ax ; ES:BP = 串地址
         mov cx, 16 ; CX = 串长度
         mov ax, 01301h ; AH = 13, AL = 01h
         mov bx, 000ch ; 页号为0(BH = 0) 黑底红字(BL = 0Ch,高亮)
         mov dx, 0
         int 10h ; 10h 号中断
          ret
         db 510-($-start) DUP (0)
         db 55h,0aah;;  
       
code ends
END start