; *Not* the original file, but an edit to turn it into an includable slice.
; Changes include:
; * removal of the segment declarations (for obvious reasons)
; * no segment prefixes in the constant macros (and instead on every single
;   reference to them), as TASM somehow parses these as duplicated definitions
;   (???), resulting in a "symbol already defined elsewhere" error
; * the "piloadc_" prefix on constants
; * the @@ prefix on function parameters
; * "rep segcs movsw" being spelled out to what it's actually supposed to mean
;   (movs word ptr es:[di], word ptr cs:[si])
; * the ID check being changed from 'iP' to 'NZ' (lol ZUN)
; * word alignment at the end of the file

;//////////////////////////////////////////////////////////////////////////////
;
;        Ｐｉ １６色　グラフィック・ローダ	1990	やなぎさわ
;						1991-3	電脳科学研究所/BERO
;
;//////////////////////////////////////////////////////////////////////////////
line	=	1280	;最大横幅
lin	=	4
comment	|
Ｃからの利用
 int	PiLoad(char *name,int buff,int Size,int X,int Y,int tone,int option)

PASCALからの利用
 functuon PiLoad( name:string; buff,Size,X,Y,tone,option:integer):integer;

Assemblerからの利用
 piload0 proc near
	es:dx	= name(asciz)
	ds:0	= buff
	si	= size
	bx	= x
	cx	= y
	al	= tone
	ah	= option

 引数
	name	ファイル名
	buff	バッファのセグメント
	Size	バッファのサイズ
	X	表示アドレスのＸ座標
	Y	表示アドレスのＹ座標
	tone	トーン（１～１００％）
	option	オプション（下記のビットで指定）通常は15(01111b)
	   (lsb)0 .. パレット設定	する／しない = 1/0
	   	1 .. 常駐パレット設定	する／しない = 1/0
		2 .. コメント表示	する／しない = 1/0
		3 .. 画面設定		する／しない = 1/0
		     (VRAMのON,400/200line設定)
		4 .. ノート用パレット	する／しない = 1/0
		5 .. スクロールロード	する／しない = 1/0
		6 .. 透明色利用		する／しない = 1/0

 戻り値
	  0	正常終了
	 -8	バッファが足りない
	-31	Piではない
	-32	サポートされていない
	他	エラー（ＭＳＤＯＳのＤＯＳコールエラー参照)

|

shl1	macro	reg
	add	reg,reg
	endm
rcl1	macro	reg
	adc	reg,reg
	endm

;	out	cy=bit
get1bit	macro	n
	dec	dh
	jz	gb0&n
gb1&n:	shl1	dl
	endm

bitsub	macro	n
gb0&n:
	mov	dl,[bx]
	inc	bx
	mov	dh,8
;	cmp	bx,buffend
	db	81h,0fbh
gw&n	dw	?
	jnz	gb1&n
	call	fread
	jmp	short	gb1&n
	endm

piloadc_coltbl	=	0
piloadc_PaletteBuff =	100h
piloadc_x_pos	=	word ptr [130h]
piloadc_y_pos	=	word ptr [132h]
piloadc_x_wid	=	word ptr [134h]
piloadc_y_wid	=	word ptr [136h]
piloadc_tone	=	byte ptr [138h]
piloadc_option	=	byte ptr [139h]
piloadc_tcol	=	byte ptr [13ah]
piloadc_flg800	=	byte ptr [13bh]
piloadc_line4	=	word ptr [13ch]
piloadc_vadr	=	word ptr [13eh]
piloadc_fhandle	=	word ptr [140h]
piloadc_bufbgn	=	word ptr [142h]
piloadc_bufend	=	word ptr [144h]
piloadc_bufsize	=	word ptr [146h]
piloadc_yscroll	=	word ptr [148h]
piloadc_y_wid2	=	word ptr [14ah]
piloadc_x_wid2	=	word ptr [14ch]
;piloadc_bfseg	=	word ptr [14eh]
piloadc_tonetbl	=	150h
piloadc_gbuff	=	160h
piloadc_buffer	=	160h+line*(lin+2)
piloadc_parasize =	piloadc_buffer

	locals
