;h3026.asm
sseg  segment byte stack;
      
sseg  ends
data  segment dword
      array db 100 dup(?)
data  ends
cseg  segment 'code'
      assume cs:cseg, ds:data, ss:sseg
start:  mov ax, data
        mov ds, ax
        mov ss, data
        mov ax, 4c00h
        int 21h
cseg  ends
      end start