;------------------data----------------------
data segment
        fileName        db 'pic6.dat',0
	fileHandle	dw ?
        palHandle       dw ?
	palName		db 'palette.pal',0
	palBuffer	db 768 dup(0)
        fileBuffer      db 320*200 dup(0)
data ends

;------------------code----------------------
code segment
	assume cs:code,ds:data
start:
	mov ax,0A000H
	mov es,ax
	mov ax,data
           mov ds,ax

	lea dx,fileName
	mov ax,3D00H
	int 21h ;Open file read
	mov fileHandle,ax

	lea dx,fileBuffer
	mov bx,fileHandle
	mov cx,320*200
	mov ax,3F00H
	int 21h ;Read the file to fileBuffer

	lea dx,palName
	mov ax,3D00H
	int 21h
	mov palHandle,ax

	lea dx,palBuffer
	mov bx,palHandle
	mov cx,768
	mov ax,3F00h
	int 21h ;Read the file to palBuffer
	
	mov ax,13h
	int 10h
	
	mov ah,0cH
	lea si,fileBuffer

	mov dx,3c7H
	mov al,00h
	out dx,al

	mov dx,3c8h
	out dx,al

	mov dx,3c9h

	lea si,palBuffer
	mov bp,768
	mov cl,2
redo:
	lodsb
	shr al,cl
	out dx,al
	dec bp
	jnz redo

	lea si,fileBuffer
	xor di,di
        mov cx,320*200
	rep movsb

        mov ax,0
        int 16h
	mov ax,3
        int 10h
	mov ax,4c00h
	int 21h

code ends
	end start