.model small
           .286c
           .code
           org    100h

savepal:   jmp    body
filename   db     "Palette.Img",0
handle     dw     0

body       proc   near
           lea    di,palette
           mov    dx,3c7h
           xor    al,al
           out    dx,al
           add    dx,2
           mov    cx,300h
rep        insb
           mov    ah,3ch
           xor    cx,cx
           lea    dx,filename
           int    21h
           mov    handle,ax
           mov    ah,40h
           mov    bx,handle
           mov    cx,300h
           lea    dx,palette
           int    21h
           mov    ah,3eh
           mov    bx,handle
           int    21h
           int    20h
body       endp

palette:   end    savepal