WebSVN – tsfmpro – Blame – /trunk/zxsoft/etunes/sources/Etunes 19/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,4CB3h
		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	ld hl,48D3h
		130	ld a,(hl)
		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) ;4AD3h
		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) ;54B3h
		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,4CB3h
		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
		183	ld de,48D3h
		184	call Str_move_line
		185	inc d
		186	call Str_move_line ;52B3h
		187	inc d
		188	call Str_move_line ;54B3h
		189	inc d
		190
		191	Str_move_line:
		192	ld h,d
		193	ld l,e
		194	and a
		195	rl (hl)
		196	dec l
		197	rl (hl)
		198	dec l
		199	rl (hl)
		200	dec l
		201	rl (hl)
		202	dec l
		203	rl (hl)
		204	dec l
		205	rl (hl)
		206	dec l
		207	rl (hl)
		208	dec l
		209	rl (hl)
		210	dec l
		211	rl (hl)
		212	dec l
		213	rl (hl)
		214	dec l
		215	rl (hl)
		216	dec l
		217	rl (hl)
		218	dec l
		219	rl (hl)
		220	dec l
		221	rl (hl)
		222	ret
		223
		224	Str_count_step:
		225	db 0
		226	Str_symbol_buf:
		227	ds 8
		228	Str_flg_end:
		229	db 0
		230
		231	Str_count_bit:
		232	db 0
		233	Str_addr_work:
		234	dw 0
		235	Str_addr_sp:
		236	dw 0
		237
		238	Str_addr_load:
		239	db ' LOAD',0
		240	Str_addr_text:
		241	db ' ��! ��! � �� MICK �� !!!'
		242	db ' ��, �� , �� - �� .'
		243	db ' � �� . :) �� , �� '
		244	db ' �� M&M � �� . �� . �� M'
		245	db ' �� 19. �� . �� '
		246	db ' �� . � ��, �� '
		247	db ' �� . �� . �� ESI, �� . :)'
		248	db ' �� , �� . �� . �� '
		249	db ' �� . �� 20-�� .'
		250	db ' �� , �� DUKE NUKEM FOREVER, �� . :) :) '
		251	db ' ��, �� -�� "E-TUNES".'
		252	db ' �� 30 �� .'
		253	db ' �� '
		254	db ' "E-TRACKER" � �� "SAM COUPE".'
		255	db ' �� 560 �� .'
		256	db ' �� "ZXM-SOUNDCARD" �� "UNREAL SPECCY",'
		257	db ' �� .'
		258	db ' �� . �� '
		259	db ' "SPACE", �� TR-DOS �� "BREAK"'
		260	db ' � ��: �� . �� '
		261	db ' "E-TUNES" �� . �� SJASMPLUS.'
		262	db ' �� - �� ! '
		263	db ' ��, �� . �� . � �� '
		264	db ' �� MOLODCOV_ALEX (�� ) �� .'
		265	db ' RINDEX �� .'
		266	db ' �� "ZXM-SOUNDCARD". �� : AAA, PIROXILIN, ��, LUZANOV,'
		267	db ' �� EWGENY7 .'
		268	db ' �� :).'
		269	db ' �� ZEK � ZOREL �� . �� , �� ,'
		270	db ' � �� - ��!'
		271	db ' �� , ��, �� .'
		272	db ' � �� :) :)'
		273	db ' �� WWW.MICKLAB.NAROD.RU �� '
		274	db ' �� . �� WWW.ZX.PK.RU - �� MICK �� '
		275	db ' MICKLAB@MAIL.RU '
		276	db ' �� . �� . ��, ��....... �� :) . '
		277	db ' MAY 2011 GRAPHICS AND CODE BY MICK '
		278	db ' ',0
		279	Str_addr_font:
		280	incbin "font.fnt"
		281	Str_end_font:
		282
		283	; .end

Subversion Repositories tsfmpro

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