ds_name		db	'MOJ\C2B',0

db 'C2B6R.HD6 / C2B6.HD6 のローマ字',0
db 'C2B2.HD6 / 1993 12 02 / LOGMIL専用を汎用化',0
db 'C2B1.HD6 / 1993 11 30 / LOGMIL専用',0
db 'C1B.HD6 / 1993 11 25 / ボタンを押されると成分表を呼ぶ',0

;******************************************************************
look_me:
	 call sub_esi         ; esi 固定です｡
	 dd 0,0
	 dw	 1    ; ここが 1 の物は open start です｡
         dw      0
         dw  20*16+18,44,256+45,256+30,15,0,0,0

;****************************************************************
dt1:	call sub_edi
	dw	0
	db	'IROKAE1',0

dt2:	call sub_edi
	dw	0
	db	'IROKE',0

;********************************************************

p_call:		M_P_CALL
p_set:		M_P_SET
ck_mouse:	M_KENMS

;**********************************************************
boxdt1:		call sub_edi
		dw	16,20,20,1,1,21,0,15,0,0

boxdt2:		call sub_edi
		dw	1,20,18,1,1,21,0,15,0,1

boxdt3:		call sub_edi
		dw	16,20,20,1,21,21,0,15,0,0

boxdt4:		call sub_edi
		dw	1,20,20,21*14,21,21,0,15,2,0

;-------------------------------------------------------------

mozidt:
	call sub_edi
		   dw	0  	  ;screen_no
		   dw	15	  ; mozi_color
		   dw	1	  ; 書き出し位置  x
		   dw	22	  ; 		 y
		   dw	21	  ; next offset x
		   dw	0	  ; next offset y
	           dw   16	  ; gyo suu
                   db    '00',0   ;[14]
                   db    '01',0   ;[17]
                   db    '02',0   ;[20]
                   db    '03',0   ;[20]
                   db    '04',0   ;[20]
                   db    '05',0   ;[20]
                   db    '06',0   ;[20]
                   db    '07',0   ;[20]
                   db    '08',0   ;[20]
                   db    '09',0   ;[20]
                   db    '10',0   ;[20]
                   db    '11',0   ;[20]
                   db    '12',0   ;[20]
                   db    '13',0   ;[20]
                   db    '14',0   ;[20]
                   db    '15',0   ;[20]
	            dw 0,0
;------------------------------------------------------------------
di_hz:		call	sub_edi
		db	12*16*20 dup (0)

ds_ma:		call sub_esi
		dw	0

di_hozon:	call	sub_edi
		dw	0

;*********************************************************************
;--------------------------------

paint_wd:
		SET_P dt1
		SET_P dt2
		WD_LEFT
mouse_in:	ret

be_called:
cold1:
	YOMU	cx,302
	call	di_hozon
	mov	[edi],cx

	KAKU word ptr 300,2
	CALL_P dt2

	WD_WANT

;-----------------------------------------------------------------

re_paint:
	call	di_hz		;edi
	mov	esi,256+31
	shl	esi,9
	add	esi,(256+46)/2
	add	esi,40000h

	push	ds
	mov	ax,120h
	mov	ds,ax
	mov	ecx,11*16
	mov	edx,11*16
	mov	ebx,20
	cld

kiru1:
	rep	movsb
	add	esi,512
	sub	esi,edx
	mov	ecx,edx
	dec	ebx
	jnz	kiru1
	pop	ds

	 WD_CLS 0

	 BOX boxdt1,16

	 BOX boxdt3,16

	 call ds_ma

	 mov word ptr [esi],0

	 call boxdt2
	 mov word ptr [edi+6],1
	 mov word ptr [edi+8],1
	 mov word ptr [edi+14],0
	 mov word ptr [edi+16],0

mawa:
	call ds_ma
	mov ax,[esi]

	call boxdt2
	 mov [edi+14],ax
	 mov [edi+16],ax

	BOX boxdt2,1

	call ds_ma

	inc word ptr [esi]
	mov ax,[esi]
	cmp ax,16
	jge mawa1
	call boxdt2
	add word ptr [edi+6],21
	jmp mawa

mawa1:
	BOX boxdt4,1
	MOZI mozidt

;-----------------------------------------------------------
waiting:
	  call	 ck_mouse
	  cmp	 ch,1
	  je	 mouseck

	  cmp	ch,2
	  je	neru
	  jmp	waiting
;-----------------------------------------------------------
mouseck:

	 MOU boxdt1,16

	 cmp bx,1                  ;bx=1 find
	 je short mck1
	 jmp	waiting

;-----------------------------------------------------
mck1:

	dec ax
	push ax

	movzx eax,ax
	mov ebx,21
	mul ebx

	call boxdt4
	mov [edi+6],ax

	 BOX boxdt3,16

	BOX boxdt4,1

	MOZI mozidt

	pop ax

	KAKU word ptr 300,5
	KAKU 302,ax
	CALL_P dt1
	jmp	waiting

;--------------------------------------------------------------------
neru:

	call	di_hz		;edi
	mov	esi,edi

	mov	edi,256+31
	shl	edi,9
	add	edi,(256+46)/2

	add	edi,40000h

	mov	ax,120h
	mov	es,ax
	mov	ecx,11*16
	mov	edx,11*16
	mov	ebx,20
	cld
kiru2:
	rep	movsb
	add	edi,512
	sub	edi,edx
	mov	ecx,edx
	dec	ebx
	jnz	kiru2
	push	ds
	pop	es


	KAKU	word ptr 300,1
	CALL_P dt1
	WD_ERZ 0
	WD_LEFT

	call	di_hozon
	mov	cx,[edi]
	KAKU	302,cx
	KAKU	word ptr 300,4
	CALL_P	dt2
	ret