assume cs:code
data segment
 db '// ::'
data ends
code segment
 start: mov ax,data
        mov ds,ax
        mov bx,0
        mov si,0
        mov dl,9
        mov cx,6
     s: push cx
        mov al,dl
        out 70h,al
        in  al,71h
        mov ah,al
        mov cl,4
       ...

assume cs:codesg
datasg segment
  db "Beginner's All-purpose Symbolic Instruction Code.",0
datasg ends
codesg segment
 begin: mov ax,datasg
        mov ds,ax
        mov si,0
        call letterc
        mov dh,3
        mov dl,2
        mov cl,2
        call show_str
        mov ax,4c0...

assume cs:codesg,ds:data,ss:stack
data segment
  db 16 dup (0)
  db 336 dup(0)
  db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
  db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
  db '1993','1994','1995'
  dd 16,22,382,1356,2390,8000,16000,24486,50065,9747...

自己剛剛寫的，請大家多多指教
assume cs:code,ds:data
data segment
  db 10 dup (0)
data ends

code segment
 start: mov ax,12666
        mov bx,data
        mov ds,bx
        mov si,0
        call dtoc
        mov dh,8
        mov dl,3
        mov cl,2
        call show_str
        mov ax,4c00h
    ...