dftpal	db	0,0,0,	0,0,07h,	7h,0,0,		7h,0,7h
	db	0,7h,0,	0,7h,7h,	7h,7h,0,	7h,7h,7h
	db	0,0,0,	0,0,0fh,	0fh,0,0,	0fh,0,0fh
	db	0,0fh,0,0,0fh,0fh,	0fh,0fh,0,	0fh,0fh,0fh
spreg	dw	?
dsseg	dw	?

	public	PiLoad,ToneSet
PiLoad	proc	near
@@opt	=	word ptr [bp+4]
@@ton	=	word ptr [bp+6]
@@y	=	word ptr [bp+8]
@@x	=	word ptr [bp+10]
@@bufsiz	=	word ptr [bp+12]
@@buf	=	dword ptr [bp+14]
@@nam	=	dword ptr [bp+18]
	push	bp
	mov	bp,sp
	push	ds
	lds	dx,@@nam
	mov	ax,word ptr @@buf
	add	ax,15
	shr	ax,4
	add	ax,word ptr @@buf+2
	mov	es,ax
	cld
	mov	si,dx
	xor	dx,dx
	mov	di,dx
	lodsb
	xor	ch,ch
	mov	cl,al
	rep	movsb
	xor	al,al
	stosb
	push	es
	pop	ds
	mov	si,@@bufsiz
	mov	ax,word ptr @@buf
	and	ax,15
	sub	si,ax
	mov	bx,@@x
	mov	cx,@@y
	mov	di,@@ton
	mov	ax,@@opt
	call	piload0
	pop	ds
	pop	bp
	ret	16
PiLoad	endp

ToneSet	proc	near
	mov	bx,sp
	push	ds
	mov	ax,dsseg
	mov	ds,ax
	mov	es,ax
	mov	al,ss:[bx+2]
	mov	ds:piloadc_tone,al
	call	palset
	pop	ds
	ret	2
ToneSet	endp

	public	_PiLoad,_ToneSet
_PiLoad	proc	near
	arg		@@nam:word,@@buf,@@bufsiz,@@x,@@y,@@ton,@@opt:word
	push	bp
	mov	bp,sp
	push	si
	push	di
	push	ds
	mov	bx,ds
	mov	es,bx
	mov	dx,@@nam
	mov	ax,@@buf
	add	ax,15
	shr	ax,4
	add	ax,bx
	mov	ds,ax
	mov	si,@@bufsiz
	mov	ax,@@buf
	and	ax,15
	sub	si,ax
	mov	bx,@@x
	mov	cx,@@y
	mov	di,@@ton
	mov	ax,@@opt
	call	piload0
	pop	ds
	pop	di
	pop	si
	pop	bp
	ret
_PiLoad	endp

_ToneSet	proc	near
	mov	bx,sp
	push	ds
	push	si
	push	di
	mov	ax,dsseg
	mov	ds,ax
	mov	es,ax
	mov	al,ss:[bx+2]
	mov	ds:piloadc_tone,al
	call	palset
	pop	di
	pop	si
	pop	ds
	ret
_ToneSet	endp

	public	_PiLoadL,_ToneSetL
_PiLoadL	proc	far
	arg		@@nam:dword,@@buf:dword,@@bufsiz,@@x,@@y,@@ton,@@opt:word
	push	bp
	mov	bp,sp
	push	si
	push	di
	push	ds
	les	dx,@@nam
	mov	ax,word ptr @@buf
	add	ax,15
	shr	ax,4
	add	ax,word ptr @@buf+2
	mov	ds,ax
	mov	si,@@bufsiz
	mov	ax,word ptr @@buf
	and	ax,15
	sub	si,ax
	mov	bx,@@x
	mov	cx,@@y
	mov	di,@@ton
	mov	ax,@@opt
	call	piload0
	pop	ds
	pop	di
	pop	si
	pop	bp
	retf
_PiLoadL	endp

_ToneSetL	proc	far
	mov	bx,sp
	push	ds
	push	si
	push	di
	mov	ax,dsseg
	mov	ds,ax
	mov	es,ax
	mov	al,ss:[bx+4]
	mov	ds:piloadc_tone,al
	call	palset
	pop	di
	pop	si
	pop	ds
	retf
