; тест точки
CHELTH == 0		; Cheat code for NRJ change; 0 = normal, 1 = no damage


. = 2000
			sec
. = . + 776
label1:		.word .
			.blkb 776
free = .
			br	.-2
			mov	PC, R0
			add	#label1-., R0
; Decreasing Energy
L749E:		TST	#111
free0 = 040000 - .


.SCRIPT "Check FREE0"
	MOV	#FREE0, R0
	BPL	1$
	$type	"PROBLEM: page 0 overflow!"
1$:
.ENDS

.SCRIPT "Cheat CHELTH"
	MOV	#CHELTH, R0
	BEQ	1$
	MOV	#000207, L749E		; "RETURN" instruction
	$type "CHELTH cheat applyed"
1$:
.ENDS

			.end