jumps
.386p
CODE32 SEGMENT PARA PUBLIC USE32
ASSUME cs:CODE32, ds:CODE32

		include	design.mak
		include pmode.inc
		include	timer.ext
		include	rotatem.ext
		
	include font\fontt.ext
		dsg	dw 0

		EXTRN	sound	:BYTE
		PUBLIC 	part4

part4		PROC
		call	wejžcie
		call	code_msx_oth


		lea	esi,t’o
		lea	edi,screen
		call	copyekran

		design	0730h,po2
		lea	esi,screen
		call	ekran
	po2:	mov	fx,40
		mov	fy,(40*320)
		lea	esi,napi4
		mov	ecx,offset napi5
		sub	ecx,offset napi4
		call	draw_string2

		lea	esi,screen
		call	ekran
		
		@rlp	edi,0a0000h
		mov	draw_where,edi		

		lea	ebp,where
		mov	dsg,730h
		mov	ecx,8
	uui:	push	ecx ebp ebp
		design	dsg,jupo
	jupo:	pop	ebp
		mov	esi,[ebp]
		mov	ecx,[ebp+4]
		mov	eax,[ebp+8] ;x1
		mov	fx,eax
		mov	eax,[ebp+12] ;x2
		mov	fy,eax
		call	draw_string
		pop	ebp ecx
		add	ebp,4+4+4+4
		add	dsg,2
		loop	uui

		design 	0800h,qqq1
	qqq1:	call	pal_white
		lea	esi,pal4
		call	pal_set
		design 	0801h,qqq2
	qqq2:	call	pal_white
		lea	esi,pal4
		call	pal_set
	
		design	0804h,qqq3
	qqq3:	call	pal_white
	
		mov	draw_where,offset screen	

;yy:
;		in	al,60h
;		cmp	al,1
;		jne	yy

		ret
part4		ENDP

	where	dd offset napi5,offset napi6-offset napi5, 54, 89*320
		dd offset napi6,offset napi7-offset napi6,137,119*320
		dd offset napi5,offset napi6-offset napi5, 64,155*320
		dd offset napi6,offset napi7-offset napi6,235,111*320
		dd offset napi5,offset napi6-offset napi5,140, 91*320
		dd offset napi6,offset napi7-offset napi6,230,147*320
		dd offset napi5,offset napi6-offset napi5,143,146*320
		dd offset napi6,offset napi7-offset napi6, 52,125*320

napi	db '  CODE:$'
	db '        WARLOCK'
napi2:	db '  MUSIC:$'
	db '         SZUDI'
napi3:	db 'PMODE :  TRAN$'
	db 'PLAYER:  FRONTMAN$'
	db 'TASM  :  BORLAND'
napi4:	db 'DEZIGN WORK:'
napi5:	db 'WARLOCK'
napi6:	db 'BRACH'
napi7:

code_msx_oth:
		design	0700h,ro1
	ro1:	call	pal_white
		mov	fx,40
		mov	fy,(40*320)+(28*320)
		lea	esi,napi
		mov	ecx,offset napi2
		sub	ecx,offset napi
		call	draw_string2
		lea	esi,screen
		call	ekran
		mov	ecx,12
	@pq1:	push	ecx
		lea	edi,pal4
		mov	bl,6
		call	pal_fadein10
		pop	ecx
		loop	@pq1

		lea	esi,t’o
		lea	edi,screen
		call	copyEkran

		design	0710h,ro2
	ro2:	call	pal_white
		mov	fx,40
		mov	fy,(40*320)+(28*320)
		lea	esi,napi2
		mov	ecx,offset napi3
		sub	ecx,offset napi2
		call	draw_string2
		lea	esi,screen
		call	ekran
		mov	ecx,12
	@pq2:	push	ecx
		lea	edi,pal4
		mov	bl,6
		call	pal_fadein10
		pop	ecx
		loop	@pq2

		lea	esi,t’o
		lea	edi,screen
		call	copyEkran

		design	0720h,ro3
	ro3:	call	pal_white
		mov	fx,40
		mov	fy,(40*320)+(28*320)
		lea	esi,napi3
		mov	ecx,offset napi4
		sub	ecx,offset napi3
		call	draw_string2
		lea	esi,screen
		call	ekran
		mov	ecx,12
	@pq3:	push	ecx
		lea	edi,pal4
		mov	bl,6
		call	pal_fadein10
		pop	ecx
		loop	@pq3
		ret

; szachy 1x1x1x szachy x1x1x1 bia’o migni‘cie i zejžcie do podk’adu
wejžcie:
		lea	esi,t’o
		lea	edi,screen
		call	copyEkran
		design	0630h,tu1
	tu1:	call	jeden
		lea	esi,screen
		call	ekran
		lea	esi,t’o
		lea	edi,screen
		call	copyEkran
		design	0634h,tu2
	tu2:	call	dwa
		lea	esi,screen
		call	ekran
		design	0638h,tu3
	tu3:	call	pal_white
		call	siej
		lea	esi,t’o
		lea	edi,screen
		call	copyEkran
		lea	esi,screen
		call	ekran
		mov	ecx,32
	ziut:	push	ecx
		lea	edi,pal4
		mov	bl,2
		call	pal_fadein10
		pop	ecx
		loop	ziut
		ret

		pal4:	include part4.pal

		include	chlopki\szachy.as3
		include	revolt.ext

CODE32 ENDS
END