_ToneSetL	endp

	public	_PiLoadC
_PiLoadC	proc	near
	arg		@@nam:dword,@@buf:dword,@@bufsiz,@@x,@@y,@@ton,@@opt:word
	push	bp
	mov	bp,sp
	push	si
	push	di
	push	ds
	les	dx,@@nam
	mov	ax,word ptr @@buf
	add	ax,15
	shr	ax,4
	add	ax,word ptr @@buf+2
	mov	ds,ax
	mov	si,@@bufsiz
	mov	ax,word ptr @@buf
	and	ax,15
	sub	si,ax
	mov	bx,@@x
	mov	cx,@@y
	mov	di,@@ton
	mov	ax,@@opt
	call	piload0
	pop	ds
	pop	di
	pop	si
	pop	bp
	ret
_PiLoadC	endp


;	in	es:dx	= filename
;		ds:0	= buff
;		si	= size(paragraph)
;		bx	= x
;		cx	= y
;		di	= tone
;		al	= option
;		ah	= tcol
	public	piload0
error0:
	ret
piload0:
	cld
	mov	spreg,sp
	mov	dsseg,ds
	mov	ds:piloadc_x_pos,bx
	mov	ds:piloadc_y_pos,cx
	mov	word ptr ds:piloadc_option,ax
	mov	ax,di
	mov	ds:piloadc_tone,al

	xor	ax,ax
	mov	ds:piloadc_flg800,al

	mov	ax,-8
	cmp	si,piloadc_parasize+18+48
	jb	error0
	mov	ax,si
	sub	ax,piloadc_parasize
	mov	ds:piloadc_bufsize,ax
	add	ax,piloadc_buffer
;	mov	buffend,ax
;	push	cs
;	pop	ds
;	assume	ds:_TEXT
	irp	n,<0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l>
	mov	word ptr gw&n,ax	;自己書換(^^;)
	endm

	push	es
	pop	ds
	call	fopen
	mov	bx,dsseg
	mov	ds,bx
	mov	es,bx
	jc	error
	mov	ds:piloadc_fhandle,ax
	call	fread
	mov	si,bx
	lodsw
	cmp	ax,'NZ'	;ID check
	mov	ax,-31
	jz	pilop
error:	ret
pilop:
	test	ds:piloadc_option,4
	jz	@@lop2
@@lop:
	lodsb
	cmp	al,1ah
	jz	@@lop2
	mov	dl,al
	mov	ah,2
	int	21h
	jmp	short	@@lop
@@lop2:
	lodsb
	or	al,al
	jnz	@@lop2
	lodsb
	mov	bl,al	;palet flag
	lodsw		;ドット比率
	mov	cx,ax
	lodsb
	cmp	al,4	;plane check
	mov	ax,-32
	jnz	error
	test	ds:piloadc_option,8
	jz	@@skip
	mov	ax,cx
	call	gmode
@@skip:
	add	si,4	;machine code skip
	lodsw
	xchg	ah,al	;dmy
	xor	cx,cx
	mov	dx,cx
	mov	di,ax
	add	di,si
	and	ax,ax
	jz	codee

ccode:
	cmp	si,di
	jz	codee
	lodsb
	cmp	al,1
	jz	code1
	cmp	al,2
	jz	code2
	jmp	short	codee

code1:
	lodsw
	xchg	ah,al
	mov	cx,ax
	lodsw
	xchg	ah,al
	mov	dx,ax
	jmp	short	ccode

code2:
	add	si,3
	lodsb
	test	ds:piloadc_option,40h
	jnz	ccode
	cmp	ds:piloadc_tcol,0ffh
	jz	ccode
	mov	ds:piloadc_tcol,al
	or	ds:piloadc_option,40h
	jmp	short	ccode

codee:
	mov	si,di
	cmp	ds:piloadc_x_pos,0
	jge	@@jmp@
	mov	ds:piloadc_x_pos,cx
@@jmp@:
	cmp	ds:piloadc_y_pos,0
	jge	@@jmp
	mov	ds:piloadc_y_pos,dx
