Код:
macro ROTVERTEX2 x,z,y
if (xὀ)==0
;display "x>=0 x=",x
_x=(#1f-x)
_xsgn=0
else
;display "x<0 x=",x
_x=(#1f+x)
_xsgn=1
endif
_x=_x+#40
if (zὀ)==0 ;display "z>=0 z=",z
_z=(#1f-z)
_zsgn=0
else ;display "z<0 z=",z
_z=(#1f+z)
_zsgn=1
endif
_z=_z+#60
Код:
ld l,_x
endif
if _xsgn
sub (hl)
else
add a,(hl)
endif
endif
;z'
call div8xinch
push bc
__=$
endm
Код:
endif
if ((signὀ)==0)
if _==0
LD A,(HL)
else
ADD A,(HL)
endif
_=1
else ;((signὀ)!=0)
if _==0
xor a
sub (HL)
else
sub (HL)
endif
_=1
endif
endif ;sign
_hlneed=_hlneed+1
ENDM
[свернуть]