WebSVN – tsfmpro – Blame – /trunk/zxsoft/etunes/sources/Etunes 20/string.asm

Rev	Author	Line No.	Line
549	dimkam	1	;--------------------------------------------------------------------
		2	; ��ᠭ��: �� ப�
		3	; �� : ��ᮢ �.�.(Mick),2010
		4	;--------------------------------------------------------------------
		5	Str_reload:
		6	ld a,(Str_flg_end)
		7	and a
		8	jr z,Str_init
		9	xor a
		10	ld (Str_flg_end),a
		11	scf
		12	ret
		13	Str_init:
		14	xor a
		15	ld (Str_count_step),a
		16	ld hl,Str_addr_text
		17	ld (Str_addr_work),hl
		18	ld a,(hl)
		19	ret
		20
		21	Str_init_load:
		22	ld hl,Str_addr_load
		23	ld (Str_addr_work),hl
		24	xor a
		25	ld (Str_count_step),a
		26	ld a,1
		27	ld (Str_flg_end),a
		28	ld a,(hl)
		29	ret
		30
		31	Str_play:
		32	ld a,(Str_count_bit)
		33	or a
		34	call z,Str_next_symbol
		35	ret c
		36	jp Str_update_string
		37
		38	Str_next_symbol:
		39	ld hl,(Str_addr_work)
		40	ld a,(hl)
		41	and a
		42	call z,Str_reload
		43	ret c
		44	inc hl
		45	ld (Str_addr_work),hl
		46	sub 20h
		47	ld l, a
		48	ld h, 0
		49	ld de,Str_addr_font
		50	add hl,hl
		51	add hl,hl
		52	add hl,hl
		53	add hl,de
		54	ld de,Str_symbol_buf
		55	ldi
		56	ldi
		57	ldi
		58	ldi
		59	ldi
		60	ldi
		61	ldi
		62	ldi
		63	ld a,16
		64	ld (Str_count_bit),a
		65	ret
		66
		67	Str_update_string:
		68	ld a,(Str_count_bit)
		69	dec a
		70	ld (Str_count_bit),a
		71	and 1
		72	ret nz
		73
		74	ld de,Str_symbol_buf
		75	ld bc,0
		76
		77	ld a,(de)
		78	rlca
		79	ld (de),a
		80	rl c
		81	ld hl,5056h
		82	ld a,(hl)
		83	and 0FEh
		84	or c
		85	ld (hl),a
		86
		87	ld c,b
		88	inc de
		89	ld a,(de)
		90	rlca
		91	ld (de),a
		92	rl c
		93	inc h
		94	ld a,(hl) ;4AD3h
		95	and 0FEh
		96	or c
		97	ld (hl),a
		98
		99	ld c,b
		100	inc de
		101	ld a,(de)
		102	rlca
		103	ld (de),a
		104	rl c
		105	inc h
		106	ld a,(hl) ;54B3h
		107	and 0FEh
		108	or c
		109	ld (hl),a
		110
		111	ld c,b
		112	inc de
		113	ld a,(de)
		114	rlca
		115	ld (de),a
		116	rl c
		117	inc h
		118	ld a,(hl) ;56B3h
		119	and 0FEh
		120	or c
		121	ld (hl),a
		122
		123	ld c,b
		124	inc de
		125	ld a,(de)
		126	rlca
		127	ld (de),a
		128	rl c
		129	inc h
		130	ld a,(hl) ;4AD3h
		131	and 0FEh
		132	or c
		133	ld (hl),a
		134
		135	ld c,b
		136	inc de
		137	ld a,(de)
		138	rlca
		139	ld (de),a
		140	rl c
		141	inc h
		142	ld a,(hl) ;54B3h
		143	and 0FEh
		144	or c
		145	ld (hl),a
		146
		147	ld c,b
		148	inc de
		149	ld a,(de)
		150	rlca
		151	ld (de),a
		152	rl c
		153	inc h
		154	ld a,(hl) ;56B3h
		155	and 0FEh
		156	or c
		157	ld (hl),a
		158
		159	ld c,b
		160	inc de
		161	ld a,(de)
		162	rlca
		163	ld (de),a
		164	rl c
		165	inc h
		166	ld a,(hl) ;56B3h
		167	and 0FEh
		168	or c
		169	ld (hl),a
		170
		171	ret
		172
		173	Str_move_string:
		174	ld de,5056h
		175	call Str_move_line
		176	inc d
		177	call Str_move_line ;52B3h
		178	inc d
		179	call Str_move_line ;54B3h
		180	inc d
		181	call Str_move_line ;56B3h
		182	inc d
		183	call Str_move_line
		184	inc d
		185	call Str_move_line ;52B3h
		186	inc d
		187	call Str_move_line ;54B3h
		188	inc d
		189
		190	Str_move_line:
		191	ld h,d
		192	ld l,e
		193	and a
		194	rl (hl)
		195	dec l
		196	rl (hl)
		197	dec l
		198	rl (hl)
		199	dec l
		200	rl (hl)
		201	dec l
		202	rl (hl)
		203	dec l
		204	rl (hl)
		205	dec l
		206	rl (hl)
		207	dec l
		208	rl (hl)
		209	dec l
		210	rl (hl)
		211	dec l
		212	rl (hl)
		213	dec l
		214	rl (hl)
		215	dec l
		216	rl (hl)
		217	dec l
		218	rl (hl)
		219	dec l
		220	rl (hl)
		221	ret
		222
		223	Str_count_step:
		224	db 0
		225	Str_symbol_buf:
		226	ds 8
		227	Str_flg_end:
		228	db 0
		229
		230	Str_count_bit:
		231	db 0
		232	Str_addr_work:
		233	dw 0
		234	Str_addr_sp:
		235	dw 0
		236
		237	Str_addr_load:
		238	db ' LOAD',0
		239	Str_addr_text:
		240	db ' ��! ��! � �� MICK �� !!!'
		241	db ' �� . �� - �� 20. �� '
		242	db ' ��, �� . �� '
		243	db ' ��, �� . �� , �� '
		244	db ' �� . �� . �� RINDEX �� '
		245	db ' �� . �� 8 �� . AAA �� ,'
		246	db ' �� . � �� . �� . �� '
		247	db ' �� , �� :) :) �� '
		248	db ' �� - ARTFIELD 2011. �� . �� ,'
		249	db ' �� :) :) �� . �� '
		250	db ' 12 ��. �� DUKE NUKEM FOREVER - �� :) :) '
		251	db ' ��, �� -�� "E-TUNES", �� .'
		252	db ' �� 27 �� .'
		253	db ' �� '
		254	db ' "E-TRACKER" � �� "SAM COUPE".'
		255	db ' �� 587 �� .'
		256	db ' �� "ZXM-SOUNDCARD" �� "UNREAL SPECCY",'
		257	db ' �� .'
		258	db ' �� . �� '
		259	db ' "SPACE", �� TR-DOS �� "BREAK"'
		260	db ' � ��: �� RINDEX.'
		261	db ' �� "BLUFFTITLER" � �� '
		262	db ' �� -��, �� VISUAL C �� .'
		263	db ' �� '
		264	db ' "E-TUNES" �� . �� SJASMPLUS.'
		265	db ' �� - �� ! '
		266	db ' ��, �� . � �� !'
		267	db ' �� MOLODCOV_ALEX (�� ) �� .'
		268	db ' RINDEX �� , �� '
		269	db ' �� "ZXM-SOUNDCARD". �� : AAA, PIROXILIN, ��, LUZANOV,'
		270	db ' �� EWGENY7 .'
		271	db ' �� :).'
		272	db ' �� ZEK � ZOREL �� . �� , �� ,'
		273	db ' � �� - ��!'
		274	db ' �� , ��, �� .'
		275	db ' � �� :) :)'
		276	db ' �� WWW.MICKLAB.NAROD.RU �� '
		277	db ' �� . �� WWW.ZX.PK.RU - �� MICK �� '
		278	db ' MICKLAB@MAIL.RU '
		279	db ' �� . �� :) ��! ��! '
		280	db ' IT', 27h,'S FINISH '
		281	db ' JUNE 2011 GRAPHICS AND CODE BY MICK '
		282	db ' ',0
		283	Str_addr_font:
		284	incbin "font.fnt"
		285	Str_end_font:
		286
		287	; .end

Subversion Repositories tsfmpro

(root)/trunk/zxsoft/etunes/sources/Etunes 20/string.asm – Rev 549