@@jmp:

	mov	cx,ds:piloadc_x_pos
	mov	ax,ds:piloadc_y_pos
	shr	cx,3
	shl	ax,4
	add	cx,ax
	shl	ax,2
	add	cx,ax
	mov	ds:piloadc_vadr,cx

	lodsw
	xchg	ah,al
	mov	ds:piloadc_x_wid,ax

	mov	cx,ax		;自己書換(^^;)
	neg	ax
	mov	line1,ax	;-x_wid
	inc	ax
	mov	line11,ax	;-x_wid+1
	dec	ax
	shl1	ax
	mov	line2,ax	;-x_wid*2
	shl1	cx
	mov	ax,cx
	add	ax,piloadc_gbuff
	mov	ds:piloadc_bufbgn,ax
	shl1	cx
	mov	ds:piloadc_line4,cx
	add	ax,cx
	mov	ds:piloadc_bufend,ax
	mov	bufend2,ax
	mov	bufend3,ax
	mov	bufend4,ax

	mov	ax,ds:piloadc_x_pos
	and	ax,7
	add	ax,ds:piloadc_x_wid
	mov	ds:piloadc_x_wid2,ax
	mov	cx,ax
	lodsw
	xchg	ah,al
	mov	ds:piloadc_y_wid,ax
	mov	ds:piloadc_y_wid2,ax

	test	bl,080h	;palet	check
	jnz	nopalet
	mov	cx,48
	mov	di,piloadc_PaletteBuff
@@lop1:
	lodsb
	shr	al,4
	stosb
	loop	@@lop1
	mov	bx,si
	jmp	short	palend
nopalet:
	mov	bx,si
	mov	si,offset dftpal
	mov	di,piloadc_PaletteBuff
	mov	cx,12
	rep	movs word ptr es:[di], word ptr cs:[si]
palend:
	test	ds:piloadc_option,1
	jz	@@skip
	call	palset
@@skip:
	call	maketbl
	mov	dh,1
	mov	di,piloadc_gbuff
	xor	al,al
	call	color	;ax=col
	mov	cx,ds:piloadc_x_wid
	rep	stosw
	xor	bp,bp
	jmp	while1

	bitsub	6
	bitsub	7
pos2:
	get1bit	6
	db	0BEh	;mov si,nn
line2	dw	?
	jnc	brk
	get1bit	7
	db	0BEh	;mov si,nn
line11	dw	?
	jnc	brk
	dec	si
	dec	si
	jmp	short	brk


	bitsub	8
	bitsub	9
	bitsub	a
	bitsub	b
bit0:
	movsw
	db	81h,0ffh;cmp di,nn
bufend4	dw	?
	jnz	while1
	call	gtrans
;	jmp	while1
while1:
	get1bit	8
	jc	pos2
	get1bit	9
	db	0BEh	;mov si,nn
line1	dw	?
	jc	brk
	mov	si,-4
	mov	ax,[di-2]
	cmp	ah,al
	jz	pos00
brk:
	cmp	si,bp
	mov	bp,si
	jz	nopres
	add	si,di
bjmp:	get1bit	a
	jnc	bit0
	mov	ax,1
	xor	cx,cx
llop:	inc	cx
	get1bit	b
	jc	llop
bitcx:	get1bit	c
	rcl1	ax
	loop	bitcx
;	call	getnbit
	jc	jmp0
jmp1:
	mov	cx,ax
	db	0B8h	;mov ax,nn
bufend2	dw	?
	sub	ax,di
	shr	ax,1
	cmp	cx,ax
	jae	jmp2
	rep	movsw
	jmp	while1

;	get1bit	c
	bitsub	c

pos00:
	cmp	si,bp
	mov	bp,si
	jz	nopres
	lea	si,[di-2]
	jmp	short	bjmp

nopres:
	mov	al,[di-1]
noplop:	call	color
	stosw
	mov	al,ah
	db	81h,0ffh;cmp di,nn
bufend3	dw	?
	jz	cjmp01
cjmp02:
	get1bit	d
	jc	noplop
	xor	bp,bp
	jmp	while1
cjmp01:	call	gtrans
	jmp	cjmp02

