;CND OBJAT A 9 1 0
; Este archivo es (C) Carlos Sánchez, y está sujeto a licencia LGPL v3


; OBJAT locno+ flagno

; Devuelve el numero de objetos que hay en la localidad dada en el flag

:acc_objat
dc.b 0xc1 0x04 0x06 0x00 0x00
; Viene en {0} el locno+, y en {4} el flagno. {8} y {12} son variables globales

copy 0.l {8}.l ; inicializo variable del bucle
copy 0.l {20}.l ; inicializo contador de objetos

:objat_bucle
	jgt {8}.l (:numero_ultimo_objeto).l :objat_fin_bucle.l
	mul {8}.l 7.l {12}.l
	add 2.l {12}.l {12}.l
	aload :objetos.l {12}.l {16}.l
	jne {16}.l {0}.l :objat_no_aqui.l
	add 1.l {20}.l {20}.l
	:objat_no_aqui
	add 1.l {8}.l {8}.l
jump :objat_bucle.l

:objat_fin_bucle
astore :flags.l {4}.l {20}.l
return 0