Секреты и трюки программирования (в том числе и игр) для РК-86

[krt17]

Подсчет контрольной суммы я уже выкладывал в составе исходника позавчера, честно говоря не думал что для кого то это может быть проблемой.

cs	= 0
	lua	pass3
	mems=_c("binBegin")
	meme=_c("binEnd")
	cs=0
	for i=mems,meme-2 do
	cs=(cs+sj.get_byte(i)*257)
	end
	cs=(cs-cs%256+(cs+sj.get_byte(meme-1))%256)%65536
	_pl("cs	= "..cs)
	endlua
	display cs
	db	0,0,#e6,cs/#100,cs&#ff

Раз такое дело положу темплейт полностью

Скрытый текст

	device	zxspectrum48
	org	#0000
rkBegin
	db	progBegin/#100,progBegin&#ff
	db	(progEnd-1)/#100,(progEnd-1)&#ff
binBegin
	disp	#0000
progBegin
;-------------------------------------------
; code here
	jp	$
;-------------------------------------------
progEnd
	ent
binEnd
cs	= 0
	lua	pass3
	mems=_c("binBegin")
	meme=_c("binEnd")
	cs=0
	for i=mems,meme-2 do
	cs=(cs+sj.get_byte(i)*257)
	end
	cs=(cs-cs%256+(cs+sj.get_byte(meme-1))%256)%65536
	_pl("cs	= "..cs)
	endlua
	display cs
	db	0,0,#e6,cs/#100,cs&#ff
rkEnd
	savebin "prog.rk",rkBegin,rkEnd-rkBegin

[свернуть]