jmp2:
	sub	cx,ax
	xchg	cx,ax
	rep	movsw
	call	gtrans
	sub	si,ds:piloadc_line4
	jmp	short jmp1

jmp0:
	xor	cx,cx
lop0:
	movsw
	cmp	di,ds:piloadc_bufend
	loopnz	lop0
	jnz	jmp1
	call	gtrans
	sub	si,ds:piloadc_line4
	jcxz	jmp1
	jmp	short	lop0

	bitsub	d

	bitsub	e
	bitsub	0
	bitsub	1
	bitsub	2
	bitsub	3
	bitsub	4

bit01:
	get1bit	e
	jc	@@jmp
	lodsb
	jmp	short color2
@@jmp:
	mov	ax,[si]
	xchg	ah,al
	mov	[si],ax
	xor	ah,ah
	jmp	short color2

;	in	al=color
;	out	al,ah=color
color:
	mov	bp,di
	xor	ah,ah
	mov	si,ax
;	add	si,piloadc_coltbl

	get1bit	0
	jc	bit01
	get1bit	1
	mov	cx,1
	jnc	bit1
	get1bit	2
	jnc	bit2
	get1bit	3
	rcl1	cx
bit2:	get1bit	4
	rcl1	cx
bit1:	get1bit	5
	rcl1	cx
	add	si,cx
	std
	lodsb
	lea	di,[si+1]
	rep	movsb
	stosb
	jmp	short	color2

	bitsub	5
	bitsub	g

color2:
	xor	ah,ah
	mov	si,ax
;	add	si,piloadc_coltbl

	get1bit	g
	jc	@bit01
	get1bit	h
	mov	cx,1
	jnc	@bit1
	get1bit	i
	jnc	@bit2
	get1bit	j
	rcl1	cx
@bit2:	get1bit	k
	rcl1	cx
@bit1:	get1bit	l
	rcl1	cx
	add	si,cx
	std
	mov	ah,al
	lodsb
	lea	di,[si+1]
	rep	movsb
	stosb
	xchg	ah,al
	mov	di,bp
	cld
	ret

@bit01:
	get1bit	f
	jc	@@jmp
	mov	ah,[si]
	mov	di,bp
	cld
	ret
@@jmp:
	mov	cx,[si]
	xchg	ch,cl
	mov	[si],cx
	mov	ah,cl
	mov	di,bp
	cld
	ret

	bitsub	h
	bitsub	i
	bitsub	j
	bitsub	k
	bitsub	l
	bitsub	f

maketbl:
;	mov	di,piloadc_coltbl
	xor	di,di
	mov	ax,1000h
@@lop1:	mov	cx,16
@@lop2:	;and	al,0f0h
	stosb
	sub	al,10h
	loop	@@lop2
	add	al,10h
	dec	ah
	jnz	@@lop1
	ret

;-----------------------------------------------------------------------------
;	ＭＳ－ＤＯＳ依存部
;-----------------------------------------------------------------------------
fopen:
comment	;
	push	si
	push	dx
	mov	si,dx
flop:	lodsb
	mov	dl,al
	mov	ah,2
	int	21h
	or	dl,dl
	jnz	flop
	pop	dx
	pop	si
;
	mov	ax,3d00h
	int	21h
	ret

fread:
	push	ax
	push	cx
	push	dx
	mov	bx,ds:piloadc_fhandle
	mov	dx,piloadc_buffer
	push	dx
	mov	cx,ds:piloadc_bufsize
	mov	ah,3fh
	int	21h
	jc	@err
	pop	bx
	pop	dx
	pop	cx
	pop	ax
	ret

@err:
	call	fclose
	mov	sp,spreg
	ret

fclose:
	mov	bx,ds:piloadc_fhandle
	mov	ah,3eh
	int	21h
	ret

;-----------------------------------------------------------------------------
;	９８依存部
;-----------------------------------------------------------------------------

;	画面モード設定
;	in	ax=ドット比率データ
gmode:
	cmp	ax,102h
	jz	@@next
;	or	ax,ax
;	mov	ax,-32
;	jnz	error
	mov	ch,0c0h
	mov	ah,42h
	int	18h
	mov	ah,40h
	int	18h
	mov	al,1
	out	6ah,al
	ret
@@next:
	mov	ch,080h
	mov	ah,42h
	int	18h
	mov	al,8
	out	68h,al
	mov	ah,40h
	int	18h
	mov	al,1
	out	6ah,al
	or	ds:piloadc_flg800,4
	ret


;	gbuffからlinライン分表示(gbuff->VRAM)
gtrans:
	pusha
	push	es
	cmp	ds:piloadc_vadr,32000
	jl	@@skip
	sub	ds:piloadc_vadr,32000
	or	ds:piloadc_flg800,1
	mov	al,1
	out	0a6h,al
;	out	0a4h,al
@@skip:

disp:
	mov	si,ds:piloadc_bufend
	mov	di,piloadc_gbuff
	mov	cx,ds:piloadc_x_wid
	sub	si,cx
	sub	si,cx
	rep	movsw
	mov	si,di
	mov	cx,lin
ylop:
	push	cx
	mov	di,ds:piloadc_vadr
	mov	ax,ds:piloadc_x_pos
	and	ax,7
	jz	@@skip
	mov	cx,8
	sub	cx,ax
	push	cx
	mov	ah,0ffh
	shl	ah,cl
	not	al
	xor	bx,bx
	mov	dx,bx
@@lop:
	lodsb
	shl1	al
	rcl1	bl
	shl1	al
	rcl1	bh
	shl1	al
	rcl1	dl
	shl1	al
	rcl1	dh
	loop	@@lop
	mov	cx,0a800h
	mov	es,cx

	mov	al,0c0h
	out	7ch,al
	mov	al,dh
	out	7eh,al
	mov	al,dl
	out	7eh,al
	mov	al,bh
	out	7eh,al
	mov	al,bl
	out	7eh,al
	mov	al,ah
	test	ds:piloadc_option,40h
	jz	@@skip0
	mov	ah,ds:piloadc_tcol
	shr	ah,1
	jnc	@@jmp1
	not	dh
@@jmp1:
	shr	ah,1
	jnc	@@jmp2
	not	dl
@@jmp2:
	shr	ah,1
	jnc	@@jmp3
	not	bh
@@jmp3:
	shr	ah,1
	jnc	@@jmp4
	not	bl
@@jmp4:
	or	bx,dx
	or	bl,bh
	or	al,bl
@@skip0:
	stosb
	xor	al,al
	out	7ch,al

	pop	ax
	mov	cx,ds:piloadc_x_wid
	sub	cx,ax
	shr	cx,3
	jmp	short	xlop
@@skip:
	mov	cx,ds:piloadc_x_wid
	shr	cx,3
xlop:
	rept	4
	lodsw
	shl1	al
	rcl1	bl
	shl1	ah
	rcl1	bl
	shl1	al
	rcl1	bh
	shl1	ah
	rcl1	bh
	shl1	al
	rcl1	dl
	shl1	ah
	rcl1	dl
	shl1	al
	rcl1	dh
	shl1	ah
	rcl1	dh
	endm
	mov	ax,0a800h
	mov	es,ax

	test	ds:piloadc_option,40h
	jnz	@@jmp0
	mov	es:[di],dh
	mov	es:[di+8000h],dl
	mov	ah,0b8h
	mov	es,ax
	mov	es:[di],bh
	mov	ah,0e0h
	mov	es,ax
	mov	al,bl
	stosb
	dec	cx
	jz	xend
	jmp	xlop
@@jmp0:
	mov	ah,ds:piloadc_tcol
	mov	al,0c0h
	out	7ch,al
	mov	al,dh
	out	7eh,al
	mov	al,dl
	out	7eh,al
	mov	al,bh
	out	7eh,al
	mov	al,bl
	out	7eh,al

	shr	ah,1
	jnc	@@jmp1
	not	dh
@@jmp1:
	shr	ah,1
	jnc	@@jmp2
	not	dl
@@jmp2:
	shr	ah,1
	jnc	@@jmp3
	not	bh
@@jmp3:
	shr	ah,1
	jnc	@@jmp4
	not	bl
@@jmp4:
	mov	ax,dx
	or	ax,bx
	or	al,ah
	stosb
	dec	cx
	jz	xend
	jmp	xlop

xend:
	xor	al,al
	out	7ch,al
	mov	cx,ds:piloadc_x_wid2
	and	cx,7
	jz	ext
	mov	ah,8
	sub	ah,cl
	xor	bx,bx
	mov	dx,bx
@@lop:
	lodsb
	shl1	al
	rcl1	bl
	shl1	al
	rcl1	bh
	shl1	al
	rcl1	dl
	shl1	al
	rcl1	dh
	loop	@@lop
	mov	cl,ah
	mov	ch,0ffh
	shl	ch,cl
	shl	bx,cl
	shl	dx,cl
	mov	ax,0a800h
	mov	es,ax

	mov	al,0c0h
	out	7ch,al
	mov	al,dh
	out	7eh,al
	mov	al,dl
	out	7eh,al
	mov	al,bh
	out	7eh,al
	mov	al,bl
	out	7eh,al
	mov	al,ch
	test	ds:piloadc_option,40h
	jz	@@skip0
	mov	ah,ds:piloadc_tcol
	shr	ah,1
	jnc	@@jmp1
	not	dh
@@jmp1:
	shr	ah,1
	jnc	@@jmp2
	not	dl
@@jmp2:
	shr	ah,1
	jnc	@@jmp3
	not	bh
@@jmp3:
	shr	ah,1
	jnc	@@jmp4
	not	bl
@@jmp4:
	or	bx,dx
	or	bl,bh
	or	al,bl
@@skip0:
	stosb
	xor	al,al
	out	7ch,al

ext:
	pop	cx
	add	ds:piloadc_vadr,80
	dec	ds:piloadc_y_wid2
	jz	piloadc_fin
	dec	cx
	jz	ext2
	jmp	ylop
ext2:
	pop	es
	popa
	mov	di,ds:piloadc_bufbgn
	ret
piloadc_fin:
	test	ds:piloadc_flg800,1
	jle	@@jmp
	mov	al,0
;	out	0a4h,al
	out	0a6h,al
	and	ds:piloadc_flg800,not 2
@@jmp:
	call	fclose
	mov	sp,spreg
	xor	ax,ax
	ret

;	パレット設定

;	in	al=tone	[PaletteBuff]=palet

mul38	dw	0,38,76,114,152,190,228,266,304,342,380,418,456,494,532,570
mul75	dw	0,75,150,225,300,375,450,525,600,675,750,825,900,975,1050,1125
mul15	dw	0,15,30,45,60,75,90,105,120,135,150,165,180,195,210,225
palset:
	push	bx
	mov	bl,ds:piloadc_tone
	mov	bh,100
	mov	di,piloadc_tonetbl
	xor	cx,cx
@@plop:
	mov	al,cl
	mul	bl
	div	bh
	stosb
	inc	cl
	cmp	cl,16
	jnz	@@plop

	mov	si,piloadc_PaletteBuff
	mov	bx,piloadc_tonetbl
	mov	cx,16
	xor	ah,ah
	test	ds:piloadc_option,16
	jnz	@@lop2
@@lop:				;通常
	mov	al,ah
	out	0a8h,al	;palet	no
	lodsb
	xlat	[bx]
	out	0ach,al	;red
	lodsb
	xlat	[bx]
	out	0aah,al	;green
	lodsb
	xlat	[bx]
	out	0aeh,al	;blue
	inc	ah
	loop	@@lop
	pop	bx
	ret
@@lop2:				;NOTE用
	mov	al,16
	sub	al,cl
	out	0a8h,al	;palet	no
	mov	dx,64
	lodsb
	shl1	al
	mov	di,ax
	add	dx,mul38[di]
	lodsb
	shl1	al
	mov	di,ax
	add	dx,mul75[di]
	lodsb
	shl1	al
	mov	di,ax
	add	dx,mul15[di]
	mov	al,7
	sub	al,dh
	xlat	[bx]
	mov	dl,al
	irp	port,<0aeh,0ach,0aah>
	shr	dl,1
	sbb	al,al
	out	port,al
	endm
	loop	@@lop2
	pop	bx
	ret

	db	0	; word alignment